Using the Data Convert tool to transform EBCDIC ... - Micro Focus

Using the Data Convert tool to transform EBCDIC/ASCII files
This article provides an example taking a mainframe EBCDIC file and using
Data Convert tool to convert to a ASCII file and then taking the ASCII file
and convert back using Data Convert tool to a EBCDIC file to upload onto
Mainframe. This maps the processes that can be useful for customers who
have to move data to and from their mainframe.
This example uses a sample mainframe EBCDIC datafile (MainFrame-
EBCDIC.dat) to demonstrate how to use Data Convert tool for this task. The
project files (programs, data files, etc.) supporting this example can be
downloaded to allow you to examine the process more closely. Since the
Data Convert tool is a part of both Net Express and Mainframe Express, the
information presented here is applicable to both products.
1) Open the project EBCDIC-ASCII-convert.app from the
EBCDIC_ASCII_convert folder.
2) On the right hand side of project highlight and drag over to generic
debug window the EBCDIC-layout.cbl and build the EBCDIC-layout.int.
3) Right mouse click on EBCDIC-layout.cbl and click on Build settings.
Click on the Compile tab and add the following to the Directives
window.
Charset(EBCDIC) sign(EBCDIC)
4) Do Project -> Update all dependencies, Do Project -> Rebuild all
5) Right mouse click on EBCDIC-layout.CBL and click on Create Record
Layout.
6) Right mouse click on 01 SEG-RPCMTDTP-CEAC and click on New
layout.
7) Net Express/Mainframe Express window will appear,
Scaptopc.idy EBCDIC
Datatools ANSI
Click on Yes.
8) Layout window will appear,
On left hand side, Scroll down to group item 01 SEG-RPCMTDTP-CEAC
Right mouse click and select New Layout
Default layout, click Next
Click Finish
Do a File -> Save as
Change File name to EBCDIC-layout.str and save the file.

9) In the current EBCDIC-ASCII-convert.app project, Open the EBCDIClayout.cbl
Search for SEG-RPCMTDTP-CEAC
Select the o1 and 05 levels for this group item and right mouse click,
select copy
Save program as ASCII-layout.cbl.
10) Next, Delete everything on left hand side of the project.
Now, from the right hand side, add ASCII-layout.cbl
Hightlight and drag the ASCII-layout.cbl over to the generic debug
build and build the ASCII-layout.int
Right mouse click on ASCII-layout.cbl and click on build settings
Click on the compile tab and add the following
Charset(ASCII) sign(EBCDIC)
Do Project-> update all dependencies, Project-> Rebuild all.
Now you should have the ASCII-layout.int built correctly.
.
Example of ASCII-layout.cbl.
ASCII-LAYOUT.CBL
program-id. ASCII-layout.
environment division.
data division.
01 SEG-RPCMTDTP-CEAC.
05 CMTDTP-CLE-SEG-RPCMT-CEAC.
10 CMTDTP-EL-NO-GR-COCEAC PIC X(10).
10 CMTDTP-EL-NO-COCEAC PIC X(10).
05 CMTDTP-EL-CLE-SEG-RPCMTCRP-CEA.
10 CMTDTP-EL-CD-TYP-PER-CRP-CEAC PIC X.
* 10 CMTDTP-EL-DT-DEB-PER-CRP-CEAC PIC X(8).
10 CMTDTP-EL-DT-DEB-PER-CRP-CEAC PIC X(6).
05 CMTDTP-EL-CLE-SEG-RPCRPCRG-CEA.
10 CTMDTP-EL-CD-GAR-CRG-COCEAC PIC X(5).
05 EL-NO-SEQ-CLE-DTP-COCEAC.
07 EL-NO-SEQ-CLE-DTP-CO-NUMCEA PIC 9(5).
05 EL-PRI-COUR-APR-DTP-COCEAC PIC S9(7)V99.
05 EL-PRI-AJU-APR-DTP-COCEAC PIC S9(7)V99.
05 EL-CD-RAIS-TX-APR-DTP-COCEAC PIC X.
05 EL-DT-TX-APR-DTP-COCEAC PIC 9(8).
05 EL-PRI-COUR-ENC-DTP-COCEAC PIC S9(7)V99.
05 EL-PRI-AJU-ENC-DTP-COCEAC PIC S9(7)V99.
05 EL-CD-RAIS-TX-ENC-DTP-COCEAC PIC X.
05 EL-DT-TX-ENC-DTP-COCEAC PIC 9(8).
05 EL-MT-TX-PRI-EXO-DTP-COCEAC PIC S9(7)V99.
05 EL-MT-TX-PRI-DIVD-DTP-COCEAC PIC S9(7)V99.
05 EL-MT-ORIG-CHQ-DTP-COCEAC PIC S9(7)V99.
05 EL-DT-RECEP-CHQ-DTP-COCEAC PIC 9(8).
05 EL-PRI-ENC-PRV-NON-GAG-DTP-CEA PIC S9(7)V99.
05 EL-MT-TX-COR-AJU-DTP-COCEAC PIC S9(7)V99.
05 EL-MT-TX-COR-PRI-DTP-COCEAC PIC S9(7)V99.
procedure division.
exit program.

11) After Rebuilding this program, right mouse click on ASCIIlayout.cbl
and create new layout.
12) Right mouse click on 01 SEG-RPCMTDTP-CEAC and click on New
layout.
13) Layout window will appear,
On left hand side, Scroll down to group item 01 SEG-RPCMTDTP-CEAC
Right mouse click and select New Layout
Default layout, click Next
Click Finish
Do a File -> Save as
Change File name to ASCII-layout.str and save the file.
Now ready to use the Data Tools -> Convert utility.
Open the EBCDIC_ASCII_convert.app project.
On the left hand side , you should rebuild only the EBCDIC-layout.cbl to
EBCDIC-layout.int
Only this program EBCDIC-layout should be in generic debug build.
Update all dependencies , rebuild all.
First , convert the mainframe EBCDIC file MainFrame-EBCDIC.dat to a ASCII
file using
Tools-> Data Tools -> Convert in the Net Express/Mainframe Express IDE.

Enter the following:
Input file
Filename: MainFrame-EBCDIC.dat
A window will appear, put in 153 for maximum record length.
Change character set from ANSI to EBCDIC
Character set conversion
Check Convert character set.
Since the MainFrame-EBCDIC.dat file does not contain packed
fields , do not
need To check “Record contains non-text items. If the file did
contain non-
text items (packed decimal fields), then you would enter a
structure file layout
for the file.
For New File
Filename: d:\EBCDIC_ASCII_convert\convert_to_ASCII.dat

Click Convert.
The Convert utility will convert 58 records.
Next, Will convert convert_to_ASCII.dat (ASCII)file back to a
convert_ASCII_backto_EBCDIC.dat (EBCDIC)file.
First delete everything in generic debug build.
Highlight and drag over to generic debug build the ASCII-layout.cbl
Next, for the ASCII-layout.cbl do Poject -> Update all dependencies, Project -
> Rebuild all
Now, do the Tools-> Data Tools -> Convert
Enter the following:
Inputfile
Filename: d:\EBCDIC_ASCII_convert\convert_to_ASCII.dat
Enter 153 for maximum record length.
Change character set from EBCDIC to ANSI.

Newfile
Change filename to
d:\EBCDIC_ASCII_convert\convert_ASCII_backto_EBCDIC.dat
Click on Convert and 58 records will be converted.
Close the Project and files.
The following files are now in the EBCDIC_ASCII_convert folder
1) Original mainframe EBCDIC file: MainFrame-EBCDIC.dat
2) Converted ASCII file: convert_to_ASCII.dat
3) Converted back to EBCDIC file from ASCII file:
convert_ASCII_backto_EBCDIC.dat
The trick now is to use the appropriate Structure file (.str) depending on
which file that is being viewed is either ASCII or EBCDIC.
For example,

Depending on the file being open, need to be in the correct structure file
for EBCDIC use EBCDIC.str or for ASCII use ASCII.str.
First , load and rebuild in generic debug build the ASCII-layout.cbl to
ASCII-layout.int
Open up the convert_to_ASCII.dat file in the EBCDIC_ASCII_convert
folder.
Do File ->Open
Change file of type to data file *.dat
Open the convert_to_ASCII.dat with 153 maximum record length.
You can save a profile for this file if prompted.
NOTE:
When opening up one of the data files , and the following ********
appear in the value fields then either the structure file (.str ) was created
wrong or the wrong structure file was used to convert , then delete the
data file and load the appropriate cobol program and rebuild one for
EBCDIC (EBCDIC-layout.cbl) or one for ASCII (ASCII-layout.cbl) before
converting the file. Make sure update all dependencies, rebuild all in the
project before converting.
Also, 2 projects can be created for the layouts, one for ASCII layout and
another for EBCDIC layout.

Reference Knowledge Base Document #21088