ISERIES OS/400错误检查

Question

是否可以帮助我找到这个PGM中的任何错误。它不能为我编译

         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                     

Answer 1

1. *LF在DSPOBJD命令中不是一个有效的OBJTYPE参数。
2. **在WRKJOB命令中不是一个有效的JOB参数。