DIALECT"COBOL370"、DIALECT"COBOL371"、または DIALECT"COBOL372" を設定すると、次のコンパイラ指令が設定されます。
ADV ALIGN"8 OPT" ALPHASTART"1" ALTER ANS85 APOST AREACHECK ARITHMETIC"VSC2" ASSIGN"EXTERNAL" NOBOUND BYTEMODEMOVE CALLFH CALLSORT"EXTSM" CANCELLBR CHARSET"EBCDIC" CHECKDIV"COBOL370" COBOL370"2" (DIALECT"COBOL370" の場合) COBOL370"2" (DIALECT"COBOL372" の場合) COBOL370"1" (DIALECT"COBOL371" の場合) COBSTATCONV COPYEXT"CPY,CBL" COPYLBR COPYLISTCOMMENT"7" CURRENT-DATE"MMDDYY" DBCHECK DBCS"3" DBCSSOSI"14""15" DBSPACE DE-EDIT"2" DEFAULTBYTE"00" NODG NODOSVS DPC-IN-SUBSCRIPT NODYNAM ECHO NOENTCOBOL |
ERRLIST"VERBOSE" NOEXTINDEX NOFASTINIT FCDCAT FDCLEAR FLAG"COBOL370" FLAGAS"S" NOFLAGMIG NOFLAGSTD FOLDCALLNAME"UPPER" FOLDCOPYNAME"UPPER" HOSTCONTZERO HOSTFD HOSTNUMCOMPARE"2" HOSTNUMMOVE"2" NOIBM-MS IBMCOMP INDD"SYSIN 80 R" INFORETURN"0" NOLIBRARIAN LISTWIDTH"80" MAPNAME NOMF NOMFCOMMENT NOMS NOODOOSVS ODOSLIDE NOOLDCOPY NOOLDINDEX NOOLDNEXTSENTENCE NOOPTIONAL-FILE NOOS390 NOOSVS OUTDD"SYSOUT 121 R" |
NOPANVALET NOPC1 PERFORM-TYPE"COBOL370" NOPROGID-COMMENT NOPROTECT-LINKAGE QUAL QUALPROC QUOTE RDW RECMODE"COBOL370" REMAINDER"2" RESEQ NORM RTNCODESIZE"2" NOSEG NOSEQCHK SEQUENTIAL"RECORD" SETTINGS"COL" SOURCEFORMAT"FIXED" NOSPZERO STICKY-LINKAGE"1" NOSTICKY-PERFORM SYMBSTART"1" SYSPUNCH"80" NOTRACE NOTRUNC TRUNCCALLNAME"8" TRUNCCOPY"8" WARNING"3" NOXOPEN NOXREF ZEROLENGTHFALSE NOZEROSEQ ZWB |