50 lines
1.5 KiB
Plaintext
50 lines
1.5 KiB
Plaintext
$! 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'"
|