you could also simply use TFRJOB to put your interactive session in the
controlling subsystem...
Thanks,
Tommy Holden
From: "Richard Schoen" <richard@xxxxxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Date: 06/02/2010 11:41 PM
Subject: RE: V7R1 SQL Testing Issue - RCLSTG without console access
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Hello All,
Thanks for the email replies on the SQL issue I was having.
QSYSOPR messages told me there was a problem with system xref files, so
I needed to shut down subsystems and run RCLSTG *DBXREF.
Problem was I had no console access because this is an IBM Virtual
Loaner Partition.
Googled and finally came across a KB with a CL program for shutting down
controlling subsystem and running RCLSTG and restarting subsystems.
In case you ever need this:
Create a CL program with the following in it.
Submit to job queue in controlling subsystem. In my case I submitted to
jobq QCTL.
It shuts down all subsystems, runs RCLSTG and restarts subsystems QCTL
and QINTER.
Probably best to do a PWRDWNSYS restart after running RCLSTG if you were
to use this on a production box.
It's not pretty but it works.
PGM
ENDSBS SBS(*ALL) OPTION(*IMMED) DELAY(30) +
BCHTIMLMT(120)
DLYJOB DLY(90)
RETRY: RCLSTG SELECT(*DBXREF)
MONMSG MSGID(CPF8209) EXEC(GOTO CMDLBL(WAIT))
GOTO CMDLBL(RESTART)
WAIT: DLYJOB DLY(2)
GOTO CMDLBL(RETRY)
RESTART: STRSBS SBSD(QCTL)
MONMSG MSGID(CPF0000)
DLYJOB DLY(30)
STRSBS SBSD(QINTER)
MONMSG MSGID(CPF0000)
ENDPGM
Regards,
Richard Schoen
RJS Software Systems Inc.
Where Information Meets Innovation
Document Management, Workflow, Report Delivery, Forms and Business
Intelligence
Email: richard@xxxxxxxxxxxxxxx
Web Site:
http://www.rjssoftware.com
Tel: (952) 736-5800
Fax: (952) 736-5801
Toll Free: (888) RJSSOFT
midrange.com
