|
|
|
/* COPYRIGHT JÜRGEN REULE 2010-2023 */ |
|
|
|
|
|
|
|
|
PGM |
PARM(&MAN &RUB &MIT &PN &ART &AW) |
|
|
|
|
|
|
|
|
DCL |
VAR(&MAN) TYPE(*CHAR) LEN(1) |
|
|
|
DCL |
VAR(&RUB) TYPE(*DEC) LEN(10) |
|
|
|
DCL |
VAR(&MIT) TYPE(*DEC) LEN(10) |
|
|
|
DCL |
VAR(&PN) TYPE(*DEC) LEN(10) |
|
|
|
DCL |
VAR(&ART) TYPE(*DEC) LEN(10) |
|
|
|
DCL |
VAR(&AW) TYPE(*DEC) LEN(10) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(CPF0000) |
|
|
|
|
|
|
|
|
CALL |
PGM(STATISTIK2) PARM(RUBRIKP + |
|
|
|
|
RUMAN &MAN &RUB) |
|
|
|
CALL |
PGM(STATISTIK2) PARM(MITGLIEDP + |
|
|
|
|
MIMAN &MAN &MIT) |
|
|
|
CALL |
PGM(STATISTIK2) PARM(ARTIKELL9 + |
|
|
|
|
ARMAN &MAN &PN) |
|
|
|
CALL |
PGM(STATISTIK2) PARM(ARTIKELL4 + |
|
|
|
|
ARMAN &MAN &ART) |
|
|
|
CALL |
PGM(STATISTIK2) PARM(ANTWORTP + |
|
|
|
|
AWMAN &MAN &AW) |
|
|
|
|
|
|
|
ENDPGM: |
ENDPGM |
|
|