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

Reply via email to