>> We use OPTION COPY.
Eric,
Option COPY does NOT require FILSZ parameter. It is required when SORTing data
which helps in calculating the workspace required. DFSORT issues an
informational message ICE118I when it couldn't determine the file size.
https://www.ibm.com/docs/en/zos/2.5.0?top
-
From: IBM Mainframe Discussion List On Behalf Of Sri
Hari Kolusu
Sent: Sunday, July 21, 2024 7:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT / SORT and value/necessity of FILSZ parameter
>> We use OPTION COPY.
Eric,
Option COPY does NOT require FILSZ parameter. It is required whe
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,
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=&SK,DISP=(,PA
> 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 negat
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
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
32760), then it would be
> a 5 byte resize.
>
> //***
> //** CREATE SAMPLE DATA WITH LRECL=101 AND RECFM=FB**
> //***
> //STEP0050 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //S
>//TOOLCNTL DD *
>OPTION NOEQUALS,DYNALLOC=(SYSDA,8)
>SORT FIELDS=(104,4088,A),FORMAT=CH
>SUM FIELDS=NONE
>//*
I always wondered why the function to simply eliminate duplicate records is
hidden within the SUM function? This is awkward. Why isn't there a clear and
stra
> 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. Moreover this
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
>>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.RTALA
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
le
>626-543-6132 Office ?=== NEW
>robin...@sce.com
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>Behalf Of Cameron Conacher
>Sent: Friday, October 26, 2018 9:01 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject:
> That would be "F" for EBCDIC, IIRC '5' for ASCII.
ASCII digits are x'30' to x'39' so the zone part is '3'
--
Peter Hunkeler
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listser
a co-worker - some of his flat files have trailing
> records stating the total record counter, e.g.:
>
> RECS=00567
>
> The question is - what utility [I am guessing SORT should suffice] can he
> use to verify the trailer counter against the actual number of records in
>
. If it is indeed counted then simply remove the ",START=0" on the
INREC statement.
Use the following JCL
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
A
B
C
D
RECS=5
//SORTOUT DD SYSOUT=*
//SYSINDD *
OPTION COPY
INREC OVERLAY=(81:SEQNUM,5,
trailer record is not counted as part of the record
count. If it is indeed counted then simply remove the ",START=0" on the
INREC statement.
Use the following JCL
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
A
B
C
D
RECS=5
//SORTOUT DD SYSOUT=*
//S
lf
Of Sri h Kolusu
Sent: Monday, June 27, 2016 3:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Verify record cound against the file trailer [by SORT?]
Victor Gil,
It is quite simple to verify the number of records and validate it against
the trailer record and if the record count match the re
ur generous and expert assistance on this forum.
Peter
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Sri h Kolusu
Sent: Monday, June 27, 2016 3:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Verify record cound against the file trail
@LISTSERV.UA.EDU
Subject: Re: Verify record cound against the file trailer [by SORT?]
Hi Peter,
The fine print in Syncsort documentation states NULLOFL only applies to
non-SORTOUT OUTFIL statements. If I change the DD of SORTOUT to OUT1 and add a
FNAMES=OUT1 parameter to the OUTFIL statement then I get a CC 4
ey, Peter x23353"
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 06/27/2016 04:03 PM
Subject:Re: Verify record cound against the file trailer [by
SORT?]
Sent by:IBM Mainframe Discussion List
Hi Sri,
I am a colleague of Victor's, and the initial problem was not stated quite
Kolusu
Sent: Monday, June 27, 2016 8:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Verify record cound against the file trailer [by SORT?]
Peter,
Your control cards looks good. I cannot comment on syncsort's NULLOFL
behavior. I think Alan had already pointed the obvious. So you control
om: "Farley, Peter x23353"
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 06/28/2016 01:00 PM
Subject:Re: Verify record cound against the file trailer [by
SORT?]
Sent by:IBM Mainframe Discussion List
Thanks again Sri, your new version also worked as long as I changed the
OUTF
9" for the trailer, not X'0999').
Peter
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Sri h Kolusu
Sent: Tuesday, June 28, 2016 4:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Verify record cound against the file
: "Farley, Peter x23353"
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 06/28/2016 03:27 PM
Subject:Re: Verify record cound against the file trailer [by
SORT?]
Sent by:IBM Mainframe Discussion List
Many thanks once more Sri for your generous help. UFF was indeed the k
V.UA.EDU
Subject: Sort to show differences in a 2-file match
Hi Sri et al., I have 2 files that I would like to compare, file "A" has
5 records, and file "B" only a subset of that - maybe 1000 records.
They have the same key (pos 1, len 24), but are not unloaded in key order.
I just realized I made a crucial mistake on the summary I sent earlier.If I
followed those requirements, I would have a huge file of "mismatches" for
the superset from File B. So let me restate my goal again - correctly this
time!
I know I can sort them in one step to fix that problem,
With ICETOOL you can select and send duplicates and unique values to different
DD statements
http://www-01.ibm.com/support/docview.wss?uid=isg3T797
Check out the mini sort manual on this page.
Creating output data sets and displaying list data sets for records with
duplicate values, non
Hi Billy,
Typically for the first (records in B, not in A), I do the same sort of thing
including A in the sortin concatenation twice, and B once, thus getting rid of
all duplicate records by discarding all of A and the matches in B (based on
full record length).
For the records in A with
+44-7802-245-584
email: martin_pac...@uk.ibm.com
Twitter / Facebook IDs: MartinPacker
Blog:
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker
From: "Tidy, David (D)"
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 18/11/2014 13:32
Subject:Re: Sort to show di
de Banking Center of Excellence, IBM
>
> +44-7802-245-584
>
> email: martin_pac...@uk.ibm.com
>
> Twitter / Facebook IDs: MartinPacker
> Blog:
> https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker
>
>
>
> From: "Tidy, David (D)"
> To:
Y IN F1
RECORD FOUND ONLY IN F2
KEY MATCH DATA MISMATCH
You will find this text at the end of each record. ie. at position 2525.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DISP=SHR,DSN=Your Input 2524 File A
//INB DD DISP=SHR,DSN=Your Input 2524 File B
//SORTOUT DD SY
> match. So use the following DFSORT JCL which will give you the desired
> results. I added a 23 byte text to denote how the mismatch occurred.
>
> RECORD FOUND ONLY IN F1
> RECORD FOUND ONLY IN F2
> KEY MATCH DATA MISMATCH
>
> You will find this text at the end of each re
Subject:Re: Sort to show differences in a 2-file match
Sent by:IBM Mainframe Discussion List
Thanks so much, Sri. This works fine to accomplish my first goal...In my
correction afterward, I realized I will always have more records in F1
(INA) that will not be in F2 (INB). How can
IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/18/2014 10:07 AM
> Subject:Re: Sort to show differences in a 2-file match
> Sent by:IBM Mainframe Discussion List
>
>
>
> Thanks so much, Sri. This works fine to accomplish my first goal...In my
> correction afterward, I r
/18/2014 11:21:59 AM:
> From: Bill Ashton
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/18/2014 11:22 AM
> Subject: Re: Sort to show differences in a 2-file match
> Sent by: IBM Mainframe Discussion List
>
> Thanks, Sri, it works exactly as needed. I will have to look up some of
> t
THEN=(WHEN=(5049,1,CH,EQ,C'1'),
> BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')),
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
> IBM Mainframe Discussion List wrote on
> 11/18/2014 11:21:59 AM:
>
> > From: Bill Ashton
> >
I'm no expert! But it occurs to me that perhaps you could use the
INREC to put the parsed data into a fixed location and SORT on that
location. The use the OUTREC to strip out that inserted data. I have
no idea if this is workable or not. I just thought I'd throw it into
the ring.
On T
PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
+1+2+3+4+5+6+7-
SOMETHINGZZZELSE
SOMETHINGBELSE
SOMETHINGAELSE
//SORTOUT DD SYSOUT=*
//SYSINDD *
INREC PARSE=(%22=(STARTAFT=C'SOMETHING',ENDBEFR=C'ELSE)',
BUILD statement..
Check this link which explains the order of processing for DFSORT
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/1.5.4?
Example
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
+1+2+3+4+5+
in handy in the future.
On 1/22/2013 12:05 PM, John McKown wrote:
I'm no expert! But it occurs to me that perhaps you could use the
INREC to put the parsed data into a fixed location and SORT on that
location. The use the OUTREC to strip out that inserted data. I have
no idea if this is wor
n" file that I need to add to 3 different "master"
:>files. The master files are in 3 different sequences, so I can't just sort
:>the trans file and MOD it to the end. Also, because I don't know which day
:>of this week the file will come in, I need to run th
Bill,
Are all Input files of the same LRECL and RECFM? If so we can accomplish
the task in a Single pass of the data and sort the accordingly. There is a
trick to get it done. Let me know the attributes of all the input file and
desired output file attributes and I will show you a way to do it
Hi Kolusu...yes, all the master files and the trans files are 90 bytes FB.
Each record has multiple pieces of data, with the three master files being
sorted on their respective "key". I did make one little error earlier, by
forgetting that two of the files have compound keys... so here i
Bill,
The trick is to concatenate the master file 3 times but have a header file
to distinguish the file and put the key values to be sorted at a common
place. (usually at the end)
So the largest sort key is from file 2 which has 9 + 8 = 17 bytes and the
smallest sort key is from file3 which
great.
Billy
On Mon, Aug 3, 2015 at 5:25 PM, Sri h Kolusu wrote:
> Bill,
>
> The trick is to concatenate the master file 3 times but have a header file
> to distinguish the file and put the key values to be sorted at a common
> place. (usually at the end)
>
> So the lar
EMP,DISP=(,PASS),SPACE=(TRK,(10,10),RLSE)
//OUT DD SYSOUT=*
//CTL1CNTL DD *
INREC FIELDS=(1,80,SEQNUM,4,BI)
SORT FIELDS=(1,80,BI,A),EQUALS
SUM FIELDS=NONE
/*
//CTL2CNTL DD *
SORT FIELDS=(81,4,BI,A)
OUTREC FIELDS=(1,80)
/*
//TOOLIN DD *
SORT FROM(SORTIN) TO(TEMP) USING(CTL1)
S
Thanks a lot Massimo. It worked like a charm :)
Thanks,
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Really How is your solution a single instruction?
Here are single instruction solutions.
"pipe < ddname=sortin | sort unique | > ddname=sortout"
or
"pipe < your.data | sort unique | > your.output
or
// EXEC PGM=PIPE,PARM='< your.data | sort unique | &g
> Really How is your solution a single instruction?
Hobart,
I believe that Massimo's(who provided the solution) intention was "single
pass of data" and not truly a single "instruction". Since OP wanted to
retain the original order of the records after eliminating the duplicates,
he needs a
>> I have a 2-line header (column names, and column types) which indicates
>> which are CHAR fields, but cannot figure out how to capture the information
>> from the header to apply to the actual data lines.
>> Is there a way to see which column type contains CHAR( -- each of the types
>> is co
Hi,
the last 3 columns are CHAR but you don't want them quoted?
Don't know how to do it using SORT. I'd do it with Rexx.
De: IBM Mainframe Discussion List en nombre de Don
Johnson <02ee771a0785-dmarc-requ...@listserv.ua.edu>
Enviado: m
The list of attributes are obviously PL/I, and that suggests that
PL/I could be the means of solving the problem.
On 2022-03-24 08:20, Horacio Luis Villa wrote:
Hi,
the last 3 columns are CHAR but you don't want them quoted?
Don't know how to do it using SORT. I'd
Hi,
> >
> > the last 3 columns are CHAR but you don't want them quoted?
> > Don't know how to do it using SORT. I'd do it with Rexx.
> >
> > De: IBM Mainframe Discussion List en nombre
> > de Don Johnson <02
The IBM sample REXX is here:
https://www.ibm.com/docs/en/db2-for-zos/11?topic=examples-sample-db2-rexx-application
The DRAW function builds this:
INSERT INTO SAN_JOSE.DSN8B10.EMP ( "EMPNO" , "FIRSTNME" , "MIDINIT" ,
"LASTNAME" , "WORKDEPT" , "PHONENO" , "HIREDATE" , "JOB" , "EDLEVEL" ,
"SEX" , "
Hi Don,
Since you have access to Broadcom software. Why don't you use your table as
a Datasource utilizing Datacom Server and export to CSV from spreadsheet?
On Thu, Mar 24, 2022 at 7:47 AM Don Johnson <
02ee771a0785-dmarc-requ...@listserv.ua.edu> wrote:
> This is a post now to the listserv,
Ack, Export to CSV for MS-DOS only appears to work on Mac, not IBM PC.
On Thu, Mar 24, 2022 at 7:47 AM Don Johnson <
02ee771a0785-dmarc-requ...@listserv.ua.edu> wrote:
> This is a post now to the listserv, instead of the Google group. Sorry for
> the duplication!
>
> Hi, I have a comma-delimi
Don,
Microsoft Powershell will add quotes around a comma delimited field.
However, it does it for all fields, not just Alphanumeric.
It's a free download.
This example command does the quote addition:
import-csv C:\Users\wayne\Documents\book2.csv | export-csv
C:\Users\wayne\Documents\book3.csv
vice-versa, if that makes parsing easier.
As to the input file, it is VB, and the max data record length is 200 (so,
VB-204). There are actually several files, but 200 is the longest.
I could write a Rexx program to handle this, but if Sort could do it, it wo
Wayne, thanks for these great solution ideas - they give me other ideas, too. I
might try the Datasource for Excel option for another need I have. The IBM DB2
Rexx is interesting, and I will have to see if I could adapt it to my Datacom
table (at first blush, it seems too DB2-centric).
Thanks a
t;NULL," or "N.N.," here. Another option is to convert ") N.N."
> to ") NOT NULL" or vice-versa, if that makes parsing easier.
>
> As to the input file, it is VB, and the max data record length is 200 (so,
> VB-204). There are actually several
orporation
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
//STEP0100 EXEC PGM=SORT
//SYSOUT
>>"&F1","&F2","&F3","&F4",&F5,&F6
Wayne,
Isn't this assuming that the first 4 columns are character and you are
embedding the quotes ? Also did you delete off the first 2 records (the headers
and column attributes) ?
I believe Op's requirement is to determine the column attributes based on th
.
Your sort solution is great though...
On Fri, Mar 25, 2022 at 12:38 PM Sri h Kolusu wrote:
> >>"&F1","&F2","&F3","&F4",&F5,&F6
>
> Wayne,
>
> Isn't this assuming that the first 4 columns are character and y
I couldn't resist. Here's a REXX solution. Should work for any layout which
is defined in the manner of the original request, although my test data
only has the header in the first record.
On Thu, Mar 24, 2022 at 7:47 AM Don Johnson <
02ee771a0785-dmarc-requ...@listserv.ua.edu> wrote:
> Thi
>> I couldn't resist. Here's a REXX solution.
Wayne,
Thanks for the Rexx exec. One change you may want to is that you don't have to
check for 'DEC' as there can be other numeric formats like "smallinit" ,
"Integer" "Float" and different date and time fields.
So checking for CHAR or VARCHAR sho
Thanks Sri. I did cut a corner but simple to add the other data types.
On Sun, Mar 27, 2022, 02:52 Sri h Kolusu wrote:
> >> I couldn't resist. Here's a REXX solution.
>
> Wayne,
>
> Thanks for the Rexx exec. One change you may want to is that you don't
> have to check for 'DEC' as there can be
Kolusu, thank you for putting this together. I am hopeful to be able to try it
out today, but then will be away through next week.
Let me ask one question here. Would it be easier if I changed the separator
from a comma to a tilde? If so, then the output looks like this
ITM_ID~DESC~SHORT_DESC~U_
I have a use case to extract a varying length string where I need to add both
prefix and suffix constants to the selected string.
The SORT PARSE operand doesn't seem to do the trick because the FIXLEN
parameter to PARSE is required and the selected strings will be blank-padded to
the F
Hello,
We're splitting very large datasets that have 3 years of client data into 3
smaller datasets containing a year of data each.
Can COUNT can be used to determine the total number of records in the output
files? I've not seen how and it seems only able to count the number of input
records.
121 120.4 127 134.2
. . . . . . .
Output forth column is accumulated value with previous records values on
2nd column.
Output 5th column is also accumulated value with previous records values on
3rd column.
Can I make this kind of output by SORT?
I really appreciate
> I always wondered why the function to simply eliminate duplicate
> records is hidden within the SUM function? This is awkward. Why
> isn't there a clear and straight forward keyword either on the
> OPTION or on the SORT statement, such as NODUPLICATES/DUPLICATES?
>
Pe
I'd say it's because eliminating duplicate records isn't really a core
feature; it's just a useful by-product of the SUM function.
Obviously, there's a world of divers requirements out there, but SORT
focuses on cases where you want to combine information from duplicate
k
: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Clark Morris
Sent: Friday, October 26, 2018 11:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Application change for ISAM effects wasRe: SORT not
behaving consistently
[Default] On 26 Oct 2018 09:45:46 -0700, in
That is not an uncommon sort of thought process and/or outcome. It's
unfortunate but it is human nature.
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jesse 1 Robinson
Sent: Saturday, October 27, 2018 12:30 PM
To
I know this is OT, but I hope it is of some interest to the majority of
readers.
http://arstechnica.com/tech-policy/2013/02/pissed-off-politicians-want-loser-pays-rule-for-patent-trolls/
--
This is a test of the Emergency Broadcast System. If this had been an
actual emergency, do you really thi
Dear All,
I am writing to inquire about how to use the sort program on the mainframe to
extract and count msgid from a day's operlog. I would appreciate your guidance
and advice on this matter.
Msgid is a keyword that identifies system messages. It usually consists of 7
letters and a n
If I understand things correctly, you could use Squeeze (SQZ) to eliminate the
embedded blanks.
Something like SQZ=(SHIFT=LEFT).
Maybe you will need another SORT step to squeeze the entire record?
Thanks,
...Cameron
From: IBM Mainframe Discussion List On Behalf Of
Farley, Peter x23353
Thanks a lot Cameron! SQZ=(VL) did the trick.
BUILD=(1,4,C'PREFIX DATA:',%00,SQA=(VL),C':SUFFIX DATA')
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Cameron Conacher
Sent: Saturday, April 2, 2022 4:53 PM
To: IBM-MAIN@LISTSERV.UA.E
is quite simple to generate the output counts also in the same job. Use the
following Job which will give you the desired results.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
+1+2+3+4+5+---
ABC98
DEF98
GHI9
//SET YR02=99
//SET YR03=98
/*
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC98
DEF98
GHI98
XXX00
YYY00
ZZZ99
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//OUT3 DD SYSOUT=*
//REPORT DD SYSOUT=*
//SYSINDD
w...@hrsdc-rhdcc.gc.ca
Telephone 613-415-5465
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Sri
h Kolusu
Sent: November 17, 2022 5:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ICETOOL / SORT capturing count of output records when using INCLUDE
Eric,
Here is another way
.@hrsdc-rhdcc.gc.ca
Téléphone 613-415-5465
Programmer Analyst, CPP, OAS, and Payment Solutions - Innovation, Information
and Technology Branch
Employment and Social Development Canada / Government of Canada
frederick.verw...@hrsdc-rhdcc.gc.ca
Telephone 613-415-5465
-Original Message
>> Our input file is a tape variable block.
Eric,
Use the following control cards
//SYSINDD *,SYMBOLS=JCLONLY
OPTION COPY
INCLUDE COND=(16,02,CH,EQ,C'&YR01',OR,
16,02,CH,EQ,C'&YR02',OR,
16,02,CH,EQ,C'&YR03')
INREC OVERLAY=(1877:16,02,CHANGE=(3,C'&YR01',
w...@hrsdc-rhdcc.gc.ca
Telephone 613-415-5465
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Sri
h Kolusu
Sent: November 18, 2022 7:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ICETOOL / SORT capturing count of output records when using INCLUDE
>> Our inpu
: IBM Mainframe Discussion List On Behalf Of
PINION, RICHARD W.
Sent: Friday, April 30, 2021 1:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Program invoked SORT, SMS managed //SORTOUT DD DSN=&&TEMP [EXTERNAL]
I have what is probably an elementary question. I had a program invoked SORT
ABEN
Doh! Yep, that explains it. Shame on me for not doing what you did.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Feller, Paul
Sent: Friday, April 30, 2021 3:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Program invoked SORT, SMS managed //SORTOUT DD DSN
Yes, you can make this type of output with DFSORT.
DFSORT has "reporting features" on OUTFIL. This provides SUBTOT/SUBTOTAL, which
is to provide running-totals.
SUBTOTAL is available on TRAILER1, TRAILER2 and TRAILER3. None of which do
exactly what you want. If you look at what each does you'll
Which SORT tool do you have? Syncsort or DFSORT?
Either one comes with the capability to do something like this.
There is a DFSORT Hotline with IBM that you can also ask these types of
questions.
dfs...@us.ibm.com
They are very helpful in creating SORT processes like this.
If you have
The Smart DFSORT Tricks doesn't have anything especially close.
Search-engineing *will* provide something very close. But, as the obvious post
itself suggests, understanding the code allows the same or similar techniques
to be known and therefore available for other circumstances.
Gives me a c
Woodger-san,
Thank you very much for your useful guidance.
I have never thought to use SUBTOTAL function yet.
I'll try to make SORT control cards to produce SORTOUT data what I want to
have.
Koehler-san,
Thank you for pointing out documents of DFSORT trics.
I have to adapt to both DFSOR
of 10
5. The summary fields are at position 35 for a length of 8 and position 45
for a length of 12.
You can use the following JCL
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
+1+2+3+4+5+
#001 1 10.5
#002
Kolusu-san,
Thank you very much for providing the SORT JCL.
Your SORT is more elegant and flexible than I made.
What I made SORT control cards based on Woodger-san's suggestion is
following.
//ACCUM EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
#001 1 10.5
#002
Obviously, there's a world of divers requirements out there, but SORT
focuses on cases where you want to combine information from duplicate
keys, not just ignore them.
But they did implement the feature with SUM=NONE, didn't they?
I'm n
a trailer (assume a key of
all 9's) that never match. Key length is 7 bytes.
This (modified) example from the PDF will get me the UN-matched F2 records:
//JK8 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/40)
//IN2 DD DSN=... input file2 (VB/1000)
//SORTOUT DD DSN
Classification: UNCLASSIFIED
Caveats: NONE
Hello List,
Is there a way to remove the first column of data from a fixed record
without specifying the length of the data to be retained?
Several dozen files are generated several times a day, all have RECFM=FB and
various LRECLs.
Every record in eac
Hi,
We run z/os 1.13 with ca-sort 7.1 (a Computer Associates product).
This sort software is discontinued since January 30, 2012 and I’m trying to
evaluate the project of migration to dfsort in order to be full compatible and
supported when z/os 2.1 will come.
Before starting migration, I
List on behalf of
Jason Cai
Date: Wednesday, July 26, 2023 at 4:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Inquiry about extracting and counting msgid from operlog
using sort program
Dear All,
I am writing to inquire about how to use the sort program on the mainframe to
extract
2,3,4,5,6,7,8,9'),AND,
(66,1,SS,EQ,C'ABCDEFGHIJKLMNOPQRSTUVWXYZ')),OR,
(58,10,SS,NE,C' ',AND,
68,1,CH,EQ,C' ',AND,
(66,1,SS,EQ,C'0,1,2,3,4,5,6,7,8,9'),AND,
(67,1,SS,EQ,C'A
901 - 1000 of 1073 matches
Mail list logo