Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to convert comressed ascii to straight ascii format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
bd2bowl

New User


Joined: 21 Jan 2006
Posts: 1

PostPosted: Sat Jan 21, 2006 6:42 am    Post subject: How to convert comressed ascii to straight ascii format
Reply with quote

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
View user's profile Send private message

DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Tue Jan 24, 2006 6:10 am    Post subject: Re: How to convert comressed ascii to straight ascii format
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts FTP data transfer from PC to Mainfram... AJAYREDDY All Other Mainframe Topics 8 Wed Aug 23, 2017 9:59 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us