If you set DIALECT"BS2000", the following Compiler directives are set:
|
ALIGN"8 OPT" ALPHASTART"1" ALTER NOANS85 ARITHMETIC"MF" ASSIGN"EXTERNAL" BS2000 CALLFH CALLSORT"EXTSM" CANCELLBR CHARSET"EBCDIC" CHECKDIV"ANSI" NOCOMS85 COPYEXT"cbl,CPY," NOCOPYLBR CURRENT-DATE"MMDDYY" NODBCHECK NODBCS NODBCSSOSI NODBSPACE DE-EDIT"2" DEFAULTBYTE"00" NODG DPC-IN-SUBSCRIPT DYNAM ECHO NOENTCOBOL NOFASTINIT |
NOFDCLEAR FLAG"BS2000" FLAGAS"S" NOFLAGMIG NOFLAGSTD FOLDCALLNAME"UPPER" FOLDCOPYNAME"UPPER" NOHOSTNUMCOMPARE NOHOSTNUMMOVE NOIBM-MS INFORETURN"0" IOCONV ISO2002 NOLIBRARIAN NOMAPNAME NOMF NOMFCOMMENT NOMS ODOSLIDE NOOLDCOPY NOOLDINDEX NOOLDNEXTSENTENCE NOOLDREADINTO NOOPTIONAL-FILE NOPC1 |
PERFORM-TYPE"MF" NOPROGID-COMMENT NOPROTECT-LINKAGE QUAL QUALPROC QUOTE NORDW RECMODE"F" REMAINDER"1" NORESEQ NORM RTNCODE-TYPE"COMP5" RTNCODESIZE"4" NOSEQCHK SOURCEFORMAT"FIXED" NOSPZERO NOSTICKY-LINKAGE NOSTICKY-PERFORM SWITCH-TYPE"3" SYMBSTART"1" TRUNC NOTRUNCCOPY WARNING"3" NOXOPEN ZEROLENGTHFALSE NOZEROSEQ NOZWB |