01 UR-ACTION PIC X(32760).
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(05) COMP.
03 UR-LEN PIC S9(05) COMP.
03 UR-TYPE PIC X(01).
03 UR-INT PIC S9(03) COMP.
03 UR-DEC PIC S9(03) COMP.
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(04) COMP.
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(05) COMP.
05 UR-P-LEN PIC S9(05) COMP.
05 UR-P-TYPE PIC X(01).
05 UR-P-INT PIC S9(03) COMP.
05 UR-P-DEC PIC S9(03) COMP.
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(03) COMP.
03 UR-OUT-FLDINT PIC S9(03) COMP.
03 UR-OUT-FLDDEC PIC S9(03) COMP.
03 UR-OUT-FLDSIGN PIC X(01).
*
03 UR-RETCODE PIC X(02).
*
03 UR-MSG-CODE PIC X(07).
03 UR-MSG-PARM PIC X(128).
03 UR-OUT-TYPE PIC X(01).
*
03 UR-DESCR PIC X(80).