CICS API Option

Edit online

To use the sample program, you must first change DGAQ247 to issue a valid SIGNON command for your environment (the SIGNON command is defined near the end of the source module). Include a valid USERID, PASSWORD, and NODE. Before executing this program as a transaction, you must be signed on to CICS. Also observe the following items.

  • Assemble DGAQM98 and then DGAQ247. Sample JCL is in the $CD.SDGASAMP. Assemble DGAQM98 and DGAQ247 as follows:
    • Use member DGAXASMB to assemble DGAQM98
    • Use member DGAXASMC to assemble DGAQ247
  • Use the IBM® Connect:Direct® Administrative (DGAA) transaction to verify that the CICS Interface and the appropriate node are both active.
  • Use transaction DGAN to display DGAQM98.

    The program checks for the presence of a communications area in the Exec Interface Block (EIB). If none is present, or if you press the Clear key, the DGAQM98 map is sent and a RETURN TRANSID is performed to invoke the transaction again when you press Enter.

  • If you pressed the PF3 or PF15 key, the program terminates.
  • The DGAQM98 map is received. If you pressed PF5 or PF17, a IBM Connect:Direct SIGNON request is generated and the results of the command are presented in the map.
  • Following a successful signon (that is, the return code on DGAQM98 after the SIGNON is zero), you can type a valid IBM Connect:Direct command on the line provided in the DGAQM98 map and press PF6 or PF18 to send the command to the IBM Connect:Direct DTF. Command results are displayed when they are returned from the DTF.
  • To signoff from the DTF, press PF7 or PF19.

    When you type a command through the DGAQM98 screen, its length is determined and the address of the length and command are placed in the DGAQC12 communications area at label Q012CMDA. Program DGAQ012 is then invoked through an EXEC CICS LINK command. When control returns to DGAQ247, the DGAQC12 communications area contain the results of the command.

Note: The DGAQ247 does not display the results of the issued command stored in CICS temporary storage. Retrieve these records programmatically or view them using the CICS CEBR transaction.

Use the techniques in the DGAQ247 sample program to issue any valid IBM Connect:Direct command. Results of commands such as SELECT PROCESS and SELECT STATISTICS are written to CICS temporary storage; other commands may produce no output.