关于&IN03未定义的编译错误?

fusl520

我下面的CLP代码是调用DSPF及一个QUERY,进行查询,需要在DSPF中按F3退出, 而且已经在DSPF中定义了CF03.

但是编译时出错,说&IN03未定义.在CLP中还需要定义&IN03吗？

请高手们帮忙看看,谢谢!


             PGM                                                        
             DCL        VAR(&V11)  TYPE(*CHAR) LEN(1)                  
             DCL        VAR(&V111) TYPE(*CHAR) LEN(3)                  
             DCL        VAR(&V22)  TYPE(*CHAR) LEN(2)                  
             DCL        VAR(&V222) TYPE(*CHAR) LEN(5)                  
             DCLF       FILE(QLTDSP) RCDFMT(MAINSCR)            
      LOOP1: SNDRCVF    RCDFMT(MAINSCR)                                 
             CHGVAR VAR(&V11)  VALUE(&ITEMNO)                           
             CHGVAR VAR(&V111) VALUE('''' *CAT &V11 *CAT '''')         
             CHGVAR VAR(&V22)  VALUE(&FAC)                              
             CHGVAR VAR(&V222) VALUE('''' *CAT &V22 *CAT '''')         
             OVRPRTF    FILE(QPQXPRTF) PAGESIZE(*N 132) CPI(10) +      
                          SECURE(*YES)                                 
             STRQMQRY   QMQRY(QLEADTIME) OUTPUT(*PRINT) +      
                          QMFORM(*QMQRY) ALWQRYDFN(*YES) SETVAR((V1 +   
                          &V111) (V2 &V222))                           
             IF  COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(EXITPGM))         
             GOTO  CMDLBL(LOOP1)                                       
     EXITPGM:ENDPGM

[ 本帖最后由 fusl520 于 2008-11-27 11:53 编辑 ]

digitalchina

dspf 中的CA03 要定义在RECORD LEVEL 上,不是FILE LEVEL 上.

fusl520

谢谢digitalchina !

我手工在DSPF中加了CF03在FILE LEVEL及RECORD LEVEL, 后又REMARK掉RECORD LEVEL的CF03,可以了,按F3能退出画面及QUERY了.

上午我其实已经试过用CA03,但是通不过.

A*%%EC                                                         
A                                      DSPSIZ(24 80 *DS3)      
A                                      CF03(03 'EXIT')         
A          R MAINSCR                                                        
A*                                     CF03(03 'EXIT')
A                                  1  3'PUR014C'                           
A                                      COLOR(BLU)