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 не является допустимым параметром OBJTYPE в команде DSPOBJD.
2. ** не является допустимым параметром JOB в команде WRKJOB.