Host Environment Commands › ADDRESS OPSDYNAM Commands › Keywords Common to All ADDRESS OPSDYNAM Commands

Keywords Common to All ADDRESS OPSDYNAM Commands

The following optional keywords are shared by OPSDYNAM host commands:

CMDRESP(type)

Defines the type of response desired from the request. Possible values are:

• TERMINAL-Issues any error message to the TSO terminal.
• NOWHERE-Does not issue any execution error messages. Syntax error messages are still issued.
• XDQ-Puts the messages in the REXX external data queue
• CLIST/REXX-Sets the following result variables:
  • OPSIFCD = SVC99 INFO CODE
  • OPSERCD = SVC99 ERROR CODE
  • OPSMSCD = SMS reason code
  • OPSDSN = DSNAME (INFO request)
  • OPSDSORG = DSORG (INFO request)
  • OPSVOL = VOLUME (ALLOC/INFO request)
  • OPSMEMBER = Member name (INFO request)
  • OPSDISP = Data set status (INFO request)
  • OPSSTORCLAS = Storage class (INFO request)
  • OPSMGMTCLAS = Management class (INFO request)
  • OPSDATACLAS = Data class (INFO request)
  • OPSAVGREC = Allocation unit (INFO request)
  • OPSDSNTYPE = Data set type (INFO request)
  • OPSPATHOPTS = z/OS UNIX file options (INFO request)
  • OPSPATHMODE = z/OS UNIX file access attributes (INFO request)
  • OPSFILEDATA = z/OS UNIX file organization (INFO request)

Default: REXX

DELAY(seconds)

Defines the number of seconds to wait before issuing the OPSDYNAM request. The maximum time for delay is 300 seconds.

Default: 0.

MSG(ON|OFF)

Indicates whether dynamic allocation failure messages (DAIRFAIL) are to be generated. These messages indicate the reason for the failure. Possible values are:

• ON-Generates failure messages. The default for CMDRESP(TERMINAL|XDQ) is ON.
• OFF-Does not generate failure messages. The default for CMDRESP(NOWHERE|REXX|CLIST) is OFF.

Example: Common Keywords

The following shows the common ADDRESS OPSDYNAM keywords:

address OPSDYNAM
  /*Allocate an existing data set */
  “Allocate DD(oldrule) DSN('sys1.old.rules') Shr Reuse"
  if RC > 0 then signal DYNERROR
  /* Display information about the allocation */
  “Info DD(oldrule)"
  if RC > 0 then signal DYNERROR
  say "DDname" opsdd "allocated to "opsdsn "is dsorg" opsdsorg
  /* Allocate a new rules pds data set */
  “Allocate DD(newrule) DSN('sys1.new.rules') New Catlg" ,
   “Like('opsdev.o.rules') Recfm(FB) Block(3120)  Space(100,100,40)"
  if RC > 0 then signal DYNERROR
  say “New rule data set allocated on" opsvol
  /* Temporarily concatenate the data sets to the oldrule DD name */
  “Concat DD(oldrule newrule)"
  if RC > 0 then signal DYNERROR
  /* Remove the concatenation and restore the original DD names */
  “Deconcat DD(oldrule)"
  if RC > 0 then signal DYNERROR
  /* Free and unallocate the files */
  “Free DD(oldrule,newrule)"
  if RC > 0 then signal DYNERROR
return 0

DYNERROR:
  say SOURCELINE(sigl-1)
  say “OPSDYNAM error RC="rc “Error code="opsercd “Info code="opsifcd ,
       “SMS reason code=”opsmscd
  do while QUEUED() > 0
    pull errmsg
    say errmsg
  end
return RC