C C Module: WATCHTERM.INC - COMMON TERMINAL INFORMATION C C Original: George H. Walrod III C C Corrected Modification: C None C * PARAMETER + MAX_TERMINAL_LEN ! Maximum Terminal Name Length + = 12, + MAX_NO_TERMINAL = 64 ! Maximum No Terminal Rest's STRUCTURE /TERMINAL_RECORD/ UNION MAP LOGICAL*1 + WILDCARD ! Wildcard Entry INTEGER*2 + LENGTH ! Terminal String Length CHARACTER ! Terminal Name + NAME*(MAX_TERMINAL_LEN) INTEGER*4 + START_MSG, ! Start Message Value + STOP_PROC ! Stop Process Value END MAP END UNION END STRUCTURE INTEGER*2 + MAX_TERMINAL ! Number of Terminal Restricted RECORD /TERMINAL_RECORD/ ! Restricted Terminal List + TERMINAL_LIST(MAX_NO_TERMINAL) COMMON /TERMINAL_TABLE/ + MAX_TERMINAL, TERMINAL_LIST