File S231PFA DDS and CRTPF instruction

LANSA

File S231PFA DDS and CRTPF instruction

*************** Beginning of data *************************************************
00005A                                      UNIQUE(*INCNULL)                       
00010A          R S231PFA                                                          
00030A            S_231AN1     010A         TEXT('Null capable text')              
00040A                                      COLHDG('Null capable' 'text')          
00050A                                      ALWNULL                                
00050A            S_231AN2       8P 0       TEXT('Null capable number')            
00060A                                      COLHDG('Null capable' 'num')           
00070A                                      ALWNULL                                
00080A                                                                             
00090A                                                                             
00030A            S_231AN3     006B         TEXT('Null capable binary')            
00040A                                      COLHDG('Null capable' 'binary')        
00050A                                      ALWNULL                                
00080A          K S_231AN1                                                         
****************** End of data ****************************************************

                          Create Physical File (CRTPF)                  
                                                                        
 Type choices, press Enter.                                             
                                                                        
 File . . . . . . . . . . . . . . > S231PFA       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