RE: [WEB400] qshell script to drop servers

[rob@xxxxxxxxx]

Thanks Joe.  I'll take a look at that.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx> 
Sent by: web400-bounces@xxxxxxxxxxxx
11/22/2004 09:45 AM
Please respond to
Web Enabling the AS400 / iSeries <web400@xxxxxxxxxxxx>


To
"'Web Enabling the AS400 / iSeries'" <web400@xxxxxxxxxxxx>
cc

Subject
RE: [WEB400] qshell script to drop servers






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.

_______________________________________________
This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/web400.