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-MAIN@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
