Compiler-Directing Statements
In OPM COBOL/400, a DDS source with data type G and VARLEN will produce the following:
06 FILLER PIC X(10) (Variable length field)
ILE COBOL adds a comment after the variable length field comment, which is more accurate:
06 FILLER PIC X(10) (Variable length field) (Graphic field)
In ILE COBOL, if a source file member is being compiled, the default source file name is QCBLLESRC. If a stream file is being compiled, the stream file must be specified. In ILE COBOL, if a source file member is being compiled, a COPY statement without the source qualifier will use QCBLLESRC. If the default file name is used and the source member is not found in file QCBLLESRC then file QLBLSRC will also be checked. If a stream file is being compiled, the compiler follows a different search order to resolve copy books. See the ILE COBOL Reference for details.
In OPM COBOL/400 the default source file name is QLBLSRC.
PROCESS Statement
If *CONTROL is encountered on the PROCESS statement, then it is not handled as a directive but as an invalid PROCESS option. The *CBL/*CONTROL directive should be the only statement on a given line.
In ILE COBOL, if FIPS flagging is not requested on the CRTCBLMOD or CRTBNDCBL commands, and there is a COPY statement within the PROCESS statement, no FIPS flagging will be performed against the copy member when INTERMEDIATE or MINIMUM is specified after the COPY statement. However, if INTERMEDIATE or MINIMUM is specified before the COPY statement, then FIPS flagging will be performed against the copy member.
In OPM COBOL/400, regardless of whether or not INTERMEDIATE or MINIMUM is specified before or after the COPY STATEMENT, FIPS flagging is performed against the copy member.
In OPM COBOL/400, when the NOSOURCE option is specified on the PROCESS statement, the Options in Effect values are printed on the compiler listing.
In ILE COBOL, when the NOSOURCE option is specified on the PROCESS statement, the Options in Effect values are not printed on the compiler listing.
OPM COBOL/400 accepts USE FOR DEBUGGING when WITH DEBUGGING MODE is specified.
ILE COBOL does not support USE FOR DEBUGGING. Text is treated as comments until the start of the next section or the end of the DECLARATIVES. A severity 0 error message and a severity 20 error message are issued.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.