GENERAL PROPERTIES

RETURN sort-file-name RECORD [INTO dataname] ...
CLOSE file WITH LOCK - Lock status parsed but ignored
COBOL File Section: FD fd1 VALUE OF xxx1 is xxx2 xxx3 ... VALUE OF info parsed but not used
FD section / REPORT IS var - information parsed but ignored
FILE CONTROL - SYMBOLIC/NOMIMAL KEY IS keyname - information parsed but ignored
Passing parameters to programs. Linkage Section and PROCEDURE Division Using xxx ...
COBOL Variable Type 'LONG' defined as 32 bit integer - can be changed on request
VAX COBOL - Display variable WITH CONVERSION - WITH CONVERSION parsed but not effected
MFCOBOL --- ACCEPT abcd TIMEOUT AFTER n - TIMEOUT parsed but not translated
COBOL 'CANCEL program' StatementCOBOL DECLARATIVES incomplete
COBOL FD Section, record lenght information is ignored
COBOL OPEN ... WITH NO REWIND - Information not used
COBOL Variable definition - EXTERNAL - field/group information is discarded
GLOBAL - definition of Fields/Groups as GLOBAL. Parsed but information discarded
General Information : - 'Prepared Files' Format
I-O-CONTROL. some information provide by the program are ignored - e.g.
IBM COBOL - 01 var1 pic X(99) SUPRESS . - Suppress is currently parsed by ignored
JCL - CORECT incapable of parsing / processing embeded JCL
MF COBOL : SELECT file ASSIGN .... LOCK MODE IS MANUAL WITH LOCK ON ... parsed b
ORGANIZATION IS RELATIVE WITH VLR - Information parsed but ignored.
PROCEDURE DIVISION USING data-name. The information 'USING data-name' is ignored.
Screen Section: SOURCE/OBJECT -> Object not used

COBOL File Section: FD fd1 VALUE OF xxx1 is xxx2 xxx3 ... VALUE OF info parsed but not used

FD section / REPORT IS var - information parsed but ignoredThe information is dupilcated in REPORT section.

FILE CONTROL - SYMBOLIC/NOMIMAL KEY IS keyname - information parsed but ignored

Passing parameters to programs. Linkage Section and PROCEDURE Division Using xxx ...
When passing parameters between programs - the parameters can be one of 2 types :
1 - primary data-types eg.
   03 integer1 pic 9(6)
   . ...
   CALL program1 USING integer1.
In programing languages such as Java,
passing primitive datatypes such as above is always done BY VALUE
2- structures e.g.
   01 employee.
   03 forename pic x(20).
   03 surname pic x(20).
   ...
   CALL program1 USING employee.
Here corect will convert the employee to a CLASS, and an instance of the 'employee' class will be created at program initialization. Thus when callinganother program, the system will pass the instance of the employee. In programing languages such as Java this is effectively equivalant of passingparameters BY REFERENCE.

COBOL Variable Type 'LONG' defined as 32 bit integer - can be changed on request

VAX COBOL - Display variable WITH CONVERSION - WITH CONVERSION parsed but not effected

MFCOBOL --- ACCEPT abcd TIMEOUT AFTER n - TIMEOUT parsed but not translated

COBOL 'CANCEL program' Statement
This is used to free memory in some COBOL compilers. Presently CORECT will translate this to a line in the program specifying :

COBOL DECLARATIVES incomplete

COBOL FD Section, record lenght information is ignoredeg
eg
   FD record1
   Record Contains 12 to 200 Characters
depending on ADMIN_RECORD_LENGTH
   LABEL RECORDS ARE STANDARD
   RECORDING MODE IS F
   BLOCK CONTAINS 0 RECORDS
   DATA RECORD IS REPT_REC

COBOL OPEN ... WITH NO REWIND - Information not used

COBOL Variable definition - EXTERNAL - field/group information is discarded

GLOBAL - definition of Fields/Groups as GLOBAL. Parsed but information discardedeg
eg
   01 var1 is global \.

General Information : - 'Prepared Files' Format
Preparing files for preprocessing is done to enable heurestic parsing of the COBOL programs / modules in LISP language (CORECT was written in LISP). The following are some of the necessary changes to the programs :

- statements terminator character '.' is replaced by '\.' - there always needs to be a space (or carriage return) preceeding the statement terminator '\.'

- "-" Characters are converted to "_" characters as many languages - including Delphi, Java and C/C++ do not allow "-" characters as part of variable or Funtion names.

- Comments characters at positon 7 are replaced by // "comment". CORECT will attempt to translate these comments to the target language. Note that Semicolor character ';' (when not enclosed by double quotes) represent LISP Comment - and behaves like '//' in C/C++ or Delphi. Hence you can make CORECT to altogether ignore a statement by prefixing it by ';;'. Eg. You can remove unnecessary comments from the COBOL program by starting the line by ';;' eg

* This is a comment line
Translated to
// "this is a comment line" -- will be translated by CORECT
;; // "This is a comment line" -- will NOT be translated by corect

I-O-CONTROL. some information provide by the program are ignored - e.g.
MULTIPLE FILE CONTAINS variables
APPLY LOCK_HOLDING ON variable
APPLY FILE_SHARE ON variables

IBM COBOL - 01 var1 pic X(99) SUPRESS . - Suppress is currently parsed by ignored

JCL - CORECT incapable of parsing / processing embeded JCL

MF COBOL : SELECT file ASSIGN .... LOCK MODE IS MANUAL WITH LOCK ON ... parsed b

ORGANIZATION IS RELATIVE WITH VLR - Information parsed but ignored.
Applies to HONEYWELL BULL

PROCEDURE DIVISION USING data-name. The information 'USING data-name' is ignored.
The procedure (folowing procedures) is/are automatically given access to the data-names

Screen Section: SOURCE/OBJECT -> Object not usedeg
eg
05 screen_var pic 9(6) SOURCE ws_var OBJECT ws_var.
The information on OBJECT may be ignored.