; 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 LBLWHO==0 ;WHO LAST EDITED (0=DEC) LBLVER==BYTE(3)LBLWHO(9)LBLMJR(6)LBLMNR(18)LBLEDT SUBTTL MAJOR VERSION HISTORY FOR COBOL AND LIBOL 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 - \ SUBTTL CAST OF CHARACTERS COMMENT \ PEOPLE WHO HAVE DEVELOPED OR MODIFIED COBOL/LIBOL INCLUDE: ACK ANDY KASCMAR ALB AL BLACKINGTON 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 STILE HAM HOWARD MAYBERRY ILG IRWIN GOVERNMAN JEC/JC JOHN CONNOR JEF/JF JOE FRIES JEH JANE HOFFMAN JSM JOHN MASLANKA LEM LAKSHMI MULLAHOO MDL MICHAEL LACKMAN MFTT MICHAEL TIGHE MFY MICHAEL YODER SSC SETH COHEN SEB SUMNER BLOUNT SHP SERGE POLEVITSKY VR VIRGINIA ROGERS WTK BILL KILGORE ... WAYNE NEELY \ SUBTTL COBOL EDIT HISTORY COMMENT \ *** 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 ". 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" 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 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 \ *** 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