/* 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'
;