File S231PFB DDS and CRTPF instruction
*************** Beginning of data *************************************************** 00005A UNIQUE(*INCNULL) 00010A R S231PFB 00020A S_231BKY 010A TEXT('Text field - Not null capabl') 00030A S_231BV1 010A TEXT('Null capable text') 00040A COLHDG('Null capable' 'text') 00050A ALWNULL 00050A S_231BV2 8P 0 TEXT('Null capable number') 00060A COLHDG('Null capable' 'num') 00070A ALWNULL 00080A 00090A 00030A S_231BV3 006B TEXT('Null capable binary') 00040A COLHDG('Null capable' 'binary') 00050A ALWNULL 00080A K S_231BKY ****************** End of data ****************************************************** Create Physical File (CRTPF) Type choices, press Enter. File . . . . . . . . . . . . . . > S231PFB Name Library . . . . . . . . . . . > XXXLIB Name, *CURLIB Source file . . . . . . . . . . > SETCLSRC Name Library . . . . . . . . . . . > XXXLIB Name, *LIBL, *CURLIB Source member . . . . . . . . . *FILE 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' . . . . . . . *SRCMBRTXT