Format of EGL input message for IMS™ nonconversational message switch

When you use the transfer to transaction statement in an IMS™ nonconversational program, the optional record is passed as a message segment for an immediate program-to-program message switch. The following table shows the record layout:

Table 1. Format for nonconversational immediate message switch
Field Length in bytes Type of data Description
Segment length 2 Binary The length of the segment.
Reserved 2 Binary Reserved for IMS™.
IMS™ transaction name 8 Character The IMS™ transaction name for the EGL program.
Program data Variable Variable The fields defined for the EGL record.
The following example shows the COBOL definition for a working storage record passed via the message queue for an immediate program-to-program message switch. Keep in mind that PL/I requires a 4-byte length field rather than the 2-byte length field used for COBOL. Refer to the IMS/VS documentation for your system for additional information. The specific field names are used for illustrative purposes only; the actual field names might vary in the generated code.
01 CSP-APPL-WS-RECORD.
   05 CSP-IMS-SEG-LENGTH     PIC S9(4) COMP.
   05 CSP-ZZ                 PIC S9(4) COMP.
   05 CSP-IMS-TRANNAME       PIC X(8).
   05 CSP-APPL-WS-DATA.
      10 data-item-1         PIC ........................
      10 data-item-2         PIC ........................

Format of record for show statement

When you use the show statement in an IMS™ nonconversational program, the optional record is passed via the work database for a deferred program-to-program message switch. The following table shows the record layout:
01 CSP-APPL-WS-RECORD.
   05 CSP-APPL-WS-DATA.
      10 data-item-1         PIC ........................
      10 data-item-2         PIC ........................

For details on how to store and retrieve data from the work database, see "Using the EGL COBOL runtime work database for IMS/VS.