|
|
|
/* COPYRIGHT JÜRGEN REULE 2010-2023 */ |
|
|
|
|
|
|
|
|
PGM |
PARM(&FILE &MBR &REL + |
|
|
|
|
&SRCTYPE &SRCCHGDATE + |
|
|
|
|
&TEXT &NBRCURRCD) |
|
|
|
|
|
|
|
|
DCL |
VAR(&FILE) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&MBR) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&REL) TYPE(*CHAR) LEN(5) |
|
|
|
DCL |
VAR(&SRCTYPE) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&SRCCHGDATE) TYPE(*CHAR) LEN(13) |
|
|
|
DCL |
VAR(&TEXT) TYPE(*CHAR) LEN(50) |
|
|
|
DCL |
VAR(&NBRCURRCD) TYPE(*DEC) LEN(10) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(CPF0000) |
|
|
|
|
|
|
|
|
RTVMBRD |
FILE(&FILE) + |
|
|
|
|
MBR(&MBR &REL) + |
|
|
|
|
RTNMBR(&MBR) + |
|
|
|
|
SRCTYPE(&SRCTYPE) + |
|
|
|
|
SRCCHGDATE(&SRCCHGDATE) + |
|
|
|
|
TEXT(&TEXT) + |
|
|
|
|
NBRCURRCD(&NBRCURRCD) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(CPF0000) EXEC(DO) |
|
|
|
RCVMSG |
MSGTYPE(*LAST) RMV(*YES) |
|
|
|
CHGVAR |
VAR(&MBR) VALUE(' ') |
|
|
|
CHGVAR |
VAR(&SRCTYPE) VALUE(' ') |
|
|
|
CHGVAR |
VAR(&SRCCHGDATE) VALUE(' ') |
|
|
|
CHGVAR |
VAR(&TEXT) VALUE(' ') |
|
|
|
CHGVAR |
VAR(&NBRCURRCD) VALUE( 0 ) |
|
|
|
ENDDO |
|
|
|
|
|
|
|
|
ENDPGM: |
ENDPGM |
|
|