The following sample COBOL File Description is used as input for the IMS/TM transactions in Creating XML Schemas and iWay Business Services.

PART_IN.cbl

01  PARTIN.
    05  MESSAGE                  PIC X(80)   VALUE SPACE.

PART_All_Out.cbl

01  PARTALL.
    05  FILL                     PIC X(3).
    05  RECTYPE                  PIC X(1).
    05  MESSAGE                  PIC X(76).

PART_Detail_Out.cbl

01  PARTDETAIL.
    05  FILL                     PIC X(3)   VALUE SPACE.
    05  RECTYPE                  PIC X(1)   VALUE SPACE.
    05  FILL1                    PIC X(22)  VALUE SPACE.
    05  PARTNUMBER               PIC X(12)  VALUE SPACE.
    05  FILL2                    PIC X(18)  VALUE SPACE.
    05  DESCRIPTION              PIC X(20)  VALUE SPACE.
    05  FILL3                    PIC X(26)  VALUE SPACE.
    05  PROCCODE                 PIC X(12)  VALUE SPACE.
    05  FILL4                    PIC X(18)  VALUE SPACE.
    05  INVCODE                  PIC X(8)   VALUE SPACE.
    05  FILL5                    PIC X(26)  VALUE SPACE.
    05  MAKEDEPT                 PIC X(12)  VALUE SPACE.
    05  FILL6                    PIC X(18)  VALUE SPACE.
    05  PREVNO                   PIC X(8)   VALUE SPACE.
    05  FILL7                    PIC X(26)  VALUE SPACE.
    05  MAKETIME                 PIC X(12)  VALUE SPACE.
    05  FILL8                    PIC X(18)  VALUE SPACE.
    05  CCODE                    PIC X(8)   VALUE SPACE.

PART_Error_Out.cbl

01  PARTERROR.
    05  FILL                     PIC X(3)   VALUE SPACE.
    05  RECTYPE                  PIC X(1)   VALUE SPACE.
    05  MESSAGE                  PIC X(46)  VALUE SPACE.