Routine: AZLPTLAB

Package	Total	Call Graph
VA Fileman	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
RD1
INIT	;ROUTINE TO SET UP VARIABLES
RDG	;READ NEXT GLOBAL RECORD
ERROR	; THIS ROUTINE WILL LOAD AN ERROR GLOBAL
WGLOBL	; ADD NEW CODE TO GLOBAL
ESPCS	; ELIMINATE TRAILING SPACES AND LEADING ZEROES

Name	Field # of Occurrence
^DIE	WGLOBL+3

Name	Line Occurrences
Function Call: WRITE	Prompt: *5 Line Location: AZLPTLAB+5
Function Call: WRITE	Prompt: !!,"E N D O F B U I L D " Line Location: AZLPTLAB+9
Function Call: WRITE	Prompt: !,"NUMBER OF RECORDS READ= ",RI Line Location: AZLPTLAB+10
Function Call: WRITE	Prompt: !,"BEGINING COUNT-RECORDS IN GLOBAL",DFN Line Location: AZLPTLAB+11
Function Call: WRITE	Prompt: !,"RECORDS ADDED TO GLOBAL",RTG Line Location: AZLPTLAB+12
Function Call: WRITE	Prompt: !!,"TOTAL RECORDS IN GLOBAL= ",DA Line Location: AZLPTLAB+14
Function Call: WRITE	Prompt: !,"ERRORS HAVE OCCURED, D ^%GL FOR ^DFMELAB" Line Location: AZLPTLAB+15
Function Call: WRITE	Prompt: !,"CURRENT TAPE CODE",V2 Line Location: RD1+5
Function Call: WRITE	Prompt: !,"SKIP CODE ALREADY ON FILE",GCD Line Location: ESPCS+3
Function Call: WRITE	Prompt: !,"SKIP CODE ALREADY ON FILE",GCD Line Location: ESPCS+5
Function Call: WRITE	Prompt: !,"RECORD INSERTED ",$E(REC,8,42) Line Location: WGLOBL+5
Function Call: WRITE	Prompt: !,"CURRENT GLOBAL CODE",GCD Line Location: RDG+3
Routine Call	DIE Line Location: WGLOBL+3

FileNo	Call Tags
^AUTTLAB - [#9999999.13]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLAB - [#9999999.13]	RDG+2
^AUTTLAB(0	INIT+4
^DFMELAB	INIT+1!, ERROR+1*

Name	Field # of Occurrence
BC1	AZLPTLAB+16!, RD1+4, INIT+1!, INIT+2*
BC2	AZLPTLAB+16!, RD1+6, INIT+1!, INIT+2*
BC3	INIT+1!
BC4	INIT+1!
>> DA	AZLPTLAB+14, WGLOBL+1, INIT+4
DFN	AZLPTLAB+11, AZLPTLAB+16!, RDG+1, INIT+1!, INIT+4*
DG	AZLPTLAB+16!, INIT+1!, INIT+4*
>> DIE	INIT+6*
>> DR	WGLOBL+2*
EC1	AZLPTLAB+16!, RD1+4, INIT+1!, INIT+2*
EC2	AZLPTLAB+16!, RD1+6, INIT+1!, INIT+2*
EC3	INIT+1!
F1	AZLPTLAB+16!, WGLOBL+2, INIT+1!, INIT+3*
F2	AZLPTLAB+16!, WGLOBL+2, INIT+1!, INIT+3*
F3	INIT+1!
F4	INIT+1!
GCD	AZLPTLAB+16!, ESPCS+2, ESPCS+3, ESPCS+4, ESPCS+5, RDG+1, RDG+2, RDG+3, INIT+1!, INIT+4*
>> I	AZLPTLAB+8, ESPCS+1
>> I2	ESPCS+4*
NEXT	AZLPTLAB+15, AZLPTLAB+16!, ERROR+1, INIT+1!, INIT+4
REC	AZLPTLAB+7, AZLPTLAB+8, AZLPTLAB+16!, RD1, RD1+2, RD1+3, RD1+4, RD1+6, WGLOBL+5, ERROR+1 , INIT+1!
RG	AZLPTLAB+16!, RDG+1, RDG+2, INIT+4
RI	AZLPTLAB+10, AZLPTLAB+16!, RD1+1, INIT+1!, INIT+4
RTG	AZLPTLAB+12, AZLPTLAB+16!, WGLOBL+1, INIT+1!, INIT+4
UDEV	AZLPTLAB+3, AZLPTLAB+4, AZLPTLAB+5, AZLPTLAB+7, AZLPTLAB+13, AZLPTLAB+16!, RD1, INIT+1!, INIT+5*
>> V1	RD1+4, ESPCS+1, WGLOBL+2
>> V2	RD1+5, RD1+6*, ESPCS+2, ESPCS+3, ESPCS+4, ESPCS+5, WGLOBL+2
>> Y	WGLOBL+4