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

12 ;**************************
22 ; SOURCE  PRINT2
32 ;**************************
42 ;*********************************************
52 ; THE FOLLOWING ARE USED ONLY BY 'GENRAT'
62 ;*********************************************
72 ;
82 RECORD	WORKB	;WORK AREA
92 DESCRP,	A3	;TO HOLD NUMERIC FIELDS
102 PLSIZ,	D3	;SIZE OF CURRENT PROGRAM LINE
112 TEMP4,	D4	;TEMP
122 TOPLEV,	D2	;NUMBER OF LEVEL BREAKS
132 HIBRK,	A1	;HIGHEST BREAK
142 LOBRK,	A1	;LOWEST BREAK
152 HOLDHS,	D3
162 OCOL,	D3
172 HCOL,	D3
182 RECORD		;CONSTANTS
192 PREC01,	A9,',       A'
202 SPACPC,	A22
212 FORM21,	A11,'FORMS (2,1)'
222 PROGF,	A6,'$RPG  '	;SCRATCH FILE NAME
232 SPACE6,	A6	;SIX SPACES
242 ;
252 RECORD PRGREC	;CURRENT PROGRAM LINE
262 PRGLIN,	A126
272 	RECORD,X
282 	,A8
292 PRGSTM,	A118
302 ;
312 RECORD		;DEFINITION OF GENERATED SCRATCH RECORD
322 WRKSC,	D2,05	;NUMBER OF ITEMS
332 WRKSV,	5A12	;THE ITEMS
342 	RECORD,X
352 ,	D2
362 ,A12,'XXPAGE, D4  '
372 ,A12,'XXDATE, D6,D'
382 ,A12,'XXLINE, D2  '
392 ,A12,'XXLEVL, D2  '
402 ,A12,'XXLEVX, D2  '
412 ;
422 RECORD
432 ,A15,'XMIT (2,XXRHDR)'
442 ,A15,'XMIT (2,XXHDR1)'
452 ,A15,'XMIT (2,XXHDR2)'
462 ,A15,'XMIT (2,XXHD00)'
472 ,A15,'XMIT (2,XXPLIN)'
482 	RECORD,X
492 XMIT2,	5A15
502 ;
512 RECORD
522 ,A11,'CALL XXTOTX'
532 ,A11,'CALL XXTOTY'
542 ,A11,'CALL XXRESX'
552 ,A11,'CALL XXTOF2'
562 ,A11,'GOTO XXCOMP'
572 ,A11,'GOTO XXRES '
582 ,A11,'GOTO XXREAD'
592 ,A11,'CALL XXTOTZ'
602 ,A11,'CALL XXSUM '
612 	RECORD,X
622 CALLER,	9A11
632 ;
642 RECORD
652 ,A31,'RECORD  XXRHDR  ;PAGE HEADING  '
662 ,A31,'RECORD  XXINPR  ;INPUT         '
672 ,A31,'RECORD  XXPLIN  ;LISTING       '
682 ,A31,'RECORD  XXHDR1  ;HEADER #1     '
692 ,A31,'RECORD  XXHDR2  ;HEADER #2     '
702 ,A31,'RECORD          ;WORK REGISTERS'
712 ,A31,'RECORD          ;PICTURES      '
722 ,A31,'RECORD          ;TOTAL TITLES  '
732 	RECORD,X
742 GENREC,	8A31