Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUPROD

Package: Kernel

Routine: XUPROD


Information

XUPROD ;ISF/RWF - Is this a PROD account. ;18/06/20

Source Information

Source file <XUPROD.m>

Entry Points

Name Comments DBIA/ICR reference
PROD(FORCE) ;Return 1 if this is a production account
  • ICR #4440
    • Status: Active
    • Usage: Supported
    CHECK ;Check if SID matched stored value, Set field 501
    SSID(SID) ;Set the SID into KSP.
    ASK ;Ask user if this is prod.
    EDIT ;Edit Logical - Physical fields
    CFG(CFG) ; RETURN BOOLEAN CHECK FOR CONFIGURATION TYPE
    INSTNM(CASE) ; RETURNS INSTANCE NAME

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"This is "_$S(P=P2:"still",1:"now")_" a "_$S(P2:"PRODUCTION",1:"TEST")_" account.",!
    • Line Location: ASK+16
    Function Call: WRITE
    • Prompt: !,"Busy, Please try again later.",!
    • Line Location: EDIT+2
    Function Call: WRITE
    • Prompt: !!,"This is only valid in a Cache v5.2 client/server configuration."
    • Line Location: EDIT+3
    Function Call: WRITE
    • Prompt: !,"This lets you edit the fields that support the"
    • Line Location: EDIT+4
    Function Call: WRITE
    • Prompt: !,"LOGICAL to PHYSICAL translation for the System ID.",!!
    • Line Location: EDIT+5
    Info |  Source |  Entry Points |  Interaction Calls