S220PFL DDS and CRTPF instructions

LANSA

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