10 ;ACC06P - CREATE SECONDARY MASTER FILE
20 DEFINE
30 	F1,D10	;HASH-TOTAL OF QTY
40 	F2,D10	;UNIT COST
50 	F3,D10	;QTY ON HAND
60 	F4,D9	;PART NUMBER
70 	F5,A6	;DATE OF LAST RECEIVAL
80 	F6,A6	;DATE OF LAST WITHDRAWAL
90 	C1,D10,0000000001	;$.01
100 	C2,D10,0000015000	;$150.00
110 INPUT SYS
120 PART	1
130 	F4	ERROR	CHECK	;PART#
140 	F3	ERROR	HASH F1	;QTY
150 	F2	SKIP	RANGE (C1,C2)	;UNIT COST
160 	F5	SKIP		;RCV DATE
170 	F6	SKIP		;WTHDWL DATE
180 OUTPUT	1	ACC06F/7
190 	F4	C	;PART#
200 	F2		;COST
210 	F3	C	;QTY
220 	F5		;DATE
230 	F6		;DATE
240 END