*COMDECK  SYSTIME 
   COMMON TIME; 
                             BEGIN
                                                                       #
*  INACTVALUE IS THE NUMBER OF SECONDS OF NO ACTIVITY ON A CONNECTION 
*  THAT MUST ELAPSE BEFORE THE *INACTIVITY* MSG IS SENT TO THE
*  APPLICATION THAT OWNS THAT CONNECTION
                                                                       #
   ARRAY TYME P(1);              # MARKS POSITION OF COMDECK IN DUMP   #
                             BEGIN
      ITEM TYMEM#C,0,0,4#                                              #
*#                           C(0,0,4)=["TIME"]; 
      ITEM TYMEZ#U,0,24,18#                                            #
*#                           U(0,24,18)=[0];
      ITEM TYME7#U,0,42,18#                                            #
*#                           U(0,42,18)=[O"777777"];
                             END
   ITEM MSG$AN  U = 0;
                                                                       #
          BSS    1
                                                                       #
                             CONTROL IFEQ DELAY,1;
                                                                       #
          IFEQ   DELAY,1,2
                                                                       #
   ITEM MTIME;               # DELAY PRIOR TO REDUCE EXTRA NIP FL      #
                             CONTROL FI;
   ITEM INACTVAL = 600;      # 10 MINUTES = 600 SECONDS                #
  
   ARRAY THETIME    P(1); 
                                                                       #
          BSS    1
                                                                       #
                             BEGIN
   ITEM RTSECS#U,0,0,24#     U(0,0,24);     # SYSTIME IN SECONDS       #
   ITEM MSECS#U,0,24,36#     U(0,24,36);    # SYS/TIME IN MICRO SECONDS#
                             END
                             END
                                                                       #
          USE    *
                                                                       #
