请问是否有检查pf记录数非0的命令

starling_lee

各位大虾好，请教一个问题

目前需要在CLP程序中执行一个操作：
当PF表A中如果存在数据，即记录数非0，那么执行CPYTOIMPF命令，将其数据拷贝生成一个CSV文件；
如果表A中不存在数据，即记录数为0，则不执行生成CSV操作

以前只接触过使用CHKOBJ来检查是否存在某个obj，对于这种直接检查PF记录数是否为0的判断有对应的clp命令么？

感谢赐教

[ 本帖最后由 starling_lee 于 2008-11-13 14:48 编辑 ]

qingzhou

你捕捉下当PF records=0情况下执行CPYTOIMPF报错MSGID,然后执行错误处理.

starling_lee

谢谢轻舟的回复

不过records=0时候，执行CPYTOIMPF会报错么？

qingzhou

原帖由 starling_lee 于 2008-11-13 14:54 发表
谢谢轻舟的回复

不过records=0时候，执行CPYTOIMPF会报错么？

你模拟下,看看是否出现错误MSGID?

starling_lee

好的，我去试验一下
先谢谢了

qingzhou

刚在命令行输入CPYTOIMPF,然后按F1看帮助,翻页到最后,只查询到:

*ESCAPE Messages                                 
CPF2817     Copy command ended because of error.

有点笼统~~~

starling_lee

CPYT:                                                         
         CPYTOIMPF  FROMFILE(&RUNLIB/NAML) +                  
                    TOFILE(&RUNLIB/&TOFLA) +                  
                    MBROPT(*REPLACE) STRDLM(*DBLQUOTE) +      
                    STRESCCHR(*STRDLM) RMVBLANK(*BOTH)         
                                                               
         MONMSG     MSGID(CPF2817)  EXEC(GOTO CMDLBL(RETURN))  
         CHGVAR     VAR(&STATUZ)  VALUE('****')               

——————————
代码中加了上面的内容
pf NAML数据为空，debug跟踪的时候，没有捕获异常，直接顺序走了
看来0条似乎不走异常

还有其他的想法么？

qingzhou

............

RETURN:

            ENDPGM

对吗?


模拟测试很简单的,你找个PF:XXX1把记录删除掉,然后执行:
CPYTOIMPF  FROMFILE(LIB1/XXX1) +                  
                    TOFILE(LIB2/XXX2) +                  
                    MBROPT(*REPLACE) STRDLM(*DBLQUOTE) +      
                    STRESCCHR(*STRDLM) RMVBLANK(*BOTH)     
看是否报错?

starling_lee

对的，现在就是这样

这个CLP中前面有一段给pf初始化的过程
CLRPFM     FILE(&RUNLIB/NAMLPF)
中间是CALL一个子程序，里面可能会作成pf数据

我现在测试的时候把call这段代码给注释了，所以走到     CPYTOIMPF的时候,pf数据为空
确实没有捕捉异常

starling_lee

不知道各位高手还有没有好的建议

实在不行就只能拿到子程序中去控制了，那样很麻烦