Category : Miscellaneous Language Source Code
Archive   : COBOL701.ZIP
Filename : RUN654.OVR

ééæã
)
GJÊlí!Hí!%
aí!
rJ#rL#rN#6
$
$
p ZªYªP
'
6)
" GJ
SI d WôU S–H–%
6 HI n–Xè6 GJcII )
"$l NW I# (I! (S% L
I' (S) L I (N+ 7777&
I- &
L I/ L I1 &L I3 &L O- ?]˜d ]’\W \[ J¢\Y J¢?]¢(P- I5 ( I; (
I7 (I9 (IA HA &`(#$
(L IE j u,"H 6H) L % M- M' H5 F M %M
6H% LýGJ$LñGJ2U7 d# ]2(PC J7U7 d# (
]J(JHC % M3 6G' JÝ(I+ (&SG _÷"'u] '6 _G "_ "&SG _G H1 6FE J'6J”HE 6H7 6H9 6H) 6uZ!I"u² HA g&"]"O P? g ]Äuˆ b? g ]Ðuˆ b? gíKçSí!7&aí!g $
Kîuˆ b? 7&
Ií!7&L I= F= \= H= aí!g $
Kuˆ b? 7&g K1(T- K1uˆ b? G5 JK\ë!(T- KZuˆ JZb? G- JZF; uˆ bšeI W6G(#JvHž#H #H¢#6'6GY J‹HK HM HO 6G[ JœHQ HS HU 6Gï!JÖ)"'
RÖg÷!L
"KÀa J¨J6
66(6a J¨J66
*'6_õJ}b? Jÿ?°€€ÿ¿ Rÿ@
D$PONEI$PONEnG Ií!Yv Zy $
bí!Fí!Jk s] Hÿ[í!Fí!Jy s] H? Hš-sˆ Lña &
d"W¬ S"U"Jó '
a7 &
I"H% gùK› LñGU S"k"O- T Kð T Kð (TC ]ó a"a (T1 S "V!%
H "6H"6I"'6'6(T- ]&!H"FW U
"a"8 6GW J7!'
6Gÿ!JM!d"VW!H"JW!H"6H"6s² l")"'
R}!g÷!L
"KŒ!a Je!H MóNÿ!j"sZ!Iñ![ñ![ñ!#_ lï!"'
R}!d! KÃ![ñ!Fñ!J¥!R}!Jl!jï!"Iñ!Fñ!Jà!H Mó7Jã!Hñ!\ÿ!J†!ð ðððÐÿjO*"P? g""KZJWÿàààBH) g Kk"N&#'g÷!Kn"gû!]X"(
d! $
Kw"L8#a v>"F&#J#s,"L8#a J^"\&#L8#(n*#%
I,#'d ]"H$#Jö"n0#''7&L d"#$
]Ç"7H2#Jö"7
g KÕ"U4#Jé"&
L I6#7&L M6#%I6#77L8#M6#O,#Q<#Q:#$'
J^"(f:#6'Q:#o Z#Y#'
6s,"‡´€S$RCNIO$SVGEC$AHNIS$NE DA$PCTDP$WOREU$SNRTS$RTGNC$LA LL$LV88I$SNCPN$EMTDS$TE A$ENTDS$RO T°¢é$‰ê$èÀðQèzòºÏC‡ÚµèõñÆ:°ICÆ þÈuøè
èžð»î$Š
ÀuèCëôCŠ:Âué
Àx
ÃDDCŠ<réS»|:[xééÑKºÖµICŠ<ué#±F<ué±WK°/‹úªBŠÁ‹úªB°/‹úªB° é¢é$þÍCŠ
Àué‹úªBþÍuîŸBžŸBž‡Ú‰ì$èzè ðRèsèðŠÆ
Âué"»ôÿÚ2À
Çy麇ÚۊëZ‹ì$èÎòé
[‹|C‰| é$<té ‹zC‰z»èìôS»ÏèŽô[ }
ÀtéCÆ
CÆ»Ïè1óYËê$CC‰ê$ÃFILE SECTION ASSUMED HERE.
USING/GIVING FILE'S ACCESS MODE MUST BE SEQUENTIAL.DATA DIVISION ASSUMED HERE.AREA-A VIOLATION; RESUMPTION AT NEXT PARAGRAPH/SECTION/DIVISION/VERB. INVALID SELECT-SENTENCE.UNRECOGNIZABLE ELEMENT IS IGNORED.ERRONEOUS RERUN-ENTRY IS IGNORED.ERRONEOUS FILE-NAME IS IGNORED. BLANK WHEN ZERO IS DISALLOWED.
STATEMENT DELETED DUE TO ERRONEOUS SYNTAX.RECORD MIN/MAX DISAGREES WITH RECORD CONTAINS;LATTER SIZES PREVAIL. FILE NOT SELECTED; ENTRY BYPASSED.
REDUNDANT FD PROCESSED AS IS.INVALID BLOCKING IS IGNORED.INVALID RECORD SIZE(S) IGNORED.'LABEL RECORD STANDARD' REQUIRED.SUBSCRIPT OR INDEX-NAME IS NOT UNIQUE.SOURCE BYPASSED UNTIL NEXT FD/SECTION.PROCEDURE DIVISION ASSUMED HERE.OMITTED WORD 'SECTION' IS ASSUMED HERE.MISORDERED/REDUNDANT SECTION PROCESSED AS IS.ERRONEOUS SUBSCRIPTING; STATEMENT DELETED.ERRONEOUS QUALIFICATION; LAST DECLARATION USED.NO PICTURE; ELEMENTARY ITEM ASSUMED TO BE BINARY.REDUNDANT CLAUSE IGNORED.NAME OMITTED; ENTRY BYPASSED.IMPROPER REDEFINITION IGNORED.OCCURS DISALLOWED AT LEVEL 01/77, OR COUNT TOO HIGH.INVALID VALUE IGNORED.WORKING-STORAGE ASSUMED HERE. LEVEL 01 ASSUMED.!PICTURE IGNORED FOR INDEX ITEM."PERIOD ASSUMED AFTER PROCEDURE-NAME DEFINITION.#GROUP ITEM, THEREFORE PIC/JUST/BLANK/SYNC IS IGNORED.$FD-VALUE IGNORED SINCE LABELS ARE OMITTED.%STATEMENT DELETED DUE TO NON-NUMERIC OPERAND.&STATEMENT DELETED BECAUSE INTEGRAL ITEM IS REQUIRED.'LITERAL TRUNCATED TO SIZE OF ITEM.(EXCESSIVE OCCURS NESTING IS IGNORED.)DATA RECORDS CLAUSE WAS INACCURATE.*GROUP SIZE GREATER THAN 4095; LENGTH SET TO 1.+EXCESSIVE NUMBER OF FILES/4KB WORKING-STORAGE BLOCKS.,A FILE-ID NAME IS UNDEFINED.-VALUE OF FILE-ID REQUIRED..A PARAGRAPH DECLARATION IS REQUIRED HERE./USING-LIST ITEM LEVEL MUST BE 01/77.0VALUE DISALLOWED--OCCURS/REDEFINES/TYPE/SIZE CONFLICT.1CLAUSES OTHER THAN VALUE DELETED.2SUBSCRIPT 0 OR OVER MAX. NO. OCCURRENCES; 1 USED.3RIGHT PARENTHESIS REQUIRED AFTER SUBSCRIPTS.4ITEM VALID ONLY 'WITH DEBUGGING MODE.'5SIGN CLAUSE IGNORED FOR UNSIGNED ITEM.6LABEL RECORDS OMITTED ASSUMED FOR PRINTER FILE.7INCOMPLETE (OR TOO LONG) STATEMENT DELETED.8TERMINAL PERIOD ASSUMED ABOVE.9VARYING ITEM MAY NOT BE SUBSCRIPTED.:SINGLE-SPACING ASSUMED DUE TO IMPROPER ADVANCING COUNT.;PROCEDURE-NAME IS UNRESOLVABLE.<KEY DECLARATION OF THIS FILE IS NOT CORRECT.=STATEMENT DELETED BECAUSE OPERAND IS NOT A FILE-NAME.>'COMP' IGNORED FOR DECIMAL ITEM.?INVALID KEY SPECIFICATION. STATEMENT DELETED.@EXCESSIVE LITERAL POOL OR DISPLAY STRING LENGTH.A
FIPS HIGH-INTERMEDIATE FEATURE: CONDITIONAL STATEMENT WITHIN 'IF'.BBAD SORT/RELEASE/RETURN USAGE.CPROCEDURE RANGE SPANS SEGMENTS.DPROCEDURE RANGE NOT IN CURRENT SEGMENT.E
FIPS HIGH-INTERMEDIATE FEATURE: RESUMPTION OF FIXED SEGMENT.FFIPS LOW-INTERMEDIATE FEATURE: LIBRARY. (COPY VERB)G
FIPS HIGH-INTERMEDIATE FEATURE: COMMA/SEMICOLON.H
FIPS HIGH-INTERMEDIATE FEATURE: CONTINUATION.I
FIPS HIGH-INTERMEDIATE FEATURE: QUALIFICATION.J
FIPS HIGH-INTERMEDIATE FEATURE: DATA-NAME BEGINNING WITH NON-ALPHABETIC CHARACTER.K
FIPS HIGH-INTERMEDIATE FEATURE: RELATIONAL/ARITHMETIC OPERATOR.LFIPS COBOL LANGUAGE EXTENSION: APOSTROPHE AS SUBSTITUTE FOR QUOTE.MFIPS COBOL LANGUAGE EXTENSION.NFRACTIONAL EXPONENT OR NEGATIVE SCALED BASE (99P).PILLEGAL MOVE OR COMPARISON IS DELETED.RFILE NEVER OPENED.SFILE NEVER CLOSED.TINCONSISTENT READ USAGE.UINCONSISTENT WRITE USAGE.VREWRITE VALID ONLY FOR DISK FILE.XKEYS MAY ONLY APPLY TO AN INDEXED/RELATIVE FILE.YCHECK-DIGIT CONFLICT.ZFILL CHARACTER CONFLICT.[JUSTIFICATION CONFLICT.\FIPS LOW-INTERMEDIATE FEATURE.]
FIPS HIGH-INTERMEDIATE FEATURE.^FIPS HIGH LEVEL FEATURE._SYNTAX ERROR IN SCREEN DESCRIPTION.`SEMANTICAL ERROR IN SCREEN DESCRIPTION.aCOMMUNICATION/CD SYNTAX ERROR.cIMPROPER SIZE OF COMMUNICATION '01'.dEXCESSIVE SEGMENT NUMBER.eEXCESSIVE SEGMENT NUMBER IN DECLARATIVES.gNON-CONTIGUOUS SEGMENT DISALLOWED.hMAX. # SORT KEYS IS 12.iIMPERATIVE STATEMENT REQUIRED. STATEMENT DELETED.jILLEGAL CHARACTER.kINVALID QUOTED LITERAL.lIMPROPER PUNCTUATION.mIMPROPERLY FORMED ELEMENT.nELEMENT LENGTH ERROR.oILLEGAL COPY FILENAME.pIMPROPER PICTURE. PIC X ASSUMED.qIMPROPER CHARACTER IN COLUMN 7.rAREA A NOT BLANK IN CONTINUATION LINE.ÿNO MSG FOR MSG NO.è6(
'
JÄ6H
JÙ6GT7J26uÄ5NT7FhJ×4Jb7ui4J6TF]6HR%M%%
MX>K}6%M@M"06H@MR06uY/uëS:uY/\RN%$
O>T@Gd]¡6Hd%
M06u7/uY/\J”5'
M0o@PbZÀ6mbbbMB06HbJ“6O@P>J¸6HŽuç7u8a
6OP7fE>]ì6$
u^.7QE6u)7J&6GT7sô6OP7TR7W7Jù69
fE>K$76