         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$PAGE                                                          << 9522>>05754000
<< * Fix information                                        >> << 9522>>05891000
<<                                                          >> << 9522>>05891010
<<   The setting of the JMAT to EXEC state has been         >> << 9522>>05891020
<<   removed.  The setting to EXEC has been placed after    >> << 9522>>05891030
<<   the call to INITJSMP in CIMAIN, after very table and   >> << 9522>>05891040
<<   the stack have been completely set up for the CI.      >> << 9522>>05891050
   PROGMSG        = 36,                                        <<09235>>06135010
ELSE BEGIN<< SESSION >>                                        <<09235>>08890000
        GENMSG(SYSET,LOGONSNO,%0,@BPARTNO,@BBASEPARTNO,        <<09235>>08895000
               @DATEBUF);                                      <<09235>>08900000
        IF PROGCREATION                                        <<09235>>08900010
           THEN GENMSG(SYSET,PROGMSG);<<*** PROGRAMMATIC ***>> <<09235>>08900020
      END;                                                     <<09235>>08900030
<< JMAT set to EXEC in CIMAIN >>                               << 9522>>09465000
JMATARR := JMATARR LAND %1437;                                 << 9522>>09470000
$EDIT                                                          << 9522>>09475000
<< We no longer change the job/session to EXEC here.  We  >>   << 9522>>10235000
<< change it to EXEC in CIMAIN after the stack has        >>   << 9522>>10236000
<< setting up.                                            >>   << 9522>>10237000
    JMATARR := JMATARR LAND %1437;                             << 9522>>10240000
                                                               <<09234>>13585010
DOUBLE UCAPS;                                                  <<09234>>13585020
LOGICAL UCAP1 = UCAPS;                                         <<09234>>13585030
                                                               <<09234>>13585040
EQUATE NEEDSMTONOWAITCONSOLE = 1499;                           <<09234>>13585050
<<***************************>>                                <<09234>>16680010
<<*  SUBROUTINE DONOWAIT    *>>                                <<09234>>16680020
<<***************************>>                                <<09234>>16680030
     ELSE IF DEVICE = ABSOLUTE(%1074) THEN                     <<09234>>16710000
          BEGIN                                                <<09234>>16710010
            << IF THE USER WANTS TO START A ;NOWAIT SESSION >> <<09234>>16710020
            << ON THE CONSOLE, THEN HE BETTER HAVE SM CAP.  >> <<09234>>16710030
            WHO(,UCAPS);                                       <<09234>>16710040
            IF UCAP1.(0:1) <> 1                                <<09234>>16710050
               THEN WARN(NEEDSMTONOWAITCONSOLE,PARM)           <<09234>>16710060
               ELSE JMATLOGONNOW := 1;                         <<09234>>16710070
          END                                                  <<09234>>16710080
          ELSE JMATLOGONNOW := 1;                              <<09234>>16710090
                                                               <<09238>>20190010
REAL                                                           <<09238>>20190020
   ERRTIMEOUT := 5.0;                                          <<09238>>20190030
    PAUSE(ERRTIMEOUT);  << IN THE INTEREST OF SECURITY WE    >><<09238>>20360010
    << WILL PAUSE FOR A WHILE TO PREVENT PEOPLE FROM GOING   >><<09238>>20360020
    << INTO A LOOP TRYING PASSWORDS.                         >><<09238>>20360030
    IF MSGARR(2) <> 0                                          <<09237>>20430000
       THEN ERR := MSGARR(2);  << Return value. >>             <<09237>>20430010
OPTION UNCALLABLE;                                             <<09236>>21450010
