RPG source code for a print program.


FMT	*	*.	1	...+...	2	...+...	3	...+...	4	...+...	5	...+...	6	...+...	7	...+.
***************	Beginning	of	data	*************************************
0001.00	**********************************************************************
0002.00	*	Program	Name:	CSC001
0003.00	*	Program	Text:	Customer	listing	of	all	accounts
0004.00	*	Date	Written:	11/07/00
0005.00	**********************************************************************
0006.00	*
0007.00	FCSCSTP	IF	E	K	DISK
0008.00	FQPRINT	O	F	132	PRINTER
0009.00	*
0010.00	*---------------------------------------------------------------------
0011.00	C	EXCEPT	Headings
0012.00	C	READ	CSCSTP	90
0013.00	C	DoW	*IN90	=	*Off
0014.00	C	EXCEPT	Detail
0015.00	C	READ	CSCSTP	90
0016.00	C	EndDo
0017.00	*
0018.00	C	Eval	*INLR	=	*On
0019.00	C	Return
0020.00	*
0021.00	OQPRINT	E	Headings	2	2
0022.00	O	UDATE	Y	13
0023.00	O	52	'COMPUSELL	CUSTOMER	LIST
0024.00	O	70	'PAGE'
0025.00	O	PAGE	75
0026.00	*
0027.00	O	E	Headings	2
0028.00	O	5	'CUST.'
0029.00	O	60	'LAST	ORDER'
0030.00	O	75	'BALANCE'
0031.00	*
0032.00	O	E	Headings	1
0033.00	O	6	'NUMBER'
0034.00	O	22	'FIRST	NAME'
0035.00	O	38	'LAST	NAME'
0036.00	O	57	'DATE'
0037.00	O	73	'DUE'
0038.00	*
0039.00	O	E	Detail	2
0040.00	O	CUSTNO	6
0041.00	O	CFNAME	22
0042.00	O	CLNAME	43
0043.00	O	ORDDAT	Y	58
0044.00	O	BALDUE	1	75
******************	End	of	data	****************************************






F3=Exit	F4=Prompt	F5=Refresh	F9=Retrieve	F10=Cursor	F11=Toggle
F16=Repeat	find	F17=Repeat	change	F24=More	keys