;
; KOMMANDOFIL LB:[1,2]BATREM.CMD --- ABORT OCH REMOVE P] BATCHARNA
;
;	VERSION 88-08-14 B-E TAPPER
;
;	Dokumentation: se BATINS.SAT
;
;
;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.DISABLE QUIET
	.DISABLE DECIMAL
.;
.;
.;
	.SETS HASH "#"
	.SETS PLUS "+"
	.SETS COMM ";"
	.SETF <EOF>
.;
.;
	.IFNDF $BACKU .SETF $BACKU
	.IFNDF $PROUT .ASK $PROUT Utskrivna kommandon
.;
.;
	.IFT $BACKU .DISABLE QUIET
	.IFT $BACKU ;
	.IFT $BACKU ; BATREM -- OBSERVERA -- UTKBEV L[MNAS P]
	.IFT $BACKU ;
.;
.;
	.IFF $PROUT .ENABLE QUIET
	.IFT $PROUT .DISABLE QUIET
.;
.;	L[S REGISTERFILEN
.;
	.OPENR LB:[1,2]BATTSK
	.IF <FILERR> NE 1 .GOTO FEL
.;
.NXTSK:
	.READ INBUF
.;	;'INBUF'
	.IFT <EOF> .GOTO XIT
	.IF <FILERR> NE 1 .GOTO FEL
	.IF COMM EQ INBUF[1:1] .GOTO NXTSK
	.IF PLUS EQ INBUF[1:1] .GOTO UICREC
	.GOTO TASK
.;
.;
.UICREC:
	.PARSE INBUF "+#" TOMT PLATS STATUS RESTEN
	.IF <STRLEN> NE 4 .GOTO FELU
	.IF STATUS EQ "ALLINS" .GOTO NXTSK
	.IF STATUS EQ "UTKINS" .GOTO NXTSK
	.IF STATUS EQ "ALLTID" .GOTO NXTSK
	.IF STATUS EQ "RUNABT" .GOTO NXTSK
	.IF STATUS EQ "UTKBEV" .GOTO NXTSK
	.GOTO XIT
.;
.FELU:
	.DISABLE QUIET
	;Fel format p} indata i BATTSK.DAT till BATREM - UIC record.
	;INBUF='INBUF'
	;TOMT='TOMT'
	;PLATS='PLATS'
	;STATUS='STATUS'
	;RESTEN='RESTEN'
	.STOP
.FELT:
	.DISABLE QUIET
	;Fel format p} indata i BATTSK.DAT till BATREM - TASK record.
	;INBUF='INBUF'
	;PLATS='PLATS'
	;STATUS='STATUS'
	;FILE='FILE'
	;PRIO='PRIO'
	;SLAVE='SLAVE'
	;TNAME='TNAME'
	;RESTEN='RESTEN'
	.STOP
.;
.FEL:	.DISABLE QUIET
	;L[SFEL VID BATREM-- <FILERR> = '<FILERR>'
	;INBUF='INBUF'
	.STOP
.;
.TASK:
	.PARSE INBUF "#" FILE PRIO SLAVE TNAME RESTEN
.;
	.IF <STRLEN> NE 5 .GOTO FELT
.;
	.IF STATUS EQ "ALLINS" .GOTO NXTSK
	.IF STATUS EQ "UTKINS" .IFT $BACKU .GOTO NXTSK
	.IF STATUS EQ "UTKBEV" .IFT $BACKU .GOTO NXTSK
	.SETS TASK FILE
	.TEST TNAME
	.IF <STRLEN> NE 0 .SETS TASK TNAME
.;
.IGEN:
	.IFNACT 'TASK' .GOTO REMOK
	.DISABLE QUIET
	;'TASK' {r aktivt
	.ASK ABORT Ska det aborteras
	.IFF ABORT .PAUSE
	.IFT ABORT ABO 'TASK'
	.GOTO IGEN
.;
.REMOK:
	.IFINS 'TASK' REM 'TASK'
	.IFNINS 'TASK' .GOTO NXTSK
	.DISABLE QUIET
	;'TASK' kunde inte tagas bort : Exit status '<EXSTAT>'
	;R{tta till det.
	.PAUSE
	.GOTO REMOK
.;
.;
.XIT:
	.CLOSE
	.EXIT
;
; <EOF> BATREM.CMD
;