10 ;ACC03P - SORT TRAN FILE FOR SOFTWARE ACCEPTANCE
20 DEFINE
30 	F1,A1	;TRANS TYPE (R OR W)
40 	F2,A9	;PART NUMBER
50 	F3,D7	;QTY
60 	F4,A6	;DATE
70 INPUT	ACC02F/3
80 SORT	3/10,11,12
90 KEY	F2,F4(5,6),F4(1,4),F1
100 OUTPUT	ACC03F/4
110 END