what is &ODLBNM，在公司里的CL PROGRAMM看到

george16

查了RED BOOK，也没有看到说明。

passthru

是CL程序中的变量名。

[ 本帖最后由 passthru 于 2008-7-24 12:16 编辑 ]

hsiang_wang

检查CLP程序里用到的文件是否有ODLBNM的字段?

pantierui

DSPOBJD    OBJ(*ALL/*ALL) OBJTYPE(*QRYDFN) +           
                           DETAIL(*FULL) OUTPUT(*OUTFILE) +      
                            OUTFILE(QTEMP/PTR)
是生成表QTEMP/PTR中的一个字段名叫ODLBNM，字段是库。

[ 本帖最后由 pantierui 于 2008-7-25 09:28 编辑 ]

pantierui

如下代码：
GETQRY：
PGM        PARM(&LIBRARY &FILE)                           
              DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10)               
              DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)                  
              DCLF       FILE(QTEMP/QRYOBJS)                             
              DLTF       FILE(QTEMP/QRYOBJS)                             
              MONMSG     CPF0000                                         
              DLTF       FILE(QTEMP/&LIBRARY)                           
              MONMSG     CPF0000                                         
              CRTSRCPF   FILE(QTEMP/&LIBRARY)                           
              DSPOBJD    OBJ(&LIBRARY/*ALL) OBJTYPE(*QRYDFN) +           
                           DETAIL(*FULL) OUTPUT(*OUTFILE) +      
                            OUTFILE(QTEMP/QRYOBJS)                        
BEGIN:  RCVF      /* GET QUERY NAME AND LIBRARY NAME */            
                  /* IF END OF FILE REACHED, EXIT LOOP        */
              MONMSG   CPF0864  EXEC(GOTO EOF)                           
              RTVQMQRY   QMQRY(&ODLBNM/&ODOBNM) +                        
                                  SRCFILE(QTEMP/&LIBRARY) ALWQRYDFN(*ONLY)      
              GOTO       CMDLBL(BEGIN)                                   
    EOF:   FNDSTRPDM  STRING(&FILE) FILE(QTEMP/&LIBRARY)
                       MBR(*ALL)  OPTION(*NONE) PRTMBRLIST(*YES)               
ENDPGM

[ 本帖最后由 pantierui 于 2008-7-25 09:22 编辑 ]

george16

原帖由 pantierui 于 2008-7-25 09:19 发表
DSPOBJD    OBJ(*ALL/*ALL) OBJTYPE(*QRYDFN) +           
                           DETAIL(*FULL) OUTPUT(*OUTFILE) +      
                            OUTFILE(QTEMP/PTR)
是生成表QTEMP/PTR中的 ...

Thanks, but how can we find some doc about this system pre-defined varaible? I still can' t understand where it comes from. Thank for your expertise.