Venkat -
You can SPIN SYSOUT (I do not think you can SPIN INTRDR )
Sometimes, the SYSOUT is not PURGED from the Job unless you have
SPIN=CLOSE,FREE=UNALLOC. Otherwise the purge of the output will occur when the
task is shut down.
JES2 keeps a counter of output written. When it gets to a certain amount you
will see S722 abends
When you SPIN output it will go to the output class specified.
For example, SYSOUT=B - When you spin it will go to the class B. Now if B is
setup in JES2 as a HELD class or OUTPUT class is dependent on your shop's JES2
parm
You can see the output that you SPIN in the SDSF Panels. Either the O ST
H panels
Once you spin the output you still need another process to write the data to a
data set.
Processes suggested so far
Write an SDSF ISFEXEC REXX to read the Data from JES2 to dataset _ Example
is JES2DISK
Purchase a product to do this ($AVERS, VIEW DIRECT, XPTR, and so forth)
Setup and External writer to read the data from Spool and write to a
dataset
Setup a JES2 Offloader to write the data to a dataset.
Look for tools on cbttape.org
Note: There are special DD statements that are generated by JES2 you cannot
control with a JCL Statement to spin it.
You could review the Manuals JES2 INIT and TUNING GUIDE, and JES2 INIT and
TUNING Reference. They have good detail on how JES2 does output management.
SA32-0991-00 z/OS JES2 Initialization and Tuning Guide
SA32-0992-00 z/OS JES2 Initialization and Tuning Reference
Next, find the REXX called JES2DISK. I use this all the time to read data from
JES2 and write it to a dataset. It works very well.
It is still not clear what problem you are trying to solve.
If you could summarize what it is you need to do, it might be helpful to level
set the issue at this time. There have been a lot of comments and suggestions
which do not seem to meet your needs.
For example, my task needs to collect the data from STC x which runs 24x7. I
need the information written to the DD statement Y. This needs to go into a
GDG or SEQ files for later review. This output is a (REPORT, JCL, LOGGING,
etc....)
SPIN can happen at the TASK LEVEL - S stcname,SPIN=('spin parms')
Or the DD level //DDxxxx DD SYSOUT=x,SPIN=
OR by issuing a JES2 command $Tzzzzzz,SPIN zzzzzzz is either Task Number,
TaskName
Depending on the requirements you are provided, it will depend on which
function you will need to use.
The more specific the question, the better the answers. Generic questions or
comments can lead to confusion for everyone.
This list can provide lots of suggestions and guidance. It will be your job to
work with the suggestions and see what works in your shop. Each shop is
different and what works for one does not always work for another.
Lizette
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of venkat kulkarni
> Sent: Tuesday, May 09, 2017 12:43 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AW: Re: job output into dataset
>
> Yes. It's not.so I should code jesmsglg dd stmt as //JESMSGLG dd
> sysout=a,free=close,spin=unalloc
>
> in my ims proc and then recycle ims and then issue $t
> job,imsproc,spin,ddname=JESMSGLG Command to spin JESMSGLG.
>
> Please correct me, if my understanding is wrong.
> Also, suggest after this spin , how to remove those many record from JESMSGLG
> dd which we just spin .
>
> On 09-May-2017 9:40 AM, "Gibney, Dave" <gib...@wsu.edu> wrote:
>
> > There is no DD named JCLOUT.
> > There is nothing (aside from the JESxxxxx) to SPIN.
> > Why do you want to spin job?
> >
> > > -----Original Message-----
> > > From: IBM Mainframe Discussion List
> > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of venkat kulkarni
> > > Sent: Monday, May 08, 2017 10:44 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: AW: Re: job output into dataset
> > >
> > > Hello All,
> > >
> > >
> > >
> > > Thanks for reply. I looked at my IMS proc and looks like below.
> > >
> > >
> > >
> > > BROWSE SYS1.DEVL.PROCLIB(IMS12IMS) - 01.05 Line 00000000 Col
> > 001
> > > 080
> > >
> > > Command ===> Scroll
> > ===>
> > > CSR
> > >
> > > ********************************* Top of Data
> > > ******************************
> > > ****
> > >
> > > // PROC RGN=0M,SOUT=A,
> > >
> > > // SYS=,SYS2=,
> > >
> > > // RGSUF=DBC,PARM1='AUTO=N',
> > >
> > > // PARM2=
> > >
> > > //IEFPROC EXEC PGM=DFSMVRC0,REGION=&RGN,
> > >
> > > // PARM='DBC,&RGSUF,&PARM1,&PARM2'
> > >
> > > //*
> > >
> > > //STEPLIB DD DSN=IMS1.V120.&SYS2.SDFSRESL,DISP=SHR
> > >
> > > //PROCLIB DD DSN=IMS1.V120.&SYS2.PROCLIB,DISP=SHR
> > >
> > > //*
> > >
> > > //IMSIRD DD SYSOUT=(A,INTRDR)
> > >
> > > //*
> > >
> > > //*
> > >
> > > //DFSOLP00 DD DSN=IMS1.V120.&SYS.OLP00,DISP=SHR
> > >
> > > //DFSOLP01 DD DSN=IMS1.V120.&SYS.OLP01,DISP=SHR
> > >
> > > //DFSOLP99 DD DSN=IMS1.V120.&SYS.OLP99,DISP=SHR
> > >
> > > //*
> > >
> > > //DFSWADS0 DD DSN=IMS1.V120.&SYS.WADS0,DISP=SHR
> > >
> > > //DFSWADS1 DD DSN=IMS1.V120.&SYS.WADS1,DISP=SHR
> > >
> > > //*
> > >
> > > //IMSACBA DD DSN=IMS1.V120.ACBLIBA,DISP=SHR
> > >
> > > //* DD DSN=DBCR.V120.ACBLIB.FAID,DISP=SHR
> > >
> > > //IMSACBB DD DSN=IMS1.V120.ACBLIBB,DISP=SHR
> > >
> > > //* DD DSN=DBCR.V120.ACBLIB.FAID,DISP=SHR
> > >
> > > //MODBLKSA DD DSN=IMS1.V120.&SYS2.MODBLKSA,DISP=SHR
> > >
> > > //MODBLKSB DD DSN=IMS1.V120.&SYS2.MODBLKSB,DISP=SHR
> > >
> > > //MODSTAT DD DSN=IMS1.V120.&SYS.MODSTAT,DISP=SHR
> > >
> > > //******** SYSTEM REQUIRED DD CARDS **************
> > >
> > > //*
> > >
> > > //SYSUDUMP DD SYSOUT=&SOUT,
> > >
> > > // DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129),
> > >
> > > // SPACE=(6050,300,,,ROUND)
> > >
> > > //IMSRDS DD DSN=IMS1.V120.&SYS.RDS,DISP=SHR
> > >
> > > //MATRIXA DD DSN=IMS1.V120.&SYS2.MATRIXA,DISP=SHR
> > >
> > > //MATRIXB DD DSN=IMS1.V120.&SYS2.MATRIXB,DISP=SHR
> > >
> > > //PRINTDD DD SYSOUT=&SOUT
> > >
> > > //*
> > >
> > > //IMSMON DD DSN=IMS1.V120.IMSMON,DISP=SHR
> > >
> > >
> > > //****** EXTERNAL SUBSYSTEM DD CARDS ***********
> > >
> > > //*
> > >
> > > //* USER MAY OPTIONALLY ADD THE DFSESL DD CARD
> > >
> > > //* FOR EXTERNAL SUBSYSTEM CONNECTION.
> > >
> > > //*
> > >
> > > //DFSESL DD DSN=IMS1.V120.&SYS2.SDFSRESL,DISP=SHR
> > >
> > > //************ DATA BASE DD CARDS ***************
> > >
> > > ******************************** Bottom of Data
> > > ********************************
> > >
> > >
> > >
> > > And in DA, I see this
> > >
> > >
> > >
> > > COMMAND INPUT ===>
> > >
> > > PREFIX=IMS12IMS DEST=(ALL) OWNER=* SYSNAME=
> > >
> > > NP DDNAME StepName ProcStep DSID Owner C Dest
> > >
> > > JESMSGLG JES2 2 STCBRCR Z
> > >
> > > JESJCL JES2 3 STCBRCR Z
> > >
> > > JESYSMSG JES2 4 STCBRCR Z
> > >
> > > JESMSGLG JES2 104 STCBRCR Z
> > >
> > > JESYSMSG JES2 105 STCBRCR Z
> > >
> > >
> > >
> > > So, I don’t have any other SYSOUT withSYSOUT=* or SYSOUT=A as you can
> > > see
> > > in the above mentioned proc.
> > >
> > >
> > >
> > > So, can you please suggest, what are all change I need to make for
> > > spin
> > to
> > > work .
> > >
> > > I think, I will also have to addFREE=CLOSE,SPIN=UNALLOC in this IMS
> > > proc
> > DD,
> > > So that spin function can work. Because, currently when I run spin
> > command
> > > like below,
> > >
> > > $T JQ(IMS12RC3),SPIN,DDNAME=JCLOUT
> > >
> > >
> > >
> > > I just get output as below.
> > >
> > >
> > >
> > > and output from this command is
> > >
> > > RESPONSE=TST4
> > >
> > > $HASP890 JOB(IMS12RC3)
> > >
> > > $HASP890 JOB(IMS12RC3) STATUS=(EXECUTING/TST4),CLASS=STC,
> > >
> > > $HASP890 PRIORITY=15,SYSAFF=(TST4),HOLD=(NONE)
> > >
> > >
> > >
> > > But this doesn’t show that spin successfully completed or not.
> > >
> > >
> > >
> > > I tried to provide you as much as detail this time. Can you please
> > suggest,
> > > how spin will work looking at my current proc
> > >
> > >
> > >
> > > On 08-May-2017 6:14 PM, "Barkow, Eileen" <ebar...@doitt.nyc.gov> wrote:
> > >
> > > > As I explained to Vekat, he can use the SDSF/REXX clist I gave
> > > > him to extract and archive the SYSOUT queue to a dataset as
> > > > allocated in
> > the
> > > clist.
> > > > Then the clist can issue a command like:
> > > >
> > > > $TSTC04306,SPIN,DDNAME=DDNTOSPIN
> > > > To drain the queue.
> > > >
> > > > The clist has the started task number to use for the $Tstcno,SPIN
> > > command.
> > > > Code can also be added to extract the number of existing lines in
> > > > the DDNAME to determine whether or not to spin it.
> > > > Any DDNAME can be specified.
> > > >
> > > >
> > > > -----Original Message-----
> > > > From: IBM Mainframe Discussion List [mailto:IBM-
> > > m...@listserv.ua.edu]
> > > > On Behalf Of venkat kulkarni
> > > > Sent: Monday, May 08, 2017 3:34 AM
> > > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > > Subject: Re: AW: Re: job output into dataset
> > > >
> > > > Just to add one more thing . Under ims12rc3 address space , below
> > > > are dd name available.
> > > >
> > > > COMMAND INPUT ===>
> > > >
> > > > PREFIX=* DEST=(ALL) OWNER=*
> > > >
> > > > NP DDNAME StepName ProcSte
> > > >
> > > > JESMSGLG JES2
> > > >
> > > > JESJCL JES2
> > > >
> > > > JESYSMSG JES2
> > > >
> > > > JESMSGLG JES2
> > > >
> > > > JESYSMSG JES2
> > > >
> > > > On 08-May-2017 10:25 AM, "venkat kulkarni"
> > > > <venkatkulkarn...@gmail.com>
> > > > wrote:
> > > >
> > > > >
> > > > > Thanks for all suggestion and sorry for not being more precise.
> > > > > Our requirement is
> > > > >
> > > > >
> > > > >
> > > > > 1) Any address space (STC) running continously and producing
> > > > > more number of linee, we would like to cut lines on regulalr
> > > > > basis and put it in seperate dataset and keep appending data
> > > > >
> > > > > on regulalr basis.
> > > > >
> > > > >
> > > > >
> > > > > 2) But I am not aware of this process of doing this task. But
> > > > > after all our discussion, I did as below.
> > > > >
> > > > >
> > > > >
> > > > > I looked at IMS12RC3 proc in proclib library and noticed one of
> > > > > SYSOUT DD statement as below
> > > > >
> > > > >
> > > > >
> > > > > //JCLOUT DD SYSOUT=(A,INTRDR)
> > > > >
> > > > >
> > > > >
> > > > > Job IMS12RC3 is,
> > > > >
> > > > >
> > > > >
> > > > > BROWSE SYS1.DEVL.PROCLIB(IMS12RC3) - 01.03 Line 0000000
> > > > >
> > > > >
> > > > >
> > > > > ********************************* Top of Data
> > > ********************
> > > > > Show quoted text
> > > > >
> > > > > and then I used below command to spin IMS12RC3 address space
> > > > > lines and put it in dataset.
> > > > >
> > > > >
> > > > >
> > > > > $T JQ(IMS12RC3),SPIN,DDNAME=JCLOUT
> > > > >
> > > > >
> > > > >
> > > > > and output from this command is
> > > > >
> > > > >
> > > > >
> > > > > RESPONSE=TST4
> > > > >
> > > > > $HASP890 JOB(IMS12RC3)
> > > > >
> > > > > $HASP890 JOB(IMS12RC3) STATUS=(EXECUTING/TST4),CLASS=STC,
> > > > >
> > > > > $HASP890 PRIORITY=15,SYSAFF=(TST4),HOLD=(NONE)
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > But I think my understanding is wrong somehow but not able to
> > > > > point out the issue.
> > > > >
> > > > >
> > > > >
> > > > > I think, the flow of this process will be use SPIN command to
> > > > > cut lines from running address space to spool and then from
> > > > > spool, we should copy
> > > > to
> > > > > dataset.
> > > > >
> > > > >
> > > > >
> > > > > As I am new in this process, please help me with the required
> > > > > steps to
> > > > be
> > > > > performed to achieve this.
> > > > >
> > > > > On 08-May-2017 8:51 AM, "Peter Hunkeler" <p...@gmx.ch> wrote:
> > > > >
> > > > >>
> > > > >> > Started tasks? TSO sessions? UNIX forked (BPXAS) address spaces?
> > > > >>
> > > > >>
> > > > >> What do you want to say by this??
> > > > >>
> > > > >>
> > > > >> --
> > > > >> Peter Hunkeler
> > > > >>
> > > > >>
> > > > >>
> > > > >> ---------------------------------------------------------------
> > > > >> ----
> > > > >> --- For IBM-MAIN subscribe / signoff / archive access
> > > > >> instructions, send email to lists...@listserv.ua.edu with the
> > > > >> message: INFO IBM-MAIN
> > > > >>
> > > > >
> > > >
> > > > ------------------------------------------------------------------
> > > > ---- For IBM-MAIN subscribe / signoff / archive access
> > > > instructions, send email to lists...@listserv.ua.edu with the
> > > > message: INFO IBM-MAIN
> > > >
> > > > ________________________________
> > > >
> > > > This e-mail, including any attachments, may be confidential,
> > > > privileged or otherwise legally protected. It is intended only for
> > > > the addressee. If you received this e-mail in error or from
> > > > someone who was not authorized to send it to you, do not
> > > > disseminate, copy or otherwise use this e-mail or its attachments.
> > > > Please notify the sender immediately by reply e-mail and delete the e-
> mail from your system.
> > > >
> > > > ------------------------------------------------------------------
> > > > ---- For IBM-MAIN subscribe / signoff / archive access
> > > > instructions, send email to lists...@listserv.ua.edu with the
> > > > message: INFO IBM-MAIN
> > > >
> > >
> > > --------------------------------------------------------------------
> > > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send
> > email to
> > > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
