$! 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'"