|
Hi, Here is some CL that does it on V4R2M0: PGM DCL VAR(&RESULT) TYPE(*CHAR) LEN(64) DCL VAR(&RSTLEN) TYPE(*CHAR) LEN(4) DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8) VALUE('PRDR0100') DCL VAR(&OSINFO) TYPE(*CHAR) LEN(27) + VALUE('*OPSYS *CUR 0000*CODE ') DCL VAR(&ERRCDE) TYPE(*CHAR) LEN(4) DCL VAR(&RCVR) TYPE(*CHAR) LEN(64) DCL VAR(&RCVRLEN) TYPE(*CHAR) LEN(4) + VALUE(X'00000040') DCL VAR(&RCVRFMT) TYPE(*CHAR) LEN(8) + VALUE(LICR0200) DCL VAR(&PRDID) TYPE(*CHAR) LEN(17) + VALUE(' 5050') DCL VAR(&PRDFMT) TYPE(*CHAR) LEN(8) + VALUE(LICP0100) DCL VAR(&EC) TYPE(*CHAR) LEN(4) + VALUE(X'00000000') DCL VAR(&PRCGRP) TYPE(*CHAR) LEN(64) CHGVAR VAR(%BIN(&RSTLEN 1 4)) VALUE(64) CHGVAR VAR(%BIN(&ERRCDE 1 4)) VALUE(0) CALL PGM(QSYS/QSZRTVPR) PARM(&RESULT &RSTLEN + &FORMAT &OSINFO &ERRCDE) CHGVAR VAR(%SST(&PRDID 1 13)) VALUE(%SST(&RESULT 13 + 13)) CALL PGM(QLZARTV) PARM(&RCVR &RCVRLEN &RCVRFMT + &PRDID &PRDFMT &EC) CHGVAR VAR(&PRCGRP) VALUE(%SST(&RCVR 48 3)) SNDMSG MSG(&PRCGRP) TOUSR(QSYSOPR) ENDPGM HTH, Kevin Wright. > -----Original Message----- > From: Shea, David [mailto:DShea@arctools.com] > Sent: Thursday, 4 January 2001 9:10 > To: 'MIDRANGE-L@midrange.com' > Subject: RE: How to determine process group (P05, P20, etc)?? > > > I found a message in the archives from Phil Hall on 9/22/99 > regarding some C > source code that he had posted in the Example section of > Midrange.com . I > can't find the 'examples' section. Can anyone help? > > <snip from Phil> > I think my source for doing this is still on > www.midrange.com, David put it > in his examples section... > > --phil > <snip> > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to > MIDRANGE-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.