请教CLP中Return 出错的问题

Neo7415

PGM        PARM(&STATUZ &BSSCREC &BSPRREC &BPRDREC +        
                             &BUPAREC)                                   
             DCL        VAR(&STATUZ)    TYPE(*CHAR) LEN(4)               
             DCL        VAR(&BSSCREC)   TYPE(*CHAR) LEN(1024)            
             DCL        VAR(&BSPRREC)   TYPE(*CHAR) LEN(1024)            
             DCL        VAR(&BPRDREC)   TYPE(*CHAR) LEN(1024)            
             DCL        VAR(&BUPAREC)   TYPE(*CHAR) LEN(1024)            
             DCL        VAR(&RUNLIB)    TYPE(*CHAR) LEN(10)              
                                                                        
             CHGVAR     VAR(&RUNLIB)  VALUE(%SST(&BPRDREC 617 10))      
                                                                        
             CPYFRMIMPF  FROMFILE(&RUNLIB/NGMAILLST) +                  
                         TOFILE(&RUNLIB/ITJIPF) +                        
                         MBROPT(*REPLACE)                                
             MONMSG      MSGID(CPF0000 LBE0000) EXEC(GOTO CMDLBL(ERROR))
            CHGVAR     VAR(&STATUZ)  VALUE('****')              
                                                               
            RETURN:                                             
                        RETURN                                 
                                                               
            ERROR:      SNDPGMMSG  MSG('CSV TO ITJIPF ERRORS')  
                        CHGVAR     VAR(&STATUZ) VALUE('BOMB')   
            GOTO       CMDLBL(RETURN)                           
                                                               
EXIT:       ENDPGM                     
一走到红色return处就报错

fairyboy

RETURN不是用在CL程序中的.

李海隽

RETURN可以用在CL程序中。
报错的信息是什么？你把RETURN那句话的标签改个名，试试。

bjrichard

看看joblog是什么错误！