0

可以帮我找出这个 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
4

1 回答 1

1
  1. *LF不是DSPOBJD命令上的有效 OBJTYPE 参数。
  2. **不是WRKJOB命令上的有效 JOB 参数。
于 2015-08-20T21:06:18.283 回答