C C Module: WATCHUIC.INC - COMMON UIC INFORMATION C C Original: George H. Walrod III C C Corrected Modification: C None C * PARAMETER + MAX_UIC_LEN ! Maximum UIC Name Length + = 16, + MAX_NO_UIC = 64 ! Maximum No UIC Rest's STRUCTURE /UIC_RECORD/ UNION MAP LOGICAL*1 + WILDCARD ! Wildcard Entry INTEGER*4 + GROUP, ! UIC Group Number + MEMBER ! UIC Member Number INTEGER*4 + START_MSG, ! Start Message Value + STOP_PROC ! Stop Process Value END MAP END UNION END STRUCTURE INTEGER*2 + MAX_UIC ! Number of UIC Restricted RECORD /UIC_RECORD/ ! Restricted UIC List + UIC_LIST(MAX_NO_UIC) COMMON /UIC_TABLE/ + MAX_UIC, UIC_LIST