If you set DIALECT"ENTCOBOL" the following Compiler directives are set:
|
ADV ALIGN"4 OPT" ALPHALITCONT"MARGIN" ALPHASTART"1" ALTER ANS85 APOST AREACHECK ARITHMETIC"ENTCOBOL" ASSIGN"EXTERNAL" NOBOUND BYTEMODEMOVE CALLFH CALLSORT"EXTSM" CANCELLBR CHARSET"EBCDIC" CHECKDIV"ENTCOBOL" COBSTATCONV NOCOBOL370 COPYEXT"CPY,CBL" COPYLBR COPYLIST COPYLISTCOMMENT"7" CURRENT-DATE"MMDDYY" DBCHECK DBCS"3" DBCSSOSI"14""15" DBSPACE DE-EDIT"2" DEFAULTBYTE"00" NODG DISPLAYPICU"ANSI" NODOSVS DPC-IN-DATA"XML" DPC-IN-SUBSCRIPT NODYNAM ECHO ENTCOBOL |
ERRLIST"VERBOSE" NOEXECSQLFLAG EXITPROGRAM"ANSI" NOFASTINIT FCDCAT FDCLEAR"3" FLAG"ENTCOBOL" FLAGAS"S" NOFLAGMIG NOFLAGSTD FOLDCALLNAME"UPPER" FOLDCOPYNAME"UPPER" FORM"60" FP-ROUNDING"ENTCOBOL" HOSTCONTZERO HOSTFD HOSTNUMCOMPARE HOSTNUMMOVE NOIBM-MS IBMCOMP INDD"SYSIN 80 R" INFORETURN"0" NOLIBRARIAN LISTWIDTH"80" MAPNAME NOMF NOMFCOMMENT NOMS NOMVS NSYMBOL"NATIONAL" ODOSLIDE NOODOOSVS NOOLDCOPY NOOLDINDEX NOOLDNEXTSENTENCE NOOPTIONAL-FILE NOOS390 |
NOOSVS OUTDD"SYSOUT 121 R" NOPANVALET NOPC1 PERFORM-TYPE"ENTCOBOL" NOPROGID-COMMENT NOPROTECT-LINKAGE QUAL QUALPROC RDW RECMODE"ENTCOBOL" REMAINDER"2" RESEQ NORM NORMFILEERRORS RTNCODESIZE"2" NOSAA NOSEG NOSEQCHK SEQUENTIAL"RECORD" SETTINGS"COL" SOURCEFORMAT"FIXED" NOSPZERO STICKY-LINKAGE"1" NOSTICKY-PERFORM SYMBSTART"1" SYSPUNCH"80" NOTRACE NOTRUNC TRUNCCALLNAME"8" TRUNCCOPY"8" NOVSC2 WARNING"3" NOXOPEN NOXREF ZEROLENGTHFALSE NOZEROSEQ ZWB |