ADSM-L

IKJEFT01

1996-10-30 12:25:35
Subject: IKJEFT01
From: Scott Cumbie <Scott_Cumbie AT USAIRLN.USAIR DOT COM>
Date: Wed, 30 Oct 1996 12:25:35 -0500
Frank,

Give this a try:

//*_____________________________________________________________________
//ADSMQURY EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(30,0)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DSCOPT   DD DSN=EM.DEPT.PARMLIB(ADSMTSO),DISP=SHR  <=== Client options
//DSCLANG  DD DSN=SYS1.SANSMSG(ANSMENU),DISP=SHR
//SYSTSIN  DD *
ANSADM -ID=adminid -PAS=password
//SYSIN    DD *
Q VOLUME * STGPOOL=ARCHIVETAPE* >> 'output.dataset'
Q VOLUME * STGPOOL=BACKUPTAPE*  >> 'output.dataset'
QUIT
/*


Scott


Frank wrote:

Hi,
I'm trying to use a batch TSO job executing IKJEFT01 in order to route
query commands to a flat file but have not had much success.  If anybody
has an example of a job stream to do this, especially how the actual
command is coded in the SYSTSIN dd statement, it would be much appreciated.

Thanks,

Frank Rehor
frank.rehor AT clorox DOT com
510 847 4814
510 847 4859 (fax)
<Prev in Thread] Current Thread [Next in Thread>