Thanks for the help, Bill, that did the trick!!
Julie
Bill Colwell <bcolwell AT DRAPER DOT COM> on 05/29/98 10:45:22 AM
Please respond to "ADSM: Dist Stor Manager" <ADSM-L AT VM.MARIST DOT EDU>
To: ADSM-L AT VM.MARIST DOT EDU
cc: (bcc: Julie Phinney/Green Bay/Humana)
Subject: Re: ADSM V3 on MVS event routing
In <86256612.0074D320.00 AT loudom2.humana DOT com>, on 05/28/98
at 04:21 PM, Julie Phinney <jphinney AT HUMANA DOT COM> said:
>Does anyone route event messages to the FILE receiver, then stop logging
>once per day, spin the file off, and start logging again?
>If so, have you found a way to do that with one job?
>It seems the ADSM started task holds that file with DISP=OLD, so you can't
>run a multi-step job against it where the 1st step stops the logging and
>the 2nd step does a GENER to copy the file... because the job is checked
>first for any datasets that are unavailable to ANY step. So the job sits
>and waits for the ADSM started task to release the dataset, which of
course
>won't happen until the first step of the job runs.
>The only solution I can see is to run 2 separate jobs every day. Has
anyone
>else gotten around this?
>Thanks!
>Julie Phinney
>JPHINNEY AT HUMANA DOT COM
Do everything in a tso-in-batch job. This will keep the initiator from
doing allocation on the message dataset.
I am starting to implement an event file. This job will spin off the file
and restart the logging. The macros are in an ordinary card image pds.
ENDEV='END EV FILE'
BEGINEV='BEGIN EV FILE'
- - begin job - - -
//<name> JOB <job card parameters>
//*
//*
//*
//SPINOFF EXEC PGM=IKJEFT01,DYNAMNBR=100
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=3630
//SYSTSPRT DD SYSOUT=*,DCB=(BLKSIZE=3665,RECFM=VBA)
//SYSPROC DD DSN=<system clist library>,DISP=SHR
//SYSUADS DD DSN=SYS1.UADS,DISP=SHR
//SYSTSIN DD *
/* */
/* PROCESS TO SPINOFF THE MESSAGE FILE */
/* */ FREE
F(DSCLANG DSCOPT)
ALLOC F(DSCLANG) DA('ADSM.V3R1.SANSMSG(ANSMENU)') SHR REU
ALLOC F(DSCOPT) DA('ADSM.V3R1.ADMIN.PORT1600.TSOOPT') SHR REU
/* */
/* CALL THE TSO ADMIN CLIENT, RUN A MACRO TO STOP LOGGING TO THE */
/* FILE */
/* */ CALL
'ADSM.V3R1.LINKLIB(DSMADMC)' +
'-ID=<system level adminid> -PASS=xxxxxxxx +
MACRO ''ADSM.V3R1.PROD.MACS(ENDEV)'''
/* */
/* RENAME THE OLD FILE AND MAKE A NEW ONE. */
/* */
RENAME 'ADSM.PROD.CLIMSG' 'ADSM.PROD.CLIMSG.SPINOFF'
ALLOC F(NEWFILE) DA('ADSM.PROD.CLIMSG') NEW SP(20 10) CYL
FREE F(NEWFILE)
/* */
/* CALL THE TSO ADMIN CLIENT, RUN A MACRO TO START LOGGING TO THE */
/* NEW FILE */
/* */ CALL
'ADSM.V3R1.LINKLIB(DSMADMC)' +
'-ID=<system level adminid> -PASS=xxxxxxxx +
MACRO ''ADSM.V3R1.PROD.MACS(BEGINEV)'''
/* */
/* EDIT THE SPINOFF FILE WITH A USER PROGRAM */
/* */
ALLOC
F(SYSUT1) DA('ADSM.PROD.CLIMSG.SPINOFF') SHR
ALLOC F(SYSUT2) DA('ADSM.PROD.CLIMSG.DAILY') SHR
CALL 'WFC1450.GENERAL.LOAD(ADSMFILE)'
FREE F(SYSUT1 SYSUT2 SYSIN)
ALLOC F(SYSUT1) DA('ADSM.PROD.CLIMSG.DAILY') SHR
ALLOC F(SYSUT2) DA('ADSM.PROD.CLIMSG.MAY1998') MOD
ALLOC F(SYSIN) DUMMY
CALL 'SYS1.LINKLIB(IEBGENER)'
/*
- - end job - - -
--
-----------------------------------------------------------
-----------------------------------------------------------
Bill Colwell
Bill Colwell
C. S. Draper Lab
Cambridge, Ma.
bcolwell AT draper DOT com
-----------------------------------------------------------
=========================================================================
|