I use the same mechanism but I can fit it all on 1 PDS member.
//TSMJOB1 EXEC PGM=IKJEFT01
//STEPLIB DD DSN=SYS1.CEE.SCEERUN,DISP=SHR
//DSCLANG DD DSN=SYS1.TSM.SANSMSG(ANSMENU),DISP=SHR
//DSCOPT DD DSN=AGPP.TSM.TSOADMIN.OPTIONS,DISP=SHR
//SYSHELP DD DSN=SYS1.TCPIP.SEZAHELP,DISP=SHR
//SYSIN DD DUMMY
//SYSTSIN DD *
DSMADMC -ID=XXXXXXXX -PASSWORD=xxxxxxxx MACRO DD:TRYME
//TRYME DD *
select * from -
backups where -
node_name='USCLES803' -
and backup_date<'2001-04-01' -
order by BACKUP_DATE
/*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
Hope it helps,
Matt
-----Original Message-----
From: Bill Colwell [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 12, 2001 4:07 PM
To: [EMAIL PROTECTED]
Subject: Re: SQL on OS390
Zoltan,
I use a plus sign, but I don't try to put long selects into the call
command,
instead I use a macro. Here is some jcl and a macro -
//QUERYVOL EXEC PGM=IKJEFT01,DYNAMNBR=100
/SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
FREE F(DSCLANG DSCOPT)
DEL 'mytsoid.SELVOLS.OUTPUT'
ALLOC F(DSCLANG) DA('ADSM.V3R1M21.SANSMSG(ANSMENU)') SHR REU
ALLOC F(DSCOPT) DA('ADSM.V3R1.ADMIN.PORT1600.TSOOPT') SHR REU
CALL 'ADSM.V3R1M21.LINKLIB(DSMADMC)' +
'-ID=mytsmid -PASS=mypass +
MACRO ''ADSM.V3R1.PROD.MACS(SELVOLS)'' '
/* */
/* macro file to select all tape volumes */
/* */
/* */
set sqldisplaymode w
select * -
from adsm.volumes -
where stgpool_name ^= 'BACKUPPOOL' -
> 'mytsoid.SELVOLS.OUTPUT'
Hope this helps,
--
--------------------------
Bill Colwell
C. S. Draper Lab
Cambridge, Ma.
[EMAIL PROTECTED]
--------------------------
In <[EMAIL PROTECTED]>, on 07/12/01
at 04:06 PM, Zoltan Forray/AC/VCU <[EMAIL PROTECTED]> said:
>I see lots of SQL floating around here.
>Since my server is OS390, I tried a "query" in batch. However, the
>command was too long for a 72-column "card".
>What character is used to continue SQL commands onto subsequent lines ? I
>tried the standard "-" which works for almost *ALL* other OS390 utilities,
>but it didn't work for TSM.
>This is TSM 4.1.3.
>===========================
>Zoltan Forray
>Virginia Commonwealth University
>University Computing Center
>e-mail: [EMAIL PROTECTED]
>voice: 804-828-4807
