Re: Saving ADSM started task output on MVS.

      ID TRR  MS 2604
      208-526-9903

 ADSM on MVS only writes to the job log not to the output files.  What is
 your MSGCLASS=Q set to do if this set to go to the hold Q then it should
 put the data in the hold Q.

tuner of the OMEGA SERVER
LMITC
mail trr AT inel DOT gov
*** Reply to note of 03/21/97 10:54

From: Pittson, Timothy ,Hi
To: ADSML2  --INELMAIL ADSML

Subject: Re: Saving ADSM started task output on MVS.
Mark,
        I don't think ADSM writes to the //SYSPRINT or //SYSTERM DD statements.
 In cases like this, I used to add a step to the end of the proc to snap
the output of the job to a dataset using IOF (similar to SDSF).  Haven't
worked with SDSF in years so I don't know if it can do this or not.

Tim Pittson
tpittson AT himail.hcc DOT com
>----------
>From:  Mark Brown (CC Operations Supervisor)[SMTP:CCMB AT MUSICA.MCGILL DOT CA]
>Sent:  Friday, March 21, 1997 10:58 AM
>To:    ADSM-L AT VM.MARIST DOT EDU
>Subject:       Saving ADSM started task output on MVS.
>
>Hello,
>
>I am trying to save the output from the started task ADSM on an MVS 4.2
>system. I have tried a few things but the output never shows up in a
>dataset I want it to go into. Here is the started task jcl. By default
>all started task output on our system is set to be PURGED on normal
>completion of a job but I would think that what I am trying to do
>below should work.
>
>Thanks for any help on this.
>
>//ADSM      JOB (xxxxxxx,xxxx,9999,99,,72,,1,xxxx),'xxxxx',
>//          MSGLEVEL=(1,1),MSGCLASS=Q
>//SERVER  EXEC PGM=DSMSERV,PARM='',DYNAMNBR=300,TIME=1440,
>//       REGION=40M
>//STEPLIB  DD DSN=xxxx.xxx.xxxxxx.SEDCLINK,DISP=SHR
>//OPT      DD DSN=xxxx.ADSM.ANRSERV.OPTIONS,DISP=MOD
>//DSMAMENG DD DSN=xxxx.ADSM.V2R1M0.SANRMSG(ANRMENU),DISP=SHR
>//HLPAMENG DD DSN=xxxx.ADSM.V2R1M0.SANRHLP(ANRHENU),DISP=SHR
>//DSK      DD DSN=xxxx.ADSM.DISKLOG,DISP=SHR
>//SYSPRINT DD DSN=xxxx.ADSM.SYSPRINT.LOG(+1),
>//          DISP=(MOD,CATLG),UNIT=SYSALLDA,
>//          SPACE=(CYL,(10,7),RLSE),
>//*         DCB=(LRECL=133,RECFM=VBA,BLKSIZE=6160)
>//          DCB=(LRECL=133,BLKSIZE=23408,RECFM=FBA)
>//SYSTERM  DD DSN=xxxx.ADSM.SYSTERM.LOG(+1),
>//          DISP=(MOD,CATLG),UNIT=SYSALLDA,
>//          SPACE=(CYL,(10,7),RLSE),
>//*         DCB=(LRECL=133,RECFM=VBA,BLKSIZE=6160)
>//          DCB=(LRECL=133,BLKSIZE=23408,RECFM=FBA)
>
>Thank You,
>  Mark Brown, Operations Supervisor
>  McGill University, Computing Centre
>  Phone (514) 398-2321
>  E-Mail --> ccmb AT musica.mcgill DOT ca
>