10 REM **********************************************************************
20 REM *                                                                    *
30 REM *                    INV202 EDIT TRANSACTIONS                        *
40 REM *                    CERBERUS ASSOCIATES                             *
50 REM *                                                                    *
60 REM **********************************************************************
70 REM
80 REM THIS PROGRAM ALLOWS EDITING OF TRANSACTIONS PREVIOUSLY ENTERED IN THE
90 REM TRANSACTION FILE INV.TRS
1000 REM OPEN THE FILES USED BY THE PROGRAM
1010 INVTRS$="INV.TRS"
1020 NARCTR$="NAR.CTR"
1030 FILE INVTRS$(64)
1040 FILE NARCTR$(16)
1050 REM INV.TRS IS FILE #1 AND NAR.CTR IS FILE #2
2000 READ #2,1;NARINV,NARTRS
2010 INPUT "ENTER THE PART NUMBER YOU WANT TO EDIT E TO END  ";PTNUM$
2015 IF PTNUM$="E" THEN 9999
2016 IF END #1 THEN 2070
2020 REM SEARCH THE TRANSACTION FILE FOR THE ENTERED PART NUMBER
2030 FOR I=1 TO NARTRS-1
2040 READ #1,I;TC$,TRS01$,TRS02$,TRS03$,TRS04$,TRS05$,TRS06$,TRS07$
2050 IF TRS01$=PTNUM$ THEN 2500
2060 NEXT I
2070 PRINT "NO TRANSACTION EXISTS WITH THAT PART NUMBER"
2080 GOTO 2010
2500 REM DETERMINE IF THIS IS THE CORRECT TRANSACTION AND PERFORM THE EDIT
2510 PRINT "TRANSACTION CODE            ",TC$
2520 PRINT "PART NUMBER                 ",TRS01$
2530 PRINT "LOCATION                    ",TRS02$
2540 PRINT "QUANTITY                    ",TRS03$
2550 PRINT "DATE                        ",TRS04$
2560 IF TC$="O" THEN 3000
2570 IF TC$="R" THEN 2700
2580 PRINT "CUSTOMER NUMBER             ",TRS05$
2590 IF TC$="A" THEN 3000
2600 PRINT "PRICE PER UNIT              ",TRS06$
2610 IF TC$="X" THEN 3000
2620 PRINT "PREVIOUSLY ALLOCATED        ",TRS07$
2630 GOTO 3000
2700 PRINT "VENDOR NUMBER               ",TRS05$
2710 PRINT "COST PER UNIT               ",TRS06$
2720 PRINT "PREVIOUSLY ORDERED          ",TRS07$
3000 PRINT " "
3010  INPUT "IS THIS THE TRANSACTION WANTED ENTER Y OR N  ";HUH$
3020 IF HUH$="Y" THEN 3200
3030 IF HUH$="N" THEN 3100
3040 REM HERE IF BAD INPUT
3050 PRINT "INCORRECT INPUT ENTER Y OR N  "
3060 GOTO 3010
3100 I=I+1
3110 GOTO 2040
3200 REM WE HAVE FOUND THE RIGHT TRANSACTION NOW EDIT IT
3300 INPUT "CHANGE THE TRANSACTION CODE ENTER Y OR N  ";C$
3310 IF C$="N" THEN 3390
3320 IF C$="Y" THEN 3360
3330 PRINT " "
3340 PRINT "INCORRECT DATA ENTERED "
3350 GOTO 3300
3360 PRINT " "
3370 PRINT "TRANSACTION CODE IS           ",TC$
3380 INPUT "CHANGE TRANSACTION CODE TO    ";TC$
3390 PRINT " "
3400 INPUT "CHANGE THE PART NUMBER ENTER Y OR N  ";C$
3410 IF C$="N" THEN 3490
3420 IF C$="Y" THEN 3460
3430 PRINT " "
3440 PRINT "INCORRECT DATA ENTERED "
3450 GOTO 3400
3460 PRINT " "
3470 PRINT "PART NUMBER IS ",TRS01$
3480 INPUT "CHANGE PART NUMBER TO ";TRS01$
3490 PRINT " "
3500 INPUT "CHANGE THE LOCATION ENTER Y OR N  ";C$
3510 IF C$="N" THEN 3590
3520 IF C$="Y" THEN 3560
3530 PRINT " "
3540 PRINT "INCORRECT DATA ENTERED "
3550 GOTO 3500
3560 PRINT " "
3570 PRINT "LOCATION IS             ",TRS02$
3580 INPUT "CHANGE LOCATION TO  ";TRS02$
3590 PRINT " "
3600 INPUT "CHANGE QUANTITY ENTER Y OR N ";C$
3610 IF C$="N" THEN 3690
3620 IF C$="Y" THEN 3660
3630 PRINT " "
3640 PRINT "INCORRECT DATA ENTERED "
3650 GOTO 3600
3660 PRINT " "
3670 PRINT "QUANTITY IS       ",TRS03$
3680 INPUT "CHANGE QUANTITY TO ";TRS03$
3690 PRINT " "
3700 INPUT "CHANGE DATE ENTER Y OR N    ";C$
3710 IF C$="N" THEN 3790
3720 IF C$="Y" THEN 3760
3730 PRINT " "
3740 PRINT "INCORRECT RESPONSE "
3750 GOTO 3700
3760 PRINT " "
3770 PRINT "DATE IS      ",TRS04$
3780 INPUT "CHANGE DATE TO  ";TRS04$
3790 PRINT " "
3800 REM THE FOLLOWING ITEMS ARE DEPENDENT UPON THE TRANSACTION CODE FOR
3810 REM THEIR DEFINITION. IF THE TRANSACTION CODE WAS CHANGED DURING THE
3820 REM EDIT PROCESS THE SYSTEM ASSUMES THE NEW TRANSACTION CODE WHEN
3830 REM DETERMINING WHICH DEFINITIONS ARE APPROPRIATE
3900 IF TC$="O" THEN 5000
3910 IF TC$="R" THEN 4500
3920 REM I,A,AND X REMAIN
4000 INPUT "CHANGE CUSTOMER NUMBER ENTER Y OR N  ";C$
4010 IF C$="N" THEN 4090
4020 IF C$="Y" THEN 4060
4030 PRINT " "
4040 PRINT "INCORRECT RESPONSE "
4050 GOTO 4000
4060 PRINT " "
4070 PRINT "CUSTOMER NUMBER IS             ",TRS05$
4080 INPUT "CHANGE CUSTOMER NUMBER TO      ";TRS05$
4090 PRINT " "
4100 IF TC$="A" THEN 5000
4200 INPUT "CHANGE SELLING PRICE ENTER Y OR N ";C$
4210 IF C$="N" THEN 4290
4220 IF C$="Y" THEN 4260
4230 PRINT " "
4240 PRINT "INCORRECT RESPONSE "
4250 GOTO 4200
4260 PRINT " "
4270 PRINT "SELLING PRICE IS            ",TRS06$
4280 INPUT "CHANGE SELLING PRICE TO     ";TRS06$
4290 PRINT " "
4300 IF TC$="X" THEN 5000
4400 INPUT "CHANGE ALLOCATED FLAG ENTER Y OR N ";C$
4410 IF C$="N" THEN 5000
4420 IF C$="Y" THEN 4460
4430 PRINT " "
4440 PRINT "INCORRECT RESPONSE "
4450 GOTO 4400
4460 PRINT " "
4470 PRINT "ALLOCATED FLAG IS           ",TRS07$
4480 INPUT "CHANGE ALLOCATED FLAG TO    ";TRS07$
4490PRINT " "
4495 GOTO 5000
4500 REM THIS SECTION FOR TC$=R RECEIVED 
4510 REM 
4600 INPUT "CHANGE VENDOR NUMBER ENTER Y OR N ";C$
4610 IF C$="N" THEN 4690
4620 IF C$="Y" THEN 4660
4630 PRINT " "
4640 PRINT "INCORRECT RESPONSE "
4650 GOTO 4600
4660 PRINT " "
4670 PRINT "VENDOR NUMBER IS           ",TRS05$
4680 INPUT "CHANGE VENDOR NUMBER TO    ";TRS05$
4690 PRINT " "
4700 INPUT "CHANGE UNIT COST ENTER Y OR N ";C$
4710 IF C$="N" THEN 4790
4720 IF C$="Y" THEN 4760
4730 PRINT " "
4740 PRINT "INCORRECT RESPONSE "
4750 GOTO 4700
4760 PRINT " "
4770 PRINT "UNIT COST IS         ",TRS06$
4780 INPUT "CHANGE UNIT COST TO  ";TRS06$
4790 PRINT " "
4800 INPUT "CHANGE PREVIOUSLY ORDERED FLAG ENTER Y OR N ";C$
4810 IF C$="N" THEN 5000
4820 IF C$="Y" THEN 4860
4830 PRINT " "
4840 PRINT "INCORRECT RESPONSE "
4850 GOTO 4800
4860 PRINT " "
4870 PRINT "PREVIOUSLY ORDERED FLAG IS    ",TRS07$
4880 INPUT "CHANGE PREVIOUSLY ORDERED FLAG TO  ";TRS07$
4890 PRINT " "
5000 REM THE CHANGES HAVE BEEN MADE NOW WRITE THE NEW TRANSACTION DATA TO DISC
5010 PRINT #1,I;TC$,TRS01$,TRS02$,TRS03$,TRS04$,TRS05$,TRS06$,TRS07$
5020 REM RETURN TO MAIN ROUTINE AND ASK IF MORE EDITS
5030 GOTO 2010
9999 END