Routine: XQSMD6

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

XQSMD6 ;SFISC/JDS - SECURE MENU DELEGATION UTILITIES ;03/02/98 10:40

Source Information

Source file <XQSMD6.m>

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Kernel	1	XQSMD5

Entry Points

Name	Comments	DBIA/ICR reference
KEYS(MENULIST,XQKEY,ABORT)	; ; Order thru menu structure in search of locks
PROCESS	;
BUILD	; ; 1st check to see if this option is still on the system, ; then check to see if a key is locking this option
CHILDADD	; ; Add a child to the list of children ; quit if child is already in the list
KEYADD	; ; Add a key to the list of keys needed
CHECK	; ; ensure that IEN passed in is in option file ^DIC(19,

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: CHILDADD+8
Function Call: WRITE	Prompt: !!,?7,"Aborting key search, Option File IEN "_IEN_" doesn't exist!",!! Line Location: CHECK+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	BUILD+4, BUILD+5, BUILD+9, KEYADD+3, CHECK+3
^XTMP($J	KEYS+4!, KEYS+5, KEYS+6, PROCESS+1, PROCESS+3!, CHILDADD+4, CHILDADD+5, CHILDADD+6, CHILDADD+7*, CHILDADD+8

Label References

Name	Line Occurrences
BUILD	PROCESS+1
CHECK	KEYS+2
CHILDADD	BUILD+9
KEYADD	BUILD+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	KEYS~, KEYS+2, CHECK+4
CNT	KEYS+8~, PROCESS+1*
>> IEN	CHECK+5
KEY	KEYS+8~, KEYADD+3*, KEYADD+6, KEYADD+8, KEYADD+9
MENULIST	KEYS~, KEYS+5
MENULIST(	KEYS+6
MENULIST(0	KEYS+6
MENULIST(1	CHECK+3
PIEN	KEYS+8~, PROCESS+1*, BUILD+4, BUILD+5, BUILD+9, KEYADD+3
U	BUILD+5, KEYADD+3
>> X	KEYS+6*
XQJ	KEYS+8~, KEYS+9, BUILD+8, BUILD+9*, CHILDADD+4, CHILDADD+6, CHILDADD+7
XQKEY	KEYS~, KEYS+9*
XQKEY(	KEYADD+8*
XQKEY("B"	PROCESS+3!, KEYADD+6, KEYADD+9*
XQKEY(0	KEYS+9, KEYADD+7, KEYADD+8