Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobver.c05
There are 2 other files named cobver.c05 in the archive. Click here to see a list.
REP 1/1 ;05C1
; UPD ID= 3545 on 5/11/81 at 2:58 PM by MAYBERRY
UNIVERSAL COBVER -- VERSION NUMBERS AND HISTORY FILE FOR COBOL 68/74
SUBTTL VERSION 12B
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1979,1981 BY DIGITAL EQUIPMENT CORPORATION
;VERSION NUMBER SYMBOLS FOR THE COBOL COMPILER (COBOL)
CBLEDT==1131 ;EDIT LEVEL
CBLMJR==12 ;MAJOR RELEASE VERSION
CBLMNR==2 ;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==674 ;EDIT LEVEL
LBLMJR==CBLMJR ;MAJOR RELEASE VERSION
LBLMNR==CBLMNR ;MAINTENANCE RELEASE
WIT
; UPD ID= 3545 on 5/11/81 at 2:58 PM by MAYBERRY
UNIVERSAL COBVER -- VERSION NUMBERS AND HISTORY FILE FOR COBOL 68/74
SUBTTL VERSION 12B
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1979,1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
;VERSION NUMBER SYMBOLS FOR THE COBOL COMPILER (COBOL)
CBLEDT==1445 ;EDIT LEVEL
CBLMJR==12 ;MAJOR RELEASE VERSION
CBLMNR==2 ;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==1046 ;EDIT LEVEL
LBLMJR==12 ;MAJOR RELEASE VERSION
LBLMNR==2 ;MAINTENANCE RELEASE
REP 1/2 ;05C2
SUBTTL MAJOR VERSION HISTORY FOR COBOL AND LIBOL
WIT
SUBTTL MAJOR VERSION HISTORY FOR COBOL
INS 32/3 ;05C3
RJD RHONDA DURAY
RLF RUTH FONG
INS 35/3 ;05C4
SMI STEVE INGERSOLL
REP 5/4 ;05C5
*** EDITS BELOW WILL BE IN COBOL-68/74 VERSION 12B RELEASE ***
WIT
;.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 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
;.ENDV
*** EDITS BELOW WILL BE IN COBOL-68/74 VERSION 12B RELEASE ***
INS 36/11 ;05C6
REP 5/12 ;05C7
*** VERSION 12B RELEASE ***
WIT
;.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
;.ENDV
;.ENDR
*** EDITS BELOW WILL BE IN COBOL-68/74 VERSION 12B RELEASE ***
DEL 104/13 ;05C8
DEL 44/14 ;05C9
DEL 220/15 ;05C10
DEL 52/16 ;05C11
SUM 25638