Trailing-Edge
-
PDP-10 Archives
-
DEC_CMS-20_V1.0_SRC
-
cms/sources/verson.bli
There are no other files named verson.bli in the archive.
module verson ( ! Version string identifying this system.
ident = '1',
%if
%bliss(bliss32)
%then
language(bliss32),
addressing_mode(external=long_relative,
nonexternal=long_relative)
%else
language(bliss36)
%fi
) =
begin
!
! COPYRIGHT (C) 1982, 1983 BY
! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!
!++
! Facility: CMS Library Processor
!
! Abstract:
!
! This module contains a string identifying this version
!
! Environment: Transportable
!
! Author: Earl Van Horn Creation Date: March 12, 1980
!
! Revision History:
!
! The following is a cumulative revision history of the changes to
! CMS. They are listed in chronological order, and there is one
! entry for each time a major edit sequence occurs in CMS. Each
! entry should contain the following: Version number that this
! change is flagged with (for example, T1.0-1), list of modules changed,
! concise description of why the change was made. When this file is
! replaced back in the library, the replace comment should be ONLY
! the version number of the change, no other comment is needed.
!
!
! T1.0-1
! Put in the new XPORT which supports VMS version 3. Also make the
! initial changes to this file for this new section.
!
! T1.0-2
! Modified all references to fil_nam_size and log_nam_size and terms
! that made up an extended file spec size (like dir_siz, dev_siz, etc)
! and changed sconfg.req require file to define 3 terms...file_spec_size,
! extended_file_spec and el_nam_size. Fix to apparant stack problem
! bugs appearing as well as rollback file size problems.
!
! Elements modified: rolbck.bli,lstmgr.bli,fixup.bli,shwlog.bli,
! chkres.bli,cmpmrg.bli,copy.bli,create.bli,crelm.bli,diff.bli,
! erase.bli,outchr.bli,recovr.bli,repfil.bli,replac.bli,reserv.bli,
! resfil.bli,shwres.bli,shwser.bli,stset.bli,stshow.bli,vcntrl.bli,
! verify.bli,lognam.bli,fileio.bli,filops.b36, and sconfg.req.
!
! T1.0-3
! Modified REPFIL.BLI to fix error in sequencing. The first line
! following the */S in the file was being lost.
!
! T1.0-4
! Modified RESCAN.BLI and LIBMSG.MSG to change error msg for unavailable
! command line from bug message to an error.
!
! T1.0-5
! Modules modified: FILOPS.B32
! Fix QAR #61, bug call made if user did not have enough privileges to
! access library in "CMS SET LIB [xxx]". Bug call changed to ERSSTS.
!
! T1.0-6
! Modules modified: FILEIO.BLI
! Fix QAR #56, badlib call if user's disk quota exceeded. Checks added
! for disk quota exceeded and device full on OPEN operation. PUT needed
! no changes.
!
! T1.0-7
! Modules modified: FILEIO.BLI
! Fix QAR #66, wrong error message issued if user's file locked.
! Error message fixed, also fixed other messages to include file name.
!
! T1.0-8
! Modules modified: DIROPS.BLI
! Fix QAR #65, incomplete error message for "CMS SET LIB node::dir".
! Routine LOCALF modified to return value as documented in routine
! header.
!
! T1.0-9
! Modules modified: ERRLOG.BLI
! Correct problem decribed in QAR 83. After user's disk quota
! was exceeded ERRLOG tried to append to 00CMS.ERR and generated
! another error. Added "FAILURE=0" to PUT and CLOSE in ERRLOG.
!
! T1.0-10
! Modules modified: SCONFG.REQ, RESERV.BLI, DIFF.BLI.
! Modified /OUTPUT processing to keep RMS from getting sick
! if hidden devices are involved. Differences command now
! also handles logical names in a more reasonable fashion.
!
! T1.0-11
! Modules modified: ERASE.BLI
! Modified error processing when user asks to delete non-existent
! element. The deleting of the new .DEF file is left for rolbck
! to do.
!
! T1.0-12
! modules modified: FILEIO.BLI
! Modified code to remove the 00cms.INT file from the rollback
! list. Rollback should not be concerned about this file.
!
! T1.0-13
! modules modified: LIBMSG.MSG, RECOVR.BLI
! Modified the s_recovrfai to be seen as s_failrcovr to handle
! unique 6-chars for the 20
!
! T1.0-14
! modules modified: EXCEPT.BLI,ERRMSG.BLI,FILEIO.BLI,TRANSA.BLI,
! ROLBCK.BLI
! modules added: CNCUSR.REQ
! Took out AST calls in TRANSA.BLI, and added macro calls to all so
! that control c enablling/disabling is done on both the VAX and 20
!
! T1.0-15
! module modified: FILEIO.BLI
! Modified the file$close routine to set a flag as the routine is
! entered if xport had remember bit set, and if that bit was on
! the routine leaves the remembered info as is. If not, an initialize
! is done before the routine is exited.
!
! T1.0-16
! modules modified: DIROPS.BLI, ROLBCK.BLI
! Modified Rollback to handle list if a logical name was passed to it
! in the directory spec. Dirops , in routine fuldir, was made
! to handle the lack of CMS$LIB being defined without giving a
! bug call. Together, these modules now allow /output: to work
! correctly.
!
! T1.0-17
! modules modified: LIBMSG.MSG, STEPMSG.B36, COMCOD.BLI
! In compiling STEPMSG on the 20 there was a typo (missing comma) plus
! two non-unique in 6 chars variable names - S_RECOVRFAI and S_NOSUBCOM.
! S_RECOVRFAI was changed to S_FAILRCOVR to correspond with the VAX
! change (T1.0-13), and S_NOSUBCOM was changed to S_NOSBCOM.
! LIBMSG and COMCOD then had to be changed to correspond with the 20.
!
! T1.0-18
! modules modified: MAIN.BLI, STSHOW.BLI
! Modified stshow to return a warning status to system if warning issued.
! (code error - was sending back information status). Also modified MAIN
! to insure that the status being sent back was being passed back to the
! system.
!
! T1.0-19
! modules modified: LIBMSG.B36
! Had to make the same changes as made to STEPMSG.B36 in T1.0-17
! as didn't know that LIBMSG.B36 is now being used on the 20
! instead of STEPMSG.B36.
!
! T1.0-20
! modules modified: TERMNL.BLI
! Work on QAR 116. Changed routine ASK, if user types ^Z a string
! of length zero is returned. If ask is called again, it exits
! silently by calling exits.
! NOTE: I found a small XPORT bug; when ^Z is typed, the field
! [iob$h_string] is NOT set to zero. This only caused
! problems if the previous line was non-null. REMOVE
! WORK-AROUND WHEN XPORT IS FIXED.
! T1.0-21
! Module modified: LIBRAR.BLI
! Work on QAR 115. Treated nl: as a special case, as cms$lib is
! treated. Added the code to handle getting directory of nl:
! with CMS SET LIBRARY nl:.
!
! T1.0-22
! Modules modified:
! BLISSX.REQ, RBUSR.REQ, JSYS.R36,
! ROLBCK.BLI, FILEIO.BLI, RBDBG.BLI, SYSOPS.B36
! TERMNL.BLI, ERRMSG.BLI, FIXUP.BLI
! Replace updates for TOPS-20, most are related to file truncation
! in roll back.
!
! T1.0-23
! Modules modified:
! ROLBCK.BLI, LSTMGR.BLI, LIBRAR.BLI
! QAR 118, ROLBCK now allows batch jobs to work when sys$output is
! assigned as nl:(or nul: on the 20). Also, QAR 119, ROLBCK and
! LSTMGR modified to take care of problems when user types command
! CMS SHO HIS/append.
! Adapted LIBRAR to also handle nul: on the 20. 20 code not tested.
!
! T1.0-24
! Modules modified: FILEIO.BLI, FILGEN.BLI, TRANSA.BLI
! Added conditional compilation code for code that should be
! for both machines but currently will not work on the 20. These
! changes are invisible on the VAX and result in less code on the 20.
!
! T1.0-25
! Modules modified: FIXUP.BLI, LIBMSG.B36, MAIN.BLI
! Changes that were undeclared globals on the 20 at linkage.
! Main: STS$M_INHIB_MSG available only in STARLET; Libmsg: an
! error severity (CLINENOT) omitted; Fixup: an unknown macro
! (FLD) that no longer exists. These changes are invisible
! on the VAX.
!
! T1.0-26
! Module modified: VCNTRL.BLI
! Changed code to guarantee that if invalid element files existed
! during a CMS VERIFY, that an errmsg would be given to that effect.
!
! T1.0-27
! Module modified: TRANSA.BLI
! Fixed an error that I caused when doing T1.0-24. All affects
! the 20, the changes are still invisible to the VAX, regarding
! conditional compilation around the SS$_FILVER variable.
!
! T1.0-28
! Module modified: GETCOM.BLI
! Fixed an error logging problem caused on July 7, 1981. When
! an error occured the command line was not being logged.
!
! T1.0-29
! Module modified: CRELM.BLI
! Modified code in crelm so that if defn file has no checksum,
! and user is attempting to create an element, an informational
! msg will appear to state missing checksum, but will be followed
! by only a successful msg for ele creation.
!
! T1.0-30
! Module modified: SHWLOG.BLI, routine OUTLOG
! Parameter chain for printing history was initialized to zero.
! This was fine for the VAX as K_NULL (in comparison loop) on
! VAX is zero but on the 20 K_NULL = -1. Changed initialization
! to K_NULL.
!
! T1.0-31
! Module modified: SHWLG2.BLI, routine REFQUA
! Variable r_parse_tab used across modules, but defined locally.
! Defined it globally (own).
!
! T1.0-32
! Module modified: Filops.b32
! bad bug message changed to badlib message since the former was
! inappropriate.
!
! T1.0-33
! Modules modified: LSTMGR.BLI
! TOPS-20 version debugged, some code simplification.
!
! T1.0-34
! Modules modified: LIBRAR.BLI, SHARE.BLI
! When SET LIB to an unprivileged library, CMS identified it as
! your library before giving error messages, confusing user.
! Fixed it. Also replaced routine names in error messages with
! fac_name as don't want to supply users with routine names.
!
! T1.0-35
! Modules modified: VERSON.BLI, LIBRAR.BLI
! New modules: CMSVER.MAC
! Change method used to create CMS version id string so .JBVER (loc
! 137 octal) is updated automaticly at link-time. Also small change
! to LIBRAR.BLI so BLISS generates better code.
!
! T1.0-36
! Modules modified: DIFF.BLI, STSHOW.BLI, SHWEXA.BLI, LIBMSG.MSG
! Change DIFF.BLI to make documentation clean by allowing 128 to be
! the maximum width allowed in the CMS DIFF/WIDTH qualifier. Any
! number over 128 is set as 128. Also cleaned up code that is never
! reached, situated after ERS calls.
! Changed STSHOW.BLI to give a specific error message when /gen is
! used with a specific element. Modified SHWEXA.BLI so that it no
! longer clears the single element reference when it finds that a
! gen qualifier exists. Modified LIBMSG.MSG to include another error-
! severity value, ie., GENFALSE. This is then used in STSHOW.
! QARs 154 and 155.
!
! T1.0-37
! Modules modified: FILEIO.BLI
! A few TOPS-20 related bug fixes.
! Also added debug code to print out information as files are opened
! and closed. It is activated by /T_E_S_T_11:1
!
! T1.0-38
! Module modified: SHARE.BLI, routines TRYLIB and SAFLIB
! Changed message sequence when try to SET LIB to an unprivileged
! library. This now leaves the CMS library undefined.
!
! T1.0-39
! Modules modified: STSHOW.BLI, SHWEXA.BLI
! Def'n of f_elm_ref not clear in some modules. Added notation
! and modified code from t1.0-36 so that f_elm_ref refers only to
! single element reference and not any element reference, and did
! not use this variable for comparisons. Fixes problem with SHO
! ANCES and SHO DESC/GEN:x.
!
! T1.0-40
! Modules modified: ROLBCK.BLI
! Fixed bug in routine RBPROC such that roll back was inhibited if
! any /T_E_S_T_ qualifier was used. Roll back is now inhibited by
! /T_E_S_T_10:n where n is positive.
!
! T1.0-41
! Module modified: SHWLOG.BLI
! When a SHOW HISTORY encountered a blank line in the history
! file an access violation occured. Now, a BADLIB message is issued.
!
! T1.0-42
! Modules modified: LIBMSG.MSG, VALUES.BLI,EXCEPT.BLI,STSHOW.BLI
! Changed s_not19cent to s_not20cent in VALUES.BLI. Added code to
! STSHOW.BLI to keep /CLASS from being used with SHO GEN *.*.
! LIBMSG.MSG was given numerous modifications to include latest
! errormsgs added. EXCEPT.BLI has an errormsg change. At this
! time COMAND.obj was added to the obj library to complete the link
! correctly.
!
! T1.0-43
! Module modified: DIROPS.BLI, routine FULDIR
! Changed ERS error messages to ERR so that FULDIR will return to
! LIBRAR and the cms library will be undefined.
!
! T1.0-44
! Modules modified: RESERV.BLI
! When a + operator has to be resolved DIRDES in module SHWEXA
! is called to verify direct descendant instead of CMPGEN.
!
! T1.0-45
! Modules modified: CMSEXA.BLI
! DIRDES was failing in the case of is n0x a direct descendant of
! ny for n,x,y legal numeric strings with no leading zeros and
! y >= x. It was returning true instead of false. eg 206 is a
! direct descendant of 29. (?)
!
! T1.0-46
! Module modified: STSHOW.BLI
! Inconsistant header record for CMS SHOW GENERATION *.*
!
! T1.0-47
! Modules modified: LIBMSG.MSG,STSET.BLI,SHWLG2.BLI,LEXICA.BLI,
! VALUES.BLI,CRELM.BLI
! Code in STSET made /NOTES and /NONOTES mutually exclusive with a
! single command for SET ATTRIBUTE. Modifications make it pick up
! the last of the 2 qualifiers on the line. Same for /HIS and /NOHIS.
! Took out one errormsg in LIBMSG to correspond. Changed no of quotes
! and punctuation in SHWLG2, quotes around "character"s in VALUES,
! modified punctuation and made ilchar consistent for LEXICA, and
! added comments to relate that done in STSET to the code in CRELM.
!
! T1.0-48
! Modules modified: LIBMSG.MSG, VERIFY.BLI, PARAMS.BLI
! Class name must begin with an alphabetic character. This check
! was added to PARAMS and an error message replaced. This message
! also replaced the one already in VERIFY. Both old error messages
! were deleted from LIBMSG.MSG.
!
! T1.0-49
! Modules modified: QUOTES.BLI
! When prompted for a remark, if the user typed a quoted string
! the quoted string was then quoted. Now if string is a valid
! quoted string the quoting process is bypassed. See QAR 177.
!
! T1.0-50
! Modules modified: COMAND.BLI, COPY.BLI, DIROPS.BLI, EXCEPT.BLI,
! FILGEN.BLI, FILOPS.B32, LEXICA.BLI, LOGNAM.BLI, PARAMS.BLI,
! RECLOG.BLI, RECTST.BLI, RESFIL.BLI, SHARE.BLI, SHOLIB.BLI,
! SHWLG2.BLI, SHWSER.BLI, UNRES.BLI, VALUES.BLI
! Some error messages put "" around things that were put into
! the error message, e.q. element names, class names, etc. Pulled
! out the "" to make error messages consistent. The only time ""
! is used is around a specific character(s), like "*.*" for wildcard.
! Also changed CANCELLED to one 'L' and fixed some grammar.
!
! T1.0-51
! Modules modified: CNCUSR.REQ, CTRLC.M36, EXCEPT.BLI, IOSERV.BLI,
! JSYS.R36, LOGNAM.BLI, MAIN.BLI, ROLBCK.BLI,
! SYSMSG.BLI, TERMNL.BLI
! Mostly TOPS-20 related changes. Removed period from end of error
! messages in ROLBCK and TERMNL.
!
! T1.0-52
! Module modified: MAIN.BLI
! Corrected code put in with T1.0-18, which was incorrect. Code
! now includes possibility that call returns to main module and
! goes back to the system from main.
!
! T1.0-53
! Modules modified: GETCOM.BLI
! Corrected changes made in GETCOM in T1.0-4. DO NOT use null
! character pointer in ch$diff, also added a missing ch$ptr.
!
! T1.0-54
! Modules modified: SHWLOG.BLI, SHWLG2.BLI
! Corrected SHOW HISTORY to prevent page fault thrashing and
! allow it to run much faster.
!
! T1.0-55
! Modules modified: COMAND.BLI, CRELM.BLI, FILEIO.BLI, LIBRAR.BLI,
! PARAMS.BLI, RECLOG.BLI, RECOVR.BLI, SHARE.BLI, SHOLIB.BLI, STSET.BLI,
! VALUES.BLI, VERIFY.BLI
! Made final changes to error messages so that they correspond
! exactly to error message appendix in reference manual. Also fixed
! QAR 184 concerning quotes around an error message.
!
! T1.0-56
! Modules modified: REPFIL.BLI, LIBMSG.MSG
! When an element is fetched which has the /HISTORY attribute and
! this copy is used to create a new element, the replace algorithm
! complains bitterly and inappropiately about bad history lines.
! Something similar happens if you alter the history in the editor.
! The message has been changed to reflect what happened and it doesn't
! care about blank lines anymore. One side effect not yet fixed is
! when the top scenario is done the previous history is lost.
!
! T1.0-57
! Modules modified: CREATE.BLI
! Error message fixed; when you insert an element which does not exist.
! Also, all error messages are now up to standard (no period).
!
! T1.0-58
! Require files modified: RBUSR.REQ
! Modules modified: ERRMSG.BLI, EXCEPT.BLI, ROLBCK.BLI, TRANSA.BLI
! Fixed QAR 198, the roll-back message "Library restored to original
! state" made users uncomfortable when command should not have been
! changing the library. The message is now "Command canceled".
! Also removed periods from messages in TRANSA.BLI and made a few
! TOPS-20 related updates such as adding CM$PTR() when missing.
!
! T1.0-59
! Modules modified: FILGEN.BLI, CREATE.bli
! QAR 196: CREATE\OPNOUT called TRNFIL before checking if open succeeded,
! now called only if open succeeded.
! QAR 197: Maximum file name size of "100" in module FILGEN.BLI changed
! to "extended_file_spec".
! Added some TOPS-20 code to FILGEN.BLI but does not work, see QAR 193T.
!
! T1.0-60
! Modules modified: STSET.BLI
! A SET ATTRIBUTE where either the element did not exist or the element
! is currently reserved caused an unnecessary message from rollback since
! the command was not committed. Also fixed is error checking for the
! /NOTES operator. CMS was letting anything get into the DEF file.
!
! T1.0-61
! Module modified: STSHOW.BLI
! SHOW ELEMENT did not clean up if the element does not exist or
! the class does not exist.
!
! T1.0-62
! Module modified: OUTCHR.BLI
! QAR 202: If you set default nl: and fetch/reserve a file a file is
! there message was incorrectly output.
!
! T1.0-63
! Modules modified: CRELM.BLI,DIFF.BLI,LIBMSG.MSG
! QAR 206: CMS infinite loops on bad read for create ele and gives
! a badlib for DIFF.
! T1.0-64
! Module modified: ERASE.BLI
! QAR 207: CMS DELETE ELE/ALL calls badlib if the data file does not
! exist.
!
! T1.0-65
! Modules modified: TERMNL.BLI,RESERV.BLI,DIFF.BLI
! QAR 191: An error is now issued if you try to append to a
! file which is not a sequential, var CR file.
!
! T1.0-66
! Modules modified: CRELM.BLI, LIBMSG.MSG, STSET.BLI, RESFIL.BLI
! QAR 57: added checks for max/min values for /POSITION in SET
! ATTRIBUTE and CREATE ELEMENT.
!
! T1.0-67
! Modules modified: RESERV.BLI
! QAR 205: CMS ANN file.ext/OUTPUT=log_name: where logical_name is
! a device name outputs the file device_name:.ann instead
! of device_name:[dir]file.ann.
!
! T1.0-68
! Modules modified: FILEIO.BLI, FILOPS.B32, FILOPS.B36, and ROLBCK.BLI
! QAR 189: CMS SHOW xxx/OUT=NL: or LP: (or any other special device)
! is not handled correctly by ROLBCK; bombed if ROLBCK
! invoked.
! QAR 203: CMS SHOW xxx/OUT=ppf: where ppf: is logical name for process-
! permanent file caused bug call.
! Completly re-wrote routine RBCLN which checks for "special" files
! which should not be touched by rolbck.
!
! T1.0-69
! Modules modified: LIBRAR.BLI, DIROPS.BLI
! CMS SET LIB to funny directories like NL:, LP: or process permanant was
! killing CMS. Write a new routine cmsdir which calls fuldir and then
! checks whether it is a special directory. This is not yet impelmented
! on the 20.
!
! T1.0-70
! Modules modified: SHARE.BLI, DIROPS.BLI
! CMS was sometimes failing to detect if your working directory is the
! CMS directory. It now reliabally checks to make sure your working
! directory is not any CMS library.
!
! T1.0-71
! Modules modified: CRELM.BLI, STSET.BLI
! When doing T1.0-66, forgot to put an IF statment in that made
! CREATE ELEMENT and SET ATTRIBUTE without the /POSITION qualifier
! blow up. It's now fixed.
!
! T1.0-72
! Module modified: DIROPS.BLI
! fuldir was failing for logical names without :s.
! T1.0-73
! Modules modified: ROLBCK.BLI, FIXUP.BLI
! As a verify/repair corrected checksums in a file, it wrote a new
! file containing all but the old checksum, and then appended a new
! checksum to that newly-written file. Since problems can occur if
! there is a crash while that file is being written, and a problem
! also occurs with this method if there are multiple versions of the
! same file in the library, the code has been modified to truncate
! the incorrect crc (if one exists) from the existing file and then
! append a new crc record to that same file. Eliminates the problems
! possible when writing new file.
!
! T1.0-74
! Module modified: TRANSA.BLI
! Side affect of fix T1.0-70 where trnfil was returning a bug call
! for an init since the library is not all there. bug call removed
! since no longer a bug.
!
! T1.0-75
! Modules modified: LIBRAR.BLI
! When you set lib while your working directory is a CMS library you
! get a baddir message; however, your cms lib is set and you are not
! notified.
!
! T1.0-76
! Modules modified: VERIFY.BLI, RESFIL.BLI
! Removed change to RESFIL. Fixed VERIFY message.
!
! T1.0-77
! Modules modified: TERMNL.BLI, DIROPS.BLI
! These modules were returning a bug call for channel assignment errors.
! They are in fact not bug calls but rather user errors. For instance
! CMS SHOW ELE/OUTPUT=RTA1: is not a bug but rather a user error.
! See QAR 210 for the symptoms.
!
!=============================================================================
! V1.0
! Modules modified: VERSON.BLI
! Updated version number for final v1.0 release.
!
!=============================================================================
! X1.1-1
! Modules modified: VERSON.BLI
! Update verson number to X1.1-1 for continued development.
!
! X1.1-2
! Modules modified: TERMNL.BLI, SYSMSG.BLI
! Changed the use of the ESOUT jsys on TOPS-20. Now, when severe error
! messages are issued, a crlf is appended to the error message before
! it is passed to ESOUT instead of preceeding the next line with a crlf.
! This allowed about 50 lines of kludge code to be deleted along with
! the global last_was_error.
!
! X1.1-3
! Modules modified: CHKRES.BLI, CMPTXT.BLI, COPY.BLI, CRELM.BLI, ERASE.BLI
! Increase the size of the buffers used to build checksum records to
! allow room for the "*/C:" and trailing space. This error was not
! apparent on VMS due to the rounding up but was visible on TOPS-20.
!
! X1.1-4
! Modules modified: JSYS.R36, FILOPS.B36, FIXUP.BLI, VERIFY.BLI
! 1) An extra parameter was added to the declaration and calls of
! routine FIXCRC, this cleaned up the section of code to print the
! success message.
! 2) Implemented FIXCRC for TOPS-20
! 3) Removed code to purge files after VERIFY/REPAIR since extra files
! are nolonger created. The checksum is repaired in the original file.
! 4) Fixed routine FIXHDR
! 5) Changed OWN to LOCAL in WILDS so routine is recursive. It is called
! recursively during a VERIFY/REPAIR.
! NOTE: There is still a problem with FIXCRC. It calls TRNFIL to
! register the file (mark it as closed by CMS) but TRNFIL does not
! do anything because the file is being appended (as opposed to being
! created).
!
! X1.1-5
! Modules modified: VCNTRL.BLI
! Changed CAT to LIT in a dozen places. Module now compiles into
! much less code.
!
! X1.1-6 (was V1.0-1)
! Modules modified: CREATE.BLI
! CMS INSERT ele /GEN:classname+ plus operator didn't work
! right.
!
! X1.1-7
! Modules modified: SCONFG.REQ, RECOVR.BLI
! Add declarations for SYS_WILD_FILE_SPEC and SYS_WILD_GEN_SPEC to
! require file and use in recovr.bli.
!
! X1.1-8
! Modules modified: DIROPS.BLI
! TOPS-20 changes only. Modified routine CMSDIR, spcfil was being
! called with an invalid parameter. It turned out that fuldir
! detects special directories such as nul: and cdr: so no extra
! tests were needed in cmsdir.
!
! X1.1-9
! Require files modified: JSYS.R36
! Modules modified: FILOPS.B32 & .B36, FIXUP.BLI, ROLBCK.BLI, VCNTRL.BLI
! VMS and TOPS-20 changes; implement a single routine, for each
! operating system, to do file truncation. This routine, TRUNCATE,
! is now used by FIXCRC and ROLBCK.
!
! X1.1-10
! Modules modified: DIROPS.BLI
! This is same as V1.0-3. Dirops modified to get rid of a multiple
! errormessage coming from SET LIB faulty-specification. (BJS)
!
! X1.1-11
! Modules modified: RECOVR.BLI
! Related to V1.0-4. Routine RECOVER_LOG modified so history file(s)
! are closed when file format/contents are not as expected.
!
! X1.1-12
! Modules modified: TRANSA.BLI, FIXUP.BLI
! Related to V1.0-5.
! QAR 224; Fixed most of QAR 224 (don't understand all of it).
! The protection for all files created in the library now includes
! append access, this allows a checksum to be appended by VER/REPAIR
! if necessary. Also, after a file's checksum is repaired, the
! file-header is fixed up using routine fixhdr since trnfil does
! not work for appended files.
!
! X1.1-13
! Modules modified: FILEIO.BLI
! Print debug messages (from /T_E_S_T_11:1) after Ctrl-C interrupts
! are re-enabled. This makes the disable window much smaller.
!
! X1.1-14
! Module modified: SHWLG2.BLI
! QAR 214; Fixed table to allow /READ_ONLY and /NOREAD_ONLY
! qualifiers of SET CLASS to appear as part of the sho history data.
! Corresponds to V1.0-6(BJS)
!
! X1.1-15
! Module modified: VERIFY.BLI
! QAR 240; Fixed the terms used in VERIFY.BLI so that Transaction
! file is always referred to as the FIN file and the element list
! file is now always referred to as the DEF file. Corresponds to
! V1.0-7(BJS)
!
! X1.1-16
! Modules modified: LIBRAR.BLI, SHOWLIB.BLI
! QAR 239; The missing message from this qar appeared when QAR 146
! was fixed. This caused the message that the user HAS connected to
! the library to NOT appear if the last transaction was an incomplete
! one. The identification of lib message was added before the "use
! verify/recover" message. Corresponds to V1.0-8 (BJS)
!
! X1.1-17
! Modules modified: CRELM.BLI,REPLAC.BLI
! QAR231; If a file could not be accessed because of privilege
! violations (it was protected ), cms reported simply that the
! element did not exist. Changed to give a "File protected from
! access " msg if that occurs. Corresponds to V1.0-9 (BJS)
! X1.1-18
! Modules modified:SHWLG2.BLI
! Error on Tops-20 in the code of the speeded up sho history.
! Only appeared on the 20. Did not have the problem on the
! Vax. Fixed with a ch$ptr ...(BJS)
!
! X1.1-19
! Modules modified: FILEIO.BLI
! QAR 217; Let SAFLIB do retries for the .LOK file. FILE$OPEN
! does retries for all oters.
!
! X1.1-20
! Modules modified: SHOLIB.BLI
! Returned a "sysmsg" back to a "say" message for sho library,
! which was done in X1.1-16, since the message is NOT supposed
! to give a success or failure message, but just to output the
! information that is requested by the command. (BJS)
!
! E1.1-20
! duplicate of X1.1-20, for use to internal non-cms users.
! Will be on the SPIT-20 and the METOO systems.
! NOTE: next change will be X1.1-21, and
! please change fac_message macro
! accordingly
!
! X1.1-21
! Modules modified: DIROPS.BLI
! QAR 105; TOPS-20 ONLY. Correct error message now generated
! for CMS SET LIB when directory does not exist. (SMM)
!
! X1.1-22
! Module modified: DATTIM.BLI
! The date in the ANNOTATE heading remained dd-aaa-82 on the 20.
! Change in 20-specific code to correspond with VMS version.
! (MM)
!
! X1.1-23
! Modules modified: ATTRIB.BLI, BATINL.BLI, BLISSX.REQ, CHKRES.BLI,
! CMPMRG.BLI, CMPTXT.BLI, COPY.BLI, CREATE.BLI, CRELM.BLI,
! DIFF.BLI, ERASE.BLI, ERRMSG.BLI, FILEIO.BLI, FILGEN.BLI,
! FILOPS.B32, FILOPS.B36, FIXUP.BLI, GETELM.BLI, IOLOG.BLI,
! JSYS.R36, LIBRAR.BLI, RECOVR.BLI, REPFIL.BLI, REPLAC.BLI,
! RESERV.BLI, RESFIL.BLI, ROLBCK.BLI, SETCLS.BLI, SHARE.BLI,
! SHWLOG.BLI, SHWRES.BLI, STSET.BLI, STSHOW.BLI, SYSIO.BLI,
! TERMNL.BLI, TRANSA.BLI and VERIFY.BLI
! Converted CMS to system specific IO. Created SYSIO.BLI where all of
! the new IO takes place, changed all IOB declarations and IO return
! codes. (JBS)
!
! X1.1-24
! Modules modified: LOGNAM.BLI, DIROPS.BLI
! QAR 248; Routine DELLOG never worked on the -20. The logical name
! CMS$LIB: was not deleted after an error in SET LIB occured.
! The changes in DIROPS.BLI involved removing TOPS-10 code that
! didn't work.
!
! X1.1-25
! Modules modified: BLISSX.REQ, ERRMSG.BLI
! QAR 253; Problem in QAR was an XPORT bug, however similar problem
! occured using new I/O package SYSIO. Changed WRITE_ERROR_XPORT
! to handle XPORT completion codes that are standard XPORT completion
! codes or system error codes.
!
! X1.1-26
! Modules modified: LANGME.REQ, COMAND.BLI, COMCOD.BLI, PARAMS.BLI
! QAR 246; TOPS-20 ONLY. Remove the '$_' prefix from all prompts.
!
! X1.1-27
! Modules modified: SYSIO.BLI, FILEIO.BLI, BLISSX.REQ, ERRMSG.BLI,
! JSYS.R36. A few problems were fixed all for the 20. First,
! io$close was not returning the correct status and the IOB was
! then not properly "unremembered". Second, the system status codes
! on the 20 do not conform to the BLISS standard that success = odd
! failure = even. So all system status codes are shifted left e bits.
! (JBS)
!
! X1.1-28
! Modules modified: sysio.bli, xpoerr.bli
! Xpoerr.bli had never been converted to accept the new systen status
! codes. Also IO$OPEN was not returning the any system status if the
! GTJFN jsys was failing. (JBS)
!
! X1.0-29
! Modules modified: DIROPS.BLI, SHARE.BLI, TRANSA.BLI, LIBRAR.BLI
! Fixed QAR 242: CMS now referes to your working directory to your
! default directory. Further it no longer searces your def dir for
! the 4 magical files but instead compared the directory ID of your
! cms lib and your def dir to see if your def dir is the cms lib (JBS)
!
! X1.1-30
! Modules modified: SYSIO.BLI
! Changed SYSIO\IO$GET to use the generalized TEXTI jsys for terminal
! input. This allows full editing (^W, ^R, DEL) of long input lines
! even across the boundries created by expanding the input buffer.
!
! X1.1-31
! Module modified: DIFF.BLI
! Because related files are no longer supported a problem arose getting
! the proper file spec for the diff output file. Now correct.
!
! X1.1-32
! Modules modified: STSHOW.BLI, TRANSA.BLI, SYSIO.BLI
! QAR 241 merged; err file now not world access
! QAR 244 merged; def file closed in SHWGEN
! QAR 103T; TOPS-20 handles cdr: as a input only NUL: device.
! SYSIO.bli was slightly changed so that this is not
! as apparent but the problem still lies with TOPS-20.
! The error theoretically should show up on the open.
! in reality though it doesn't until you try to write (JBS)
!
! E1.1-32
! duplicate of X1.1-32, for use to internal non-cms users.
! Will be put on SPIT20::PS:<FIELD-TEST>.
! NOTE: next change will be X1.1-33, and
! please change fac_message macro
! accordingly
!
! X1.1-33
! Modules modified: FILEIO.BLI, FILOPS.B36, LIBRAR.BLI
! QAR 256; ROLBCK was not working on TOPS-20 for INITIALIZE command.
! 1) If one of the library files can not be created, it is reported
! as an error instead of a BADLIB.
! 2) If a CRC record can not be written, an error is reported and
! ROLBCK invoked instead of being ignored.
! 3) If a file close operation fails, the ROLBCK lists are updated
! so file does not appear in both open and closed lists.
! 4) The .HIS file is no longer created in a separate step. It is
! now created by the call to LOGTRN. This avoids opening a file
! for OUTPUT (or APPEND) more than once which can not be handled
! by ROLBCK. (SMM)
!
! X1.1-34
! Module modified: ERRMSG.BLI
! system status used to call errsts was not shifted right 3 bits as stated
! by the new CMS standard.
!
! X1.1-35
! Modules modified: SYSIO.BLI, TERMNL.BLI
! 1) Added iob length checking to the io$xxx routines. They will
! now return an error code if an ininitialized iob is used.
! 2) Changed some BADXPO calls to BUGIOB in TERMNL.BLI.
!
! X1.1-36
! Modules modified: ERRMSG.BLI, SYSIO.BLI, SHWLOG.BLI, SHWLG2.BLI,
! ISLIBR.BLI, LEXICA.BLI, PARAMS.BLI
! QAR 258T: Show history does not have a problem deallocating stack
! buffers anymore.
! QAR 225: ISLIBR puts out a message as to why a directory is not a
! CMS library
! QAR 232: Comma lists were not parsed correctly.
! QAR 238: Truncated history records were killing CMS.
! PLUS: better file resolution for delete and rename on the 20.
!
! X1.1-37
! Modules modified: VERIFY.BLI,FILOPS.B32,FILOPS.B36
! Errormessage now correct when data files are lost from library.
! (BJS)
!
! X1.1-38
! Modules modified: STSHOW.BLI, LIBMSG.MSG, CHKLIB.BLI, SHWRES.BLI,
! LOGNAM.BLI
! QAR 259T: log file wasn't closed if wildcarding was used
! QAR 263: long library specs were not properally handled
! QAR 267: 00cms.res file left open if no res found
!
! X1.1-39
! Modules modified: FILEIO.BLI, SYSIO.BLI
! Fixed a VAX problem which killed us if we tried to read a mapped
! zero length file. Also took out the file and resultant specification
! saving (code hacks). (JBS)
!
! E1.1-40
! Modules modified: SYSIO.BLI, BLISSX.REQ, FILOPS.B36
! In case of an error the resultant file spec was not being filled
! in. Also the return code if a file is locked was wrong in blissx.
! Both bugs were on the TWENTY. An addition problem in WILDS was fixed.
! (JBS)
! ********** NOTICE THE E; CHANGEBACK TO X AND CHANGE THE fac_messge
!
! X1.1-41
! Module modified: SHWLOG.BLI
! Overwriting input buffer caused access violation since we do a RMS
! locate mode get. (JBS)
!
! X1.1-42
! Modules modified: ERASE.BLI, LIBMSG.MSG,RESERV.BLI,CMPMRG.BLI
! Changed s_elmrem to s_elmdel and modified the message to be output
! accordingly. (when an element is deleted, it should not be termed
! "removed"). Also changed message for s_nodelete to show that it
! couldn't delete the file because it didnt exist in the directory
! holding the cms library. This was QAR 271. Also changed the number
! of parameters passed to the routine N_COMN_NODE of CMPMRG (by
! RESERV) so that the element name can appear in error msgs along
! with the generations that are on same line of descent (QAR 272). (BJS)
!
! X1.1-43
! Modules modified: LIBMSG.MSG, ROLBCK.BLI, TRANSA.BLI, VCNTRL.BLI,
! VERIFY.BLI, SYSIO.BLI, SCONFG.REQ, VCNUSR.REQ, LIBMSG.B36
! Added the new VERIFY/REPAIR transaction protocol. Roll back and
! VERIFY/RECOVER complete and inturrepted VERIFY/REPAIR at the point
! it was inturrupted. (JBS)
!
! X1.1-44
! Modules modified: RESCAN.BLI
! CMS<cr> was reporting an error. (JBS)
!
! X1.1-45
! Modules modified: DIROPS.BLI
! CMS SET LIB FOO: where foo: --> foo: looped. (JBS)
!
! X1.1-46
! Module modified: SYSIO.BLI
! VMS verson 2 problem where mapped files are delimited wrong.
! Note that the fix assumes no zero length records in control files.
!
! X1.1-47
! Modules modified: FIXUP.BLI, VERIFY.BLI
! Fixed it so a protection problem does not kill us but instead
! tells and continues. Also fixed access viotation similiar to -46
!
! X1.1-48
! Modules modified: COPY.BLI, CREATE.BLI, ERASE.BLI, LIBRAR.BLI,
! REPLAC.BLI, RESERV.BLI, ROLBCK.BLI, SHARE.BLI, SHWRES.BLI,
! STSHOW.BLI, TRANSA.BLI
! QAR 268: ^C out of INIT left CMS$LIB: set to a non CMS lib
! QAR 269: Error message NOELEM now says what library the element
! was not found in.
! QAR 273: If you set you default to some crazy device you got
! a bug call. Now you get a error (it can't be avoided).
! QAr 274: The command canceled message is removed from SHOWS
! QAR 276: REPLACE had a potential bug call in roll back.
!
! X1.1-49
! Modules modified: TRANSA.BLI, FILEIO.BLI, SYSIO.BLI
! Fixed file wraparound and now set protection for repair file.(JBS)
!
! X1.1-50
! Module modified: SYSIO.BLI
! QAR 260T CMS FETCH/MERGE of a file with /HISTORY attribute failed.(JBS)
! X1.1-51
! Modules modified: FILEIO.BLI,SYSIO.BLI,ERASE.BLI,STSET.BLI
! QAR 227: Unclear rms msg is output to user when there is no
! disk space remaining. Change allows all 2nd completion codes
! to now be output. The rms problem remains that rms does NOT
! provide a 2nd completion code for this error. Has been reported
! to rms, and when they correct problem, CMS can then pick it up.
!
! QAR 279: Messages which said "already reserved" have been reworded
! to be clearer to user. Changed for set attrib, delete ele...(BJS)
!
! X1.1-52
! Module modified: SYSIO.BLI
! On a create element the checksum was getting boggled up for stream
! files inwhich the last 'record' was not terminated by a CRLF. The
! problem was that SIN does not strip off the trailing nulls so we have
! to in this case (JBS)
!
! X1.1-53
! Module modified: SYSIO.BLI
! Fix bug introduced by last fix. (JBS)
!
! X1.1-54
! Modules modified: SYSIO.BLI, CRELM.BLI, RESFIL.BLI, SEQCTL.BLI
! FIXUP.BLI, CHKLIB.BLI
! Fix cms's handling of pagemarks.
! CMs failed if it tried to fix a header of a file you don't own;
! now it issues a warning.
! CHKLIB did not work on V2.5 system. (JBS)
!
! X1.1-55
! Module modified: ERRMSG.BLI
! Changed method of outputting system error messages when called
! by s_syserr in CMS to conform with VMS "standards". QAR 281. (mm)
!
! X1.1-56
! Module modified: VERIFY.BLI
! You could not recover from a repair if there was another error
! error in the library (like a bad checksum) (JBS).
!
! X1.1-57
! Modules modified: LIBMSG.B36, SYSMSG.BLI
! Standardized the error message format for the 20, giving it
! a message code to identify each message. (mm)
!
! X1.1-58
! Module modified:BLISSX.REQ
! file not found returned instead of proteced file error message. (JBS)
!
! X1.1-59
! Modules modified: COMCOD.BLI, COPY.BLI
! Got rid of periods at end of error messages (mm)
!
! X1.1-60
! Modules modified: MAIN.BLI, ERRMSG.BLI
! 1) Added require file to MAIN.BLI so it will compile on -20.
! 2) Changed ERRMSG.BLI so the production version for TOPS-20 (not
! compiled with the /DEBUG switch) does not leave user in SIX12
! after a BUG call. See QAR 284. (sm)
!
! X1.1-61
! Module modified: SYSIO.BLI
! Fix end of file condition test compatable with VMS 2.5.(JBS)
!
! X1.1-62
! Modules modified: ERRMSG.BLI, SYSOPS.BLI
! Again changed format for SYSTEM error reporting (as in X1.1-55).
! (mm)
!
! X1.1-63
! Modules modified: DIFF.BLI
! Removed dots from error messages and changed the way the default
! output file name is generated for DIFF. The name is now based on
! the name part of the resultant file spec of master file.
!
! X1.1-64
! Modules modified: ERASE.BLI,RESERV.BLI,LIBMSG.MSG,LIBMSG.B36,
! CMPMRG.BLI
! In ERASE, give clearer msg if element does not exist in the library
! physically, but is still part of control files (when trying to delete
! it). Added s_WFETCHED and s_WRESERVED to LIBMSG.MSG and LIBMSG.B36
! and returned the total # of conflicts from CMPMRG as the value returned
! from the routine so that RESERV can key off of the fact that conflicts
! occurred in a merge to determine whether it is a successful fetch or
! reserve or a fetch or reserve with warnings.
!
! X1.1-65
! Modules modified: CMSTXT.BLI, COMUSR.REQ, CREATE.BLI, GRAMAR.BLI,
! LIBMSG,MSG, LIBMSG,B36, REPFIL.BLI, SETCLS.BLI, SPELLS.BLI
!
! 1) Changed all '_' and references to '_' in Tops20 switches to '-'s.
! 2) Added checksum checking to replace. (JBS)
!
! X1.1-66
! Modules modified: TERMNL.BLI
! QAR 294; Print message when image is terminated due to EOF
! during prompted input. (SM)
!
! X1.1-67
! Modules modified: RESERV.BLI
! Fixed ANN so badbug not generated if elem does not exits. (SM)OP
!
! X1.1-68
! Modules modified: RESFIL.BLI
! Changed wording of info message s_isthere; -20 says "... next
! file generation has been created." (SM)
!
!---------------------------------------------------------------------
! T1.1
! VERSION T1.1 !
!---------------------------------------------------------------------
! T1.1-1
! Modules modified: SYSIO.BLI
! Added correct end of file detection for mapped files on the VAX.
!
! T1.1-2
! Modules modified: SYSIO.BLi
! Corrected boundry condition of the above fix.
!
! T1.1-3
! Modules modified: SHWLG2.BLI
! Fix SPR 11-50216 ([sdev.doc.spr]spr3.rno). The SHOW HISTORY
! command was not allocation enough dynamic memory to process
! long lists of file name for multi-file elements.
!
! T1.1-4
! Modules modified: SYSIO.BLI
! Fix QAR 308, TOPS-20 only, IO$PUT does not correctly write
! records containing null characters.
!
! T1.1-5
! Module modified: RESERV.BLI
! Fix QAR 319, access violation on illegal element in library.
!
! T1.1-6
! Module modified: ERASE.BLI
! Fixed QAR 311, delete ele/all with multifile elements would not
! delete all of the files from the cms library directory if there
! was a space in a string qualifier value.
!
! T1.1-7
! Modules modified: ROLBCK.BLI, LIBMSG.MSG, LIBMSG.B36, ERASE.BLI,
! RECOVR.BLI
! QAR 323: made nodelete error message consistant.
! QAR 302: when delete ele/all encounters a protected file it
! renames it to 00cms.xxx like recover always did.
! QAR 307 & 317: ^C out of shows results in a strange return code.
! QAR 303: error message has wrong severity.
!
! T1.1-8
! Modules modified: CMPMRG.BLI, RESFIL.BLI
! Fixed QAR 234, Inappropriate "Cannot resolve merge, marked
! as conflict" errors.
!
! T1.1-9
! Modules modified: CRELM.BLI, ISLIBR.BLI, CMS.PCL
! QAR 305T; some error messages were not being printed correctly
! by module ISLIBR.
! QAR 306; This QAR contained two parts. First, the -20 PCL did not
! correctly handle the first qualifier after each file-name in
! CREATE ELEMENT. Second, the /NOKEEP qual was ignored in
! CREATE ELEMENT/RESERVE. Since the documentation did not say
! otherwise, I changed "CREATE ELEMENT/RESERVE/NOKEEP" to do the
! reserve and the delete.
!
! T1.1-10
! Modules modified: VCNTRL.BLI, TRANSA.BLI
! QAR 304 and 318: the presence of a 00cms.rep file without a 00cms.bad
! file would create a bug call on a verify/repair and
! make verify[/recover] behave strangely.
!
! T1.1-11
! Modules modified: LIBMSG.MSG, LIBMSG.B36, VCNTRL.BLI, RECOVR.BLI
! QAR 320: non-consecutive version number of files was making verify
! unnecessarily failing.
!
! T1.1-12
! Modules modified: LIBMSG.MSG, RECOVR.BLI, COPY.BLI, CRELM.BLI
! QAR 325: CREATE ELE and COPY ELE check the def file for existance
! of file rather than the library.
! Added warning if file renamed to 00cms.xxx.
! Removed a rollback causing error.
!
! T1.1-13
! Module modified: STSHOW.BLI
! QAR 322: SHOW GEN *.*/BRIEF/GEN:classname+
! The (+) was never implemented.
!
! T1.1-14
! Modules modified: sysio.bli, errmsg.bli, sysmsg,bli
! QAR 325: RMS errors were being reported improperly.
!
! T1.1-15
! Modules modified: copy.bli
! copy failed to close a file and thus caused funny errors.
!
!----------------------------------------------------------------------
!
! E1.1
! Module modified: VERSON.BLI
! Labelled engineering version of CMS for TOPS20
!
!----------------------------------------------------------------------
!
! V1.1
! Module modified: VERSON.BLI
! Labelled V1.1 version for VMS
!
!----------------------------------------------------------------------
!
! S1.1
! Module modified: VERSON.BLI
! Labelled S1.1 for the special RCA version
!
!----------------------------------------------------------------------
!
! V1.1
! Module modified: VERSON.BLI
! Replaced verson to V1.1 after making RCA special tape
! for TOPS20
!
!----------------------------------------------------------------------
!
! E1.1-1
! Modules modified: SYSIO.BLI, VERSON.BLI
! <LF> (control-j) bug fixed. A <CR><LF> sequence is used as a
! record terminator, a <CR> or a <LF> by itself is treated as
! a normal character in a record.
!
!----------------------------------------------------------------------
!
! T1.0
! Modules modified: VERSON.BLI
! To get correct version number for DEC/CMS-20 external field test
!
! Next person must change letter and update fac_name message
!-----------------------------------------------------------------------
!
! V1.1-1
! Modules modified: VERSON.BLI, CLIFACE.B32, LOGNAM.BLI, RESCAN.BLI
! Change for SYS$CLI calls to RTL calls for logical name and control-y
! handling which broke on V3B.
!
!----------------------------------------------------------------------------
!
! V1.1-2
! Modules modified: VERSON.BLI, CLIFACE.B32, COPY.BLI
! Typo in CLIFACE in enabling ctrl-y, wrong generation of copy
! went out for V1.1
!
!-----------------------------------------------------------------------------
!
! ???
! Modules modified: CMPTXT.BLI
! Fix QAR CMS-20/05. During a REPLACE records from input file were
! being coppid into a fixed length 256 byte buffer. The buffer size
! was increased to hold upto 3000 characters.
!
! CMS-20 VERSION V1.0
! Modules modified: VERSON.BLI
! Update version for external release of CMS-20
!
!-----------------------------------------------------------------------------
!
! Table of Contents:
!
forward routine
verson ; ! Return descriptor of version string.
!
! Include Files:
!
library 'XPORT:' ;
%if %bliss(bliss32) %then
library 'sys$library:starlet';
%else
require 'jsys:';
%fi
require 'BLISSX:' ;
require 'sconfg:';
!
! Macros:
!
! This is the definition of the current version
!
! The message issued will reflect the variation that is being
! built.
!
! The prefix letter that is included defines the support level of
! the particular product. The options are:
! B - benchmark version
! D - Demonstration version
! S - special customer version
! T - field test version
! V - released version (not internal only)
! X - unsupported experimental version
! E - engineering version for internal use only (this letter not in
! standard, but was proposed to Peter Conklin by Lee Rodabaugh).
!
! The messages that should be output are as follows:
!
! B - "fac_name Benchmark version B"
! D - "fac_name Demonstration version D"
! S - "fac_name Special version S"
! T - "fac_name Field Test version T"
! V - "fac_name Version V"
! X - "For Internal Digital Use Only. fac_name Experimental version X"
! E - "For Internal Digital Use Only. fac_name version E"
!
! For versions B, D, and S, customizing may be added to the message to
! signal the intent or purpose of the version.
!
! Please make sure that the appropriate message and character is used for
! any new variations we build from now on.
macro
fac_message = %string('DEC/CMS-20 Version V') %;
macro
fac_version = %string(%number(MajVersion),'.',
%number(MinVersion),
%if EditNumber neq 0 %then
'-',
%number(EditNumber)
%fi
) %;
macro !this macro simply puts the copyright into the object code
fac_comment = %string('COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983')%;
!
! Equated Symbols:
!
GLOBAL LITERAL
MajVersion = 1,
MinVersion = 0,
EditNumber = 0;
%if Tops10 or Tops20 %then
GLOBAL LITERAL ! create the version number to be
! put in .JBVER.
CMSVersion = MajVersion^24 or MinVersion^18 or EditNumber;
%fi
!
! Own Storage:
!
!
! External References:
!
global routine verson =
!++
! Functional Description:
!
! This routine returns the address of a descriptor to the
! FAC_VERSION string declared as a macro in this module.
! At run time the string will be in PLIT space.
!
! Formal Parameters:
!
! None
!
! Implicit Inputs:
!
! None
!
! Implicit Outputs:
!
! None
!
! Routine Value:
! Completion Codes:
!
! See above.
!
! Side Effects:
!
! None
!
!--
begin ! VERSON
lit(fac_comment);
lit(%string(fac_message,fac_version))
end ; ! VERSON
end ! Module VERSON
eludom