.;
.;	GENOM DENNA KOMANDOFIL STARTAS 'ALLA' BATCHAR I PDISP-SYSTEMET.
.;
.;	DATUM		NAMN			ORSAK
.;	09-JUN-83	TORKEL HELLSTR\M	URUPPF\RANDE
.;	16-JUN-83	LARS-G\RAN OLSSON	FLER VAL
.;	23-JUN-83	LARS-G\RAN OLSSON	MENYANPASSAD
.;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.;
	.SETF BYTA		!TRUE VID BYTE AV PNR
	.SETF TJPKOP		!TRUE VID KOPIERING AV TJ.PASS
	.SETF MONSTR		!TRUE VID M\NSTRING.
	.SETF SKAPA		!TRUE OM [NDRINGAR MOT PERSON- ELLER
.;					FASTA TILL[GG/AVDRAGREG. SKALL
.;					GENERERA L202, L207 ELLER L203 POSTER.
	.SETF KSTART		!TRUE VID START AV \VERF\RING TILL KPAI
	.SETF KSTOPP		!TRUE VID STOPP AV \VERF\RING TILL KPAI
	.SETF NOLL		!TRUE VID NOLLST[LLNINGAR.
	.SETF ATER		!TRUE VID ]TERSKAPANDE AV BORTTAG. POST
	.SETF STAT		!TRUE VID STATISTIK \VER REGISTREN.
	.SETF L202		!TRUE OM PB:[200,142]L202.RJE FINNS.
	.SETF L203		!TRUE OM PB:[200,142]L203.RJE FINNS.
	.SETF L204		!TRUE OM PB:[200,142]L204.RJE FINNS.
	.SETF L205		!TRUE OM PB:[200,142]L205.RJE FINNS.
	.SETF L207		!TRUE OM PB:[200,142]L207.RJE FINNS.
	.SETF L215		!TRUE OM PB:[200,142]L215.RJE FINNS.
	.SETF L227		!TRUE OM PB:[200,142]L227.RJE FINNS.
	.SETF KOP		!TRUE VID NYALLOKERING AV REGISTER.
.;
.;****************************************************************************
.;
.;	STYRSEKTION
.;
.;****************************************************************************
.START:
	.SETS UIC <UIC>
	.IFINS VFU	VFU /CL
	.SETS VAL ""
	.SETT VALOK
	'PERFORM' A	LAES IN OCH TESTA VAL
	'WHILE' .IFF VALOK	!FEL VAL
;	
;	JAG SA JU ATT DU SKA V[LJA N]GOT AV OVANST]ENDE VAL!!!
;
	'PERFORM' A	LAES IN OCH TESTA VAL
	'ENDDO'
	'CASE' VAL
	'WHEN' "BYTPNR"
		'PERFORM' BYTA
	'WHEN' "KOPTJP"
		'PERFORM' TJPKOP
	'WHEN' "MONSTR"
		'PERFORM' MONSTR
	'WHEN' "PREG+FTA"
		'PERFORM' SKAPA
	'WHEN' "KPAISTART"
		'PERFORM' KSTART
	'WHEN' "KPAISTOPP"
		'PERFORM' KSTOPP
	'WHEN' "STATISTIK"
		'PERFORM' STAT
	'WHEN' "BORTTAG"
		'PERFORM' NOLL
	'WHEN' "]TERSKAPANDE"
		'PERFORM' ATER
	'WHEN' "\KAREG"
		'PERFORM' KOP
	'OTHER'
	'ENDCASE'
	SET /UIC='UIC'
	.EXIT
	'PAGE'
.;****************************************************************************
.;
.;	A	LAES IN OCH TESTA VAL
.;
.;****************************************************************************
.;
	'SECTION' A	LAES IN OCH TESTA VAL
.;
;	------------------M-E-N-Y-------------------------------------
;	"BYTPNR"	- BYTE AV PNR!
;	"KOPTJP"	- KOPIERING AV TJ[NSTPASS
;	"MONSTR"	- M\NSTRING (L\NEBER[KNING)
;	"PREG+FTA"	- [NDRINGAR MOT P-REG OCH FASTA T/A SKAPAS
;	"KPAISTART"	- STARTAR KOMMUNIKATION MED KPAI
;	"KPAISTOPP"	- STOPPAR KOMMUNIKATION MED KPAI
;	"STATISTIK"	- LISTAR UT STATISTIK P] PDISP-REGISTREN
;	"BORTTAG"	- TAR SELEKTIVT BORT POSTER P] PDISP-REGISTREN
;	"]TERSKAPANDE"	- ]TERSKAPAR TIDIGARE BORTTAGNA POSTER P] PDISP-REG.
;	"\KAREG"	- UT\KAR PDISP-REGISTREN
;	"CR"		- AVSLUTA
	.SETS VAL ""
	.ASKS VAL : V[LJ N]GOT AV OVANST]ENDE ALTERNATIV ..
	'POSIT'		!INDATA FEL
		.SETF VALOK
		'QUITIF' .IF VAL EQ "BYTPNR"
		'QUITIF' .IF VAL EQ "KOPTJP"
		'QUITIF' .IF VAL EQ "MONSTR"
		'QUITIF' .IF VAL EQ "PREG+FTA"
		'QUITIF' .IF VAL EQ "KPAISTART"
		'QUITIF' .IF VAL EQ "KPAISTOPP"
		'QUITIF' .IF VAL EQ "STATISTIK"
		'QUITIF' .IF VAL EQ "BORTTAG"
		'QUITIF' .IF VAL EQ "]TERSKAPANDE"
		'QUITIF' .IF VAL EQ "\KAREG"
		'QUITIF' .IF VAL EQ ""
	'ADMIT'		INDATA R[TT
		.SETT VALOK
	'ENDPOSIT'
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	BYTE AV PNR
.;
.;****************************************************************************
.;
	'SECTION' BYTA
.;
	RUN NAA940
	.WAIT NAA940
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	KOPIERING AV TJ[NSTPASS
.;
.;****************************************************************************
.;
	'SECTION' TJPKOP
.;
	RUN NAA970
	.WAIT NAA970
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	M\NSTRING
.;
.;****************************************************************************
.;
	'SECTION' MONSTR
.;
	RUN NAA640
.;	.WAIT NAA640
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	SKAPA PERSON- OCH/ELLER FASTA TILL[GG/AVDRAGS[NDRINGSPOSTER.
.;
.;****************************************************************************
.;
	'SECTION' SKAPA
.;
	'POSIT'		!OK
		SET /UIC=[10,1]
		PIP DR2:[273,301]GNAR480.ISF=DR1:[273,301]NAR480.ISF
		'IF'.IF <EXSTAT> NE 1
;	***FEL VID KOPIERING, EXITSTATUS = '<EXSTAT>' ***
			'QUIT'
		'ENDIF'
		SET /UIC='UIC'
		RUN NAA620
		.WAIT NAA620
		.WAIT NAA690
		.DELAY 5S
		'IF'.IF <EXSTAT> NE 1
;	***FEL I NAA620, EXITSTATUS = '<EXSTAT>' ***
			'QUIT'
		'ENDIF'
		VFU /ZE:480
	'ADMIT'		!FEL
	'ENDPOSIT'
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	KPAISTART
.;
.;****************************************************************************
.;
	'SECTION' KSTART
.;
	'POSIT'		!OK
		ASN PB:=SY:
		CHD 200 142
		SRD X.TMP=L2.RJE/SV
		.WAIT SRD
		.TESTFILE X.TMP
		.SETN I <FILERR>
		'IF'.IF I NE 1
;		X.TMP SAKNAS
			'QUIT'
		'ENDIF'
		.OPENR X.TMP
		.READ DATA	!L[SER F\RBI '** DR1:[200,142] 9-JUN-83  10:46'
		.READ DATA
		'IF'.IFF <EOF>
			'WHILE'.IFF <EOF>	!FLER
				.SETS KOLL DATA[1:4]
				.IF KOLL EQ "L202"	.SETT L202
				.IF KOLL EQ "L203"	.SETT L203
				.IF KOLL EQ "L204"	.SETT L204
				.IF KOLL EQ "L205"	.SETT L205
				.IF KOLL EQ "L207"	.SETT L207
				.IF KOLL EQ "L215"	.SETT L215
				.IF KOLL EQ "L227"	.SETT L227
				.READ DATA
			'ENDDO'
			.CLOSE
;	F\LJANDE FILER KOMMER ATT SKICKAS TILL KPAI:
;
			'IF'.IFT L202
;		L202	-	NYUPPL[GGNING AV PERSONREGISTERPOSTER!
			'ENDIF'
			'IF'.IFT L203
;		L203	-	NYUPPL[GG, [NDRING EL. BORTTAG AV FASTA TILL[GG/AVDRAG!
			'ENDIF'
			'IF'.IFT L204
;		L204	-	R[TTELSER AV L\NEPOSTER!
			'ENDIF'
			'IF'.IFT L205
;		L205	-	LUA!
			'ENDIF'
			'IF'.IFT L207
;		L207	-	[NDRINGAR MOT PERSONREGISTRET!
			'ENDIF'
			'IF'.IFT L215
;		L215	-	14:DAGARSL\N!
			'ENDIF'
			'IF'.IFT L227
;		L227	-	M]NMADSL\NEPOSTER!
			'ENDIF'
			SET /UIC=[10,1]
			PIP DR2:[273,301]GNAR440.BAF=DR1:[273,301]NAR440.BAF
			'IF'.IF <EXSTAT> NE 1
;	***FEL VID KOPIERING AV M]NADSL\NEPOSTER - EXSTAT= '<EXSTAT>***
				'QUIT'
			'ENDIF'
			PIP DR2:[273,301]GNAR441.ISF=DR1:[273,301]NAR441.ISF
			'IF'.IF <EXSTAT> NE 1
;	***FEL VID KOPIERING AV M]NADSL\NEPOSTER - EXSTAT= '<EXSTAT>***
				'QUIT'
			'ENDIF'
			CHD 200 142
			'IF'.IFT L202
				VFU /ZE:490
				VFU /ZE:1300
				VFU /ZE:1310
				VFU /ZE:1320
				VFU /ZE:1330
			'ENDIF'
			'IF'.IFT L203
				VFU /ZE:500
			'ENDIF'
			'IF'.IFT L204
				VFU /ZE:510
			'ENDIF'
			'IF'.IFT L205
				VFU /ZE:510
			'ENDIF'
			'IF'.IFT L207
				VFU /ZE:530
			'ENDIF'
			'IF'.IFT L215
.;	SAMMA REGISTER SOM L227!
			'ENDIF'
			'IF'.IFT L227
.;	M]NADSL\NEREGISTRET 440,441 RENSAS VIA NAA990 (2 M]NADERS LIVSL[NGD)
			'ENDIF'
			@KPAISTART
		'ELSE'		!INGET FINNS
;	INGA L2XX.RJE FILER FINNS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		'ENDIF'
	'ADMIT'		!FEL
	'ENDPOSIT'
	ASN DR:=SY:
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	KPAISTOPP
.;
.;****************************************************************************
.;
	'SECTION' KSTOPP
.;
	SET /UIC=[200,142]
	@PB:[200,142]KPAISTOPP
	PIP PB:RJE.LOG/UN
	PIP PB:RJE.LOG/EOF
	PRI PB:RJE.LOG
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	STATISTIK \VER REGISTREN
.;
.;****************************************************************************
.;
	'SECTION' STAT
.;
	@PB:[273,307]PBLSTAT
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	NOLLST[LLNINGAR
.;
.;****************************************************************************
.;
	'SECTION' NOLL
.;
	RUN NAA990
	.WAIT NAA990
;       DE BORTTAGNA POSTERN LIGGER NU P] OLIKA FILER BEROENDE P]
;       VILKET REGISTER DE H[RSTAMMAR FR]N.
;       T.EX. LIGGER POSTER FR]N FR]NVAROREGISTRET (250) P] FILEN
;       PB:[200,142]REG250.DEL.
;       DET [R L[MPLIGT ATT SL] IHOP DESSA FILER TILL EN STOR FIL/REGISTER.
;
        .ASK MERGE :VILL DU SL] IHOP FILERNA ..
	'IF'.IFT MERGE
		'POSIT'		!OK
		        SET /UIC=[200,142]
		        .IFNINS SRD INS $SRD
		        SRD PB:X.X=PB:REG.DEL
		        .OPENR #0 PB:X.X
		        .READ #0 RAD
		        .READ #0 RAD
		        .PARSE RAD ".;" NAME EXT VER
			'WHILE'.IFF <EOF>	!FLER
			        .SETS GNAME NAME
			        PIP PB:'GNAME'.'EXT'/NV=PB:'NAME'.'EXT';'VER'
				'QUITIF'.IF <EXSTAT> NE 1
				SET /UIC=[1,1]
				PIP PB:[200,142]'NAME'.'EXT';'VER'/DE
				'QUITIF'.IF <EXSTAT> NE 1
			        SET /UIC=[200,142]
				.READ #0 RAD
				.PARSE RAD ".;" NAME EXT VER
				'WHILE'.IF GNAME EQ NAME .IFF <EOF>
				        PIP PB:'GNAME'.'EXT';0=PB:'NAME'.'EXT';'VER'/AP
					'QUITIF'.IF <EXSTAT> NE 1
					SET /UIC=[1,1]
				        PIP PB:[200,142]'NAME'.'EXT';'VER'/DE
					'QUITIF'.IF <EXSTAT> NE 1
					SET /UIC=[200,142]
				        .READ #0 RAD
					.PARSE RAD ".;" NAME EXT VER
				'ENDDO'
			'ENDDO'
			SET /UIC=[1,1]
			PIP PB:[200,142]X.X;*/DE
		'ADMIT'		!FEL
;		***FEL VID KOPIERING***
		'ENDPOSIT'
	        .CLOSE #0
	'ENDIF'
	SET /UIC='UIC'
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	]TERSKAPANDE AV TIDIGARE BORTTAGNA POSTER
.;
.;****************************************************************************
.;
	'SECTION' ATER
.;
	RUN NAA980
	.WAIT NAA980
.;
	'ENDSECT'
	'PAGE'
.;****************************************************************************
.;
.;	UT\KNING AV REGISTER
.;
.;****************************************************************************
.;
	'SECTION' KOP
.;
;
;	OM DU EJ HAR KONTROLLERAT STORLEK F\R REGISTERALLOKERING I
;	[273,307]PDISPALL.CMD S] AVBRYT K\RNINGEN NU!!!!!!!!!!!!!!!!!
;
	@PB:[273,307]PBLREGKOP
.;
	'ENDSECT'