Background:
We downloaded a mainframe file to our unix server that we need to convert to ASCII.
We were given the following copy book information
Code: Select all
000010* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010
000020* RDSRDK00,DK00 05/25/88 * 00020
000030* THIS IS THE DEFINITION OF THE BIG TICKET FILE * 00030
000040* TRACKS DATA ELEMENT RDK00 IN THE FILE * 00040
000050* 'RDK'. * 00050
000060* * 00060
000070* RDK00 AUDIT-STAMP 1-26 26 * 00070
000080* * 00080
000090* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00090
000100*-------------------------------------------------------------*
000110*--------------- INCLUDE MODIFICATION -----------------------*
000120*-------------------------------------------------------------*
000130* MAINTENANCE LOG - ADD LATEST CHANGE TO THE TOP *
000140* MOD-DATE PROGRAMMER MOD DESCRIPTION *
000150* -------- ---------- ---------------------------------------*
000160* 03/23/09 B052VHK - CODE CHANGES FOR RDS ANX * VK090323
000170*-------------------------------------------------------------*
000180 01 RDK00-TRACKS. 00100
000190 15 RDK00-FILE PIC X(03). 00110
000200 15 RDK00-PGM-ID PIC X(03). 00120
000210 15 RDK00-PGM-NBR PIC S9(03) COMP-3. 00130
000220 15 RDK00-TDATE PIC S9(07) COMP-3. 00140
000230* DATE FORMAT (YYMMDD) 00150
000240 15 RDK00-TTIME PIC S9(07) COMP-3. 00160
000250* TIME FORMAT (HHMMSS) 00170
000260 15 RDK00-TCRT PIC X(04). 00180
000270 15 RDK00-OPER. 00190
000280 20 RDK00-INIT PIC X(02). 00200
000290* 20 RDK00-EMPNO PIC S9(06) COMP. VK090323
000300 20 RDK00-EMPNO PIC S9(09) COMP. VK090323
Code: Select all
000010* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010
000020* RDSRDK01,DK01 05/25/88 * 00020
000030* THIS IS THE DEFINITION OF THE BIG TICKET * 00030
000040* CUSTOMER DATA ELEMENT RDK01 IN THE FILE * 00040
000050* 'RDK'. * 00050
000060* * 00060
000070* KEY DATA NAME POSITIONS LGTH * 00070
000080* M/N RDKK1 RDK01-CUST-CONTROL-NBR 27- 30 4 * 00080
000090* NO DUPS * 00090
000100* * 00130
000110* RDKK3 RDK01-HOME-PHONE-NBR 37- 42 6 * 00140
000120* RDK01-LAST-NAME 43- 43 1 * 00150
000130* * 00160
000140* RDKK4 RDK01-LAST-NAME 43- 67 15 * 00170
000150* RDK01-FIRST-NAME 63- 77 10 * 00180
000160* * 00190
000170* RDKK5 RDK01-CUST-ACCT-NBR17 170- 178 9 * 00170
000180* RDK01-DIVISION 164- 165 2 * 00120
000190* * 00200
000200* ELEMENTS OF FILE 'RDK' * 00210
000210* RDK00 AUDIT-STAMP 1- 26 26 * 00220
000220* RDK01 CUSTOMER DATA 27- 180 154 * 00230
000230* * 00240
000240* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00250
000250* 00260
000260 01 RDK01-ELEMENT. 00270
000270 15 RDK01-KEY. 00280
000280 20 RDK01-CUST-CONTROL-NBR PIC S9(07) COMP-3. 00290
000290* 00300
000300 15 RDK01-CUST-ACCOUNT-NBR PIC S9(11) COMP-3. 00310
000310* 00320
000320 15 RDK01-HOME-PHONE-NBR PIC S9(11) COMP-3. 00330
000330* 00340
000340 15 RDK01-CUSTOMER-NAME-ADDRESS. 00350
000350 20 RDK01-LAST-NAME PIC X(25). 00360
000360 20 RDK01-FIRST-NAME PIC X(15). 00370
000370 20 RDK01-STREET-ADDRESS PIC X(25). 00380
000380 20 RDK01-CITY PIC X(20). 00390
000390 20 RDK01-STATE PIC X(02). 00400
000400 20 RDK01-ZIP-CODE PIC 9(05). 00410
000410* 00420
000420 15 RDK01-WORK-PHONE-NBR PIC S9(11) COMP-3. 00430
000430* 00440
000440 15 RDK01-FIRST-TRANS-DATE PIC S9(09) COMP-3. 00450
000450 15 RDK01-LAST-TRANS-DATE PIC S9(09) COMP-3. 00460
000460* 00470
000470 15 RDK01-NBR-TRANSACTIONS PIC S9(05) COMP-3. 00480
000480 15 RDK01-PURCHASES-TOTAL-AMT PIC S9(07)V99 COMP-3. 00490
000490 15 RDK01-RETURNS-TOTAL-AMT PIC S9(07)V99 COMP-3. 00500
000500* 00510
000510 15 RDK01-DIVISION PIC 9(02). 00520
000520* 00530
000530 15 RDK01-CUST-ACCT-MASK PIC S9(04) COMP-3. 00540
000540 15 RDK01-IRN-CONV-FLG PIC X(01). LY005500
000550 88 ACCOUNT-IS-PAN VALUE 'P'. LY005600
000560 88 ACCOUNT-IS-IRN VALUE 'I'. LY005700
000570 88 ACCOUNT-IS-INVALID VALUE 'X'. LY005800
000580 15 RDK01-CUST-ACCT-NBR17 PIC S9(17) COMP-3. LY005900
000590 15 FILLER PIC X(02). LY006000
000600* 00610
000610*---------------------------------------------------------------* 00620
000620* CUSTOMER - DATA DICTIONARY * 00630
000630*---------------------------------------------------------------* 00640
000640*---------------------------------------------------------------* 00650
000650* CUST-CONTROL-NBR * 00660
000660* - CUSTOMER CONTROLL NUMBER (ASSIGNED BY SYS) * 00670
000670* CUST-ACCOUNT-NBR * 00680
000680* - OLD CUSTOMER CHARGE ACCOUNT NUMBER * LY006900
000690* (FROM CREDIT) * LY007000
000700* HOME-PHONE-NBR- HOME PHONE NUMBER * 00710
000710* LAST-NAME - CUSTOMERS LAST NAME * 00720
000720* FIRST-NAME - CUSTOMERS FIRST NAME * 00730
000730* STREET-ADDRESS- CUSTOMERS STREET ADDRESS * 00740
000740* CITY - CUSTOMERS CITY OF RESIDENCE * 00750
000750* STATE - CUSTOMERS STATE OF RESIDENCE * 00760
000760* ZIP-CODE - CUSTOMERS ZIP CODE * 00770
000770* WORK-PHONE-NBR- WORK PHONE NUMBER * 00780
000780* FIRST-TRANS-DATE * 00790
000790* - DATE OF FIRST TRANSACTION FOR THIS CUSTOMER * 00800
000800* LAST-TRANS-DATE * 00810
000810* - DATE OF MOST RECENT TRANSACTION * 00820
000820* NBR-TRANSACTIONS * 00830
000830* - TOTAL NUMBER OF TRANSACTIONS FOR THIS CUST * 00840
000840* PURCHASES-TOTAL-AMT * 00850
000850* - TOTAL DOLLAR AMOUNT OF ALL PURCHASES * 00860
000860* RETURNS-TOTAL-AMT * 00870
000870* - TOTAL DOLLAR AMOUNT OF ALL RETURNS * 00880
000880* DIVISION - CREDIT SYSTEM DIVISION NUMBER FROM WHICH * 00890
000890* THE NAME AND ADDRESS WAS EXTRACTED. * 00900
000900* CUST-ACCT-MASK * LY009101
000910* - CUSTOMER'S LAST FOUR DIGITS OF PRIMARY * LY009201
000920* ACCOUNT NUMBER. * LY009301
000930* IRN-CONV-FLG * LY009401
000940* - INDICATES WHETHER THE ACCOUNT NUMBER IS AN * LY009501
000950* IRN OR PAN. * LY009601
000960* CUST-ACCT-NBR17 * LY009701
000970* - CUSTOMER CHARGE ACCOUNT NUMBER (FROM CREDIT)* LY009801
000980*---------------------------------------------------------------* 00990
I figured out the first issue while trying to import the CB and changed the first level from 10 -> 01.
I imported both of the CB into a CFF and this is where I now find that I get the following errors:
The record ID for record <RECORD-1> is empty!
.... (repeats for operator and value)
The record ID for record <RECORD-2> is empty!
.... (repeats for operator and value)
I tried removing RECORD-1 to see what error I would get and then got this error (which was repeated for all columns in the CB):
The link column <RDK01-CUST-CONTROL-NB> cannot be found in stage columns!
Any suggestions where to start looking for the issue?
TIA
Patrick