Zoltan.
<< Thanks for the many answers about using "+". However, it doesn't work. >>
<< I guess I didn't make my self clear. I am running ADSM in batch, not >>
<< "TSO in BATCH" >>
Why do you not want to run your batch sql using the ikjeft01 batch program and
calling a macro ?
That way you can build up a library of your all commonly used sql.
See below some rexx for invoking the dsmc tso interface in the batch jcl uusing
the ikjeft01 program
/*rexx*/
/********************************************************************/
/* Routine : DSMC Type : TSO/ISPF */
/* */
/* Exec to invoke the ADSM TSO administrative client interface. This*/
/* allows you to issue commands to ADSM without issuing MVS commands*/
/* */
/* Invocation : >-- DSMC -----------------------------------< */
/* */
/* Input : None */
/* */
/* Output : N/A */
/* */
/* Externals : None */
/* */
/* Futures : None */
/* */
/********************************************************************/
Arg parms
dummy = PROMPT(ON) /* PROMPT must be ON for the i/f */
/* to work..without it the session */
/* is severed before p/w checking */
dummy = OUTTRAP('status.')
"STATUS ADSM"
dummy = OUTTRAP(OFF)
ADSM_OK = 0
Do ctr = 1 to status.0 /* Scan the STATUS o/p... */
If POS('EXECUTING',status.ctr) > 0 then
do /* looking for EXECUTING message */
ADSM_OK = 1 /* to indicate ADSM is active */
LEAVE ctr
end
End
If ADSM_OK then NOP
else /* ADSM not up,so can't continue */
do
Say 'DSMC TSO client interface is not available as ADSM is not'
Say 'running on this system.'
Exit
end
"ALLOC F(DSCOPT) DA('SMS.PARMLIB(DSMCOPTS)') SHR REU"
"ALLOC F(DSCLANG) DA('SYS1.SANSMSG(ANSMENU)') SHR REU"
"CALL 'SYS1.LINKLIB(DSMADMC)' '"parms"'"
"FREE F(DSCOPT DSCLANG )"
Exit
Hope this helps
John
**********************************************************************
The information in this E-Mail is confidential and may be legally
privileged. It may not represent the views of Scottish and Southern
Energy plc.
It is intended solely for the addressees. Access to this E-Mail by
anyone else is unauthorised. If you are not the intended recipient,
any disclosure, copying, distribution or any action taken or omitted
to be taken in reliance on it, is prohibited and may be unlawful.
Any unauthorised recipient should advise the sender immediately of
the error in transmission.
Scottish Hydro-Electric and Southern Electric are trading names of
Scottish and Southern Energy Group.
**********************************************************************
