Patrick At 07:29 AM 10/24/97 +0000, you wrote: >Thanx. Here's my version and it doesn't work. I get all zeroes at >position 878. I pass it QPADEV0001 which telneting to my system. Help. > > PGM PARM(&DEVD &IP) > DCL VAR(&DEVD) TYPE(*CHAR) LEN(10) > DCL VAR(&IP) TYPE(*CHAR) LEN(15) > DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(892) > DCL VAR(&LENGTH) TYPE(*CHAR) LEN(4) > DCL VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4) > CHGVAR VAR(%BIN(&LENGTH)) VALUE(892) > CHGVAR VAR(%BIN(&ERRLENGTH)) VALUE(0) > CALL PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH DEVD0600 &DEVD > &ERRLENGTH) > CHGVAR VAR(&IP) VALUE(%SST(&RECEIVER 878 15)) >SNDPGMMSG &RECEIVER >SNDPGMMSG &IP > ENDPGM Well, that looks exactly the same. I wonder if you have the necessary PTF's installed that activate this feature. The recent message from Jeffrey Stevens lists them. Cheers Vernon Hamberg Systems Software Programmer Old Republic National Title Insurance Company 400 Second Avenue South Minneapolis, MN 55401 (612) 371-1111 x480 +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to "MIDRANGE-L@midrange.com". | To unsubscribe from this list send email to MAJORDOMO@midrange.com | and specify 'unsubscribe MIDRANGE-L' in the body of your message. | Questions should be directed to the list owner/operator: firstname.lastname@example.org +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.