2 ! MOVES BATCH FILES TO GLFILE.EXP AT END OF MONTH
5 ! PROGRAM NAME:"MOVBT2" - BY JAC
10 OPEN "DK1:GLFILE.EXP[2,4]" AS FILE 1%
15 DIM #1%,U1$(4000%)=64%,U%(0%):O%=U%(0%)
20 OPEN "DK1:ACCPAY.INV" AS FILE 2%
25 DIM #2%,I1$(600%)=128%,I%(0%):N%=I%(0%)
35 FOR K%=1% TO N%
40 O%=O%+1%:U1$(O%)=MID(I1$(K%),38%,16%)+LEFT(I1$(K%),4%)+MID(I1$(K%),12%,16%)+
	MID(I1$(K%),6%,6%)+MID(I1$(K%),54%,5%)+MID(I1$(K%),65%,5%)+"6E"+
	MID(I1$(K%),29%,9%)+" ":NEXT K%
60 CLOSE 2%:OPEN "DK1:ACCPAY.PO" AS FILE 2%
65 DIM #2%,P1$(1000%)=64%,P%(0%):N%=P%(0%)
70 FOR K%=1% TO N%
75 O%=O%+1%:C$=MID(P1$(K%),38%,16%)+LEFT(P1$(K%),4%)+MID(P1$(K%),12%,17%)+"     "
80 D$=MID(P1$(K%),54%,5%)+"     MP"+MID(P1$(K%),29%,9%)+" "
85 U1$(O%)=C$+D$:NEXT K%
95 CLOSE 2%:OPEN "DK1:ACCREC.BNK" AS FILE 2%
100 DIM #2%,B1$(250%)=64%,B%(0%):N%=B%(0%)
105 FOR K%=1% TO N%
110 O%=O%+1%:C$=MID(B1$(K%),35%,16%)+LEFT(B1$(K%),4%)+MID(B1$(K%),6%,20%)+"  "
115 D$="     "+MID(B1$(K%),51%,5%)+"3E"
120 U1$(O%)=C$+D$+MID(B1$(K%),26%,9%)+" ":NEXT K%
130 CLOSE 2%:OPEN "DK1:ACCREC.CSH" AS FILE 2%
135 DIM #2%,C1$(500%)=64%,C%(0%):N%=C%(0%)
140 FOR K%=1% TO N%
145 O%=O%+1%:C$=MID(C1$(K%),35%,16%)+LEFT(C1$(K%),4%)+MID(C1$(K%),6%,20%)+"  "
150 D$="     "+MID(C1$(K%),51%,5%)+"3E"
155 U1$(O%)=C$+D$+MID(C1$(K%),26%,9%)+" ":NEXT K%
165 CLOSE 2%:OPEN "DK1:GLFILE.BDG" AS FILE 2%
170 DIM #2%,M1$(500%)=64%,M%(0%):N%=M%(0%)
175 FOR K%=1% TO N%
180 O%=O%+1%:C$=MID(M1$(K%),36%,16%)+LEFT(M1$(K%),4%)+MID(M1$(K%),6%,21%)+" "
185 D$=SPACE$(10%)+"2B"+MID(M1$(K%),27%,9%)+" "
190 U1$(O%)=C$+D$:NEXT K%
200 CLOSE 2%:OPEN "DK1:ACCPAY.PKC" AS FILE 2%
205 DIM #2%,H1$(500%)=64%,H%(0%):N%=H%(0%)
210 C1$="201020":C2$="201050":C3$="201040":C4$="201060":C5$="      "
215 FOR K%=1% TO N%
220 C$=MID(H1$(K%),48%,6%)
225 IF C$=C1$ OR C$=C2$ OR C$=C3$ OR C$=C4$ OR C$=C5$ THEN 245
230 O%=O%+1%:U1$(O%)=MID(H1$(K%),38%,16%)+LEFT(H1$(K%),4%)+MID(H1$(K%),12%,16%)+
	MID(H1$(K%),6%,6%)+"     "+MID(H1$(K%),54%,5%)+MID(H1$(K%),63%,1%)+"E"+
	MID(H1$(K%),29%,9%)+" "
245 NEXT K%
250 CLOSE 2%:OPEN "DK1:ACCREC.YEL" AS FILE 2%
255 DIM #2%,Y1$(100%)=64%,Y%(0%):N%=Y%(0%)
260 FOR K%=1% TO N%
265 O%=O%+1%:C$=MID(Y1$(K%),37%,16%)+LEFT(Y1$(K%),4%)+MID(Y1$(K%),6%,22%)
270 D$="     "+MID(Y1$(K%),53%,5%)+"3E"
275 U1$(O%)=C$+D$+MID(Y1$(K%),28%,9%)+" ":NEXT K%
285 CLOSE 2%:OPEN "DK1:GLFILE.JV" AS FILE 2%
290 DIM #2%,V1$(1000%)=64%,V%(0%):N%=V%(0%)
295 FOR K%=1% TO N%
300 O%=O%+1%:C$=MID(V1$(K%),36%,16%)+LEFT(V1$(K%),4%)+MID(V1$(K%),6%,21%)+" "
305 D$=MID(V1$(K%),52%,5%)+"     3E":U1$(O%)=C$+D$+MID(V1$(K%),27%,9%)+" "
310 NEXT K%
315 U%(0%)=O%:CLOSE 1%,2%
320 END