10 ;ACC02P - CREATE UNSORTED TRANS FILE FOR SOFTWARE ACCEPTANCE
20 DEFINE
30 	F1,D10	;HASH TOTAL FOR RECEIVALS
40 	F2,D10	;HASH TOTAL OF WITHDRAWALS
50 	F3,A1	;TRANSACTION TYPE
60 	F4,D9	;PART NUMBER
70 	F5,D7	;QUANTITY
80 	F6,D2	;MONTH
90 	F7,D2	;DAY
100 	F8,D2	;YEAR
110 	C1,A1,'R'
120 	C2,A1,'W'
130 	C3,D2,01
140 	C4,D2,12
150 	C5,D2,31
160 	C6,D2,72
170 	C7,D2,79
180 INPUT SYS
190 R	1
200 	F4	ERROR	CHECK	;PART NUMBER
210 	F5	ERROR	HASH F1	;QTY
220 	F3	=C1		;TYPE
230 W	1
240 	F4	ERROR	CHECK
250 	F5	ERROR	HASH F2
260 	F3	=C2
270 DATE
280 	F6	ERROR	RANGE (C3,C4)
290 	F7	ERROR	RANGE (C3,C5)
300 	F8	ERROR	RANGE (C6,C7)
310 OUTPUT  1	ACC02F/3
320 	F3	C
330 	F4	C
340 	F5	C
350 	F6
360 	F7
370 	F8
380 END