A.2.1. Data Express for z/OS

      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).