Routine: SR63NTEG

Information

SR63NTEG ;ISC/XTSUMBLD KERNEL - checksum checker for SR*3*63 ; [ 03/11/97 6:01 AM ]

Source file <SR63NTEG.m>

Name	Comments	DBIA/ICR reference
CONT
POST	; postinit action for SR363 ; task install notification message
QMSG	; queue install message
END
MSG	; send mail message to national database
ONE
ROU	;;
SROACOM	;;11015177
SROAEX	;;11939512
SROALET	;;12202080
SROAOP	;;11502784
SROAOP1	;;9224911
SROAPCA1	;;13076237
SROAPRT3	;;8939450
SROAUTL	;;16245453
SROAUTL0	;;14573054
SROAUTL2	;;10114043
SROAUTL3	;;9279919
SROBTCH	;;2174143
SROCANUP	;;5614462
SRONON1	;;13612241
SROPR01	;;9382874
SROPR02	;;8863555
SROPRPT	;;1376841
SROPRPT1	;;10129667
SROPRPT2	;;8546460
SRORAT1	;;10155202
SRORAT2	;;6017781
SRORATA	;;4643550
SRORATP	;;5406287
SROSCH	;;10362309
SROSCH1	;;13144564

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checksum routine created on ",$P(X,";",4),", by KERNEL V",$P(X,";",3),! Line Location: SR63NTEG+3
Function Call: WRITE	Prompt: ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok") Line Location: CONT+0
Function Call: WRITE	Prompt: !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),! Line Location: ONE+0
Function Call: WRITE	Prompt: !,"Check a subset of routines:" Line Location: ONE+1
Function Call: WRITE	Prompt: ! Line Location: ONE+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	POST+2
^%ZOSF("RSEL"	ONE+1
^%ZOSF("RSUM"	CONT
^%ZOSF("TEST"	CONT
^%ZOSF("UCI"	POST+2
^UTILITY($J	ONE+1!
^XMB("NETNAME"	POST+3, MSG+1
^XPD(9.7 - [#9.7]	MSG+1, MSG+2

Name	Line Occurrences
CONT	ONE+2
END	POST+2, POST+3, MSG+2

Name	Field # of Occurrence
>> %	QMSG+1
%1	CONT+2!
%2	CONT+2!
%3	CONT+2!
DUZ	MSG+5
SRD	POST+3, END!, MSG+1, MSG+3
>> SRDA	MSG+1*, MSG+2
SRMSG	MSG+3!
SRMSG(1	MSG+3*
SRMSG(2	MSG+4*
SRMSG(3	MSG+4*
SRNOW	QMSG+1*, END!, MSG+2
>> SRY	MSG+2*, MSG+4
>> SRZ	MSG+2*, MSG+4
X	SR63NTEG+3, CONT, CONT+2!, MSG+1, ONE
>> XMDUZ	MSG+5*
>> XMSUB	MSG+5*
>> XMTEXT	MSG+7*
>> XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT"	MSG+6*
XT1	CONT*, CONT+2!
XT2	CONT*, CONT+2!
XT3	CONT*, CONT+2!
XT4	SR63NTEG+3, CONT, CONT+2!, ONE
Y	CONT, CONT+2!, POST+2
>> Z	MSG+2*
>> ZTDESC	QMSG+1*
>> ZTDTH	QMSG+1*
>> ZTIO	QMSG+1*
>> ZTREQ	MSG+7*
>> ZTRTN	QMSG+1*
>> ZTSAVE("SRNOW"	QMSG+1*

Name	Field # of Occurrence
$T(	SR63NTEG+3, ONE
$T(ROU+XT1	CONT