On Wed, 23 Sep 2020 19:23:33 +0100, Martin Packer wrote:
>No, that would have to be another job, also specifying eg SUBSYS=PIPE. And
>scheduled to run alongside the sort.
>
Eek! How do they find each other? And perhaps more important, what
if several programmers unknown to e
No, that would have to be another job, also specifying eg SUBSYS=PIPE. And
scheduled to run alongside the sort.
Cheers, Martin
Martin Packer
Systems Investigator & Performance Troubleshooter, IBM
+44-7802-245-584
email: martin_pac...@uk.ibm.com
Twitter / Facebook IDs: MartinPacker
On Wed, 23 Sep 2020 16:01:08 +0100, Martin Packer wrote:
>Right. That example used BatchPipes/MVS pipes - but it's not essential to
>the use of OUTFIL SPLIT. The reason it used pipes was to enable cloning to
>balance a pipe.
>
OK. I looked at your example (z/OS 2.1; not too misty). But what
er x23353"
<031df298a9da-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 23/09/2020 14:54
Subject: [EXTERNAL] Re: SORT question: How to both remove records
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion
-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT question: How to both remove records from a file AND write
removed records to a 2nd output?
EXTERNAL EMAIL
OUTFIL SPLIT.
Something also from the mists of time, by no coincidence, is this:
https://urldefense.com/v3/__https://www.ibm.com/support
Date: 22/09/2020 20:34
Subject: [EXTERNAL] Re: SORT question: How to both remove records
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List
> On the "tagging" that Sri Hari mentioned:
>
> 1) You needn't tag unless you
r.fm/marna-walle
Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA
From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 22/09/2020 20:31
Subject:[EXTERNAL] Re: SORT question: How to both remove rec
> On the "tagging" that Sri Hari mentioned:
>
> 1) You needn't tag unless you want to - and there will be some occasions
> where you don't want to.
Matrin,
Fully agreed. I just wanted to show case with IFTHEN it is much easier to
split into multiple files with different conditions.
> Just some
On Tue, 22 Sep 2020 20:08:12 +0100, Martin Packer wrote:
>
>SAVE has, to my mind, been most invaluable. Prior to this you had to
>figure out the boolean complement of the INCLUDE= clause. With more than
>one INCLUDE= clause in a sort it became hairier, requiring De Morgan's
>Law*.
o this you had to
figure out the boolean complement of the INCLUDE= clause. With more than
one INCLUDE= clause in a sort it became hairier, requiring De Morgan's
Law*. :-) SAVE made this a lot simpler and less error prone.
"Card Dealer" not so much.
I would expect both impl
Thanks Sri, that is just what I need.
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Sri
h Kolusu
Sent: Tuesday, September 22, 2020 2:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT question: How to both remove records from a file AND write
removed
> In one pass of an input file is there a way to use SORT to both
> remove identified records from an input file AND write those removed
> records to a second output file?
Peter,
You don't need 2 passes of data, you can tag the records that match your
identification and then use
Thanks Max, that would seem to be the way.
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Massimo Biancucci
Sent: Tuesday, September 22, 2020 1:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT question: How to both remove records from a file AND write
t=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
Il giorno mar 22 set 2020 alle ore 19:22 Farley, Peter x23353 <
031df298a9da-dmarc-requ...@listserv.ua.edu> ha scritto:
> In one pass of an input file is there a way to use SORT to both remove
> identified records from an inpu
In one pass of an input file is there a way to use SORT to both remove
identified records from an input file AND write those removed records to a
second output file?
I know I can run two passes of the input using INCLUDE in pass 1 to select just
the records to be removed and a second pass
ay from us, so
I personally wouldn’t want to be the one filing such an RCF.
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Paul Gilmartin
Sent: Thursday, September 17, 2020 12:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL ? Re: SORT selection questio
Mainframe Discussion List on behalf of
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, September 17, 2020 2:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL ? Re: SORT selection question
On Thu, 17 Sep 2020 17:17:35 +, Seymour J Metz wrote:
>It m
On Thu, 17 Sep 2020 17:17:35 +, Seymour J Metz wrote:
>It may depend on how you define support. There are some utilities that work
>but for which the documentation doesn't mention it. The DD: recognition is
>unsupported in the sense that if it breaks IBM will not consider that an error.
>
From: IBM Mainframe Discussion List on behalf of
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, September 17, 2020 12:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL ? Re: SORT selection question
On Thu, 17 Sep 2020
>>> Note that I changed your EQ to GE. So it would stop after reading no
> more than 1001 irrelevant records, much improving the performance
> for the OP's "very large" SORTIN. Note also that the OP said SORTIN
> had previously been sorted, so no records having key LT,'ABC' would
> precede the
: SORT selection question
On Thu, 17 Sep 2020 14:58:44 +, Farley, Peter x23353
wrote:
>Of course that is an option, particularly the COBOL one. I am personally very
>familiar with awk and z/OS awk does support "classic" datasets via DD, ...
>
Citation needed. Ac
On Thu, 17 Sep 2020 14:58:44 +, Farley, Peter x23353
wrote:
>Of course that is an option, particularly the COBOL one. I am personally very
>familiar with awk and z/OS awk does support "classic" datasets via DD, ...
>
Citation needed. According to what IBM document?
On Thu, 17 Sep 2020
> Can you set an a priori upper bound on the number of 'ABC' records?
> Suppose you're confident that there are at most 1000.
Gil,
Unfortunately that wouldn't work. If your input have less than 1000
records for the key 'ABC' and you code STOPAFT=1001, then it would read the
entire file as we
PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT selection question
You could also use an E15 and return an 8 when you get past the interesting
data.
Chris Blaicher
Technical Architect
Precisely.com
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU
: IBM-MAIN@LISTSERV.UA.EDU
Subject: COBOL ? Re: SORT selection question
Why not just write a small program ?
COBOL ?
AWK ? :-)
SED :-)
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Scott Barry
Sent: Wednesday, September 16, 2020 6:36 PM
To: IBM-MAIN@LISTSERV.UA.E
: Wednesday, September 16, 2020 8:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT selection question
Hi Peter,
If you have IBM File Manager you could do what you need with the Data Set Copy
(DSC) function and an enhanced processing procedure:
$$FILEM DSC INPUT=DDIN,
$$FILEM OUTPUT=DDOUT
Wednesday, September 16, 2020 9:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT selection question
On Thu, 17 Sep 2020 08:20:07 +0800, Peter Van Dyke wrote:
>
>If you have IBM File Manager you could do what you need with the Data
>Set Copy (DSC) function and an enhanced processing pr
C ')
>
>Peter
>
>-Original Message-
>From: IBM Mainframe Discussion List On Behalf Of
>Sri h Kolusu
>Sent: Wednesday, September 16, 2020 3:54 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: SORT selection question
>
>EXTERNAL EMAIL
>
>>>> When
>>> Does that meet the OP's requirement to copy selected records to OUTPUT?
> Is another command necessary?
Gil,
DSC (Data Set Copy) function will copy from the input DDIN to output DDOUT
and as soon as it finds record greater than ABC it stops reading and all
the records read before that are
On Thu, 17 Sep 2020 08:20:07 +0800, Peter Van Dyke wrote:
>
>If you have IBM File Manager you could do what you need with the Data Set
>Copy (DSC) function and an enhanced processing procedure:
>
>$$FILEM DSC INPUT=DDIN,
>$$FILEM OUTPUT=DDOUT,
>$$FILEM PROC=*
>IF FLDI(1,3,C,'GT',"ABC")
I agree with Christopher. I designed an Assembler Macro that built an exit
exit module. A few seconds to Assemble. GET on a sequential file, pass to
sort if required. RC = 8 when you get past the desired key value.
Of course if you are not sorting, add a PUT instead of a return.
On Thu, Sep 17
:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT selection question
[ External - This message originated Externally. Use proper judgement and
caution with attachments, links, or responses. ]
Hi Peter,
If you have IBM File Manager you could do what you need with the Data Set Copy
(DSC
Hi Peter,
If you have IBM File Manager you could do what you need with the Data Set
Copy (DSC) function and an enhanced processing procedure:
$$FILEM DSC INPUT=DDIN,
$$FILEM OUTPUT=DDOUT,
$$FILEM PROC=*
IF FLDI(1,3,C,'GT',"ABC") THEN
RETURN STOP IMMEDIATE/* Stop processing
Why not just write a small program ?
COBOL ?
AWK ? :-)
SED :-)
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Scott Barry
Sent: Wednesday, September 16, 2020 6:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: SORT selection question
With DFSORT
On Thu, 17 Sep 2020 08:58:59 +1000, Wayne Bickerdike wrote:
>Not sure how a sequential file has a "KEY". It may be a value in fixed
>columns.
>
I find "KEY" used apparently in that sense in numerous places in:
z/OS Version 2 Release 4 DFSORT Application Programming Guide
IBM SC23-6878-40
I'm not quite understanding how that could work with current SORT software.
E.G., if there are 100 records to be selected in the first 100,000 records and
none after that, the relative record number would be 10 for the SORT
STOPAFT, not exactly what was requested.
SORT JOIN can do
I should have read the OP more carefully. Mea culpa.
E15 exit? Used to do this to get keyranges from CA-Datacom using GETIT.
Just pass the desired value to the exit to tell sort to finish.
On Thu, Sep 17, 2020 at 8:58 AM Wayne Bickerdike wrote:
> Not sure how a sequential file has a &
Not sure how a sequential file has a "KEY". It may be a value in fixed
columns.
I'm sure it's why we've been sorting files for donkeys years.
On Thu, Sep 17, 2020 at 8:53 AM Sri h Kolusu wrote:
> > With DFSORT/SYNCSORT in mind, possibly a two-step process where the
> > first step interrogates
.G., STOPWHEN(1,3,'AC ')
> >>
> >I'm imagining something like:
> >...STOPAFT=1
> >...COND=(1,3,CH,GT,C'ABC')
> >
> >Certainly stops at (almost) the right place. but Kolusu indicates, there's
> >no way to select COND=(1,3,CH,EQ,C'ABC') for o
> With DFSORT/SYNCSORT in mind, possibly a two-step process where the
> first step interrogates an input data stream (no output generated,
> mostly for optimization) to detect a relative-record# where the
> limit-key-value (COND-argument) is then passed to a second step
Scott,
I think you missed
gt;I'm imagining something like:
>...STOPAFT=1
>...COND=(1,3,CH,GT,C'ABC')
>
>Certainly stops at (almost) the right place. but Kolusu indicates, there's
>no way to select COND=(1,3,CH,EQ,C'ABC') for output.
>
>
>>-Original Message-
>>From: Sr
ainly stops at (almost) the right place. but Kolusu indicates, there's
no way to select COND=(1,3,CH,EQ,C'ABC') for output.
>-Original Message-
>From: Sri h Kolusu
>Sent: Wednesday, September 16, 2020 3:54 PM
>
>>>> When using SORT (either DFSORT or SYNCSORT) to select
> When the goal is to find ALL records with the selected
> values and one does not know in advance how many there are, it is
> not as helpful as it could be.
Peter,
Unfortunately Sort does not have that feature.
Thanks,
Kolusu
DFSORT Development
IBM Co
, something like:
STOPWHEN COND=(key value greater than this stop reading)
E.G., STOPWHEN(1,3,'AC ')
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Sri
h Kolusu
Sent: Wednesday, September 16, 2020 3:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT selection
>>> When using SORT (either DFSORT or SYNCSORT) to select a relatively
> small sample of records by (a) particular key value(s) from a *very
> large* sequential file,
Peter,
You can use STOPAFT parm to stop reading the input once you get to a
threshold value. For example i
When using SORT (either DFSORT or SYNCSORT) to select a relatively small sample
of records by (a) particular key value(s) from a *very large* sequential file,
when one knows in advance that the "key values" used to select the desired
sample records are in sorted order in the
Thanks a Lot Kolusu for the information .
Regards
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> As the 1'st file has leading zeros for some of the records 2.73 are
> not getting matched . could someone please let me know how to get
> this addressed?
Ron,
If you looked up the Joinkeys description for FIELDS in the DFSORT
Application programming guide you would have found this
The keys
101007
101749
101887
101894
101903
102081
102093
102101
Sort card coded
JOINKEYS FILES=F1,FIELDS=(1,12,A)
JOINKEYS FILES=F2,FIELDS=(1,12,A)
REFORMAT FIELDS=(F1:01,3421,F2:01,39,?)
OPTION COPY
JOIN UNPAIRED,F1,F2
OUTFIL FNAMES=BOTH,
INCLUDE=(3461,1,CH,EQ,C'B'),BUILD=(1,515,516:3435,12,528
> Could you elaborate on why and when AVGRECLEN allocation is more
efficient?
Barry,
If AVGRLEN=n is not specified, DFSORT will use one-half of the maximum
record length as the average record length. To determine the input file
size for a sort application. DFSORT performs calculations ba
..@mxg.com for technical questions
ba...@mxg.com
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Sri h Kolusu
Sent: Wednesday, July 29, 2020 9:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT Capacity Exceeded
> ICE752I 0 FSZ=100121518644 BC IGN=0 E AVG=16336 0 WS
> ICE752I 0 FSZ=100121518644 BC IGN=0 E AVG=16336 0 WSP=130040639 C
DYN=0 0
> ICE236I 0 OPTIONS:
DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=600,EXPOLD=200,EXPRES=100
Robert,
The file you are trying to sort is little over 100 Gigs, but your
installation option EXPMAX=600 MB which i
Of
Richards, Robert B.
Sent: 29 July 2020 13:38
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SORT Capacity Exceeded
I am out of my element trying to figure out the following SORT issue. Job runs
normally when the number of SORTIN records is much less. JCL contains 16 SORTWK
datasets. If memory serves, isn't
ICE046A 0 SORT CAPACITY EXCEEDED - RECORD COUNT 37505288
ICE253I 0 RECORDS SORTED - PROCESSED: 37505288, EXPECTED: 612
ICE098I 0 AVERAGE RECORD LENGTH - PROCESSED: 1486, EXPECTED: 16336
Dummy out or comment out the SORTWK DD statements. Then you get
dynamic allocation.
On Wed, Jul 29, 2020
I am out of my element trying to figure out the following SORT issue. Job runs
normally when the number of SORTIN records is much less. JCL contains 16 SORTWK
datasets. If memory serves, isn't there a way to let SORT figure out how much
it needs?
ICE000I 1 - CONTROL STATEMENTS FOR 5650-ZOS, Z
Thanks a bunch Kolusu..
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>fyi , we are using DFSORT and not Syncsort .
Well that is good news. On that note then here is the solution.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
US1234567897272
//SORTOUT DD SYSOUT=*
//SYSINDD *
OPTION COPY
OUTFIL BUILD=(C'UPDATE K1GHGMT.RTALABLE_I
ok thanks a lot Kolusu.fyi , we are using DFSORT and not Syncsort .
Regards
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> Could some let me know how this can be done using SORT (DFSORT) jcl.
Ron,
Your shop has other competitive product to DFSORT and yet you request the
solution for DFSORT. The control cards may run fine with both products,
but the least you can do is mention the right product. Moreo
ulled from the file )
UPDATE K1GHGMT.RTALABLE_ITKM_SG
SET LAST_CHG_TIMESTAMP = CURRENT TIMESTAMP
, LAST_CHANGE_USERID = 'WKYT'
WHERE COUNTRY_CODE = ?
and PLU_ITEM_NBR =?
and item_nbr = ?
commit ;
Could some let me know how this can be done using SORT (DFSORT) jcl.
Reg
Hi Kolusu, I was finally able to get to this, and it works great for
what I need!
Thanks!
Billy
-- Original Message --
From: "Sri h Kolusu"
To: IBM-MAIN@listserv.ua.edu
Sent: 5/27/2020 7:30:48 PM
Subject: Re: Sort extracting values in PDS members
Billy,
On second though
tp://mason.gmu.edu/~smetz3
>
>
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Wayne Bickerdike [wayn...@gmail.com]
> Sent: Thursday, May 28, 2020 5:36 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Sort e
@LISTSERV.UA.EDU
Subject: Re: Sort extracting values in PDS members
Sri,
A MODEL SORT in ISPF would be good. I often use the other templates.
On Fri, May 29, 2020, 03:29 Sri h Kolusu wrote:
> > And rote learning makes running ISPF in batch (or from OMVS)
> > easy the second and subsequent
Sri,
A MODEL SORT in ISPF would be good. I often use the other templates.
On Fri, May 29, 2020, 03:29 Sri h Kolusu wrote:
> > And rote learning makes running ISPF in batch (or from OMVS)
> > easy the second and subsequent times. Copy, paste, and edit.
>
> Gil,
>
>
> And rote learning makes running ISPF in batch (or from OMVS)
> easy the second and subsequent times. Copy, paste, and edit.
Gil,
Doesn't this hold good for DFSORT control cards?. If you categorize DFSORT
control cards, there are just 4 of them.
SORT/COPY
INREC (can b
On Wed, 27 May 2020 20:15:43 -0700, Sri h Kolusu wrote:
>
>Thanks for sharing the REXX execs. couple of observations.
>
>1 The PDSTOSEQ fails processing members having aliases. (LISTDS does give
>you the ALIAS information too) For example I tried with z/OS V2R4
>SYS1.MACLIB
>
> %PDSTOSEQ
> If all the control cards were compatible between SORT products that would
> be a big help.
Wayne,
Most control statements are compatible between the 2 products that are in
market today. It is just that products might have new functions that are
not supported. But there are ways to get
On Thu, 28 May 2020 13:13:08 +1000, Wayne Bickerdike wrote:
>*What happens if your PDS members contain IEBUPDTE control
>statements?TRANSMIT is robust with respect to such things.-- gil*
>Depends. If the IEBUPDTE directive is the same as the one generated, you
>lose it. If it's different, you
Sri,
I agree with you. However, not all z/OS shops have DFSORT, a good number
have Syncsort. I think CA-SORT has disappeared.
If all the control cards were compatible between SORT products that would
be a big help.
I remember trying to port an Assembler E15 exit from a VSE shop (CA-SORT)
to a z
DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=SYS1.MACLIB
//SYSUT2 DD DSN=&,
//DISP=(,PASS),
//SPACE=(CYL,(X,Y),RLSE)
//SYSINDD *
PUNCH TYPORG=PO
//*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&,DISP=SHR
//SORTOUT DD DSN=,
//
*What happens if your PDS members contain IEBUPDTE control
statements?TRANSMIT is robust with respect to such things.-- gil*
Depends. If the IEBUPDTE directive is the same as the one generated, you
lose it. If it's different, you lose it and you get a null member.
If I care that much, I change
On Wed, 27 May 2020 22:01:34 -0400, David Spiegel wrote:
>Have you ever heard of the famous PDSLOAD Program from the CBT Tape?
>It can generate the control cards (IEBUPDTE-like) and even maintain ISPF
>Statistics.
>
Doesn't IEBCOPY do that?
Doesn't TRANSMIT/RECEIVE do that?
Can an ISV depend
Have you ever heard of the famous PDSLOAD Program from the CBT Tape?
It can generate the control cards (IEBUPDTE-like) and even maintain ISPF
Statistics.
On 2020-05-27 21:39, Paul Gilmartin wrote:
On Thu, 28 May 2020 11:13:26 +1000, Wayne Bickerdike wrote:
I have used REXX to do this. One
On Thu, 28 May 2020 11:13:26 +1000, Wayne Bickerdike wrote:
>I have used REXX to do this. One flavour uses IDCAMS REPRO, the other uses
>EXECIO.
>
>It builds the member list from a LISTDS MEMBERS.
>
>It adds ./ADD IEBUPDTE statements to the flat file in order to move to
>other systems. It's a
Y " > RETURN CODE < " temp_rc
>
> temp_rc = 0
> temp_ftc = ""
>
> CALL end_expds
> RETURN
>
> end_expds:
>
> " FREE DATASET('"user"."SEQFILE".EXPDS')"
>
>IF temp_grc = 0 THEN DO
>
t;
>
>
>
> On Thu, May 28, 2020 at 11:05 AM Lizette Koehler
> wrote:
>
>> Personally I would use REXX and LM functions to read through PDS members
>> and
>> action them.
>>
>> I did that when I needed to update all Members in a PDS to insert some
>>
gement) functions work very well for this.
>
> Lizette
>
>
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf
> Of
> Sri h Kolusu
> Sent: Wednesday, May 27, 2020 3:08 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Sort extractin
-
From: IBM Mainframe Discussion List On Behalf Of
Sri h Kolusu
Sent: Wednesday, May 27, 2020 3:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sort extracting values in PDS members
ITschak,
I already responded to this topic. Not sure where it went, but I did respond
before your email. You can
Amazing!
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Sri h Kolusu
Sent: Wednesday, May 27, 2020 4:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sort extracting values in PDS members
Billy,
On second thoughts, We can
Billy,
On second thoughts, We can optimize to parse everything in a single parse.
Use the following control cards
//SYSINDD *
OPTION COPY
INCLUDE COND=(02,80,SS,EQ,C'KEYWORD1',OR,
02,80,SS,EQ,C'LONGKEYWORD2')
INREC IFOUTLEN=80,
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Billy Ashton [bill00ash...@gmail.com]
Sent: Wednesday, May 27, 2020 4:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Sort extracting values in PDS members
Hi again! This group has been
h
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date: 05/27/2020 02:51 PM
> > Subject: [EXTERNAL] Re: Sort extracting values in PDS members
> > Sent by: IBM Mainframe Discussion List
> >
> > I would start with creating a single file using a ISRSUPC (it wor
Just realized that Billy Ashton has sent the email to my id with CC to
IBM-MAIN and I just hit "Reply" instead of "Reply All".
Here is the response for the question
Billy,
SORT products do not have the ability to read all the members of a PDS, but
there are other ways to
Development
IBM Corporation
IBM Mainframe Discussion List wrote on
05/27/2020 02:50:28 PM:
> From: ITschak Mugzach
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 05/27/2020 02:51 PM
> Subject: [EXTERNAL] Re: Sort extracting values in PDS members
> Sent by: IBM Mainframe Discussion List
&g
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Billy Ashton [bill00ash...@gmail.com]
Sent: Wednesday, May 27, 2020 4:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Sort extracting values in PDS members
Hi again! This group has been so
, x/Linux & IBM I **| z/VM comming son *
On Wed, May 27, 2020 at 11:41 PM Billy Ashton
wrote:
> Hi again! This group has been so helpful - especially Kolusu - and I
> have one more question as I learn how to use SORT more creatively.
>
> I have a bunch of PDS files where I have
Hi again! This group has been so helpful - especially Kolusu - and I
have one more question as I learn how to use SORT more creatively.
I have a bunch of PDS files where I have to read through each member and
create some control cards based on the content in the member (due to the
nature
), then it would be
> a 5 byte resize.
>
> //***
> //** CREATE SAMPLE DATA WITH LRECL=101 AND RECFM=FB**
> //***
> //STEP0050 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN
ant to handle LRECL (1 - 32760), then it would be
a 5 byte resize.
//***
//** CREATE SAMPLE DATA WITH LRECL=101 AND RECFM=FB**
//***
//STEP0050 EXEC PGM=SORT
//SYSOU
Sri,
your view is always important to us.
The fix for 99 is not so difficult.
Please "light us" with the trick.
:D
Max
Il giorno mer 8 gen 2020 alle ore 15:09 Sri h Kolusu
ha scritto:
> > this could be a more useful version:
>
> Massimo,
>
> Peter mentioned that the input has a 2-byte zoned
> this could be a more useful version:
Massimo,
Peter mentioned that the input has a 2-byte zoned decimal "data length"
value which identifies the number of SIGNIFICANT columns. So the maximum
value that a 2 byte zoned decimal can hold is 99. Your job fails as the
arithmetic ends with a
Peter,
this could be a more useful version:
//ST020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
H 05 COMMENT: "05" IS SIGNIFICANT DATA COLUMNS
D 12345 XYZ ABC DEF
D 45678 GHI JKL MNO
H 10
D 1234567890 ABCDEFGHIJKL
D 9876543210 MNOPQWRSTUVWXYZ
/*
//SORTOUT DD DSN=,DISP=(,PASS),
Peter,
I don't know how long is your record, assuming it's 80 and that the LL
field in H record is between 1 and 99, this could be a solution:
//SYSIN DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'H'),
PUSH=(81:3,2))
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,1,CH,EQ,C'H'),
BUILD
D = data], data starts
in column 3):
H 05 COMMENT: "05" IS SIGNIFICANT DATA COLUMNS
D 12345
D 45678
H 10
D 1234567890
D 9876543210
Obviously I can write a pretty simple script or program to accomplish this
"data cleaning" operation, but I wondered if it would be possib
> Won't DFSORT manage the SORTWORKs?
Gil/John,
Dave Betten already answered the question below.
"You use SORTDD= in the parameter lists to pass a separate prefix for each
sort.
For example you might pass SORTDD=SRT1 for the first one, SORDD=SRT2 for
the second, etc.
That way each will
s space in which we would like to
> >> call sort to sort somewhere around a half a million entries.
> >> There is a possibility that more than one task might need to
> >> call sort. Will this cause a problem if one task calls sort
> >> while sort is active for another task?
On Tue, 12 Nov 2019 12:43:26 -0600, John McKown wrote:
>On Tue, Nov 12, 2019 at 12:18 PM Tom Marchant wrote:
>
>> We have a multitasking address space in which we would like to
>> call sort to sort somewhere around a half a million entries.
>> There is a possibility that
DB2 Utilities are a good example of this. They often execute multiple
concurrent sorts. You use SORTDD= in the parameter lists to pass a
separate prefix for each sort. For example you might pass SORTDD=SRT1 for
the first one, SORDD=SRT2 for the second, etc. That way each will allocate
SRT1WK
On Tue, Nov 12, 2019 at 12:18 PM Tom Marchant <
000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote:
> We have a multitasking address space in which we would like to
> call sort to sort somewhere around a half a million entries.
> There is a possibility that more than one
equ...@listserv.ua.edu>
Sent: Tuesday, November 12, 2019 1:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Sort in a multitasking address space
We have a multitasking address space in which we would like to
call sort to sort somewhere around a half a million entries.
There is a possibility that more th
201 - 300 of 1029 matches
Mail list logo
