Page History
...
この終了プログラムのソース・コードは、JSMライブラリのQCLSRCに保管されます。
| Code Block |
|---|
PGM PARM(&EVENT &INSTANCE &VERSION &JOB) DCL VAR(&EVENT) TYPE(*CHAR) LEN(10) DCL VAR(&INSTANCE) TYPE(*CHAR) LEN(30) DCL VAR(&VERSION) TYPE(*CHAR) LEN(8) DCL VAR(&JOB) TYPE(*CHAR) LEN(10) IF COND(&EVENT *EQ 'ENTRY') THEN(DO) GOTO END ENDDO IF COND(&EVENT *EQ 'REBOOT') THEN(DO) GOTO END ENDDO IF COND(&EVENT *EQ 'EXIT') THEN(DO) GOTO END ENDDO END: ENDPGM |