Directory of image this file is from
This file as a plain text file

100 ; CLRGLW / GL - 310
110 ;
120 ;		DATE: 07/01/77
130 ;
140 ;		NOTICE: THE PROCESS AND ALL THE ROUTINES CONTAINED
150 ;		HEREIN ARE THE PROPRIETARY PROPERTY AND TRADE
160 ;		SECRETS OF MINI-COMPUTER BUSINESS APPLICATIONS, INC.
170 ;		EXCEPT AS PROVIDED FOR BY LICENSE AGREEMENT THIS CODE
180 ;		SHALL NOT BE DUPLICATED, USED OR DISCLOSED FOR ANY
190 ;		PURPOSE OR REASON, IN WHOLE OR IN PART, WITHOUT THE
200 ;		EXPRESS WRITTEN CONSENT OF MINI-COMPUTER BUSINESS
210 ;		APPLICATIONS, INC.
220 ;
230 ;		PGM TO CLEAR G/L WORK FILE TO ONE CONTROL RECORD
240 ;
250 ;		COMPILE: CLRGLW
260 ;		SAVE AS: CLRGLW
270 ;
280 RECORD GLWORK, C
290 		,A78
300 	RECCNT	,D4,	0001
310 	MAXCNT	,D4,	0272
320 RECORD BRACKS
330 		,A86,	']]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]'
340 PROC	1
350 	INIT (3,OUT,'GLWORK',3)
360 	XMIT (3,GLWORK)
370 WRLOOP,
380 	XMIT (3,BRACKS)
390 	INCR RECCNT
400 	IF (RECCNT.LT.MAXCNT) GO TO WRLOOP
410 	FINI (3)
420 	END