Re: AW: Re: job output into dataset

[venkat kulkarni]

Hello All,



Thanks for reply. I looked at my IMS proc and looks like below.



BROWSESYS1.DEVL.PROCLIB(IMS12IMS) - 01.05Line  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=,

//PARM='DBC,,,'

//*

//STEPLIB  DD DSN=IMS1.V120.,DISP=SHR

//PROCLIB  DD DSN=IMS1.V120.,DISP=SHR

//*

//IMSIRD   DD SYSOUT=(A,INTRDR)

//*

//*

//DFSOLP00 DD DSN=IMS1.V120.,DISP=SHR

//DFSOLP01 DD DSN=IMS1.V120.,DISP=SHR

//DFSOLP99 DD DSN=IMS1.V120.,DISP=SHR

//*

//DFSWADS0 DD DSN=IMS1.V120.,DISP=SHR

//DFSWADS1 DD DSN=IMS1.V120.,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.,DISP=SHR

//MODBLKSB DD DSN=IMS1.V120.,DISP=SHR

//MODSTAT  DD DSN=IMS1.V120.,DISP=SHR

// SYSTEM REQUIRED DD CARDS **

//*

//SYSUDUMP DD SYSOUT=,

// DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129),

// SPACE=(6050,300,,,ROUND)

//IMSRDS   DD DSN=IMS1.V120.,DISP=SHR

//MATRIXA  DD DSN=IMS1.V120.,DISP=SHR

//MATRIXB  DD DSN=IMS1.V120.,DISP=SHR

//PRINTDD  DD SYSOUT=

//*

//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.,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 OwnerC Dest

 JESMSGLG JES2 2STCBRCR  Z

 JESJCL   JES2 3 STCBRCR  Z

 JESYSMSG JES2 4STCBRCR  Z

 JESMSGLG JES2   104STCBRCR  Z

 JESYSMSG JES2   105STCBRCR  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,

 $HASP890PRIORITY=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"  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" 
> 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,
> >
> >
> >
> > BROWSESYS1.DEVL.PROCLIB(IMS12RC3) - 01.03Line 000

IBM Doc Buddy V1.3.0 supports online search

[Jialei Ma]

IBM Doc Buddy V1.3 is now available for download in Apple App Store and Google 
Play. IBM Doc Buddy is a mobile app which enables retrieving product error 
messages of IBM z Systems products. 

This release includes major search enhancements:
* The app now supports online search in addition to offline search. You can get 
instant search results if you are connected to the Internet. Online search is 
enabled by default in Settings. 

* An overview of the app features is provided for first-time app users to help 
you get started. After you install the app, you can take a quick glance at the 
handy 3-panel display to understand the key features provided in IBM Doc Buddy. 

* Messages of these products are added: Tivoli OMEGAMON for Storage on z/OS and 
Tivoli OMEGAMON XE on z/VM and Linux. 

Further information
* Blog about V1.3 enhancements: 
https://developer.ibm.com/mainframe/2017/05/05/ibm-doc-buddy-v1-3-0-available-mobile-app-search-error-messages-right-away/

* IBM Doc Buddy email: spt...@cn.ibm.com 

* IBM Doc Buddy home page: https://ibmdocbuddy.mybluemix.net/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

PCRE 10.23 port for z/OS now available on Updates Page

[Sam Golob]

Hi Folks,

Consistent with Ze'ev Atlas' announcement of yesterday, I have 
posted File 939 on the Updates page of www.cbttape.org which contains 
Version 10.23 of PCRE (Perl-Compatible Regular Expressions), ported to 
z/OS.  You can now find it there.


Please remember to go to the UPDATES page of www.cbttape.org to get 
the latest version, NOT to the CBT directory, which contains the older 
version.


All the best of everything to all of you.

Sincerely, Sam

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Interesting article on UNICODE.

[Jack J. Woehr]

Charles Mills wrote:

What about a language concept where data was externalized as UTF-8 but 
presented to the program logic internally as UTF-32? With automatic, 
transparent re-encoding back-and-forth for externalization?


What about coding in Java? :)

--
Jack J. Woehr # Science is more than a body of knowledge. It's a way of
www.well.com/~jax # thinking, a way of skeptically interrogating the universe
www.softwoehr.com # with a fine understanding of human fallibility. - Carl Sagan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Interesting article on UNICODE.

[Allan Kielstra]

In addition to PIC X, COBOL does have PIC N:  National characters.  These are 
basically UTF-16 characters.  (With the property alluded to by Charles Mills:  
these are fixed two byte data items.)  COBOL also offers DBCS characters.

Also, there are some UTF-8 functions such as ULEN that operate on PIC X strings 
treating them as UTF-8.

Here is my (and only my) random thought  To really implement the Go scheme 
in COBOL, something about the standard use of the language would have to give.  
Practically speaking, you would lose a certain amount of control over the 
layout of storage.  If we had a PIC H(20).  (I used H because there is already 
a G and I wanted a type that is a Go Character type and H is the first letter 
after G.  So this declaration means "up to 20 Go Characters.")  Because we 
really can't use 4 bytes per character, we would need to have a pointer to the 
actual data.  That data would likely have to be dynamically managed (almost 
like Java objects.)  Also, in such a scheme, that 20 doesn't necessarily make 
sense.  (Maybe as a declared maximum, but if the string needs to be managed 
dynamically, it should also have a dynamic length.)  Doing something like this 
would take a fair bit of work to implement.  It would also change the idea that 
the programmer fully defines the shape of working storage.  (It's even more 
tricky to define such a data type in a file layout.)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT Sample JCL

[Sri h Kolusu]

>>>I have SMF type 16, would like to see who is using DFSORT

Salah Balboul,

You mean the Jobnames ? 

Here is a sample JCL which will extract the jobname, date and times.

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=Your.SMF.File
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY,VLSCMP 
  INCLUDE COND=(6,1,BI,EQ,16) $ TYPE 16 
  OUTFIL VTOF,REMOVECC, 
  HEADER2=(' JOBNAMESTART-DATE   START-TIME   END-TIME',/, 
   '--   --  -'), 
 
  BUILD=(019,8,   $ JOBNAME 
 4X,  $ SPACES 
 11,4,DT1,EDIT=(/TT/TT),  $ START-DATE 
 5X,  $ SPACES 
 27,4,TM1,EDIT=(TT:TT:TT),$ START-TIME 
 3X,  $ SPACES 
 07,4,TM1,EDIT=(TT:TT:TT))$ END-TIME 
//* 

Further if you have any questions please let me know

Thanks,
Kolusu



From:   Salah Balboul 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   05/08/2017 07:54 AM
Subject:DFSORT Sample JCL
Sent by:IBM Mainframe Discussion List 



Hi list,

I have SMF type 16, would like to see who is using DFSORT

Wondering if anyone has a sample JCL to extract these records and generate 
a report.

Thx

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

Re: DFSORT Sample JCL

[Lizette Koehler]

An easy Internet search

DFSORT SMF JCL 

Will get you this link (watch the wrap) 


https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.icha800/icetool.htm

ICETOOL comes with DFSORT and can do what  you want.

You did not say how you wanted the output presented. So just giving you JCL 
will not be complete.

Tell us the format of the report you want to produce

Side Note:  On the CBTTAPE.ORG is a utility called DAF.  It can process any SMF 
record and provide all of the fields in a readable format.

Lizette



> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Salah Balboul
> Sent: Monday, May 08, 2017 7:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DFSORT Sample JCL
> 
> Hi list,
> 
> I have SMF type 16, would like to see who is using DFSORT
> 
> Wondering if anyone has a sample JCL to extract these records and generate a
> report.
> 
> Thx
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Re: job output into dataset

[Barkow, Eileen]

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" 
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,
>
>
>
> BROWSESYS1.DEVL.PROCLIB(IMS12RC3) - 01.03Line 000
>
>
>
> * 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,
>
>  $HASP890PRIORITY=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"  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

DFSORT Sample JCL

[Salah Balboul]

Hi list,

I have SMF type 16, would like to see who is using DFSORT

Wondering if anyone has a sample JCL to extract these records and generate a 
report.

Thx

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Interesting article on UNICODE.

[John McKown]

On Mon, May 8, 2017 at 9:37 AM, Charles Mills  wrote:

> UTF-8 is great for datastreams but a PITA to deal with in a language or an
> application program.
>
> UTF-16 is the worst of both worlds -- uses roughly double the space of
> UTF-8 but still you can't quite deal with the characters as though they
> were fixed size. Worse, if you do pretend to deal with them as fixed size,
> it mostly works.
>
> What about a language concept where data was externalized as UTF-8 but
> presented to the program logic internally as UTF-32? With automatic,
> transparent re-encoding back-and-forth for externalization?
>

​I think that Java does that sort of thing, except that it uses UTF-16
instead of UTF-32.
ref: https://docs.oracle.com/javase/7/docs/api/java/nio/charset/Charset.html

ref: https://docs.oracle.com/javase/7/docs/api/java/lang/Character.html​



>
> Charles
>
>

-- 
Advertising is a valuable economic factor because it is the cheapest way of
selling goods, particularly if the goods are worthless. -- Sinclair Lewis


Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Interesting article on UNICODE.

[Charles Mills]

UTF-8 is great for datastreams but a PITA to deal with in a language or an 
application program.

UTF-16 is the worst of both worlds -- uses roughly double the space of UTF-8 
but still you can't quite deal with the characters as though they were fixed 
size. Worse, if you do pretend to deal with them as fixed size, it mostly works.

What about a language concept where data was externalized as UTF-8 but 
presented to the program logic internally as UTF-32? With automatic, 
transparent re-encoding back-and-forth for externalization?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Monday, May 8, 2017 7:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Interesting article on UNICODE.

This may be old hat to many/most here. But I found it quite interesting.
And perhaps more important now that IBM is emphasizing z/OS in the "mobile"
world.

http://reedbeta.com/blog/programmers-intro-to-unicode/

IMO, something that IBM languages could find really useful is Google Go's 
concept of a "rune". A "rune" is what Go uses instead of the longer "UNICODE 
Code Point". It is basically the _concept_ of a "letter" without any specific 
bit encoding. E.g. U+0061 is "LOWER CASE LATIN LETTER A". But
U+0061 is NOT 0x61 (UTF-8) or 0x0061 (UTF-16BE) or 0x6100 (UTF-16LE).
Unfortunately the language COBOL only has a PIC X. Which is "one 8 bit byte". 
There's not even a _concept_ of a UNICODE Code Point in COBOL. And, honestly, I 
don't really see how to implement such in COBOL, unless they just do the "easy" 
thing and use UTF-32. Which really "wastes" bytes in memory and on disk. Uh, 
unless your DASD array does some sort of transparent compression on the back 
end.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Interesting article on UNICODE.

[John McKown]

This may be old hat to many/most here. But I found it quite interesting.
And perhaps more important now that IBM is emphasizing z/OS in the "mobile"
world.

http://reedbeta.com/blog/programmers-intro-to-unicode/

IMO, something that IBM languages could find really useful is Google Go's
concept of a "rune". A "rune" is what Go uses instead of the longer
"UNICODE Code Point". It is basically the _concept_ of a "letter" without
any specific bit encoding. E.g. U+0061 is "LOWER CASE LATIN LETTER A". But
U+0061 is NOT 0x61 (UTF-8) or 0x0061 (UTF-16BE) or 0x6100 (UTF-16LE).
Unfortunately the language COBOL only has a PIC X. Which is "one 8 bit
byte". There's not even a _concept_ of a UNICODE Code Point in COBOL. And,
honestly, I don't really see how to implement such in COBOL, unless they
just do the "easy" thing and use UTF-32. Which really "wastes" bytes in
memory and on disk. Uh, unless your DASD array does some sort of
transparent compression on the back end.

-- 
Advertising is a valuable economic factor because it is the cheapest way of
selling goods, particularly if the goods are worthless. -- Sinclair Lewis


Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Storage Monitor

[Blaicher, Christopher Y.]

Those subpools are just limited by REGION, both below and above the line.  
Below the line is the biggest restriction.  We only use LOC=(24,64) for what 
absolutely HAS to go below the line.  The rest is LOC=(31,64).  If you have 
done that, then all you can do is tell them to increase the REGION.  By default 
you get 32M above the line.  Are you running out of that area, or 24-bit 
storage?

Taking a console dump is somewhat of a sludgehammer approach, but using the 
VERBX VSMDATA 'SUMMARY' on a IPCS dump gives you almost everything you ever 
wanted to know, I usually max to the end where there is a great summary of 
memory usage. If you change SUMMARY to DETAIL, you get more than you ever 
wanted to know.

Chris Blaicher
Technical Architect
Mainframe Development
P: 201-930-8234  |  M: 512-627-3803
E: cblaic...@syncsort.com

Syncsort Incorporated
2 Blue Hill Plaza #1563
Pearl River, NY 10965
www.syncsort.com

Data quality leader Trillium Software is now a part of Syncsort.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of scott Ford
Sent: Sunday, May 7, 2017 3:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Storage Monitor

Thanks guys.

Chris,

I need to see one STC which is running our code.
I have customers with a smaller private area Subpool 0, 1 key 8.
I know I can SVC dump and using IPCS find usage, but I would like to monitor 
without having to dump the STC.

Scott


On Sun, May 7, 2017 at 3:26 PM Blaicher, Christopher Y. < 
cblaic...@syncsort.com> wrote:

> Do you want it for a job or all jobs?  What exactly do you want to
> monitor?  Some values are kept in globally accessible control blocks
> like total pages allocated to a job and how many are fixed.  Those
> counts are kept at the 24-bit, 31-bit, 64-bit and total levels for
> each address space and for the system as a whole.  Actually, only
> three of the four are kept and you derive the fourth.
>
> As I said, tell us what you need and why, and someone can probably
> point you in the right direction.
>
> Chris Blaicher
> Technical Architect
> Mainframe Development
> P: 201-930-8234  |  M: 512-627-3803
> E: cblaic...@syncsort.com
>
> Syncsort Incorporated
> 2 Blue Hill Plaza #1563
> Pearl River, NY 10965
> www.syncsort.com
>
> Data quality leader Trillium Software is now a part of Syncsort.
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of scott Ford
> Sent: Sunday, May 7, 2017 2:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Storage Monitor
>
> All:
>
> Is there a Storage subpool monitor on the cbttapes ? If there is can
> someone point me to the file. I downloaded  'TASID' and its ok , but i
> need more info of subpool usages and free..
>
>
> Regards.
> --
>
>
>
> *IDMWORKS *
>
> Scott Ford
>
> z/OS Dev.
>
>
>
>
> “By elevating a friend or Collegue you elevate yourself, by demeaning
> a friend or collegue you demean yourself”
>
>
>
> www.idmworks.com
>
> scott.f...@idmworks.com
>
> Blog: www.idmworks.com/blog
>
>
>
>
>
> *The information contained in this email message and any attachment
> may be privileged, confidential, proprietary or otherwise protected
> from disclosure. If the reader of this message is not the intended
> recipient, you are hereby notified that any dissemination,
> distribution, copying or use of this message and any attachment is
> strictly prohibited. If you have received this message in error,
> please notify us immediately by replying to the message and
> permanently delete it from your computer and destroy any printout
> thereof.*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> 
>
>
>
> ATTENTION: -
>
> The information contained in this message (including any files
> transmitted with this message) may contain proprietary, trade secret
> or other confidential and/or legally privileged information. Any
> pricing information contained in this message or in any files
> transmitted with this message is always confidential and cannot be
> shared with any third parties without prior written approval from
> Syncsort. This message is intended to be read only by the individual
> or entity to whom it is addressed or by their designee. If the reader
> of this message is not the intended recipient, you are on notice that
> any use, disclosure, copying or distribution of this message, in any
> form, is strictly prohibited. If you have received this message in
> error, please immediately notify the sender and/or Syncsort and destroy all 
> copies of this message in your possession, custody or control.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: 

Re: AW: Re: job output into dataset

[Lizette Koehler]

So there is nothing to SPIN.

Instead of using JCLOUT which is an INTRDR (Very different than a normal SYSOUT 
statement)

Find a task that uses SYSOUT=*   or SYSOUT=A  (Or some similar OUTPUT CLASS)

Then try your $T command again

1)  Verify there is output in the DD statement by following the steps provided
   a)  DA OSTC Screen
   b)  ? next to the Running task
   c)  Verify the DD statement has output by entering S next to the DD 
statement (Other than a JES prefixed DD)
2)  Next, issue the SPIN command that you want against that output

3)  See if there is a JES2 message indicating output has been actioned
   a)  When spinning remember it will still be in the Spool.  Instead 
check the OUTPUT Panel  O  to see if it is there


Remember we cannot access your shop.  You need to experiment based on the 
feedback you get.  Read up on the $T command in the JES2 manuals to understand 
what it does, and what you should expect for the results.


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of venkat kulkarni
> Sent: Monday, May 08, 2017 12: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" 
> 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,
> >
> >
> >
> > BROWSESYS1.DEVL.PROCLIB(IMS12RC3) - 01.03Line 000
> >
> >
> >
> > * 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,
> >
> >  $HASP890PRIORITY=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"  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

Re: Adventures in JCL: PROCs, symbols and instream data

[Tom Marchant]

On Fri, 5 May 2017 09:04:31 +1000, Andrew Rowley wrote:

>On 4/05/2017 10:11 PM, Tom Marchant wrote:
>>
>> Did they say why it isn't supposed to work?
>> Is there an undocumented restriction?
>I am sure it *is* supposed to work, but it's easier to close a problem
>as a user error.

I agree that it is supposed to work. That's why they fixed it once. 
I'll take your reply as, "No, they didn't give a reason for the claim that it
isn't supposed to work." I would push back not allow it to be closed.
Sometimes it can help to ask them to try to justify their statement.
There is no documented restriction.

>I am also fairly sure that no-one who would actually know whether it was
>supposed to work has looked at the SR at this point.

Yes.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Re: job output into dataset

[venkat kulkarni]

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" 
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,
>
>
>
> BROWSESYS1.DEVL.PROCLIB(IMS12RC3) - 01.03Line 000
>
>
>
> * 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,
>
>  $HASP890PRIORITY=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"  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

Re: AW: Re: job output into dataset

[venkat kulkarni]

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,



BROWSESYS1.DEVL.PROCLIB(IMS12RC3) - 01.03Line 000



* 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,

 $HASP890PRIORITY=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"  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