From: SMTP%"DSJ@Data.Basix.COM" 10-JUN-1995 22:25:42.00 To: EVERHART CC: Subj: APRIL95.CMS X-FileServer: Digital Systems Journal source code files Date: Sat, 10 Jun 1995 19:22:49 -0700 Sender: DSJ-Mgr@Data.Basix.COM Errors-To: DSJ-Mgr@Data.Basix.COM Warnings-To: <> From: DSJ-Mgr@Data.Basix.COM Reply-To: DSJ@Data.Basix.COM Subject: APRIL95.CMS To: EVERHART@arisia.gce.com $ ECHO := WRITE SYS$OUTPUT $ ECHO "Start" $ $ CALL GET_HISTORY $ $ ECHO "History = ''HISTORY'" $ ECHO "" $ $ LATEST = F$ELEMENT(1,"*",HISTORY) $ ECHO "Latest = ''LATEST'" $ ECHO "" $ $ GENERATION = F$ELEMENT(0," ",LATEST) $ ECHO "Generation = ''GENERATION'" $ $ DATE = F$ELEMENT(1," ",LATEST) $ ECHO "Date = ''DATE'" $ $ TIME = F$ELEMENT(2," ",LATEST) $ ECHO "Time = ''TIME'" $ $ WHO = F$ELEMENT(3" ",LATEST) $ ECHO "Who = ''WHO'" $ ECHO "" $ $ EARLIEST = F$ELEMENT(5,"*",HISTORY) $ ECHO "Earliest = ''EARLIEST'" $ ECHO "" $ $ ECHO "End" $ $ EXIT $ $ GET_HISTORY: $ SUBROUTINE $! There will be no ENDSUBROUTINE or EXIT commands, $! but control will return to the calling program anyway. $ $ ECHO "In GET_HISTORY" $ $! The com file must be created with /HISTORY=" #H -" $! so that the continuation character ^ $! causes the concatenation of the first few lines. There is $! a limit to the length of the HISTORY symbol, but this $! simply means that no more than 3 generations are accessible. $! $ HISTORY :== - DEC/CMS REPLACEMENT HISTORY, Element CMS_EXAMPLE.COM - *7 24-FEB-1994 18:03:12 STRATON "got %DCL-W-UNDSYM, undefined symbol - check validity and spelling \IN\ so" - *6 24-FEB-1994 17:58:24 STRATON "checked for earliest version in HISTORY variable, the 3rd" - *5 24-FEB-1994 17:47:00 STRATON "added writes for gen, date, time, who" - *4 24-FEB-1994 17:11:59 STRATON "changed * to ""*"" in F$ELEMENT" - *3 24-FEB-1994 17:07:46 STRATON "added F$ELEMENT to print extract part of history" - *2 24-FEB-1994 16:49:54 STRATON "added forgotten history :== line" - *1 24-FEB-1994 16:44:13 STRATON "Initial file" - DEC/CMS REPLACEMENT HISTORY, Element CMS_EXAMPLE.COM - = # makefile ECHO=WRITE SYS$OUTPUT # # Beginning of target definitions # go: sub # ECHO "Start" ECHO "History = ''HISTORY'" ECHO "" LATEST = F$ELEMENT(1,"*",HISTORY) ECHO "Latest = ''LATEST'" ECHO "" GENERATION = F$ELEMENT(0," ",LATEST) ECHO "Generation = ''GENERATION'" DATE = F$ELEMENT(1," ",LATEST) ECHO "Date = ''DATE'" TIME = F$ELEMENT(2," ",LATEST) ECHO "Time = ''TIME'" WHO = F$ELEMENT(3," ",LATEST) ECHO "Who = ''WHO'" ECHO "" EARLIEST = F$ELEMENT(5,"*",HISTORY) ECHO "Earliest = ''EARLIEST'" ECHO "" ECHO "End" EXIT sub: ECHO "In sub" ! The makefile must be created with /HISTORY=" #H -" ! so that the continuation character ^ ! causes the concatenation of the first few lines. There is ! a limit to the length of the HISTORY symbol, but this ! simply means that no more than 3 generations are accessible. ! HISTORY :== - DEC/CMS REPLACEMENT HISTORY, Element MAKEFILE. - *5 9-MAR-1994 17:52:01 STRATON "long lines are split but without ending quotes on first and beginning on - second" - *4 9-MAR-1994 17:48:14 STRATON "removed call, get_history, and subroutine commands. Got error message due to - long line for gen 3 I think" - *3 9-MAR-1994 17:44:54 STRATON "with go: sub ... and \sub: \ CALL GET_HISTORY \ GET_HISTORY: \ SUBROUTINE - I got an %DCL-W-USGOTO, target of GOTO not found" - *2 9-MAR-1994 17:32:09 STRATON "works as one make region" - *1 8-MAR-1994 16:57:22 STRATON "" - DEC/CMS REPLACEMENT HISTORY, Element MAKEFILE. - = $ ECHO := WRITE SYS$OUTPUT $ ECHO "Start" $ $ CALL GET_HISTORY $ $ ECHO "History = ''HISTORY'" $ ECHO "" $ $ LATEST - F$ELEMENT(1,"*",HISTORY) $ ECHO "Latest = ''LATEST'" $ ECHO "" $ $ GENERATION = F$ELEMENT(0," ",LATEST) $ ECHO "Generation = ''GENERATION'" $ $ DATE = F$ELEMENT(1," ",LATEST) $ ECHO "Date = ''DATE'" $ $ TIME = F$ELEMENT(2," ",LATEST) $ ECHO "Time = ''TIME'" $ $ WHO = F$ELEMENT(3" ",LATEST) $ ECHO "Who = ''WHO'" $ ECHO "" $ $ EARLIEST = F$ELEMENT(5,"*",HISTORY) $ ECHO "Earliest = ''EARLIEST'" $ ECHO "" $ $ ECHO "End" $ $ EXIT $ $ GET_HISTORY: $ SUBROUTINE $! There will be no ENDSUBROUTINE or EXIT commands, $! but control will return to the calling program anyway. $ $ ECHO "In GET_HISTORY" $ $! The com file must be created with $! /HISTORY="$ HISTORY == $! F$FAO(""(AS)/!(AS)"",HISTORY,F$EDIT(""#H"",""UNCOMMENT""))" $! There is a limit to the length of the HISTORY symbol, but $! this simply means that no more than 3 generations are $! accessible. $! $ HISTORY :== "" $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" DEC/CMS REPLACEMENT HISTORY, Element TEST.COM","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" *4 14-MAR-1994 15:16:51 OHLMANN ""","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" *3 14-MAR-1994 15:15:11 OHLMANN "NEW REVISION USING","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" "CONTINUATION","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" *2 14-MAR-1994 14:53:21 OHLMANN "NEW FEATURE NOT ADDED"","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" *1 14-MAR-1994 14:31:08 OHLMANN "THIS IS A TEST OF THE","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT("""COMMENT"" FEATURE"","UNCOMMENT")) $ history == F$FAO("!(AS)/!(AS)",HISTORY,F$EDIT(" DEC/CMS REPLACEMENT HISTORY, Element TEST.COM","UNCOMMENT"))