I feel, whatever DD name I want spin, I should code in proclib for example
: If I want to always spin JESMSGLG DD from address space then I should
code below line in proclib and then
only my spin command will be completed.
//JESMSGLG DD SYSOUT=A,FREE=CLOSE,SPIN=UNALLOC
Please correct me, if I am wrong.
2) Currently, I don’t get $HASP138 message on my console after starting
SPIN command. I just get below command
$T JQ(IMS12IMS),SPIN,DDNAME=JESMSGLG
$HASP890 JOB(IMS12IMS) 103
$HASP890 JOB(IMS12IMS) STATUS=(EXECUTING/TST4),CLASS=STC,
$HASP890 PRIORITY=15,SYSAFF=(TST4),HOLD=(NONE)
So, I have doubt that my spin command is not getting completed or some
other reason.
3) After running this spin command, I don’t see any output in my output
queue. Even though i set my STC job class
/$T JOBCLASS(STC),OUTDISP=(KEEP,KEEP)
still, no output on output queue.
4) I see duplicate DD name like below after running SPIN command. Ex
JESMSGLG and JESYSMSG are showing me 2 times in this same address space.
SDSF JOB DATA SET DISPLAY - JOB IMS12IMS (STC02551)
COMMAND INPUT ===>
PREFIX=IMS12IMS DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest
JESMSGLG JES2 2 STCCICQ Z
JESJCL JES2 3 STCCICQ Z
JESYSMSG JES2 4 STCCICQ Z
JESYSMSG JES2 104 STCCICQ Z
JESMSGLG JES2 108 STCCICQ Z
Can you please help me to solve these queries.
On 09-May-2017 8:16 PM, "Lizette Koehler" <stars...@mindspring.com> wrote:
> 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
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
