Data Definition Language (DDL) Reference Manual

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual—529431-004
9-91
PASCALNAMEDVARIANT (D-Series Only)
When PASCALCHECK is in effect, DDL issues the following message for each DDL
object that passes the syntax check:
PASCAL CHECK completed for name
In this message, name is the name of the object checked by PASCALCHECK.
PASCALNAMEDVARIANT (D-Series Only)
The [NO]PASCALNAMEDVARIANT command generates the REDEFINES clause in
the last element as a named [anonymous] variant record in Pascal output.
Default: NOPASCALNAMEDVARIANT
PASCALNAMEDVARIANT
generates the REDEFINES clause in the last element as a named variant record in
Pascal output.
NOPASCALNAMEDVARIANT
generates the REDEFINES clause in the last element as an anonymous variant
record in Pascal output.
Example 9-45. PASCALCHECK Command
?PASCALCHECK
DEF TRANSPORT.
02 CASE PIC X(10).
02 ORIGIN PIC X(10).
02 DESTIN PIC X(10).
02 LABEL PIC X(10).
02 PACKED PIC X(10).
END.
Start syntax checking.
Definition TRANSPORT size is 50 bytes.
Definition TRANSPORT added to dictionary.
*** WARNING *** PASCAL OUTPUT DIAGNOSTICS:
*** ERROR *** Reserved word - CASE
*** ERROR *** Reserved word - LABEL
*** ERROR *** Reserved word - PACKED
*** WARNING *** Errors detected - no output for TRANSPORT
?NOPASCALCHECK
Stop syntax checking.
[NO]PASCALNAMEDVARIANT