RCVF的用法

i400as

请教

001100              CRTPF      FILE(LIBL/JOBENDP) RCDLEN(9999) OPTION(*SRC) +
001200                           LVLCHK(*NO)                                 
001300              WRKACTJOB  OUTPUT(*PRINT)                                 
001400              CLRPFM     FILE(LIBL/JOBENDP)                             
001500              CPYSPLF    FILE(QPDSPAJB) TOFILE(LIBL/JOBENDP) +         
001600                           SPLNBR(*LAST) CRTDATE(*LAST)                 
001700  LOOP:       RCVF                                                      
001800              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))   
001900              CHGDTAARA  DTAARA(*LDA *ALL) VALUE(JOBENDP)        
002000              RTVDTAARA  DTAARA(*LDA (10 10)) RTNVAR(&JOBNAME)   
002100                                                                 
002200              CHGVAR     VAR(&IDNAM1) VALUE(&IDNAM)              
002300              CHGVAR     VAR(&JOBNAME1) VALUE(&JOBNAME)         
002400                                                                 
002500              IF         COND(&JOBNAME1 *EQ &IDNAM1) THEN(DO)   
002600              ENDJOB     JOB(&JOBNAME) OPTION(*IMMED)            
002700              ENDDO                                             
002800              GOTO       CMDLBL(LOOP)      

RCVF我是想读取CPYSPLF的数据文件，这个 JOBENDP是没有RCDFMT的，所以我RCVF后不接任何参数，这样编绎可以通过，但是DEBUG时这一行一直被STOP，按F3后才会继续下一语句，请问是怎么回事？应该如何解决呢？谢谢。

digitalchina

RCVF rcdfmt(JOBENDP)

i400as

原帖由 digitalchina 于 2008-12-8 11:40 发表
RCVF rcdfmt(JOBENDP)

不行的，我试过了。

   1700-  LOOP:       RCVF       RCDFMT(JOBENDP)                                                          08/12/08
* CPD0869 40  Record format 'JOBENDP   ' not found in DCLF command.

digitalchina

RCVF file(JOBENDP) wait(*no)

i400as

原帖由 digitalchina 于 2008-12-8 11:50 发表
RCVF file(JOBENDP) wait(*no)

啊？有这个KEYWORD嘛？

Keyword FILE not valid for this command.

digitalchina

RCVF   wait(*no)

huangxkst

不好意思弄错了...!
001400              DCLF       FILE(LIB/FILE) 改成:
001400              DCLF       FILE(LIB/FILE)   RCDFMT(xxxxxxx)
这里的xxxxxx是jobendp的记录格式名字,然后就可以使用rcvf RCDFMT(xxxxxxx)读记录.

[ 本帖最后由 huangxkst 于 2008-12-8 21:11 编辑 ]

bc3

DCLF       FILE(LIB/FILE) RCDFMT(RECORDFMT)
RCVF       RCDFMT(RECORDFMT)

i400as

原帖由 huangxkst 于 2008-12-8 12:07 发表
001400              CLRPFM     FILE(LIBL/JOBENDP) 改成:
001400              CLRPFM     FILE(LIBL/JOBENDP)  RCDFMT(xxxxxxx)
这里的xxxxxx是jobendp的记录格式名字,然后就可以使用rcvf RCDFMT(xxxxxxx) ...

0015.00              CLRPFM     FILE(LIBLJOBENDP) RCDFMT(JOBENDPR)   
Keyword RCDFMT not valid for this command.

不行哦

i400as

原帖由 bc3 于 2008-12-8 12:25 发表
DCLF       FILE(LIB/FILE) RCDFMT(RECORDFMT)
RCVF       RCDFMT(RECORDFMT)

300-              DCLF       FILE(LIBL/JOBENDP) RCDFMT(JOBENDPR)
* CPD0303 30  DCLF with OPNID parameter *NONE declared previously.

   1800-  LOOP:       RCVF       RCDFMT(JOBENDPR) WAIT(*NO)            
* CPD0869 40  Record format 'JOBENDPR  ' not found in DCLF command.   

还是不行也。我是在CLP中CRTPF，这样需要DCLF？