DSXchange: DataStage and IBM Websphere Data Integration Forum
View next topic
View previous topic
Add To Favorites
Author Message
patrickthatcher@gmail.com
Participant



Joined: 22 Nov 2017
Posts: 5

Points: 219

Post Posted: Thu Jan 04, 2018 12:50 pm Reply with quote    Back to top    

DataStage® Release: 11x
Job Type: Parallel
OS: Unix
Ugg. I knew my cockiness would finally come back and bite me. I was given this rather lengthy layout and I'm having many issues trying to load. The first issue I get is a 'PIC' PICTURE character string format must have at least a 9, A, G, N, or X symbol. I notice that most if not all the errors happen on a REDEFINES. Any help would be greatly appreciated.

Code:
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).
FranklinE



Group memberships:
Premium Members

Joined: 25 Nov 2008
Posts: 679
Location: Malvern, PA
Points: 6425

Post Posted: Fri Jan 05, 2018 12:21 pm Reply with quote    Back to top    

You'll find a link to the FAQ on using mainframe data at the end of my post.

In general, what you have here is a failure to communicate fully on the Cobol programmers who concocted this mess. You have one header record and two types of data records.

It will be tedious, but your best bet is to work backwards from the output you are expected to provide from this data. With multiple REDEFINES involved, you are not going to know except from complex logic which version of any of them you need to use. Your goal is to edit and create a CFD you can import which eliminates the unused REDEFINES.

Some suggestions:
    Totally eliminate every REDEFINES. Keep it simple.
    At the 05 level, you should create a separate CFD for each record type. This will simplify loading the table definitions to the Records tab.
    Make sure you know the Record ID values for each record type.
    Take a "snapshot" of each table definition, using the layout view. It shows you the total record length.
    Arrange to get one of the Cobol programmers drunk, take compromising pictures, and blackmail the person into helping you. It could be your only hope. Laughing

_________________
Franklin Evans
"Shared pain is lessened, shared joy increased. Thus do we refute entropy." -- Spider Robinson

Using mainframe data FAQ: http://www.dsxchange.com/viewtopic.php?t=143596 Using CFF FAQ: http://www.dsxchange.com/viewtopic.php?t=157872
Rate this response:  
Not yet rated
Display posts from previous:       

Add To Favorites
View next topic
View previous topic
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum



Powered by phpBB © 2001, 2002 phpBB Group
Theme & Graphics by Daz :: Portal by Smartor
All times are GMT - 6 Hours