The "SAcM Web Access DB" is a database holding requests for changes 102 (Creations / Modifications / Deletions / Reset Passwords / etc.) to user 102 accounts on multi-platform target systems. SAcM can be configured to take 102 automatic action on user account management requests placed in this database.
102The name "Web Access DB" has been chosen because the intention is 102 for customer 'Web-based applications' to use this database as a means of 102 implementing automatic changes to 'Enterprise-wide' user accounts.
102Customers who do not have such applications should contact their distributor 102 or Sysgem to enquire of the availability of a Web-based User Account 102 Administration application from Sysgem.
102There are two SAcM Display windows that take action on the SAcM Web Access 102 DB:
102102102102
102- Web Access Request: "Process Requests"
102- Web Access Request: "View Results"
102
Process Requests
102The "Process Requests" display window will run either in 102 "Semi-Automatic" mode or "Automatic" mode. In Semi-Automatic 102 mode the requests in the database that are in the state "Submitted" 102 are loaded into the window and remain there for the administrator to manually 102 select and 'release' for processing on the designated system. In Automatic mode 102 the records with a status "Submitted" are automatically loaded one at 102 a time and released automatically for execution on the designated target 102 systems.
102This window should first be run in Semi-Automatic mode to ensure the system 102 has been set up correctly, then switched to "Automatic", and finally 102 the display window should be saved as a "SEM Session" and submitted 102 (on a Windows Server) for SEM "Unattended Operation" by a Sysgem NT 102 Service.
102View Results
102The "View Results" display window is used to view the content of 102 the SAcM Web Access DB. All records in all states are loaded into this window. 102 So those requests that have not yet reached the status of "Submitted" 102 (i.e. are still in the status of "Requested" can be viewed, together 102 with any requests that have been "Submitted" but not yet processes, 102 and those where processing has already complete ("Finished") or those 102 that encountered an error (Status = "Failed").
102The "Summary" and "Default" display formats in the 102 "View Results" display show the following columns of information"
102102102102
102- Date (when the Web request was submitted)
102- Status (Requested/Submitted/Finished/Failed)
102- Target System (on which the user account for management resides)
102- Account (the name of the account on the target system)
102- Command (the action to be taken on the target account)
102
Other views are also available giving different column layouts:
102102102102
102- "Parameters" (gives the summary information above plus the 102 parameters giving details of the requested transaction. This is shown as 102 parameter 'Pairs' giving field 'name' and 'value' for each field affected 102 by the transaction).
102- "Results" (giving the output generated as a result of performing 102 the transaction)
102
Database Format
102The database format is assumed by default to be based on Microsoft Access, 102 but it can be used with SQL Server or other ODBC compliant architectures. For 102 details of how to change the format to be SQL Server, see the chapter on 102 Configuration at the beginning of this guide.
102102 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 # 108 108 # 108 # @{{AUTOSTART_DISPLAY_TITLE View Results 108 # 108 167 0 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 # 109 use Sysgem; 109 109 use constant WAR_DSN => "Sysgem Web Access Request DB"; 109 use constant SAcM_WAR_Command => "SAcM_WAR_Command"; 109 use constant SAcM_WAR_Param => "SAcM_WAR_Param"; 109 use constant SAcM_WAR_Results => "SAcM_WAR_Results"; 109 use constant SAcM_WAR_Archives => "SAcM_WAR_Archives"; 109 109 #include SAcM_Tokens 109 109 # 109 # Return the current DBMS defined for the DSN. 109 # 109 # If the DSN information cannot be found an empty string is returned. 109 # 109 sub GetCurrentDBMS 109 { 109 my @fields = (); 109 my @values = (); 109 my $error = ""; 109 my $status = Sysgem::ODBCGetDSNInfo(WAR_DSN, 109 \@fields, 109 \@values, 109 $error); 109 109 for (my $idx = 0; $idx < @fields; $idx++) 109 { 109 if ($fields[$idx] =~ "DBMS product name") 109 { 109 return $values[$idx]; 109 } 109 } 109 109 return ""; 109 } 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 #include SAcM_WAR_DB 103 103 DefineWarDatabase($INPUT_DW); 103 103 # 103 # Data Structures 103 # 103 my %tasks = (); # to store the WAR 'command' table (gives names of tasks to be carried out) 103 my %params = (); # to store the WAR 'params' table (gives the parameters to each task) 103 my %results = (); # to store the WAR 'results' table (gives the results of each task) 103 my %record = (); # to merge tasks with their parameters before displaying 103 103 my $error = ""; 103 my $status = 0; 103 103 # 103 # Get all 'Submitted' Command records. 103 # 103 my $filter = ""; 103 103 if ($INPUT_FI ne "") 103 { 103 $filter = "[RequestID] LIKE '%$INPUT_FI%'"; 103 } 103 103 $status = Sysgem::ODBCAllRecords(WAR_DSN, 103 "", 103 WARTableForArchive($INPUT_AR, SAcM_WAR_Command), 103 $filter, # filter (e.g. "[RequestStatus] = 'Submitted'" ) 103 "[RequestID]", # return field (e.g. "[RequestID]" ) 103 \%tasks, 103 $error); 103 103 if ($status != 1) 103 { 103 ReportError(WAR_DSN, "Unable to read " . SAcM_WAR_Command, $error); 103 die; 103 } 103 103 # 103 # Get all Parameters. 103 # 103 $status = Sysgem::ODBCAllRecords(WAR_DSN, 103 "", 103 WARTableForArchive($INPUT_AR, SAcM_WAR_Param), 103 $filter, 103 "", 103 \%params, 103 $error); 103 103 if ($status != 1) 103 { 103 ReportError(WAR_DSN, "Unable to read " . SAcM_WAR_Param, $error); 103 die; 103 } 103 103 # 103 # Get all Results. 103 # 103 $status = Sysgem::ODBCAllRecords(WAR_DSN, 103 "", 103 WARTableForArchive($INPUT_AR, SAcM_WAR_Results), 103 $filter, 103 "", 103 \%results, 103 $error); 103 103 if ($status != 1) 103 { 103 ReportError(WAR_DSN, "Unable to read " . SAcM_WAR_Param, $error); 103 die; 103 } 103 103 # 103 # Merge the Tasks and parameters. 103 # 103 foreach $key (keys %tasks) 103 { 103 my $id = $tasks{$key}{"[RequestID]"}; 103 $record{$id}{"Date"} = $tasks{$key}{"[RequestDate]"}; 103 $record{$id}{"Task"} = $tasks{$key}{"[Command]"}; 103 $record{$id}{"Status"} = $tasks{$key}{"[RequestStatus]"}; 103 $record{$id}{"Key"} = $key; 103 } 103 103 # 103 # Put the results into a hash of arrays . 103 # 103 my $idx = 0; 103 my %res = (); 103 my %errmsg = (); 103 103 foreach $key (keys %results) 103 { 103 my $id = $results{$key}{"[RequestID]"}; 103 my $fstr = $results{$key}{"[ResultFieldName]"} . " : " . $results{$key}{"[ResultValue]"}; 103 push @{$res{$id}}, $fstr; 103 103 # 103 # is there an error message stored in the Results table? 103 # 103 if ($results{$key}{"[ResultFieldName]"} eq "Error") 103 { 103 $errmsg{$id} = $results{$key}{"[ResultValue]"}; 103 } 103 } 103 103 103 103 foreach $key (keys %params) 103 { 103 my $id = $params{$key}{"[RequestID]"}; 103 103 # 103 # Only use those from the tasks already obtained 103 # 103 if (!exists($record{$id})) 103 { 103 next; 103 } 103 103 my $index = 0; 103 103 while ( exists($record{$id}{$index}) ) 103 { 103 $index++; 103 } 103 103 $record{$id}{$index}{"Param"} = $params{$key}{"[ParamName]"}; 103 $record{$id}{$index}{"Value"} = $params{$key}{"[ParamValue]"}; 103 } 103 103 # 103 # Print the output 103 # 103 foreach my $rec (sort keys %record) 103 { 103 print "RS : $rec\n"; 103 print "QB : $record{$rec}{\"Task\"}\n"; 103 print "QD : $record{$rec}{\"Status\"}\n"; 103 103 if (exists($errmsg{$rec})) 103 { 103 print "EM : $errmsg{$rec}\n"; 103 } 103 103 print "QE : $record{$rec}{\"Date\"}\n"; 103 print "QA : $record{$rec}{\"Key\"}\n"; 103 103 my @pairs = qw(QF:QG 103 QH:QI 103 QJ:QK 103 QL:QM 103 QN:QO 103 QP:QQ 103 QR:QS 103 QT:QU 103 QV:QW 103 QX:QY 103 HC:IC 103 HE:IE 103 HF:IF 103 HG:IG 103 HH:IH 103 HI:II 103 HJ:IJ 103 HK:IK 103 HL:IL 103 HM:IM 103 HN:IN 103 HP:IP 103 HU:IU 103 HW:IW 103 HX:IX 103 HY:IY 103 HZ:IZ ); 103 my $idx = 0; 103 103 # 103 # Print each pair of parameters (name and value), and identify 103 # the target system and put that also in it's own column (QC) 103 # 103 foreach my $pair (@pairs) 103 { 103 (my $first, my $second) = split(":", $pair); 103 103 if ($record{$rec}{$idx}{"Param"} eq "TargetSystem") 103 { 103 print "QC : $record{$rec}{$idx}{\"Value\"}\n"; 103 } 103 elsif ($record{$rec}{$idx}{"Param"} eq "Username") 103 { 103 print "QZ : $record{$rec}{$idx}{\"Value\"}\n"; 103 } 103 103 print "$first : $record{$rec}{$idx}{\"Param\"}\n"; 103 print "$second : $record{$rec}{$idx}{\"Value\"}\n"; 103 103 $idx++; 103 } 103 103 # 103 # print ParamNames in black on pale lilac 103 # 103 @Cols = qw(QF QH QJ QL QN QP QR QT QV QX HC HE HF HG HH HI HJ HK HL HM HN HP HU HW HX HY HZ); 103 103 foreach my $col (@Cols) 103 { 103 print "$col : &T : 0 0 0\n"; 103 print "$col : &B : 245 240 255\n"; 103 } 103 103 # 103 # Print the 'results' 103 # 103 @ResCodes = qw(AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ AR AS AT AU AV AW AX AY AZ); 103 103 my $residx = 0; 103 foreach my $itm (@{$res{$rec}}) 103 { 103 print "$ResCodes[$residx] : $itm\n"; 103 $residx++; 103 103 if ($residx > (@ResCodes -1) ) 103 { 103 last; 103 } 103 } 103 103 # 103 # terminate the entry 103 # 103 print "@\n"; 103 103 if ( $INPUT_AA EQ "Automatic" ) 103 { 103 last; 103 } 103 103 } 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 # 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 $! 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 161 162 163 164 165 166 168 0 170 0 171 0 # 201 Date 205 QE 208 TAG_QE 202 0 203 1 207 1 204 0 206 4 209 0 @C@ # 201 Status 205 QD 208 TAG_QD 202 0 203 1 207 0 204 0 206 4 209 0 @C@ # 201 Account 205 QZ 208 TAG_QZ 202 0 203 1 207 1 204 0 206 4 209 0 @C@ # 201 Target System 205 QC 208 TAG_QC 202 0 203 1 207 1 204 0 206 4 209 0 @C@ # 201 Command 205 QB 208 TAG_QB 202 0 203 1 207 1 204 0 206 4 209 0 @C@ # 201 Request ID 205 QA 208 TAG_QA 202 0 203 0 207 1 204 0 206 4 209 0 @C@ # 201 Message 205 EM 208 202 0 203 1 207 0 204 0 206 4 209 0 @C@ # 201 Param 01 205 QF 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 01 205 QG 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 02 205 QH 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 02 205 QI 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 03 205 QJ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 03 205 QK 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 04 205 QL 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 04 205 QM 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 05 205 QN 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 05 205 QO 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 06 205 QP 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 06 205 QQ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 07 205 QR 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 07 205 QS 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 08 205 QT 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 08 205 QU 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 09 205 QV 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 09 205 QW 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 10 205 QX 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 10 205 QY 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 11 205 HC 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 11 205 IC 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 12 205 HE 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 12 205 IE 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 13 205 HF 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 13 205 IF 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 14 205 HG 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 14 205 IG 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 15 205 HH 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 15 205 IH 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 16 205 HI 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 16 205 II 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 17 205 HJ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 17 205 IJ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 18 205 HK 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 18 205 IK 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 19 205 HL 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 19 205 IL 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 20 205 HM 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 20 205 IM 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 21 205 HN 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 21 205 IN 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 22 205 HP 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 22 205 IP 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 23 205 HU 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 23 205 IU 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 24 205 HW 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 24 205 IW 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 25 205 HX 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 25 205 IX 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 26 205 HY 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 26 205 IY 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param 27 205 HZ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value 27 205 IZ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 01 205 AA 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 02 205 AB 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 03 205 AC 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 04 205 AD 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 05 205 AE 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 06 205 AF 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 07 205 AG 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 08 205 AH 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 09 205 AI 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 10 205 AJ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 11 205 AK 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 12 205 AL 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 13 205 AM 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 14 205 AN 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 15 205 AO 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 16 205 AP 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 17 205 AQ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 18 205 AR 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 19 205 AS 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 20 205 AT 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 21 205 AU 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 22 205 AV 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 23 205 AW 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 24 205 AX 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 25 205 AY 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Result 26 205 AZ 208 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 301 0 301 1 301 2 301 3 301 4 301 5 301 6 301 7 301 8 301 9 # 311 &Delete 313 2 336 325 1 345 0 346 0 358 # 321 10 322 1 # 312 312
Select one or more entries in the window and then select the Delete menu 312 option to remove these entries from the Web Access Request Database.
312All entries matching the selection are deleted from all tables in the 312 database (tables: SAcM_WAR_Command / SAcM_WAR_Params / SAcM_WAR_Results).
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 #include SAcM_WAR_DeleteEntry 314 314 WAR_DeleteEntry(); 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 # 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 if ($STARTUP_AR ne "Live") 327 { 327 print "\@{{B Error\n"; 327 print "\@{{T Entries from archived copies of the WAR\n"; 327 print "\@{{T database cannot be deleted.\n"; 327 print "\@{{DE\n"; 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 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 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_PAGEThis option updates the selected WAR records and changes their status to 'Submitted'.
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 print "\@{{AUTOCLOSE\n"; 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 print "It all happens in Post - Processing\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 # Do not refresh the display automatically - do it manually. 326 # 326 326 #include SAcM_WarSubmitted 326 326 326 WarSubmitted(); 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 if ($STARTUP_AR ne "Live") 327 { 327 print "\@{{B Error\n"; 327 print "\@{{T Entries from archived copies of the WAR\n"; 327 print "\@{{T database cannot be resubmitted.\n"; 327 print "\@{{DE\n"; 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 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 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 #{{SHELL_LINUX #!/bin/sh 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_PAGE