Routine: BAREDL01

Name	Comments	DBIA/ICR reference
RESET	;EP; -- rebuilds array after action
HDR	;EP -- header code
EN(FLNM,FD)	;EP ; -- for the file type
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
INIT	;EP -- init variables and list array
GATHER(FLNUM)	; -- SUBRTN to set data into array
EXPND	;EP -- expand code
EXIT	;EP -- exit code
HELP	;EP -- help code

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("1T" - [#90056.01]	HDR+2
^TMP($J	EN+3!, EXIT+2!, GATHER+6!, GATHER+7!, GATHER+25, GATHER+26, GATHER+27*

Name	Field # of Occurrence
>> ARSUB	GATHER+9*, GATHER+15
>> COUNT	GATHER+11, GATHER+28
D	PAD~, PAD+2
>> DI	GATHER+19, GATHER+20, GATHER+22
FD	EN~, EN+5, HDR+3
>> FIELD	GATHER+22*, GATHER+23, GATHER+24
>> FILE	HDR+2
>> FLEN	GATHER+21, GATHER+23, GATHER+24
FLNM	EN~, EN+4
FLNUM	EN+4*, INIT+1, GATHER~, GATHER+15
L	PAD~, PAD+2
>> LN	GATHER+11, GATHER+25, GATHER+26, GATHER+27, GATHER+28
>> LST	GATHER+4*, GATHER+15
N	SP~, SP+1
>> RECNM	GATHER+10*
>> RECORD	GATHER+19, GATHER+24, GATHER+25, GATHER+26
>> RN	GATHER+17, GATHER+18, GATHER+20, GATHER+22
SEG	GATHER+8!
SEG(	GATHER+18, GATHER+20, GATHER+22
>> VALMBCK	RESET+2*
>> VALMCNT	INIT+2*
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+3*
>> VALMSG	HDR+1*
>> X	HELP+1*

Information