Overlay cobol file
Posted: Wed Dec 06, 2006 1:27 pm
I have a cobol copy books that is defined as such...
07 DARATRN-SERIAL-AREA.
007900 09 DARATRN-SERIAL-NBR
008000 PIC X(05).
008100* SERIAL NBR FROM TRANSACTIONS
008200* PACKED UNSIGNED - 10 DIGITS
008300*
008400 09 FILLER PICTURE X(03).
008500*
008600 07 DARATRN-RATE-CHANGE-AREA
008700 REDEFINES DARATRN-SERIAL-AREA.
008800* THE FOLLOWING RATES WILL ONLY BE
008900* PRESENT FOR A RATE ADJUSTMENT CODE
009000* (01) THAT IS FORCED BY THE SYSTEM
009100* WHEN A THE INTEREST RATE IS CHANGED
009200* ON AN ACCOUNT.
009300*
009400 09 DARATRN-OLD-INT-RATE
009500 PIC S9(2)V99999 COMP-3.
009600* OLD ACCOUNT INTEREST RATE
009700*
009800 09 DARATRN-NEW-INT-RATE
009900 PIC S9(2)V99999 COMP-3.
010000* NEW ACCOUNT INTEREST RATE
The first part is defined as a comp-6 which I can handle via a routine, but in the case that the transaction code is 1 it expects me to read it as a comp-3.
Any ideas on how to handle such an issue.
Thanks
07 DARATRN-SERIAL-AREA.
007900 09 DARATRN-SERIAL-NBR
008000 PIC X(05).
008100* SERIAL NBR FROM TRANSACTIONS
008200* PACKED UNSIGNED - 10 DIGITS
008300*
008400 09 FILLER PICTURE X(03).
008500*
008600 07 DARATRN-RATE-CHANGE-AREA
008700 REDEFINES DARATRN-SERIAL-AREA.
008800* THE FOLLOWING RATES WILL ONLY BE
008900* PRESENT FOR A RATE ADJUSTMENT CODE
009000* (01) THAT IS FORCED BY THE SYSTEM
009100* WHEN A THE INTEREST RATE IS CHANGED
009200* ON AN ACCOUNT.
009300*
009400 09 DARATRN-OLD-INT-RATE
009500 PIC S9(2)V99999 COMP-3.
009600* OLD ACCOUNT INTEREST RATE
009700*
009800 09 DARATRN-NEW-INT-RATE
009900 PIC S9(2)V99999 COMP-3.
010000* NEW ACCOUNT INTEREST RATE
The first part is defined as a comp-6 which I can handle via a routine, but in the case that the transaction code is 1 it expects me to read it as a comp-3.
Any ideas on how to handle such an issue.
Thanks