ADSM-L

Re: ADSM V3 on MVS event routing

1998-05-29 14:20:43
Subject: Re: ADSM V3 on MVS event routing
From: Julie Phinney <jphinney AT HUMANA DOT COM>
Date: Fri, 29 May 1998 13:20:43 -0500
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
-----------------------------------------------------------
=========================================================================
<Prev in Thread] Current Thread [Next in Thread>