Re: Custom TCP server after Restricted State

Apologies, I forgot to mention the error...

I'm getting a generic error:
CPF1338 - Errors occurred on SBMJOB command.

According to DSPLOG:
The HTTP server is starting perfectly fine at 04:06:37, so I am assuming that TCP is up and running. The Tomcat job is failing at 04:07:35, right between the time the Directory Server and iSeries NetServer are successfully started.

However, not all TCP servers are started after this error occurs because there are login issues afterwards, in the morning. We had to run "STRHOSTSVR SERVER(*SIGNON *SVRMAP)" manually to allow logins.

Jason Abreu
Abreu Innovations, Inc.
jason.abreu@xxxxxxxxxxxxxxxxxxxx
http://www.abreuinnovations.com/

On 3/7/2011 8:43 AM, Jack Kingsley wrote:

What error are you getting?? How soon after your 21 is completed does this
run, is the IP stack back active when this is launched.

On Mon, Mar 7, 2011 at 8:05 AM, Jason Abreu<
jason.abreu@xxxxxxxxxxxxxxxxxxxx> wrote:

I have a CL program that I use to define a Custom TCPSRV for starting
Tomcat 6.0.30. When the machine is up and running, the STRTCPSVR
*TOMCAT runs with no errors.
After the machine leaves a restricted state (IPL/ Opt 21 Backup),
however, the command fails and prevents other startup jobs from running.
Those startup jobs have to manually be executed.

Any ideas why this may occur? I have included my CL code below.

==============================
PGM PARM(&COMMAND)
DCL VAR(&COMMAND) TYPE(*CHAR) LEN(10)
DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&QSHCMD) TYPE(*CHAR) LEN(255) +
VALUE('cd /Apache/apache-tomcat-6.0.30/bin;')


IF COND((&COMMAND *EQ '*START')) THEN(DO)
CHGVAR VAR(&JOBNAME) VALUE('STRTOMCAT')
CHGVAR VAR(&QSHCMD) VALUE(&QSHCMD *TCAT './startup.sh')
ENDDO


IF COND((&COMMAND *EQ '*END')) THEN(DO)
CHGVAR VAR(&JOBNAME) VALUE('ENDTOMCAT')
CHGVAR VAR(&QSHCMD) VALUE(&QSHCMD *TCAT './shutdown.sh')
ENDDO


OVRDBF FILE(STDOUT) TOFILE(QSYS/QPRINT)
OVRDBF FILE(STDERR) TOFILE(QSYS/QPRINT)

SBMJOB CMD(QSH CMD(&QSHCMD)) JOB(&JOBNAME) +
JOBQ(QSYSNOMAX) USER(TOMCAT) +
MSGQ(QUSRSYS/TOMCAT)

ENDPGM
==============================
--
Jason Abreu
Abreu Innovations, Inc.
jason.abreu@xxxxxxxxxxxxxxxxxxxx
http://www.abreuinnovations.com/
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.