Routine: LR334P

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
DD	;Purge .001 from installed files
LOOP	;Loop through historical data and restore file
ERR	;Record data update error
MESLMI	; Notify LIM patch is installed.

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: LOOP+15
Function Call: WRITE	Prompt: "LRFDA("_LRCNT_","_LRFILE_","_LRIEN_","_LRFLD_") = "_@LRGLB,! Line Location: LOOP+16
Function Call: WRITE	Prompt: !,"ERROR" Line Location: ERR+1
Routine Call	DIC Line Location: LOOP+9
Routine Call	DIE Line Location: LOOP+18

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("LR334"	DD+6, LOOP+8, LOOP+21!, LOOP+22, LOOP+23, LOOP+27, LOOP+28, LOOP+29!, ERR+1*

Name	Line Occurrences
ERR	LOOP+19
MESLMI	LOOP+30

Name	Field # of Occurrence
DA	DD+2~, DD+3*
DA(1	DD+3*
DIK	DD+2~, DD+3*
ERR	LOOP+7~
LR642	LOOP+7~, LOOP+8*, LOOP+9
>> LRCNT	DD+9, LOOP+4, LOOP+14, LOOP+15, LOOP+16, LOOP+18, LOOP+20, LOOP+22, ERR+1, ERR+2
>> LRDA	DD+1*, DD+3
LRDATA	DD+5~, LOOP+4*, LOOP+5, LOOP+14, ERR+1
>> LRDBUG	LOOP+16, LOOP+21
LRERR	LOOP+17!, LOOP+19
LRFDA	DD+5~, DD+10!
LRFDA(	LOOP+14*, LOOP+20!, ERR+2!
>> LRFILE	DD+9, LOOP+2, LOOP+3, LOOP+6, LOOP+8, LOOP+9, LOOP+13, LOOP+14, LOOP+16, LOOP+21 , LOOP+23, ERR+1
>> LRFLD	LOOP+4*, LOOP+5, LOOP+13, LOOP+14, LOOP+16, LOOP+21, ERR+1
LRGLB	DD+5~, DD+9, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+16
LRIEN	LOOP+4, LOOP+5, LOOP+8, LOOP+9, LOOP+10!, LOOP+11, LOOP+12, LOOP+14, LOOP+16, LOOP+21 , LOOP+23, LOOP+26~, LOOP+27, LOOP+28, LOOP+29, ERR+1
U	LOOP+22, ERR+1
>> XPDNM	EN+1, MESLMI+4, MESLMI+8
XQA	MESLMI+1~
XQA("G.LMI"	MESLMI+5, MESLMI+9
XQAMSG	MESLMI+1~, MESLMI+4, MESLMI+8