• Subject: RE: How to determine process group (P05, P20, etc)??
  • From: Kevin Wright <Kevin.Wright@xxxxxxxxxxxx>
  • Date: Thu, 4 Jan 2001 09:58:23 +1100

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
+---

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].