10 ;ACC05P - CORRECT MASTER FILE
20 DEFINE
30 	F1,D9	;PART NUMBER
40 	F2,D10	;UNIT COST
50 	F3,D10	;QTY
60 	F4,A6	;DATE
70 	F5,A6	;DATE
80 UPDATE	ACC04F/5
90 INPUT	SYS/12
100 SORT	3
110 KEY	F1
120 OUTPUT	ACC05F/6
130 END
140 I 100000100 F2=5,F3=100,F4='030272',F5='030272'
150 C 100000400 F2=10
160 D 921111111
170 I 991000000 F2=200,F3=100,F4='030272',F5='030272'