Custom TCP server after Restricted State

[Jason Abreu <jason.abreu@xxxxxxxxxxxxxxxxxxxx>]

Chuck,

I can add a catch for the message so the process doesn't get held up and 
affect other jobs.  I used the following command to register the server:
ADDTCPSVR SVRSPCVAL(*TOMCAT)
PGM(ABREUJ/TOMCATSVR) SVRNAME(TOMCAT)
SVRTYPE(TOMCAT) AUTOSTART(*YES)
TEXT('Tomcat 6.0.30')

My temporary work around is to use the AUTOSTART(*NO) option until I 
find out what the underlying issue is.

I get the same results when I manually execute either STRTCPSVR *TOMCAT 
or CALL TOMCATSVR PARM(*START).

QPGMR does _not_ appear to have any explicit permissions to the *USRPRF 
or *MSGQ.

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

On 3/7/2011 11:48 AM, CRPence wrote:
> On 3/7/11 5:05 AM, Jason Abreu 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.
>
> The issue noted below is with the CLP, so instead of effect from the
> STRTCPSVR request, what about CALL MyCLP results?
>
> > 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.
>
> The CLP is called from QSTRUPPGM? That job runs under user profile
> QPGMR, so that user must be authorized to anything any program in that
> job references, or each program must adopt authority from a user that
> has authority to all resources that specific program references.
>
> > Any ideas why this may occur? I have included my CL code below.
>
> If running via the Startup Program\Job, proper message handling in the
> program(s) will prevent the default handler from intercepting a
> "function check" and causing the job to stop in MSGW waiting on a reply
> to an inquiry message.
>
> > ==============================
> > <<SNIP most of CLP>>
> >
> > SBMJOB CMD(QSH CMD(&QSHCMD)) JOB(&JOBNAME) +
> > JOBQ(QSYSNOMAX) USER(TOMCAT) +
> > MSGQ(QUSRSYS/TOMCAT)
> >
> > ENDPGM
> > ==============================
>
> Does the user profile QPGMR have authority to the user profile [and
> message queue] TOMCAT?
>
> Regards, Chuck