Reading Multiformat Cobol File
Posted: Tue Jul 15, 2008 9:32 pm
Im using cobol files first time for extraction. I loaded the cobol file definitions with following copybook.
How can i read the data for different tables. If i can filter for each record type ? When i tried sequential file there was some binary data comming up but when I tried Peek to see the data there was no binary data in it. see blow:
----------------------
Peek_29,1:
TRANSACTION_KEY_C702:(TRANSACTION_KEY_C702.ACCOUNT_NO_C702:250412145
TRANSACTION_KEY_C702.TRAN_NO_C702:215515
TRANSACTION_KEY_C702.RISK_NO_C702: 025.
TRANSACTION_KEY_C702.RECORD_TYPE_C702:10)
FILLER_2:
DATA_PORTION_C702: R NFLLIFE0080 2008051120090511200805112008051000000000
----------------------------
Copybook
------------
*
01 STD-RECORD-Z100.
05 TRANSACTION-KEY-Z100.
10 ACCOUNT-NO-Z100 PIC X(12).
10 TRAN-NO-Z100 PIC X(08).
10 RISK-NO-Z100 PIC 9(03).
10 RECORD-TYPE-Z100 PIC X(02).
88 HEADER-REC-Z100 VALUE '00'.
88 ACCOUNT-REC-Z100 VALUE '10'.
05 FILLER PIC X(05).
05 DATA-PORTION-Z100 PIC X(450).
*
05 HEADER-DATA-Z100 REDEFINES DATA-PORTION-Z100.
10 FILLER PIC X(20).
10 HDR-VENDOR-Z100 PIC X(10).
10 HDR-VENDOR-LITEX-Z100 PIC X(10).
10 HDR-SOURCE-Z100 PIC X(01).
88 FILE-FROM-VENDOR-Z100 VALUE 'B'.
88 FILE-FROM-WEB-Z100 VALUE 'W'.
10 HDR-BATCH-NO-Z100 PIC X(08).
10 HDR-LAST-BATCH-NO-Z100 PIC X(08).
10 HDR-CREATE-DATE-Z100 PIC 9(08).
10 HDR-CREATE-TIME-Z100 PIC 9(08).
10 FILLER PIC X(377).
*
05 ACCOUNT-DATA-Z100 REDEFINES DATA-PORTION-Z100.
10 FILLER PIC X(20).
10 ACT-TRANTYPE-Z100 PIC X(01).
88 NEW-BUSINESS-Z100 VALUE 'N'.
88 AMENDMENT-Z100 VALUE 'A'.
88 RENEWAL-Z100 VALUE 'R'.
88 CANCELLATION-Z100 VALUE 'C'.
88 REINSTATEMENT-Z100 VALUE 'I'.
10 ACT-LAST-TRAN-NO-Z100 PIC X(08).
10 ACT-PRODUCT-Z100 PIC X(03).
10 ACT-CLASS-Z100 PIC X(03).
10 ACT-SUBCOY-Z100 PIC 9(04).
10 ACT-STATUS-Z100 PIC X(01).
10 ACT-TERMINCEP-Z100 PIC 9(08).
10 ACT-DUEDATE-Z100 PIC 9(08).
10 ACT-EFFECTDTE-Z100 PIC 9(08).
10 ACT-TRANDATE-Z100 PIC 9(08).
10 ACT-TRANTIME-Z100 PIC 9(08).
10 ACT-TRANUSER-Z100 PIC X(08).
10 ACT-ANNUALPRM-Z100 PIC S9(9)V99 COMP-3.
10 ACT-TRANPRM-Z100 PIC S9(9)V99 COMP-3.
10 ACT-CURRENTPRM-Z100 PIC S9(9)V99 COMP-3.
10 ACT-RCOMMISN-Z100 PIC S9(9)V99 COMP-3.
10 ACT-TCOMMISN-Z100 PIC S9(9)V99 COMP-3.
10 ACT-CCOMMISN-Z100 PIC S9(9)V99 COMP-3.
10 ACT-COMMRATE-Z100 PIC 9(03).
10 ACT-TRAN-STATUS-Z100 PIC X(01).
88 INCOMPLETE-Z100 VALUE 'I'.
88 NEW-ENTRY-Z100 VALUE 'N'.
88 LOADED-INTO-HUON-Z100 VALUE 'L'.
88 REJECTED-Z100 VALUE 'R'.
88 CORRECTED-Z100 VALUE 'C'.
88 SUBMITTED-Z100 VALUE 'S'.
88 DISCARDED-Z100 VALUE 'D'.
10 ACT-HUON-ACCOUNT-NO-Z100 PIC 9(12).
10 ACT-BUSTRNNO-Z100 PIC 9(04).
10 FILLER PIC X(306).
*
How can i read the data for different tables. If i can filter for each record type ? When i tried sequential file there was some binary data comming up but when I tried Peek to see the data there was no binary data in it. see blow:
----------------------
Peek_29,1:
TRANSACTION_KEY_C702:(TRANSACTION_KEY_C702.ACCOUNT_NO_C702:250412145
TRANSACTION_KEY_C702.TRAN_NO_C702:215515
TRANSACTION_KEY_C702.RISK_NO_C702: 025.
TRANSACTION_KEY_C702.RECORD_TYPE_C702:10)
FILLER_2:
DATA_PORTION_C702: R NFLLIFE0080 2008051120090511200805112008051000000000
----------------------------
Copybook
------------
*
01 STD-RECORD-Z100.
05 TRANSACTION-KEY-Z100.
10 ACCOUNT-NO-Z100 PIC X(12).
10 TRAN-NO-Z100 PIC X(08).
10 RISK-NO-Z100 PIC 9(03).
10 RECORD-TYPE-Z100 PIC X(02).
88 HEADER-REC-Z100 VALUE '00'.
88 ACCOUNT-REC-Z100 VALUE '10'.
05 FILLER PIC X(05).
05 DATA-PORTION-Z100 PIC X(450).
*
05 HEADER-DATA-Z100 REDEFINES DATA-PORTION-Z100.
10 FILLER PIC X(20).
10 HDR-VENDOR-Z100 PIC X(10).
10 HDR-VENDOR-LITEX-Z100 PIC X(10).
10 HDR-SOURCE-Z100 PIC X(01).
88 FILE-FROM-VENDOR-Z100 VALUE 'B'.
88 FILE-FROM-WEB-Z100 VALUE 'W'.
10 HDR-BATCH-NO-Z100 PIC X(08).
10 HDR-LAST-BATCH-NO-Z100 PIC X(08).
10 HDR-CREATE-DATE-Z100 PIC 9(08).
10 HDR-CREATE-TIME-Z100 PIC 9(08).
10 FILLER PIC X(377).
*
05 ACCOUNT-DATA-Z100 REDEFINES DATA-PORTION-Z100.
10 FILLER PIC X(20).
10 ACT-TRANTYPE-Z100 PIC X(01).
88 NEW-BUSINESS-Z100 VALUE 'N'.
88 AMENDMENT-Z100 VALUE 'A'.
88 RENEWAL-Z100 VALUE 'R'.
88 CANCELLATION-Z100 VALUE 'C'.
88 REINSTATEMENT-Z100 VALUE 'I'.
10 ACT-LAST-TRAN-NO-Z100 PIC X(08).
10 ACT-PRODUCT-Z100 PIC X(03).
10 ACT-CLASS-Z100 PIC X(03).
10 ACT-SUBCOY-Z100 PIC 9(04).
10 ACT-STATUS-Z100 PIC X(01).
10 ACT-TERMINCEP-Z100 PIC 9(08).
10 ACT-DUEDATE-Z100 PIC 9(08).
10 ACT-EFFECTDTE-Z100 PIC 9(08).
10 ACT-TRANDATE-Z100 PIC 9(08).
10 ACT-TRANTIME-Z100 PIC 9(08).
10 ACT-TRANUSER-Z100 PIC X(08).
10 ACT-ANNUALPRM-Z100 PIC S9(9)V99 COMP-3.
10 ACT-TRANPRM-Z100 PIC S9(9)V99 COMP-3.
10 ACT-CURRENTPRM-Z100 PIC S9(9)V99 COMP-3.
10 ACT-RCOMMISN-Z100 PIC S9(9)V99 COMP-3.
10 ACT-TCOMMISN-Z100 PIC S9(9)V99 COMP-3.
10 ACT-CCOMMISN-Z100 PIC S9(9)V99 COMP-3.
10 ACT-COMMRATE-Z100 PIC 9(03).
10 ACT-TRAN-STATUS-Z100 PIC X(01).
88 INCOMPLETE-Z100 VALUE 'I'.
88 NEW-ENTRY-Z100 VALUE 'N'.
88 LOADED-INTO-HUON-Z100 VALUE 'L'.
88 REJECTED-Z100 VALUE 'R'.
88 CORRECTED-Z100 VALUE 'C'.
88 SUBMITTED-Z100 VALUE 'S'.
88 DISCARDED-Z100 VALUE 'D'.
10 ACT-HUON-ACCOUNT-NO-Z100 PIC 9(12).
10 ACT-BUSTRNNO-Z100 PIC 9(04).
10 FILLER PIC X(306).
*