Data Definition Language (DDL) Reference Manual

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual—529431-004
9-63
FORTRAN
When FORCHECK is in effect, the DDL compiler issues the following message for
each DEFINITION or RECORD statement that passes the syntax check:
FORTRAN CHECK completed for name
FORTRAN
The [NO]FORTRAN command:
•
Opens [closes] a FORTRAN source code file
•
Starts [stops] writing translated DDL object definitions to the FORTRAN source
code file
Default: NOFORTRAN
FORTRAN
closes any open FORTRAN source code file, opens fortran-source-file,
translates subsequent DDL objects defined by statements or specified in OUTPUT
statements to FORTRAN source code statements, and writes the FORTRAN
source code statements to fortran-source-file.
fortran-source-file
is the name of the FORTRAN source code file to be created, if necessary, and
opened. The file must be one of:
•
EDIT file
•
Unstructured file
•
Sequential device (such as a terminal, spooler, or process)
If the file exists but is not one of these types, the DDL compiler issues an error
message and does not open the file.
Example 9-28. FORCHECK Command
?FORCHECK
RECORD long.
FILE IS "$data.sales.long" KEY-SEQUENCED.
02 lfield PIC X(256).
02 sfield PIC X KEYTAG 0.
END
Record LONG size is 257 bytes.
*** WARNING *** FORTRAN OUTPUT DIAGNOSTICS.
*** ERROR *** Fortran element with size greater than 255 - LFIELD
?NOFORCHECK
{ FORTRAN [ fortran-source-file [ ! ] ] }
{ NOFORTRAN }