Re: RMF Spreadsheet report 4 hour rolling MSU

[Andrew Rowley]

Hi Jorge,

I don't know how to get these reports from the RMF spreadsheet reporter, 
but EasySMF has 4 hour average MSU reports, including calculated 4 hour 
values by service/report class and largest jobs:

http://www.blackhillsoftware.com/docs/easysmf/4_hour_service_reports.htm

If you are interested you can use it for free for 30 days with a 30 day 
trial:

http://www.blackhillsoftware.com/30-day-trial/

Regards

Andrew Rowley


On 10/10/2016 8:07 PM, Jorge Garcia wrote:

Hi all,
  
  We try to obtain a RMF spreadsheet report to show 4 hour avg MSU. I can only obtain with OVW statement Actual number of consumed MSUs but we're interesting in GCMSUACT OVW statement Actual MSU consumption for the capacity

group and in 4 hour avg MSU, but there isn't OVW statement available for this 
metric.
Is there any spreadsheet report available for obtain these values?
How can we specified the GCMSUACT OVW statement in postprocessor STEP?
Are the default RMF spreadsheet macros available to process this OVW statement?

Regards

Jorge Garcia Juanino
Gerente sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559
jgarc...@mapfre.com

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



--
Andrew Rowley
Black Hill Software
+61 413 302 386

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

Re: intermittent errors using FTP program Interface EZAFTPKS

[Bruce Hewson]

this may be of interest:-

* Top of Data 
** 
For 3270 session DBCS mode File Transfer, you need one or more of the   
 
following host file transfer programs commonly referred to as an APVUFILE.  
 
÷  VM/CMS File Transfer Program, 5799-BWK   
 
÷  MVS/TSO File Transfer Program, 5799-BWJ  
 
÷  CICS (MVS, VSE) File Transfer Program, 5799-BWL  
 
<-- 
 
It seems that you may need to install this program and/or allocate the load 
 
module library for it to your TSO session.  My own TSO session does not 
 
have access to APVUFILE, however it does have access to IND$FILE.   
 

 

 
For PC/3270 File Transfer in DBCS mode, you need one or more of the following 
ho 

 
VM/CMS File Transfer Program, 5799-BWK (Japan)  
 
VM/CMS File Transfer Program, 5799-PGX (Korea, China, Taiwan)   
 
MVS/TSO File Transfer Program, 5799-BWJ (Japan) 
 
MVS/TSO File Transfer Program, 5799-PGY (Korea, China, Taiwan)  
 
CICS (MVS, VSE) File Transfer Program, 5799-BWL (Japan) 
 
CICS (MVS, VSE) File Transfer Program, 5799-PGZ (Korea, China, Taiwan)  
 
 Bottom of Data 
 

On Mon, 10 Oct 2016 22:41:27 -0500, Bruce Hewson  
wrote:

>IND$FILE
>
>IBM 3270 File Transfer
>
>was originally a Field Developed Program.
>
>Exploits 3270 Structured Data Fields.
>
>Earliest versions, when running, would use visible screen full displays of 
>data which the emulator could grab and store when downloading, or vice versa 
>when uploading.
>
>Later versions made the data transfers invisible to the screen, and supported 
>data segment sizes larger than actual screen size.
>
>IBM 3270 File Transfer V2 supported Chinese and Korean langages using the 
>APVUFILE program.
>
>Tom Brennan's Vista TN3270 supports IND$FILE transfers.
>
>Both products were stabilized.
>
>Regards
>Bruce Hewson
>
>--
>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: intermittent errors using FTP program Interface EZAFTPKS

[Bruce Hewson]

IND$FILE

IBM 3270 File Transfer

was originally a Field Developed Program.

Exploits 3270 Structured Data Fields.

Earliest versions, when running, would use visible screen full displays of data 
which the emulator could grab and store when downloading, or vice versa when 
uploading.

Later versions made the data transfers invisible to the screen, and supported 
data segment sizes larger than actual screen size.

IBM 3270 File Transfer V2 supported Chinese and Korean langages using the 
APVUFILE program.

Tom Brennan's Vista TN3270 supports IND$FILE transfers.

Both products were stabilized.

Regards
Bruce Hewson

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

Question about memory usage under z/OS 2.2

[Feller, Paul]

This is one of those situation where you hear people say "we have run this way 
for a long time".  Well we have started to see issues with the world of Vtam 
and TCP/IP around memory usage.  We are running z/OS 2.2.  We now have several 
open PMRs with IBM related to memory issues.

We had OMPROUTE go down with an S878 and we have seen issues with running out 
of CSM fixed storage.  We have also seen TCP/IP get an S4C5.

Have other people seen an increase in memory usage for the Communication Server 
environments?


Thanks..

Paul Feller
AGT Mainframe Technical Support



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

Re: Fwd: Shark Tank: Is this why mainframes almost never get rebooted?

[Mark Post]

>>> On 10/7/2016 at 08:09 AM, Tom Marchant
<000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: 
> To paraphrase the article,
> "Mainframe people are stupid and too snobbish to learn from us enlightened 
> PC weenies."

I took it more like "Mainframe people don't know as much as they think they do 
and are too arrogant to ask for help."  :)


Mark Post

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

UID purpose (fresh HCD enhancement)

[R.S.]

Recent ehnancement to HCD introduced new field for functions: UID.
According to documentation UID is arbitrary number, which has to be 
unique within CPC and it is checked by LPARs with (also new) UID flag.
However the Function ID is already unique, so what is the reason to have 
another field with unique value?


Any clue?

--
Radoslaw Skorupka
Lodz, Poland






---
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru 
Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.955.696 złotych.


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

Re: Started task userid

[Clifford McNeill]

We use Top Secret and the method used is to enter a command to update something 
called the STC table dynamically with the stc procname and userid/acid to be 
associated with it.  The command looks like



TSS add(STC) proc(xx) acid(uu)


Cliff McNeill



From: IBM Mainframe Discussion List  on behalf of 
Jesse 1 Robinson 
Sent: Monday, October 10, 2016 10:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Started task userid

Long before STDATA was the Started Class Table, which was assembled from 
macros. It required an IPL to effect changes. AFAIK that is still supported, 
although I can't imagine any shop still using it. And for non-RACF shops, how 
is the dynamic mechanism implemented in ASM2 and Top Secret?

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Stephen Donaldson
Sent: Monday, October 10, 2016 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Started task userid

Take a look at the RACF started task table and ICHRIN03.

"There are in fact two things, science and opinion; the former begets 
knowledge, the latter ignorance."  --- Hippocrates.

> On 10 Oct 2016, at 15:58, Charles Mills  wrote:
>
> Consider:
>
> IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER
> , GROUP 
>
> How does the system determine ? In other words, if a shop
> wanted to change things so that a START for  was assigned
> userid , where would they specify that?
>
> Charles



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

Re: Started task userid

[George Rodriguez]

I stand corrected. I was looking at jobs (not STCs) that needed more
authority ​than normal.


*George Rodriguez*
*Specialist II - IT Solutions*
*IT Enterprise Applications*
*PX - 47652*
*(561) 357-7652 (office)*
*(954) 415-7586 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-251*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Eight Consecutive Years*

On Mon, Oct 10, 2016 at 11:20 AM, Charles Mills  wrote:

> @George, really?
>
> JCL Reference says "Note: Do not specify this parameter for a started
> task; if USER is specified, the job will fail."
>
> Charles
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of George Rodriguez
> Sent: Monday, October 10, 2016 7:11 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Started task userid
>
> Charles,
>
> The way I do it at my shop, is on the JOB card, I specify USER=uu.​
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

-- 


*Disclaimer: *Under Florida law, e-mail addresses are public records. If 
you do not want your e-mail address released in response to a public 
records request, do not send electronic mail to this entity. Instead, 
contact this office by phone or in writing.


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

Re: Started task userid

[Jesse 1 Robinson]

Long before STDATA was the Started Class Table, which was assembled from 
macros. It required an IPL to effect changes. AFAIK that is still supported, 
although I can't imagine any shop still using it. And for non-RACF shops, how 
is the dynamic mechanism implemented in ASM2 and Top Secret?

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Stephen Donaldson
Sent: Monday, October 10, 2016 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Started task userid

Take a look at the RACF started task table and ICHRIN03. 

“There are in fact two things, science and opinion; the former begets 
knowledge, the latter ignorance.”  --- Hippocrates.

> On 10 Oct 2016, at 15:58, Charles Mills  wrote:
> 
> Consider:
> 
> IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER 
> , GROUP 
> 
> How does the system determine ? In other words, if a shop 
> wanted to change things so that a START for  was assigned 
> userid , where would they specify that?
> 
> Charles


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

Re: Started task userid

[Charles Mills]

@George, really?

JCL Reference says "Note: Do not specify this parameter for a started task; if 
USER is specified, the job will fail."

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of George Rodriguez
Sent: Monday, October 10, 2016 7:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Started task userid

Charles,

The way I do it at my shop, is on the JOB card, I specify USER=uu.​

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

Re: Started task userid

[Stephen Donaldson]

Take a look at the RACF started task table and ICHRIN03. 

“There are in fact two things, science and opinion; the former begets 
knowledge, the latter ignorance.”  --- Hippocrates.

> On 10 Oct 2016, at 15:58, Charles Mills  wrote:
> 
> Consider:
> 
> IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER ,
> GROUP 
> 
> How does the system determine ? In other words, if a shop wanted to
> change things so that a START for  was assigned userid ,
> where would they specify that?
> 
> Charles 
> 
> --
> 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: Started task userid

[Itschak Mugzach]

I thought your question refers to stc... check racf started class and
stdata segment.
ITschak
בתאריך 10 באוק 2016 17:12,‏ "Charles Mills"  כתב:

> Thanks, @Ed and @John.
>
> http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/
> com.ibm.zos.v2r2.icha200/stproc.htm
>
> Silly me: I was looking in Initialization and Tuning.
>
> Charles
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Ed Jaffe
> Sent: Monday, October 10, 2016 7:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Started task userid
>
> On 10/10/2016 6:58 AM, Charles Mills wrote:
> > IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER
> > , GROUP 
> >
> > How does the system determine ? In other words, if a shop
> > wanted to change things so that a START for  was assigned
> > userid , where would they specify that?
>
> Look for SAF resources in the STARTED class...
>
> --
> 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: Started task userid

[Charles Mills]

Thanks, @Ed and @John.

http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.icha200/stproc.htm

Silly me: I was looking in Initialization and Tuning. 

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Monday, October 10, 2016 7:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Started task userid

On 10/10/2016 6:58 AM, Charles Mills wrote:
> IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER 
> , GROUP 
>
> How does the system determine ? In other words, if a shop 
> wanted to change things so that a START for  was assigned 
> userid , where would they specify that?

Look for SAF resources in the STARTED class...

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

Re: Started task userid

[George Rodriguez]

Charles,

The way I do it at my shop, is on the JOB card, I specify USER=uu.​


*George Rodriguez*
*Specialist II - IT Solutions*
*IT Enterprise Applications*
*PX - 47652*
*(561) 357-7652 (office)*
*(954) 415-7586 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-251*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Eight Consecutive Years*

On Mon, Oct 10, 2016 at 9:58 AM, Charles Mills  wrote:

> Consider:
>
> IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER ,
> GROUP 
>
> How does the system determine ? In other words, if a shop wanted to
> change things so that a START for  was assigned userid ,
> where would they specify that?
>
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

-- 


*Disclaimer: *Under Florida law, e-mail addresses are public records. If 
you do not want your e-mail address released in response to a public 
records request, do not send electronic mail to this entity. Instead, 
contact this office by phone or in writing.


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

Started task userid

[Charles Mills]

Consider:

IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER ,
GROUP 

How does the system determine ? In other words, if a shop wanted to
change things so that a START for  was assigned userid ,
where would they specify that?

Charles 

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

Re: Started task userid

[Ed Jaffe]

On 10/10/2016 6:58 AM, Charles Mills wrote:

IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER ,
GROUP 

How does the system determine ? In other words, if a shop wanted to
change things so that a START for  was assigned userid ,
where would they specify that?


Look for SAF resources in the STARTED class...

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: Started task userid

[John McKown]

On Mon, Oct 10, 2016 at 8:58 AM, Charles Mills  wrote:

> Consider:
>
> IEF695I START  WITH JOBNAME  IS ASSIGNED TO USER ,
> GROUP 
>
> How does the system determine ? In other words, if a shop wanted to
> change things so that a START for  was assigned userid ,
> where would they specify that?
>
> Charles
>

​For us, that is assigned via the RACF STARTED class.
http://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha200/icha200131.htm
​



-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

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

RMF Spreadsheet report 4 hour rolling MSU

[Jorge Garcia]

Hi all,
 
 We try to obtain a RMF spreadsheet report to show 4 hour avg MSU. I can only 
obtain with OVW statement Actual number of consumed MSUs but we're interesting 
in GCMSUACT OVW statement Actual MSU consumption for the capacity
group and in 4 hour avg MSU, but there isn't OVW statement available for this 
metric.
Is there any spreadsheet report available for obtain these values?
How can we specified the GCMSUACT OVW statement in postprocessor STEP?
Are the default RMF spreadsheet macros available to process this OVW statement?

Regards

Jorge Garcia Juanino
Gerente sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE 
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559 
jgarc...@mapfre.com

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

Re: CEEDUMP possible following 'new' failure

[Denis]

Hi Barbara,
 
no, we did not have Compuware in this environment. 
But the callrtm command seams something we need to look at. Thanks for that.
 
Denis.
 
 
-Original Message-
From: Barbara Nitz 
To: IBM-MAIN 
Sent: Mon, Oct 10, 2016 9:22 am
Subject: Re: CEEDUMP possible following 'new' failure

>I cannot remember exactly, but what happened was that in IMS the STOP REGION 
>command was issued and the address space was not listed anymore in IMS 
>(Display active showed it was gone).
>It was visible in JES but nothing could be done about it, it did neither 
>accept cancel nor force.

Do you by any chance run Compuware Xpediter or something under IMS? A few jobs 
ago, we had the same problem with our IMS regions, and it turned out that 
Compuware code was hindering termination. (I took a dump and looked.)

In some cases I was successful by using the (unsupported) callrtm program that 
is now a (supported)  operator command. I specified the asid and the bottommost 
tcb and ran that program a number of times. In about 70% of the cases it 
succeeded in terminating the hung region, in the remaining 30% they needed a 
complete IMS restart (to enable to user whose id was blocked) to work again.

Barbara

--
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: CEEDUMP possible following 'new' failure

[Barbara Nitz]

>I cannot remember exactly, but what happened was that in IMS the STOP REGION 
>command was issued and the address space was not listed anymore in IMS 
>(Display active showed it was gone).
>It was visible in JES but nothing could be done about it, it did neither 
>accept cancel nor force.

Do you by any chance run Compuware Xpediter or something under IMS? A few jobs 
ago, we had the same problem with our IMS regions, and it turned out that 
Compuware code was hindering termination. (I took a dump and looked.)

In some cases I was successful by using the (unsupported) callrtm program that 
is now a (supported)  operator command. I specified the asid and the bottommost 
tcb and ran that program a number of times. In about 70% of the cases it 
succeeded in terminating the hung region, in the remaining 30% they needed a 
complete IMS restart (to enable to user whose id was blocked) to work again.

Barbara

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

Re: intermittent errors using FTP program Interface EZAFTPKS

[Elardus Engelbrecht]

Charles Mills wrote:

>Two independent and separate methods:
>With DCB, very straightforward. It's so easy, even IEBGENER can do it. Write a 
>QSAM or BSAM file of JCL to DD SYSOUT=(,INTRDR) and JES will queue it as a job.

This is what I do (snippet from an old working program, housekeeping and 
errorchecking removed for this posting):

JOBOUT  DCB   DSORG=PS,MACRF=PM,DDNAME=JOBOUT 
...
 OPEN  (JOBOUT,(OUTPUT))   
 LAR2,JOBAREA  .LOAD ADDRESS OF JOBAREA 
 LAR3,1.LOAD A COUNTER OF LINES 
PUTJOB   EQU   *  
 PUT   JOBOUT,0(R2). WRITE OUT
 LAR2,80(R2)   .NEXT 80 CHARS

... etc ... (including looping back to PUTJOB if there are more lines to be 
written)

LASTPUT  EQU   *
 PUT   JOBOUT,LASTCARD.WRITE LAST LINE 
EOJ  EQU   *
 CLOSE JOBOUT .CLOSE INTERNAL READER

Your program is then using 

//OUTJOB DD SYSOUT=(?,INTRDR)

Oh, above SYSOUT could be a dataset which you can further massage before actual 
submit...

Groete / Greetings
Elardus Engelbrecht

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