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

Call Graph Total: 2

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

Entry Points

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

External References

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

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+3
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+5
Function Call: WRITE
  • Prompt: !!,"Checking the %ZOSV routine"
  • Line Location: XUINOK+6
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+7
Function Call: WRITE
  • Prompt: !!,"Everything looks OK, Lets continue.",!
  • Line Location: XUINOK+15
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+3, XUINOK+7
GBLOK XUINOK+13
MMCHK XUINOK+13
OLD XUINOK+9
OS XUINOK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ XUINOK+3
DUZ(0 XUINOK+3
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+13*
>> XPDENV XUINOK+13
>> XPDNOQUE XUINOK+13*
>> XPDQUIT XUINOK+14, 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+2~, XUINOK+7, XUINOK+9*, OLD, GBLOK+2*

Marked Items

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