Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Convert +9999999999999.99 to S9(12)V9(3) vnktrrd DFSORT/ICETOOL 8 Thu Nov 17, 2016 8:15 pm
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm
No new posts convert PD to ZD ram_vizag DFSORT/ICETOOL 5 Sat Nov 05, 2016 3:06 am
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us