;
;
; KOMMANDOFIL LB:[1,2]PUBREGENT.CMD --
;			-- G\R ENTER P] ALLA PDISP OCH GEMENSAMMA REGISTER
;
;
;	VERSION 88-01-24 B-E TAPPER
;
;	FIXA NY LOGFIL, SPARA DEN GAMLA
;
;
	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
.;
.;
.;
	.SETF PRTOUT	!F\R FELS\KNING
.;
.;
.;
.;
	.DISABLE QUIET
	.IFNINS VFSACP ;VFSACP EJ INSTALLERAD
	.IFNINS VFSACP .EXIT 4
	.SETF PIPNIN
	.IFNINS PIP .SETT PIPNIN
	.IFNINS PIP INS $PIP
	.IFNINS PIP ;PIP EJ INSTALLERBART
	.IFNINS PIP .EXIT 4
	.SETF VFUNIN
	.IFNINS VFU .SETT VFUNIN
	.SETN TIMS 0
.TRYIGN:
	.IFNINS VFU INS $VFU/IOP=NO
	.INC TIMS
	.IFNINS VFU .IF TIMS LT 20. .GOTO TRYIGN
	.IFNINS VFU ;VFU EJ INSTALLERBART
	.IFNINS VFU .EXIT 4
.;
.;********************* RENAME LOG FILE ************************
.;
	.SETS LOGFIL <DATE>[1:2]
	.SETS LOGFIL LOGFIL+<DATE>[4:6]
	.SETS LOGFIL LOGFIL+<DATE>[10:11]
	.SETS LOGFIL LOGFIL+<TIME>[1:2]
.;
	.IFNDF $REO .SETF $REO
	.IFT $REO .GOTO REORG
.;
	VFU LG:[166,301]'LOGFIL'.AFT/LF/LA/SI:100./CO/XA:10.
	.IF <EXSTAT> NE 1 .GOTO FAANB
	.TESTFILE LG:[166,301]'LOGFIL'.AFT
	.IF <FILERR> EQ 1 .GOTO HITT1
.;
.FAANB:
	.DISABLE QUIET
	;LOGFIL F\R LOG AFTER KUNDE INTE \PPNAS --- PAUS (RES ...AT. N[R KLAR)
	;EXITS STATUS '<EXSTAT>'
	.PAUSE
	.IFT $REO .GOTO REORG
.;
.HITT1:
	VFU LM:[166,301]LOGBEF.BEF/LF/LB
	.IF <EXSTAT> EQ 1 .GOTO HITT
.;
.FAANA:
	.DISABLE QUIET
	;LOGFIL F\R LOG BEFORE KUNDE INTE \PPNAS --- PAUS (RES ...AT. N[R KLAR)
	;EXITS STATUS '<EXSTAT>'
	.PAUSE
.;
	.IFT $REO .GOTO REORG
.;
.HITT:
	.DISABLE QUIET
.;
.;
.;			LOGGNING F\RE KOMMER ATT SKE
.;			VFU /EL/LB
	;LOGGNING F\RE KOMMER EJ ATT SKE
	VFU /IL/LB
.;
.;			LOGGNING EFTER KOMMER ATT SKE
.;			VFU /EL/LA
	;LOGGNING EFTER KOMMER EJ ATT SKE
	VFU /IL/LA
.;
	.IFF PRTOUT .ENABLE QUIET
	.GOTO ENTER
.;
.;
.REORG:
	VFU WN:[200,142]PUBLOG.TMP/LF/LA/SI:1./CO/XA:1.
	.IF <EXSTAT> NE 1 .GOTO FAANB
	.TESTFILE WN:[200,142]PUBLOG.TMP
	.IF <FILERR> NE 1 .GOTO FAANA
	;REORGANISERING -- LOGGNING KOMMER ICKE ATT SKE
	VFU /LF/LB
	VFU /IL/LA
	VFU /IL/LB
	.IFF PRTOUT .ENABLE QUIET
.;
;
;	G\R ENTER P] VTS GEMENSAMMA REGISTER
;
.ENTER:
	.IFF PRTOUT .ENABLE QUIET
	VFU @LB:[1,2]PUBREGENT.VFU
	.SETN EXST <EXSTAT>
	.IF EXST NE 1 .DISABLE QUIET
	.IF EXST NE 1 ;PUBREGENT SKET SIG
	.IF EXST NE 1 .PAUSE
;
	.IFT VFUNIN .IFINS VFU REM VFU
	.IFT PIPNIN .IFINS PIP REM PIP
	.EXIT 'EXST'
;
;	<EOF> PUBREGENT.CMD
;