CALCULATING A REMAINDER IN CL (From Search400)

jj8610

PGM

   DCL VAR(&A)      TYPE(*DEC) LEN(2 0) VALUE(25)
   DCL VAR(&B)      TYPE(*DEC) LEN(2 0) VALUE(7)
   DCL VAR(&RESULT) TYPE(*DEC) LEN(2 0)
   DCL VAR(&WORK)   TYPE(*DEC) LEN(2 0)
   DCL VAR(&REM)    TYPE(*DEC) LEN(2 0)
   DCL VAR(&CHAR1)  TYPE(*CHAR) LEN(2)
   DCL VAR(&CHAR2)  TYPE(*CHAR) LEN(2)

   CHGVAR VAR(&RESULT) VALUE(&A / &B)

   CHGVAR VAR(&WORK) VALUE(&RESULT * &B)
   CHGVAR VAR(&REM)  VALUE(&A - &WORK)

   CHGVAR VAR(&CHAR1) VALUE(&RESULT)
   CHGVAR VAR(&CHAR2) VALUE(&REM)

   SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG) +
             MSGDTA('25 / 7 IS' *BCAT &CHAR1 *BCAT 'WITH A +
             REMAINDER OF' *BCAT &CHAR2) +
             TOPGMQ(*PRV) MSGTYPE(*COMP)
ENDPGM