A.2.2. Data Express for Distributed Systems

01  UR-ACTION                   PIC  X(04).

       01  UR-FILE-INFO.
           03 UR-FILE-NAME             PIC  X(44).
           03 UR-FILE-TYPE             PIC  X(04).

       01  UR-RECORD                   PIC  X(32760).

       01  UR-FIELD.
           03 UR-INP-VAL               PIC  X(256).
           03 UR-POS                   PIC  S9(9) COMP-5.
           03 UR-LEN                   PIC  S9(9) COMP-5.
           03 UR-TYPE                  PIC  X(01).
           03 UR-INT                   PIC  S9(9) COMP-5.
           03 UR-DEC                   PIC  S9(9) COMP-5.
           03 UR-SIGN                  PIC  X(01).
           03 UR-NULL                  PIC  X(01).
           03 UR-VARCHAR               PIC  X(01).
           03 UR-INULL-VAL             PIC  X(01).
              88 UR-VAL-NULL           VALUE  X"6F".
           03 UR-OTHER-FIELDS-NBR      PIC  S9(4) COMP-5.

       01  UR-OTHER-FIELDS.
           03 OCCURS 50.
              05 UR-P-FILE-NAME        PIC  X(44).
              05 UR-P-FILE-TYPE        PIC  X(04).
              05 UR-P-INP-VAL          PIC  X(256).
              05 UR-P-POS              PIC  S9(9) COMP-5.
              05 UR-P-LEN              PIC  S9(9) COMP-5.
              05 UR-P-TYPE             PIC  X(01).
              05 UR-P-INT              PIC  S9(9) COMP-5.
              05 UR-P-DEC              PIC  S9(9) COMP-5.
              05 UR-P-SIGN             PIC  X(01).
              05 UR-P-NULL             PIC  X(01).
              05 UR-P-VARCHAR          PIC  X(01).
              05 UR-P-INULL-VAL        PIC  X(01).
                 88 UR-P-VAL-NULL      VALUE  X"6F".

       01 UR-OUTPUT.
           03 UR-OUT-VAL               PIC  X(256).
           03 UR-OUT-FLDTYPE           PIC  X(01).
           03 UR-OUT-FLDLEN            PIC  S9(9) COMP-5.
           03 UR-OUT-FLDINT            PIC  S9(9) COMP-5.
           03 UR-OUT-FLDDEC            PIC  S9(9) COMP-5.
           03 UR-OUT-FLDSIGN           PIC  X(01).
      *
           03 UR-RETCODE               PIC  X(02).
      *
           03 UR-MSG-CODE              PIC  X(08).
           03 UR-MSG-PARM              PIC  X(128).
           03 UR-OUT-TYPE              PIC  X(01).
      *
           03 UR-DESCR                 PIC  X(80).