ISERIES OS/400 error checking

101 views Asked by At

can some help me find any errors in this PGM. It doesnt compile for me

         PGM                                                     

         DCL        VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE('A2LIB14')  
         DCL        VAR(&MSG) TYPE(*CHAR) LEN(80) VALUE('*** S T + 
                      O P ***       READ YOU HAVE READ ALL +       
                      INSTRUCTIONS CAREFULLY')                     
         SNDMSG     MSG(MSG) TOUSR(*REQUESTER)                    
         DSPMSG                                                    
         ADDLIBLE   LIB(&LIB)                                      
         STRDFU     OPTION(*SELECT) FILE(&LIB/TVSHOWSL) MBR(*FIRST)
         CRTPF      FILE(TVSHOWS) RCDLEN(10)                 
         DSPOBJD    OBJ(TVSHOWSL1) OBJTYPE(*LF)               
         WRKJOB     JOB(**)                                        
         ENDPGM                     
1

There are 1 answers

0
James Allman On
  1. *LF is not a valid OBJTYPE parameter on the DSPOBJD command.
  2. ** is not a valid JOB parameter on the WRKJOB command.