Re: Custom TCP server after Restricted State

Jason

Where are you seeing the CPF1338 error? In a job log? In the system operator message queue? That almost always means you need to look earlier in the job log - the "real" errors will be there - these "error notification" messages are the bane of my existence when supporting our customers - they think we should know what it's about. NO! You have to go look for WHAT the error was.

Sorry, just my rant at the start of the week! The rest had better be better!

Verh

On 3/7/2011 8:09 AM, Jason Abreu wrote:

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.