Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XUINOK

Package: Kernel

Routine: XUINOK


Information

XUINOK ;SFISC/RWF - CHECK TO SEE IF OK TO LOAD ;06/02/95 12:23

Source Information

Source file <XUINOK.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 GETENV^%ZOSV  ($$RTNUP,$$VERSION)^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
ABRT
OLD
GBLOK ;Check to see if we have write access to needed globals.
MMCHK ;check XMGAPI4
EXIT
OS ;checks OS and skips all other ZU routines

External References

Name Field # of Occurrence
GETENV^%ZOSV XUINOK+14
$$RTNUP^XPDUTL MMCHK+4, OS+6
$$VERSION^XPDUTL XUINOK+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,">> DUZ and DUZ(0) must be defined as an active user to initialize."
  • Line Location: XUINOK+11
Function Call: WRITE
  • Prompt: !,"I'm checking to see if it is OK to install KERNEL v",$P($T(+2),";",3)," in this account.",!
  • Line Location: XUINOK+13
Function Call: WRITE
  • Prompt: !!,"Checking the %ZOSV routine"
  • Line Location: XUINOK+14
Function Call: WRITE
  • Prompt: !,"The %ZOSV routine isn't current.",!,"Check the second line of the routine, or your routine map table."
  • Line Location: XUINOK+15
Function Call: WRITE
  • Prompt: !!,"Everything looks OK, Lets continue.",!
  • Line Location: XUINOK+23
Function Call: WRITE
  • Prompt: !!,*7,"It looks like you currently have version ",Y," of KERNEL installed."
  • Line Location: OLD+0
Function Call: WRITE
  • Prompt: !,*7,"You must first install KERNEL v7.1 before this version can be installed.",!
  • Line Location: OLD+1
Function Call: WRITE
  • Prompt: !,"Now to check protection on GLOBALS.",!,"If you get an ERROR, you need to add Write access to that global.",!
  • Line Location: GBLOK+1
Function Call: WRITE
  • Prompt: !,"Checking ",Y
  • Line Location: GBLOK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" OS+3
^%ZOSF("TEST" MMCHK+2

Label References

Name Line Occurrences
EXIT XUINOK+11, XUINOK+15
GBLOK XUINOK+21
MMCHK XUINOK+21
OLD XUINOK+17
OS XUINOK+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ XUINOK+9*, XUINOK+11
DUZ(0 XUINOK+9*, XUINOK+11
U OS+4, OS+6, OS+7
X MMCHK+1~, MMCHK+2*, MMCHK+4*, OS+2~, OS+3*, OS+4, OS+6*
>> XPDDIQ("XPZ1" XUINOK+21*
>> XPDENV XUINOK+21
>> XPDNOQUE XUINOK+21*
>> XPDQUIT XUINOK+22, ABRT*, EXIT*
XUNU OS+2~, OS+4*, OS+6, OS+7
XUNU1 OS+2~, OS+4*, OS+5, OS+6*
XUOS OS+2~, OS+3*, OS+6, OS+7
>> XUZURTN OS+7*
Y XUINOK+4~, XUINOK+15, XUINOK+17*, OLD, GBLOK+2*

Marked Items

Name Field # of Occurrence
$T( XUINOK+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All