请教:我用as400创建了一个clp文件,用14编译后,总出现Program not created

allatony

as400创建了一个clp文件,用14编译后,总出现Program not created
内容如下
APPCTL:    PGM                          
           DCLF FILE(QQTT/TT)           
BEGIN:     SNDRCVF RCDFMT(MAINMENU)     
           CHGVAR &IN70 '0'            
           CHGVAR &MSG ' '              
           IF (&INO3='1') RETURN        
           IF (&OP='1') CALL APPL01R   
      ELSE DO                           
           CHGVAR &IN70 '1'            
           CHGVAR &MSG 'INPUT IS WRONG'
           GOTO BEGIN                  
           ENDDO                        
      GOTO BEGIN                        
      ENDPGM

fairyboy

Program not created
一般是已经这个程序的OBJECT已经存在,而且你的权限不能覆盖原由的PGM.

fairyboy

可以先删除原来的PGM,然后在编译试一下.

allatony

我是新手,不知怎样删除原来的PGM咯,请具体点指教下

fairyboy

可以WRKOBJ找到个PGM,然后输入4删除

fairyboy

新手的建议,先看看这个OBJ的是否重要,不然做删除动作比较危险

leason

把错误的信息贴出来看看.

fairyboy

as400创建了一个clp文件,用14编译后,总出现Program not created
不就是这个错误,没有其他等级的错误时

leason

CLP的编译错误信息当然可以有,也可以查看!

.如果是权限的问题,那会出现"Not authorized"的信息,这样就知道是不是权限不过的问题了,如果没有这个信息,而程序又没发建立,那说明程序错误,或者用的那些栏位没定义的,

这个CLP查错误信息的时候,也可以看的

Total         0-9  10-19  20-29  30-39  40-49  50-59  60-69  70-79  8
      4             0      3        0          1         0        0          0          0   
Program LYCC17 not created in library HAPLIBS. Maximum error severity  30

在SEU==>行输入"B",然后往上翻就看到,错误的信息代号和内容了,
* CPD0714 30  No matching ENDDO command for DO command for  1 do group
* CPD0755 10  The preceding errors may be caused by previous release i


以下就是这个CLP的源程序:

              PGM                                             
              DCLF       FILE(LYDC17)                        
              DCL        VAR(&RET) TYPE(*CHAR) LEN(1)         
              DCL        VAR(&DATE) TYPE(*CHAR) LEN(      
              DCL        VAR(&KDATE) TYPE(*CHAR) LEN(      
              DCL        VAR(&RUNID) TYPE(*CHAR) LEN(      
              RTVDTAARA  DTAARA(*LDA (81 10)) RTNVAR(&USRNAM)
              RTVJOBA    JOB(&WRKSTN)                        
              CHGVAR     VAR(&ARE2) VALUE('999999')           
              CHGVAR     VAR(&LOC2) VALUE('99999999')         
START:                                                      
              SNDF       DEV(*FILE) RCDFMT(FKEY)              
              SNDF       DEV(*FILE) RCDFMT(MMSG)              
              RTVDTAARA  DTAARA(*LDA (111 ) RTNVAR(&CST)   
              RTVDTAARA  DTAARA(*LDA (204 6)) RTNVAR(&STN)   
              SNDRCVF    RCDFMT(LYDC171)                     
             CHGVAR     VAR(&IN31) VALUE('0')                       
             CHGVAR     VAR(&KDATE) VALUE(&D40301)                  
             CHGVAR     VAR(&RUNID) VALUE(&ID)                     
             CHGVAR     VAR(&RET) VALUE('0')                        
             CHGVAR     VAR(&IN99) VALUE('0')                       
             CHGVAR     VAR(&HINT) VALUE(' ')                       
             IF         COND(&IN03 = '1') THEN(GOTO CMDLBL(END))   
             /*==========*/                                         
             IF         COND(&IN99 *EQ '0') THEN(DO)               
             SBMJOB     CMD(CALL PGM(LYCC1 PARM(&CST &STN &KDATE +
                          &RUNID &ARE1 &ARE2 &LOC1 &LOC2)) +        
                          JOB(LYCC1 JOBQ(ZBATCHL3)               
             CHGVAR     VAR(&HINT) +                                
                          VALUE(' 作业排队 ')                       
         /*  ENDDO */     ---我把这行屏蔽了,所以程序就出错无法编译成功,                                         
             GOTO       CMDLBL(START)                              
END:

leason

CLP的编译错误信息当然可以有,也可以查看!

.如果是权限的问题,那会出现"Not authorized"的信息,这样就知道是不是权限不过的问题了,如果没有这个信息,而程序又没发建立,那说明程序错误,或者用的那些栏位没定义的,

这个CLP查错误信息的时候,也可以看的

Total         0-9  10-19  20-29  30-39  40-49  50-59  60-69  70-79  8
      4             0      3        0          1         0        0          0          0   
Program LYCC17 not created in library HAPLIBS. Maximum error severity  30

在SEU==>行输入"B",然后往上翻就看到,错误的信息代号和内容了,
* CPD0714 30  No matching ENDDO command for DO command for  1 do group
* CPD0755 10  The preceding errors may be caused by previous release i


以下就是这个CLP的源程序:

              PGM                                             
              DCLF       FILE(LYDC17)                        
              DCL        VAR(&RET) TYPE(*CHAR) LEN(1)         
              DCL        VAR(&DATE) TYPE(*CHAR) LEN(      
              DCL        VAR(&KDATE) TYPE(*CHAR) LEN(      
              DCL        VAR(&RUNID) TYPE(*CHAR) LEN(      
              RTVDTAARA  DTAARA(*LDA (81 10)) RTNVAR(&USRNAM)
              RTVJOBA    JOB(&WRKSTN)                        
              CHGVAR     VAR(&ARE2) VALUE('999999')           
              CHGVAR     VAR(&LOC2) VALUE('99999999')         
START:                                                      
              SNDF       DEV(*FILE) RCDFMT(FKEY)              
              SNDF       DEV(*FILE) RCDFMT(MMSG)              
              RTVDTAARA  DTAARA(*LDA (111 ) RTNVAR(&CST)   
              RTVDTAARA  DTAARA(*LDA (204 6)) RTNVAR(&STN)   
              SNDRCVF    RCDFMT(LYDC171)                     
             CHGVAR     VAR(&IN31) VALUE('0')                       
             CHGVAR     VAR(&KDATE) VALUE(&D40301)                  
             CHGVAR     VAR(&RUNID) VALUE(&ID)                     
             CHGVAR     VAR(&RET) VALUE('0')                        
             CHGVAR     VAR(&IN99) VALUE('0')                       
             CHGVAR     VAR(&HINT) VALUE(' ')                       
             IF         COND(&IN03 = '1') THEN(GOTO CMDLBL(END))   
             /*==========*/                                         
             IF         COND(&IN99 *EQ '0') THEN(DO)               
             SBMJOB     CMD(CALL PGM(LYCC1 PARM(&CST &STN &KDATE +
                          &RUNID &ARE1 &ARE2 &LOC1 &LOC2)) +        
                          JOB(LYCC1 JOBQ(ZBATCHL3)               
             CHGVAR     VAR(&HINT) +                                
                          VALUE(' 作业排队 ')                       
         /*  ENDDO */     ---我把这行屏蔽了,所以程序就出错无法编译成功,                                         
             GOTO       CMDLBL(START)                              
END: