OPS/REXX Built-in Functions › OPSPRM Function › Examples: OPSPRM

Examples: OPSPRM

These examples will give you a better understanding of the OPSPRM function:

• To display parameter OSFCPU, invoke the OPSPRM function as follows:

  RetCode = opsprm('SHOW','OSFCPU','INFO','NAMES')
  do while queued() ^= 0
    pull d
    say 'data' d 
  end
  

  In response, the following information is displayed:

  OSF MAXIMUM CPU TIME PER TSO COMMAND            15 SECONDS   
  OSFCPU                                          Y OSFPARMS   
  MINIMUM POSSIBLE VALUE                          1 SECONDS    
  MAXIMUM POSSIBLE VALUE                          604800 SECONDS
  

• To set parameter OSFCPU, invoke the OPSPRM function as follows. Note that no data is returned to the EDQ if the OPSPRM function returns a value of 0.

  RetCode = opsprm('set','OSFCPU','16')
  

• To display the address of module OPITQWFU, invoke the OPSPRM function as follows:

  RetCode = OPSPRM("SHOW","OPITQWFU")
  say "OPSPRM() return code is:" RetCode
  do while QUEUED() <> 0
    pull Data
    say Data
  End
  

  In response, the following information is displayed:

  OPS1000I OPSPRM() return code is:      0
  OPS1000I ADDRESS OF MODULE OPITQWFU X'051AC000'
  

• To display the address of a module with information and name, invoke OPSPRM as follows:

  RetCode = OPSPRM("SHOW","OPITQWFU","INFO","NAMES")
  do while QUEUED() > 0
    pull data
    say data
  end
  

  In response, the following information is displayed:

  ADDRESS OF MODULE OPITQWFU                         X'1C3E2000' 
  OPITQWFU                                           N PRODMODULES
  MODULE ORIGINAL ADDRESS                            X'1C3E2000' 
  MODULE FINAL ADDRESS                               X'1C3E2000' 
  MODULE VECTOR TABLE ENTRY ADDRESS                  X'0CE78A30' 
  MODULE SIZE                                        6872 BYTES  
  MODULE ORIGINAL LOCATION                           EPRIVATE    
  MODULE FINAL LOCATION                              EPRIVATE    
  MODULE PROTECT KEY                                 CODE (2)    
  MODULE AMODE                                       31          
  MODULE VERSION                                     11.00.00    
  MODULE PROGRAMMER NAME                             OPSASM      
  MODULE ASSEMBLY DATE                               07/21/03    
  MODULE ASSEMBLY TIME                               21.50       
  MODULE IS ELIGIBLE FOR RELOAD                      YES