Fw: Re: Convert COBOL record layout specs to PF orDDLspecs?

a typo:
...
PIC S9(n)V9(m) COMP-3
to DECIMAL(n, m)

of course it should be
to DECIMAL(n+m, m)


-----Postúpil užívateľ Roman Miklos/RZB/PSS 03.06.2016 18:27 -----
Komu: "COBOL Programming on the IBM i \(AS/400 and iSeries\)" <cobol400-l@xxxxxxxxxxxx>
Od: RMiklos@xxxxxx
Odoslal: "COBOL400-L"
Dátum: 03.06.2016 18:20
Predmet: Re: [COBOL400-L] Convert COBOL record layout specs to PF orDDLspecs?


"In addition to this script not resolving REDEFINEs (per Roman's earlier
note in the thread), it also doesn't resolve OCCURS."

Yes you are right. As I wrote, it was originaly written as a skript for one given task,
where I had only flat data structures without REDEFINEs and OCCURS.

If you set on the beggining of the script

# CREATE TABLE statement indikator (0=false, 1 = true)

create_table = 1

then it tries to create CREATE TABLE statement, but you need to have hierarchical structure with only one level 01 element.

If you set on the beggining

create_table = 0

it tries to extracts everything, so you can have more level 01 elements in your source.

Other thing is that the scripts convert
PIC X(n)
to CHAR(n)
and all number types to DECIMAL, i.e
PIC 9(n)
to DECIMAL(n, 0)
and
PIC 9(n)V9(m)
PIC S9(n)V9(m)
PIC S9(n)V9(m) COMP-3
to DECIMAL(n, m)

We use mostly these 2 datatypes for files which are processed with COBOL (no VARCHARs, no INTEGERs.)


-----"COBOL400-L" <cobol400-l-bounces@xxxxxxxxxxxx> píše: -----
Komu: "COBOL Programming on the IBM i (AS/400 and iSeries)" <cobol400-l@xxxxxxxxxxxx>
Od: Dan
Odoslal: "COBOL400-L"
Dátum: 03.06.2016 16:54
Predmet: Re: [COBOL400-L] Convert COBOL record layout specs to PF or DDLspecs?


Thanks Roman!

For others who, like me, are qshell / awk noobs, I copied the script Roman
provided into a (Windows) text file and saved it to my IFS folder. (For
simplicity's sake, I also stored the COBOL copybook text file in the same
folder.) I opened the script in Notepad++ and saved it as a "Unix script
file (*.sh; *.bsh)", thinking that this might get rid of the CR
characters. I tried running the script in qshell as is, but kept getting
syntax errors. Google was *not* my friend for the syntax problem, but I
did find that Notepad++ can automatically convert end-of-line characters.
In Notepad++, I clicked on View / Show Symbol / Show End of Line. Here, I
could see that each line ended with CR/LF. To remove the CR, click Edit /
EOL Conversion / UNIX/OSX Format. Now the script runs like a charm.

In addition to this script not resolving REDEFINEs (per Roman's earlier
note in the thread), it also doesn't resolve OCCURS.

- Dan