Converting Unisys COBOL to AS/400 COBOL 1

[Guest_imported]

I have a Unisys COBOL source which I have to look at an give an estimate in time if it would be converted to AS/400 COBOL. Most of the source is basic COBOL, but a few statements are not know by the common references. I cannot find a Unisys COBOL Reference. So hopefully someone can give me some answers to my questions about the used statements which are probably Unisys COBOL related.

1). In the DATA DIVISION :

DATA-BASE SECTION.
******************
DB PARAMETERS
01 DPTABLE
01 RESTARTAREA
*
I like to know how it works and what it does.

2). In the WORKING-STORAGE SECTION:

COPY "(SOURCE)LIBRARY/BATCH/DMSWS/01 ON PROGRAMPACK"
*
I do know the COPY-statement, but the way it is used here doesn't ring a bell.

3). In the PROCEDURE DIVISION:

OPEN INQUIRY PARAMETERS
*
OPEN in combination with INQUIRY is not known.

CLOSE LMI012 WITH PURGE
*
CLOSE in combination with PURGE is not know.

FIND DPTABLE VIA FIRST (or NEXT) DPTABLESET AT DPTABLETYPE = WW10-TABLETYPE
*
FIND is probably some kind of READ-instruction, but I'd like to know what it does.

I am all ear for answers... :^)

 

[CodeSlug]

Hi DiBasco,

1) This section invokes a 'link' to the DMSII database called 'PARAMETERS'. The compiler will create a COBOL-compatible layout that is compiled into the object program and provides the basic support to inquire, update, etc.. into the database.

2) This is an invoke if what IBM folk refer to as a 'copy library' this files contents are copied into the source program before compilation occurs.

3) This opens the 'PARAMETERS' data base for access by the program in 'INQUIRY' mode. No updates to the data base will be allowed when this syntax is used.

3b) PURGE is a UNISYS extension to COBOL, and is most often used with intermediate work files that are not required once the program completes. When the program completes, the file in question is PURGEd from the disk unit.

3c) FIND is DMSII syntax for read where the condition DPTABLESET AT DPTABLETYPE = WW10-TABLETYPE is TRUE. More specifically, you are reading the PARAMETERS database set called 'DPTABLESET' which has at least the key 'DPTABLETYPE'that is equal to the variable WW10-TABLETYPE. To get deeper into this, I would need to know some details on the set definition in the databases DASDL.

Hope this helps, good luck.
CodeSlug