.;
.;	LB:[1,2]BYTDAG.CMD
.;
.;	VERSION 87-11-16
.;
.;	G\R REMOVE P] 3500 OCH G\R ENTER P] KORREKT K\RPLANSFIL
.;	STARTPARAMETER 1 GER BESKED OM RADIONS AKTUELLA DAGTYP
.;
.;	STARTAS AV BYTDAG.TSK VIA NEIGHTUP OCH VIA RUN I BOOT
.;	OM DET [R VIA NEIGHTUP S] [R REDAN UTKUPD INSTALLERAT (MED PRI=60.)
.;
.;BYTDAG.TSK F]R VIA ACCITY BESKED OM KORREKT DAGTYP INNAN DENNA FIL STARTAS
.;OM BYTDAG.TSK INTE KAN F] DETTA STARTAS FILEN MED PARAMETERN X
.;
.;	STARTAR SEDAN UTKUPD.TSK
.;
.;	AVSLUTAR MED ATT SKRIVA UT EVENTUELLA BREV ! (ENDAST OM EJ BOOT)
.;
.;	BOOT AVG\RS AV OM N]GON UTKB-HISTORIA VAR AKTIV !
.;
.;
.ENABLE SUBSTITUTION
.;
.SETS RDAG P1
.IF RDAG EQ "" .GOTO FELIN
.IF RDAG GT "8" .GOTO FELIN
.IF RDAG LT "1" .GOTO FELIN
.;
.;
.;
CHD 1 2
ASN =
.;
.IF RDAG EQ "X" .GOTO NETFEL
;
.IFNACT UTKLRM .GOTO NOTACT
ABO UTKLRM		!ST[NG AV UTK\RNINGSBEVAKNING
;**************************************************************************
;
;  VARNING - UTKLRM HADE INTE K\RT SLUT
;
;**************************************************************************
.WAIT UTKLRM
.NOTACT:
.IFINS UTKLRM REM UTKLRM
.GOTO BORJA
.;
.FELIN:
.;
.XQT LRM 155
;
;**** FEL INDATA TILL BYTUTKDAG
;
.GOTO XIT
.;
.NETFEL:
;**************************************************************************
;
;  EJ M\JLIGT ERH]LLA KORREKT UPPGIFT ANG]ENDE DAGTYP FR]N CITY::
;
;**************************************************************************
.XQT LRM 155
.GOTO XIT
.;
.;
.BORJA:
.;
.;	TAG REDA OCH KONVERTERA DAGENS DATUM TILL SVENSKA
.;	<DATE> [R I FORMAT DD-MMM-YY
.;
.PARSE <DATE> "-" DAG MANA AAR
.IF <STRLEN> NE 3 ;PARSE DATE
.IF <STRLEN> NE 3 .PAUSE
.IF MANA EQ "JAN" .SETS MAN "01"
.IF MANA EQ "FEB" .SETS MAN "02"
.IF MANA EQ "MAR" .SETS MAN "03"
.IF MANA EQ "APR" .SETS MAN "04"
.IF MANA EQ "MAY" .SETS MAN "05"
.IF MANA EQ "JUN" .SETS MAN "06"
.IF MANA EQ "JUL" .SETS MAN "07"
.IF MANA EQ "AUG" .SETS MAN "08"
.IF MANA EQ "SEP" .SETS MAN "09"
.IF MANA EQ "OCT" .SETS MAN "10"
.IF MANA EQ "NOV" .SETS MAN "11"
.IF MANA EQ "DEC" .SETS MAN "12"
.;
.SETS DATUM AAR+MAN+DAG
.;
.;	- \PPNA INDEXFILEN OCH FINN R[TT VERSION
.;
.SETF <EOF>
.;
.OPENR RA:[1,101]INDEX.VER
.IF <FILERR> NE 1 ;INDEX.VER KUNDE INTE \PPNAS
.IF <FILERR> NE 1 .GOTO INLFEL
.;
.READ IDATUM
.IFT <EOF> .GOTO INLFEL
.IF <FILERR> NE 1 ;GAMLA INDEX.VER KUNDE INTE L[SAS
.IF <FILERR> NE 1 .GOTO INLFEL
.;
.;J[MF\R I-DATUM MED DAGENS DATUM		
.;
.;OM I SENARE (ST\RRE):
.IF IDATUM LE DATUM .GOTO REPEAT
.;			  ======
.INLFEL:
;**************************************************************************
;
;  KORREKT UPPGIFT I RA:[1,101]INDEX.VER SAKNAS BETR[FFANDE G[LLANDE K\RPLAN
;  ELLER ALTERNATIVT SAKNAS K\RPLAN P] RA:[1,101]
;
;**************************************************************************
.XQT LRM 155
.GOTO XIT
.;
.;
.;
.REPEAT:
.;======
.;
.READ UDATUM
.IFT <EOF> .GOTO INLSTP
.IF <FILERR> NE 1 ;GAMLA INDEX.VER KUNDE INTE L[SAS
.IF <FILERR> NE 1 .GOTO INLFEL
.;
.;J[MF\R I-DATUM MED DAGENS DATUM		
.;
.;   I SENARE (ST\RRE):
.IF UDATUM LE DATUM .SETS IDATUM UDATUM
.IF UDATUM LE DATUM .GOTO REPEAT
.;			  ======
.;
.INLSTP:
.;======
.;
.CLOSE
.;
.TESTFILE RA:[1,101]U'IDATUM''RDAG'.ISF
.IF <FILERR> NE 1 .GOTO INLFEL
.;
.IFNINS VFU INS $VFU
RUN $VFU/IOP=NO/TASK=VFU/CMD="VFU /RE:3500"
RUN $VFU/IOP=NO/TASK=VFU/CMD="VFU RA:[1,101]U'IDATUM''RDAG'.ISF/EN:3500"
.;	DEFAULT = PRIORITET 1
.IFNINS UTKUPD INS BA:[166,300]UTKUPD/TASK=UTKUPD/CKP=NO
.IF <EXSTAT> NE 1 .GOTO UPDFEL
.;
RUN UTKUPD/EST=YES
.WAIT UTKUPD
; EXSTAT='<EXSTAT>'
.SETF NODICE
.;
.; H[R N[NDER N]T FAANSTYG
.;
.;
.GOTO NODD
.IF <EXSTAT> EQ 20. .SETT NODICE
.IFT NODICE .GOTO NODD
.IF <EXSTAT> NE 10. .GOTO UPDFEL
.;
.NODD:
.WAIT UTKUPD
REM UTKUPD
.IFNINS UTKLRM INS BA:[166,300]UTKLRM
.;
RUN UTKLRM
.;
.IFNINS UTKB26 INS BA:[166,300]UTKB26
.IFNINS UTKB27 INS BA:[166,300]UTKB27
.IFNINS UTKB30 INS BA:[166,300]UTKB30
.;
.;
.SETT BOOT
.IFACT UTKB26 .SETF BOOT
.IFACT UTKB27 .SETF BOOT
.IFACT UTKB30 .SETF BOOT
.;
.IFNACT UTKB26 RUN UTKB26
.IFNACT UTKB27 RUN UTKB27
.IFNACT UTKB30 RUN UTKB30
.;
;**************************************************************************
;
;  UTK\RNINGSBEVAKNING SKER MED DAGTYP 'RDAG' OCH ENLIGT K\RPLAN 'IDATUM'
;  '<DATE>' '<TIME>'
;
;**************************************************************************
;
.IFF NODICE .GOTO XIT
;
;**************************************************************************
;
;  O B S ! PGA DEN SENA TIMMEN HAR UTKUPD EJ BRYTT SIG OM ATT UPPDATERA
;          REGISTER 415 !
;
;**************************************************************************
;
.GOTO XIT
.;
.UPDFEL:
;**************************************************************************
;
;  UTKUPD HAR EJ KUNNAT UPPDATERA REGISTER 415 KORREKT !
;
;**************************************************************************
REM UTKUPD
.XQT LRM 155
.GOTO XIT
.;
.XIT:
.IFNDF BOOT .EXIT
.IFT BOOT .EXIT
;
;
.;
@LB:[1,2]PAPPER
;
.EXIT
.;
;	<EOF> LB:[1,2]BYTDAG.CMD
;