dp language



op type

1.	proc x (file file1)

2.		var z
3.		rec rec1
	
4.		create rec1 _custid custid, _trandate tdate, _amt 12.00

5.		append rec1 to tfile1

6.		calc x = y + z


7.		repeat while x > 0

		end rep


8.		repeat z times

		end rep


9.		create file2 as select file1.custid, file2.amount where file1.custid = file2.custid


	proc z

10.		call proc_y on file2		// process each record

11.		print report rep2

12.		write file2


13.		screen input scr1


