Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/source/cobver.mac
There are 21 other files named cobver.mac in the archive. Click here to see a list.
; UPD ID= 3545 on 5/11/81 at 2:58 PM by MAYBERRY
UNIVERSAL COBVER -- VERSION NUMBERS AND HISTORY FILE FOR COBOL 74
SUBTTL VERSION 12C
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1979, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;VERSION NUMBER SYMBOLS FOR THE COBOL COMPILER (COBOL)
CBLEDT==1574 ;EDIT LEVEL
CBLMJR==12 ;MAJOR RELEASE VERSION
CBLMNR==3 ;MAINTENANCE VERSION OF A MAJOR VERSION
CBLWHO==0 ;WHO LAST EDITED (0= DEC)
CBLVER==BYTE(3)CBLWHO(9)CBLMJR(6)CBLMNR(18)CBLEDT
;VERSION NUMBER SYMBOLS FOR COBOL'S OBJECT-TIME SYSTEM (LIBOL)
LBLEDT==1141 ;EDIT LEVEL
LBLMJR==12 ;MAJOR RELEASE VERSION
LBLMNR==3 ;MAINTENANCE RELEASE
LBLWHO==0 ;WHO LAST EDITED (0=DEC)
LBLVER==BYTE(3)LBLWHO(9)LBLMJR(6)LBLMNR(18)LBLEDT
SUBTTL MAJOR VERSION HISTORY FOR COBOL
COMMENT \
COBOL V1 -- SEP 1970 (LIBOL V1)
COBOL V2 -- JAN 1971 (LIBOL V2)
COBOL V2B - JUL 1971 (LIBOL V3)
COBOL V3 -- JAN 1972 (LIBOL V4)
COBOL V4 -- AUG 1972 (LIBOL V5)
COBOL V5 -- MAR 1973 (LIBOL V6)
COBOL V5A - OCT 1973 (LIBOL V6A)
COBOL V6 -- NOV 1974 (LIBOL V7)
COBOL V6A - MAR 1975 (LIBOL V7A)
COBOL V10 - JAN 1976 (LIBOL V10)
COBOL V11 - JUL 1977 (LIBOL V11)
COBOL-68 V12 - JUN 1978
COBOL-74 V12 - JAN 1979
COBOL-68/74 V12A - DEC 1979
COBOL-68/74 V12B - MAY 1981
COBOL-74 V12C - OCT 1985
\
SUBTTL CAST OF CHARACTERS
COMMENT \
PEOPLE WHO HAVE DEVELOPED OR MODIFIED COBOL/LIBOL INCLUDE:
ACK ANDY KASCMAR
ALB AL BLACKINGTON
BCM BRAD MERRILL
BL BRUCE LARU
BSM BERNIE MIETH
CAM CHUCK McCOMMAS
CLRH CHARLOTTE HOUDE
DAW DAVID WRIGHT
DBT DAVID TOLMAN
DC DONNA CHAO
DLC LARRY CAMPBELL
DMN DAVID NIXON
DPL DANA LAJOIE
EHM EVALYN MCCARTHY
GCS GAIL SANDERS
GPS GIL STEIL
HAM HOWARD MAYBERRY
ILG IRWIN GOVERNMAN
JBB JANET BLAU
JEC/JC JOHN CONNOR
JEF/JF JOE FRIES
JEH JANE HOFFMAN
JSM JOHN MASLANKA
KWS Ken Stevens
LEM LAKSHMI MULLAHOO
MDL MICHAEL LACKMAN
MFTT MICHAEL TIGHE
MFY MICHAEL YODER
MJC MICHAEL CARLETON
RJD RHONDA DURAY
RLF RUTH FONG
SSC SETH COHEN
SEB SUMNER BLOUNT
SHP SERGE POLEVITSKY
SMI STEVE INGERSOLL
VR VIRGINIA ROGERS
WTK BILL KILGORE
... WAYNE NEELY
\
SUBTTL COBOL EDIT HISTORY
COMMENT \
;.BEGINR
;.COMPONENT COBOL
;.VERSION 12B
;.AUTOPATCH 4
;;
;.EDIT 1300 Arg passing fails if arg is redefined but used as original later
; DMN/JM,10-AUG-81,SPR:10-31754
; A:SRC CMNGEN,IMPURE
;
;.EDIT 1301 Optimizing SKIP instruction can cause Illegal Mem Ref
; DMN/JM,27-AUG-81,SPR:10-31556
; A:SRC PMATCH
;
;.EDIT 1302 Bad table link if RMS RECORD KEY is missing
; DMN/JM,10-AUG-81,SPR:20-16835
; A:SRC IOGEN
;
;.EDIT 1303 Bad code for RMS file with Depending Variable
; DMN/JM,10-AUG-81,SPR:20-16563
; A:SRC IOGEN
;
;.EDIT 1304 68274 fails if first item in COPY LIBRARY must be replaced
; DMN/JM,10-AUG-81,SPR:10-31569
; A:SRC GETITM
;
;.EDIT 1305 Bad code for WRITE AFTER ADVANCING data-name
; DMN/JM,11-AUG-81,SPR:20-16566
; A:SRC IOGEN
;
;.EDIT 1306 Bad table link at 535214 if REL KEY is not defined
; DMN/JM,26-AUG-81,SPR:20-16620
; A:SRC IPCGEN
;
;.EDIT 1307 Move 0 to COMP-3 item
; JSM,18-SEP-81,SPR:20-16560
; A:SRC CMNGEN
;
;.EDIT 1310 First of two LIB files is forgotten
; JSM,24-SEP-81,SPR:10-31525
; A:SRC GETITM
;
;.EDIT 1311 Bad placement Diag 179 when ref made to para def twice in sect
; WTK/JM,28-SEP-81,SPR:10-31212
; A:SRC COBOLD
;
;.EDIT 1312 Warning for +,+++... or -,---...
; WTK/JM,30-SEP-81,SPR:20-16845
; A:SRC DIAGS,PSCAN
;
;.EDIT 1313 No diag when CR LF and sect or para name follows IF cond clause
; JM,30-SEP-81,SPR:20-16844
; A:SRC DTREE,COBOLD
;
;.EDIT 1314 Continue char after "(" gives bad subscript
; WTK,30-SEP-81,SPR:20-16846
; A:SRC GETITM
;
;.EDIT 1315 Save block for A/B params during Search 1 word short causes Ill inst in Phase E
; WTK/JM,30-SEP-81,SPR:20-16843
; A:SRC IMPURE
;
;.EDIT 1316 Copy replacing para name after * comment omits LF - diag State. Expec
; JSM,01-OCT-81,SPR:10-31689
; A:SRC GETITM,IMPURE
;
;.EDIT 1317 IF on 2500 char item fails
; WTK,01-OCT-81,SPR:10-31687
; A:SRC IFGEN
;
;.EDIT 1320 COBOL-68 ref to OCCURS DEPEN items don't conform to ANSI-68 standards
; JSM,07-OCT-81,SPR:10-31665
; A:SRC MOVGEN,IFGEN
;
;.EDIT 1321 USE ... F.6 name OPGN F.6 name fails after first OPGN
; DMN/JH,07-OCT-81,SPR:20-16881
; A:SRC DTREE
;
;.EDIT 1322 Check last para in prog for ending in uncond GOTO
; WTK,8-OCT-81,SPR:20-16882
; A:SRC DTREE,COBOLD
;
;.EDIT 1323 Test receiving alphanumeric edited field for size < sending field
; JSM,14-OCT-81,SPR:10-31660
; A:SRC MOVGEN
;
;.EDIT 1324 Non-BIS, transfer of more than 2047 characters fails
; JEH,05-NOV-81,SPR:10-31711
; A:SRC MOVGEN
;
;.EDIT 1325 Comments in DATE-COMP being dropped even w/ *, reset DCCFLG if scanning comm
; JEH,14-DEC-81,SPR:20-16940
; A:SRC COBOLB
;
;.EDIT 1326 Edit 1322 broke CREF listings
; WTK,18-DEC-81,SPR:NONE
; A:SRC COBOLD
;
;.EDIT 1327 ID DIV subscript required - add call to SETOPB to Edit 1126
; JEH,04-JAN-82,SPR:NONE
; A:SRC SRTGEN
;
;.EDIT 1330 Check memory size of OBJECT-COMPUTER, give warning and set to max if too large
; JEH,07-JAN-82,SPR:20-17179
; A:SRC COBOLB,DIAGS
;
;.EDIT 1331 Failure in phase E - WRITE ADVANCING data-name LINES, data-name syntaxed
; JEH,13-JAN-82,SPR:NONE
; A:SRC IOGEN
;
;.EDIT 1332 COLLATING SEQUENCE scanning too far
; DMN,19-JAN-82,SPR:20-17180
; A:SRC COBOLB
;
;.EDIT 1333 Fatal error when using ORGANIZATION IS RELATIVE WITH CHECKPOINT OUTPUT
; LEM,26-JAN-82,SPR:20-17176
; A:SRC BTREE
;
;.EDIT 1334 Supersedes edits 1322 and 1326
; RJD,29-JAN-82,SPR:20-17253
; A:SRC COBOLD,DTREE
;
;.EDIT 1335 Declare DATAB entries for indexes if REPORT SECTION scanned
; JEH,02-FEB-82,SPR:20-16952
; A:SRC COBOLC,CLEANC,IMPURE
;
;.ENDA
;.AUTOPATCH 5
;
;.EDIT 1336 Convert modes for INDEX and COMP-3 fields
; RJD,08-FEB-82,SPR:10-32097
; A:SRC MOVGEN,COBVER,INTERM
;
;.EDIT 1337 Fix MOVE literal to EDITED-DATA-FIELD of length 1
; JEH,12-FEB-82,SPR:10-31946
; A:SRC MOVGEN
;
;.EDIT 1340 Add warnings to 68274 for JUSTIFIED stmt w/
;; value and NOT in abbrev comb rel cond
; DMN,12-MAR-82,SPR:NONE
; A:SRC DIAGS,CLEANC,COBOLD
;
;.EDIT 1341 Test on mode of "A" operand to prevent multiple
;; trunc warnings if immediate mode
; JEH,16-FEB-82,SPR:10-31946
; A:SRC MOVGEN
;
;.EDIT 1342 Handle "D" in continuation column when
;; scanning for the end of a literal
; RJD,23-FEB-82,SPR:20-17273
; A:SRC GETITM
;
;.EDIT 1343 68274 - convert NOTE into a comment
; DMN,05-MAR-82,SPR:20-17408
; A:SRC GETITM,DTREE,COBOLD
;
;.EDIT 1344 Bad code generated for a literal compare
; RJD,09-MAR-82,SPR:20-17278
; A:SRC CMNGEN
;
;.EDIT 1345 Trap illegal UUO's on TOPS10
; JEH,18-MAR-82,SPR:10-31969
; A:SRC P,IMPURE,COBCOM
;
;.EDIT 1346 Address of conversion routine for depending on
;; field stored wrong
; JEH,30-MAR-82,SPR:10-32147
; A:SRC TABLES,DIAGS,COBOLC,IPCGEN
;
;.EDIT 1347 Eliminate warning set up by edit 1312 for fields
;; with non floating symbols
; DMN,01-APR-82,SPR:NONE
; A:SRC PSCAN
;
;.EDIT 1350 68274 Give warning for DISPLAY or STOP signed integer
; DMN,07-APR-82,SPR:NONE
; A:SRC COBOLD,DIAGS,DTREE
;
;.EDIT 1351 Avoid BAD TABLE LINK by storing READ .. INTO
;; operands in a fixed location in phase E
; JEH,09-MAR-82,SPR:20-17471
; A:SRC IFGEN.MAC
;
;.EDIT 1352 Fix double precision floating point subtract
; RLF,14-APR-82,SPR:10-32368
; A:SRC EXPGEN
;
;.EDIT 1353 If operand in literal compare too large, give
;; error rather than halt
; JEH,05-MAY-82,SPR:10-32315
; A:SRC DIAGS,MOVGEN,IFGEN,CMNGEN
;
;.EDIT 1354 RMS START error - wrong alt. key made be used
;; if mult. keys at same starting loc.
; JEH,07-MAY-82,SPR:20-17392
; A:SRC COBOLD
;
;.EDIT 1355 MOVE ZERO TO COMP-3 ITEM gets wrong value,
;; fix to edit 1307
; JEH,18-MAY-82,SPR:20-17711
; A:SRC CMNGEN
;
;.EDIT 1356 Allow qualification in DATA RECORDS ARE clause
; RJD,24-MAY-82,SPR:20-17519
; A:SRC COBOLC,CTREE
;
;.EDIT 1357 68274 EXAMINE replacing a word causes HALT
; DMN,16-JUN-82,SPR:10-32755
; A:SRC GETITM,IMPURE
;
;.EDIT 1360 68274 conversion of a file with COPY REPLACING
; DMN,16-JUN-82,SPR:10-32567
; A:SRC GETITM
;
;.EDIT 1361 68274 dies if CVT is not requested
; DMN,16-JUN-82,SPR:10-32623
; A:SRC GETITM
;
;.EDIT 1362 Declare HLDSAV outside of MCS!TCS conditional code
; JEH,07-JUN-82,SPR:10-32624
; A:SRC IMPURE,COBOLC
;
;.EDIT 1363 Fix syntaxing of SPECIAL-NAMES is defining both
;; collating seq and CHANNEL numbers
; DMN,21-JUN-82,SPR:10-32453
; A:SRC COBOLB,COBOLE
;
;.EDIT 1364 Set size of delimiter to 1 if fig. const. and
;; source is edited field
; JEH,11-JUN-82,SPR:10-32465
; A:SRC STRGEN
;
;.EDIT 1365 Size of STRING source wrong if num edited and
;; defined with OCCURS clause
; JEH,14-JUN-82,SPR:10-32618
; A:SRC STRGEN
;
;.EDIT 1366 Correct edit 1335, set up CURHLD properly
; JEH,14-JUN-82,SPR:NONE
; A:SRC COBOLC
;
;.EDIT 1367 Correct edit 1343, return after converting
;; NOTE to comment
; SMI,25-JUN-82,SPR:20-17913
; A:SRC COBOLD
;
;.EDIT 1370 Make CURAKT an absolute address so XPAND
;; will update it correctly
; JEH,28-JUN-82,SPR:NONE
; A:SRC IOGEN
;
;.EDIT 1371 Set CUREOP to B operand before generating
;; truncation warning
; RJD,28-JUN-82,SPR:20-17918
; A:SRC MOVGEN
;
;.EDIT 1372 Gives error message when COPY REPLACING finds ==
;; missing after BY.
; RLF,02-JUL-82,SPR:20-17926
; A:SRC GETITM
;
;.EDIT 1373 Corrects page advancing when more than
;; 2 report header lines
; RJD,15-JUL-82,SPR:20-17967
; A:SRC TABLES,COBOLC,RPWGEN
;
;.EDIT 1374 Check the collating sequence before
;; generating high-values
; JEH,22-JUL-82,SPR:10-32454
; A:SRC IFGEN
;
;.EDIT 1375 Check to see if DATAB entry
;; contains DA.DEP field
; SMI,02-AUG-82,SPR:20-17980
; A:SRC IOGEN
;
;.EDIT 1376 Correct diagnostic if line before
;; FD is too long
; RLF,02-AUG-82,SPR:10-32810
; A:SRC COBOLC
;
;.EDIT 1377 Gives warning on truncation when converting FP to fix
; RLF,05-AUG-82,SPR:10-32886
; A:SRC MOVGEN
;
;.EDIT 1400 Fixes LABEL USE PROCEDURE for file specific format
; RJD,10-AUG-82,SPR:10-32809
; A:SRC PURE,DTREE,COBOLD
;
;.EDIT 1401 Flag error when statements are in EXIT paragraph
; SMI,25-AUG-82,SPR:10-32969
; A:SRC DIAGS,DTREE
;
;.EDIT 1402 Make COMPUTE do floating point divide
; JEH,30-SEP-82,SPR:10-32885
; A:SRC EXPGEN
;
;;.EDIT 1403 EDIT WITHDRAWN - Do not install: Gives truncation
;; warning message after rounding
;; RLF,13-SEP-82,SPR:10-32886
;; A:SRC IMPURE,CMNGEN,EXPGEN
;
;.EDIT 1404 Update byte pointer after LATTAB expands
; SMI,15-SEP-82,SPR:10-32952
; A:SRC IFGEN
;
;.EDIT 1405 Makes NEXT SENTENCE after ELSE without period get fatal
; RLF,17-SEP-82,SPR:10-33064
; A:SRC DTREE
;
;.EDIT 1406 Fix COPY REPLACING for continuation in A margin
; SMI,17-SEP-82,SPR:10-32949
; A:SRC GETITM
;
;.EDIT 1407 Fix COPY REPLACING in ID DIVISION
; SMI,23-SEP-82,SPR:20-18216
; A:SRC COBOLB
;
;.EDIT 1410 FIX MOVE SPACES TO DATA ITEM IN LINKAGE SECTION
; SMI,28-SEP-82,SPR:20-18225
; A:SRC MOVGEN
;
;.EDIT 1411 Provide leading truncation warning in COMPUTE
;; statement when ROUNDED
; JEH,30-SEP-82,SPR:10-32885
; A:SRC CMNGEN
;
;.EDIT 1412 Makes LSU work with ISAM sequential access
; RLF,01-OCT-82,SPR:20-18125
; A:SRC COBOLD,IOGEN
;
;.EDIT 1413 Fix 68274 conversion of DBMS statement
; SMI,06-OCT-82,SPR:10-33089
; A:SRC GETITM,COBOLD,DBGETF
;
;.EDIT 1414 DBMS USE procedures in the declaratives section
;; of subprogram are ignored
; DMN,07-OCT-82,SPR:NONE
; A:SRC IPCGEN
;
;.EDIT 1415 Generate SET TALLY TO 0
; SMI,08-OCT-82,SPR:10-33117
; A:SRC GETITM,COBOLD,IMPURE,DIAGS
;
;.EDIT 1416 Generate warning message for 68274
; SMI,08-OCT-82,SPR:10-33116
; A:SRC IFGEN,DIAGS
;
;.EDIT 1417 Fix 68274 conversion of write stmt.
; SMI,15-OCT-82,SPR:10-33156
; A:SRC CLEANC,CLEAND
;
;.EDIT 1420 Fix generation of code for EBCDIC sorts
; SMI,18-OCT-82,SPR:20-18255
; A:SRC SRTGEN
;
;.EDIT 1421 Generate left truncation for RIGHT JUSTIFY.
; RLF,18-OCT-82,SPR:10-32998
; A:SRC MOVGEN
;
;.EDIT 1422 Fix conversion of DATE-COMPILED line
; SMI,19-OCT-82,SPR:NONE
; A:SRC COBOLB
;
;.EDIT 1423 68274 Fix conversion of FILE LIMITS
; SMI,22-OCT-82,SPR:NONE
; A:SRC COBOLB,BTREE
;
;.EDIT 1424 Give fatal error on non-DISPLAY data declared
;; in file section
; JEH,26-OCT-82,SPR:20-18388
; A:SRC COBOLC,DIAGS,FNDPOP
;
;.EDIT 1425 68274 Fix conversion of RESERVE statement
; SMI,26-OCT-82,SPR:NONE
; A:SRC COBOLB
;
;.EDIT 1426 68274 Make TALLY a COMP item
; SMI,26-OCT-82,SPR:10-33156
; A:SRC GETITM
;
;.EDIT 1427 68274 Generates warning SHOULD BE UNSIGNED INTEGER
;; when data item is an unsigned integer.
; SMI,27-OCT-82,SPR:NONE
; A:SRC CLEANC
;
;.EDIT 1430 Store intermediary result in 2-wd temp
;; if d.p. floating point
; JEH,05-NOV-82,SPR:10-33207
; A:SRC EXPGEN
;
;.EDIT 1431 DBMS - syntax error on FIND statement if
;; identifier-2 not COMP
; DMN,09-NOV-82,SPR:NONE
; A:SRC COBOLD,DIAGS
;
;.EDIT 1432 Indirect command file for compiler doesn't type
;; outp warnings on TTY.
; RLF,19-NOV-82,SPR:10-33227
; A:SRC COBOLA
;
;.EDIT 1433 Fix edit 1373 when report has no PAGE HEADING
;; report groups
; SMI,11-NOV-82,SPR:NONE
; A:SRC RPWGEN,IMPURE
;
;.EDIT 1434 Allow UNSTRING to return sign to signed
;; destination fields
; JEH,01-DEC-82,SPR:20-18506
; A:SRC STRGEN
;
;.EDIT 1435 Prevent TI wait state after error message is printed
;; for /Y<cr-lf>
; DMN,03-DEC-82,SPR:10-33303
; A:SRC COBOLA
;
;.EDIT 1436 Fix 68274 conversion in COMM. SECTION
; SMI,03-DEC-82,SPR:10-33333
; A:SRC COBOLC,CTREE
;
;.EDIT 1437 Generate error message for all undef. errors
;; on one line.
; SMI,04-DEC-82,SPR:10-33234
; A:SRC DTREE
;
;.EDIT 1440 COPY REPLACING of numeric literal loses next period
; DMN,07-DEC-82,SPR:10-33198
; A:SRC GETITM
;
;.EDIT 1440 COPY REPLACING loses terminal period if replacing a numeric literal.
; DMN,07-DEC-82,SPR:10-33198
; A:SRC GETITM
;
;.EDIT 1441 Fix edits 1402 and 1430 for NON-BIS compilers
; JEH,07-DEC-82,SPR:10-33256
; A:SRC EXPGEN
;
;.EDIT 1442 Move of seperate sign display to 1-word comp moves zero
;; or minus sign only
; DMN,07-DEC-82,SPR:10-33229
; A:SRC MOVGEN
;
;.EDIT 1443 Add to Edit 1431 to check for decimal places
; SMI,08-DEC-82,SPR:10-33219
; A:SRC COBOLD
;
;.EDIT 1444 68274 has problem with IS when comment columns exist
; DMN,09-DEC-82,SPR:10-33347
; A:SRC GETITM
;
;.EDIT 1445 68274 removes period if last clause is turned into a comment.
; DMN,10-DEC-82,SPR:10-33347
; A:SRC GETITM
;
;.ENDA
;.AUTOPATCH 6
;
;.EDIT 1446 Don't overwrite user-defined floating currency sign
;; with minus
; JEH,20-DEC-82,SPR:20-18621
; A:SRC BISGEN
;
;.EDIT 1447 Fix Ill mem ref when PROGRAM-ID contains any character
;; other than "A"-"Z", "a"-"z", "0"-"9"
; SMI,28-DEC-82,SPR:10-33382
; A:SRC IPCGEN
;
;.EDIT 1450 Gives error message on FREE verb syntax error
; RLF,27-JAN-83,SPR:20-18767
; A:SRC IOGEN,DIAGS
;
;.EDIT 1451 Fix bad-table link in phase E
; SMI,29-JAN-83,SPR:20-18784
; A:SRC RPWGEN,TABLES,PURE
;
;.EDIT 1452 Fix error on RESET command
; SMI,23-FEB-83,SPR:20-18867
; A:SRC COBOLC
;
;.EDIT 1453 Give truncation warning at correct LN, CP
; DMN,24-FEB-83,SPR:20-18860
; A:SRC CMNGEN,MOVGEN
;
;.EDIT 1454 68274 has problems with period
; SMI,04-MAR-83,SPR:20-18913
; A:SRC BTREE,GETITM
;
;.EDIT 1455 68274 has problems with NOTE
; SMI,04-MAR-83,SPR:10-33630
; A:SRC GETITM
;
;.EDIT 1456 Fix COMPUTE if first term uses 'ZERO'
; JEH,25-MAR-83,SPR:10-36680
; A:SRC EXPGEN
;
;.EDIT 1457 IF SET-NAME SET generated literal contains garbage
; JSM,31-MAR-83,SPR:20-18972
; A:SRC IFGEN
;
;.ENDA
;.AUTOPATCH 7
;
;.EDIT 1460 Give error message if key is being subscripted
; RLF,20-APR-83,SPR:20-19102
; A:SRC COBOLD,DIAGS
;
;.EDIT 1461 COMPUTE w/ 2-wd floating point gives wrong results
; JEH,20-APR-83,SPR:10-33764
; A:SRC EXPGEN
;
;.EDIT 1462 SEGMENT in place of SECTION can cause compiler
;; failure
; DMN,21-APR-83,SPR:10-33756
; A:SRC P,COBOLA
;
;.EDIT 1463 Makes COPY REPLACING work if BY is not on same line.
; DMN,22-APR-83,SPR:20-19124
; A:SRC GETITM
;
;.EDIT 1464 Correction to edit 1450, flgas syntax error on FREE
; RLF,25-APR-83,SPR:10-33657
; A:SRC IOGEN
;
;.EDIT 1465 Declare word in phase D area of IMPURE for worker
;; in edit 1465
; DMN,28-APR-83,SPR:20-19127
; A:SRC COBOLD,IMPURE
;
;.EDIT 1466 Error on WRITE stmt w/ ADVANCING or POSITIONING clause
;; if in non ASCII file
; JEH,02-MAY-83,SPR:10-33738
; A:SRC CLEAND,COBOLD,DIAGS
;
;.EDIT 1467 Resolve symbol ALCPA., as called by SCHIO2
;; after DBMS-20 V.6 edit 473.
; WTK,02-MAY-83,SPR:NONE
; A:SRC DBGETF
;
;.EDIT 1470 Declare two fields as external for edit 1447 and 1451
; JEH,12-MAY-83,SPR:10-33837
; A:SRC IPCGEN,RPWGEN
;
;.EDIT 1471 First line of Page Head does not have <FF>.
; SMI,12-MAY-83,SPR:10-33821
; A:SRC RPWGEN
;
;.EDIT 1472 Fix DIVIDE literal INTO dn1, dn2, etc.
; JEH,09-JUN-83,SPR:20-19254
; A:SRC MATGEN
;
;.EDIT 1473 Eliminate truncation warnings on moves involving
;; compiler-generated line/page counters
; JEH,21-JUN-83,SPR:10-33835
; A:SRC MOVGEN
;
;.EDIT 1474 Correction to edit 1450 for the "FREE" verb
; RLF,30-JUN-83,SPR:10-33998
; A:SRC IOGEN
;
;.EDIT 1475 Correction to edit 1452 for the RESET code in
;; report writer
; JBB,08-SEP-83,SPR:20-19512
; A:SRC COBOLC
;
;.EDIT 1476 Bad table link with catastrophe in phase E
;; Correction to edit 1123
; JBB,22-SEP-83,SPR:20-19530
; A:SRC CMNGEN
;
;.EDIT 1477 Adjust calculation of EPSILON to consider
;; decimal places of source
; JEH,04-OCT-83,SPR:10-34214
; A:SRC CMNGEN
;
;.EDIT 1500 Put warnings out where HIGH or LOW VALUES
;; used with numeric fields
; JEH,10-OCT-83,SPR:10-34132
; A:SRC DIAGS,CLEANC,MOVGEN
;
;.EDIT 1501 Put syntax error on alternate key if
;; variable length
; JEH,11-OCT-83,SPR:20-19571
; A:SRC CLEANC
;
;.EDIT 1502 Put a warning out on any record which is
;; smaller than maximum record size
; JEH,24-OCT-83,SPR:10-34218
; A:SRC CLEANC,DIAGS
;
;.EDIT 1503 WRITE ADVANCING gets fatal error message
;; when no recording mode is specified
; JBB,16-NOV-83,SPR:20-19682
; A:SRC CLEAND,COBOLD
;
;.EDIT 1504 GETITM fails to compile in 68274 without
;; DBMS
; JBB,16-NOV-83,SPR:20-19715
; A:SRC GETITM
;.EDIT 1505 68274 halts if '** End of copy libary text **'
;; inserted before 'COPY'
; JEH,17-NOV-83,SPR:20-19590
; A:SRC GETITM
;
;.EDIT 1506 Have FIPS Flagger mark extensions in use of
;; figurative constants with numeric fields
; JEH,29-NOV-83,SPR:10-34229
; A:SRC MOVGEN
;
;.EDIT 1507 Make handling of figurative constants more
;; consistent
; JEH,29-NOV-83,SPR:10-34230
; A:SRC MOVGEN
;
;;********** NOTE
;; Edits 1510-1512 did not make it into tape 7
;; They have been copied down to tape 9
;;
;;.EDIT 1510 At MLAC1., don't use ac TD, it's needed later
;; JEH,16-DEC-83,SPR:NONE
;; A:SRC MOVGEN
;;
;;.EDIT 1511 Test for need of floating point correction factor
;; before test for rounding
;; JEH,19-DEC-83,SPR:20-19795
;; A:SRC EXPGEN
;;
;;.EDIT 1512 Set up proper "FROM" address for MOVN instruction
;; JSM,19-DEC-83,SPR:20-19649
;; A:SRC MOVGEN
;;
;.ENDA
;.AUTOPATCH 8
;
;.EDIT 1513 Build second descriptor word correctly for fig.
;; const. passed as argument to subprogram
; JEH,13-FEB-84,SPR:20-19796
; A:SRC IPCGEN
;
;.EDIT 1514 Shut off AMRGN. flag while matching PRVTOK
;; against TYPE codes
; JEH,14-FEB-84,SPR:10-34473
; A:SRC COBOLD
;
;.EDIT 1515 Restore core pointer (EAS1PC) before defining
;; implied indexex
; JEH,14-FEB-84,SPR:20-19932
; A:SRC COBOLC
;
;.EDIT 1516 Don't clear sort record area if file named
;; in 'same record area' clause
; JEH,19-MAR-84,SPR:NONE
; A:SRC SRTGEN
;
;.EDIT 1517 Fix line splitting for copy replacing
; JEH,19-MAR-84,SPR:NONE
; A:SRC GETITM
;
;.EDIT 1520 Give error if 'DEPENDING ON D-N' and D-N
;; requires a subscript
; JEH,28-MAR-84,SPR:10-34603
; A:SRC CLEANC
;.EDIT 1521 Use the device and PPN fields to find correct
;; libary file
; JEH,10-APR-84,SPR:20-20068
; A:SRC GETITM
;.ENDA
;.AUTOPATCH 9
;; Edits 1510-1512 did not get into tape 7
;; Moved here to get into tape 9
;
;.EDIT 1510 At MLAC1., don't use ac TD, it's needed later
; JEH,16-DEC-83,SPR:NONE
; A:SRC MOVGEN,COBVER
;
;.EDIT 1511 Test for need of floating point correction factor
;; before test for rounding
; JEH,19-DEC-83,SPR:20-19795
; A:SRC EXPGEN
;
;.EDIT 1512 Set up proper "FROM" address for MOVN instruction
; JSM,19-DEC-83,SPR:20-19649
; A:SRC MOVGEN
;
;;.EDIT 1522 Not applicable to V12B.
;; JEH,26-APR-84,QAR:302095
;; A:SRC COBOLD,COBOLE,EXPGEN,MSCGEN,COBVER
;;
;.EDIT 1523 Put 'SUBPROGRAM' on listing file
; JEH,30-APR-84,SPR:NONE
; A:SRC COBOLF
;
;;.EDIT 1524 Not applicable to V12B
;; JEH,04-MAY-84,PCO
;; A:SRC GETITM
;;
;;.EDIT 1525 Not applicable to V12B
;; JEH,11-MAY-84,PCO
;; A:SRC GETITM
;;
;;.EDIT 1526 Not applicable to V12B
;
;;.EDIT 1527 Not applicable to V12B
;
;;.EDIT 1530 Not applicable to V12B
;
;;.EDIT 1531 Not applicable to V12B
;
;;.EDIT 1532 Not applicable to V12B
;
;.EDIT 1533 Alternate keys getting error if record is variable
;; in length, fix edit 1501
; JEH,16-MAY-84,SPR:10-34680
; A:SRC CLEANC
;
;.EDIT 1534 Edit 1115 generates a bogus byte pointer, causing ILL MEM REF
;; on systems with one-word global byte pointers implemented.
; WTK,16-MAY-84,SPR:NONE
; A:SRC DMLIO
;
;;.EDIT 1535 Not applicable to V12B
;
;.EDIT 1536 Reset ac16 to curfil value before using it
; JEH,31-MAY-84,SPR:NONE
; A:SRC IOGEN
;
;.EDIT 1537 Fix edit 1424, give error on COMP fields in ASCII record
; JEH,07-JUN-84,SPR:20-20184
; A:SRC COBOLC,DIAGS
;
;;.EDIT 1540 Not applicable to V12B
;
;;.EDIT 1541 Not applicable to V12B
;
;.EDIT 1542 Fixed conversion of moving sixbit to ascii in
;; an if generation.
; KWS,20-AUG-84,SPR:20-20238
; A:SRC IFGEN,COBVER
;
;.EDIT 1543 Fix edit 1411 to not give warning if ON SIZE ERROR
;; clause is used.
; MJC,21-AUG-84,SPR:10-34792
; A:SRC CMNGEN
;
;;.EDIT 1544 Not applicable to V12B
;
;.ENDA
;.AUTOPATCH 10
;
;;.EDIT 1545 Not applicable to V12B.
;
;.EDIT 1546 Fix move of literal 000.0 to PIC 999V9.
; KWS,3-OCT-84,SPR:20-20327
; A:SRC MOVGEN,COBVER
;
;.EDIT 1547 Make DEC extension warnings print at the
;; end of the listing.
; KWS,18-OCT-84,SPR:10-34907
; A:SRC DIAGS,COBVER
;.EDIT 1550 Clear flags on literals in SETOPN.
; KWS,26-OCT-84,SPR:10-34905
; A:SRC CMNGEN,COBVER
;
;;.EDIT 1551 Version 13 only
;
;;.EDIT 1552 Version 13 only
;
;.ENDA
;.AUTOPATCH 11
;
;;.EDIT 1553 Version 13 only
;
;;.EDIT 1554 Version 13 only
;
;;.EDIT 1555 Version 13 only
;
;;.EDIT 1556 Version 13 only
;
;;.EDIT 1557 Version 13 only
;
;.EDIT 1560 Clear the extend bit
; RLF,20-MAR-85,SPR:10-35095
; A:SRC COBOLD
;
;;.EDIT 1561 Not applicable to 12B
;
;;.EDIT 1562 Not applicable to 12B
;
;;.EDIT 1563 Not applicable to 12B
;
;;.EDIT 1564 Not applicable to 12B
;
;;.EDIT 1565 Not applicable to 12B
;
;;.EDIT 1566 Not applicable to 12B
;
;.EDIT 1567 Check to see that SAME AREA file names do not match
;; the first file. Give E.174 if so.
; MJC,26-MAR-85,SPR:10-35026
; A:SRC COBOLB,COBVER
;
;;.EDIT 1570 Not applicable to 12B.
;
;;.EDIT 1571 Not applicable to 12B.
;
;;.EDIT 1572 Not applicable to 12B.
;
;;.EDIT 1573 Not applicable to 12B.
;
;;.EDIT 1574 Not applicable to 12B.
;
;.ENDA
;.ENDV
*** EDITS BELOW WILL BE IN COBOL-68/74 VERSION 12B RELEASE ***
1131 2-Jun-81 WTK MOVGEN
IF on two double-word numerics fails when the numbers are negated.
1130 21-May-81 JSM COBOLD
ENDSPIF message with bad IF clause in statement followed by
statement with special IF.
1127 30-Apr-81 DAW MSCGEN
INSPECT / REPLACING item with fig. const. failed when
the item ended on a word boundary.
1126 28-Apr-81 JSM SRTGEN
Make RELEASE verb clear its input buffer after releasing the record to SORT.
1125 14-Apr-81 JSM GETITM
*** DO NOT INCLUDE THIS EDIT, IT HAS BAD SIDE EFFECTS ***
COPY REPLACING gives spurious warnings when numeric replacement
precedes end of statement in DATA DIVISION.
1124 25-Mar-81 DMN PSCAN
Make PIC S(n) illegal.
1123 19-Mar-81 JSM CMNGEN
Bad table link, catastrophe in phase E with subscript assoc with linkage item with no occurs clause.
1122 4-Mar-81 JEH GETITM
Save AC6 when opening second source file.
1121 27-Feb-81 HRB/JM IMPURE
Duplicate of edit 1031.
1120 27-Feb-81 WTK COBOLD
Already in 12B in a slightly different form.
1117 6-Feb-81 DAW COBOLD
Make "UNSTRING delimited by LOW-VALUES" work in COBOL-68.
1116 2-Feb-81 JSM DTREE DIAGS
Allow only one BY in UNSTRING.
1115 3-Feb-81 JSM DMLIO
DBMS edit number 575.
1114 21-Jan-81 JSM COBOLD
Fix edit 1035 to bypass SUB-SCHEMA error message if no INVOKE seen.
1113 9-Jan-81 DMN MATGEN MOVGEN
COMP-1 to COMP-2 conversion not done correctly.
1112 8-Jan-81 DMN PMATCH
Fix bad SKIPA optimization when previous instruction can skip 2.
1111 8-Jan-81 WTK XFRGEN
PERFORM LIMIT EXCEEDED when doing many executions of DECLARATIVES.
1110 31-Dec-80 DMN CMNGEN
Allow ON SIZE ERROR code to catch divide by zero for COMP-1 result.
1107 29-Dec-80 DAW CMNGEN IOGEN
"?Ill mem ref" and bad error pointer when a WRITE statement is compiled
that has an error regarding a depending variable
1106 31-Dec-80 DAW COBOLC
Bad error message given when 88 level item has numeric value clause
and is subordinate to INDEX item.
1105 30-DEC-80 JEH RPWGEN
Set LINKAGE SECTION bit for CONTRL, SUM operands.
1104 17-Dec-80 CLRH COBOLD
More of edit 1046, patch to edit 675.
1103 15-Dec-80 DAW CMNGEN
Bug in literal pooler caused bad code to be generated in rare cases.
1102 12-Dec-80 DAW COBOLC DIAGS
"?Bad table link" in phase D if level number is 0 on item with sons
1101 04-DEC-80 WTK IOGEN
REWRITE and DELETE generating WRITV. when record has a DEPENDING ON clause.
1100 26-Nov-80 JSM SRTGEN
COBOLE loops if bad syntax for PIC on sort key.
1077 18-Nov-80 DAW CMNGEN IMPURE
"?Illegal memory reference" in PHASE E at random times
1076 17-Nov-80 DAW PMATCH
Disable unsafe optimization for MOVE ZEROES to LINKAGE-SECTION COMP-item.
1075 17-Nov-80 DAW MOVGEN
"?Bad LITAB code" generating numeric literals that get truncated.
1074 14-Nov-80 DAW CLEAND
?Catastrophe in phase D if "DYNAMIC" is misspelled.
1073 14-Nov-80 DAW CMNGEN
Fix bad code generated when depending variables are 2 or more
levels down in an item.
1072 14-Nov-80 DAW CLEANC
Make VALUE clause work correctly for EBCDIC signed numeric item.
1071 14-Nov-80 DMN COBOLC DIAGS
Give error message when variable part is not the last thing in the record.
1070 5-Nov-80 DAW COBOLD IMPURE P
Fix MOVE CORRESPONDING of items with subscripts.
1067 30-Oct-80 DAW IFGEN
Fix ANS74 compare of numeric item to non-numeric item.
1066 29-Oct-80 DAW CLEANC
Better error recovery for CONTAB.
1065 24-Oct-80 JSM GETITM
With COPY REPLACING, check for end of library member.
1064 24-Oct-80 JSM GETITM
With COPY REPLACING don't split a line if the only input characters left are "." and line-feed.
1063 24-Oct-80 JSM GETITM
Special handling for paragraph names and 01 level numbers with COPY REPLACING.
1062 24-Oct-80 JSM COBOLD
Fix fatal error on NOTE with COPY REPLACING.
1061 23-Oct-80 DMN SRTGEN
WRONG CODE GENERATED FOR 8 BYTE ASCII KEY WITH 1 OR 2 BYTES IN FIRST WORD.
1060 10-Oct-80 JEH IFGEN
FIX IF DATA-ITEM = ZEROES FOR FIELD GREATER THAN 2040 CHARACTERS.
1057 1-OCT-80 DMN IFGEN
GIVE ERROR ON ILLEGAL USE OF ALL IN NUMERIC COMPARISONS.
1056 26-SEP-80 DMN EXPGEN MOVGEN
FIX COMP-2 TO COMP-1 CONVERSION IN COMPUTE STATEMENT.
1055 23-SEP-80 WTK COBOLG
FIX EDIT 762 TO USE CORRECT ERROR MESSAGE.
1054 23-SEP-80 JEH COBOLF
PRINT MESSAGE WHEN WARNINGS BEING DUMPED
1053 22-SEP-80 DAW IOGEN
ACCEPT ITEM(SUBSCRIPTS) FROM DATE/DAY/TIME (74 ONLY).
1052 9-SEP-80 CLRH RPWGEN
[Not required in 12B, SOURCE can now be subscripted].
1051 2-SEP-80 JSM IMPURE
GET MCS FLAG WORDS OUT OF OVLAY AREA.
1050 25-AUG-80 DAW COBOLD
BAD CODE GEN FOR NESTED IF..I-O VERB...IF.
1047 22-AUG-80 JEH MATGEN
BAD CODE GEN FOR DIVIDE..INTO USING -1 AND +1 LITERALS
1046 12-AUG-80 CLRH COBOLD DIAGS
IN FIND RSE3, IDENTIFIER-2 MUST BE 1-WORD COMP.
1045 11-AUG-80 LEM EXPGEN
[Already in 12B]
1044 11-AUG-80 LEM IPCGEN
[Already in 12B]
1043 31-JUL-80 DAW MOVGEN
FIX ANS68 MOVE NON-NUMERIC TO NUMERIC EDITED
1042 31-JUL-80 DAW MOVGEN
FIX COMPUTE ID = ID1 / (10 ** ID-2)
1041 24-JUL-80 DAW IPCGEN
BAD CODE GENERATED FOR COBOL-74 CONSTRUCT "CALL <IDENTIFIER>".
1040 22-JUL-80 DAW IFGEN
FIX NON-BIS CASE OF EDIT 1034, "IF ...NOT = SPACE" DIDN'T WORK
1037 18-JUL-80 DAW IFGEN
FIX ?ASSEMBLY ERRORS WHEN DEPENDING VAR ON READ AND COMP ITEM
1036 18-JUL-80 DAW GETITM
FIX PRINTING OF SPECIAL CHARACTERS IN THE LISTING
1035 10-JUL-80 CLRH COBOLD
DBMS IF STATEMENT FAILS TO CHECK FOR USERNAME
1034 7-JUL-80 DMN IFGEN
MAKE IF = ZERO TEST GENERATE INLINE CODE, FIXES LARGE RECORD PROBLEM.
1033 2-JUL-80 DMN COBOLD
TURN OFF COPY REPLACING FLAGS DURING ERROR RECOVERY.
1032 27-JUN-80 JEH CLEAND
STORE EBCDIC MODE IN KEY DESCRIPTOR.
1031 26-JUN-80 DMN IMPURE
ADD VARIABLES FOR DBMS VERSION 6.
1030 26-JUN-80 DMN IOGEN
MORE OF EDIT 605 WHEN OCCURS IS NOT ELEMENTRY ITEM.
1027 24-JUN-80 JEH IMPURE IOGEN IFGEN SRTGEN
BUILD RECORD NAME TABLE IF NESTED READS.
1026 18-JUN-80 CLRH DTREE COBOLD
CHECK MOVE CURRENCY STATUS FOR A VALID RECORD.
1025 11-JUN-80 DMN SRTGEN
ALLOW RANDOM AND ISAM FILES AS SORT INPUT FILES.
1024 30-MAY-80 DMN COBOLG
FIX BUG IN EDIT 762 IF D. P. MANTISSA IS EXACTLY 18 DIGITS.
1023 29-MAY-80 DMN GETITM PSCAN IMPURE
FIX VARIOUS PROBLEMS WITH PICTURES IN COPY REPLACING.
1022 20-MAY-80 DMN GETITM
FIX PROBLEM OF MISSING CHARACTER ON LISTING FILE IN COPY REPLACING.
THIS EDIT REPLACES EDIT 617 WHICH WAS NOT IN 12A.
1021 16-MAY-80 DMN COBOLB
FIX ERROR CAUSE BY LOWER CASE LITERAL IN PROGRAM-ID.
1020 13-MAY-80 DMN GETITM
FIX LINE TOO LONG PROBLEM IN COPY REPLACING.
1017 8-MAY-80 DMN EXPGEN
FIX EDIT 443, MAKE COMPUTE A = - (SOMETHING) WORK.
1016 2-MAY-80 DMN DTREE
EDIT 1002 WAS TOO AMBITIOUS, REMOVE PART OF THE EDIT.
1015 25-APR-80 DMN GETITM
USE THE CORRECT RIGHT MARGIN ON COPY REPLACING .
1014 23-APR-80 DMN COBCOM
LIST FULL PATH ON LOOKUP/ENTER ERRORS.
1013 22-APR-80 DMN GETITM IMPURE DIAGS
FIX LOOP IF MISSING == ON COPY REPLACING.
1012 22-APR-80 JEH DTREE
COBOL-74 LOOPS IF END DECLARATIVES IS MIS-SPELLED.
1011 9-APR-80 CLRH COBOLC
FIX EDIT 733 TO NOT REQUIRE DATA RECORD IF FD HAS A REPORT CLAUSE.
1010 9-APR-80 LEM COBOLG
FINISH EDIT 774
1007 4-APR-80 CLRH RPWGEN
GENERATE 'AOS PAGE-COUNTER' FOR 'LINE NEXT PAGE'.
1006 3-APR-80 JEH CLEAND
PULL OUT CODE TESTING ON USE PROCEDURE CONFLICTS.
1005 2-APR-80 JSM COBOLD DIAGS
MAKE IF OR SEARCH ILLEGAL IN WHEN CLAUSE OF SEARCH VERB.
1004 1-APR-80 DMN IMPURE PURE COBOLE CMNGEN IFGEN MOVGEN MSCGEN SRTGEN STRGEN COBOLO OPCTAB
MAKE ASCII & EBCDIC COLLATING SEQUENCES WORK CORRECTLY IN COBOL-74.
NEEDS LIBOL EDIT 624.
1003 28-MAR-80 DMN COBOLC
FIX DUPLICATE CREF DEFINITION WHEN LEVEL # DECREASES (BROKEN BY EDIT 373).
1002 26-MAR-80 DMN DTREE IPCGEN DIAGS
ADD CHECK FOR ILLEGAL OR MISSING CALL/ENTER ARGS.
1001 26-MAR-80 DMN GETITM
MAKE ALL "LITERAL" WORK IN COPY REPLACING.
1000 25-MAR-80 DMN MOVGEN
GENERATE NUL LITERAL FOR MOVE TO BAD DATA-ITEM.
777 26-MAR-80 DAW EXPGEN
FIX ?ASSEMBLY ERRORS WHEN LITERALS USED IN COMPUTE AND EDIT 637
IN INSTALLED
776 14-MAR-80 LEM DTREE
CHECK IF WE NEED TO REGET PRESENT TOKEN
ALSO FIX SYNTAX TREE TO ALLOW CONSOLE AS TTY FOR "ACCEPT".
775 14-MAR-80 LEM DTREE
FIX DISPLAY "LIT" UPON MNEMO WITH NO ADVANCING WHEN MNEMO ISNT DEFINED.
774 10-MAR-80 DAW COBOLG
DELETE AS1.TMP IF USING -,-=FOO/O
773 25-FEB-80 DAW PMATCH
FIX OPTIMIZATION OF ADDING 1 TO LINKAGE-SECTION ITEM.
772 22-FEB-80 LEM COBOLD
MAKE DA.CLA EXTERNAL IN CASE DBMS IS TURNED OFF.
771 11-FEB-80 DAW P CLEANC
ALLOW DISPLAY-9 VALUE OF ID. NEEDS LIBOL EDIT 616.
770 7-FEB-80 DAW CLEANC
REPLACEMENT FOR EDIT 742: IF YOU DEFINED AN ITEM WITH "INDEXED BY"
CLAUSE AND ALSO DEFINED IT AS INDEPENDENT ITEM, NO ERROR MESSAGE
WAS GENERATED.
767 7-FEB-80 DMN EXPGEN MATGEN
CHECK OVERFLOW FLAGS FOR "ON SIZE ERROR".
NEEDS LIBOL EDIT 615.
766 31-JAN-80 DMN MOVGEN
1-WORD COMP WITH "ON SIZE ERROR" SOMETIMES MOVES WRONG ACC.
765 31-JAN-80 DAW COBOLD IMPURE
"NULL TABLE LINK" WHEN UNSTRING IS DONE FROM VARIABLE WITH
MORE THAN ONE SUBSCRIPT.
764 30-JAN-80 DMN MOVGEN
FIX SPURIOUS ERRORS ON MOVE WHERE "A" OPERAND HAS SEPARATE SIGN.
763 30-JAN-80 DMN IMPURE COBOLC
CHECK FOR DUPLICATE LINKAGE AND REPORT SECTIONS.
762 30-JAN-80 DMN P IMPURE EXPGEN CMNGEN XFRGEN COBOLG
ADD SMALL CONSTANT TO COMP-2 COMPUTE CALCULATIONS.
IMPLEMENT AND USE D. P. FLOATING POINT LITERALS.
761 29-JAN-80 JSM DIAGS
MAKE MESSAGES 117, 148, 154, 264, 414, AND 419 MORE EXPLICIT FOR DML COMPILES
760 29-JAN-80 DMN COBOLC
MAKE "BLANK WHEN ZERO" WORK AGAIN FOR NUMERIC SENDING ITEM.
757 9-JAN-80 DAW COBOLD
DO NOT ALLOW OPEN OF A SORT-FILE (IN AN "SD")
756 28-DEC-79 DMN COBOLG
GENERATE REQUEST FOR C.RSET IN COBOL SUBPROGRAMS INCASE CALLED BY FORTRAN
755 31-OCT-79 DAW MOVGEN
FIX BUG IN EDIT 745 - IT BROKE ACCEPT OF SMALL NUMERIC ITEMS
754 25-OCT-79 LEM DTREE
FIX "FIGCN" "AFTER ADVANCING " TO WORK
753 25-OCT-79 DAW CMNGEN
COBOL-68 MAKE 745 WORK FOR COBOL-68
752 24-OCT-79 DMN IPCGEN
COBOL-74 ILLEGAL INST. IF DATAB CONTAINS ERRORS
751 24-OCT-79 DMN COBOLC
BAD DATAB DEFINITION IF FD NAME MATCHES PROGRAM ID.
750 24-OCT-79 DMN IOGEN
COBOL-74 BAD TABLE LINK IF RELATIVE KEY CONVERSION REQUIRED
747 24-OCT-79 DMN CLEAND
COBOL-74 BAD TABLE LINK IF MISSING ISAM RECORD KEY
746 NOT REQUIRED (ALREADY IN V12A)
745 15-OCT-79 DAW CMNGEN MOVGEN
COBOL-74 SUBSCRIPTING AND MOVES WITH NON-COMP DEPENDING VARIABLES
744 8-OCT-79 DAW COBOLD
FIX EDITS 707 AND 670 FOR IFS WITHIN "SEARCH"
743 6-OCT-79 DMN CMNGEN
COBOL-74 MORE OF EDIT 721
742 29-SEP-79 DAW COBOLC
[EDIT DELETED]
741 29-SEP-79 DC DTREE
NOT NEEDED, ALREADY IN 12A SOURCES
740 26-SEP-79 DMN COBOLB
FIX SOURCE-COMPUTER. WITH NO COMMENT ENTRY
737 25-SEP-79 DAW PMATCH
FIX LOOPING IF PROGRAM HAS NESTED SEARCH STATEMENTS
736 21-SEP-79 DMN MOVGEN
FIX TYPO IN BISCMP CODE FOR COMP-1 TO COMP-2 CONVERSION
735 14-SEP-79 CLRH CLEAND
GIVE ERROR IF RECORD KEY NOT DEFINED IN RIGHT FD
733 13-SEP-79 DMN COBOLC
GIVE ERROR IF NO DATA RECORD IN FD.
732 13-SEP-79 DAW MATGEN MSCGEN
FIX "SET" GENERATING BAD CODE SOMETIMES IN COBOL-74
731 7-SEP-79 DMN MOVGEN
FIX DIVIDE A BY B WHERE B IS 2-WORD COMP.
730 7-SEP-79 DMN CMNGEN MOVGEN
FIX MULTIPLY A BY B ON SIZE ERROR FOR QUAD WORD.
727 10-SEP-79 DAW STRGEN
NOT REQUIRED - REPLACED BY NEW STRING/UNSTRING ROUTINES
*** EDITS BELOW WILL BE IN COBOL-68/74 VERSION 12A RELEASE ***
726 21-AUG-79 DMN GETITM
FIX COPY REPLACING WHEN MULTIPLE OF SIX CHARS.
725 21-AUG-79 DMN COBOLF
MAKE SURE FFATAL IS ON IF FATAL ERRORS EXIST.
724 14-AUG-79 DMN MOVGEN
FIX ERROR IN EDIT 722
723 8-AUG-79 DMN COBOLC
FIX EDIT 706 TO POINT TO CORRECT RECORD.
722 26-JUL-79 DMN IMPURE CMNGEN MOVGEN
FIX COBOL-74 MOVE HIGH/LOW-VALUES WITH PROGRAM COLLATING SEQUENCE.
721 24-JUL-79 DMN CMNGEN
FIX COBOL-74 SUBSCRIPTED IF WITH PROGRAM COLLATING SEQUENCE.
720 23-JUL-79 DMN IFGEN
FIX COBOL-74 COMPARE TO SPACES WITH PROGRAM COLLATING SEQUENCE.
717 16-JUL-79 MFY IFGEN
FIX IF A NOT = SPACES FOR A ALPHANUMERIC AND LONGER THAN
2040 CHARACTERS.
716 22-JUN-79 DAW CMNGEN
FIX BAD CHECK FOR EBCDIC MODE IN SUBSCRIPTING.
715 5-JUN-79 CLRH MATGEN
CORRECT EDIT 566.
714 3-JUN-79 MFY DTREE
BREAK UP LONG LINES DUE TO SIRUS BUG.
713 31-MAY-79 CLRH COBOLA
DO TMPCOR UUO IN THE RIGHT ADDRESS IF CORE UUO IS NEEDED.
712 24-MAY-79 CLRH PMATCH
NOT REQUIRED, IN 12A IN DIFFERENT FORM.
711 22-MAY-79 DAW COBOLC
FIX EDIT 674 FOR INDEX ITEMS.
710 16-MAY-79 DMN COBOLC
SET FLAG SHOWING WORKING-STORAGE SEEN.
707 7-MAY-79 DAW COBOLD
FIX EDIT 670 - IT BROKE NESTED IFS.
706 3-MAY-79 CLRH COBOLC DIAGS
CHECK RECORD CONTAINS CLAUSE AGAINST MAX. RECORD SIZE.
705 2-MAY-79 CLRH DTREE
PUT OUT "PERIOD ASSUMED" MESSAGE IN RIGHT PLACE
704 30-APR-79 DMN GETITM
FIX MULTIPLE COPY REPLACING ORDERING BUG.
703 30-APR-79 CLRH SRTGEN
BAD CODE GENERATED FOR SIXBIT SORT WHERE KEY STARTS
ONE CHARACTER INTO A WORD (NON-BIS CASE ONLY).
702 30-APR-79 DMN COBOLB GETITM
LIST COMMENTS IN DATE-COMPILED PARAGRAPH.
701 26-APR-79 DAW PMATCH
DON'T DO IMPROPER OPTIMIZATIONS - FIX TO "SAMACM" ROUTINE
700 27-APR-79 DAW COBOLC
FIX UNDESERVED ERROR FOR COMP-1 ITEMS WITH EDIT 674
677 23-APR-79 DAW CLEAND
TABLES EXPANDING MAY CAUSE DBMS USE PROCEDURES TO GET MESSED UP
676 17-APR-79 DMN COBOLF
FIX EDIT 517, GET LISTING RIGHT WHEN SPACE IN COLUMN 7
675 4-APR-79 DMN COBOLD
CHECK FIND RSE 3 SYNTAX THAT COULD LOOK LIKE FIND RSE 5
674 3-APR-79 CLRH COBOLC IMPURE
GENERATE ERROR FOR BAD VALUE CLAUSE OF 88 LEVEL ITEM
673 2-APR-79 DMN CMNGEN MOVGEN
FIX QUAD-WORD ROUNDING PROBLEM.
672 29-MAR-79 DAW COBOLC MATGEN
FIX ILL MEM REF WHEN SOMEONE DEFINES A DATANAME "TALLY".
671 28-MAR-79 DAW CMNGEN
FIX PROBLEM WITH LINKAGE SECTION SUBSCRIPTS
670 28-MAR-79 JSM COBOLD IMPURE SQUIRL
FIX NESTED IF . ELSE PROBLEM
667 22-MAR-79 MFY SRTGEN
WRONG CODE FOR EBCDIC KEYS WITH 2 BYTES IN LAST WORD
666 22-MAR-79 DAW CMNGEN
FIX EDIT 661 (LABEL BADSB4 WAS ALREADY DEFINED IN MAINTENANCE SOURCES)
665 20-MAR-79 DMN COBOLD
RECOVER CORRECTLY FROM PROCEDURE DIVISION MIS-SPELLED
664 19-MAR-79 DAW MOVGEN
FIX MULTIPLY WITH 4-WORD INTERMEDIATE PROBLEM
663 16-MAR-79 DMN PMATCH
FIX SKIPA OPTIMIZATION IF PREV. INST. IS JRST .+3
662 13-MAR-79 DMN IMPURE
FIX EDIT 557, DEFINE PICNXT COMMON TO PHASES B, C, AND D
661 12-MAR-79 DAW CMNGEN DIAGS
GIVE ERROR MESSAGE RATHER THAN GENERATING BAD CODE
FOR COMP-1 SUBSCRIPTS.
660 12-MAR-79 DAW CMNGEN
FIX ERROR MESSAGE POINTS TO WRONG PLACE FOR "WRONG NUMBER OF
SUBSCRIPTS".
657 9-MAR-79 DMN GETITM IMPURE
FIX PROBLEM WITH LOOKAHEAD IN COPY REPLACING INTEGER.
656 8-MAR-79 DAW COBOLE IMPURE
FIX PROBLEMS WITH DBMS USE PROCEDURES
655 6-MAR-79 DMN GETITM
CHECK FOR PREMATURE EOF ON LIBRARY FILE
654 6-MAR-79 DAW MOVGEN
FIX BAD CODE GENERATED SOMETIMES FOR MOVE OF ITEM WITH
TWO OR MORE SUBSCRIPTS.
653 6-MAR-79 DMN COBOLG
TURN ON FFATAL ON ASSEMBLY ERRORS IN PHASE G
652 6-MAR-79 DAW DTREE
ALLOW NULL PARAGRAPH PROCEEDING "END DECLARATIVES"
651 6-MAR-79 DMN COBOLE TABLES
WRONG BYTE POINTER USE IN RPW CONTROL FOOTER CODE
650 5-MAR-79 DAW COBOLE
FIX ILL MEM REF WHEN COMPILER EXPANDS TABLES FOR DBMS
PROGRAM WITH USE PROCEDURES
647 1-MAR-79 DMN SRTGEN
WRONG CODE GENERATED FOR FILLER X(5), KEY X(8) IN SIXBIT
646 1-MAR-79 DAW STRGEN
FIX ERROR MESSAGE ALWAYS POINTS TO LINE 371 IF ERROR WAS IN
SUBSCRIPTED "COUNT" ITEM IN UNSTRING STATEMENT
645 28-FEB-79 DAW COBOLD
FIX ERROR RECOVERY IN SORT STATEMENT
ALSO ADD RESTRICTION TO "MERGE" STATEMENT TO NOT ALLOW SUBSCRIPTING
644 28-FEB-79 DMN CLEANC
MORE ERROR RECOVERY FOR 88 LEVEL WHERE 01 IS NOT DEFINED UNIQUELY
643 27-FEB-79 DAW CMNGEN
FIX "?SIZTE RETURNED 0"
642 27-FEB-79 DAW DTREE
FIX "MOVE CURRENCY STATUS OF RUN-UNIT TO SUBSCRIPTED-ITEM"
641 27-FEB-79 DMN EXPGEN
FIX INCORRECT TEST FOR OPERAND IS ACC AT LASTOP IN EXPGEN
640 26-FEB-79 DAW XPAND
FIX ILL MEM REF WHEN EXPANDING TABLES IN PHASE O
637 23-FEB-79 DAW EXPGEN COBOLE
FIX COMPUTE WITH COMP-1 RESULT
636 21-FEB-79 DMN COBCOM MOVGEN CMNGEN
FIX VARIOUS ERRORS WHEN COMPILING PROGRAMS WITH FATAL ERRORS
635 21-FEB-79 DAW COBOLC
FIX SIZE ALLOCATION FOR AN ITEM WHICH RENAMES ITEM-1 THRU ITEM-2
634 19-FEB-79 DAW MOVGEN CMNGEN PURE COMUNI
FIX PROBLEMS WITH 4-WORD COMP ARITHMETIC
633 9-FEB-79 DMN IMPURE PUTCPY COBOLF
GIVE BETTER WARNING ON LINE NUMBER WRAP-AROUND
632 1-FEB-79 MFY IPCGEN
REMOVE SECOND (WRONG) DEFINITION OF ARGSGN
631 28-JAN-79 DMN COBOLD
DON'T USE ARG2 AT PA258. THUS PREVENTING CATASTROPHIE IN PHASE D
630 27-JAN-79 MFY IFGEN
FIX EDIT 562 FOR NON-BIS CASE
627 27-JAN-79 DMN SRTGEN
WRONG CODE GENERATED FOR EBCDIC 8 BYTE KEY WITH 1 OR 3
BYTES IN FIRST WORD
626 22-JAN-79 DMN MOVGEN
FIX MOVE OF 3 CHAR EBCDIC FIG-CONST (COBOL-68 ONLY)
625 16-JAN-79 DMN CMNGEN
FIX BAD TEST FOR TWO WORD TEMP IN PUTEMP
624 5-JAN-79 DMN COBOLC DIAGS
RECORD SIZE MUST MATCH RECORD CONTAINS IN F MODE FILE
623 29-DEC-78 DMN SRTGEN DIAGS
GIVE ERROR IF SORT KEY CONTAINS OCCURS CLAUSE
622 29-DEC-78 DMN SRTGEN
WRONG CODE GENERATED FOR FILLER X, KEY X(9) IN SIXBIT
621 4-JAN-79 DMN MOVGEN CMNGEN
GIVE ERROR ON "MOVE ALL" <DIGIT> TO NUMERIC
620 18-DEC-78 DMN GETITM
STORE SEQ. NO. CORRECTLY FOR DATE-COMPILED PARAGRAPH.
617 15-DEC-78 DMN GETITM
IF FGTPER IS ON DON'T TEST FOR REPLACEMENT
616 13-DEC-78 DMN PMATCH
FIX SUBI/ADDI OPTIMIZATION IN LINKAGE SECTION
615 12-DEC-78 DMN SRTGEN
PUT REMAINING FIXES FROM BWR FILE INTO OFFICIAL SOURCES
614 12-DEC-78 DMN PMATCH
DECREMENT TAG COUNT CORRECTLY FOR IF D.P. TEST (THIS WAS IN .BWR FILE)
613 12-DEC-79 DMN DTREE
MAKE IT POSSIBLE TO BUILD COMPILER WITH DBMS=0 (THIS WAS IN .BWR FILE)
612 12-DEC-78 DMN COBOLD
INITIALIZE FNOSUB AT THE START OF PHASE D (THIS WAS IN THE BWR FILE)
611 12-DEC-78 DMN IFGEN
FIX IF DBMS-STATEMENT TO GENERATE CORRECT CODE (THIS WAS IN BWR FILE)
610 11-DEC-78 DMN CMNGEN
FIX INCORRECT CODE GENERATED IN ARRAY WHERE TOP LEVEL
IS COMP IS REFERENCED VIA CONSTANT SUBSCRIPT
607 7-DEC-78 DAW PMATCH
FIX "?NPCIN BECAME NEGATIVE" WHEN DELETING CODE THAT CAN'T BE REACHED
606 7-DEC-78 DAW CMNGEN
FIX "?INTERNAL COMPILER ERROR" IF 01 ITEM OCCURS USAGE IS NON-DISPLAY
605 1-DEC-78 DMN IMPURE PURE IFGEN IOGEN
MAKE VARIABLE LENGTH READS WORK USEFULLY
604 29-NOV-78 DMN STRGEN
PUT OUT CORRECT ERROR MESSAGE ON STRING OF NON-NUMERIC TO NUMERIC.
603 28-NOV-78 DMN COBOLC
FIX ILL UUO WHEN "CONTROL" IN "RD" REFERS TO EDITED ITEM.
602 28-NOV-78 DMN DTREE
ALLOW NULL SECTION IN PROCEDURE DIVISION.
*** EDITS BELOW WILL BE IN COBOL-74 VERSION 12 RELEASE ***
601 8-NOV-78 MFY MATGEN
CORRECT EDIT 546
600 31-OCT-78 DMN IFGEN
ADJUST D.P. OF "A" IN ACCS IF LESS THAN D.P. OF "B"
577 31-OCT-78 DMN CMNGEN
FIX SET DOWN BY 262144 (I.E. <-1,,0>)
576 12-OCT-78 DAW MESGEN
FIX "?BAD LITAB CODE" - IN "ENABLE" STMT CODE GEN.
575 11-OCT-78 DAW MOVGEN
FIX "MOVE ALL 'A' TO DISPLAY-ITEM (SUBSCRIPTED)".
574 11-OCT-78 DAW COBOLD
DON'T SET BIT 1 FOR USER-NAME EXTERNAL ENTRY (BIT WENT AWAY)
573 4-OCT-78 DMN DTREE
ALLOW NULL PARAGRAPHS IN DECLARATIVES.
572 9-OCT-78 DMN P
MAKE TABLES BE SIZE 1 IF DBMS OR MSC/TCS TURNED OFF
571 9-OCT-78 DMN PUTCPY
FINALLY FIX 531 & 517
570 6-OCT-78 DMN COMUNI PURE CMNGEN
ADD QUAD-WORD ROUNDING FUNCTION
567 6-OCT-78 DMN MOVGEN
FIX DECIMAL POINT ALLIGNMENT IN QUAD-WORD MULTIPLIES
566 4-OCT-78 DMN IMPURE MATGEN
FLOAT OPERANDS WHEN TARGET IS COMP-1
565 4-OCT-78 DAW IPCGEN
PASS NUMERIC EDITED FIELDS TO A SUBROUTINE CORRECTLY
564 4-OCT-78 DAW MOVGEN
FIX BUG IN EDIT 537 - NON-BIS ONLY PROBLEM
563 4-OCT-78 DAW SRTGEN
ILL. MEM. REF. FOR FILLER X(3) OR X(4), KEY X(8) IN ASCII.
562 2-OCT-78 DMN IFGEN OPCTAB
FIX SIXBIT 6 CHAR FIG-CON COMPARE WHEN SIGN GETS IN THE WAY
561 28-SEP-78 DAW XFRGEN OPCTAB
FIX "GO DEPENDING" - /O PROBLEM
560 25-SEP-78 DMN SRTGEN
WRONG CODE GENERATED FOR FILLER X(3), KEY X(7) IN SIXBIT.
557 19-SEP-78 DMN GETITM IMPURE DIAGS
FIX VARIOUS COPY REPLACING BUGS
556 19-SEP-78 DMN COBOLA
FIX GETTAB 135 IF FILDAEMON IS TURNED OFF
555 17-SEP-78 EHM SRTGEN
FIX MISCELLANEOUS PROBLEMS WITH SORT & COBOL
554 17-SEP-78 EHM SRTGEN DIAGS
GIVE ERROR MESSAGE IF KEY IN SORT STATEMENT IS FOR THE WRONG FILE
553 17-SEP-78 EHM IMPURE COBOLB DIAGS
GIVE WARNING IF RECORDS/RERUN TOO LARGE
552 17-SEP-78 EHM CLEAND DIAGS COBOLD
GIVE ERROR IF DECLAR. & NO END DECLARITIVES
551 16-SEP-78 EHM CMNGEN COBCOM
FIX CATASTROPHIE IN PHASE E
550 16-SEP-78 EHM IFGEN
FIX IF SUBSCRIPTED ITEM IS ALPHABETIC
547 16-SEP-78 EHM MSCGEN IFGEN
FIX EXAMINE REPLACING HIGH-VALUES BY
546 16-SEP-78 EHM MATGEN
FIX MULTIPLY -1 BY X GENERATES A SETZM
545 15-SEP-78 EHM MATGEN
FIX STATEMENT AFTER SUBTRACT 1 IS COMPILED WRONG
544 14-SEP-78 EHM IFGEN
FIX HIGH-VALUES COMPARES FOR SIXBIT VARIABLES
543 12-SEP-78 EHM CMNGEN
FIX ACCEPT INTO A DISPLAY-6 ITEM
542 12-SEP-78 EHM IFGEN
FIX NUMERIC COMPARE OF FIELD WITH DECIMAL PLACES WITH EXPRESSION
WITH NO DECIMAL PLACES
541 3-AUG-78 EHM SRTGEN
FIX CATASTROPHIE IN PHASE O IF NULL INPUT OR OUTPUT PROCEDURES.
540 23-JUN-78 EHM RPWGEN
FIX CONTROL HEADING PRINTED PAST LINE SPECIFIED AS LAST DETAIL LINE.
537 13-JUN-78 EHM MOVGEN
FIX "SUBSCRIPTED MOVE WITH "A" IN ACS!!"
536 12-JUN-78 EHM MOVGEN
FIX MOVE OF COMP ITEM TO DISPLAY TO ONLY MOVE THE NUMBER OF CHARACTERS
IN THE COMP PIC
535 4-MAY-78 EHM COBOLD
FIX EDIT 273 FOR IF SET NOT EMPTY
534 14-APR-78 EHM EXPGEN MATGEN
FIX COMPUTE GETS ANSWER FROM WRONG AC
533 6-APR-78 EHM DTREE
MAKE STOP RUN WORK FOR WHEN IN SEARCH
532 29-MAR-78 EHM COBOLD
FIX EDIT 511 TO PROCESS ERRORS CORRECTLY
531 21-MAR-78 EHM COBOLF PUTCPY
FIX EDIT 517 TO COMPILE COPIES CORRECTLY
517 4-OCT-77 MPL COBOLF PUTCPY
IMPROVE READABILITY OF .LST FILE
*** EDITS BELOW WILL BE IN VERSION 12 RELEASE ***
530 FIX COMMAND SCANNER TO LOOK FOR NUL FILE IF USER TYPES =FILE.
527 FIX CATASTROPHIE WHEN REPORT WRITER VALUE IS MESSED UP
526 IGNORE EDITS PAGE MARKS SO CONTINUATION WORKS
525 FIX SUBSCRIPT EXPRESSION AND NON COMP
524 FIX UNSTRING INTO RECEIVING FIELD WITH DECIMAL PLACES.
523 FIX "OPEN JOUR" STATEMENT FOR EXCL. UPDATE
522 FIX ROUNDING FOR LARGE DIFFERENCES IN NUMBER OF DECIMAL PLACES.
520 CORRECT ERROR HANDLING FOR UNDEFINED DATA ITEMS IN A USING CLAUSE.
516 ALLOW ENTRY AFTER EXIT PROGRAM BUT NOT AFTER EXIT (PARAGRAPH).
ADDED KEYWORDS FOR DBMS-V6: TRANSACTION, VIA, MEMBERS
515 CHECK SOURCE-COMPUTER CORRECTLY
514 FIX CONVERSION OF ASCII TO EBCDIC
513 IF INVALID DBMS PRIVACY KEY, GIVE FATAL ERROR
AND BEGIN PROCESSING AFTER SCHEMA SECTION.
512 CHECK FOR COMP ITEM AT 01 LEVEL WHEN DOING A BINARY WRITE
511 MAKE NESTED SEARCH STATMENTS WORK
510 PREVENT CATASTROPHE IN PHASE E WHEN COPY
TO LINKAGE SECTION IS INCORRECT SUCH THAT THERE
IS NO LINK SET UP TO THE 01 LEVEL GRANDFATHER.
507 TO BUILD COBOL WITH DBMS==0, DBMS4==0
WHEN EDIT 476 IS INSTALLED
506 MAKE NEW EXIT QUITS WHICH RETURNS TO
COBOLA WITHOUT GOING TO COBOLK
505 ADD CHECKS SO "KEY" TYPE MATCHES ACCESS MODE
504 ALLOW "STRING" VERBS TO BEGIN IN A-MARGIN
LIKE OTHER VERBS AND CATCH MORE CASES OF
IMPROPER SYNTAX SUCH AS "STRING DELIMITED...".
503 TO BUILD COBOL WITH DBMS==0, DBMS4==0
501 ENFORCE NO PRINTER CHANNEL GREATER THAN 8
500 FIX "SET X(1) X(2) UP" TO STOP LOOPING
477 DO BETTER RECOVERY FROM LIBARY NOT FOUND
476 CHECK FOR PROPER SEQUENCE OF SECTION
NAMES AND PROPER ALLOCATION OF DATA STORAGE
475 PASS NUMERIC AND SIGN BITS TO MACRO SUBROUTINE CORRECTLY
474 PUT OUT ERROR MESSAGE WHEN TRYING TO DO A
"READ INTO" ON A RECORD OF ZERO SIZE.
471 GIVE APPROPRIATE ERROR MESSAGE WHEN OCCURS
MAXIMUM EXCEEDED.
470 BE MORE AWARE WHEN "DECIMAL-POINT IS COMMA"
467 SET LN, CP AND RIGHT DIAG. MESSAGE FOR
STATEMENT: "GO TO -(NUMBER)"
466 FIX COMPUTE FLOATING DIVIDES WHEN ANSWER ROUNDED.
465 LOCATE TOO LARGE DATA ITEM DEFINED BY
OCCURS FOLLOWED BY OCCURS. GIVE FATAL ERROR.
464 ALLOW DIGITS TO BE LEXICALLY ORDERED BEFORE LETTERS.
461 FIX TALLY FOR RECORD-NAME IN WRITE CAUSES CRASH
460 FIX INCORRECT ERROR MESSAGE AFTER SEARCH ALL 'THIS STATEMENT
CANNOT BE REACHED.' ROUTINE COBOLD.
457 GIVE FATAL ERROR MESSAGE FOR ENTRY FOLLOWING EXIT IN THE SAME
PARAGRAPH. ROUTINE DTREE.
456 GIVE WARNING DIAGNOSTIC IF ROUNDING IS USED INCORRECTLY.
ROUTINES CMNGEN, EXPGEN, DIAGS.
455 FLAGS SORT KEYS NOT DEFINED IN SD STATEMENT. ROUTINE COBOLD.
454 RECOVER FROM USER SYNTAX ERROR FOR CONDITIONAL NAME WHICH CAN
CAUSE CATASTROPHIE IN PHASE C. ROUTINE CLEANC.
453 ALLOW DBMS PROGRAMS IN STANDARD (/S) FORMAT. ROUTINES DBGETF,
COBOLC, GETITM.
452 FIX KEY CODE FOR CORE EXPANSION FOR SORTING IN LARGE COBOL
PROGRAMS. ROUTINE SRTGEN.
451 GIVE ERROR MESSAGE LINKAGE SECTION MUST COME AFTER WORKING-
STORAGE IF THERE IS A SCHEMA SECTION OR A COMMUNICATION SECTION.
ROUTINE COBOLC.
450 FIX RENAMES THRU FOR DATA-NAME IN LINKAGE SECTION. ROUTINE
COBOLC
447 GIVE WARNING WHEN ATTEMPTING TO ACCEPT MORE THAN 1023 CHARACTERS
INTO AN AREA. ROUTINE IOGEN.
*** EDITS BELOW ARE IN VERSION 11 RELEASE ***
446 TEST FOR ERROR BEFORE PUSHJ TO LNKSET FOR CATASTROPHE IN PHASE
E. ROUTINE IFGEN
445 FIX CATASTROPHE IN PHASE IF VARIABLE FROM LINKAGE SECTION IS
SUBSCRIPTED THAT CANNOT BE SUBSCRIPTED. ROUTINE IFGEN.
444 ADDED WARNING IF MAXIMUM COMPARE LENGTH FOR IF STATEMENT IS
EXCEEDED. ROUTINES COBOLE AND DIAGS.
443 FIX INCORRECT RESULT WHEN ATTEMPTING TO NEGATE A VARIABLE VIA
COMPUTE (I.E. COMPUTE BLAH = - BLAH ). ROUTINE EXPGEN.
442 ILLEGAL MEMORY REFERENCE REFERENCE CATASTROPHE IN PHASE C IF
COMMUNICATIONS SECTION IS AFTER WORKING-STORAGE. ROUTINE COBOLC.
441 ADDED IF OP0 TEST FOR NON-NUMERIC DATA. NEEDS EDIT 455 TO
LIBOL. ROUTINES PURE, IFGEN
440 FIX XPAND GETTING CORE BUT LEAVING NAMADR WITH OLD CORE LOCATION.
ROUTINES XPAND, NAMADR
437 FIX DBMS 'IF' IF THE LITERAL TABLE OVERFLOWES ONTO THE DISK.
ROUTINE IFGEN
436 FIX DBMS 'IF' STATEMENTS IN SEGMENTED SECTIONS. ROUTINE IFGEN
435 FIX DECLARITIVES IN DBMS PROGRAM SO THAT DBMS SECTION GOES
AROUND IT. ROUTINE COBOLD, DTREE, CLEAND, IMPURE, COBOLE, XFRGEN
434 HANDLE SUM COUNTERS OF GREATER THAN 10 DIGITS PROPERLY FOR
REPORT WRITER. ROUTINE CLEANC
433 NOT USED.
432 PASS NUMERIC ARGUMENTS TO A SUBROUTINE CORRECTLY. ROUTINE IPCGEN
431 FIX 'UUO CONVENTION ERROR' MESSAGE WITH SORT GIVING ON LARGE-SIZE
ASCII FILES. ROUTINES CMNGEN, SRTGEN
430 FIX 'ACCEPT' WHEN ARGUMENT HAS A FAULTY SUBSCRIPT. ROUTINE IOGEN
427 FIX FIELD SIZE FOR EXAMINE REPLACING. ROUTINE MSCGEN
426 FIX ZERO TESTING OF FIELDS WITH PICTURE SIZES OF 6 OR FEWER.
ROUTINE IFGEN
425 FIX STRING/UNSTRING AND MCS VERBS TO WORK IN NON-RESIDENT
SECTIONS. ROUTINES MESGEN, XFRGEN
424 DON'T ATTEMPT TO MAKE LITERALS OF ZERO SIZE. ROUTINES CMNGEN,
MOVGEN
423 DON'T ATTEMPT TO MAKE CONTROL ID PREVIOUS IF ID IS ERROR.
ROUTINE COBOLC
422 FIX LOSS OF FIRST CHARACTER IN 'DATE-COMPILED' OR 'SOURCE-COMPUTER'
STATEMENTS. ROUTINE COBOLB
421 FIX 'EXAMINE REPLACING' BY 'HIGH-VALUES' FOR A SIXBIT ITEM.
ROUTINE MSCGEN
420 FIX FOR MISSING PERIOD ON 'OPEN' STATEMENT. ROUTINE COBOLD
417 MAKE SURE RESTYP IS DEFINED SO ARITHMETIC OPERATIONS DON'T GET
'BAD RESTYP' MESSAGE. ROUTINE MATGEN
416 FIX MOVES OF SUBSCRIPTED OR LINKAGE SECTION ITEMS. ROUTINE
MOVGEN
415 FIX THE CONTROL ID COUNT IN REPORT WRITER. ROUTINE RPWGEN
414 HANDLE NEGATIVE EXPRESSIONS IN 'IF' STATEMENTS. ROUTINE IFGEN
413 FIX PERIOD HANDLING FOR NESTED 'IF' AND 'SEARCH' STATEMENTS.
ROUTINE COBOLD
412 PREVENT COMMUNICATION SECTION AND SCHEMA SECTION FROM OVERLAYING
EACH OTHER. ROUTINE COBOLC
411 CORRECT PARAMETER WORD SETTING FOR SUBSCRIPTED ARGUMENTS TO
'ENTER' OR 'CALL'. ROUTINE IPCGEN
410 FIX 'SEND WITH' DATA-NAME FOR MCS. ROUTINE MESGEN
407 FIX WRITE BEFORE/AFTER FOR STANDARD ASCII FILES. ROUTINES
CLEAND, IOGEN
406 SET ERROR RETURN FROM SETOPN IF DATA ITEM HAS ERROR BIT SET.
ROUTINE CMNGEN
405 FIX QUALIFICATION OF SUBSCRIPTS. ROUTINES COBOLD, DIAGS
404 FIX COUNT OF ALLOWABLE CHARACTERS IN AN EDITED PICTURE.
ROUTINE PSCAN
403 FIX ERRONEOUS 'CLAUSE DUPLICATED' DIAGNOSTIC FOR EDITED NUMERIC
FIELDS WITH NO 9S AND A 'BLANK WHEN ZERO' CLAUSE. ROUTINE COBOLC
402 ALLOW INDEX REGISTER AND INDIRECT ADDRESSING FOR ARGUMENT TO
LIBOL. ROUTINES CMNGEN, COBOLG
401 FIX HANDELING OF USE PROCEEDURE IN A DBMS PROGRAM.
ROUTINES CTREE, COBOLG, CLEAND, IMPURE
400 REPLACED BY EDIT 435.
377 FIX MULTIPLE ITEMS IN A GIVING CLAUSE. ROUTINE MATGEN
376 FIX ERROR RECOVERY FOR ERROR IN DIVIDE STATMENT. ROUTINE DTREE
375 FIX LITERAL OVERFLOW IN DBMS 'IF' STATEMENTS. ROUTINE IFGEN
374 FLAG ERROR WHEN SIXBIT LITERAL HAS A NON-SIXBIT CHARACTER IN IT.
ROUTINES IFGEN, CMNGEN, IMPURE, ASCSIX
373 FIX MULTIPLY DEFINED DATANAMES (QUALIFIED) TO ALLOW ALL NEW
DEFINITIONS TO BE MARKED. ROUTINE COBOLC
372 MAKE SURE %PARAM IS PUT INTO AS1 FILE FOR DBMS 'IF' STATEMENTS.
ROUTINE IFGEN
371 FIX MOVE OF 'TODAY'. ROUTINE MOVGEN
*** EDITS BELOW ARE IN VERSION 10 RELEASE ***
370 FIX RETURN FATAL ERROR IN EXPRESSION - EXPGEN -
367 FIX THE MISSING OF LISTING OF ".", "," OR ";" THAT IS IN A
LIBARY - EXPGEN -
366 FIX DISPLAY OF DISPLAY-7 ITEMS SO NO EXTRA <CR-LF> IS DONE
- IOGEN -
365 FIX MULTIPLE CALLS TO SETOPN FOR TALLY - CMNGEN -
364 DBMS FIX - MAKE ONLY ONE CALL TO DBGETF BECAUSE
ONLY ONE INVOKE STATEMENT ALLOWED. - GETITM -
363 FIX RECOVERY IF TOO MANY LEVELS OF SUBSCRIPTING - COBOLD -
362 RECOVER FROM ERROR IN SEARCH STATEMENT - COBOLD -
361 NOT IN V10.
360 FIX EDIT 320 FOR SIMPLE COMPUTE X = -A OR (-A) - IMPURE,
EXPGEN -
357 FIX RECOVERY IF RECORD NAME IS NOT DEFINED IN READ
INTO STATEMENTS - IOGEN -
356 ALLOW LOWER CASE LETTERS FOR VALUE OF ID - COBOLC -
355 ALLOW FOR 1 BUFFER, ALSO CHECK FOR MAC OF 62 ALTERNATE
AREAS - COBOLB, DIAGS -
354 FIX TO HANDLE SOURCE CHAR COUNTER - GETITM -
353 IN DBMS COMPILER AN UNDEFINED IF VARIABLE WAS NOT
FLAGGED IN THE RIGHT PLACE - COBOLD
352 FIX "I/O TO UNASSIGNED CHANNEL" IF A COPY STATEMENT IS THE
VERY LAST ONE IN THE SOURCE FILE - GETITM
351 FIX RANDOM CHARACTERS IN HEADING OF LISTING FILE - COBOLF -
350 FOR SET OR COMPUTE STATEMENST WHICH ARE KNOWN BY THE COMPILER
TO GIVE A ZERO RESULT BE SURE ZERO FLAG IS TURNED OFF -
MATGEN, EXPGEN
347 MAKE SURE THAT A DUMPED FILE HAS A DIRECTORY NAME - COBOLK
346 FIX BAD TAG LOCATION E.G. ADDRESSES IN FILE TABLES - XFRGEN
345 FIX NO ADVANCING OPTION FOR DISPLAY OF SUBSCRIPTED DISPLAY-7
ITEMS - IOGEN
344 FIX "?DSK IS NOT THE DSK" PROBLEM IF A COBOL COMMAND FILE
IS MISSING - COBOLA
343 FIX RECOVERY IF AN "RD" STATEMENT IS IMPROPERLY TERMINATED - CTREE
342 REPORT WRITER FIXES:
1. CHECK TO SEE THAT USER HAS A "LINE" CLAUSE IN A REPORT GROUP.
2. FOR "LINE NEXT PAGE" CLAUSE GOES TO LINE BASED ON REPORT
LINE TYPE AND LINE SPECIFICATION IN PAGE LIMIT CLAUSE.
- DIAGS, IMPURE, RPWGEN
341 FIX MOVES OF SUBSCRIPTED OR LINKAGE SECTION ITEMS > 2047
CHARACTERS - MOVGEN (NO EDIT NUMBERS IN IT)
340 FIX STRING/UNSTRING STATEMENTS IN A SUBPROGRAM AND FOLLOWS
AN ENTRY STATEMENT - IMPURE, STRGEN
(THIS EDIT NOT IN V10, STRING/UNSTRING WAS REWRITTEN)
337 FIX CTREE TO MAKE THE WORD 'USAGE' BE OPTIONAL IN FRONT OF
THE WORD 'DATABASE-KEY' - CTREE.
336 IN COBOLD AT PA283, FIX RECORD NAMES LONGER THAN 12 CHARS
CAUSING BAD ARG BLOCK FOR FIND5 DBMS STATEMENT WITHOUT THE
OPTIONAL WORD 'RECORD' - COBOLD.
335 FIX RECOVERY IF REPORT ID IS NOT LEGAL - IMPURE, RPWGEN,
COBOLC, CTREE, CLEANC
334 FIX UNSTRING STATEMENTS TO ALLOW POINTER AND TALLYING ID
TO BE > 9 DIGITS - STRGEN (THIS EDIT NOT IN V10,
STRING/UNSTRING WAS REWRITTEN)
333 FIX ADDITIVE FOR TALLY SUBSCRIPT E.G. MOVE A TO X(TALLY+1) -
COBOLD, CMNGEN
*** DEVELOPMENT EDITS ***
DBT 17-JAN-75 SEARCH INTERM.UNV - COBOL AND LIBOL SWITCH
DEFAULT RESOLUTION UNIVERSAL
ADD FUUOIC FLAG TO SW FOR CODE GENERATION PHASE
DBT 1-DEC-74 REDEFINE REGO TO BE 400000+.JBHSA THE REAL
STARTING ADDRESS
ACK 12-JAN-75 ADD CAPABILITY TO HAVE DIAGS UP TO 1023.
SSC 6-FEB-75 MAKE CHANGES FOR THE NEW DBDML MODULE
(1) 3 SIMUL CHANNELS
(2) NO RECORD TABLE
GPS 23-DEC-74 INSERT NEW KEYWORDS FOR SIMULTANEOUS UPDATE
DBT 16-APR-75 FIX IT SO THAT MCS AND DBMS TABLES WORK WITH
ANY VARIATION OF SWITCH SETTINGS
SSC 29-JUL-76 TO ADD KEYWORDS TO COBOL MUST TOUCH HERE AND COBOLA
ADD JOURNAL
SSC 28-SEP-77 ADD VIA. & TRANS. TO SUPPORT DBMS-V6 ENHANCEMENTS
*** VERSION 6A RELEASE ***
332 FIX COBOLE TO CORRECTLY BUILD ARG BLOCK FOR DBMS USE
STATEMENT
331 CHECK FOR SCHEMA SECTION BEFORE FILE SECTION OR AFTER ANY
OTHER SECTION. IF IT IS OUTPUT ERROR MSG 470
330 FIX CODE TO SKIP OVER DUMMY ARGS IN A CALLED SUBPROGRAM.
ROUTINES- CMNGEN,IPCGEN
ALSO SKIP ARGUMENT CODE GENERATION IF A FATAL ERROR IN THE PROGRAM
327 FIX "GO TO" IN AN UNNAMED PARAGRAPH AFTER THE DECLARATIVES.
ROUTINE COBOLD.
326 MAKE ERROR OR WARNING RELATING TO A "SUM" CONTROL FOOTING
LINE POINT TO THE CORRECT SOURCE LINE. ROUTINE RPWGEN
325 RECOVER IN A DIVIDE STATEMENT IF THE "GIVING" ITEM IS UNDEFINED.
ROUTINE MATGEN.
324 JUMP AROUND DECLARATVES IN AN ENTRY OF A SUBPROGRAM
ENTERED AT PROCEDURE DIVISION. ROUTINES COBOLD,IPCGEN,IMPURE
323 ALLOW "ALL" AS A DEVICE IN A "SELECT" STATEMENT. ROUTINES GETITM, BTREE
322 FIX "IF" CONDITIONAL SO THAT ".. COMPILER ERROR" MESSAGE
DOES NOT OCCUR BECAUSE OF AN ERROR IN
THE STATEMENT BEFORE. ROUTINE- IFGEN
321 FIX RECOVERY WHEN A DATE-NAME IS NOT PROPERLY QUALIFIED IN AN EXPRESSION
OF AN "IF" OR "COMPUTE" STATEMENT- ROUTINE EXPGEN
320 FIX COMPUTE C = - (EXPR) ; ROUTINE EXPGEN
317 FIX "ADD ... GIVING X1,X2,.." WHERE ANY OF GIVING DATA MAY BE
EDITED- ROUTINE- MATGEN
316 SSC CLEANUP THE COBOL/DBMS INTERFACE IN A NUMBER OF WAYS:
(1) REDO DBDML USING DBCS-LIKE LOGIC RATHER THAN SEQUENTIAL ACCESS
INVOLVED ADDING ROUTINES DMLVOK,DMLVIO,DMLIO,DMLERR,GENCOD
AND UNIVERSALS GENDCL,DBSDCL,CMLSYM
ALSO IT MAKES USER OF STRLIB WITH (HIGH==0)
IMPORTANT: THESE ROUTINES ARE ALSO USED BY FORDML
THE CONTROL IS PROVIDED BY CMLSYM WHICH SETS $COB==1
FOR FORDML THERE IS AN ANALOGOUS FILE FMLSYM.
(2) ADD ACCESS STATEMENT--(SIMILAR TO INVOKE).
CHANGED CTREE,COBOLC, AND COBOLA AND P
(3) ALLOW 30-CHAR SUB-SCHEMA NAMES--CHANGED COBOLC
(4) MODIFIED SYNTAX TO ALLOW ONE INVOKE/ACCESS PER RUN-UNIT AND NO PPN'S
315 REPORT WRITER FIXES
314 FIX RECOVERY FROM AN UNDEFINED VARIABLE IN A COMPUTE STATEMENT
313 FIX ERROR MESSAGE FOR UNDEFINED VARIABLE THAT OCCURS
IMMEDIATELY AFTER AN "IF". (PROBLEM OCCURS ONLY IN A DBMS COMPILER)
312 FIX SO THAT ERROR 410 PRINTOUT WORKS FOR ALL ASSEMBLIES OF THE COMPILER.
FIX ERROR RECOVERY WHEN AN ALTERABLE PARAGRAPH
HAS EXECUTABLE STATEMENTS FOLLOWING THE GO TO.
311 FIX ERROR HANDLING OF ATTMEPTED USE OF STRING AS A PARAGRAPH NAME
310 FIX ERROR CHECKING OF PIC CLAUSES.
307 FIX CANCEL STATMENT SO THAT "BAD GENFIL " COMPILER MSG DOES NOT OCCUR.
306 FIX SUBSCIPT OF COMP AND INDEX ITEM IN AN ASCII RECORD
305 FIX LINE SPACING PROBLEM IN REPORT WRITER.
REQIRES LIBOL EDIT 404
304 FIX ILL MEM REF IN COMPILER DUMP IN COBOLK
303 FIX MOVES OF NUMERIC LITERALS
302 FIX DATE 75 PROBLEM OF SOURCE FILE DATE IN LISTING
301 FIX MOVE OF SINGLE-WORD LITERAL TO 2-WORD SUBSCRIPTED COMP ITEM
300 CHECK FOR RECORD KEY/SYMBOLIC KEY IN LINKAGE SECTION-FLAG AS ERROR IF SO
277 FIX TO HANDLE LC LETTERS FOR OBJECT/ SOURCE COMPUTER STATEMENTS
276 CHECK THAT DATA NAME IS A RECORD LEVEL
FOR WRITE/REWRITE/DELETE/RELEASE STATMENTS
275 RECOVER FROM A LIBARY READIN PROPERLY
274 MAKE CMNGEN IN COBOLE RECOVER CORRECTLY IF A LITERAL
SUBSCRIPT IS TOO LARGE
273 FIX BAD LITAB CODE CAUSED BY DBMS IF STATEMENT PROCESSING
FIXED IN COBOLD(PA265A) AND IFGEN(IFDBGN). /DPL
272 REMOVE LINPAG DEFINITION FROM COBOLK.MAC
271 FIX PHASE D CATASTROPHIE IF NO PARA NAME IMMEDIATELY AFTER
SECTION NAME
270 PREVENT EXTRA ERROR MESSAGE IF VALUE OF IS UNDEFINED
267 FIX ILL MEM REF IN NAMTAB TABLE SEARCH
266 SHUT OFF USERS CONTROL O EFFECT FOR ERROR SUMMARY LINE AND
COMMAND "*" PROMPT
265 ALLOW FIGURATIVE CONSTANT "ZERO" IN "BY" AND "FROM" PARM
IN "PERFORM" STATEMENT
264 FIX ILL MEM REF IN PHASE C IF ACTUAL KEY FOR RANDOM FILE IS UNDEFINED
263 MAKE LISTING RECOGNIZE TALLY FOR DIAGNOSTIC MESSAGES
262 FIX HANDLING OF UNDEFINED SUBSCRIPT TO AVOID COMPILER-TYPE
ERROR MESSAGES.
261 FIX ILL MEM REF FOR NAMTAB TABLE SEARCHES- FOR ENTRY STATEMENTS USUALLY
260 FIX 01 DATAN ..
257 FIX RELEASE AND RETURN SO THAT PARMS ARE ONLY IN SORT FILE
256 REVERSE ORDER OF LOOKUP FOR SOURCE AND LIBARY FILES
SO THAT .CBL (.LIB) IS LOOKED FOR FIRST
255 FIX TO ALWAYS ACCEPT LC LETTERS IN COMMAND STRING
254 PREVENT INDIRECT BIT BEING TURNED FOR COMP USING ARG AT WRONG TIME
253 FIXES A RENAMES B.
252 FIXES POSSIBLE PUSHDOWN LIST PROBLEM OF EDIT 122
251 RECOVERS PROPERLY IN PHASE E IF A SUBSCIPT IS SUBSCRIPTED
250 FIX SO THAT TALLY CAN BE USED FOR ARITH AND SET OPERATIONS
AND ALSO ALLOWS TALLY TO A USED AS A SUBSCRIPT.
247 FLAGS ATTEMPT TO USE SUBSCIPTED ITEMS IN REPORT WRITER
246 FIXES MULTIPLE CALLS TO SUBPROGRAMS OF FORM CALL "SUB"
COBOLD.
245 FIXES READ INTO SO INTO WORKS IF GENERATE STMT PART
OF AT END OR INVALID PATH.
244 FIXES TO DETECT AS AN ERROR AN ELSE AFTER A PERIOD
243 FIXES OCCURS 0 TO N. ALLOWS THE 0.
242 ALLOWS SUBSCRIPTING OF ITEMS QUALIFIED BY FILE NAME
241 FIXES REPORTING OF GROUP INDICATE SOURCE ITEMS; DOES NOT
FIX GI VALUE ITEMS (COMPLEX). IN RPWGEN.
240 FIXES SEARCH ID WITH QUALIFIER CAUSE CRASH IN PHASE E
COBOLD
237 JEF COBOLC .MAC, DIAGS.MAC
IDENTIFIERS GIVEN IN THE CONTROL CLAUSE MUST BE
DEFINED ONLY IN THE FILE AND WORKING STORAGE SECTIONS.
*** THOSE BELOW WILL BE IN RELEASE VERSION 6 ***
222 ACK IN COBOLD.MAC @ PA1., PA47., PA96., PA98., PA99.,
PA100., PA200. AND IN IMPURE.MAC @ THE DEFINITION OF
VARBLK.
FIX THE NULL TABLE LINK PROBLEM FOR THE CORRESPONDING OPTION
AND PERFORM VARYING'S.
221 ACK IN DTREE.MAC @ PD1035
ALLOW SUBSCRIPTED VARYING ON SEARCHES.
220 ACK IN COBOLC.MAC @ DA110A+3 AND DIAGS.MAC ADD ERROR 151.
GENERATE AN ERROR IF A MINOR KEY IS THE SUBJECT OF AN OCCURS.
217 ACK IN IFGEN.MAC @ IFCG20+13
FIX FATAL DIAG PRODUCED IN A VALID PROGRAM.
216 ACK IN CTREE.MAC @ $ DD205G
PREVENT SKIPPING EVERYTHING IF AN RD IS TERMINATED WITH A DOUBLE
PERIOD.
215 JEF COBOLC/DIAGS ERROR IF HEADING < FIRST-DETAIL
< LAST-DETAIL < FOOTING.
214 COBOLD - CHANGE FATAL TO WARNING IF MORE THAN 6 CHARS IN SUBPROGRAM NAME
213 DISALLOW COPY IN LIBARY; FIX LITERAL TOO MANY CHARS MSG
212 "CANCEL IS NOT IMPLEMENTED YET..."
202 REPORT WRITER FIX OF GENERATE STATEMENT CAUSING RUN TIME
ILLEGAL UUO, RPWGEN
\
;;; *** END OF COBOL EDIT HISTORY ***
SUBTTL LIBOL EDIT HISTORY
COMMENT \
;.COMPONENT LIBOL
;.VERSION 12B
;.AUTOPATCH 4
;;
;.EDIT 1000 SMU of relative file fails, falls into ISAM code
; DMN/JM,10-AUG-81,SPR:NONE
; A:SRC LSU
;
;.EDIT 1001 SMU of ISAM sometimes fails if block got split
; HAM/JM,11-AUG-81,SPR:10-31570
; A:SRC CBLIO
;
;.EDIT 1002 Funct routine CBC fails if CORPT goes to 0 when overlays in use
; DMN/JM,11-AUG-81,SPR:20-16842
; A:SRC COBFUN
;
;.EDIT 1003 If file closed w/ DGLGTE doesn't exist, next file to be closed is deleted
; DMN/JM,11-AUG-81,SPR:10-31571
; A:SRC CBLIO
;
;.EDIT 1004 When trunc of COMP-1 field should produce 0, get weird neg number
; JSM,05-OCT-81,SPR:10-31688
; A:SRC FIX
;
;.EDIT 1005 CLOSE w/ DELETE fails on TOPS-10 if LSU w/ Monitor 7.01
; JEH,05-OCT-81,SPR:10-31726
; A:SRC CBLIO
;
;.EDIT 1006 Unable to REWRITE a non-null EBCDIC record
; WTK/JM,08-OCT-81,SPR:10-31691
; A:SRC CBLIO
;
;.EDIT 1007 Read unconditional code for Rel 5 doesn't work
; DMN,04-OCT-81,SPR:NONE
; A:SRC CBLIO
;
;.EDIT 1010 LOOKUP errors using ENTER arg block to determine error msg to print
; JEH/JM,13-OCT-81,SPR:10-31722
; A:SRC CBLIO
;
;.EDIT 1011 Fixes 1005 CLOSE w/ DELETE after non-SMU open, output doesn't delete file
; JM,22-OCT-81,SPR:31742
; A:SRC CBLIO
;
;.EDIT 1012 NON-BIS display of comp field with low-values is wrong
; JEH,13-JAN-82,SPR:10-31765
; A:SRC PD
;
;.EDIT 1013 Sequential relative ASCII file; null record in block
;; causes rest of block to be skipped.
; WTK,20-JAN-82,SPR:NONE
; A:SRC CBLIO
;
;.ENDA
;.AUTOPATCH 5
;
;.EDIT 1014 Append extra <CR> to magtape files - match FCTC implementation
; LEM,16-FEB-82,SPR:10-31971
; A:SRC CBLIO
;.EDIT 1015 allow COMPT. UUO to return correct file statues errnum
; LEM,02-MAR-82,SPR:20-17305
; A:SRC CBLIO
;
;.EDIT 1016 Test for ISAM files when using CHECKPOINT EVERY n RECORDS
; RJD,17-MAR-82,SPR:10-32257
; A:SRC CBLIO
;
;.EDIT 1017 RESET ERRNUM when retrying to OPEN a busy RMS file
; LEM,08-APR-82,SPR:20-17329
; A:SRC LBLERR
;
;.EDIT 1020 Test for use of CHECKPOINT with RMS files opened I-O
; RJD,21-APR-82,SPR:20-17559
; A:SRC RMSIO
;
;.EDIT 1021 make READ NEXT return correct record as ANSI standard states
; LEM,27-APR-82,SPR:20-17271
; A:SRC CBLIO
;
;.EDIT 1022 Deallocate memory if OPEN fails with RMS files
; RJD,29-APR-82,SPR:20-17312
; A:SRC RMSIO
;
;.EDIT 1023 Make pointer go to the next record after a REWRITE
; RLF, 07-MAY-82,SPR:20-17667
; A:SRC CBLIO
;
;.EDIT 1024 Make READ check for end of record by count rather than character
; RJD,14-MAY-82,SPR:10-32428
; A:SRC CBLIO
;
;.EDIT 1025 Test CORPT. as well as HLOVL. to decide whether core
;; can be freed
; JEH, 25-MAY-82,SPR:10-32197
; A:SRC COBFUN
;
;.EDIT 1026 Reset buffer pointer before append FILOP.
; JEH, 01-JUN-82,SPR:10-32567
; A:SRC CBLIO
;
;.EDIT 1027 Zero buffer location so RETAIN NEXT of L-V
;; key get right block number
; JEH, 07-JUN-82,SPR:20-17328
; A:SRC CBLIO
;
;.EDIT 1030 Clear the SFD area when opening a SMU file
;; on an ersatz device from a SFD
; RJD,08-JUN-82,SPR:10-32398
; A:SRC CBLIO
;
;.EDIT 1031 Don't decrement byte/record count when finding
;; <CR><LF> in record
; LEM,08-JUN-82,SPR:10-32463
; A:SRC CBLIO
;
;.EDIT 1032 STRING/UNSTRING - the destination character
;; count is off by one
; LEM,28-JUN-82,SPR:20-17802
; A:SRC NSTRNG
;
;.EDIT 1033 Do close abort on labeled mag tapes during
;; fatal error processing
; SMI, 06-JUL-82,SPR:20-17970
; A:SRC CBLIO
;
;.EDIT 1034 Zero out unused data block area after delete
; JEH, 15-JUL-82,SPR:20-17925
; A:SRC CBLIO
;
;.EDIT 1035 Make READ NEXT after DELETE on sixbit relative
;; not skipping record
; RLF, 20-JUL-82,SPR:10-32758
; A:SRC CBLIO
;
;.EDIT 1036 Zero out right half of UOUT. after checkpointing
; RLF, 21-JUL-82,SPR:20-18032
; A:SRC CBLIO
;
;.EDIT 1037 Change error message to "for OUTPUT only".
; RLF, 26-JUL-82,SPR:20-18011
; A:SRC CBLIO
;
;.EDIT 1040 Fix output byte pointer for sixbit keys
; JEH, 05-AUG-82,SPR:10-32807
; A:SRC KEY
;
;.EDIT 1041 Clear flags after multiply for SIZE ERROR
; RLF, 20-AUG-82,SPR:10-32941
; A:SRC ACCEPT
;
;.EDIT 1042 Fix if error on open of sequential file
; SMI, 30-AUG-82,SPR:20-18176
; A:SRC CBLIO
;
;.EDIT 1043 Do not ignore end-of-file errors
; SMI, 13-SEP-82,SPR:20-18078
; A:SRC CBLIO
;
;.EDIT 1044 Space-fill record area at file open
; RLF, 10-OCT-82,SPR:20-18154
; A:SRC RMSIO
;
;.EDIT 1045 Use $MESSAGE in RMSGET as first RMS-20 call to
;; init RMS-20 global data symbols
; JSM, 14-OCT-82,SPR:NONE
; A:SRC RMSIO
;
;.EDIT 1046 Fix RMS CHECKPOINTING for DELETE and REWRITE
; SMI, 14-OCT-82,SPR:10-33144
; A:SRC RMSIO
;
;
;.ENDA
;.AUTOPATCH 6
;
;.EDIT 1047 Dequeue locked record before job is aborted
; RLF, 21-DEC-82,SPR:20-18620
; A:SRC LSU
;
;.EDIT 1050 Set D.LBN for relative files accessed randomly
; JEH, 25-JAN-83,SPR:20-18745
; A:SRC CBLIO
;
;.EDIT 1051 Fix REWRITE after READ NEXT for relative file
; RLF, 10-FEB-83,SPR:10-33536
; A:SRC LSU
;
;.EDIT 1052 Extend blocked sixbit files correctly
; JEH, 10-FEB-83,SPR:20-18789
; A:SRC CBLIO
;
;.EDIT 1053 Gives correct error message
; RLF, 15-FEB-83,SPR:20-18561
; A:SRC LBLERR
;
;.EDIT 1054 Makes Declarative work with SMU open
; JSM, 16-FEB-83,SPR:10-33490
; A:SRC LSU,CBLIO
;
;.EDIT 1055 Extend blocked sixbit file correctly
; JEH, 24-FEB-83,SPR:10-33603
; A:SRC CBLIO
;
;.EDIT 1056 Prevent DBMS code from being loaded with non DBMS progs
; EGM, 9-Mar-83,SPR:20-18340
; A:SRC COMUNI.MAC,RESOLV.MAC
; A:MSC LIBOL.CTL
;
;.EDIT 1057 Correction to edit 1015; set correct value for error number
; RLF, 16-MAR-83,SPR:20-18963
; A:SRC CBLIO
;
;.EDIT 1060 Fix UNSTRING to handle alpha source with leading
;; spaces going into numeric fields
; JEH, 22-MAR-83,SPR:20-18930
; A:SRC NSTRNG
;
;.EDIT 1061 Fix bytesize on open of MAGTAPE with
;; RECORDING MODE SIXBIT
; SMI, 31-MAR-83,SPR:NONE
; A:SRC CBLIO
;
;.EDIT 1062 If programs blocking factor doesn't equal index
;; file's factor, give run-time failure
; JEH, 07-APR-83,SPR:10-33712
; A:SRC CBLIO
;
;.EDIT 1063 Give warning for relative files under SMU if
;; FDB doesn't have max number
; JSM, 08-APR-83,SPR:20-18375
; A:SRC CBLIO
;
;.EDIT 1064 Get checkpointing of files inside implicit FREE
; JSM, 08-APR-83,SPR:20-18375
; A:SRC CBLIO
;
;.ENDA
;
;.AUTOPATCH 7
;
;.EDIT 1065 Make FREE RECORD KEY work for SMU after RETAIN NEXT
; RLF/JM, 21-APR-83,SPR:10-33657
; A:SRC CBLIO,LSU
;
;.EDIT 1066 Add GJ.BLK, and GJ.ATR for long form GTJFN
; SMI, 1-JUN-83,SPR:20-18985
; A:SRC COMUNI,CBLIO
;
;.EDIT 1067 Correction to edit 1065
; RLF, 6-JUN-83,SPR:10-33657
; A:SRC LSU
;
;.EDIT 1070 Chg NUMS.7 table for NUMSTD=0 OTS' so numeric
;; digits will be converted
; JEH, 16-JUN-83,SPR:10-33623
; A:SRC NUBSTB
;
;.EDIT 1071 Zero out FS.EN before assembling error nbr
;; for file status 2
; JSM, 16-JUN-83,SPR:20-19298
; A:SRC LBLERR
;
;.EDIT 1072 Don't turn on sign bit in word 2 if result
;; zero
; JEH, 28-JUN-83,SPR:20-19334
; A:SRC FIX
;
;.EDIT 1073 Add call to $ERASE if RMS file closed with delete
; JEH, 18-JUL-83,SPR:20-19385
;
; A:SRC RMSIO
;.EDIT 1074 Fix twos complement routine in ACEPT. routine
; JEH, 19-AUG-83,SPR:10-34087
; A:SRC ACCEPT
;
;.EDIT 1075 Prevent multi-level ISAM file from skipping records
;; when using START, READ NEXT sequence
; JBB, 22-AUG-83,SPR:10-34124
; A:SRC CBLIO
;
;.EDIT 1076 Add error handling routine in COBST for failure on
;; GET of OTS
; JEH, 22-AUG-83,SPR:20-19323
; A:SRC COBST
;
;.EDIT 1077 Update pointers for current record, next record
;; last record if DYNAMIC access and REWRITE
; JEH, 24-OCT-83,SPR:10-34218
; A:SRC CBLIO
;
;.EDIT 1100 Do checkpointing write for SMU records.(10-ONLY)
; JM/RF, 25-OCT-83,SPR:10-34216
; A:SRC CBLIO
;
;.EDIT 1101 Fix LIBOL.CTL to properly save LIBO12.
; JBB,08-NOV-83,SPR:20-19586
; A:MSC LIBOL.CTL
;
;.EDIT 1102 Make edit 1007 conditional on monitor level
; JEH,09-NOV-83,SPR:20-19696
; A:SRC CBLIO,COMUNI
;
;.EDIT 1103 On Fake Read for SMU Retain on TOPS-10, check for
;; EOF Return and don't cause program failure if so.
; JSM,09-NOV-83,SPR:NONE
; A:SRC CBLIO
;
;.EDIT 1104 Remove warning message to run seteof. set file
;; to maximum allowably byte count instead.
; JBB,20-DEC-83,SPR:20-19743
; A:SRC CBLIO
;
;.EDIT 1105 Put a '?' in front of warning to make it FATAL
; JBB,21-DEC-83,SPR:20-19843
; A:SRC CBLIO
;
;.EDIT 1106 Move the definition of RMS$10 from LIBSHR to COMUNI
; RLF,10-JAN-84,SPR:10-34337
; A:SRC COMUNI,LIBSHR
;
;.ENDA
;.AUTOPATCH 8
;
;.EDIT 1107 (For non-BIS) In routine ADD.21, don't clear overflow
;; flags, just the carry flag which the routine tests on
; JEH,16-JAN-84,spr:10-34343
; A:SRC DPADD
;
;.EDIT 1110 Location of SNRBP. is zeroed out and caused error if
;; SMU is used with segmentation.
; RLF,14-FEB-84,SPR:10-34470
; A:SRC LSU
;
;.EDIT 1111 Delete edit 1106.
; RLF,13-MAR-84,SPR:NONE
; A:SRC COMUNI,LIBSHR
;
;.EDIT 1112 Don't put a <CR> at end of STD-ASCII mag tape file
; JEH,19-MAR-84,SPR:NONE
; A:SRC CBLIO
;
;
;.EDIT 1113 Use procedure with filename-1 OPEN option.
; RLF,22-MAR-84,SPR:20-20027
; A:SRC CBLIO
;
;.EDIT 1114 Eliminate extra <CRLF> on Rewrite of ASCII Record
; JSM,02-APR-84,SPR:10-34590
; A:SRC CBLIO
;
;.EDIT 1115 TOPS-10 7.02 system labeled tapes, fatal runtime
;; error message - DV.DIR bit now set
; JEH,09-APR-84,SPR:NONE
; A:SRC CBLIO
;.ENDA
;.AUTOPATCH 9
;
;.EDIT 1116 Reset file status before re-trying file open
; JEH,13-APR-84,SPR:20-20071
; A:SRC RMSIO,COBVER
;
;;.EDIT 1117 Not applicable to V12B
;; JBB,24-APR-84,QAR:302105
;; A:SRC RMSIO
;;
;;.EDIT 1120 Not applicable to V12B
;; JBB,26-APR-84,QAR:302113
;; A:SRC CBLIO
;
;;.EDIT 1121 Not applicable to V12b
;; JEH:10-MAY-84,QAR:302112
;; A:SRC CBLIO
;
;;.EDIT 1122 Not applicable to V12B
;
;;.EDIT 1123 Not applicable to V12B
;
;;.EDIT 1124 Not applicable to V12B
;
;;.EDIT 1125 Not applicable to V12B
;
;.EDIT 1126 Define feature test switch and code to print ascii
;; text files with blank lines
; JEH,22-MAY-84,SPR:20-20056
; A:SRC INTERM,LBLPRM,CBLIO
;
;.EDIT 1127 Remove obsoleted code from COBST.
; KWS,11-Jun-84,SPR:none
; A:SRC COBST
;
;.ENDA
;.AUTOPATCH 10
;
;.EDIT 1130 Insert conversion factor in SEQIO read with
;; external format of ASCII and internal format of
;; SIXBIT.
; KWS,11-SEP-84,SPR:10-34846
; A:SRC COBVER,CBLIO
;
;;.EDIT 1131 Not applicable to 12B.
;
;;.EDIT 1132 Not applicable to 12B.
;
;.ENDA
;.AUTOPATCH 11
;;.EDIT 1133 Not applicable to 12B.
;
;.EDIT 1134 LSU - Reset SU.FR flag if open fails
; KWS,22-FEB-85,SPR:10-34935
; A:SRC LSU
;
;;.EDIT 1135 Not applicable to 12B.
;
;
;.EDIT 1136 Change error message for DEQ without ENQ.
; KWS,19-MAR-85,SPR:20-20622
; A:SRC LSU
;
;.EDIT 1137 Fix overlay lookups
; KWS,28-MAR-85,SPR:20-20443
; A:SRC COBST
;
;;.EDIT 1140 Not applicable to 12B.
;
;;.EDIT 1141 Not applicable to 12B.
;
;.ENDA
;.ENDV
;.ENDR
*** EDITS BELOW WILL BE IN COBOL-68/74 VERSION 12B RELEASE ***
674 14-May-81 WTK CBLIO
*** NOT REQUIRED IN 12B ***
673 1-May-81 LEM CBLIO
Display all non-trailing DISPLAY-7 and DISPLAY-6 blanks.
****NOTE**** Delete 651 and 664.
672 10-Apr-81 WTK CBLIO
Clear up problems with data loss after OPEN EXTEND
to non-existant file
****NOTE**** deletes edits 653 and 655
671 5-Mar-81 JSM CBLIO
Already in 12B.
670 3-Mar-81 WTK CBLIO
Fix problems with RELATIVE file READs and WRITEs
667 3-Mar-81 DMN CBLIO
On TOPS-20 open read-only disk files via COMPT. UUO so that they can coexist with SMU files.
***NOTE*** This code has not been tested and is under a feature test switch which is off.
666 24-Feb-81 JEH CBLIO
Reset UIN. after random write results in a duplicate record.
665 18-Feb-81 JEH CBLIO
ASCII records were losing cr-lf when the buffer was zeroed for last WRITE before CLOSE.
664 12-Feb-81 JSM CBLIO
Display all non-trailing DISPLAY-6 blanks on TTY:.
663 *** Not required in 12B. ***
662 11-Dec-80 LEM CBLIO
OPEN EXTEND followed by SMU creates wrong data mode when performing I/O on EXTEND file.
661 9-Dec-80 JSM CBLIO
ISAM SEQ READ gets INVALID KEY after many DELETES at beginning of file.
660 5-Dec-80 WTK CBLIO
Add zone at end of pushdown list for PDLOV recovery.
657 24-Nov-80 GCS CBLIO
Zero the unused area of the dump mode buffer for blocked ASCII records.
656 21-Nov-80 LEM CBLIO
Change FILOP. OPEN of EXTEND & I-O/SMU not to check file protection if [1,2] or JACCT.
655 20-Nov-80 WTK CBLIO
Modify WRTCH subroutine to be compatible with edit 653.
654 1-Nov-80 WTK LSU
Supplement ENQ/DEQ error return message.
653 13-Oct-80 WTK CBLIO
Fix OPEN EXTEND for new files (drops the first character).
652 14-Oct-80 DMN COBFUN
Make CBC routine work with SORT 4C when all buffers have been returned.
651 9-Oct-80 LEM CBLIO
Display all non-trailing blanks on TTY if line is long.
650 3-Oct-80 HAM CBLIO LSU
Make CNTRY symbol INTERNAL to CBLIO and EXTERNAL to LSU.
647 29-SEP-80 DMN FIX
DON'T TURN ON LOW-WORD SIGN BIT IF RESULT IS ZERO.
646 25-AUG-80 DAW INSPEC
INSPECT REPLACING 1-CHAR ITEM DIDN'T WORK
645 31-JUL-80 HAM CBLIO
MAKE TX02 PROPER CONTROLLER FOR 1600 BPI TAPE
644 31-JUL-80 HAM CBLIO
CLEAR PPN FIELD OF LKP/ENTR BLOCK AFTER LOOKUP FOR SMU TOPS10 OPEN
643 30-JUL-80 HAM LSU
MAKE PROPER LONG TERM LOCK BITS AN EDIT FOR ENQDEQ
642 29-JUL-80 DAW CBLIO
.JBFF GETS MODIFIED WHEN TTY FILES ARE OPENED FOR INPUT
641 28-JUL-80 HAM CBLIO
FIX USETI/O FOR BLK 777770 through 777777 TO USE FILOP. USETI/O
640 28-JUL-80 HAM CBLIO
FIX ASCII TO EBCDIC READ TO PAD WITH EBCDIC BLANKS
637 5-JUN-80 JEH CBLIO
2-WORD SIXBIT COMP KEY GETS KEY PTR DIFFERS ERROR (12A ONLY)
636 29-MAY-80 JEH CBLIO
FIX PROPER ERROR CODE FOR ERROR RETURN FROM FILOP..EXECUTION
635 3-JUN-80 DMN COMUNI LCM10 LCMIPC
INCORPORATE MCS-10 FIXES FROM B.C.TEL.
634 LEH CBLIO
NOT A REAL EDIT (JUST EDIT 607 REPUBLISHED WITH MORE CONTEXT).
633 19-MAY-80 JEH CBLIO
ADD TO EDIT 622 (VERSION 12A ONLY)
632 19-MAY-80 JEH CBLIO
CLOSE WITH NO REWIND HANGS - LOOPS THRU FILE TABLE
631 16-MAY-80 DMN NUM
FIX IF NUMERIC TEST OF EVEN DIGIT COMP-3 ITEM.
630 14-MAY-80 DAW GD
FIX CONVERSION OF NUMBERS WITH LEADING SIGN.
627 12-MAY-80 JEH CBLIO
CLEAR STACK AFTER FILOP FOR OPEN EXTEND FAILS (12A only).
626 08-MAY-80 JEH CBLIO
SKIP DUMMY OUTPUT FOR OPEN EXTEND.
625 17-APR-80 JEH CBLIO
MAKE DIFFERENT INDEX POINTERS FATAL ERROR (12A only).
624 1-APR-80 DMN COMUNI CMP
MAKE ASCII & EBCDIC COLLATING SEQUENCES WORK CORRECTLY IN COBOL-74.
NEEDS COBOL EDIT 1004.
623 24-MAR-80 DMN COMUNI
DON'T INITIALIZE DBSTP$ WHEN DBMS IS OFF.
622 13-MAR-80 HAM CBLIO
MAKE OPEN FOR I/O WORK CORRECTLY.
621 29-FEB-80 DAW COMUNI
MAKE MROUT. AN ENTRY POINT, SO LSTATS WORKS WITH SORT ON THE -10.
620 25-FEB-80 LEM LIBOL.CTL
INSERT LABEL NEXT:: FOR ERR ROUTINE WHEN INVOKING GLOB FOR COBOL-74 OTS.
617 12-FEB-80 HAM CBLIO
MAKE FIX FOR IDX KEY POINTER CHECK INTO OFFICIAL EDIT (TO CORRECT
EDIT 574)
616 11-FEB-80 DAW CBLIO
ALLOW DISPLAY-9 VALUE OF ID (CODE WAS THERE, BUT NEVER WORKED).
615 7-FEB-80 DMN SIZE1 SIZ23
CHECK OVERFLOW FLAGS FOR "ON SIZE ERROR".
NEEDS COBOL EDIT 767.
614 [Not required in 12B, edit 605 for version 12].
613 10-JAN-80 HAM CBLIO
FIX RETURN FROM USE PROCEDURE (IGNORING ERROR) FOR SIXBIT, V FORMAT
LENGTH FIELD ERRORS
612 4-JAN-80 CLRH CBLIO
FIX DATE-WRITTEN FOR SIMULTANEOUS UPDATE FILES
611 JAN-80 CLRH CBLIO
(NOT REQUIRED FOR 12A, EDIT TO 12 ONLY)
610 27-NOV-79 HAM CBLIO (RRDIV1)
FIX SEQ READ INVALID KEY RETURN WITH EDIT 605
607 14-NOV-79 DC CBLIO
FIX EBCDIC NULL SCAN ACROSS BUFFERS
606 21-SEP-79 DMN DPDIV
FIX 4-WORD DIVIDE WHEN SIGN IS DIFFERENT
605 12-SEPT-79 HAM CBLIO
FIX ISAM START, BOTH RANDOM AMD SEQUENTIAL
*** VERSION 12A RELEASE ***
604 9-AUG-79 HAM CBLIO
CLEAR ATEND FLAG ON CLOSE REEL
603 7-AUG-79 HAM CBLIO
TAKE OUT CALL TO CLWSMU IN CLSWEL (FROM EDIT 576)
602 ******* NOT USED *****
601 25-JUN-79 HAM CBLIO
MAKE UPD CHANGES 1956 AND 1923 FOR FILE STATUS INTO EDIT
600 21-JUN-79 CLRH CBLIO
CORRECTLY SHUFFLE SIXBIT RECORDS IN SHFREC.
577 19-JUN-79 HAM CBLIO
PUT IN CHECK FOR NO CR-LF IN BLK-1 ASCII MTA FILE, ALLOW IT WITH WARNING
576 1-JUN-79 HAM CBLIO
PUT CHECKPOINT FILOP IN CLSWEL FOR 10'S SMU TYPE CLOSE (FLUSHES BUFFS)
575 8-MAY-79 MFY CBLIO
FIX OPEN FOR SPOOLED CDR WHEN FILE IS EMPTY OR NONEXISTENT.
574 4-MAY-79 CLRH CBLIO
CHECK RECORD POINTER AS WELL AS KEY DESCRIPTION OF ISAM FILE.
573 30-APR-79 HAM CBLIO
FIX EDIT 571 TO SAVE AC 7,14 BEFORE CALL TO SU.CL
572 NOT USED.
571 18-APR-79 CLRH CBLIO
AT C.CLOS, DO NOT CALL SU.CL UNTIL ALL BUFFERS ARE OUT
570 13-APR-79 HAM CBLIO
THIS TAKES OUT 557 AND REPLACES IT WITH CODE TO FORCE
THAWED ACCESS COMPT. LOOKUP FOR ALL READ ONLY OPENS
567 5-APR-79 CLRH PERF
FIX THREE PROBLEMS WITH THE LEVEL IN PERF.MAC
566 4-APR-79 HAM CBLIO
PUT IN LKPSIZ DEF THAT SHOULD HAVE BEEN IN EDIT 565
THIS EDIT IS NOT NEEDED FOR THESE SOURCES,BUT IS ADDED
TO CONFORM WITH HOSS SOURCES,WHICH WERE THE ONES THAT MISSED THIS
565 21-MAR-79 HAM CBLIO LSU
FIX OPNELO TO CALC FILE SIZE WHEN CALLED FROM LFENQ., BUT NOT AFTER
564 20-MAR-79 HAM CBLIO
FIX OPTIONAL FILE YES.NO TO EAT WHOLE ANSWER LINE UP TO EOL
563 20-MAR-79 DMN CBLIO
CHECK FOR ILLEGAL FILE NAME AND GIVE FATAL ERROR IF FOUND
562 12-MAR-79 MFY CBLIO
DUMMY EDIT TO GET 10 AND 20 SOURCES BACK IN SYNC.
561 12-MAR-79 HAM CBLIO
FIX MTA LABEL PROCESSING TO ALLOW FOR ANSI LABELS IN MONITOR VERSION 4
560 3-MAR-79 MFY CBLIO
FIX EDIT 544.
557 5-MAR-79 HAM CBLIO
REMOVE EXTENDED LOOKUP IN OPEN AND ALLOW FOR OPEN READ ONLY
WHEN ANOTHER PROGRAM HAS OPENED THE FILE FOR SIMULTANIOUS UPDATE.
556 26-FEB-79 HAM CBLIO
FIX RESET WITH SHARED BUFFER AREAS TO WORK FOR ISAM "SAVE" AREAS.
555 23-FEB-79 MFY CBLIO
FIX READ OF EBCDIC FILE WITH RECORDING MODE OF BINARY READ WRONG
NUMBER OF CHARACTERS.
554 20-FEB-79 DAW SIZ23
ENCLOSE QUAD-WORD ROUTINES IN BIS CONDITIONAL
553 19-FEB-79 DAW ACCEPT
ALLOW NO DIGITS FOLLOWING A DECIMAL POINT
552 2-FEB-79 CLRH CBLIO
FIX ISAM SEQUENTIAL READ AFTER A WRITE WHICH SPLITS
BOTH A DATA BLOCK AND AN INDEX BLOCK.
551 24-JAN-78 MFY COMUNI
FIX E0.6.1, E0.7.1, E0.9.1 NOT FOUND IN /R CASE
550 16-JAN-79 HAM LSU
FIX NULL CONVERSION IN LRDEQ.
547 NOT USED
546 8-DEC-78 DAW INSPEC
FIX SMASHING OF AC WHEN INSPECT REPLACING.
545 1-DEC-78 DMN CBLIO FTDEFS
STORE NO. OF CHARACTERS IN VAR. LEN. RECORD IN FILE TABLE.
544 29-NOV-78 DMN CBLIO
CHECK FOR MISSING HALF OF PPN AND FILL IN DEFAULT
*** VERSION 12 RELEASE ***
543 9-NOV-78 DMN CBLIO COBST
MOVE CODE TO SETUP .JBHRL TO COBST. THIS IS NEEDED FOR OVERLAYS
542 6-OCT-78 DMN CBLIO
FIX ASCII TO EBCDIC RECORD CONVERSION TO RECOGNIZE E-O-L CHARACTERS
541 6-OCT-78 DMN CBLIO
FIX BYTE MODE TO EBCDIC TAPE (GAVE ILL. ADDR. IN UUO.)
540 6-OCT-78 DMN COMUNI DPADD
ADD QUAD-WORD ROUNDING FUNCTION
537 19-SEP-78 DMN COMUNI STRNGL
FIX EDIT 521, USE TMP.DP
536 17-SEP-78 EHM CBLIO
MAKE LIBOL IDENTIFY AN OVERLAY FILE IT CAN'T FIND
535 16-SEP-78 EHM CBLIO
FIX LIBOL-12 TO RUN WITH IQL
534 12-SEP-78 EHM LSU
FIX EOF FOR LOW-VALUES READ OF ISAM FILES IN SIMULTANIOUS UPDATE
533 10-AUG-78 EHM CBLIO
FIX DISPLAY DOESN'T DISPLAY TRAILING SPACES.
532 20-JUN-78 EHM LSU
FIX ILLEGAL INSTRUCTION FROM LSU FOR SIMULTANIOUS UPDATE
531 20-JUN-78 EHM CBLIO
FIX ERROR ON WRITE OF NON-STANDARD LABELS TO NUL:
530 27-APR-78 EHM CBLIO COMUNI
FIX DEVICE NOT AVAILABLE ERROR TO GIVE THE CORRECT DEVICE NAME
527 27-APR-78 EHM EXPON
TEST FOR OVERFLOW AND UNDERFLOW BEFORE FIXING A FLOATING POINT NUMBER
526 14-APR-78 EHM CBLIO
FIX ASCII WRITES TO RANDOM FILE MAY PUT BIT 35 ON (TOPS-20)
*** VERSION 11 RELEASE ***
525 28-FEB-78 EHM
FIX EDIT 470. CHANGE WAIT UUO TO TAPE WAIT ALLOW SECOND CHANCE
524 27-FEB-78 DAW-EHM
LSU MAKE RETAIN/READ WORK CORRECTLY FOR COMP AND COMP-1 ISAM KEYS
523 21-FEB-78 EHM
PUT IN NEW SWITCH IMUPDT WHEN ON LIBOL DOES A CHECKPOINT FILOP.
TO UPDATE THE END OF FILE POINTERS TO MAKE ISAM FILES MORE STABLE
FOR TOPS20 USERS REQUIRES A PATCH TO THE COMPATIBILITY PACKAGE.
522 04-JAN-78 EHM
FIX USING 2 STRUCTURES FOR ISAM FILES WITH SELECT STATEMENT
521 NOT USED.
520 10-DEC-77 EHM
STOP RERUN DUMPING IN PROGRAMS WITH DBMS
517 11-NOV-77 DRO
LCM CONVERTS NULLS TO SPACES INSTEAD OF SPACES TO NULLS
516 8-NOV-77 DRO
LCM FIX FOR MPP SEND OF BAD ADDRESS
515 19-OCT-77 EHM
CHECK FOR DIFFERENCES IN ISAM FILES BETWEEN RESET TIME AND OPEN TIME.
514 DZN COBFUN
CHECK OTS LIST TOO IN FUNCBC.
513 LET USE SPECIFY PAGE FOR IPC
512 PREVENT MSC PAGE POOL FROM DISAPPEARING
511 CHECK FOR NEGATIVE END INDICATOR ON SEND VERB
510 ADD COBOL-74 CODE TO LCM
507 16-SEP-77 MDL
FOR "SAME AREA" FILES, CLEAR BUFFERS AT OPEN TIME FOR NON-ISAM
FILES.
506 07-SEP-77 MDL
FOR NUL: DEVICE, SET DEVICE DATA MODE TO BE THE SAME AS CORE
DATA MODE INSTEAD OF DEFAULTING TO ASCII.
505 NOT USED
504 15-AUG-77 VR
FIX CHECK FOR NO. OF INDEX LEVELS OF ISAM FILE AT OPEN TIME
503 11-JUL-77 VR
FIX SREAD-ISAM SO IT FINDS 2ND HALF OF SPLIT DATA BLOCK
502 24-JUN-77 EHM
FIX SEQUENTIAL READ OF AN ISAM FILE WITH A SPLIT BLOCK
501 24-JUN-77 MDL
"USE" PROCEDURE GRABBING WRONG FLAG FOR "USE" ERROR RECOVERY.
500 16-JUN-77 MDL
FIX "WRITE AFTER (OR BEFORE) POSITIONING DATA-NAME"
477 24-MAY-77 MDL
FIX "RESERVE NEG-NUM ALTERNATE AREAS" FOR NON-STANDARD BUFFERS
476 13-MAY-77 EHM
TEST FOR EBCDIC BLANK FOR FIRST TWO BYTES OF TAPE RECORD
475 03-MAY-77 EHM
FIX EDIT 473 TO WORK FOR RANDOM FILES
474 26-MAR-77 MDL
ONLY CLEAR NON-OVERLAY FREE CORE WHEN SPLITTING INDEX BLOCKS
AND USING OVERLAYS.
473 22-MAR-77 MDL
READ PARTIAL LAST LOGICAL BLOCK PROPERLY FOR SIXBIT AND
EBCDIC RANDOM AND IO FILES.
472 4-JAN-77 JM
COBFUN AND COMUNI FIX TO CUT BACK TO USE PAGE UUO'S
471 3-JAN-77 VR
LIBOL LOOPS WHEN STARTING TO EXECUTE A CORE IMAGE WITH
MANY SUBPROGRAMS AND OVERLAYS
470 30-DEC-76 MDL
FIRST OUTPUT BUFFER LOST WHEN ATTEMPTING TO DO OUTPUT
TO WRITE-LOCKED TAPE AND THEN PUTTING WRITE RING ON TAPE
467 19-JAN-76 DPL
FIX RESET CODE FOR ISAM FILES ON TOPS-20 WHEN SEGMENTATION IS
BEING USED
466 30-DEC-76 VR
DO NOT TRY AGAIN ON INVALID WRITE OF ISAM FILE -OR ON READ
WHEN FILE IS OPEN FOR I-O.
465 19-DEC-76 DPL
FIX ISAM READING AND WRITING FOR DISPLAY NUMERIC KEYS
463 17-SEP-76 DPL
FIX OPEN OF SIMULTANEOUS UPDATE FILE ON TOPS-20 WHEN A
USER-NUMBER IS PROVIDED, BUT IS [0,0]
462 17-SEP-76 DPL
ADD NEW FILE-STATUS OF 27 FOR THE WARNING ABOUT THE TOP LEVEL
INDEX BLOCK SPLITTING
461 16-SEP-76 DPL
FIX WRITING A RECORD IN A RANDOM FILE WITH
A KEY OF 0. WHEN THE RECORD TO BE WRITTEN WAS IN THE
LAST BLOCK, IT COULD GET WRITTEN IN THE WRONG PLACE
460 16-SEP-76 DPL
FIX FIXED LENGTH BLOCKED EBCDIC OUTPUT ON MAGTAPE. IT WAS WRITING
ONE WORD TOO MANY
457 16-SEP-76 DPL
FIX SO THAT THE LAST BLOCK
NUMBER OF A RANDOM FILE GETS COMPUTED
WHEN DOING SIMULTANEOUS UPDATE
456 10-SEP-76 DPL
ADD D.BPL AS INTERN TO FIX SIMUL UPDATE RANDOM ACCESS PROBLEM
OF BLOCKS GT 1 NOT GETTING UPDATED
455 03-SEP-76 DPL
ADD CHTAB AS INTERN FOR SIMUL UPDATE READ OF RANDOM FILES
WITH ZERO KEYS, ALSO IN LSU AND COMUNI
453 17-AUG-76 JC
FIX CBLIO SO IT CAN FIND THE OVR FILE FROM A SUBROUTINE
452 17-AUG-76 DPL
FOR TOPS20 FIX CBLIO SO LOGICAL DEVICE ASSIGNMENTS WORK
451 13-AUG-76 JC
FIX UP MOVES OF NUMERICS FOR BIS
450 13-AUG-76 JC
ADD NUMERIC ASSEMBLY SWITCH FOR STANDARD NUMERIC TEST
447 16-AUG-76 DPL
RETURN RECORDING MODE BYTE PTR TO SIMUL UPDATE INSTEAD OF
IN-CORE BYTE PTR SO LOW-VALUES READS WORK
445 11-AUG-76 DPL
ADD GDPSK INTERN FOR LSU TO FIX LOW-VALUES READS WITH DISPLAY
NUMERIC KEYS
444 17-AUG-76 DPL
FIX KILL CODE TO CHECK FOR USER HAVING SAME FILE OPEN FOR INPUT
AND OUTPUT, DO NON-SUPERSEDE CLOSE OF OUTPUT IF TRUE
442 01-JUL-76 SER
ALLOW FOR ISAM FILE INDEX BLOCK SPLITTING WHEN SETTING UP
BUFFERS BETWEEN FIRST AND SECOND OPEN
440 01-JUN-76 SER
REMOVE PART OF EDIT 414
437 01-JUN-76 SER
SET UP FOUR TABLES AND INITIALIZE THE COUNT PROPERLY FOR RANDOM FILES
UNDER SIMULTANEOUS UPDATE, PATCH IN LSU ALSO
432 23-FEB-76 DPL
MAKE SAME AREA CLAUSE WORK FOR ISAM AND SEQUENTIAL FILES TOGETHER
431 23-FEB-76 TOPS20 CODE
430 4-FEB-76 DPL
ADD CSORT SWITCH AROUND KILL: CODE SO STAND ALONE CSORT WON'T
PRINT 'LAST COBOL UUO CALLED.....' ERROR MESSAGE
426 2-FEB-76 DPL
MAKE SURE APPENDED DATA STARTS WHERE OLD DATA LEFT OFF, NOT ON
FULL BLOCK BOUNDARY
420 17-OCT-75 JEC
FIX SPACING WITH NO PAGE HEADER. - LINE -
417 21-OCT-75 JEC
MAKE SURE THAT CSORT TAKES NO MORE THAN 6 CHANNELS - CSORT -
416 25-SEP-75 JEC
FIXED FUNCOR ROUTINE TO RETURN START ADDRESS.
NOT IN V10 - COBFUN WAS EXTENSIVLY MODIFIED WHICH FIXED THE PROBLEM.
415 25-SEP-75 JEC
FIX EDIT 334 SO THAT SINGLE DIGTIT TESTS WORK.
NOT IN V10 - NUMBRS WAS REWRITTEN.
414 27-AUG-75 JEC
PUT IN INTERRUPT CODE FOR ON-LINE PRINTER AND SET LPT BUFFER TO 1.
413 30-JUN-75 JEC
FIX MESSAGE THAT BEGINS WITH " SO IT DOESN'T GO TO CTY.
412 30-JUN-75 JEC
FIX CALCULATION OF POINTER FOR UNSTRING WHEN DELIMITER IS "ALL".
12-MAR-75 GPS
ADDITION OF SUSPC, SUSPC1 SUBROUTINES TO
RESET FOR THE PURPOSE OF COMPUTING THE SPACE REQUIRED BY
SIMULTANEOUS UPDATE, AND GETTING IT. ALSO ADDITION OF THE
CALL TO THESE SUBROUTINES IN RESET.
16-JAN-75 ACK
1. CHANGE REFERENCE TO PARAMETER FILE
LBLPRM TO REFERENCE UNIVERSAL
FILE LBLPRM.
2. ADD CODE FOR SETTING UP THE PUSH DOWN
LIST WITH THE VALUE SUPPLIED BY
THE USER WHEN HE COMPILED THE PROGRAM
*** VERSION 7A RELEASE ***
411 MAKE SURE LPT DEVICE DOES NOT CAUSE "ILLEGAL MODE"
MONITOR MESSAGE AT RESET TIME.
ALSO FIX RECOVERY FROM "EOF FOUND INSTEAD OF A LABEL".
410 PUT OUT "$" IN MESSAGE TO TRY ANOTHER MAG TAPE SO OPERATOR SEES THE
MESSAGE, WHEN THE JOB IS RUNNING UNDER BATCH
407 IF POSSIBLE OUTPUT PHYSICAL DEVICE NAME
AS WELL AS LOGICAL DEVICE NAME- FOR DEVICE MESSAGES
406 FIX SORT RELEASE LENGTH CALCULATION SO WORD SIZE AGREES
WITH INTERNAL RECORD MODE
405 SET UP REF I12 FOR ISAM FILES AT MSVID FOR FILE VALUE OF ID PRINTOUT.
404 IN LINE.MAC FIX SPACING FOR RPT WRITER
403 PUT IN SIRUS CODE AND TRAILING BLANK SUPPRESSION (SWITCH OPTION)
402 FIX CORE PROBLEM IN CSORT; FOR .JBFF VS .JBREL
401 FIX EDIT SO THAT ZERO SUPPRESSION NO LONGER HAPPENS
AFTER A 9'S FIELD IS SEEN
400 FIX COBFUN SO THAT CHANNEL 0 IS OBTAINED LAST
377 FIX ISAM BUFFER PROBLEM IF ISAM FILE IS
SHARED AREA (BUFFER) WITH ANY OTHER FILE.
376 GIVE A MEANINFUL ERROR MSG IF UNEXPECTED EOF ON ISAM IDX FILE IS SEEN
375 ADD TO EDIT 371- IF ISAM FILE OPEN FOR INPUT ALLOW
FD > OR = TO ISAM MAX REC SIZE- AND IF FILE OPEN FOR OUTPUT ALLOW
FD < OR = TO ISAM MAX REC SIZE.
374 FIX TEST FOR OPTIONAL ISAM FILE AT RESET TIME
373 FIX UP CLOSE WITH DELETE FOR DTA FILES.
372 CORRECT BLOCK FACTOR CALC FOR ASCII NON-ISAM FILES
371 CHECK THAT USERS MAX REC DESC SAME AS ISAM MAXREC PARM.
370 SEQUENTIAL READING OF AN ISAM FILE MAY OCCASIONALLY
MISS SEVERAL RECORDS. THE PROBLEM OCCURS WHEN THE
SYMBOLIC KEY IS A NUMERIC DISPLAY ITEM AND A VERSION
NUMBER ERROR OCCURS.
343 THROUGH 367 ARE RESERVED FOR DEVELOPMENT
;********* VERSION 7 RELEASE **********
347 FIX STRING TO SPACE FILL EVEN IF NO UNSTRING
346 CBLIO - LIBIMP - CSORT
MAKE OVERLAYS WORK. CHECK THAT NO IO IS DONE IN AN
OVERLAY. WHEN ALLOCATING ISAM BUFFER SPACE BE SURE
YOU DON'T OVERLAP THE OVERLAY AREA, GIVE ERROR MESSAGE.
345 RE-ADJUST SUBROUTINES DISPATCH TABLE SIZE FOR MCS
344 FIX MEMORY MANAGEMENT BUG IN CSORT
343 THIS FIX PREVENTS AN EXTRA BLOCK FROM BEING APPENDED TO
A BINNARY FILE WHEN THE OUTPUT DEVICE IS A DTA.
342 MAKE EDIT 333 WORK FOR PROGRAMS WO/R SWITCH
AND MAKE CHN 0 THE LAST ONE USED (FOR RERUN)
CHANGES TO OVRLAY.MAC AND COBRG OF COMPILER
ALSO REQUIRES COBST ROUTINE IN LIBOL
341 FIX POSITIONING ; MULTI-FILE LABELLED REELS W/NO
POSITION CLAUSES
340 UPDATE JOBDAT SYMBOLS, CHANGES IN CSORT,UUO
337 FIX IN ACCEPT, NOT IN CBLIO, SEE JC
336 FIX FILE POSITIONING FOR MULTI-FILE TAPES
335 FIX GARBAGE IN RECORD W/VARIABLE LENGTH ISAM RECS
334 NOT IN CBLIO. JOHN DID EM
333 GET OVERLAY FILE FROM SAME PLACE AS MAIN PROGRAM
332 HANDLE VARIABLE LENGTH RECORDS FOR STAND ALONE SORT
330 FIX READING FROM NUL DEVICE SO THAT CBLIO DOESN'T CONFUSE IT WITH MTA
327 FIX STD LABELS FOR MTA WHEN READING > REEL 9
326 CHANGED CHTAB SO THAT 173 TO 20(ZERO) AND 175 TO 32 (:)
WHEN READING ASCII FILE TO SIXBIT RECORD JEC
325 FIX SPACING AND REPORT CODE FOR REPORT GEN IN LINE.325 JEC 4/5/74
324 FIX APPENDING TO RANDOM ACCESS FILES READ TO END
323 DONT DO ENTER WHEN LOOKUP OF ISAM DATA FILE FAILS
322 FIX APPENDING OF RECORDS FOR SEQUENTIAL I/O
321 LIBOL REFUSES TO TAKE A RERUN DUMP IF A FILE IS ASSIGNED
TO THE NULL DEVICE
320 ISAM - "MEM-PRO-VIO..." WHEN ZEROING FREE CORE AT UDIF11
317 MOVE THE TEST FOR EBCDIC FILES INTO THE MAIN LOOP
316 FIXES "ADDRESS CHECK..." WHEN SORT FILE SHARES SAME BUFFER AREA
315 FIX TO EDIT 301 ILG 1-FEB-74
314 *CSORT* PREFIX "?" TO "ERROR IN SORT I-O" MESSAGE
313 *CSORT* FIX REDUNDANT "RECORDS SORTED"
312 IF "ILL-MEM-REF" IN RSTLNK ROUTINE TELL USER HE MAY HAVE
LOADED A MACRO ROUTINE IN PLACE OF COBOL SUBROUTINE
311 ISAM - "MEMORY PROTECTION VIOLATION" WHEN WRITING AFTER
SPLITING THE TOP INDEX BLOCK
310 ISAM - "?KEYS OUT OF ORDER" CAUSED BY TESTING THE WRONG FLAG WORD
307 ISAM FILE READER GETS "VERSION NUMBER DISCREPANCY" WHEN A
WRITER CREATES A NEW INDEX LEVEL
306 ISAM - OPNI03 ASSUMES A 200 WORD BUFFER SIZE BUT IT MAY BE LARGER
305 CHANGE "NOT A LEGAL SIXBIT FILE" ERROR MS TO INDICATE THAT
INCORRECT BLOCKING FACTOR COULD BE CAUSE.
304 CORRECT VALUE OF ID AS GIVEN AFTER LOOKUP OR ENTER FAILS
303 FIX TO REPORT-WRITER
302 CORRECT MAG-TAPE POSITION AFTER READING LABELLED FILE
301 DO AN ENTER ON NON-DIRECTORY DEVICES FOR DIRECT,LPTSPL,ETC.
300 HANDLE NULLS IN ASCII RANDOM FILES CORRECTLY
277 PRECEDE ALL ERROR MESSAGES HAVING TO DO WITH POSSIBLE
WRONG REELS OR OPTIONAL FILES WITH "$"
276 DUPLICATE ISAM RECORDS IF DATA MODE DIFFERS BTWN RECORD AND DATA FILE
275 CODE TO CORRECT LOW-VALUES READ FOR ISAM AFTER INVALID KEY PATH TAKEN
274 CODE TO SUPPORT THE DATE75 FORMAT I.E. 15 BIT WIDE DATES
273 FIRST RANDOM READ WITH AN ACTUAL KEY POINTING BEYOND THE "EOF" DOES
NOT TAKE THE INVALID KEY RETURN
272 TYPE THE VERSION # NOT JUST EDIT # WITH ERROR MESSAGES
271 FIXES "VERSION NUMBER DISCREPANCY..." WHEN MORE
THAN ONE SECTOR PER LOGICAL BLOCK
270 STOPS "ILL-UUO-AT-PC..." WHEN TYPING OUT LIBOL ERROR MESSAGE
267 CHANGE GETCH. ROUTINE SO ^U WILL RUBOUT TYPED AHEAD CHARACTERS
\
;*** END OF LIBOL EDIT HISTORY ***
END