/* INFILE PAYMENT-FILE  */
   INPUT
      @1          MNTHPYNT  PD5.2
      @61         FIRST     $CHAR30.
      @91         MIZ       $CHAR1.
      @92         LAST      $CHAR30.
      @122        ADDRESS   $CHAR80.
      @202        LSTAMPD   PD4.2
      @206        PYMNT_DT  $CHAR6.
      @212        RMNNBLNC  PD4.2
      ;

   /* INFILE USAGE-FILE  */
   INPUT
      @1          USG_A     PD1.0
      @2          USG_B     ZD1.0
      @3          USG_C     IB2.0
      @5          USG_D     RB4.
      @9          USG_E     RB8.
      @17         USG_F     ZD1.0
      @18         USG_G     PD1.0
      ;

   /* INFILE SALES-FILE  */
   INPUT
      @1          X5_X5     $CHAR5.
      @6          XXXXXXXX  $CHAR5.
      @11         DPTIN89   $CHAR3.
      @14         PROD_IN1  ZD18.0
      @32         PRODIN11  ZD18.0
      @50         PRDIN111  ZD17.8
      @67         PRODIN22  ZDB18.0
      @85         PRDIN222  ZDB17.8
      @102        PROD_IN2  ZD4.0
      @106        DSCRIN3   $CHAR20.
      @126        QTY_IN4   ZD3.0
      @129        SLSIN4A   ZD10.5
      @139        SALESIN5  IB2.0
      @141        SLSIN5A   IB4.0
      @145        SLSIN5B   IB8.0
      @153        SLSIN5C   IB8.5
      @161        SALESIN6  RB4.
      @165        SALESIN7  RB8.
      @173        SALESIN8  PD6.5
      @179        SALESIN9  IB8.5
      @187        DDTA      $CHAR1.
      ;

   /* INFILE REDEF1  */
   INPUT
      @1          RDF1_A    ZD4.2
      @1          RDF1_B    ZD4.0
      @5          RDF1_D    ZD2.1
      @7          RDF1_E    ZD2.1
      @5          RDF1_G    ZD2.0
      @7          RDF1_H    ZD2.0
      @9          RDF1_I    ZD4.2
      @9          RDF1_K    ZD2.0
      @11         RDF1_L    ZD2.0
      @13         RDF1_N    ZD2.0
      @15         RDF1_O    ZD2.0
      @13         RDF1_P    ZD4.2
      @17         RDFLSZTM  RB4.
      @21         RDFLSYTM  RB8.
      ;

   /* INFILE REDEF2  */
   INPUT
      @1          RDF2_A    ZD4.2
      @1          RDF2_B    ZD2.0
      @5          RDF2_D    ZD2.1
      @7          RDF2_E    ZD2.1
      @5          RDF2_G    ZD1.0
      @6          RDF2_H    ZD1.0
      @9          RDF2_I    ZD4.2
      @9          RDF2_K    ZD1.0
      @10         RDF2_L    ZD1.0
      @13         RDF2_N    ZD2.0
      @15         RDF2_O    ZD2.0
      @13         RDF2_P    ZD2.1
      @17         RDFLSXTM  IB2.0
      @19         RDFLSWTM  IB2.0
      ;

   /* INFILE MULTRDF1  */
   INPUT
      @1          MRDF_A    ZD4.2
      @1          MRDF_C    ZD1.0
      @2          MRDF_D    ZD1.0
      @1          MRDF_E    ZD2.0
      @5          MRDF_G    PD4.2
      @9          MRDF_H    PD4.3
      @21         MRDF_I    ZD4.2
      @21         MRDF_J    ZD2.0
      @21         MRDF_L    ZD1.0
      @22         MRDF_M    ZD1.0
      @25         MRDF_N    IB2.0
      @27         MRDF_O    RB4.
      ;

   /* INFILE IMP-RDF  */
   INPUT
      @1          IMPRDFA1  ZD4.0
      @5          IMPRDFC1  ZD2.0
      @7          IMPRDFD1  ZD2.0
      @9          IMPRDFE1  RB4.
      @13         IMPRDFF1  RB4.
      ;

   /* INFILE IMP-RDF  */
   INPUT
      @1          IMPRC2    RB4.
      @5          IMPRDFA2  RB4.
      @9          IMPRDFB2  RB4.
      @13         IMPRDFC2  RB4.
      ;

   /* INFILE STUDENT-FILE  */
   INPUT
      @1          STDNNZBR  $CHAR9.
      @14         LASTNZME  $CHAR42.
      @56         FRST_NMZ  $CHAR21.
      @77         MIY       $CHAR1.
      @80         DOB       PD3.0
      @85         CLASS     $CHAR2.
      @87         GRADDATE  PD4.0
      @98         Q1CLASS1  PD5.2
      @103        Q1CLASS2  PD5.2
      @115        Q2CLASS1  PD5.2
      @120        Q2CLASS2  PD5.2
      @132        Q3CLASS1  PD5.2
      @137        Q3CLASS2  PD5.2
      @149        Q4CLASS1  PD5.2
      @154        Q4CLASS2  PD5.2
      ;

   /* INFILE SORT-BY-NAME-FILE  */
   INPUT
      @1          LASTNYME  $CHAR42.
      @43         FRST_NMY  $CHAR21.
      @68         STDNNYBR  $CHAR9.
      ;

   /* INFILE LEVEL-FILE  */
   INPUT
      @1          LVL1ITM   ZD2.0
      @3          LVL7ITM   ZD2.0
      @5          LVL9ITMA  ZD1.0
      @14         LVL9ITMB  ZD1.0
      @15         LVL5RCRD  RB8.
      @23         LVL10ITM  RB8.
      @31         LVL20ITM  RB8.
      @39         LVL2ITM   ZD2.0
      @41         LVL4ITM   PD2.0
      @43         LVL6ITM   IB2.0
      @45         LVL3ITM   ZD2.0
      ;

   /* INFILE IMPLIED-FILLER-FILE  */
   INPUT
      @9          EXPFL1    ZD1.0
      ;

   /* INFILE VALUE-88-66-FILE  */
   INPUT
      @1          TRF_DRTN  PD4.3
      @5          TRFQTMN   PD3.0
      @8          TR60SCND  PD2.0
      @10         TR30SCND  PD2.0
      @12         TR12SCND  PD2.0
      @14         TR06SCND  PD2.0
      @16         TR01SCND  PD2.0
      ;

   /* INFILE ANY-STYLE  */
   INPUT
      @1          FREE_1    ZD2.0
      @3          FREE_2    $CHAR80.
      @83         FREE_4    PD2.1
      @85         FREE_5    ZD3.1
      @88         FREE_6    ZD4.2
      @92         FREE_8    ZD1.0
      @93         FREE_9    ZD1.0
      @94         FREE_10   ZD1.0
      ;


   /* INFILE PAYMENT-FILE  */
   LABEL
      MNTHPYNT = 'MONTHLY-PAYMENT'
      FIRST    = 'FIRST'
      MIZ      = 'MI'
      LAST     = 'LAST'
      ADDRESS  = 'ADDRESS'
      LSTAMPD  = 'LAST-AMOUNT-PAID'
      PYMNT_DT = 'PAYMENT-DATE'
      RMNNBLNC = 'REMAINING-BALANCE'
      ;

   /* INFILE USAGE-FILE  */
   LABEL
      USG_A    = 'USG-A'
      USG_B    = 'USG-B'
      USG_C    = 'USG-C'
      USG_D    = 'USG-D'
      USG_E    = 'USG-E'
      USG_F    = 'USG-F'
      USG_G    = 'USG-G'
      ;

   /* INFILE SALES-FILE  */
   LABEL
      X5_X5    = 'X5-X5'
      XXXXXXXX = 'XXXXX-XXXXX'
      DPTIN89  = 'DEPT-IN123456789'
      PROD_IN1 = 'PROD-IN1'
      PRODIN11 = 'PROD-IN11'
      PRDIN111 = 'PROD-IN111'
      PRODIN22 = 'PROD-IN22'
      PRDIN222 = 'PROD-IN222'
      PROD_IN2 = 'PROD-IN2'
      DSCRIN3  = 'DESCRIPT-IN3'
      QTY_IN4  = 'QTY-IN4'
      SLSIN4A  = 'SALES-IN4-A'
      SALESIN5 = 'SALES-IN5'
      SLSIN5A  = 'SALES-IN5-A'
      SLSIN5B  = 'SALES-IN5-B'
      SLSIN5C  = 'SALES-IN5-C'
      SALESIN6 = 'SALES-IN6'
      SALESIN7 = 'SALES-IN7'
      SALESIN8 = 'SALES-IN8'
      SALESIN9 = 'SALES-IN9'
      DDTA     = 'DDTA'
      ;

   /* INFILE REDEF1  */
   LABEL
      RDF1_A   = 'RDF1-A'
      RDF1_B   = 'RDF1-B'
      RDF1_D   = 'RDF1-D'
      RDF1_E   = 'RDF1-E'
      RDF1_G   = 'RDF1-G'
      RDF1_H   = 'RDF1-H'
      RDF1_I   = 'RDF1-I'
      RDF1_K   = 'RDF1-K'
      RDF1_L   = 'RDF1-L'
      RDF1_N   = 'RDF1-N'
      RDF1_O   = 'RDF1-O'
      RDF1_P   = 'RDF1-P'
      RDFLSZTM = 'RDF1-LAST-ITEM'
      RDFLSYTM = 'RDF1-LAST-ITEM'
      ;

   /* INFILE REDEF2  */
   LABEL
      RDF2_A   = 'RDF2-A'
      RDF2_B   = 'RDF2-B'
      RDF2_D   = 'RDF2-D'
      RDF2_E   = 'RDF2-E'
      RDF2_G   = 'RDF2-G'
      RDF2_H   = 'RDF2-H'
      RDF2_I   = 'RDF2-I'
      RDF2_K   = 'RDF2-K'
      RDF2_L   = 'RDF2-L'
      RDF2_N   = 'RDF2-N'
      RDF2_O   = 'RDF2-O'
      RDF2_P   = 'RDF2-P'
      RDFLSXTM = 'RDF2-LAST-ITEM'
      RDFLSWTM = 'RDF2-LAST-ITEM'
      ;

   /* INFILE MULTRDF1  */
   LABEL
      MRDF_A   = 'MRDF-A'
      MRDF_C   = 'MRDF-C'
      MRDF_D   = 'MRDF-D'
      MRDF_E   = 'MRDF-E'
      MRDF_G   = 'MRDF-G'
      MRDF_H   = 'MRDF-H'
      MRDF_I   = 'MRDF-I'
      MRDF_J   = 'MRDF-J'
      MRDF_L   = 'MRDF-L'
      MRDF_M   = 'MRDF-M'
      MRDF_N   = 'MRDF-N'
      MRDF_O   = 'MRDF-O'
      ;

   /* INFILE IMP-RDF  */
   LABEL
      IMPRDFA1 = 'IMPRDF-A1'
      IMPRDFC1 = 'IMPRDF-C1'
      IMPRDFD1 = 'IMPRDF-D1'
      IMPRDFE1 = 'IMPRDF-E1'
      IMPRDFF1 = 'IMPRDF-F1'
      ;

   /* INFILE IMP-RDF  */
   LABEL
      IMPRC2   = 'IMPRDF-RECORD-2'
      IMPRDFA2 = 'IMPRDF-A2'
      IMPRDFB2 = 'IMPRDF-B2'
      IMPRDFC2 = 'IMPRDF-C2'
      ;

   /* INFILE STUDENT-FILE  */
   LABEL
      STDNNZBR = 'STUDENT-NUMBER'
      LASTNZME = 'LAST-NAME'
      FRST_NMZ = 'FIRST-NAME'
      MIY      = 'MI'
      DOB      = 'DOB'
      CLASS    = 'CLASS'
      GRADDATE = 'GRAD-DATE'
      Q1CLASS1 = 'Q1-CLASS1'
      Q1CLASS2 = 'Q1-CLASS2'
      Q2CLASS1 = 'Q2-CLASS1'
      Q2CLASS2 = 'Q2-CLASS2'
      Q3CLASS1 = 'Q3-CLASS1'
      Q3CLASS2 = 'Q3-CLASS2'
      Q4CLASS1 = 'Q4-CLASS1'
      Q4CLASS2 = 'Q4-CLASS2'
      ;

   /* INFILE SORT-BY-NAME-FILE  */
   LABEL
      LASTNYME = 'LAST-NAME'
      FRST_NMY = 'FIRST-NAME'
      STDNNYBR = 'STUDENT-NUMBER'
      ;

   /* INFILE LEVEL-FILE  */
   LABEL
      LVL1ITM  = 'LEVEL-1-ITEM'
      LVL7ITM  = 'LEVEL-7-ITEM'
      LVL9ITMA = 'LEVEL-9-ITEM-A'
      LVL9ITMB = 'LEVEL-9-ITEM-B'
      LVL5RCRD = 'LEVEL-5-RECORD'
      LVL10ITM = 'LEVEL-10-ITEM'
      LVL20ITM = 'LEVEL-20-ITEM'
      LVL2ITM  = 'LEVEL-2-ITEM'
      LVL4ITM  = 'LEVEL-4-ITEM'
      LVL6ITM  = 'LEVEL-6-ITEM'
      LVL3ITM  = 'LEVEL-3-ITEM'
      ;

   /* INFILE IMPLIED-FILLER-FILE  */
   LABEL
      EXPFL1   = 'EXPLICIT-FIELD-1'
      ;

   /* INFILE VALUE-88-66-FILE  */
   LABEL
      TRF_DRTN = 'TRF-DURATION'
      TRFQTMN  = 'TRF-QUOT-MIN'
      TR60SCND = 'TRF-60-SEC-RND'
      TR30SCND = 'TRF-30-SEC-RND'
      TR12SCND = 'TRF-12-SEC-RND'
      TR06SCND = 'TRF-06-SEC-RND'
      TR01SCND = 'TRF-01-SEC-RND'
      ;

   /* INFILE ANY-STYLE  */
   LABEL
      FREE_1   = 'FREE-1'
      FREE_2   = 'FREE-2'
      FREE_4   = 'FREE-4'
      FREE_5   = 'FREE-5'
      FREE_6   = 'FREE-6'
      FREE_8   = 'FREE-8'
      FREE_9   = 'FREE-9'
      FREE_10  = 'FREE-10'
      ;