9.90 GET_FUNCTION_RDML

Note: Built-In Function Rules     Usage Options

Returns the RDML code associated with a function into a working list.

This Built-In Function can only be used against a function that has been previously placed into an edit session by using the START_FUNCTION_EDIT Built-In Function.

Special Note: This Built-In Function provides access to very advanced facilities that basically allow RDML functions to construct new RDML functions.

This is a very specialized area that requires very good knowledge of the LANSA product. Use of this Built-In Function in a "commercial" application (e.g. Order Entry) is not normal and should not be attempted.

This is a Specialized Built-In Function for use in a Development Environment only.

Arguments

No argument values.

Return Values

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

Return code

OK = operation completed

ER = fatal error detected

2

2

 

 

2

L

Req

Working list Name.

If the edit session is Include RDML audit stamps N, then the working list must be no greater than 32,767 entries and have an aggregate entry length of 72 bytes where each entry is composed of:

From - To   Description

1 - 4   Command sequence number Format Signed (4, 0). 

5 - 7   Command Label A(3)

8 - 17   Command

18 - 72   Command Parameters. Alpha.

If the edit session is Include RDML audit stamps Y, then the working list must have an aggregate entry length of 99 bytes, where, in addition to the positions and number of entries described for Include RDML audit stamps N, each entry is composed of:

From-To   Description

73 - 73   Command Changed Flag, always N.

74 - 81   Command Changed Date. Signed(8,0) (CCYYMMDD).

82 - 91   Command Changed User. Alpha.

92 - 99    Command Changed Task. A(8)

 

 

 

 

 

Technical Notes

Commands that have more than 55 bytes of parameters are returned in multiple entries like this example

Seq  Lab Command       Parameters
0001     **********    This is a comment line
0002     SET_MODE      TO(*CHANGE)
0003 L32 GROUP_BY      NAME(#GROUP) FIELDS(#FIELD001 #FIELD002
0003                   #FIELD003 #FIELD004 #FIELD005 #FIELD006)
0004     DISPLAY       FIELDS(#GROUP)
0005     MENU    
0006     **********    This is a comment line