REXX/EDQ Output from IMS Type 2 Message Responses › Type 1 Response

Type 1 Response

In the case of output from a Type 1 command issued to the Type 2 API, the ADDRESS OPER command does the following:

• Creates a running PREFIX.n stem name for each text line.

  PREFIX.0 contains the total line count.

• If XML(YES)is specified, creates a corresponding stem variable for every text line, including those which may be considered as unnecessary, such as system information like the start time.
• Frames each line front and back with the identifying XML tags.

Specifying XML(NO) creates a considerably smaller number of REXX variables, consisting only of what would correspond to the output of an IMS operator command. No system information is included, and the XML framing tags are stripped off the front and back of each data line.

Example 1: /DIS ACT with XML(YES)

This example requests IMS to display the active IMS systems and create a REXX variable for each text line.

ADDRESS OPER "IMSPLEX(*) IMSID(svpa) COMMAND(/DIS ACT.) XML(YES)"

The following is a partial output sample. The actual data lines are identified by the XML tag <msg>.

IMSTYP2.0=30
IMSTYP2.1=<imsout>
IMSTYP2.2=<ctl>
IMSTYP2.3=<omname>OMTOM   </omname>
IMSTYP2.4=<xmlvsn>20  </xmlvsn>
IMSTYP2.5=<statime>2008.219 20:10:28.645491</statime>
IMSTYP2.6=<stotime>2008.219 20:10:28.646038</stotime>
IMSTYP2.7=<staseq>C2CE072AB2E7320A</staseq>
IMSTYP2.8=<stoseq>C2CE072AB3096B8B</stoseq>
IMSTYP2.9=<rc>00000000</rc>
IMSTYP2.10=<rsn>00000000</rsn>
IMSTYP2.11=</ctl>
IMSTYP2.12=<cmd>
IMSTYP2.13=<master>IMST    </master>
IMSTYP2.14=<userid>NESAS01 </userid>
IMSTYP2.15=<verb>DIS </verb>
IMSTYP2.16=<kwd>ACT             </kwd
IMSTYP2.17=<input>/DIS ACT</input>
IMSTYP2.18=</cmd>
IMSTYP2.19=<msgdata>
IMSTYP2.20=<msg>    REGID JOBNAME   TYPE  TRAN/STEP PROGRAM  </msg>
IMSTYP2.21=<msg>          JMPRGN    JMP   NONE</msg>
IMSTYP2.22=<msg>          MSGRGN    TP    NONE</msg>
IMSTYP2.23=<msg>          JBPRGN    JBP   NONE</msg>
IMSTYP2.24=<msg>          BATCHREG  BMP   NONE</msg>
IMSTYP2.25=<msg>          DBTRGN    DBT   NONE</msg>
IMSTYP2.26=<msg>          IMSTDBRC  DBRC                    </msg>
IMSTYP2.27=<msg>          IMSTDLI   DLS  </msg>
IMSTYP2.28=</mbr>
IMSTYP2.29=</msgdata>
IMSTYP2.30=</imsout>

Example 2: /DIS ACT with XML(NO)

A similar /DIS ACT command with XML set to NO. The member name is returned as prefix.1.

IMSTYP2.0=10
IMSTYP2.1="SVPA    "
IMSTYP2.2=    REGID JOBNAME   TYPE  TRAN/STEP PROGRAM  STATUS      CLASS
IMSTYP2.3=        4 SVD10M11  TP                       WAITING       1
IMSTYP2.4=          JMPRGN    JMP   NONE
IMSTYP2.5=          JBPRGN    JBP   NONE
IMSTYP2.6=          BATCHREG  BMP   NONE
IMSTYP2.7=        3 SVD10F11  FPM   NO MSG.   DFSIVP4
IMSTYP2.8=        1 SVD10F13  FPM   NO MSG.   DBFSAMP3
IMSTYP2.9=        2 SVD10F12  FPM   NO MSG.   DFSIVP5
IMSTYP2.10=         DBTRGN    DBT   NONE