RGZPFM 整理表的問題~~~~~~

letusgoup

RGZPFM 整理表的問題~~~~~~
RGZPFM FILE(表名)
寫在CLLE程序中，
如果這個表是空的尤其是整理過的空的，程序就會報錯要你反應：
No members in file YSTFM04 or no data in member YSTFM04

如何讓它不報錯呢？沒試出來。


這里先行謝過！~~~~~~~~

居士

記住報錯message ID
然后程序里MON掉

letusgoup

多謝居士老大，近來可好？

很少寫CLLE，
嘗試了一下，
MONMSG     MSGID( CPF2981    )或者MONMSG     MSGID(CPF0000 CPF2995 CPF2981    )
似乎是應該放在執(zhí)行語句之后，
而且只管那一句，
如果有多句，每句后面都得MONMSG 一下，
是這樣吧？

qingzhou

把MSGID填入CPFXXXX

MONMSG     MSGID(CPFXXXX) EXEC(GOTO CMDLBL(next))
...
RGZPFM
...
next:
....

ENDPGM

letusgoup

多謝！