10 REM - PROGRAM NAME: "EXP015"
15 REM - USED TO MAKE CHANGES TO TRANS FILE RECORDS
20 OPEN "DF:TRANS.NEW" AS FILE 2
30 DIM #2,B$(5000)=46
40 OPEN "CR:" FOR INPUT AS FILE 3
50 INPUT LINE #3, S$
60 ON ERROR GOTO 900
70 LET J$=MID(S$,42,7)         !ACCT NO
80 LET K$=MID(S$,3,4)          !PO NUMBER
90 LET L$=MID(S$,80,1)         !IDENT
100 LET M$=MID(S$,7,8)         !INVOICE NUMBER
110 LET P$=MID(S$,35,7)        !CURRENT INVOICE NUMBER
120 LET Q$=MID(S$,76,4)        !VENDOR NUMBER
125 LET N$="       "            !BLANK OUT PO AMT
130 LET R$="0"                 !CLEAR STATUS
135 LET O$="0000000"            !ZERO OUT ACCUM INVOICE AMT
140 LET A$=J$+K$+L$+M$+N$+O$+P$+Q$+R$
150 FOR X=1 TO 5000
160 LET C$=B$(X)
170 IF MID(C$,1,20)=MID(A$,1,20) THEN 300
180 NEXT X
190 STOP
300 LET B$(X)=A$
310 GOTO 50
900 IF ERR=13 THEN 1000        !PICK CHECK
910 IF ERR=11 THEN 1050        !EOF
920 IF ERR=14 THEN 1000        !HOPPER FULL
930 IF ERR=65 THEN 1000        !STACKER FULL
940 PRINT "ERROR =";ERR
950 GOTO 1050
1000 STOP
1010 GOTO 50
1050 CLOSE 2,3
1060 STOP
1070 END