DCL SPCPTR .RECEIVER INIT(RECEIVER); DCL DD RECEIVER CHAR(2000); DCL DD RCV-BYTES-RETURNED BIN(4) DEF(RECEIVER) POS( 1); DCL DD RCV-BYTES-AVAILABLE BIN(4) DEF(RECEIVER) POS( 5); DCL DD RCV-USER-PROFILE CHAR(10) DEF(RECEIVER) POS( 9); DCL DD RCV-DATA CHAR(100) DEF(RECEIVER) POS(19); DCL SPCPTR .LENGTH INIT(LENGTH); DCL DD LENGTH BIN(4) INIT(2000); DCL SPCPTR .FORMAT INIT(FORMAT); DCL DD FORMAT CHAR(8) INIT("UPWD0100"); DCL SPCPTR .USER INIT(USER); DCL DD USER CHAR(10) INIT("LSVALGAARD"); DCL SPCPTR .ERROR INIT(ERROR); DCL DD ERROR BIN(4) INIT(0); DCL OL QSYRUPWD (.RECEIVER, .LENGTH, .FORMAT, .USER, .ERROR); CALLX .SEPT(5723), QSYRUPWD, *; CVTHC MSG-TEXT, RCV-DATA(1:35); CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE; RTX *; %INCLUDE SHOWMSG