Routine: IBP431

Entry Points

Name	Comments	DBIA/ICR reference
POST	;Called from IB2431 patch install
MAIL	;Send mail message
MOVE(PROG)	;Move existing field to new global node
RESET	;Restore original fields

Name	Line Occurrences (* Changed, ! Killed)
^IBM(361.1 - [#361.1]	MOVE+18, RESET+12, RESET+14, RESET+16, RESET+18!
^TMP(	POST+6!, POST+11!, MOVE+11, MOVE+22, MOVE+23, MOVE+24
^XTMP(	MOVE+9, MOVE+15, MOVE+18, MOVE+21*, MOVE+28
^XTMP("IBP431"	RESET+6, RESET+8

Name	Line Occurrences
$$MOVE	POST+8
MAIL	MOVE+26

Name	Field # of Occurrence
%	MOVE+6~, MOVE+11, MOVE+22
C	MOVE+6~, MOVE+7, MOVE+18, MOVE+24, RESET+2~, RESET+5, RESET+6, RESET+8
DIR	RESET+2~
DIR("A"	RESET+3*
DIR("B"	RESET+4*
DIR(0	RESET+4*
DT	MOVE+13, MOVE+15
DUZ	MAIL+2, MAIL+5
I	MOVE+6~, MOVE+18*, MOVE+23
M	MOVE+6~, MOVE+7, MOVE+11, MOVE+22, MOVE+23, MOVE+24*
N	MOVE+6~, MOVE+18, RESET+2~, RESET+8, RESET+10, RESET+12, RESET+14, RESET+16, RESET+18
OK	POST+4~, POST+8*, POST+9, POST+10
PROG	POST+4~, POST+5*, POST+6, POST+8, POST+11, MOVE~, MOVE+9, MOVE+11, MOVE+15, MOVE+18 , MOVE+21, MOVE+22, MOVE+23, MOVE+24, MOVE+28
U	MOVE+18, MOVE+21, RESET+8, RESET+14, RESET+16
VALUE	MOVE+6~, MOVE+18, RESET+2~, RESET+8, RESET+10, RESET+16
X	MOVE+6~, MOVE+15, MOVE+21
X1	MOVE+6~, MOVE+13*
X2	MOVE+6~, MOVE+13*
XMDUZ	MAIL+1~, MAIL+2*, MAIL+7
XMINSTR	MAIL+1~, MAIL+7
XMINSTR("FROM"	MAIL+6*
XMSUB	MAIL+1~, MAIL+4*, MAIL+7
XMTEXT	MAIL+1~, MAIL+3*, MAIL+7
XMY	MAIL+1~, MAIL+7
XMY(	MAIL+5*
Y	RESET+2~, RESET+4