Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/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==1335 ;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==1013 ;EDIT LEVEL
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
INS 33/3 ;05C2
RLF RUTH FONG
INS 36/3 ;05C3
SMI STEVE INGERSOLL
REP 76/4 ;05C4
;;.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
WIT
;.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
INS 133/4 ;05C5
;.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
INS 59/12 ;05C6
;.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
SUM 8316