9.91 GET_ILENTRY_LIST
Note: Built-In Function Rules Usage Options
Retrieves a list of Impact List entries and their descriptions from the data dictionary and returns them to calling RDML function in a variable length working list. The Impact List must have been previously created and entries added using the LANSA development menu.
This is a Specialized Built-In Function for use in a Development Environment only.
Arguments
|
Return Values
|
Example
This function could be used to compile the file entries, which exist in an Impact List. The Impact List would have been created and the file entries added using the LANSA developer's menu option "Work with Impact Lists".
********** #ETYP *CHAR 2
********** #FILE *CHAR 10
********** #LIB *CHAR 10
********** #DESC *CHAR 40
********** #SPARE *CHAR 8
********** #START *CHAR 22
********** #LAST *CHAR 22
DEF_LIST NAME(#ELLST) FIELDS(#ETYP #FILE #LIB #DESC #SPARE)
TYPE(*WORKING) ENTRYS(10)
********** -Clear list-
CLR_LIST NAMED(#ELLST)
********** -Request Impact List name-
REQUEST FIELDS(#ILNAME) TEXT(('Impact List to use' 5 5))
********** -Set the start value to start at the file entries-
CHANGE FIELD(#START) TO(FD)
********** -Get the entries from the Impact List-
BEGIN_LOOP
USE BUILTIN(GET_ILENTRY_LIST) WITH_ARGS(#ILNAME #START)
TO_GET(#ELLST #LAST #RETCOD)
********** -If entries found-
IF COND('(#RETCOD *EQ OK) *OR (#RETCOD *EQ OV)')
SELECTLIST NAMED(#ELLST)
IF COND('#TYP = FD')
USE BUILTIN(MAKE_FILE_OPERATIONL) WITH_ARGS(#FILE #LIB)
TO_GET(#RTN)
ENDIF
ENDSELECT
********** -If more entries, set start value for repeat -
IF COND('#RETCOD *EQ OV')
CHANGE FIELD(#START) TO(#LAST)
ELSE
RETURN
ENDIF
**********
********** -No entries-
ELSE
RETURN
ENDIF
END_LOOP