PowerExchange for CDC and Mainframe
- PowerExchange for CDC and Mainframe 10.4.0 HotFix 1
- All Products
PGM PARM(&NBRFLDS &RC &MSGBUFF &MSGBUFFSZ &TEXT &TEXTLEN &NUM &NUMLEN) /*----------------------------------------------------------------*/ /* ARGUMENTS */ /*----------------------------------------------------------------*/ DCL VAR(&NBRFLDS) TYPE(*CHAR) LEN(4) DCL VAR(&RC) TYPE(*CHAR) LEN(4) DCL VAR(&MSGBUFF) TYPE(*CHAR) LEN(128) DCL VAR(&MSGBUFFSZ) TYPE(*CHAR) LEN(4) DCL VAR(&TEXT) TYPE(*CHAR) LEN(15) DCL VAR(&TEXTLEN) TYPE(*CHAR) LEN(4) DCL VAR(&NUM) TYPE(*CHAR) LEN(4) DCL VAR(&NUMLEN) TYPE(*CHAR) LEN(4)
CHGVAR VAR(&DECTEXTLEN) VALUE(%BIN(&TEXTLEN 1 4))
CHGVAR VAR(%BINARY(&TEXTLEN)) VALUE(&DECTEXTLEN)