Added to repository.

accel/com/WRITELOG.COM

@@ -0,0 +1,49 @@
+$! KOMMANDOPROZEDUR FUER DEN AUSDRUCK DER HEADERZEILEN VON 'AC_nnnn.LOG'-Dateien
+$! =============================================================================
+$! 
+$ SET NOON
+$ SET NOVERIFY
+$ SAY := WRITE SYS$OUTPUT
+$ SET COMMAND accel$COMdirectory:DEF_MAKEWRITELOGOUT.CLD
+$ ! FILE MIT HEADERZEILEN ERSTELLEN LASSEN:
+$ IF P1 .EQS. ""
+$       THEN
+$       SAY "%WRITELOG: error: NO RUN NUMBER GIVEN IN COMMANDLINE"
+$       EXIT
+$ ENDIF
+$ IF P1 .EQS. "?"
+$       THEN
+$       SAY " "
+$       SAY " WRITEACLOG  runNr  [destinaton]"
+$       SAY " "
+$	SAY " destination not specified   ->   output to screen"
+$       SAY " "
+$       SAY " accepted destinations are: PSW04, PSW23, PRL, PRL2 (have to be given in upper case!)"
+$       SAY " "
+$       EXIT
+$ ENDIF
+$ IF (P2.NES."PSW04" .AND. P2.NES."PSW23" .AND. P2.NES."PRL" .AND. P2.NES."PRL2" .AND. P2.NES."")
+$ THEN
+$	SAY " "
+$	SAY " ""''P2'"" is not an accepted destination!"
+$	SAY " accepted destinations are: PSW04, PSW23, PRL, PRL2 (UPPER CASE ONLY!)"
+$	SAY " "
+$	EXIT
+$ ENDIF
+$!
+$ MAKEWRITELOGOUT "''P1'"
+$ OUTFILENAME = "accel$OUTdirectory:WRITELOG_" + "''P1'" + ".OUT;"
+$ say "''outfilename'"
+$ IF P2 .EQS. ""
+$       THEN
+$	TY 'OUTFILENAME'
+$	DELETE /NOCON 'OUTFILENAME'
+$	WRITE SYS$OUTPUT "================================================================================"
+$	EXIT
+$ ENDIF
+$ IF (P2.EQS."PRL" .OR. P2.EQS."PRL2")
+$       THEN
+$	PRL2 'OUTFILENAME' /del
+$	EXIT
+$ ENDIF
+$ VPP 'OUTFILENAME' /delete /dev=printer /form=listq /dest= "''P2'"