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.
**********************************************************************