ToolBoxのJCA手順と全銀手順のログ削除を行います。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
PGM DCL VAR(&DATE) TYPE(*CHAR) LEN(6) CALDATE DAYS(-60) TOVAR(&DATE) /* 60日前の日付を取得 */ ADDLIBLE LIB(QEVX) MONMSG MSGID(CPF2103) ADDLIBLE LIB(EVXDBLIB) MONMSG MSGID(CPF2103) /** JCA手順 **/ RGZJCALOGT TGTDAT(&DATE) TGTTIM(235900) /* 端末 */ RGZJCALOGC TGTDAT(&DATE) TGTTIM(235900) /* センター */ /** 全銀手順 **/ RGZZGNLA TGTDAT(&DATE) TGTTIM(235900) ENDPGM |