RE: [WEB400] qshell script to drop servers

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

I wrapper the call to QShell in a command.  The override of STDOUT
prevents that Unix-y QShell command screen from coming up.

NOTE: This command only works if your server name and instance name are
the same.  If that's not the case at your shop, you'll need to add an
additional parameter.  If you only have one instance, you can hardcode
the parameters, skip the command and just call the CL.

HTH.

Joe



Command:
 ENDWASSVR:  CMD        PROMPT('End WebSphere AppServer')         
             PARM       KWD(SVR) TYPE(*NAME) PROMPT('Server Name')

CL:
 ENDWASSVRC: PGM        PARM(&SVR)                                    
                                                                      
             DCL        VAR(&SVR) TYPE(*CHAR) LEN(10)                 
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(80)                 
                                                                      
             CHGVAR     VAR(&CMD) +                                   
                          VALUE('/QIBM/ProdData/WebASE/ASE5/bin/stopS+
                          erver -instance' *BCAT &SVR *BCAT &SVR)     
                                                                      
             DLTF       FILE(QTEMP/STDOUT)                            
             MONMSG     CPF2105                                       
             CRTPF      FILE(QTEMP/STDOUT) RCDLEN(128)                
                                                                      
             OVRDBF     STDOUT QTEMP/STDOUT                           
             QSH        CMD(&CMD)                                     
             DLTOVR     STDOUT                                        
                       
             ENDPGM    


> From: rob@xxxxxxxxx
> 
> Evidently when the server is started with the GUI the job log looks
> something like:
> CALL PGM(QEJBAS5/QEJBSTRSVR) PARM('-instance'
> '/QIBM/UserData/WebAS5/Base/WAS5Portal' '-server' 'WAS5Portal')
> And I see a Autostart job entry in subsystem QEJBAS5/QEJBAS5  that
uses
> something similar to start another instance.
> 
> Doing a wrkobj QEJBAS5/QEJB* doesn't show anything like a end server
> program.
> 
> Just trying to see if there's something more iSeries friendly than
qshell.