Re: Custom TCP server after Restricted State

[Jack Kingsley <iseriesflorida@xxxxxxxxx>]

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.