S220PFL DDS and CRTPF instructions
DDS is in member S220PFL in SETCLSRC *************** Beginning of data *************************************************** 00010A R S220PFL 00020A S_220ID1 005P 0 TEXT('Numeric identifier') 00040A COLHDG('Numeric' 'Id') 00050A S_220TXR 253A VARLEN 00060A TEXT('Variable length text - Real') 00070A COLHDG('Variable' 'len text' 'Real') 00080A K S_220ID1 ****************** End of data ****************************************************** The file was created with a CRTPF as follows: Create Physical File (CRTPF) Type choices, press Enter. File . . . . . . . . . . . . . . S220PFL Name Library . . . . . . . . . . . XXXLIB Name, *CURLIB Source file . . . . . . . . . . SETCLSRC Name Library . . . . . . . . . . . XXXLIB Name, *LIBL, *CURLIB Source member . . . . . . . . . S220PFL Name, *FILE Record length, if no DDS . . . . Number Generation severity level . . . 20 0-30 Flagging severity level . . . . 0 0-30 File type . . . . . . . . . . . *DATA *DATA, *SRC Member, if desired . . . . . . . *FILE Name, *FILE, *NONE Text 'description' . . . . . . . File with a variable length field