Interaction with IMS automation

The following example shows how to use the INGIMS of IMS automation to start and stop databases in IMS. The INGIMS command allows you to perform IMS MTO commands on any IMS in the system.

Other IMS commands could be imbedded into IMSCMD and incorporated in NetView CLISTs you write yourself, using similar logic to that shown in the EVJERUX4 and EVJERUX5 CLISTs supplied with the samples. If IMS automation is not installed, then you can perform similar function by replying to the outstanding reply ID of the IMS you wish to communicate with from a NetView CLIST you write yourself. First, you will need these requests:

UXIMSSDB: Requests to start a database.
UXIMSPDB: Requests to stop a database.

The example selects the CLIST names EVJERUX4 and EVJERUX5. Using these names, the format of the CMD attributes of the OPCACMD entry (see OPCACMD) is as follows::

Figure 1. OPCACMD Entry for Interaction with IMS

 Action   Keyword/Data(partial)
 ________ CMD
          (UXIMSSDB,,'EVJERUX4 &EHKVAR1')

 ________ CMD
          (UXIMSPDB,,'EVJERUX5 EHKVAR1')

Figure 2 shows the TWS definition of the operation text and other fields.

Figure 2. Defining Sample IMS Application in TWS

 --------------------------------- OPERATIONS ---------------------  ROW 1 OF 1
 Command ===>                                                  Scroll ===> PAGE

 Enter/Change data in the rows, and/or enter any of the following
 row commands:
 I(nn) - Insert, R(nn),RR(nn) - Repeat, D(nn),DD - Delete
 S - Select operation details
 Enter the PRED command above to include predecessors in this lis
 enter the GRAPH command to view the list graphically.

 Application            : CUSTMAINT        Customer DB update

 Row  Oper      Duration Job name  Operation text
 cmd  ws   no.  HH.MM
 '''' NV01 020   0.02    DUMMY___  UXIMSSDB IMS05Z_________

The parameters of the request are the IMS subsystem name and the database name. The REXX code of EVJRUX4 and EVJERUX5 is supplied in the samples.