Working with File Field List

This command executes an RPG program designed to use the field list API to produce a list of the fields defined in a file record format. The RPG program has been coded to use the system API's for Presentation Manager, so a UIM panel group provides the screen instead of a display file.


/*===============================================================*/
/* TO COMPILE:  CRTCMD CMD(XXX/WRKFFL) PGM(XXX/UTDSPFRI)         */
/* SRCFILE(XXX/QCMDSRC)                                          */
/*===============================================================*/

 WRKFFL:     CMD        PROMPT('WORK WITH FILE FIELD LIST')

             PARM       KWD(FILE) TYPE(*NAME) MIN(1) PROMPT('File +
                          name')
             PARM       KWD(LIB) TYPE(*CHAR) LEN(10) DFT(*LIBL) +
                          PROMPT('Library')
             PARM       KWD(MEMBER) TYPE(*CHAR) LEN(10) DFT(*FIRST) +
                          PROMPT('Member name')
             PARM       KWD(ORDER) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*NONE) VALUES(*NONE *NAME) PROMPT(ORDER)