complex mainframe cfd import error

Post questions here relative to DataStage Enterprise/PX Edition for such areas as Parallel job design, Parallel datasets, BuildOps, Wrappers, etc.

Moderators: chulett, rschirm, roy

Post Reply
patrickthatcher@gmail.com
Participant
Posts: 5
Joined: Wed Nov 22, 2017 11:39 am

complex mainframe cfd import error

Post by patrickthatcher@gmail.com »

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: 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).
FranklinE
Premium Member
Premium Member
Posts: 739
Joined: Tue Nov 25, 2008 2:19 pm
Location: Malvern, PA

Post by FranklinE »

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. :lol:
Franklin Evans
"Shared pain is lessened, shared joy increased. Thus do we refute entropy." -- Spider Robinson

Using mainframe data FAQ: viewtopic.php?t=143596 Using CFF FAQ: viewtopic.php?t=157872
Post Reply