Trailing-Edge
-
PDP-10 Archives
-
cobol12c
-
diags.rel
There are 13 other files named diags.rel in the archive. Click here to see a list.
x3d 0 k5B H B}d
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1985.
ALL RIGHTS RESERVED.
(D"* 4{1t w+ 14 x+ 1t }+ 1t + 0t + Tf+ 7T|6TT|5T 4{
T@ &4 )V|&4 )V|&4 )V )T
.ltl4{tm m,~ @x FDiagnostic no. XXXX from phase A FFirst word not IDENTIFICATION. FBlocking factor greater than 4095. FMore than one PROGRAM-ID. FImproper PROGRAM-ID. WDECsystem-10 assume "d. FMore than one OBJECT-COMPUTER paragraph. FImproper paragraph name. FThe *word SELECT expected. FFile SELECTed more than once. FASSIGN is the only allow 3ed word here. FNo device name specified. FOnly one device of this type allowed. ;FNo file name given. FProcessing mode must be SEQUENTIAL. FImproper ACCESS mod De. FClause duplicated. FThis cannot be a data name. FImproper clause. FImproper LSEGMENT-LIMIT. FThis file not SELECTed. FThis cannot be a file-name. FPosition numbe Ur required. FNot on same device as previous file listed. FCannot be used as a mnem ]onic name. FPositive integer required. FCannot be used as a condition name. fFMust be a single-character non-numeric literal. FAlready in use as a mnemonic name. n FMore than one RERUN clause for this file. FParagraph appears more than once. wFNo DATA DIVISION. FNo PROCEDURE DIVISION. FAll records for this file must have sam e usage. FThis file already defined. FRecord name not unique within this file. FThis is a multi-device file. WThis record not mentioned in DATA RECORDS clause. FNo record name given. FThis is not previous item at this level. FThis is not a numeric item. FUsage conflicts with group item. FThis clause not valid for group it !em. FImproper section name. FNot a SORT file. FThis must be a literal. FNot allow *ed in this section. FData name not defined in this record. FNew record expected here 2. FNo value given. FImproper PICTURE - this character invalid. FImproper PICTU ;RE - this character not
allowed in combination with preceding characters. FA word ma Cy not begin with a hyphen. FA word may not end with a hyphen. FToo many characters L in the word. FToo many characters in the literal. FInvalid character. FCannot be T used as an index name. FThis item does not have usage INDEX. FNot uniquely define ]d. FMore than three levels of OCCURS. FVALUE OF ID must be a DISPLAY field of 9 cha eracters. FVALUE OF DATE-WRITTEN must be a DISPLAY field of 6 characters. FLevel num nbers must be in range 01-49. FInvalid clauses for group item. FREDEFINES not valid v at record level in FILE SECTION. FFOR expected. FINDEX USAGE items may not have a P ICTURE. WJUSTIFIED clause invalid with numeric items. WNo ending quote on this literal. WNo leading quote on continued literal. FToo many characters in PICTURE. FImproper continuation character. FLibrary routine not found. FNo library specifie d in command string. FImproper character for numeric literal. FMore than one !decimal point. WShould not be preceded by a space. WShould be followed by a space ). FFile descriptor expected. WPreceding space assumed. FSource line too lon 2g. FImproper device name. FRight parenthesis expected. FAlready in use as a cond :ition name. FRelational operator expected. FON or OFF expected. FIntermedi Cate result too large. FValues not allowed in LINKAGE SECTION. FAltering independen Kt segment from another segment. FNot implemented in this version of COBOL. FExte Trnal program name expected. FDummy argument must be an 01 LINKAGE SECTION item. \WThis paragraph is never ALTERed. FIllegal entry name. FDecimal places not allow eed. FNo file-descriptor for this file. FMust be an integer in the range 0 - 66. mFMust be a printer channel. FNot yet implemented. FIdentifier expected. WNot va device name -- TTY assumed. FCannot be a data-name. FNot defined. WNo CORRESPONDI ~NG elements. FNot a group name. FERROR expected. FSIZE ERROR assumed. FSIZE ERROR clause incorrect. FNumeric literal or identifier expected. FAt least two i tems must appear before GIVING. FCannot be ALTERed. FPROCEED expected. FParagraph name expected. WALTERed to proceed to itself. FFile name or AREA expected. FNO REWIND or LOCK expected. FNO REWIND expected. FBY or INTO expected. FGIVI )NG clause required. FALL, LEADING, or UNTIL FIRST expected. F1-character non-numeric 1literal expected. FBY expected. WPeriod assumed. FDEPENDING ON clause expected. : FTIMES expected. FEND expected. FAT END or INVALID KEY clause missing. FIden Btifier, index, or TO expected. FIdentifier, index, or literal expected. FIden Ktifier, index, TO, UP, or DOWN expected. FIndex or identifier expected. FIlle Sgal item in expression: compiler error. FUnbalanced parenthesis in expression. FTO e \xpected. WDIVISION expected. FParagraph or section name expected. FSection name e dxpected. WSECTION expected. FOnly notes may appear in remainder of this paragraph. mFNot a declarative sentence. FBEFORE or AFTER expected. FBEGINNING, ENDING, or ER uROR expected. FREEL, FILE, or UNIT expected. FLABEL expected. FPROCEDURE expe ~cted. FStatement expected, or invalid identifier or keyword. F'=' Expected. FTALL YING or REPLACING expected. FA group item may not be a minor key. F'.' or ELSE ex pected. FSENTENCE expected. FINPUT, OUTPUT, I-O, or AREA expected. FProcedure name expected. FToo many levels of VARYING. FFROM expected. FUNTIL expected. FRecord name expected. WThis statement does nothing. FKEY expected. FDECLARATIVES e (xpected. FExternal name expected. FMACRO, FORTRAN, or FORTRAN-IV expected. FFIRS 1T expected. FALL, LEADING, FIRST, or UNTIL FIRST expected. FIllegal sequence of 9 priorities. FNull PROCEDURE DIVISION. FNull DECLARATIVES. FRUN or literal expe Bcted. FDuplicate section name. FDuplicate paragraph in this section. FThis file J already appears in a SAME RECORD AREA clause. FThis file already appears in a SAM SE AREA clause. FImproper character for CURRENCY SIGN. FFD expected. FLABEL RECORDS [clause required. FTwo sections have this name. FThis paragraph name must be qualif died. FA section, as well as a paragraph in the current section,
has this name. FThis l procedure name is not defined. FNot a PICTURE. FNull literal. FIllegal use of u figurative constant. FImproper reference of procedure name in or out of DECLARATI }VES. FFigurative constant or non-numeric literal must follow ALL. FThis procedure name is multiply defined. WThis statement cannot be reached. FToo many levels of qualification. FImproper qualification. FThis file is never OPENed. fBLOCK CONTAINS n RECORDS must be specified for RANDOM access files. FFILE-LIMITS required. FMult iple REEL/UNIT not allowed. FOnly one device allowed. FLABELS must be STANDARD. ( FVALUE OF ID required. FNo data record specified. FNo devices specified. 0FThe word DATA expected. WFile never OPENed. FAccess mode must be RANDOM. FNot a rec 9ord in the FILE SECTION. FMust contain an integer. WAT END assumed. WINVALID K AEY assumed. FThis literal may contain only DISPLAY-6 characters. FImproper class J. WCondition always true. WCondition always false. FWrong number of operands pass Red from PHASE D: compiler error. FFound outside an expression: compiler error. [FExpression generator confused: compiler error. WImpossible to get SIZE ERROR. cWRounding not necessary. FImproper range of PERFORM. FPICTURE required. FPICTURE n lot permitted. FBLANK WHEN ZERO not allowed at group level. FBLANK WHEN ZERO allowed tonly on numeric display items. FJUSTIFIED clause not allowed at group level. }FSYNCHRONIZED clause not allowed at group level. WAt least one and no more than eigh t data names must
be given in a FILE STATUS clause. WThis record not mentioned in DATA RECORDS or
LABEL RECORDS clause -- DATA RECORD assumed
. FA maximum of 4095 o ccurrences allowed. FCondition-name multiply defined for this item. FCONTROL identi fier or FINAL expected. WEXIT for this procedure cannot be reached. WOTHERS expecte 'd. FVALUE clause at higher level supersedes VALUE
clause at this level. FVALUE cla 0use may not appear in a data description containing,
or subordinate to an entry cont 8aining, an OCCURS clause. FGroup items may have only figurative constants or non- Anumeric
literals as values. FVALUE clause not permitted in FILE SECTION. WNon-numer Iic literal in value clause truncated to size of item. FDivision by zero not permitte Rd. FACTUAL KEY must be a COMPUTATIONAL item of ten or fewer digits. FClass of data Zitem inconsistent with VALUE. FNon-standard characters in VALUE clause. FSwitch nu cmbers must be in the range 0 through 35. FUSAGE conflicts with PICTURE. FToo kmany digits to left of decimal point in VALUE clause. FToo many digits to right of d tecimal point in VALUE clause. FAn item subordinate to one containing a VALUE clause m |ust not
be JUSTIFIED or SYNCHRONIZED, and must have USAGE DISPLAY-6, DISPLAY-7
ORrD m ISPLAY-9. FVALUEonot inbrangetdescribedLby PICTURE. WVALUErmay not be signed. e ta items with levels of 01, 66, or 77 may not appear in
a RENAMES clause. FData items requiring subscripting may not appear in a
RENAMES clause. 'FData items appearing in a RENAMES ... THRU ... clause must
belong to the same recor /d. FData items appearing in a RENAMES ... THRU ... clause may neither be
subordina 8te to the other. FThe area defined by the second data item in a RENAMES ... THRU . @..
clause must follow the area defined by the first. FLiteral or figurative constan It expected. FAnother independent item has this name. FIF syntax scan error -- Qimproper unnesting--compiler error. FUnbalanced parentheses. FNo current paragrap Zh - compiler error. FNull table link - compiler error. FInteger literal or identifier b expected, or NEXT/PRIOR/FIRST/LAST. FOnly group items allowed in CORRESPONDING. kFMay redefine only the current data item. FMust be an 01-level report group item. sFMore than 12 nested redefinitions. FAn item containing, or subordinate to an ite |m
containing,eaneOCCURS clausermayinotgbe.redefined FVALUE clause.is notupermitted iniatredefinition. ARedefinitiontis.notatheSsame-sizemasltheeredefinedoitem. FThis subscripting. FMust have a size of 10 digits or less. FCannot continue after an empt &y or comment line. FASCENDING or DESCENDING expected. FRENAMES expected. FSORT gene /rator confused -- compiler error. FImproper name for independent item. FA record 7containing DISPLAY-7 items may not
contain items of any other usage. FThis cannot be @ a library-name. FCOPY statement must be terminated by a period. FLeft parenthes His expected. FIdentifier, numeric literal, or mnemonic-name expected. FFILLER ma Qy not be referenced directly. FThis must be a SWITCH ON or OFF STATUS. FThis file Y must not appear in an SD. FCannot have both USING and INPUT PROCEDURE. FMust have b either USING or INPUT PROCEDURE. FCannot have both GIVING and OUTPUT PROCEDURE. jFMust have either GIVING or OUTPUT PROCEDURE. FVALUE expected. FThere is an in sdependent item of this name. FImproper figurative constant in VALUE clause. FNo r {esult found -- compiler error. WRounding not done with COMP-1 fields. FBLOCK CON TAINS must be specified for a file opened for
INPUT-OUTPUT. WOnly eight signific
ant places used for COMP-1. FTHRU expected. FAt least 3 devices must be assigne d to a SORT file. WSyntax scan suspended at this character. WSyntax scan resumed at this character. FThis procedure-name must be in DECLARATIVES. FThis procedure &-name must not be in DECLARATIVES. FThis procedure-name must be in an INPUT PROCEDURE .. FThis procedure-name is in an INPUT PROCEDURE. FThis procedure-name must be i 7n an OUTPUT PROCEDURE. FThis procedure-name is in an OUTPUT PROCEDURE. FLiterals ?and reserved words may not be replaced. FA word may not be replaced by a reserved wor Hd. FAn item may not exceed 262,143 characters. FThis is neither a data-name nor a Pprocedure-name. FAT END clause required. FINVALID KEY clause required. FAT END an Yd INVALID KEY not allowed. FThis item must not be COMPUTATIONAL-1. FA record in th ae FILE SECTION may not exceed 4095 characters. FMore than 12 nested IF/SEARCH stat jements. FMore than 12 conditions nested in IF statement. FOCCURS is illegal at 01 rlevel in FILE SECTION. FVerb name expected. FInvalid DENSITY. FODD or EVEN re {quired. FNon-sixbit character in VALUE of DISPLAY-6 item. FA numeric item may not e
xceed 18 digits. FTwo literals may not be compared. FInsufficient qualification.
FFewer than 6 characters in DATE-WRITTEN. WFewer than 9 characters in IDENTIFICATI
ON. FSecond half of project-programmer number missing. FMust be an octal integer
of 6 digits or less. FImproper mode. FREPORT name must be unique. FFILE SECT
%ION must precede REPORT SECTION. FData item has improper size for this use. WShou
.ld begin in A-margin. FREPORT not specified in a REPORT clause in FILE SECTION.
6FLine number greater than PAGE LIMIT. FPAGE LIMIT must be positive and less than 51
?2. FCONTROL identifier expected. FIf used, FINAL must be the first CONTROL. FDEPE
GNDING variables must be COMP and 10 digits or less. FClause not legal in report gr
Poup. FUSAGE not legal in REPORT SECTION. FClause legal only in report group.
XFPAGE expected. FMust be less than PAGE LIMIT. FNot a CONTROL identifier.
aFOnly one GROUP of this type allowed per report. FHEADING or FOOTING required. FRepo
irt item type required. FNot declared as a CONTROL. FItem referenced by a SUM clau
rse must be source item in
TYPE DETAIL or item in TYPE CONTROL FOOTING which has
a S
zUM clause. FReport-name expected. FItem will not fit in print line. FNot a TYP E DETAIL item. FItem is SUMmed in REPORT SECTION, therefore it must be numeric. FOnly a CONTROL FOOTING GROUP may have a SUM. FItem referenced by a SUM UPON clause mu st be TYPE DETAIL. FADVANCING/POSITIONING clause illegal with RECORDING MODE other
than ASCII. FVALUE OF USER-NUMBER must be a COMP item with
fewer than 11 digits. %FMust be defined in either the FILE or WORKING-STORAGE SECTION. FRESET may be used o -nly with CONTROL-FOOTING items. FMust be a CONTROL. FMust be a higher level CONTRO 6L than that of this GROUP. FValid only for files with ACCESS MODE INDEXED. FADVA >NCING allowed only on SEQUENTIAL files. FImproper usage. FRECORD KEY and SYMBOLIC GKEY must be same class. FRECORD KEY and SYMBOLIC KEY must be same USAGE. FRECORD KE OY and SYMBOLIC KEY must be same size. FRECORD KEY and SYMBOLIC KEY must have the sa Xme
number of decimal places. FINDEXED files must not be BINARY. FRECORD KEY must be `in appropriate record. FREDEFINES nesting confused -- compiler error. FSearched iitems must have OCCURS clause with INDEXED option. FA key of more major priority qthan this was not specified. FOne operand in every WHEN condition must be a search k zey. FAssociated data item must be a search key. FCondition name must have only a si
ngle value. FSEARCH ALL requires KEY clause in table definition. FCODE must not
contain non-sixbit characters. WON/OFF expected - ON assumed. FOnly equality
conditions allowed in SEARCH ALL. FWHEN expected. FThe only connective in WHEN c
lause is AND. FSYMBOLIC KEY required. FRECORD KEY required. FRECORDS or CHARACTE
$RS required. FCALL argument must be word-aligned. FDuplicate ENTRY definition.
-FIllegal to call internal ENTRY. FPAGE-COUNTER and LINE-COUNTER may not be independ
5ently defined when report writer features are used. FImproper punctuation. FNot
>declared in an ENTRY or PD USING clause. FDuplicate WORKING-STORAGE SECTION.
FFSet-name or ANY expected. FSET expected. FERROR-STATUS expected. FIllegal combin
Oation of ERROR-STATUS USE PROCEDURES. FArea-name expected. FDuplicate SCHEMA SE
WCTION. FALL, RECORD, AREA, SET, or set-name expected. WThis name shouldn't be m
`ore than 6 characters. FINTO expected. FALL or set-name expected. FCOMPILE e
hxpected. FINVALID, ONLY, SELECTIVE, ALL or no qualification expected. FSELECTIVE
q, ONLY, ALL, or record-name expected. FRecord-name, set-name, area-name, or RUN-UNI
yTeexpected. FRECORDUexpected. FFORsexpected. FAREAcordSET expected, orainvalidmp
stcfollowaSCHEMAeSECTION. FSet-nameVexpected. FCURRENTEexpected. FAmbiguous orei . FMESSAGE or SEGMENT expected. FPOINTER expected. FOVERFLOW expected. FDELIMITED
BY clause required. FMust be a channel number. FCannot be an edited item. WPointer, counter or tallying item may have too few digits. FReceiving item contained in cd-record. FSTATUS expected. FOR or INTO expected. WCANCEL is not implemente #d yet -- this sentence ignored. FThis section is out of order. FSchema name ma ,y not also be a reserved word or data name or PROGRAM ID. FDuplicate CONTROL HEADIN 4G GROUP for this identifier. FDuplicate CONTROL FOOTING GROUP for this identifier. =FColumn number must be greater than previous one in report line. FSOURCE or VALUE or E(for CONTROL FOOTING only) SUM clause required. FRESET clause not allowed at GROUP Nlevel. FGROUP INDICATE clause not allowed at GROUP level. FCOLUMN NUMBER illeg Val at GROUP level. FSOURCE or SUM or VALUE clause not allowed at GROUP level. FNEXT _ GROUP clause allowed only at an 01 GROUP level. FRESET FINAL clause allowed only if g there is a CONTROL FINAL. FGROUP INDICATE clause allowed only for TYPE DETAIL. pFCONTROL FOOTING line number must be from FIRST DETAIL to FOOTING inclusive. FCONT xROL HEADING or DETAIL line number must be from FIRST DETAIL to LAST DETAIL inclusive. FPAGE HEADING line number must be from HEADING to FIRST DETAIL inclusive. FREPO RT HEADING or REPORT FOOTING line number must be from HEADING to PAGE-LIMIT inclusive . FPAGE FOOTING line number must be from FOOTING to PAGE-LIMIT inclusive. FReco rd must be in a SORT FILE. FHEADING must be .le. to FIRST DETAIL. FFIRST DETAIL m #ust be .le. to LAST DETAIL. FLAST DETAIL must be .le. to FOOTING. FCOPY not allow +ed within a library. FNot allowed in LINKAGE SECTION. FSubscript may not be in 4LINKAGE SECTION. FSubscripted subscript not allowed. WLeft-most truncation. <FThere must be a LINE clause with or before the FIRST COLUMN clause in a report group E. WMost significant digits truncated. WLeast significant digits truncated. MALeft-most truncation on ARight-most truncation on AMost significant digits trunc Vated on ALeast significant digits truncated on AZeroes put into FConflicts with ^ a USE procedure in SECTION FClass conflicts with class of literal specified as
VA gLUE for condition name FUSAGE must be INDEX. FClass must be alphanumeric. FWron og size for this item. FUsage must be DISPLAY. FClass must be numeric. FCan not h xave any decimal places. FCan not be in the LINKAGE SECTION. FCan not be in the F ILE SECTION. FCan not have a JUSTIFIED clause. FCan not be edited. FCan not be sub scripted. FBLANK WHEN ZERO not allowed. FMust not be signed. FMay not be used as a FILE STATUS item. FIllegal CANCEL of internal ENTRY. FEBCDIC files may not have non -standard LABELS. WCan not follow a level 77 item - assuming level 01. WMaximum c "ompare length of 2047 characters is exceeded. FNeither a non-numeric literal nor +a long numeric literal nor a figurative constant may be used to identify a record to 3be retained. FA COMP value must be used when identifying a record of a SEQUENTIAL o <r RANDOM file to be RETAINed. FA data name or literal used to identify a record of an D INDEXED file to be RETAINed must match the SYMBOLIC KEY of the file in usage and siz Me. FOnly sixteen files may be opened by a single OPEN statement. FFiles being op Uened for simultaneous update must be opened for INPUT-OUTPUT (I-O). WThe presence o ^f a FOR clause alone does not open a file for simultaneous update; an OTHERS clause i fs required. FReceiving item may not be edited or justified. FInvalid RECORDING M oODE. FBoth WRITE ADVANCING and WRITE POSITIONING clauses are used on this file. FIden wtifier or numeric literal expected. FOnly AFTER POSITIONING is allowed. FPosi tioning item must be described by PIC X. FMust be an integer in the range 0 - 3. FAll records in a file whose recording mode is F must be the same size. FOnly dens ities of 800 or 1600 BPI are allowed with STANDARD ASCII. WThis report group will c ause blank lines to be printed since it contains a LINE clause but no COLUMN clauses. " WMaximum ALTERNATE AREAS exceeded; set to maximum value of 62. FVariable in th *is context must be defined in SUB-SCHEMA. WMaximum of 1023 characters will be acce 3pted. WRounding ignored. FWITH SEQUENCE CHECK expected. FOCCURS maximum of 3 ;2,767 exceeded. FTransaction-name expected. FACTUAL KEY required only for RANDO DM files. FBYTE and BINARY mode not both allowed. FHas a DEPENDING variable not decla Lred in an ENTRY or PD USING clause. FLINKAGE subscripts must be usage COMP with f Uewer than 11 digits, and may not have an additive. WSequenced (/S) source file as ]sumed. FMaximum of 18 decimal places exceeded. FIllegal for this dataname to have fa scaling factor. F'==' Expected. WDevice missing -- TTY assumed. FLibrary f nile not found. FCorresponding END DECLARATIVES not seen. WRERUN count maximum of 6 w5535 assumed. FKey not contained in sort-file. WDISPLAY-6, DISPLAY-7 or DISPLAY-9 expected -- DISPLAY-6 assumed. FThis item may not have a DEPENDING variable. FSort key must not contain an OCCURS clause. FRecord size must match RECORD CONTAINS clause in FD of file whose RECORDING MODE is F. FIdentifier or non-numeric literal expected. FIdentifier, non-numeric literal, or SIZE expected. FALTERNATE RECORD KE !Y not supported. F. FMust be a key or subordinate item with the same starting po *sition. WIncorrect and ambiguous syntax. WPeriod ignored. WRECORD CONTAINS cla 2use does not match max. record size, RECORD CONTAINS clause ignored. FBLOCK CONTAINS ; character count too small, file is unblocked. FALTERNATE KEY may only be specifie Cd for INDEXED files. FSimultaneous update not supported for RMS files. FKEY IS al Llowed only when file is INDEXED. FKey must be DISPLAY mode. FKey size must be le Tss than 256 characters. FCALL/ENTER arg expected. FIllegal CALL/ENTER arg. FOPEN ] EXTEND may only be specified for sequential files. FIF or SEARCH not allowed in W eHEN clause of SEARCH FEnding == not found. FMust be an integer in the range 0 n- 255. FThis data item must be described as an integer. FMay only appear in a USE v BEFORE REPORTING procedure. FSUPPRESS not allowed for DETAIL lines - use GENERATE < rdname>. FZERO is the only figurative constant allowed. FIdentifier must be one-w ord computational or index FREDEFINES not allowed at 01 level in COMMUNICATION SEC TION. WDISPLAY-7 assumed - it is the only usage allowed here. WSize of user-d efined CD entry is not equal to the default size. FNO or integer expected. FMay not r !eference a report in a USE BEFORE REPORTING
procedure which uses the same file as t )he USE report group. FData-name illegal at this point, statement or paragraph nam 2e expected. WUnexpected results may occur when the variable part is not the last p :art of the record. FMissing 9 in PICTURE clause after S. FReserved word BY allowed C only once in UNSTRING WLibrary module name too long - truncated to 8 characters. KWLibrary file-name.ext too long - truncated to 9 characters. WNo room for signifi Tcant digit before first comma WMEMORY SIZE too large, maximum assumed FOperand too la \rge to use in literal compare FUsage must be DISPLAY to write from an ASCII record eADEC extension - HIGH-VALUES is highest collating sequence value, not the highest num meric value ADEC extension - Highest numerical value used ADEC extension - ZER vO is only FIGURATIVE CONSTANT allowed for numeric fields by ANSI Standard WRecord si ~ze is less than maximum computed size. WContinuation of comment-entry by '-' is not permitted in COBOL-74. WBLANK WHEN ZERO and '*' not allowed together in COBOL-74. WNumeric literal must be unsigned integer in COBOL-74. WCOBOL-74 syntax is DELETE fil e-name INVALID KEY. WNon-standard labels are illegal in COBOL-74. WAll items whic h are immediately subordinate to a group item must have the same level-number in COBO )L-74. WShould be unsigned integer in COBOL-74. WRecord size not the same as S 1D file as required by 74 standard. WComparing different size items may be different i :n COBOL-74. WSET TALLY TO 0 generated here but not required. WThe VALUE clause is B initialized independent of the JUSTIFIED clause in COBOL-74. WNot in abbreviated Kcombined relation conditions may generate different code WReplace by ACCEPT cd-nam Se MESSAGE COUNT. WContents of DELIMITER may be different in COBOL-74. WImproper \character for CURRENCY SIGN in COBOL-74. WTALLY generated here but not required. dWReplace LOW-VALUE hack with appropriate COBOL-74 syntax. WReplace TODAY with ACCEP mT FROM DAY, DATE, or TIME as appropriate. WSWITCHes are defined differently in COB
uOL-74. WThis is a new reserved word in COBOL-74. (
: : : *U*U* ~: : : ": ': *: -: 0: 4: 7: ;: >: B: D: F: I: K: N *U*U* : P: S: V: [: _: b: f: k: o: s: w: y: {: : : : *U*T* : : : : : : ": $: &: ): ,: 0: 3 : 5: 9: B: F *U*U* : J: M: Q: S: W: [: ]: a: f: m: q: t: z: {: : : *U*U* :
: : : : : : ": &: *: -: 0: 2: 5: 8: <: ?: B *U*U* (: E: I: O: S: W: \: `: b: e: i: m: p: s: u: y: {: } *T*U* 1: : : : : : : : : : : : : #: &: (: + *U*U* 9: /: 3: 5: 7: :: <: >: B: F: J: O: S: W: [: ]: : c *U*U* B: e: g: m: p: s: w: z: |: : : : :
: *A** [: : : : : ": %: ( : +: .: 0: 3: 5: 8: ; *U*U* d: >: @: C: H: J: M: O: V: [: `: c: f: i: k: m: r: x (U*U* l: } : : : : : : !: &: (: /: ;: D: H: O: R: Y *U*U* u: ]: b: g: k: q: w: :
: : : : : ': 0: :: F *U*U* }: J: O: U: X: \: : f: k: o: s: w: : :
: : : *U*U* : : : : #: (: ,: .: 2: 6: >: B: G: J: P: T: X: \ *U*T* : a: e: j: o: q: v: {: : :
: : : : : : $ *U*U* : ): /: 4: 9: >: C: H: M: R: U: X: \: `: f: k: p: u *U*U* : w: y: |:
:
:
:
:
:
:
:
:
!:
$:
):
-:
0:
6 *U*U* (:
::
?:
B:
G:
M:
P:
T:
X:
Z:
^:
a:
f:
i:
l:
o:
|:
~ *U*U* 0: : : : : : : %: +: 1: 3: 9: >: B: D: I: N: S *U*U" 9: [: ^: c: h: n: t: z: :
:
:
:
:
:
:
:
*U*U* A:
":
&:
*:
-:
0:
;:
=:
B:
F:
I:
K:
M:
S:
U:
X:
]:
b *U*U* J:
d:
g:
i:
p:
u:
{:
}:
~: *U*U* R: *U*U* c:
: : : : : : !: ': *: 2: 7: =: C: J: O: T: X *U*U* l: ^: d: j: p: x: : : : : : !: &: *: .: 1: 6: : *U*U* t: <: E: I: M: P: S: W: [: ]: a: i: l: o: r: t: w: z *U*Q* }: ~: : : :
: : : : : ! : ': 5: ?: M: T (U*U" : \ : h: m: o: w: {: : : : : : ": ) : /: 4 *U Q* : 6: 9: =: @: E: I: P : Z: ^ : b: h: j: m: p *U*U* : t: x: |: : :
: : : : #: $: +: .: 0: 9: @: F *U*U* : K: O: R: W: Z: \: b: h: j: o: t: y: : :
: : *U*U( ': : : ,: 3: <: @: E: K: R: W: [: : e: o: t ( 0: } 8 * A : : : I : : : : * R : . Z *U* c : 5 : ;: @: I: Q: U: [: `: d: j: q: v k p : H V0 H VB +T2 JOEeF H zZ H^,& V] K
T p D"<
U s<
U u<
V y<
V {<
W }<
W <
X <
X <
Y D" K
h <
i <
j <
j <
k <
k <
l <
l D"<
m # K
| &<
} (<
} +<
~ /<
~ 3<
5<
7 D"< :< << > K
;< B< F< J< O< S D"< W< [< ]< _< c K
>< $ e< % g< % m D"< & p< & s< ' w< ' z< ( |< ( < ) KK
F< ` @< a C< a E< b I< b O< c T D"< c X< d Z< d ]< e ` K
I< t d< u l< u p< v r D"< v s< w w< w ~< x < x < y
K K<
<
D"<
<
<
<
"<
%<
( V] K D"<u .<v 0<v 3<w 5<w 8<x ;<x ><y @ K
M<
O< V< [<
`<
c D"< k< m< r< x< }< D"<4 <! K5 O K
K <X D"<Y <Z <Z <[ '<[ 0<\ :<\ F<] J Ks D"<q w K
< < < < D"< < < # KB< G< J< P KV^ K
< < < < < < $ D" K H<, M D"<, R<- U K
<Q
<Q
<R
D"<R
<S
<S
<T
<T
!<U
$ K <d
)<e
- D"<e
0<f
6<f
:<g
?<g
B<h
G<h
M<i
P K D"<x
T<y
X<y
Z<z
^<z
a<{
f<{
i<|
l<|
o D"<}
| K<
~<< < < < D"< %< +< 1 K<$ S<$ [<% ^ K
<8
<8
<9
K<H
D"<I
<J
<J
<K
"<K
&<L
*<L
-<M
0 V^ D" K
;< 5
=< 5
B< 6
F< 6
I< 7
K< 7
M< 8
S D"< 8
U< 9
X K< H
]< I
b< I
d< J
g< J
i< K
p D"< K
u< L
{< L
}< M
~ K < \ ^ < - < .
< . D"< / < / < 0 < 0 < 1 ! KC< C J< D O< D T< E X K D" K#T M<#U P<#U S<#V W<#V [<#W ] D"<#W a K
<$N <$O <$O <$P <$P ! KM<$b T<$c \<$d h<$d m<$e o K D" K
9<%
=<% @<% E<%
I D"<%
P V) " K<)u ^<)v b<)w h<)w j<)x m D"<)x p<)y t K
<*
<* D"<* <*
<*
#<** +<* .<* 0<* 9 D"<* @<* F<* K<*4 O<*4 R<*! W K
<*E <*E <*F <*F *<*G ,<*G 3<*H <<*H @ D"<*I E K
<0= <0> * K D" K <0e . K K <1 5<1 ;<1 @<1 I K D"<1D Q<1! U<1! [<1" `<1" d<1# j<1# q<1$ v K " D" K & V` * K * K - K 0 K 2 K 5 K 8 K < D" K ? K B K E Va - K( I K) O K) S K* W K* \ D" K+ ` K+ b K, e K, i K- mc