         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
DEFINE DIT'CONSOLE'MODE = 8).(11:1#; << If on, CNTL-A posted >><< 9508>>04657000
LOGICAL PROCEDURE CHK'ASS'SECURITY(JITINX,LDEV,CLASSNAME,      << 9340>>08820000
                                                  ASSFILE);    << 9340>>08821000
VALUE JITINX,LDEV,ASSFILE;                                     << 9340>>08825000
INTEGER JITINX,LDEV,ASSFILE;                                   << 9340>>08830000
   INTEGER I;                                                  << 9340>>08925000
$EDIT VOID = 09075000                                          << 9340>>09060000
$EDIT                                                          << 9340>>09140000
$EDIT VOID=12795000                                                     12795000
$EDIT VOID=12870000                                                     12860000
$EDIT VOID=12995000                                                     12990000
      IF <> OR NOT (3<=PIN<=1024) THEN  << BAD PIN >>          << 9281>>29105000
   INTEGER JIT'DST, FILENUM;                                   << 9340>>29990000
   LOGICAL ARRAY ASSFILENAME(0:8);                             << 9340>>29991000
      <<OPEN THE ASSOCIATE FILE FIRST SO THAT FILE INTEGRITY>> << 9340>>30355010
      <<SIR IS LOCKED PRIOR TO THE ASSOCIATE SIR.  THIS IS >>  << 9340>>30355020
      <<TO AVOID A SIR DEADLOCK.                           >>  << 9340>>30355030
      IF ASSOCIATE THEN                                        << 9340>>30355040
      BEGIN                                                    << 9340>>30355050
        MOVE ASSFILENAME := "ASOCIATE.PUB.SYS ";               << 9340>>30355060
        FILENUM := FOPEN (ASSFILENAME,%2001,%306);             << 9340>>30355070
                 <<SHARE,EXECUTE,NO FILEQ>>                    << 9340>>30355080
        IF <> THEN                    <<REPORT OPEN ERROR>>    << 9340>>30355090
         BEGIN                                                 << 9340>>30355100
           FERROR'(FILENUM,I);                                 << 9340>>30355110
           CIERR(ERRNUM:=USERCANTASSDEV,FIRSTPARM);            << 9340>>30355120
           RETURN;                                             << 9340>>30355130
         END;                                                  << 9340>>30355140
      END;                                                     << 9340>>30355150
         IF ASSOCIATE THEN FCLOSE(FILENUM,0,0);                << 9340>>30511000
         IF CHK'ASS'SECURITY(JIT,DCT'I(I), CLASSNAME, FILENUM) << 9340>>30630000
            FCLOSE(FILENUM,0,0);                               << 9340>>30656000
            RETURN;                                            << 9340>>30661000
   IF ASSOCIATE THEN FCLOSE(FILENUM,0,0);                      << 9340>>30876000
         << Check to see if console in CONSOLE mode, that   >> << 9508>>31606000
         << is, see if CNTL-A has been entered on console.  >> << 9508>>31607000
         << If so, then the console is busy and we will not >> << 9508>>31608000
         << switch it.  Give a CIERR message if busy.       >> << 9508>>31609000
                + SYSGLOB + DIT'CONSOLE'MODE ) = 1 THEN        << 9508>>31615000
         OLD'CONSOLE := SYS'CONSOLE'LDEV;                      << 9185>>31690000
         SYS'CONSOLE'LDEV := LDEV;                             << 9185>>31695000
         GENMSG (CIGENERALMSGSET,CONSOLESWITCHED,%11000,       << 9185>>31700000
                 OLD'CONSOLE, LDEV,,,,                         << 9185>>31705000
                 OLD'CONSOLE,,,,2);                            << 9185>>31710000
