C
C   Module:	WATCHDUMP.INC	- DUMP ALL RESTRICTION TABLES
C
C   Original:	George H. Walrod III
C
C   Corrected Modification:
C		None
C
*
C
C   Dump Terminal Restriction Table
C

	TYPE *,' '
	TYPE *,' DUMPING TERMINAL TABLE'
	TEMP_PTR = 0
	DO WHILE (TEMP_PTR .LT. MAX_TERMINAL)
	  TEMP_PTR = TEMP_PTR + 1
	  TYPE *,' TERMINAL WILDCARD ', TERMINAL_LIST(TEMP_PTR).WILDCARD
	  TYPE *,' TERMINAL NAME ', 
     +	  TERMINAL_LIST(TEMP_PTR).NAME(1:TERMINAL_LIST(TEMP_PTR).LENGTH)
	  TYPE *,' TERMINAL START MSG ',
     +		TERMINAL_LIST(TEMP_PTR).START_MSG
	  TYPE *,' TERMINAL STOP PROC ',
     +		TERMINAL_LIST(TEMP_PTR).STOP_PROC
	 END DO

C
C   Dump Process Restriction Table
C

	TYPE *,' '
	TYPE *,' DUMPING Process TABLE'
	TEMP_PTR = 0
	DO WHILE (TEMP_PTR .LT. MAX_PROCESS)
	  TEMP_PTR = TEMP_PTR + 1
	  TYPE *,' PROCESS WILDCARD ', PROCESS_LIST(TEMP_PTR).WILDCARD
	  IF (PROCESS_LIST(TEMP_PTR).LENGTH .lt. 0) THEN
	    TYPE *,' PROCESS NAME ',
     +	PROCESS_LIST(TEMP_PTR).NAME(1:PROCESS_LIST(TEMP_PTR).LENGTH*-1)
	   ELSE
	    TYPE *,' PROCESS NAME ',
     +	   PROCESS_LIST(TEMP_PTR).NAME(1:PROCESS_LIST(TEMP_PTR).LENGTH)
     	   END IF
	  TYPE *,' PROCESS START MSG ',
     +		PROCESS_LIST(TEMP_PTR).START_MSG
	  TYPE *,' PROCESS STOP PROC ',
     +		PROCESS_LIST(TEMP_PTR).STOP_PROC
	 END DO

C
C   Dump Username Restriction Table
C

	TYPE *,' '
	TYPE *,' DUMPING USERNAME TABLE'
	TEMP_PTR = 0
	DO WHILE (TEMP_PTR .LT. MAX_USERNAME)
	  TEMP_PTR = TEMP_PTR + 1
	  TYPE *,' USERNAME WILDCARD ', USERNAME_LIST(TEMP_PTR).WILDCARD
	  IF (USERNAME_LIST(TEMP_PTR).LENGTH .lt. 0) THEN
	    TYPE *,' USERNAME NAME ',
     +	USERNAME_LIST(TEMP_PTR).NAME(1:USERNAME_LIST(TEMP_PTR).LENGTH*-1)
	   ELSE
	    TYPE *,' USERNAME NAME ',
     +	   USERNAME_LIST(TEMP_PTR).NAME(1:USERNAME_LIST(TEMP_PTR).LENGTH)
	   END IF
	  TYPE *,' USERNAME START MSG ',
     +		USERNAME_LIST(TEMP_PTR).START_MSG
	  TYPE *,' USERNAME STOP PROC ',
     +		USERNAME_LIST(TEMP_PTR).STOP_PROC
	 END DO

C
C   Dump ACCOUNT Restriction Table
C

	TYPE *,' '
	TYPE *,' DUMPING ACCOUNT TABLE'
	TEMP_PTR = 0
	DO WHILE (TEMP_PTR .LT. MAX_ACCOUNT)
	  TEMP_PTR = TEMP_PTR + 1
	  TYPE *,' ACCOUNT WILDCARD ', ACCOUNT_LIST(TEMP_PTR).WILDCARD
	  IF (ACCOUNT_LIST(TEMP_PTR).LENGTH .lt. 0) THEN
	    TYPE *,' ACCOUNT NAME ',
     +	ACCOUNT_LIST(TEMP_PTR).NAME(1:ACCOUNT_LIST(TEMP_PTR).LENGTH*-1)
	   ELSE
	    TYPE *,' ACCOUNT NAME ',
     +	   ACCOUNT_LIST(TEMP_PTR).NAME(1:ACCOUNT_LIST(TEMP_PTR).LENGTH)
	   END IF
	  TYPE *,' ACCOUNT START MSG ',
     +		ACCOUNT_LIST(TEMP_PTR).START_MSG
	  TYPE *,' ACCOUNT STOP PROC ',
     +		ACCOUNT_LIST(TEMP_PTR).STOP_PROC
	 END DO

C
C   Dump IMAGE Restriction Table
C

	TYPE *,' '
	TYPE *,' DUMPING IMAGE TABLE'
	TEMP_PTR = 0
	DO WHILE (TEMP_PTR .LT. MAX_IMAGE)
	  TEMP_PTR = TEMP_PTR + 1
	  TYPE *,' IMAGE NAME ',
     +	  IMAGE_LIST(TEMP_PTR).NAME(1:IMAGE_LIST(TEMP_PTR).LENGTH)
	  TYPE *,' IMAGE START MSG ',
     +		IMAGE_LIST(TEMP_PTR).START_MSG
	  TYPE *,' IMAGE STOP PROC ',
     +		IMAGE_LIST(TEMP_PTR).STOP_PROC
     	 END DO

C
C   Dump UIC Restriction Table
C

	TYPE *,' '
	TYPE *,' DUMPING UIC TABLE'
	TEMP_PTR = 0
	DO WHILE (TEMP_PTR .LT. MAX_UIC)
	  TEMP_PTR = TEMP_PTR + 1
	  TYPE *,' UIC WILDCARD ', UIC_LIST(TEMP_PTR).WILDCARD
     	  TYPE *,' UIC ', '[',UIC_LIST(TEMP_PTR).GROUP,
     +			',',UIC_LIST(TEMP_PTR).MEMBER,']'
	  TYPE *,' UIC START MSG ',
     +		UIC_LIST(TEMP_PTR).START_MSG
	  TYPE *,' UIC STOP PROC ',
     +		UIC_LIST(TEMP_PTR).STOP_PROC
	 END DO