A simple display to show two users and two profile values from an agent script
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 # 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 420 0 122 #++++++++++++++++++++++++++++++++++ 122 # | 122 # Windows NT script (PERL). | 122 # | 122 #++++++++++++++++++++++++++++++++++ 122 # 122 # 122 # Use this script to set the values displayed in the above 122 # fields. This script runs on the Sysgem client (GUI). 122 # 122 # @D@ # 101 Exercise 2 106 113 129 1 102 102Exercise 2 is a copy of Exercise 1 except that the agent output has been modifed by the main Post-processing script
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 # 107 # Replace the output. 107 # 107 print "{{REPLACE_VALUES=YES\n"; 107 107 # 107 # Load Agent output into input array. 107 # 107 LoadInputArray(); # Agent output now in @input_array 107 107 # 107 # Swap the profiles between the users (exercise 2) 107 # 107 foreach $input (@input_array) 107 { 107 if ($input =~ m/Profile1/) 107 { 107 print "PR : Profile2\n"; 107 } 107 elsif ($input =~ m/Profile2/) 107 { 107 print "PR : Profile1\n"; 107 } 107 else 107 { 107 print $input . "\n"; 107 } 107 } 107 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 # 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 420 0 122 #++++++++++++++++++++++++++++++++++ 122 # | 122 # Windows NT script (PERL). | 122 # | 122 #++++++++++++++++++++++++++++++++++ 122 # 122 # 122 # Use this script to set the values displayed in the above 122 # fields. This script runs on the Sysgem client (GUI). 122 # 122 # @D@ # 101 Exercise 3 106 113 129 1 102 102Exercise 3 is a copy of Exercise 2 except that the banner and status bars are updated in the main pre-processing script
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 # 107 # Replace the output. 107 # 107 print "{{REPLACE_VALUES=YES\n"; 107 107 # 107 # Load Agent output into input array. 107 # 107 LoadInputArray(); # Agent output now in @input_array 107 107 # 107 # Swap the profiles between the users (exercise 2) 107 # 107 foreach $input (@input_array) 107 { 107 if ($input =~ m/Profile1/) 107 { 107 print "PR : Profile2\n"; 107 } 107 elsif ($input =~ m/Profile2/) 107 { 107 print "PR : Profile1\n"; 107 } 107 else 107 { 107 print $input . "\n"; 107 } 107 } 107 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 108 # 108 # Status Bar 108 # 108 print "\@{{STATUS_BAR_TEXT LCH Exercise - Status\ \n"; 108 108 # 108 # Header Banner 108 # 108 print "\@{{ADD_WINDOW_TITLE LCH Banner\n"; 108 108 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 420 0 122 #++++++++++++++++++++++++++++++++++ 122 # | 122 # Windows NT script (PERL). | 122 # | 122 #++++++++++++++++++++++++++++++++++ 122 # 122 # 122 # Use this script to set the values displayed in the above 122 # fields. This script runs on the Sysgem client (GUI). 122 # 122 # @D@ # 101 Exercise 4 106 113 129 1 102 102Exercise 4 is to work with the Options Cache - remember in a file the last agent used, then read that back and display it in a read-only field in the start-up window
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 # 107 # Replace the output. 107 # 107 print "{{REPLACE_VALUES=YES\n"; 107 107 # 107 # Load Agent output into input array. 107 # 107 LoadInputArray(); # Agent output now in @input_array 107 107 # 107 # Swap the profiles between the users (exercise 2) 107 # 107 foreach $input (@input_array) 107 { 107 if ($input =~ m/Profile1/) 107 { 107 print "PR : Profile2\n"; 107 } 107 elsif ($input =~ m/Profile2/) 107 { 107 print "PR : Profile1\n"; 107 } 107 else 107 { 107 print $input . "\n"; 107 } 107 } 107 107 107 # 107 # Work with the Options Cache, 107 # Remember the last agent used (exercise 4) 107 # 107 107 #include SAcM_Tokens 107 #include SAcM_Options_Cache 107 107 $AgentList[0] = $server_name; 107 107 Options_SaveToFile("LCH", "Exercise4", \@AgentList); 107 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 108 # 108 # Status Bar 108 # 108 print "\@{{STATUS_BAR_TEXT LCH Exercise - Status\ \n"; 108 108 # 108 # Header Banner 108 # 108 print "\@{{ADD_WINDOW_TITLE LCH Banner\n"; 108 108 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 420 0 122 #++++++++++++++++++++++++++++++++++ 122 # | 122 # Windows NT script (PERL). | 122 # | 122 #++++++++++++++++++++++++++++++++++ 122 # 122 # 122 # Use this script to set the values displayed in the above 122 # fields. This script runs on the Sysgem client (GUI). 122 # 122 # 122 #include SAcM_Tokens 122 #include SAcM_Options_Cache 122 122 @Agents = Options_LoadFromFile("LCH", "Exercise4"); 122 122 print "GG : $Agents[0]\n"; 122 122 122 401 GG 427 16777215 405 428 425 431 000 423 424 0 406 64 432 422 0 407 402 Agent last used: 404 0 403 429 1 430 1 @P@ # @D@ # 101 Exercise 5 106 113 129 1 102 102Exercise 5 is to interface with the Audit Database. The main post-processing script calls include file subroutines to write an Audit Record
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 # 107 # Replace the output. 107 # 107 print "{{REPLACE_VALUES=YES\n"; 107 107 # 107 # Load Agent output into input array. 107 # 107 LoadInputArray(); # Agent output now in @input_array 107 107 # 107 # Swap the profiles between the users (exercise 2) 107 # 107 foreach $input (@input_array) 107 { 107 if ($input =~ m/Profile1/) 107 { 107 print "PR : Profile2\n"; 107 } 107 elsif ($input =~ m/Profile2/) 107 { 107 print "PR : Profile1\n"; 107 } 107 else 107 { 107 print $input . "\n"; 107 } 107 } 107 107 107 # 107 # Work with the Options Cache, 107 # Remember the last agent used (exercise 4) 107 # 107 107 #include SAcM_Tokens 107 #include SAcM_Options_Cache 107 107 $AgentList[0] = $server_name; 107 107 Options_SaveToFile("LCH", "Exercise4", \@AgentList); 107 107 # 107 # Write to the Audit log 107 # 107 use Sysgem; 107 #include SAcM_Common_Date_Routines 107 #include SAcM_Options_Cache 107 #include SAcM_Logfile 107 107 my $AudSeq = AuditSeqNumber(); 107 107 UMLogAddAccount($USER_NT_COMPUTER , 107 $USER_SYSGEM_USERNAME , 107 $USER_NT_USERNAME , 107 "Exercise 5 successful", 107 $server_type, 107 $server_name, 107 "Audit Seq. No..: $AudSeq"); 107 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 108 # 108 # Status Bar 108 # 108 print "\@{{STATUS_BAR_TEXT LCH Exercise - Status\ \n"; 108 108 # 108 # Header Banner 108 # 108 print "\@{{ADD_WINDOW_TITLE LCH Banner\n"; 108 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 420 0 122 #++++++++++++++++++++++++++++++++++ 122 # | 122 # Windows NT script (PERL). | 122 # | 122 #++++++++++++++++++++++++++++++++++ 122 # 122 # 122 # Use this script to set the values displayed in the above 122 # fields. This script runs on the Sysgem client (GUI). 122 # 122 # 122 #include SAcM_Tokens 122 #include SAcM_Options_Cache 122 122 @Agents = Options_LoadFromFile("LCH", "Exercise4"); 122 122 print "GG : $Agents[0]\n"; 122 122 122 401 GG 427 16777215 405 428 425 431 000 423 424 0 406 64 432 422 0 407 402 Agent last used: 404 0 403 429 1 430 1 @P@ # @D@ # 101 Exercise 6 106 113 129 1 102 102Exercise 6 is to create menu option and interface to a "Current Subscriber"
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 # 107 # Replace the output. 107 # 107 print "{{REPLACE_VALUES=YES\n"; 107 107 # 107 # Load Agent output into input array. 107 # 107 LoadInputArray(); # Agent output now in @input_array 107 107 # 107 # Swap the profiles between the users (exercise 2) 107 # 107 foreach $input (@input_array) 107 { 107 if ($input =~ m/Profile1/) 107 { 107 print "PR : Profile2\n"; 107 } 107 elsif ($input =~ m/Profile2/) 107 { 107 print "PR : Profile1\n"; 107 } 107 else 107 { 107 print $input . "\n"; 107 } 107 } 107 107 107 # 107 # Work with the Options Cache, 107 # Remember the last agent used (exercise 4) 107 # 107 107 #include SAcM_Tokens 107 #include SAcM_Options_Cache 107 107 $AgentList[0] = $server_name; 107 107 Options_SaveToFile("LCH", "Exercise4", \@AgentList); 107 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 108 # 108 # Status Bar 108 # 108 print "\@{{STATUS_BAR_TEXT LCH Exercise - Status\ \n"; 108 108 # 108 # Header Banner 108 # 108 print "\@{{ADD_WINDOW_TITLE LCH Banner\n"; 108 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "CC : HFH.\n"; 103 print "CM : D. Brown\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "CC : HFH\n"; 103 print "CM : D Brown\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "CC : HFH." 104 echo "CM : D. Brown" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "CC : HFH" 104 echo "CM : D Brown" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 CC 205 CC 208 TAG_CC 202 0 203 1 207 0 204 0 206 0 209 0 @C@ # 201 CC Manager 205 CM 208 TAG_CM 202 0 203 1 207 0 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 # 311 Compare 313 1 336 325 0 345 0 346 0 # 321 10 322 1 # 312 312Help text goes here...
312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 # 314 use Sysgem; 314 314 314 314 314 print "\@{{B Comparison Results\n"; 314 314 314 print "\@{{T Subscriber CC.............: \t $SubCC \n"; 314 print "\@{{T Account CC................: \t $ENTRY_CC \n"; 314 314 if ($SubCC eq $ENTRY_CC) 314 { 314 print "\@{{T Fields are identical \n"; 314 } 314 else 314 { 314 print "\@{{T Fields do not match \n"; 314 } 314 314 print "\@{{T \n"; 314 314 print "\@{{T Subscriber CC Manager ....: \t $SubCM\n"; 314 print "\@{{T Account CC Manager .......: \t $ENTRY_CM\n"; 314 if ($SubCM eq $ENTRY_CM) 314 { 314 print "\@{{T Fields are identical \n"; 314 } 314 else 314 { 314 print "\@{{T Fields do not match \n"; 314 } 314 314 314 print "\@{{T \n"; 314 314 print "\@{{DI\n"; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 # 326 # Current Subscriber details 326 # 326 my $SubCC = $Classes{"SAcM Subscriber"}{"CC"}{"value"}; # CC 326 my $SubCG = $Classes{"SAcM Subscriber"}{"CG"}{"value"}; # CC Mgr 326 326 # 326 # Write to the Audit log 326 # 326 use Sysgem; 326 #include SAcM_Common_Date_Routines 326 #include SAcM_Options_Cache 326 #include SAcM_Logfile 326 326 my $AudSeq = AuditSeqNumber(); 326 326 UMLogAddAccount($SysgemComputer , 326 $SysgemUsername , 326 $ENTRY_UN, 326 "Exercise 6 successful", 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "Audit Seq. No..: $AudSeq", 326 "Subscr CC......: $SubCC", 326 "Subscr CC Mgr..: $SubCG", 326 "Account CC ....: $ENTRY_CC", 326 "Account CC Mgr.: $ENTRY_CM" ); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 # 327 # See if we are in the context of a current subscriber 327 # reject if not 327 # 327 if (!exists($Classes{"SAcM Subscriber"}{"BN"}{"value"})) 327 { 327 print "\@{{B No current subscriber\n"; 327 print "\@{{T You must be in the context of a Current Subscriber Record.\n"; 327 print "\@{{T Please start the Subscriber DB window and select just one record.\n"; 327 print "\@{{DE\n"; 327 print "\@{{ABORT"; 327 die; 327 } 327 327 # 327 # Current Subscriber details 327 # 327 my $SubCC = $Classes{"SAcM Subscriber"}{"CC"}{"value"}; # CC 327 my $SubCG = $Classes{"SAcM Subscriber"}{"CG"}{"value"}; # CC Mgr 327 327 if ($SubCC ne "") 327 { 327 if ($SERVER_TYPE =~ m/UNIX/) 327 { 327 print "\@{{ADD_SVR SubCC=\"$SubCC\" \n"; 327 } 327 elsif ($SERVER_TYPE =~ m/Windows/) 327 { 327 print "\@{{ADD_SVR my \$SubCC = \"$SubCC\";\n"; 327 } 327 elsif ($SERVER_TYPE =~ m/VMS/) 327 { 327 print "\@{{ADD_SVR \$ SubCC == \"$SubCC\" \n"; 327 } 327 } 327 327 if ($SubCG ne "") 327 { 327 if ($SERVER_TYPE =~ m/UNIX/) 327 { 327 print "\@{{ADD_SVR SubCM=\"$SubCG\" \n"; 327 } 327 elsif ($SERVER_TYPE =~ m/Windows/) 327 { 327 print "\@{{ADD_SVR my \$SubCM = \"$SubCG\";\n"; 327 } 327 elsif ($SERVER_TYPE =~ m/VMS/) 327 { 327 print "\@{{ADD_SVR \$ SubCM == \"$SubCG\" \n"; 327 } 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 315 315 echo "@{{B Comparison Results" 315 315 315 echo "@{{T Subscriber CC.............: ${SubCC} " 315 echo "@{{T Account CC................: ${ENTRY_CC} " 315 315 if [ "${SubCC}" = "${ENTRY_CC}" ] 315 then 315 echo "@{{T Fields are identical " 315 else 315 echo "@{{T Fields do not match " 315 fi 315 315 echo "@{{T " 315 315 echo "@{{T Subscriber CC Manager ....: ${SubCM}" 315 echo "@{{T Account CC Manager .......: ${ENTRY_CM}" 315 315 315 if [ "${SubCM}" = "${ENTRY_CM}" ] 315 then 315 echo "@{{T Fields are identical " 315 else 315 echo "@{{T Fields do not match " 315 fi 315 315 315 echo "@{{T " 315 315 echo "@{{DI" 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 $ 316 $ write sys$output "@{{B Comparison Results" 316 $ 316 $ write sys$output "@{{T Subscriber CC.............: ''SubCC' " 316 $ write sys$output "@{{T Account CC................: ''ENTRY_CC' " 316 $ 316 $ if SubCC .eqs. ENTRY_CC 316 $ then 316 $ write sys$output "@{{T Fields are identical " 316 $ else 316 $ write sys$output "@{{T Fields do not match " 316 $ endif 316 $ 316 $ write sys$output "@{{T " 316 $ 316 $ write sys$output "@{{T Subscriber CC Manager ....: ''SubCM'" 316 $ write sys$output "@{{T Account CC Manager .......: ''ENTRY_CM'" 316 $ if SubCM .eqs. ENTRY_CM 316 $ then 316 $ write sys$output "@{{T Fields are identical " 316 $ 316 $ else 316 $ write sys$output "@{{T Fields do not match " 316 $ endif 316 $ 316 $ write sys$output "@{{T " 316 $ 316 $ write sys$output "@{{DI" 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGEExercise 6 is to create menu option and interface to a "Current Subscriber"
102Created 2008-01-30 09:19:58 by LCH Training
102 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 # 107 # Replace the output. 107 # 107 print "{{REPLACE_VALUES=YES\n"; 107 107 # 107 # Load Agent output into input array. 107 # 107 LoadInputArray(); # Agent output now in @input_array 107 107 # 107 # Swap the profiles between the users (exercise 2) 107 # 107 foreach $input (@input_array) 107 { 107 if ($input =~ m/Profile1/) 107 { 107 print "PR : Profile2\n"; 107 } 107 elsif ($input =~ m/Profile2/) 107 { 107 print "PR : Profile1\n"; 107 } 107 else 107 { 107 print $input . "\n"; 107 } 107 } 107 107 107 # 107 # Work with the Options Cache, 107 # Remember the last agent used (exercise 4) 107 # 107 107 #include SAcM_Tokens 107 #include SAcM_Options_Cache 107 107 $AgentList[0] = $server_name; 107 107 Options_SaveToFile("LCH", "Exercise4", \@AgentList); 107 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 108 # 108 # Status Bar 108 # 108 print "\@{{STATUS_BAR_TEXT LCH Exercise - Status\ \n"; 108 108 # 108 # Header Banner 108 # 108 print "\@{{ADD_WINDOW_TITLE LCH Banner\n"; 108 121 0 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 0 156 1 158 0 260 2 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 #use Sysgem; 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 111 $! 111 $! Routines common to all VMS menu and agent scripts. 111 $! 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 # 103 103 print "PL : Windows\n"; 103 print "UN : User1\n"; 103 print "PR : Profile1\n"; 103 print "CC : HFH.\n"; 103 print "CM : D. Brown\n"; 103 print "\@\n"; 103 103 103 print "PL : Windows\n"; 103 print "UN : User2\n"; 103 print "PR : Profile2\n"; 103 print "CC : HFH\n"; 103 print "CM : D Brown\n"; 103 print "\@\n"; 104 #!/bin/ksh -ph 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 104 echo "PL : Windows" 104 echo "UN : User1" 104 echo "PR : Profile1" 104 echo "CC : HFH." 104 echo "CM : D. Brown" 104 echo "@" 104 104 104 echo "PL : Windows" 104 echo "UN : User2" 104 echo "PR : Profile2" 104 echo "CC : HFH" 104 echo "CM : D Brown" 104 echo "@" 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User1" 105 $ write sys$output "PR : Profile1" 105 $ write sys$output "CC : HFH." 105 $ write sys$output "CM : D. Brown" 105 $ write sys$output "@" 105 $ write sys$output "PL : Windows" 105 $ write sys$output "UN : User2" 105 $ write sys$output "PR : Profile2" 105 $ write sys$output "CC : HFH" 105 $ write sys$output "CM : D Brown" 105 $ write sys$output "@" 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 # 201 Platform 205 PL 208 TAG_AA 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Username 205 UN 208 TAG_AB 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Profile 205 PR 208 TAG_AC 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 CC 205 CC 208 TAG_CC 202 0 203 1 207 0 204 0 206 0 209 0 @C@ # 201 CC Manager 205 CM 208 TAG_CM 202 0 203 1 207 0 204 0 206 0 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 # 311 Compare 313 1 336 325 0 345 0 346 0 # 321 10 322 1 # 312 312Help text goes here...
312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 # 314 use Sysgem; 314 314 314 314 314 print "\@{{B Comparison Results\n"; 314 314 314 print "\@{{T Subscriber CC.............: \t $SubCC \n"; 314 print "\@{{T Account CC................: \t $ENTRY_CC \n"; 314 314 if ($SubCC eq $ENTRY_CC) 314 { 314 print "\@{{T Fields are identical \n"; 314 } 314 else 314 { 314 print "\@{{T Fields do not match \n"; 314 } 314 314 print "\@{{T \n"; 314 314 print "\@{{T Subscriber CC Manager ....: \t $SubCM\n"; 314 print "\@{{T Account CC Manager .......: \t $ENTRY_CM\n"; 314 if ($SubCM eq $ENTRY_CM) 314 { 314 print "\@{{T Fields are identical \n"; 314 } 314 else 314 { 314 print "\@{{T Fields do not match \n"; 314 } 314 314 314 print "\@{{T \n"; 314 314 print "\@{{DI\n"; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 # 326 # Current Subscriber details 326 # 326 my $SubCC = $Classes{"SAcM Subscriber"}{"CC"}{"value"}; # CC 326 my $SubCG = $Classes{"SAcM Subscriber"}{"CG"}{"value"}; # CC Mgr 326 326 # 326 # Write to the Audit log 326 # 326 use Sysgem; 326 #include SAcM_Common_Date_Routines 326 #include SAcM_Options_Cache 326 #include SAcM_Logfile 326 326 my $AudSeq = AuditSeqNumber(); 326 326 UMLogAddAccount($SysgemComputer , 326 $SysgemUsername , 326 $ENTRY_UN, 326 "Exercise 6 successful", 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "Audit Seq. No..: $AudSeq", 326 "Subscr CC......: $SubCC", 326 "Subscr CC Mgr..: $SubCG", 326 "Account CC ....: $ENTRY_CC", 326 "Account CC Mgr.: $ENTRY_CM" ); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 # 327 # See if we are in the context of a current subscriber 327 # reject if not 327 # 327 if (!exists($Classes{"SAcM Subscriber"}{"BN"}{"value"})) 327 { 327 print "\@{{B No current subscriber\n"; 327 print "\@{{T You must be in the context of a Current Subscriber Record.\n"; 327 print "\@{{T Please start the Subscriber DB window and select just one record.\n"; 327 print "\@{{DE\n"; 327 print "\@{{ABORT"; 327 die; 327 } 327 327 # 327 # Current Subscriber details 327 # 327 my $SubCC = $Classes{"SAcM Subscriber"}{"CC"}{"value"}; # CC 327 my $SubCG = $Classes{"SAcM Subscriber"}{"CG"}{"value"}; # CC Mgr 327 327 if ($SubCC ne "") 327 { 327 if ($SERVER_TYPE =~ m/UNIX/) 327 { 327 print "\@{{ADD_SVR SubCC=\"$SubCC\" \n"; 327 } 327 elsif ($SERVER_TYPE =~ m/Windows/) 327 { 327 print "\@{{ADD_SVR my \$SubCC = \"$SubCC\";\n"; 327 } 327 elsif ($SERVER_TYPE =~ m/VMS/) 327 { 327 print "\@{{ADD_SVR \$ SubCC == \"$SubCC\" \n"; 327 } 327 } 327 327 if ($SubCG ne "") 327 { 327 if ($SERVER_TYPE =~ m/UNIX/) 327 { 327 print "\@{{ADD_SVR SubCM=\"$SubCG\" \n"; 327 } 327 elsif ($SERVER_TYPE =~ m/Windows/) 327 { 327 print "\@{{ADD_SVR my \$SubCM = \"$SubCG\";\n"; 327 } 327 elsif ($SERVER_TYPE =~ m/VMS/) 327 { 327 print "\@{{ADD_SVR \$ SubCM == \"$SubCG\" \n"; 327 } 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 315 315 echo "@{{B Comparison Results" 315 315 315 echo "@{{T Subscriber CC.............: ${SubCC} " 315 echo "@{{T Account CC................: ${ENTRY_CC} " 315 315 if [ "${SubCC}" = "${ENTRY_CC}" ] 315 then 315 echo "@{{T Fields are identical " 315 else 315 echo "@{{T Fields do not match " 315 fi 315 315 echo "@{{T " 315 315 echo "@{{T Subscriber CC Manager ....: ${SubCM}" 315 echo "@{{T Account CC Manager .......: ${ENTRY_CM}" 315 315 315 if [ "${SubCM}" = "${ENTRY_CM}" ] 315 then 315 echo "@{{T Fields are identical " 315 else 315 echo "@{{T Fields do not match " 315 fi 315 315 315 echo "@{{T " 315 315 echo "@{{DI" 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 $ 316 $ write sys$output "@{{B Comparison Results" 316 $ 316 $ write sys$output "@{{T Subscriber CC.............: ''SubCC' " 316 $ write sys$output "@{{T Account CC................: ''ENTRY_CC' " 316 $ 316 $ if SubCC .eqs. ENTRY_CC 316 $ then 316 $ write sys$output "@{{T Fields are identical " 316 $ else 316 $ write sys$output "@{{T Fields do not match " 316 $ endif 316 $ 316 $ write sys$output "@{{T " 316 $ 316 $ write sys$output "@{{T Subscriber CC Manager ....: ''SubCM'" 316 $ write sys$output "@{{T Account CC Manager .......: ''ENTRY_CM'" 316 $ if SubCM .eqs. ENTRY_CM 316 $ then 316 $ write sys$output "@{{T Fields are identical " 316 $ 316 $ else 316 $ write sys$output "@{{T Fields do not match " 316 $ endif 316 $ 316 $ write sys$output "@{{T " 316 $ 316 $ write sys$output "@{{DI" 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGEHelp text goes here...
312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # Disable registry save / restore. 330 # 330 print "&& : OFF\n"; 330 330 # 330 # Load values from the selected entry. 330 # (This is here purely as an example - these two fields will 330 # actually be overwritten by the output from the initialize script) 330 # 330 print "PL : ", $SelectedEntry{0}{"PL"}{"value"}, "\n"; #platform type 330 print "UN : ", $SelectedEntry{0}{"UN"}{"value"}, "\n"; #username 330 330 # 330 # load the information returned from the initialisation script 330 # 330 foreach $output (@script_output) 330 { 330 print "$output\n"; 330 } 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 # 314 use Sysgem; 314 314 # 314 # This script would normally update the local account, then 314 # return the result of the transaction to refresh the display. 314 # In this example we will just return the content of the input record. 314 # 314 print "PL : $INPUT_PL\n"; 314 print "UN : $INPUT_UN\n"; 314 print "PR : $INPUT_PR\n"; 314 print "CC : $INPUT_CC\n"; 314 print "CM : $INPUT_CM\n"; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 # 326 # Do not refresh the display. 326 # 326 # @{{REFRESH_DISPLAY=NO 326 326 # 326 # Modify this entry on the display. 326 # 326 print "\@{{DSP_MOD 99 $ENTRY_99\n"; # Index of entry to modify 326 326 foreach $line (@script_output) 326 { 326 if (substr($line, 2, 3) eq " : ") 326 { 326 $line =~ s/ : / /; 326 326 print "\@{{DSP_MOD " . $line . "\n"; 326 } 326 } 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 315 # 315 # This script would normally update the local account, then 315 # return the result of the transaction to refresh the display. 315 # In this example we will just return the content of the input record. 315 # 315 echo "PL : ${INPUT_PL}" 315 echo "UN : ${INPUT_UN}" 315 echo "PR : ${INPUT_PR}" 315 echo "CC : ${INPUT_CC}" 315 echo "CM : ${INPUT_CM}" 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 316 $! 316 $! This script would normally update the local account, then 316 $! return the result of the transaction to refresh the display. 316 $! In this example we will just return the content of the input record. 316 $! 316 $ write sys$output "PL : ''INPUT_PL'" 316 $ write sys$output "UN : ''INPUT_UN'" 316 $ write sys$output "PR : ''INPUT_PR'" 316 $ write sys$output "CC : ''INPUT_CC'" 316 $ write sys$output "CM : ''INPUT_CM'" 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 # 337 use Sysgem; 337 337 # 337 # unchanged from selected entry... 337 # 337 print "PL : $ENTRY_PL\n"; 337 print "UN : $ENTRY_UN\n"; 337 337 # 337 # simulate changes to selected entry since display last refreshed... 337 # 337 print "PR : Profile4\n"; 337 print "CC : GYL\n"; 337 print "CM : Peter Dawson\n"; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 340 # 340 # unchanged from selected entry... 340 # 340 echo "PL : ${ENTRY_PL}" 340 echo "UN : ${ENTRY_UN}" 340 340 # 340 # simulate changes to selected entry since display last refreshed... 340 # 340 echo "PR : Profile4" 340 echo "CC : GYL" 340 echo "CM : Peter Dawson" 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 341 $! 341 $! unchanged from selected entry... 341 $! 341 $ write sys$output "PL : ''ENTRY_PL'" 341 $ write sys$output "UN : ''ENTRY_UN'" 341 341 $! 341 $! simulate changes to selected entry since display last refreshed... 341 $! 341 $ write sys$output "PR : Profile4" 341 $ write sys$output "CC : GYL" 341 $ write sys$output "CM : Peter Dawson" 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE