Highlighted
Outstanding Contributor.
Outstanding Contributor.
109 views

Tool for converting Cobol record Pictures in SQL Syntax

with openEsql assistant it is possible to convert SQL Pictures clauses in Cobol Syntax.

SQL_Name nchar(40) not null --> SQL-Name     pic x(40).

Is the reverse way also possible?

Who know from a tool that haven this functionality?

for one data record, this can be done manually, but by more than 100 file-records, this may be helpfull

Thanks

 

0 Likes
1 Reply
Highlighted
Outstanding Contributor.
Outstanding Contributor.

Betreff: Tool for converting Cobol record Pictures in SQL Syntax

This must be a new Feature in visual Cobol 5.1:
- creating Sql table syntax from Cobol fd file
Example:
FD COBFILE.
01 COBFILE-RECORD.
03 COBFILE-TEST PIC X(40).
03 COBFILE-DATE PIC 9(08).
03 COBFILE-ZAHL PIC 9(08)V9(02).
03 COBFILE-ZAHL1 PIC 19(08)V9(02).
03 COBFILE-IND PIC 9(01) OCCURS 10.
will give
cobfile_text nchar(40) not null,
cobfile_date date not null,
cobfile_zahl numeric(8,2) not null,
cobfile_zahl1 decimal(8,2) not null,
cobfile_ind1 numeric(1) not null,
cobfile_ind2 numeric(1) not null,
cobfile_ind3 numeric(1) not null,
cobfile_ind4 numeric(1) not null,
cobfile_ind5 numeric(1) not null,
cobfile_ind6 numeric(1) not null,
cobfile_ind7 numeric(1) not null,
cobfile_ind8 numeric(1) not null,
cobfile_ind9 numeric(1) not null,
cobfile_ind10 numeric(1) not null.
In the other direction, there will be done with openEsql assistant.
I will write a little Cobol program doing this for my new Project, may be that Manual correction will be necessary.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.