Retrieve partition ID

The submitted RPG code retrieves the number of partions and the partition ID. Partition IDs start at zero. The pgm calls API QWCRSSTS. There is a great deal of system statistical information that is available using this API.

James Greene

Published: 01 Feb 2007

The submitted RPG code retrieves the number of partions and the partition ID. Partition IDs start at zero. The pgm calls API QWCRSSTS. There is a great deal of system statistical information that is available using this API. If you're interested, I have and will share a pgm that retrieves most of what is available and places info into a file.

Step 2 of 2:

You forgot to provide an Email Address.

This email address doesn’t appear to be valid.

This email address is already registered. Please login.

You have exceeded the maximum character limit.

Please provide a Corporate E-mail Address.
- I agree to TechTarget’s Terms of Use, Privacy Policy, and the transfer of my information to the United States for processing to provide me with relevant information as described in our Privacy Policy.
Please check the box if you want to proceed.
- I agree to my information being processed by TechTarget and its Partners to contact me via phone, email, or other means regarding information relevant to my professional interests. I may unsubscribe at any time.
Please check the box if you want to proceed.

               
d returndata      s           2560

d datalength      s              4b 0 inz(2560)              
d rcdfmt          s              8    inz('SSTS0200')        
d x               s              5  0                        
d errorcode       s             10                           
d resetstatus     s             10    inz('*NO')             
d s0200           ds                  inz                    
d status0200              1    256                           
d partitions             77     80b 0                        
d partitionid            81     84b 0                        
c                   call      'QWCRSSTS'                     
c                   parm                    returndata       
c                   parm                    datalength       
c                   parm                    rcdfmt           
c                   parm                    resetstatus      
c                   parm                    errorcode        
c                   eval      s0200 = %subst(returndata:1:131)
c     partitions    dsply                                    
c     partitionid   dsply                                    
c                   eval      *inlr = *on