Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Re: How to obtain a file bigger than 80 chars from two inputs file

200 views
Skip to first unread message

Hilario G.

unread,
Jul 18, 2011, 3:02:33 PM7/18/11
to
Hello folks,

The additional information for the problem are:

1) FILE1 MEMBER OF A PDS LRECL=80. FB
2) FILE2 PS LRECL=210, FB
3) OUTPUT=FILE1+FILE2 PS,LRECL=210, FB

FILE1 contains the header data for SMTP protocol.
FILE2 is the attached file sentd via SMTP.

I need to merge FILE1 (LRECL 80, FB) with data file FILE2 (LRECL 210, FB) to obtain a PS (LRECL 210, RECFM=FB)-

I hope that anybodoy can help me.

Kind Regards.

Hilario Garcia

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to list...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Frank Yaeger

unread,
Jul 18, 2011, 3:37:55 PM7/18/11
to
Hilario G. at IBM Mainframe Discussion List <IBM-...@bama.ua.edu> wrote on
07/18/2011 11:57:52 AM:

> The additional information for the problem are:
>
> 1) FILE1 MEMBER OF A PDS LRECL=80. FB
> 2) FILE2 PS LRECL=210, FB
> 3) OUTPUT=FILE1+FILE2 PS,LRECL=210, FB
>
> FILE1 contains the header data for SMTP protocol.
> FILE2 is the attached file sentd via SMTP.
>
> I need to merge FILE1 (LRECL 80, FB) with data file FILE2 (LRECL
> 210, FB) to obtain a PS (LRECL 210, RECFM=FB)-
>
> I hope that anybodoy can help me.

I thought I had already helped you. Anyway, you can use a
DFSORT/ICETOOL job that like this:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=pds(member),... (FB/80)
//IN2 DD DSN=... input file2 (FB/210)
//OUT DD DISP=(MOD,CATLG,DELETE),DSN=... output file (FB/210)
//TOOLIN DD *
COPY FROM(IN1) TO(OUT) USING(CTL1)
COPY FROM(IN2) TO(OUT)
//CTL1CNTL DD *
INREC OVERLAY=(210:X)
/*

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

Lizette Koehler

unread,
Jul 18, 2011, 5:41:56 PM7/18/11
to
> Hello folks,
>
> The additional information for the problem are:
>
> 1) FILE1 MEMBER OF A PDS LRECL=80. FB
> 2) FILE2 PS LRECL=210, FB
> 3) OUTPUT=FILE1+FILE2 PS,LRECL=210, FB
>
> FILE1 contains the header data for SMTP protocol.
> FILE2 is the attached file sentd via SMTP.
>
> I need to merge FILE1 (LRECL 80, FB) with data file FILE2 (LRECL 210, FB)
to obtain a
> PS (LRECL 210, RECFM=FB)-
>
> I hope that anybodoy can help me.
>
> Kind Regards.
>
> Hilario Garcia
>


Hilario,

I think what you really want to do is send via SMTP a file. The best way
would be to use SAS EMAIL process if you have SAS or XMITP. Both of these
processes make sending email from the mainframe easy.

SAS is a product you pay for and it is part of the BASE SAS. XMITP is free.

Lizette

Hilario G.

unread,
Jul 19, 2011, 4:22:14 AM7/19/11
to
Hello Michael,

I follow your example, but didn't work. The error is produce on second sentence COPY:

ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED

ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPL

ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN


ICE630I 0 MODE IN EFFECT: STOP

COPY FROM(INFILE0) TO(SORTOUT) USING(CTL0)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM INFILE0 TO SORTOUT USING CTL0CNT
ICE602I 0 OPERATION RETURN CODE: 00

COPY FROM(INFILE1) TO(SORTOUT) USING(CTL1)
ICE606I 0 DFSORT CALL 0002 FOR COPY FROM INFILE1 TO SORTOUT USING CTL1CNT
ICE602I 0 OPERATION RETURN CODE: 16


ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16

May you help me ?

Kind Regards.

Hilario G.

Martin Packer

unread,
Jul 19, 2011, 5:11:59 AM7/19/11
to
Note your output messages are truncated in your post. For example
"EXAMPL". :-)

Cheers, Martin

Martin Packer,
Mainframe Performance Consultant, zChampion
Worldwide Banking Center of Excellence, IBM

+44-7802-245-584

email: martin...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker
Blog:
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker

From:
"Hilario G." <lib...@GMAIL.COM>
To:
IBM-...@bama.ua.edu
Date:
19/07/2011 09:21
Subject:
Re: How to obtain a file bigger than 80 chars from two inputs file
Sent by:
IBM Mainframe Discussion List <IBM-...@bama.ua.edu>

Hello Michael,

Kind Regards.

Hilario G.

Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number
741598.
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

Norbert Friemel

unread,
Jul 19, 2011, 5:41:16 AM7/19/11
to
On Tue, 19 Jul 2011 02:12:04 -0500, Hilario G. wrote:

>
>I follow your example, but didn't work. The error is produce on second sentence COPY:
>

>


>May you help me ?
>

Hilario,

Frank Yaeger answered your question twice:
8 Jul 2011: http://groups.google.com/group/bit.listserv.ibm-main/msg/a86401246013dff5
18 Jul 2011: http://groups.google.com/group/bit.listserv.ibm-main/msg/a1126856589c67cd


The second file in Michael's example is RECFM=VB. This won't work (without modifications) for RECFM=FB files.

Norbert Friemel

Hilario G.

unread,
Jul 19, 2011, 9:14:14 AM7/19/11
to
Hello Michael,

Pardon for the previos e-mail. Your example runs correctly. I adjust some values and now it work.

Kind Regards.

Hilario G.

Shmuel Metz , Seymour J.

unread,
Jul 21, 2011, 8:48:58 AM7/21/11
to
In <2276372976855360.W...@bama.ua.edu>, on 07/18/2011

at 01:57 PM, "Hilario G." <lib...@GMAIL.COM> said:

>FILE2 is the attached file sentd via SMTP.

Depending on what's in the file, you may need to encode it and send it
as a MIME attachment.

--
Shmuel (Seymour J.) Metz, SysProg and JOAT
ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

ibmnew

unread,
Sep 21, 2011, 5:35:02 AM9/21/11
to
Hi all
When we shutdown our z/OS 1.11 everytime,we will issue 'Z EOD' command.

After we IPL the system again,we find that SMF dataset was switched .
P-SYS1.BDZ1.MAN1 BD1SF1 600300 1 ACTIVE
S-SYS1.BDZ1.MAN2 BD1SF2 600300 2 DUMP REQUIRED
S-SYS1.BDZ1.MAN3 BD1SF3 600300 0 ALTERNATE
When we issue 'I SMF' command,It's written to only dump P-SYS1.BDZ1.MAN1.
How to dumps all the SMF datasets automagically evertime when we issue 'I SMF' command
Thanks a lot !
Best Regards,
Jason Cai

Lim Ming Liang

unread,
Sep 21, 2011, 5:57:07 AM9/21/11
to
Back in the XA time, I used a SMFDUMPT from the SYS1.SAMPLIB to do that.
Couldn;t find that being shipped in the newer zOS.
Now a days, most of the shops will use Automation product to address that.
Regards Lim ML

Binyamin Dissen

unread,
Sep 21, 2011, 6:58:51 AM9/21/11
to
On Wed, 21 Sep 2011 17:33:39 +0800 ibmnew <ibm...@163.COM> wrote:

:>Hi all
:> When we shutdown our z/OS 1.11 everytime,we will issue 'Z EOD' command.
:>
:>After we IPL the system again,we find that SMF dataset was switched .
:>P-SYS1.BDZ1.MAN1 BD1SF1 600300 1 ACTIVE
:>S-SYS1.BDZ1.MAN2 BD1SF2 600300 2 DUMP REQUIRED
:>S-SYS1.BDZ1.MAN3 BD1SF3 600300 0 ALTERNATE
:>When we issue 'I SMF' command,It's written to only dump P-SYS1.BDZ1.MAN1.
:>How to dumps all the SMF datasets automagically evertime when we issue 'I SMF' command

I do not understand. You wish to dump ALL the SMF whenever there is a switch?

Why would you want to do that?

If you do, keep issuing I SMF until you get the message "NO AVAILABLE SMF
DATASETS" or something like that. Then you can dump them all. But your request
is illogical.

--
Binyamin Dissen <bdi...@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

Larry Macioce

unread,
Sep 21, 2011, 7:23:06 AM9/21/11
to
we have the following in jesparm:

$TA, T=11.05,I=86400,'$VS,''SWITCH SMF'''
$TA, T=11.10,I=86400,'$VS,''S SMFCLRB'''
$TA, T=11.30,I=86400,'$VS,''D SMF'''

The smfclrb is a job that that clears all smf areas
mace

Lizette Koehler

unread,
Sep 21, 2011, 7:30:22 AM9/21/11
to
>
> Hi all
> When we shutdown our z/OS 1.11 everytime, we will issue 'Z EOD' command.
>
> After we IPL the system again, we find that SMF dataset was switched .
> P-SYS1.BDZ1.MAN1 BD1SF1 600300 1 ACTIVE
> S-SYS1.BDZ1.MAN2 BD1SF2 600300 2 DUMP REQUIRED
> S-SYS1.BDZ1.MAN3 BD1SF3 600300 0 ALTERNATE
> When we issue 'I SMF' command, It's written to only dump
P-SYS1.BDZ1.MAN1.
> How to dumps all the SMF datasets automatically evertime when we issue 'I
SMF'
> command Thanks a lot !
> Best Regards,
> Jason Cai


If you want to dump all SMF MAN files then check out CBTTAPE.ORG file
686 SMFDUMP program

We use this and when we get the LAST SMF FILE BEING Used message, we run
this program to dump all MAN files.

This would not work for a Z EOD, but will work during a normal day.

Do you have IEFU29 exit installed?

Lizette

Elardus Engelbrecht

unread,
Sep 21, 2011, 9:23:54 AM9/21/11
to
Jason Cai wrote:

> When we shutdown our z/OS 1.11 everytime,we will issue 'Z EOD' command.
>After we IPL the system again,we find that SMF dataset was switched .

This is WAD.

>How to dumps all the SMF datasets automagically evertime when we issue 'I SMF' command

Why everytime during that command? Just have your automation package react on IEE985A or IEE391A.

There is a SMFDUMP program available at www.cbttape.org. IBM supplied a similar program years ago.

Groete / Greetings
Elardus Engelbrecht

GreenGA

unread,
Sep 21, 2011, 12:03:29 PM9/21/11
to
Way back when, when I first arrived here, we had the situation where
we had duplicate SMF data so I implemented a process where we purge
our SMF data of all duplicate records during the SMFDAILY cycle.

One thing this approach allows us to do is dump our SMF datasets as
often as we wish. So, we tweaked our SMFDUMP proc to dump either, a
single MAN dataset, based on a SYMBOLIC PARM (fed/supplied by IEFU29),
or all MAN datasets. When we IPL, or when an SMFDUMP process
misfires, we just start SMFDUMP and it defaults and dumps, or attempts
to dump and clear all SMF dump datasets. Those MAN datasets that are
empty, are bypassed, those that are full and free are dumped and
cleared, those that are in use/open, are just dumped.

We never miss a beat, we no longer have duplicate SMF records nor do
we lose any SMF data. It's been working flawlessly for almost three
years with nary a problem. And those that we did have were caused by
humans. ;)

HTH

Rick Fochtman

unread,
Sep 21, 2011, 5:22:44 PM9/21/11
to
---------------------------------<snip>-------------------------------
If you want to dump all SMF MAN files then check out CBTTAPE.ORG file
686 SMFDUMP program

We use this and when we get the LAST SMF FILE BEING Used message, we run
this program to dump all MAN files.

This would not work for a Z EOD, but will work during a normal day.

Do you have IEFU29 exit installed?
-------------------------------<unsnip>-------------------------------
Good advice, Lizette. We also used the SMFDUMP program, started by a
command issued from the IEFU29 exit. Since we ran multiple LPARs in a
Basic Sysplex, we changed the ENQ scope in SMFDUMP from SYSTEMS to
SYSTEM, to avoid interference with the same program running on other
images within the 'plex.

Rick

Knutson, Sam

unread,
Sep 22, 2011, 10:51:49 AM9/22/11
to
You could record SMF to logstream and then this whole issue goes away. You dump the data when you need to read it not when some intermediate container needs to be emptied.


        Best Regards,

               Sam Knutson, GEICO 
                System z Team Leader 
                mailto:sknu...@geico.com
                (office)  301.986.3574
                (cell) 301.996.1318
             
"Think big, act bold, start simple, grow fast..."


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-...@bama.ua.edu] On Behalf Of ibmnew
Sent: Wednesday, September 21, 2011 5:34 AM
To: IBM-...@bama.ua.edu
Subject: How to dumps all the SMF datasets automagically evertime

Hi all
When we shutdown our z/OS 1.11 everytime,we will issue 'Z EOD' command.

After we IPL the system again,we find that SMF dataset was switched .
P-SYS1.BDZ1.MAN1 BD1SF1 600300 1 ACTIVE
S-SYS1.BDZ1.MAN2 BD1SF2 600300 2 DUMP REQUIRED
S-SYS1.BDZ1.MAN3 BD1SF3 600300 0 ALTERNATE
When we issue 'I SMF' command,It's written to only dump P-SYS1.BDZ1.MAN1.
How to dumps all the SMF datasets automagically evertime when we issue 'I SMF' command Thanks a lot !
Best Regards,
Jason Cai
====================
This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

Richards, Robert B.

unread,
Sep 22, 2011, 11:06:48 AM9/22/11
to
I concur wholeheartedly! Just remember to issue a Z EOD before IPLs.

Bob

Ed Gould

unread,
Sep 22, 2011, 11:59:56 AM9/22/11
to
Sam,

Good suggestion. I haven&#39;t seen any data as to performance though. In the past dumping SMF was while not slow it wasn&#39;t fast either. Has IBM ever been able to speed it up? The log stream might just be the answer to my issue, has onyone come up with any numbers?

Ed

Mark Zelden

unread,
Sep 22, 2011, 12:54:31 PM9/22/11
to
On Thu, 22 Sep 2011 08:43:55 -0700, Ed Gould <ps2...@YAHOO.COM> wrote:

(btw, below is what I see from the archives - all the #39 stuff instead of single quotes)

> Sam,

>Good suggestion. I haven&#39;t seen any data as to performance though. In the past dumping SMF was while not slow it wasn&#39;t
>fast either. Has IBM ever been able to speed it up? The log stream might just be the answer to my issue, has onyone come up with any
>numbers?

Of course there have been numbers published by IBM and "speeding up" was
one of the main reasons this was done.

Here is a data and some verbiage from a SHARE presentation (session
2853, I think it was San Jose). View in fixed font...

---------+----------+----------+----------+----------+----------+
|Base run |Using 1 |split |mult |Mult+ dup |
|with manx |log |across 3 |streams + |30 and |
|dsns |stream |logstreams|dup typ30 |100:102 |
---------+----------+----------+----------+----------+----------+
CPU% | 86.56% | 86.19% | 87.05% | 86.34% | 86.95% |
---------+----------+----------+----------+----------+----------+
TOT DASD | | | | | |
I/O rate | 4643 | 3622 | 3387 | 3436 | 3256 |
---------+----------+----------+----------+----------+----------+
SMFLOGR | | | | | |
# of REQ | | 82769 | 90474 | 91879 | 149324 |
---------+----------+----------+----------+----------+----------+
SMF data | | | | | |
log rate | 17355.19 | 17010.23 | 17221.54 | 17199.62 | 34472.71 |
(rec/sec)| | | | | |
---------+----------+----------+----------+----------+----------+
SMF avg | | | | | |
rec len | 298.12 | 298.12 | 298.12 | 298.12 | 298.3 |
---------+----------+----------+----------+----------+----------+
SMF size | | | | | |
in MB | 1776.33 | 1741.02 | 1762.65 | 1760.40 | 3530.46 |
---------+----------+----------+----------+----------+----------+


Here we see some interesting comparisons between SMF recording
to MANx data sets versus log streams.

1) When using the same workload, log stream recording did not
cause any significant change in CPU utilization. Compared to the
work load itself, SMF was not a significant contributer.

2) The DASD I/O rate, however, was lower when using log streams.
System Logger creates larger write requests than SMF recording
to MANx data sets, resulting in greater efficiency in I/O.

3) Even when duplicating records to multiple log streams, the
effect of SMF recording was insignificant compared to the
workload.


--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
mailto:ma...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
Systems Programming expert at http://expertanswercenter.techtarget.com/

Schwarz, Barry A

unread,
Sep 22, 2011, 2:34:21 PM9/22/11
to
The dumps on the systems I use seem to go at tape speed. What takes the time is re-initializing the MANx datasets.

> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-...@bama.ua.edu] On
> Behalf Of Ed Gould
> Sent: Thursday, September 22, 2011 8:44 AM
> To: IBM-...@bama.ua.edu
> Subject: Re: How to dumps all the SMF datasets automagically evertime
>
> Sam,
>
> Good suggestion. I haven&#39;t seen any data as to performance though. In
> the past dumping SMF was while not slow it wasn&#39;t fast either. Has IBM
> ever been able to speed it up? The log stream might just be the answer to
> my issue, has onyone come up with any numbers?

ITURIEL DO NASCIMENTO NETO

unread,
Sep 22, 2011, 2:46:17 PM9/22/11
to
Does the presentation shows CI size and BUFSPACE of MANx datasets ?

Atenciosamente / Regards / Saludos

Ituriel do Nascimento Neto
BANCO BRADESCO S.A.
4254 / DPCD Engenharia de Software
Sistemas Operacionais Mainframes
Tel: +55 11 4197-2021 R: 22021
Fax: +55 11 4197-2814


-----Mensagem original-----
De: IBM Mainframe Discussion List [mailto:IBM-...@bama.ua.edu] Em nome de Mark Zelden
Enviada em: quinta-feira, 22 de setembro de 2011 13:53
Para: IBM-...@bama.ua.edu
Assunto: Re: How to dumps all the SMF datasets automagically evertime

> Sam,

AVISO LEGAL <br>...Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação.
LEGAL ADVICE<br>...This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void.

Mark Zelden

unread,
Sep 22, 2011, 3:24:18 PM9/22/11
to
On Thu, 22 Sep 2011 15:44:49 -0300, ITURIEL DO NASCIMENTO NETO <4254.i...@BRADESCO.COM.BR> wrote:

>Does the presentation shows CI size and BUFSPACE of MANx datasets ?
>

No. There chart has the obligatory "YMMV" disclaimer and states:

SMF Logger study using Trade6 on a z9 system with 16CPs (single image)
99.9% of the SMF records were type 102 records


But even if it is optimal, this is still better compared to "20 year old
technology" (words used in the presentation).

Mark

Ed Gould

unread,
Sep 22, 2011, 7:57:50 PM9/22/11
to
Barry,
Do you use log stream ? Or DASD ?

Ed

Schwarz, Barry A

unread,
Sep 23, 2011, 3:21:56 PM9/23/11
to
DASD, as indicated by the reference to the SYS1.MAXx datasets.

> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-...@bama.ua.edu] On
> Behalf Of Ed Gould
> Sent: Thursday, September 22, 2011 4:57 PM
> To: IBM-...@bama.ua.edu
> Subject: Re: How to dumps all the SMF datasets automagically evertime
>
> Barry,
> Do you use log stream ? Or DASD ?

Rick Fochtman

unread,
Sep 23, 2011, 4:28:17 PM9/23/11
to
---------------------------------------<snip>--------------------------------------
Does the presentation shows CI size and BUFSPACE of MANx datasets ?
---------------------------------------<unsnip>------------------------------------
AFAIK, it does not. SMF is more than adept at managing the space and the
selection of CI size during definition of the cluster(s) seems to be
pretty optimal as is, without a human "second guess" cluttering up the
picture.

I've found that with only a few extreme exceptions, the best CI size is
usually "automagically" assigned during IDCAMS definition/allocation
processing.

Rick
-----------------------------------------------------------------------------------------
0 new messages