PGM
DCL &MASK *CHAR 256
DCL &EDITED *CHAR 256
DCL &MSKLEN *CHAR 4
DCL &RCVLEN *CHAR 4
DCL &INTLEN *CHAR 4
DCL &DECLEN *CHAR 4
DCL &ZEROSP *CHAR 1 ' '
DCL &EDITCD *CHAR 1 '4'
DCL &SYMBOL *CHAR 1 ' '
DCL &EDTCLS *CHAR 10 '*ZONED '
DCL &ERROR *CHAR 116
DCL &EDIT *CHAR 30 '000000000000000000000000123456'
CHGVAR %BIN(&INTLEN) 30
CHGVAR %BIN(&DECLEN) 0
CALL QECCVTEC ( &MASK &MSKLEN &RCVLEN &ZEROSP &EDITCD &SYMBOL +
&INTLEN &DECLEN &ERROR )
IF ( %BIN(&ERROR 5 4 ) *NE 0) RETURN
CALL QECEDT ( &EDITED &RCVLEN &EDIT &EDTCLS &INTLEN &MASK +
&MSKLEN &ZEROSP &ERROR )
IF ( %BIN(&ERROR 5 4 ) *NE 0) RETURN
SNDPGMMSG &EDITED
RETURN
ENDPGM
|