.;		VO:[166,307]PUBREGKOP.SAT
.;
.;	VARNING ! .CMF [R DRIFT !
.;
.;	HISTORIK
.;	DATUM	NAMN		ORSAK
.;	830304	LARS-G\RAN	URUPPF\RANDE
.;	830806  BJ\RN-ERIK	LM: F\R 166,307 [NDRAT TILL VO: M.M. 
.;	830919	B-E TAPPER	TAR [VEN 560 OCH 380
.;	840412  B-E TAPPER	TAR [VEN 395,2000,2001; TAR EJ 282,1341,1345
.;	841125  B-E TAPPER	TAR [VEN 900
.;	850619  B-E TAPPER	TAR [VEN 540,541,542
.;	851113  B-E TAPPER	TAR [VEN 415,416
.;	851202  B-E TAPPER	TAR [VEN 225
.;	851202  B-E TAPPER	TAR [VEN 226
.;	861114  B-E TAPPER	TAR [VEN 417,418
.;	861121  B-E TAPPER	TAR [VEN 550
.;	870125  B-E TAPPER	TAR [VEN 2010
.;	8710??  B-E TAPPER	TAR [VEN 3020
.;	871112  B-E TAPPER	TAR [VEN 4100
.;	871116  B-E TAPPER	415 [NDRAD (414-419)
.;	880316  B-E TAPPER	TAR [VEN 430
.;	880415  B-E TAPPER	TAR [VEN 3050
.;	880425  B-E TAPPER	TAR [VEN 520,525
.;	880717  B-E TAPPER	TAR [VEN 3010
.;	880727  B-E TAPPER	TAR [VEN 400,800,810,820,1390. 253,1360 [NDRAD.
.;	880802  B-E TAPPER	TAR [VEN 360,361,362
.;	880808  B-E TAPPER	G\R /ZE: P] REGISTER EFTER ENTER
.;	880823  B-E TAPPER	3010->590, 3020->580
.;
.;	BESKRIVNING:
.;
.;	KOPIERAR PDISP:S REGISTER.(ANV[NDER ENBART MCR-KOMMANDON-INGA BATCHAR)
.;
.;	ALLOKERING AV DE NYA REGISTREN KAN SKE
.;	F\RE ELLER UNDER KOPIERINGSPROCESSEN. V[LJER VI ATT
.;	INTE ALLOKERA UNDER KOPIERINGSPROCESSEN S] ANTAGES ATT DE SENASTE
.;	REGISTREN HAR DE G[LLANDE STORLEKARNA.
.;
.;	KOMMANDOFILEN [R SKRIVEN I DEN STRUKTURERADE FORMEN SOM PASSAR "SAT".
.;	SAT FUNGERAR S] ATT MAN SKRIVER EN STRUKTURERAD INFIL MED EXT. .SAT.
.;	KOMMANDOT SAT CMDFIL,LSTFIL=SATFIL SKAPAR DEN EXEKVERBARA KOMMANDO-
.;	FILEN.
.;
	.ENABLE DECIMAL
	.IFNINS ...VFU INS $VFU
	.IFNINS ...VFU .EXIT
	.IFNACT VFSACP .EXIT
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.SETS UIC <UIC>
.REPEAT:
	SET /UIC='UIC'
	'POSIT'		!OK OCH EJ AVBROTT
		'PERFORM' INDATA	!EX ALLOKERA?, EDITERA? OSV
		SET /UIC=[166,301]
		'PERFORM' LASREGISTER	!V[LJ VILKET REGISTER
		'QUITIF'.IF REG EQ 0.	!SLUTA
		'WHILE'.IFT FELREG	!FELAKTIGT REGISTERNUMMER
			'PERFORM' REGISTERINFORMATION
			'PERFORM' LASREGISTER	!V[LJ VILKET REGISTER
			'QUITIF'.IF REG EQ 0.	!SLUTA
		'ENDDO'
		'PERFORM' TOLKA REGISTER	!HUR M]NGA ISFER?
		'PERFORM' ALLOKERINGSKOMMANDON	!L[SER PDISPALL.CMD
		'IF'.IF VFUAN NE REGANT	!FEL
			;ANTALET FUNNA REGISTER I PDISPALL.CMD ST[MMER INTE
			;MED DENNA KOPIERINGSRUTINS UPPGIFTER!
			;ANTALET I PDISPALL.CMD='VFUAN'
			;\NSKAT ANTAL='REGANT'
			'QUIT'
		'ENDIF'
		SET /UIC=[200,142]
		.SETN ANT 1.
		.SETN AKTREG REG	!STARTNUMMER P] REGISTER
		'WHILE'.IF ANT LE REGANT	!FLER REGISTER
			'PERFORM' KOPIERA REGISTER
			'PERFORM' EVENTUELL RENSNING	!TMP-FILER P] 200,142
			.INC ANT
			.INC AKTREG
		'ENDDO'
;		REGISTERKOPIERING KLAR!
	'ADMIT'		!FEL ELLER AVBROTT
	'ENDPOSIT'
	SET /UIC='UIC'
	.ASK EXTIT EXIT
	.IFT EXTIT .EXIT
	.GOTO REPEAT
.;
.;
.;
	'SECTION' INDATA
.;
	.ASK ALL :\NSKAR DU ALLOKERA ENLIGT PDISPALL.CMD ..
	'IF'.IFT ALL
		.ASK EDT :\NSKAR DU EDITERA PDISPALL.CMD ..
		'IF'.IFT EDT
			EDT VO:[166,307]PDISPALL.CMD
			.ASK PUR :PURGE P] PDISPALL.CMD ..
			'IF'.IFT PUR
				PIP VO:[166,307]PDISPALL.CMD/PU
			'ENDIF'
		'ENDIF'
		.SETT ZERO
	'ELSE'
		.ASK ZERO :\NSKAR DU G\RA ZERO P] REG F\RE ]TERSKRIVNING
	'ENDIF'
.;
	'ENDSECT'
	'PAGE'
	'SECTION' REGISTERINFORMATION
.;
	;PUB REGISTER!
	;225.=PERSONTILL[GGSREGISTRET
	;226.=ID-KORTS-ISF
	;230.=FASTA TILL[GG OCH AVDRADSREGISTRET
	;240.=BEFATTNINGSREGISTRET
	;250.=FR]NVAROREGISTRET
	;260.=\NSKEM]LSREGISTRET
	;270.=KOMMENDERINGSREGISTRET
	;280.=VAKANTA TJ[NSTPASSREGISTRET
	;290.=TJ[NSTPASSREGISTRET
	;300.=TJ[NSTG\RINGSLISTREGISTRET
	;310.=KALENDERREGISTRET
	;320.=OB-RAMREGISTRET
	;330.=T[TORTSTILL[GGSREGISTRET
	;340.=RESTIDSREGISTRET
	;350.=DAGSTJ[NSTPASSREGISTRET
	;360.=ANV[NDARREGISTRET
	;380.=BEH\RIGHET-F[LT-REGISTRET
	;395.=DAGSL\NEREGISTRET
	;400.=NYA PERSONREGISTRET
	;410.=AVL\SNINGSREGISTRET
	;415.=UTKBEVAKNINGSREGISTRET (414-419)
	;420.=K\RJOURNALREGISTRET
	;430.=KONSTANTREGISTRET
	;440.=M]NADSL\NEREGISTRET
	;450.=L\NEARTSREGISTRET
	;460.=EFTERRAPPORTERINGREGISTRET
	;470.=BYTESREGISTRET
	;480.=PERSON[NDRINGSREGISTRET
	;490.=L202 REGISTRET KORTTYP 1
	;500.=L203 REGISTRET
	;510.=L204/L205 REGISTRET
	;520.=F-KASSEREGISTRET
	;525.=F-KASSEKOPPLINGSREGISTRET
	;530.=L207 REGISTRET
	;540.=SEMESTERREGISTRET
	;550.=TRANSAKTIONSBEH\RIGHETS-REGISTRET
	;560.=PF-TANGENTREGISTRET
	;580.=BEFATTNINGSNUMMERREGISTRET
	;590.=SEKTIONSREGISTRET
	;800.=STATISTIKREGISTRET
	;810.=FASTA LISTPLAC. REGISTRET
	;820.=TILLF.LISTPLAC. REGISTRET
	;900.=CHARTERREGISTRET
	;1300.=L202 REGISTRET KORTTYP 2
	;1310.=L202 REGISTRET KORTTYP 3
	;1320.=L202 REGISTRET KORTTYP 4
	;1330.=L202 REGISTRET KORTTYP 5
	;1340.=MATCHNINGSREGISTRET
	;1350.=M\NSTRINGSREGISTRET
	;1360.=KONTOREGISTRET
	;1380.=BUFFERTREGISTRET F\R MATCHNINGEN
	;1390.=TJ[NSTTYPSREGISTRET
	;2000.=SEMESTERREGISTRET
	;2010.=SEMESTERKOPPLINGSREGISTRET
	;3050.=CHARTERREGISTRET
	;4100.=UTK.BEV.MEDDELANDEREGISTRET
.;
	'ENDSECT'
	'PAGE'
	'SECTION' LASREGISTER
	.SETN REG 0.
	.ASKN REG :VILKET REGISTER SKALL KOPIERAS ..
	'IF'.IF REG NE 0.
		'POSIT'		!REGISTER FEL
			.SETT FELREG
			'QUITIF'.IF REG EQ 225.
			'QUITIF'.IF REG EQ 226.
			'QUITIF'.IF REG EQ 230.
			'QUITIF'.IF REG EQ 240.
			'QUITIF'.IF REG EQ 250.
			'QUITIF'.IF REG EQ 260.
			'QUITIF'.IF REG EQ 270.
			'QUITIF'.IF REG EQ 280.
			'QUITIF'.IF REG EQ 290.
			'QUITIF'.IF REG EQ 300.
			'QUITIF'.IF REG EQ 310.
			'QUITIF'.IF REG EQ 320.
			'QUITIF'.IF REG EQ 330.
			'QUITIF'.IF REG EQ 340.
			'QUITIF'.IF REG EQ 350.
			'QUITIF'.IF REG EQ 360.
			'QUITIF'.IF REG EQ 380.
			'QUITIF'.IF REG EQ 395.
			'QUITIF'.IF REG EQ 400.
			'QUITIF'.IF REG EQ 410.
			'QUITIF'.IF REG EQ 414.
			'IF'.IF REG EQ 415.
				 .SETN REG 414.
				'QUIT'
			'ENDIF'
			'QUITIF'.IF REG EQ 420.
			'QUITIF'.IF REG EQ 430.
			'QUITIF'.IF REG EQ 440.
			'QUITIF'.IF REG EQ 450.
			'QUITIF'.IF REG EQ 460.
			'QUITIF'.IF REG EQ 470.
			'QUITIF'.IF REG EQ 480.
			'QUITIF'.IF REG EQ 490.
			'QUITIF'.IF REG EQ 500.
			'QUITIF'.IF REG EQ 510.
			'QUITIF'.IF REG EQ 520.
			'QUITIF'.IF REG EQ 525.
			'QUITIF'.IF REG EQ 530.
			'QUITIF'.IF REG EQ 540.
			'QUITIF'.IF REG EQ 550.
			'QUITIF'.IF REG EQ 560.
			'QUITIF'.IF REG EQ 580.
			'QUITIF'.IF REG EQ 590.
			'QUITIF'.IF REG EQ 800.
			'QUITIF'.IF REG EQ 810.
			'QUITIF'.IF REG EQ 820.
			'QUITIF'.IF REG EQ 900.
			'QUITIF'.IF REG EQ 1300.
			'QUITIF'.IF REG EQ 1310.
			'QUITIF'.IF REG EQ 1320.
			'QUITIF'.IF REG EQ 1330.
			'QUITIF'.IF REG EQ 1340.
			'QUITIF'.IF REG EQ 1350.
			'QUITIF'.IF REG EQ 1360.
			'QUITIF'.IF REG EQ 1380.
			'QUITIF'.IF REG EQ 1390.
			'QUITIF'.IF REG EQ 2000.
			'QUITIF'.IF REG EQ 2010.
			'QUITIF'.IF REG EQ 3050.
			'QUITIF'.IF REG EQ 4100.
			;FELAKTIGT REGISTERNUMMER!
		'ADMIT'		!REGISTER OK
			.SETF FELREG
		'ENDPOSIT'
	'ELSE'
		.SETF FELREG
	'ENDIF'
.;
	'ENDSECT'
	'PAGE'
	'SECTION' TOLKA REGISTER
.;
	.IF REG EQ 225. .SETN REGANT 1.
	.IF REG EQ 226. .SETN REGANT 1.
	.IF REG EQ 230. .SETN REGANT 2
	.IF REG EQ 240. .SETN REGANT 3.
	.IF REG EQ 250. .SETN REGANT 4.
	.IF REG EQ 260. .SETN REGANT 3.
	.IF REG EQ 270. .SETN REGANT 3.
	.IF REG EQ 280. .SETN REGANT 2.
	.IF REG EQ 290. .SETN REGANT 2.
	.IF REG EQ 300. .SETN REGANT 2.
	.IF REG EQ 310. .SETN REGANT 2.
	.IF REG EQ 320. .SETN REGANT 1.
	.IF REG EQ 330. .SETN REGANT 1.
	.IF REG EQ 340. .SETN REGANT 2.
	.IF REG EQ 350. .SETN REGANT 2.
	.IF REG EQ 360. .SETN REGANT 3.
	.IF REG EQ 380. .SETN REGANT 2.
	.IF REG EQ 395. .SETN REGANT 1.
	.IF REG EQ 400. .SETN REGANT 3.
	.IF REG EQ 410. .SETN REGANT 2.
	.IF REG EQ 414. .SETN REGANT 6.
	.IF REG EQ 420. .SETN REGANT 2.
	.IF REG EQ 430. .SETN REGANT 1.
	.IF REG EQ 440. .SETN REGANT 2.
	.IF REG EQ 450. .SETN REGANT 3.
	.IF REG EQ 460. .SETN REGANT 2.
	.IF REG EQ 470. .SETN REGANT 2.
	.IF REG EQ 480. .SETN REGANT 1.
	.IF REG EQ 490. .SETN REGANT 1.
	.IF REG EQ 500. .SETN REGANT 1.
	.IF REG EQ 510. .SETN REGANT 1.
	.IF REG EQ 520. .SETN REGANT 2.
	.IF REG EQ 525. .SETN REGANT 1.
	.IF REG EQ 530. .SETN REGANT 1.
	.IF REG EQ 540. .SETN REGANT 3.
	.IF REG EQ 550. .SETN REGANT 1.
	.IF REG EQ 560. .SETN REGANT 2.
	.IF REG EQ 580. .SETN REGANT 2.
	.IF REG EQ 590. .SETN REGANT 2.
	.IF REG EQ 800. .SETN REGANT 2.
	.IF REG EQ 810. .SETN REGANT 2.
	.IF REG EQ 820. .SETN REGANT 2.
	.IF REG EQ 900. .SETN REGANT 2.
	.IF REG EQ 1300. .SETN REGANT 1.
	.IF REG EQ 1310. .SETN REGANT 1.
	.IF REG EQ 1320. .SETN REGANT 1.
	.IF REG EQ 1330. .SETN REGANT 1.
	.IF REG EQ 1340. .SETN REGANT 4.
	.IF REG EQ 1350. .SETN REGANT 1.
	.IF REG EQ 1360. .SETN REGANT 2.
	.IF REG EQ 1380. .SETN REGANT 1.
	.IF REG EQ 1390. .SETN REGANT 2.
	.IF REG EQ 2000. .SETN REGANT 2.
	.IF REG EQ 2010. .SETN REGANT 3.
	.IF REG EQ 3050. .SETN REGANT 3.
	.IF REG EQ 4100. .SETN REGANT 4.
.;
	'ENDSECT'
	'PAGE'
	'SECTION' ALLOKERINGSKOMMANDON
.;
	.OPENR #0 VO:[166,307]PDISPALL.CMD
	.READ #0 INLINE
	.SETS KOD1 ""
	.SETS VARDE ""
	.SETN VFUAN 0.
	'WHILE' .IFF <EOF>	!L[S F\RBI EJ AKTUELLA RADER
		.PARSE INLINE ";=;" REST1 KOD1 VARDE REST2
		'IF'.IF KOD1 EQ "REG"
			.SETN IVARDE 'VARDE'.
			'BREAKIF'.IF REG EQ IVARDE
		'ENDIF'
		.READ #0 INLINE
	'ENDDO'
	.READ #0 INLINE	!RADEN EFTER REG= L[SES IN
	'WHILE'.IFF <EOF>	!FLER ALLOKERINGSKOMMANDON
		.SETS KOD1 ""	!F\R ATT SKIPPA KOMMENTARER
		.PARSE INLINE ";=;" REST1 KOD1 VARDE REST2
		'BREAKIF'.IF KOD1 EQ "REG"	!NYTT REGISTER
		'BREAKIF'.IF KOD1 EQ ""
		.PARSE INLINE "; " REST1 VFU FILKO
		.PARSE FILKO "/" FIL KOM
		.INC VFUAN
		'CASE' VFUAN
		'WHEN' 1.
			.SETS FILKO1 FILKO
			.SETS FIL1 FIL
		'WHEN' 2.
			.SETS FILKO2 FILKO
			.SETS FIL2 FIL
		'WHEN' 3.
			.SETS FILKO3 FILKO
			.SETS FIL3 FIL
		'WHEN' 4.
			.SETS FILKO4 FILKO
			.SETS FIL4 FIL
		'WHEN' 5.
			.SETS FILKO5 FILKO
			.SETS FIL5 FIL
		'WHEN' 6.
			.SETS FILKO6 FILKO
			.SETS FIL6 FIL
		'ENDCASE'
		.READ #0 INLINE
	'ENDDO'
	.CLOSE #0
.;
	'ENDSECT'
	'PAGE'
	'SECTION' KOPIERA REGISTER
.;
	VFU PB:[200,142]REG'AKTREG'.TMP=/FI:'AKTREG'
	.IF <EXSTAT> NE 1 ;EXSTAT='<EXSTAT>'
	.IF <EXSTAT> NE 1 .PAUSE
	VFU /RE:'AKTREG'
	.IF <EXSTAT> NE 1 ;EXSTAT='<EXSTAT>'
	.IF <EXSTAT> NE 1 .PAUSE
	'IF'.IFT ALL	!ALLOKERA NYTT REGISTER
		'CASE' ANT
		'WHEN' 1.
			VFU 'FILKO1'
		'WHEN' 2.
			VFU 'FILKO2'
		'WHEN' 3.
			VFU 'FILKO3'
		'WHEN' 4.
			VFU 'FILKO4'
		'WHEN' 5.
			VFU 'FILKO5'
		'WHEN' 6.
			VFU 'FILKO6'
		'ENDCASE'
	'ENDIF'
	'CASE' ANT
	'WHEN' 1.
		VFU 'FIL1'/EN:'AKTREG'
	'WHEN' 2.
		VFU 'FIL2'/EN:'AKTREG'
	'WHEN' 3.
		VFU 'FIL3'/EN:'AKTREG'
	'WHEN' 4.
		VFU 'FIL4'/EN:'AKTREG'
	'WHEN' 5.
		VFU 'FIL5'/EN:'AKTREG'
	'WHEN' 6.
		VFU 'FIL6'/EN:'AKTREG'
	'ENDCASE'
	.IF <EXSTAT> NE 1 ;EXSTAT='<EXSTAT>'
	.IF <EXSTAT> NE 1 .PAUSE
	'IF'.IFT ZERO
		VFU /ZE:'AKTREG'
		.IF <EXSTAT> NE 1 ;EXSTAT='<EXSTAT>'
		.IF <EXSTAT> NE 1 .PAUSE
	'ENDIF'
	VFU /FI:'AKTREG'=PB:[200,142]REG'AKTREG'.TMP	!SKRIV P] NYTT REG.
	.IF <EXSTAT> NE 1 ;EXSTAT='<EXSTAT>'
	.IF <EXSTAT> NE 1 .PAUSE
.;
	'ENDSECT'
	'PAGE'
	'SECTION' EVENTUELL RENSNING
.;
	.ASK OK :VILL DU TA BORT DEN SKAPADE TEMPOR[RFILEN ..
	'IF'.IFT OK
		PIP PB:[200,142]REG'AKTREG'.TMP;0/DE
	'ENDIF'
.;
	'ENDSECT'