View previous topic :: View next topic
|
Author |
Message |
bd2bowl
New User
Joined: 21 Jan 2006 Posts: 1
|
|
|
|
How do I convert this compressed ascii format to straight ascii?
I need to put in new layout. Both are prvided below.
I am really new ... take me slow.
NEW LAYOUT
HEADER RECORD
1-20 RECONCILIATIONHEADER (literal) 20
21-24 BANK NUMBER (0075) 4
25-37 ACCOUNT NUMBER 13
38-49 TOTAL DOLLAR (without decimal) 12
50-54 TOTAL ITEM COUNT OF FILE 05
55-150 FILLER 96
DETAIL RECORD
01-13 ACCOUNT NUMBER 13
14-23 CHECK NUMBER 10
24-33 CHECK AMOUNT 10
34-41 ISSUE DATE (YYYYMMDD) 8
42 VOID INDICATOR 1
43-72 FILLER (not applicable) 30
73-80 FILLER 8
81-130 PAYYEE NAME (from VCFILE) 50
131-150 FILLER 20
---------------------------------------------------------------------------?
FD RECON-TAPE RECORD CONTAINS 46 CHARACTERS
LABEL RECORDS ARE STANDARD
DATA RECORD IS RECON-RECORD.
01 RECON-RECORD.
04 RECON-BANK-NO PIC S99 COMP-3.
04 RECON-BATCH-NO PIC S9999 COMP-3.
04 RECON-TP-ACCT-NO PIC S9(13) COMP-3.
04 RECON-TP-CHEK-NO PIC S9(8) COMP-3.
04 RECON-TP-CHEK-AMT PIC S9(9)V99 COMP-3.
04 RECON-TP-DATE PIC 9(6) COMP-3.
04 RECON-MISC-DATA PIC X(19).
*
FD APCHK-FILE RECORD CONTAINS 60 CHARACTERS
LABEL RECORDS ARE STANDARD
DATA RECORD IS VC-RECORD.
01 VC-RECORD.
03 VC-KEY.
05 VC-BANK PIC X(02).
05 VC-CHECK-NO PIC X(06).
03 VC-DROP PIC X(01).
03 VC-VOID PIC X(01).
03 VC-VENDOR-NO PIC X(11).
03 VC-DATE-PAID-CC PIC 9(02).
03 VC-DATE-PAID PIC 9(06).
03 VC-AMOUNT PIC S9(11)V99 COMP-3.
03 FILLER PIC X(08).
03 VC-CC PIC X(02).
03 FILLER PIC X(14).
*
SD SORT-FILE RECORD CONTAINS 46 CHARACTERS
DATA RECORD IS SORT-RECORD.
01 SORT-RECORD.
04 SRT-BANKNO PIC S999 COMP-3.
04 SRT-BATCHNO PIC S9999 COMP-3.
04 SRT-ACCTNO PIC S9(13) COMP-3.
04 SRT-CHEKNO PIC S9(8) COMP-3.
04 SRT-CHEKAMT PIC S9(9)V99 COMP-3.
04 SRT-CHEK-DATE PIC S9999999 COMP-3.
04 SRT-VENDOR-NO PIC X(11).
04 SRT-VOID-DROP PIC X(05).
04 SRT-FILLER PIC X(03). |
|
Back to top |
|
|
DavidatK
Active Member
Joined: 22 Nov 2005 Posts: 700 Location: Troy, Michigan USA
|
|
|
|
bd2bowl,
It looks like the hardest part is determining what moves to where.
Please be a little mode specific on what the new layout will look like.
i.e.
new-layout
Code: |
05 ACCOUNT-NUMBER PIC S9(13).
|
Please supply the new copybook in COBOL form.
Then give me what moves to where.
i.e.
Code: |
MOVE RECON-TP-ACCT-NO TO ACCOUNT-NUMBER.
|
Thanks,
Dave |
|
Back to top |
|
|
|