In <980325.112311.EST.deehre01 AT ulkyvm.louisville DOT edu>, on 03/25/98
   at 11:21 AM, David Ehresman <deehre01 AT ULKYVM.LOUISVILLE DOT EDU> said:

>How can I run a ADSM macro from an MVS batch job or batch TSO session? I
>can't seem to find this in the doc.

>This is an ADSM/MVS v3 system.

>David Ehresman
>University of Louisville

I use this jcl -

// <jobcard>
//*
//RUNMACRO EXEC PGM=IKJEFT01,DYNAMNBR=100
//SYSTSPRT DD  SYSOUT=*,DCB=(BLKSIZE=3665,RECFM=VBA)
//SYSPROC  DD  DSN=<clist_pds>,DISP=SHR
//SYSUADS  DD  DSN=SYS1.UADS,DISP=SHR
//SYSTSIN  DD *
FREE F(DSCLANG DSCOPT)
ALLOC F(DSCLANG) DA('SYS1.CMD.MSG(ANSMENU)') SHR REU
ALLOC F(DSCOPT) DA('ADSM.ADMIN.PRODGA.TSOOPT') SHR REU
CALL 'SYS1.LINKLIB(DSMADMC)' +
 '-ID=<admin_id>  -PASS=XXXXXXXX +
 MACRO ''WFC1450.ADSM.TAPES.RETURNED'''
/*
The macro file name must be fully specified.  The file named here is -

 DEF VOL CT36POOL 806800
 DEF VOL CT36POOL 806801
 DEF VOL CT36POOL 806802
 DEF VOL CT36POOL 806803

The DSCOPT file is -
************************************************************************ *
IBM DFDSM: Configuration File
*
* Sample DATASAVE.OPT for TSO
************************************************************************

COMMmethod TCPIP

TCPPort 1500

TCPServeraddress  ADSM

*TRACEFLAGS ALL
*RACEFLAGS GENERAL SESSION COMM COMMDETAIL

*TRACEFILE TRC4X088
<end_of_file>
--
-----------------------------------------------------------
-----------------------------------------------------------
Bill Colwell
Bill Colwell
C. S. Draper Lab
Cambridge, Ma
bcolwell AT draper DOT com
-----------------------------------------------------------
=========================================================================