Code: Select all
01 WS-OUTPUT-RECORD.
05 WS-OUTPUT-TYPE PIC 9(01).
05 WS-OUTPUT-SPACE PIC X(01).
05 WS-OUTPUT-DATA-0.
10 RPI00-TRACKS.
15 RPI00-FILE PIC X(03).
15 RPI00-PGM-ID PIC X(03).
15 RPI00-PGM-NBR PIC S9(03) COMP-3.
15 RPI00-TDATE PIC S9(07) COMP-3.
15 RPI00-TTIME PIC S9(07) COMP-3.
15 RPI00-TCRT PIC X(04).
15 RPI00-OPER.
20 RPI00-INIT PIC X(02).
20 RPI00-EMPNO PIC S9(06) COMP.
10 RPI01-ELEMENT.
13 RPI01-BASE.
15 RPI01-KEY.
20 RPI01-SD-CONTROL-NUM PIC 9(07) COMP-3.
20 RPI01-TRANS-KEY.
25 RPI01-COMPANY PIC 9(02).
25 RPI01-DATE PIC S9(07) COMP-3.
25 RPI01-LOC PIC 9(04).
25 RPI01-REG PIC 9(04).
25 RPI01-ROLL-TRANS.
30 RPI01-ROLL PIC 9(01).
30 RPI01-TRANS-NUM PIC 9(04).
25 RPI01-FULL-TRANS-NUM REDEFINES RPI01-ROLL-TRANS PIC 9(05).
20 RPI01-VERSION PIC 9(02).
20 RPI01-SD-ACTION-FLAG PIC X(01).
20 RPI01-SEQ PIC 9(03).
15 RPI01-DATA-COMMON-DATA.
20 RPI01-TYPE PIC 9(02).
20 RPI01-ADD-CHG-FLAG PIC X(01).
20 RPI01-RET-EXCH-ADJ-FLAG PIC X(01).
20 RPI01-SA-CONTROL-NUM PIC 9(09) COMP-3.
20 RPI01-TRAN-TYPE PIC 9(02).
15 RPI01-DATA.
20 RPI01-BALANCING-AMTS.
25 RPI01-REG-TOT PIC S9(09)V99 COMP-3.
25 RPI01-COMP-TOT PIC S9(09)V99 COMP-3.
25 RPI01-TENDER-TOT PIC S9(07)V99 COMP-3.
20 RPI01-HEADER-FLAGS.
25 RPI01-VOID-FLAG PIC X(01).
25 RPI01-ERROR-FLAG PIC X(01).
25 RPI01-EXCHG-FLAG PIC X(01).
25 RPI01-THERMAL-PRNT-FLG PIC X(01).
25 RPI01-NWACCT-SOLICIT PIC X(01).
25 RPI01-PARTIAL-FLAG PIC X(01).
25 RPI01-AW-REG-FLAG PIC X(01).
25 RPI01-CASH-FLAG PIC X(01).
25 RPI01-CHARGE-FLAG PIC X(01).
25 RPI01-THIRD-FLAG PIC X(01).
25 RPI01-OTHER-FLAG PIC X(01).
20 RPI01-LATE-DATE PIC S9(07) COMP-3.
20 RPI01-TRAN-HHMM PIC S9(05) COMP-3.
20 RPI01-RING-SPSN-NUM PIC S9(09) COMP-3.
20 RPI01-COMMISSION-SPSN PIC S9(09) COMP-3.
20 RPI01-SYS-AFFINITY-FLAG PIC X(01).
20 RPI01-DEF-BILLING-FLAG PIC X(01).
20 RPI01-SEND-FLAG PIC X(01).
20 RPI01-CPN-PRORATED-FLAG PIC X(01).
20 RPI01-SET-PRORATED-FLAG PIC X(01).
20 RPI01-CHECK-FLAG PIC X(01).
20 RPI01-NUM-ERRS PIC S9(02).
20 RPI01-NUM-LINE-ITEMS PIC S9(03) COMP-3.
20 RPI01-REG-QUAL-CODE PIC X(02).
10 FILLER PIC X(17).
05 WS-OUTPUT-DATA-1 REDEFINES WS-OUTPUT-DATA-0.
15 RPI01-DATA-2.
20 RPI01-VOID-BY-INFO.
25 RPI01-VOIDED-BY-LOC PIC 9(04).
25 RPI01-VOIDED-BY-REG PIC 9(04).
25 RPI01-VOIDED-BY-TRANS PIC 9(05).
25 RPI01-VOID-BY-AUDITOR.
30 RPI01-VOID-BY-INIT PIC X(02).
30 RPI01-VOID-BY-NUM PIC 9(06).
20 RPI01-POST-VOID-INFO REDEFINES RPI01-VOID-BY-INFO.
25 RPI01-VOID-LOC PIC 9(04).
25 RPI01-VOID-REG PIC 9(04).
25 RPI01-VOID-TRANS PIC 9(05).
25 RPI01-FILLER-3 PIC X(08).
20 RPI01-ORIG-RING-INFO.
25 RPI01-ORIG-LOC PIC 9(04).
25 RPI01-ORIG-REG PIC 9(04).
25 RPI01-ORIG-SPSN PIC S9(09) COMP-3.
25 RPI01-ORIG-TRANS PIC 9(05).
25 RPI01-ORIG-DATE PIC S9(09) COMP-3.
25 RPI01-ORIG-TIME PIC S9(05) COMP-3.
25 RPI01-ORIG-LOC-FLAG PIC X(01).
20 RPI01-CRU-ERROR-COUNT PIC 9(02).
20 RPI01-BT-SLSCHK-NUM PIC 9(09) COMP-3.
20 RPI01-VSAM-REC-KEY PIC X(10).
20 RPI01-CHANGE-REASON PIC 9(02).
20 RPI01-RET-ADJ-REASON PIC 9(02).
20 RPI01-SUB-TYPE PIC X(01).
20 RPI01-DISPLAY-TRAN-TYPE PIC 9(02).
20 RPI01-DOCUMENT1-NUM PIC S9(09) COMP-3.
20 RPI01-DOCUMENT2-NUM PIC S9(09) COMP-3.
20 RPI01-RDS-DEP-VERIFY-FLAG PIC X(01).
20 RPI01-REGISTER-ID PIC X(02).
20 RPI01-REQ-CODE PIC 9(02).
20 RPI01-ORIG-RINGING-LOC PIC 9(04).
20 RPI01-DOCUMENT3-NUM PIC S9(17) COMP-3.
20 RPI01-REGISTER-TYPE PIC X(01).
20 RPI01-LINEITEM-VOID-FLAG PIC X(01).
20 RPI01-RDS-BILL-FLAG PIC X(01).
20 RPI01-BACKOUT-CREDIT-UP-FRONT PIC X(01).
20 RPI01-PREV-SUSP PIC X(01).
20 RPI01-RETURN-MOD-FLAG PIC X(01).
20 RPI01-FEDFIL-FLAG PIC X(01).
20 RPI01-BEGIN-TIME PIC 9(07) COMP-3.
20 RPI01-DURATION-TIME PIC 9(07) COMP-3.
20 RPI01-AUTHORIZATION-LEVEL PIC 9(02).
20 RPI01-TAX-EXEMPT-FLAG PIC X(01).
20 RPI01-SHOP-PASS-FLAG PIC X(01).
20 RPI01-DOLLAR-VALUE-FLAG PIC X(01).
20 RPI01-DEVICE-TYPE-FLAG PIC X(02).
20 RPI01-FILLER-5 PIC X(01).
15 FILLER PIC X(13).
05 WS-OUTPUT-DATA-2 REDEFINES WS-OUTPUT-DATA-0.
10 RPE01-ELEMENT.
13 RPE01-BASE.
15 RPE01-KEY.
20 RPE01-SD-CONTROL-NUM PIC 9(07) COMP-3.
20 RPE01-TRANS-KEY.
25 RPE01-COMPANY PIC 9(02).
25 RPE01-DATE PIC S9(07) COMP-3.
25 RPE01-LOC PIC 9(04).
25 RPE01-REG PIC 9(04).
25 RPE01-ROLL-TRANS.
30 RPE01-ROLL PIC 9(01).
30 RPE01-TRANS-NUM PIC 9(04).
20 RPE01-VERSION PIC 9(02).
20 RPE01-SD-ACTION-FLAG PIC X(01).
20 RPE01-SEQ PIC 9(03).
15 RPE01-FIXED-DATA.
20 RPE01-TYPE PIC 9(02).
20 RPE01-ADD-CHG-FLAG PIC X(01).
20 RPE01-ORIG-SEQ PIC S9(03) COMP-3.
20 RPE01-FIXED-FILLER PIC X(18).
15 RPE01-COMMON-DATA-FORMAT1.
20 RPE01-CODE1 PIC 9(02).
20 RPE01-CODE2 PIC 9(02).
20 RPE01-CODE3 PIC 9(04).
20 RPE01-AMT PIC S9(09)V99 COMP-3.
20 RPE01-AMT2 PIC S9(09)V99 COMP-3.
20 RPE01-AMT3 PIC S9(09)V99 COMP-3.
20 RPE01-FIELD1X PIC X(08).
20 RPE01-FIELD1 REDEFINES RPE01-FIELD1X PIC 9(08).
20 RPE01-FIELD2X PIC X(08).
20 RPE01-FIELD2 REDEFINES RPE01-FIELD2X PIC 9(08).
20 RPE01-FIELD3 PIC S9(09) COMP-3.
20 RPE01-FIELD4 PIC S9(09) COMP-3.
20 RPE01-DOC-NUM1 PIC S9(18) COMP-3.
20 RPE01-DOC-NUM2 PIC S9(18) COMP-3.
20 RPE01-FLAG-OCCURS.
22 RPE01-FLAGS OCCURS 16 TIMES.
25 RPE01-FLAG-BYTES PIC X(01).
20 FILLER REDEFINES RPE01-FLAG-OCCURS.
22 RPE01-FLDX PIC X(16).
15 RPE05-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE05-MERCH-CODE PIC 9(02).
20 RPE05-MERCH-CODE2 PIC 9(02).
20 RPE05-RETURN-RSN PIC 9(02).
20 FILLER PIC X(02).
20 RPE05-MERCH-AMT PIC S9(09)V99 COMP-3.
20 RPE05-OVERRIDE-AMT PIC S9(09)V99 COMP-3.
20 RPE05-QTY PIC S9(09)V99 COMP-3.
20 RPE05-DEPT PIC 9(08).
20 RPE05-CLASS PIC 9(08).
20 RPE05-CONVERSION-DEPT PIC S9(09) COMP-3.
20 RPE05-CONVERSION-CLASS PIC S9(09) COMP-3.
20 RPE05-ENTERED-SKU PIC S9(18) COMP-3.
20 RPE05-LONG-SKU PIC S9(18) COMP-3.
20 RPE05-FLAGS.
25 RPE05-ITEM-RECALLED PIC X(01).
25 RPE05-ITEM-VOIDED PIC X(01).
25 RPE05-CENTRAL-FLAG PIC X(01).
25 RPE05-PRICE-OVERRIDE PIC X(01).
25 RPE05-BORROWED-UPC REDEFINES
RPE05-PRICE-OVERRIDE PIC X(01).
25 RPE05-QTY-ENTERED PIC X(01).
25 RPE05-PROMO-PRICE-FLG PIC X(01).
25 RPE05-NON-TAXABLE PIC X(01).
25 RPE05-ITEM-RETURNED PIC X(01).
25 RPE05-DEFECTIVE-ITEM PIC X(01).
25 RPE05-ITEM-CD-KEYED PIC X(01).
25 RPE05-ITEM-WAND-SCAN PIC X(01).
25 RPE05-ITEM-STATUS PIC X(01).
25 RPE05-SKU-FLAG PIC X(01).
25 RPE05-DEPT-FLAGS PIC X(01).
25 RPE05-CLASS-FLAGS PIC X(01).
25 RPE05-SKU-FLAGS PIC X(01).
15 RPE08-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE08-FEE-TYPE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE08-FEE-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE08-FLAGS.
25 RPE08-NON-TAXABLE PIC X(01).
25 FILLER PIC X(15).
15 RPE11-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE11-GIFT-CERT-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE11-GIFT-CERT-AMT PIC S9(09)V99 COMP-3.
20 RPE11-GIFT-CERT-QTY PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE11-APPROVAL-CODE PIC X(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE11-BEGIN-CERT-NUM PIC S9(18) COMP-3.
20 RPE11-END-CERT-NUM PIC S9(18) COMP-3.
20 RPE11-FLAGS.
25 RPE11-NON-TAXABLE PIC X(01).
25 FILLER PIC X(15).
15 RPE12-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE12-GIFT-CARD-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE12-GIFT-CARD-AMT PIC S9(09)V99 COMP-3.
20 RPE12-GIFT-CARD-QTY PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE12-APPROVAL-CODE PIC X(08).
20 RPE12-DEPT PIC 9(08).
20 RPE12-EXPIRATION-DATE PIC S9(09) COMP-3.
20 RPE12-CLASS PIC S9(09) COMP-3.
20 RPE12-BEGIN-CARD-NUM PIC S9(18) COMP-3.
20 RPE12-END-CARD-NUM PIC S9(18) COMP-3.
20 RPE12-FLAGS.
25 RPE12-NON-TAXABLE PIC X(01).
25 RPE12-HARD-DECLINE PIC X(01).
25 RPE12-ITEM-VOIDED PIC X(01).
25 RPE12-RECHARGE-FLAG PIC X(01).
20 RPE12-EGC-TRACKING-NUM PIC S9(18) COMP-3.
20 FILLER PIC X(02).
15 RPE14-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE14-MISC-INC-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE14-MISC-INC-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE14-DOCUMENT-NUM PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE15-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE15-PAID-OUT-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE15-PAID-OUT-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE15-DOCUMENT-NUM PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE21-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE21-REASON-CODE PIC 9(02).
20 RPE21-REASON-CODE-ORIG PIC 9(02).
20 FILLER PIC 9(04).
20 RPE21-DISCOUNT-AMT PIC S9(09)V99 COMP-3.
20 RPE21-DISCOUNT-PCT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 RPE21-MPGROUP-NUM PIC S9(09) COMP-3.
20 RPE21-DOCUMENT-NUM PIC S9(18) COMP-3.
20 RPE21-DISCOUNT-ID2 PIC S9(18) COMP-3.
20 RPE21-FLAGS.
25 RPE21-DISC-FLAG PIC X(01).
25 RPE21-NON-TAXABLE PIC X(01).
25 RPE21-ITEM-VOIDED PIC X(01).
25 RPE21-DISCOUNT-TYPE PIC X(01).
20 RPE21-XPANDED-REASON PIC S9(05) COMP-3.
20 FILLER PIC X(09).
15 RPE22-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE22-REASON-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE22-DISCOUNT-AMT PIC S9(09)V99 COMP-3.
20 RPE22-DISCOUNT-PCT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE22-ASSOCIATE-NUM PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE22-FLAGS.
25 RPE22-DISC-FLAG PIC X(01).
25 RPE22-NON-TAXABLE PIC X(01).
25 FILLER PIC X(14).
15 RPE28-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE28-TAX-CODE PIC 9(02).
20 RPE28-USER-TAX-REASON PIC 9(02).
20 FILLER PIC 9(04).
20 RPE28-TAX-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE28-COUNTY-CODE PIC 9(08).
20 RPE28-TAX-CODE2 PIC 9(08).
20 RPE28-TAX-RATE PIC S9(04)V9(05) COMP-3.
20 RPE28-ORIG-TAX-RATE PIC S9(09) COMP-3.
20 RPE28-EXTENDED-TAX PIC S9(14)V9(04) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE28-TAX-STATE PIC X(02).
20 FILLER PIC X(14).
15 RPE29-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE29-TAX-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 RPE29-OTHER-TAX-CODE PIC 9(04).
20 RPE29-TAX-AMT PIC S9(09)V99 COMP-3.
20 RPE29-TAXABLE-AMT PIC S9(09)V99 COMP-3.
20 RPE29-TAX-EXEMPT-AMT PIC S9(09)V99 COMP-3.
20 RPE29-TAX-STATE PIC X(02).
20 RPE29-TAX-RATE PIC 9(02)V9(5).
20 FILLER PIC 9(07).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE30-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE30-DEPOSIT-TYPE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE30-DEPOSIT-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE30-FLAGS.
25 RPE30-NON-TAXABLE PIC X(01).
25 FILLER PIC X(15).
15 RPE31-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE31-TENDER-TYPE PIC 9(02).
20 RPE31-COMMON-TENDER-TYPE PIC 9(02).
20 RPE31-CHARGE-CARD-ID PIC 9(04).
20 RPE31-TENDER-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE31-APPROVAL-CODE PIC X(08).
20 RPE31-REFERRAL-NUM PIC 9(08).
20 RPE31-CID-FIL REDEFINES RPE31-REFERRAL-NUM.
25 RPE31-CID PIC 9(04).
25 RPE31-3RD-PARTY-CID PIC 9(04).
20 RPE31-ACCOUNT-TYPE PIC S9(09) COMP-3.
20 RPE31-ACCOUNT-STATUS PIC S9(09) COMP-3.
20 RPE31-CUSTOMER-NUM PIC S9(18) COMP-3.
20 RPE31-PURE-CUSTOMER-NUM PIC S9(18) COMP-3.
20 RPE31-FLAGS.
25 RPE31-ENTRY-METHOD PIC X(01).
25 RPE31-APPROVED PIC X(01).
25 RPE31-DISAPPROVED PIC X(01).
25 RPE31-NEW-INHSE-FORMAT PIC X(01).
25 RPE31-CONVERT-TO-CRDAUTH PIC X(01).
25 RPE31-NEGATIVE-AMT PIC X(01).
25 RPE31-DEBIT-ELIGIBLE PIC X(01).
25 RPE31-EMPLOYEE-FLG PIC X(01).
25 RPE31-FLOOR-LIMIT PIC X(01).
25 RPE31-IN-STR-CREDIT PIC X(01).
25 RPE31-OPR-PROCESS PIC X(01).
25 RPE31-CREDIT-DEPT PIC X(01).
25 RPE31-HOST-CREDIT PIC X(01).
25 RPE31-OUT-OF-STORE PIC X(01).
25 RPE31-OUT-STR-BACKUP PIC X(01).
25 RPE31-OFFLINE-FLOOR PIC X(01).
15 RPE32-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 FILLER PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE32-DATES-X.
25 RPE32-DATES PIC 9(08).
25 FILLER REDEFINES RPE32-DATES.
30 RPE32-EFF-DATE PIC 9(04).
30 RPE32-EXP-DATE PIC 9(04).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE32-ACCOUNT-NUMBER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE32-MISC-FIELDS.
25 RPE32-APPROVAL-CODE PIC X(08).
25 RPE32-ACTION-CODE PIC X(02).
25 FILLER PIC X(06).
15 RPE40-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE40-CLOCK-REASON-CD PIC 9(02).
20 RPE40-MGR-AUTH-LEVEL PIC 9(02).
20 RPE40-SUSP-FROM-REG PIC 9(04).
20 RPE40-CLOCK-DATE PIC S9(11) COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE40-TIME-IN-OUT.
25 RPE40-TIME-IN-HHMM PIC 9(04).
25 RPE40-TIME-OUT-HHMM PIC 9(04).
20 RPE40-TIME-PLANNED-ACTUAL.
25 RPE40-PLANNED-HHMM PIC 9(04).
25 RPE40-ACTUAL-HHMM PIC 9(04).
20 RPE40-MANAGER-ID PIC S9(09) COMP-3.
20 RPE40-AREA-NUMBER PIC S9(09) COMP-3.
20 RPE40-DOCUMENT-NUM PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE40-CLOCK-TYPE PIC 9(02).
20 RPE40-ORIG-TIME PIC 9(04).
20 FILLER REDEFINES RPE40-ORIG-TIME.
25 RPE40-ORIG-HH PIC 9(02).
25 RPE40-ORIG-MM PIC 9(02).
20 RPE40-ADJ-TIME PIC 9(04).
20 FILLER REDEFINES RPE40-ADJ-TIME.
25 RPE40-ADJ-HH PIC 9(02).
25 RPE40-ADJ-MM PIC 9(02).
20 RPE40-MANAGER-REASON PIC 9(02).
20 RPE40-NT-STATUS-CODE PIC 9(02).
20 RPE40-CLOCKIN-ADJ-FLG PIC 9(02).
15 RPE50-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE50-DOCUMENT-CODE-2 PIC 9(02).
20 FILLER PIC 9(02).
20 RPE50-DOCUMENT-CODE PIC 9(04).
20 RPE50-DOCUMENT-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE50-EXT-BEG-DATE PIC 9(08).
20 RPE50-EXT-END-DATE PIC 9(08).
20 RPE50-MISC-NUM PIC S9(09) COMP-3.
20 RPE50-MISC-DATE PIC S9(09) COMP-3.
20 RPE50-DOCUMENT-NUM PIC S9(18) COMP-3.
20 RPE50-DOCUMENT-NUM-2 PIC S9(18) COMP-3.
20 RPE50-SEND-FLAG PIC X(01).
20 RPE50-REASON-CODE PIC X(01).
20 RPE50-DECLINE-FLAG PIC X(01).
20 RPE50-DOCUMENT-CODE-3 PIC X(02).
20 RPE50-EVENT PIC X(06).
20 RPE50-MISC-FLAG PIC X(01).
20 RPE50-IRN-FLAG-R REDEFINES RPE50-MISC-FLAG.
25 RPE50-IRN-FLAG PIC X(01).
20 FILLER PIC X(04).
15 RPE51-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE51-OVERRIDE-REASON PIC 9(02).
20 FILLER PIC 9(02).
20 RPE51-DOCUMENT-CODE PIC 9(04).
20 RPE51-ORIG-CORR-PRICE PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 RPE51-MPGROUP-NUM PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE51-DOCUMENT-NUM PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE51-XPANDED-REASON PIC S9(05) COMP-3.
20 FILLER PIC X(13).
15 RPE52-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE52-PRICE-ORIGIN PIC 9(02).
20 RPE52-HOST-LOOKUP PIC 9(02).
20 RPE52-DOCUMENT-CODE PIC 9(04).
20 RPE52-ORIG-SELL-PRICE PIC S9(09)V99 COMP-3.
20 RPE52-TODAY-SELL-PRICE PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE52-STATUS-CODE PIC X(08).
20 RPE52-MULTI-TENDERS PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE52-DOCUMENT-NUM PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 RPE52-FAILOVER-FLAG PIC X(01).
20 RPE52-MULTI-TENDERS2 PIC X(12).
20 FILLER PIC X(03).
15 RPE62-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE62-VOID-REASON-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 RPE62-VOID-TRANS-REG PIC 9(04).
20 RPE62-VOID-TRANS-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE62-VOID-TRANS-CNT PIC S9(09)V99 COMP-3.
20 RPE62-VOID-TRANS-NUM PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE63-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 FILLER PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE63-VOID-TRANS-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE81-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE81-TENDER-TYPE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE81-TENDER-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE82-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE82-RESET-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE82-RESET-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE85-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE85-PAYMENT-TYPE-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 RPE85-CUSTOMER-NUM-ID PIC 9(04).
20 RPE85-PAYMENT-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 RPE85-ACCOUNT-TYPE PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 RPE85-CUSTOMER-NUM PIC S9(18) COMP-3.
20 RPE85-PURE-CUSTOMER-NUM PIC S9(18) COMP-3.
20 RPE85-NEW-INHSE-FORMAT PIC X(01).
20 FILLER PIC X(15).
15 RPE86-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE86-PICKUP-CODE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE86-CASH-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE87-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 FILLER PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE87-CASH-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC 9(08).
20 FILLER PIC 9(08).
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(09) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC S9(18) COMP-3.
20 FILLER PIC X(16).
15 RPE90-DATA REDEFINES RPE01-COMMON-DATA-FORMAT1.
20 RPE90-RECORD-TYPE PIC 9(02).
20 FILLER PIC 9(02).
20 FILLER PIC 9(04).
20 RPE90-AMT PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 FILLER PIC S9(09)V99 COMP-3.
20 RPE90-ALPHA PIC X(30).
20 RPE90-REVERSE-APPEND REDEFINES RPE90-ALPHA.
25 RPE90-PROMPT-FNAME PIC X(01).
25 RPE90-PROMPT-LNAME PIC X(01).
25 RPE90-PROMPT-ADDR1 PIC X(01).
25 RPE90-PROMPT-ADDR2 PIC X(01).
25 RPE90-PROMPT-CITY PIC X(01).
25 RPE90-PROMPT-STATE PIC X(01).
25 RPE90-PROMPT-ZIP PIC X(01).
25 RPE90-PROMPT-PHONE PIC X(01).
25 RPE90-PROMPT-EMAIL PIC X(01).
25 RPE90-PROMPT-ID PIC X(01).
25 RPE90-UNUSED-FLAGS1 PIC X(06).
25 RPE90-REQD-FNAME PIC X(01).
25 RPE90-REQD-LNAME PIC X(01).
25 RPE90-REQD-ADDR1 PIC X(01).
25 RPE90-REQD-ADDR2 PIC X(01).
25 RPE90-REQD-CITY PIC X(01).
25 RPE90-REQD-STATE PIC X(01).
25 RPE90-REQD-ZIP PIC X(01).
25 RPE90-REQD-PHONE PIC X(01).
25 RPE90-REQD-EMAIL PIC X(01).
25 RPE90-REQD-ID PIC X(01).
25 RPE90-UNUSED-FLAGS2 PIC X(04).
20 RPE90-EXP-CREDIT-FIELDS REDEFINES RPE90-ALPHA.
25 RPE90-EXP-CREDIT-FLAGS.
30 RPE90-INS PIC X(01).
30 RPE90-JOINT-ACCT PIC X(01).
30 RPE90-BASE-VISA PIC X(01).
30 RPE90-SPANISH-CORRES PIC X(01).
30 RPE90-RISK-BASED-PRICING PIC X(01).
30 RPE90-NAMEADDR-FOUND PIC X(01).
30 RPE90-REDO PIC X(01).
30 RPE90-OLD-ACCOUNT PIC X(01).
30 RPE90-ALLOW-DISCOUNT PIC X(01).
25 RPE90-EXP-CREDIT-ID-FLDS.
30 RPE90-ID-ISSUE-STATE PIC X(02).
30 RPE90-ID-TYPE PIC X(02).
30 RPE90-ID-ISSUE-DATE PIC X(08).
30 RPE90-ID-EXP-DATE PIC X(08).
25 FILLER PIC X(01).
20 RPE90-ALPHA2 PIC X(30).
20 RPE90-REVERSE-APPEND2 REDEFINES RPE90-ALPHA2.
25 RPE90-UNUSED-FLAGS3 PIC X(02).
25 FILLER PIC X(28).
20 RPE90-INDEX-NUM-AREA REDEFINES RPE90-ALPHA2.
25 RPE90-CRM-INDEX PIC 9(04).
25 FILLER PIC X(26).
20 RPE90-FEDFIL-ERROR REDEFINES RPE90-ALPHA2.
25 RPE90-MSG-REM PIC X(26).
25 RPE90-FEDFIL-RETCD PIC 9(04).
20 RPE90-ALPHA3 PIC X(02).
20 RPE90-ALPHA3-R REDEFINES RPE90-ALPHA3.
25 RPE90-IRN-FLAG PIC X(01).
25 FILLER PIC X(01).