         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
PROCEDURE INITUDC( SHOW, COMFN, CHECK'UDC'ARRAY,               << 9335>>11130000
                   CHECK'USER, CHECK'ACCT );                   << 9335>>11131000
   VALUE    SHOW, COMFN;                                       << 9335>>11140000
   LOGICAL  SHOW;                                              << 9335>>11150000
   BYTE     ARRAY CHECK'USER, CHECK'ACCT;                      << 9335>>11151000
   LOGICAL  ARRAY CHECK'UDC'ARRAY;                                      11152000
OPTION PRIVILEGED,UNCALLABLE;                                  <<09221>>23711000
   THEN CIERR(ERRNUM := ERR);                                  <<09220>>24680000
IF ERR <= 0 THEN                                               <<09220>>24690000
   BEGIN                                                       <<09220>>24691000
     TOS := JSNO;                                              <<09220>>24700000
     NUM := TOS;                                               <<09220>>24710000
     DEL;                                                      <<09220>>24720000
     GENMSG(CIGENERALMSGSET,46,%10000,NUM);                    <<09220>>24730000
   END;                                                        <<09220>>24740000
      WHY'DOING      = 6,      << doing actual STORE/RESTORE >><< 9173>>31160000
      WHY'FILEABSENT = 7,      <<file not on disc            >><< 9173>>31160100
      WHY'WRITING    = 8,      <<  ***not used by STORE***   >><< 9173>>31160200
      WHY'DUMMY      = 999;    << for ease of addition       >><< 9173>>31164900
      IF ERROR = 0 THEN         <<found the JCW!>>             << 9173>>33190000
         IF I <> 0              AND                            << 9173>>33200000
            I <> WHY'FILEABSENT AND                            << 9173>>33201000
            I <> WHY'WRITING    THEN <<STORE return error?>>   << 9173>>33202000
      WHY'DOING         = 6,    <<doing actual STORE/RESTORE>> << 9173>>34440000
      WHY'FILEABSENT    = 7,    <<file not on tape          >> << 9173>>34440100
      WHY'WRITING       = 8,    <<file used for writing     >> << 9173>>34440200
      WHY'DUMMY         = 999;  << for ease of addition     >> << 9173>>34444900
      IF ERROR = 0 THEN         <<found the JCW!>>             << 9173>>36470000
         IF I <> 0              AND                            << 9173>>36480000
            I <> WHY'FILEABSENT AND                            << 9173>>36481000
            I <> WHY'WRITING    THEN <<RESTORE return error?>> << 9173>>36482000
      EQUATE JOBEXEC  = 2;                                     << 9378>>67141000
      LOGICAL ARRAY CHECK'UDC'ARRAY( 0:2 );                             67441000
      LOGICAL ARRAY BLANK'LINE( 0:1 );                         << 9118>>67470000
   JMATWORDZERO,                                               << 9378>>68611000
                                                               << 9378>>68681000
DEFINE                                                         << 9378>>68682000
   JMATWORDZEROSTATE = JMATWORDZERO.JMATSTATEFLD #;            << 9378>>68683000
IF ANOTINBREAK AND NOT PROGCALL THEN                           << 9484>>74370000
   << check to see if user in break and not programatic call >><< 9484>>74371000
                                                               << 9378>>75631100
<< Set this baby to EXEC state now that the stack is now >>    << 9378>>75631200
<< completely intact.                                    >>    << 9378>>75631300
                                                               << 9378>>75631400
PXGLOBAL;                                                      << 9378>>75631500
TOS := @JMATWORDZERO;                                          << 9378>>75631600
TOS := JMATDST;                                                << 9378>>75631700
TOS := PXG'JMATINX * JMATENTRYSIZE;                            << 9378>>75631800
TOS := 1;                                                      << 9378>>75631900
ASSEMBLE( MFDS 4 );                                            << 9378>>75632000
JMATWORDZEROSTATE := JOBEXEC;                                  << 9378>>75632100
TOS := JMATDST;                                                << 9378>>75632200
TOS := PXG'JMATINX * JMATENTRYSIZE;                            << 9378>>75632300
TOS := @JMATWORDZERO;                                          << 9378>>75632400
TOS := 1;                                                      << 9378>>75632500
ASSEMBLE( MTDS 4 );                                            << 9378>>75632600
                                                               << 9378>>75632700
ASSEMBLE (PSDB);  << to prevent other processes from doing  >> << 9433>>75935000
                  << the same thing, i.e. release COMMDST   >> << 9433>>75936000
        SYS'GLOB'EXT (COMMDSTLOC) := 0;                        << 9433>>75961000
        ASSEMBLE (PSEB);                                       << 9433>>75962000
        << release INITIAL communication DST  >>               << 9433>>76020000
        END                                                    << 9433>>76040000
ELSE                                                           << 9433>>76041000
    ASSEMBLE (PSEB); <<  enable process switch  >>             << 9433>>76042000
IF TOS          << Init UDCs if they exist >>                  << 9335>>76410000
   THEN BEGIN                                                           76410100
        CHECK'UDC'ARRAY( 0 ) := FALSE;                                  76410200
        INITUDC( FALSE,,CHECK'UDC'ARRAY );                     << 9335>>76411000
        END;                                                            76412000
   THEN BEGIN                                                  << 9118>>76441000
        MOVE BLANK'LINE( 0 ) := "    ";                        << 9118>>76441010
        PRINT( BLANK'LINE, -4, 0 );                            << 9118>>76441100
        GENMSG( SYSSET, AUTOINSTALL'MSG );                     << 9118>>76450000
        END;  << IF FOS'TAPE = 1 >>                            << 9118>>76450100
