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
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. Moreover this is
Hello
We have input file with around 6500 rows as below and would need to build a
control card to update the DB
US1234567897272 -(1st 2 bytes countrycode,next 9 bytes item number ,next 4
bytes PLU nbr)
I need to generate a SQL UPDATE code generator like below. ("?" need to be
pulled from the
On 2 April 2015 at 13:16, John Eells ee...@us.ibm.com wrote:
Of course, other collisions are possible for which no prefixes are assigned.
FMIDs come to mind. For FMIDs, we always use H or E for base functions and
J or F for dependent functions but we have no way to help prevent
cross-vendor
Hello. Could some one please let me know why the below sytntax is not working ?
//SYSINDD *
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE',
C' 96 M/B WHITE SALE '))
/*
Msg received in sort is WER268A OUTREC STATEMENT : SYNTAX ERROR
Thanks
Ron T
Ok. I have put the same earlier also , getting the same message .
SYSIN :
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE',
*
C' 96 M/B WHITE SALE '))
*
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER275A NO KEYWORDS
I need to replace the data '96 M/B WHITE SALE by 96 M/B WHITE SALE . Thanks!
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Thank a lot Kolusu! It is working now. Thanks!
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
List IBM-MAIN@LISTSERV.UA.EDU wrote on
04/02/2015 08:31:13 AM:
From: Ron Thomas ron5...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 04/02/2015 08:31 AM
Subject: Sort Jcl
Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
Hello. Could some one please let me know why the below
Ron Thomas wrote:
OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE',
C' 96 M/B WHITE SALE '))
One single quote too many. Just count them from left to right and right to
left. Or use hilite in ISPF.
Msg received in sort is WER268A OUTREC STATEMENT : SYNTAX ERROR
Sri h Kolusu
Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Elardus Engelbrecht
Sent: Thursday, April 02, 2015 11:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sort Jcl
Ron Thomas wrote:
OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE',
C' 96 M/B
Ok what i put is as , the single quotes on the left is 2 and on the right is
also 2 so getting balanced. still not working
OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE'',
C'96 M/B WHITE SALE'))
Thanks
Ron T
--
List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Ron Thomas
Sent: Thursday, April 02, 2015 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Sort Jcl
Hello. Could some one please let me know why the below sytntax is not working ?
//SYSINDD *
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C''96
...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 04/02/2015 08:42 AM
Subject: Re: Sort Jcl
Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
Ok. I have put the same earlier also , getting the same message .
SYSIN :
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE
'))
//*
Thanks,
Kolusu
IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on
04/02/2015 08:50:30 AM:
From: Ron Thomas ron5...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 04/02/2015 08:51 AM
Subject: Re: Sort Jcl
Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
I need
, Christopher Y. cblaic...@syncsort.com
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sort Jcl
Date: Thu, 2 Apr 2015 15:55:07 +
You've never heard of a little product called Syncsort MFX?
All our messages begin with WER.
Chris Blaicher
Technical Architect
Software Development
Richard Pinion wrote:
Here's a nice little topic for discussion. What do the three letter message
prefixes stand for?
IBM sort ICE
Syncsort WER
CICS DFH
IMS DFS
IBM ??? IGD (anybody ever notice IGDZILLA in SYS1.LPALIB?)
Shame on you, you forgot my favourite toy -
On Thu, Apr 2, 2015 at 11:16 AM, Elardus Engelbrecht
elardus.engelbre...@sita.co.za wrote:
Richard Pinion wrote:
Here's a nice little topic for discussion. What do the three letter message
prefixes stand for?
IBM sort ICE
Syncsort WER
CICS DFH
IMS DFS
IBM ??? IGD
We reserve names in the A-I range for IBM products. Things starting with
J-Z can be assigned to others by request to elem...@us.ibm.com.
The reason to assign prefixes at all is to avoid the problems we once
had with more than one IBM product using the same names for different
things. For
On Thu, Apr 2, 2015 at 11:04 AM, Richard Pinion rpin...@netscape.com wrote:
Here's a nice little topic for discussion. What do
the three letter message prefixes stand for?
IBM sort ICE
Syncsort WER
CICS DFH
IMS DFS
IBM ??? IGD (anybody ever notice IGDZILLA in
In
cae1xxdh-xkn+agir4jt4wy8hagsa-5mur9mqwgm4+xpeqro...@mail.gmail.com,
on 09/21/2014
at 05:52 PM, John Gilmore jwgli...@gmail.com said:
I suspect that this particular 'resurrection' is Shmuel's and not
IBM's, but who knows?
I do; as usual, your guess is way off the mark.
--
Shmuel
In
cae1xxdgdcdalhscaq++krogdj8e0uv4oche1mswcz9hgnfl...@mail.gmail.com,
on 09/20/2014
at 11:00 AM, John Gilmore jwgli...@gmail.com said:
IBM's concern
to protect its sometimes considerable investments in existing
acronyms is entirely understandable.
Well, I found the resurrection of the
I suspect that this particular 'resurrection' is Shmuel's and not
IBM's, but who knows?
John Gilmore, Ashland, MA 01721 - USA
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to
On Sun, 21 Sep 2014 17:52:22 -0400, John Gilmore wrote:
I suspect that this particular 'resurrection' is Shmuel's and not
IBM's, but who knows?
RAMAC comes to my mind.
-- gil
--
For IBM-MAIN subscribe / signoff / archive
My point was a different one: Service Request Block and Selective
Reenlistment Bonus share the acronym SRB. Was once of them named in
reminiscential evocation of the other. I judge not, but who knows?
John Gilmore, Ashland, MA 01721 - USA
IBM has long had the habit of jacking up acronyms to put new
interpretations under them. The impetus has usually been to replace
the notionally too particular and limiting with something more generic
and innocuous for marketing reasons. Thus,
structured programming facility == system
On Sep 19, 2014, at 5:02 PM, Shmuel Metz (Seymour J.) wrote:
---
SNIP--
says that the 5787-XT2 version was an FDP; it seem to be missing the
5740-XT* versions.
I think it also had a name of system programmer facility as
In d6e473d5-2e3b-43eb-b0d1-34576e60b...@comcast.net, on 09/17/2014
at 11:13 PM, Ed Gould edgould1...@comcast.net said:
Well,
http://www.google.com/url?q=http://www.planetmvs.com/spfeditor/ispfhist.txtsa=Uei=eqYcVKaqMsuMyATg6YDwDgved=0CDIQFjAFusg=AFQjCNEBVowlZCJ13rB06rSgXqMFGWpq9w
says that the
In 7043223372881019.wa.paulgboulderaim@listserv.ua.edu, on
09/16/2014
at 02:49 PM, Paul Gilmartin
000433f07816-dmarc-requ...@listserv.ua.edu said:
How? Cite a document of the process.
Add a command to the command table. Add a SELECT entry to whatever
menu you choose.
Which still
In d7701981-13c0-4df6-bf8b-77e5ba830...@comcast.net, on 09/16/2014
at 10:41 PM, Ed Gould edgould1...@comcast.net said:
There was a bit of discussion offline about SPF and its origins, Can
you shed some of your knowledge from whence it came?
It started[1] life as structured programming
On Sep 17, 2014, at 7:20 PM, Shmuel Metz (Seymour J.) wrote:
In d7701981-13c0-4df6-bf8b-77e5ba830...@comcast.net, on 09/16/2014
at 10:41 PM, Ed Gould edgould1...@comcast.net said:
There was a bit of discussion offline about SPF and its origins, Can
you shed some of your knowledge from
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
On Behalf Of Shane Ginnane
Sent: Tuesday, September 16, 2014 12:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT JCL
Thanks a lot Kolsu.. It worked. Thanks!
Now that this has finally
Ed Gould wrote:
As to ddlist and dslist, I am not familiar with those. Perhaps they are in
house???
I think it is ISRDDN before it was made available and documented.
(dslist - not to be confused with listds)
But of course, I may be wrong... If so, please correct me...
Groete / Greetings
Thomas Berg wrote:
Well, we just have to look at DFSORT as a programming language - with what
follows. OTOH, what it does it does very fast and efficient so it's worth the
effort to learn it IMHO.
Indeed. Look at my JCL for SMF record 89 I posted sometime ago on IBM-MAIN.
In the past, I
On Tue, 16 Sep 2014 06:36:45 -0500, Elardus Engelbrecht wrote:
I still find it amazing that DFSORT can handle VB datasets and put results
into a FB dataset. That alone enabled me to discard undocumented, but slow
programs which do that same trick.
I customarily use IDCAMS REPRO for that
On 2014-09-15, at 22:40, Ed Gould wrote:
On Sep 15, 2014, at 10:57 PM, Ed Gould wrote:
-SNIP__
editor, but AFAIK there isn't one out there(anyone know of one?)
nedit.
In 8003041207513935.wa.paulgboulderaim@listserv.ua.edu, on
09/15/2014
at 06:15 PM, Paul Gilmartin
000433f07816-dmarc-requ...@listserv.ua.edu said:
(ISPF for CMS allows a choice of PDF or XEDIT
although 2 is not one of the only three nice numbers. ISPF for
z/OS allows no such
On Tue, 16 Sep 2014 15:22:12 -0400, Shmuel Metz (Seymour J.) wrote:
(ISPF for CMS allows a choice of PDF or XEDIT
although 2 is not one of the only three nice numbers. ISPF for
z/OS allows no such flexibility
Yes it does. I'm not sure why you would want to, unless someone has
ported XEDIT to
Seymour:
There was a bit of discussion offline about SPF and its origins, Can
you shed some of your knowledge from whence it came?
Ed
On Sep 16, 2014, at 2:28 PM, Shmuel Metz (Seymour J.) wrote:
In 60d89285-3b33-4d1a-b667-ea5f868c5...@comcast.net, on 09/16/2014
at 12:14 AM, Ed Gould
On Sun, 14 Sep 2014 22:21:21 -0500, Ron Thomas wrote:
I have tried this control card and not getting the correct result. below is
the one i got, the 2'nd field is not getting reflected .
1 - 4043
04045 - 4060
04062 - 4108
04110 - 4700
04705 - 4706
04708
04714
04719
04723
OUTREC
wrote on
09/13/2014 10:29:11 PM:
From: Ron Thomas ron5...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 09/13/2014 10:29 PM
Subject: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
Hi.
We have a file which is of the below layout LRECL = 80
0001 - 4043
4045
Hello
The below control card is working, but in some cases where there is a word
CHAIN , it is setting to zeros. We need this to be copied as it is.
If the input length is 5 then copy as it is else if it is 4 or less than 54
append zeros to it.
OUTREC
I agree that Sort may not be as easy as a programming language. For
example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and that
will place zeros up to the number of positions. In Unix, or Perl, or
COBOL, or EASYTRIEVE, or Assembler, not hard to do.
Lizette,
I have to disagree
On 9/15/2014 9:38 AM, Sri h Kolusu wrote:
I agree that Sort may not be as easy as a programming language. For
example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and that
will place zeros up to the number of positions. In Unix, or Perl, or
COBOL, or EASYTRIEVE, or Assembler, not
@LISTSERV.UA.EDU] On
Behalf Of Ron Thomas
Sent: Monday, September 15, 2014 8:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT JCL
Hello
The below control card is working, but in some cases where there is a word
CHAIN , it is setting to zeros. We need this to be copied as it is.
If the input length
No there is nothing besides the word CHAIN Thanks!
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
,
Kolusu
IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on
09/15/2014 09:24:53 AM:
From: Ron Thomas ron5...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 09/15/2014 09:33 AM
Subject: Re: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
No there is nothing
Kolusu.
Apologies for the wrong data put, - is there in the input on col 6.
Here is the requirements
FROM DEPT -TODEPT
100 - 200
i.e all data FROM DEPT and TODEPT to be made 5 bytes by padding zeros
irrespective of what users entered. if the user entered 5 byte dept then
@LISTSERV.UA.EDU
Date: 09/15/2014 10:18 AM
Subject: Re: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
Kolusu.
Apologies for the wrong data put, - is there in the input on col 6.
Here is the requirements
FROM DEPT -TODEPT
100 - 200
i.e all data
Thanks a lot Kolsu.. It worked. Thanks!
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT JCL
I remember I needed some quick changes to a very large PS dataset, and
not wanting to struggle with DFSORT syntax I wrote a quick assembler
program (QSAM with a large block size and extra buffers). Nothing could
be faster than an assembled program
Thanks a lot Kolsu.. It worked. Thanks!
Now that this has finally been put to bed, the length of the thread illustrates
vividly the issue I have with using DF/SORT.
It has grown (and changed) over the years in an apparent attempt to be all
things to all men - and is damn near unusable as a
On Mon, 15 Sep 2014 17:47:03 -0500, Shane Ginnane wrote:
Now that this has finally been put to bed, the length of the thread
illustrates vividly the issue I have with using DF/SORT.
It has grown (and changed) over the years in an apparent attempt to be all
things to all men - and is damn near
Paul Gilmartin wrote:
I'd love to be able to select vi as my editor under ISPF (but not all
the time.))
Now you made me think: vi using SNA would mean you need to send each
individual keypress to the mainframe and get a response. That might be
possible by having the terminal emulator tag a
On Mon, 15 Sep 2014 17:47:03 -0500, Shane Ginnane wrote:
Works a treat when it works though ...
But nothing explains why results of LOCALE=EN_GB and LOCALE=EN_AU agree
well with each other, but differ radically from LOCALE=EN_US.
-- gil
On Mon, 15 Sep 2014 17:15:09 -0700, Tom Brennan wrote:
Paul Gilmartin wrote:
I'd love to be able to select vi as my editor under ISPF (but not all
the time.))
Now you made me think: vi using SNA would mean you need to send each
individual keypress to the mainframe and get a response. That
On Mon, 15 Sep 2014 19:50:40 -0500, Ed Gould wrote:
To be fair its both SYNCSORT and DFSORT.
Probably true - but I've not seen Syncsort for decades.
Shane ...
--
For IBM-MAIN subscribe / signoff / archive access instructions,
On Sep 15, 2014, at 10:49 PM, Paul Gilmartin wrote:
On Mon, 15 Sep 2014 22:21:12 -0500, Ed Gould wrote:
I am not so sure that is the case (ISPF edit) . The issue is as I see
it that there is no xedit for MVS .
Its relatively easy to change the ISPF primary menu to use another
How? Does
On Mon, 15 Sep 2014 22:57:07 -0500, Ed Gould wrote:
I *think* member selection etc is part and parcel of ispf/pdf. But if
it isn't then the replacement would have to do the member selection.
I think that no one has done one so you are treading on new territory.
Of course there may be one out
On Sep 15, 2014, at 10:57 PM, Ed Gould wrote:
-SNIP__
editor, but AFAIK there isn't one out there(anyone know of one?)
nedit. http://www-03.ibm.com/systems/z/os/zos/features/unix/
library/IBM+Redbooks/index.html#nedit
-- gil
On Sep 15, 2014, at 11:43 PM, Paul Gilmartin wrote:
On Mon, 15 Sep 2014 22:57:07 -0500, Ed Gould wrote:
I *think* member selection etc is part and parcel of ispf/pdf. But if
it isn't then the replacement would have to do the member selection.
I think that no one has done one so you are
On Sun, 14 Sep 2014 00:29:11 -0500, Ron Thomas wrote:
Here we need to make this file as below by appending zeros to the 1'st byte of
each number only if the length of the number is 4 .
*only if the length of the number is 4 *
What about 3 or 2 or 1 digits ?.
Trivial in awk - but it seems
This 'problem', if that is the right word for it, is trivial in
any---well, almost any---programming language.
The OP, like many others here, does not appear to want or even to have
considered writing a programmed resolution of his problem. He wants
to use sort control statements instead. He
if the length is 4 or less than 4 need to append zeros to it and make it 5 byte
length. Thanks!
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO
if the length is 4 or less than 4 need to append zeros to it and make it 5
byte length. Thanks!
Like I said, trivial.
And doesn't need compiling. And last I benchmarked, was faster anyway. But that
was a (smallish) one-off on zLinux, not z/OS ...
As a genera rule, I'd stack perl up against
Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Ron Thomas
Sent: Saturday, September 13, 2014 10:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SORT JCL
Hi.
We have a file which is of the below layout LRECL = 80
0001 - 4043
4045 - 4060
4062
If using SORT then you can use:
INREC IFTHEN=(WHEN=(4,2,CH,EQ,C' '),BUILD=(C'00',1,3,5,75)),
IFTHEN=(WHEN=(5,1,CH,EQ,C' '),BUILD=(C'0',1,4,5,75))
I only used IEHIBALL to syntax check that statement, but I think its
correct.
On Sun, Sep 14, 2014 at 9:41 PM, Shane Ginnane
On Sun, 14 Sep 2014 09:18:19 -0400, John Gilmore wrote:
This 'problem', if that is the right word for it, is trivial in
any---well, almost any---programming language.
The OP, like many others here, does not appear to want or even to have
considered writing a programmed resolution of his problem.
Ron Thomas wrote:
We have a file which is of the below layout LRECL = 80
0001 - 4043
4045 - 4060
4062 - 4108
4110 - 4700
4705 - 4706
47088
4714
4719
4723
6
Here we need to make this file as below by appending zeros to the 1'st byte of
each number only if the
Yeah, but the problem description and sample output don't match. If the
length is 5 the last numeric is appended to make the length 6?
In a message dated 9/14/2014 9:04:47 A.M. Central Daylight Time,
brianmfra...@gmail.com writes:
I only used IEHIBALL to syntax check that statement, but
/2014 14:52
Subject:Re: SORT JCL
Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
I agree that Sort may not be as easy as a programming language.
For example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and
that will place zeros up to the number
I remember I needed some quick changes to a very large PS dataset, and
not wanting to struggle with DFSORT syntax I wrote a quick assembler
program (QSAM with a large block size and extra buffers). Nothing could
be faster than an assembled program, right? Later I figured out how to
do the
I have tried this control card and not getting the correct result. below is the
one i got, the 2'nd field is not getting reflected .
1 - 4043
04045 - 4060
04062 - 4108
04110 - 4700
04705 - 4706
04708
04714
04719
04723
Thanks
Ron T
You forgot to show us the control card.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
On Behalf Of Ron Thomas
Sent: Sunday, September 14, 2014 8:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT JCL
I have tried this control card
Hi.
We have a file which is of the below layout LRECL = 80
0001 - 4043
4045 - 4060
4062 - 4108
4110 - 4700
4705 - 4706
47088
4714
4719
4723
6
Here we need to make this file as below by appending zeros to the 1'st byte of
each number only if the length of the
To: IBM-MAIN@listserv.ua.edu
Date: 07/29/2014 09:15 PM
Subject: Re: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
Thanks Kolusu. Here is the sort card i used SORT FIELDS=(1,
4,CH,A,26,9,CH,A),EQUALS which is in the ASIS case where in the
modified sort card
i have done the same , that too also when we do compare the 2 o/p files there
is order difference comming.
Thanks
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu
...@gmail.com
To: IBM-MAIN@listserv.ua.edu
Date: 07/30/2014 06:12 AM
Subject: Re: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
i have done the same , that too also when we do compare the 2 o/p
files there is order difference comming.
Thanks
Ron T
Kolusu, The DCB parameter is same FB 80 bytes LRECL. Here is the sortout data
comming in both the cases
6558140714150557LAPOELA 641547059W...DF00WCOH56 ..
DCDDCDC44FE000300030044CCFFECDCFF4001900
@listserv.ua.edu
Date: 07/30/2014 07:45 AM
Subject: Re: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
Kolusu, The DCB parameter is same FB 80 bytes LRECL. Here is the
sortout data comming in both the cases
6558140714150557LAPOELA 641547059W
Kolusu.
See the below , the number of records is same in both the cases , only the
sequence is the issue
Old one
6558140713175118BWGILBE 641547059W...DF00WCOH56 ..
6558140714150557LAPOELA 641547059W...DF00WCOH56 ..
@listserv.ua.edu wrote on
07/30/2014 08:42:14 AM:
From: Ron Thomas ron5...@gmail.com
To: IBM-MAIN@listserv.ua.edu
Date: 07/30/2014 08:42 AM
Subject: Re: SORT JCL
Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
Kolusu.
See the below , the number of records is same
Ok Kolusu. I have send the details. Thanks.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Thanks Kolusu. Here is the sort card i used SORT
FIELDS=(1,4,CH,A,26,9,CH,A),EQUALS which is in the ASIS case where in the
modified sort card SORT FIELDS=(26,9,CH,A,71,4,BI,A),EQUALS.
The issue is data in the ASIS the 1-4 bytes is same as in the TOBE the only
change is the data is in
Team.
The below are the sort cards we are using. The first one is the existing one
and 2'nd one is the new one.
ASIS - SORT FIELDS=(1,4,CH,A,5,6,CH,A,11,6,CH,A)
Modified - SORT FIELDS=(71,4,BI,A,5,6,CH,A,11,6,CH,A),EQUALS
In the ASIS data is the customer number and 71,4 position also
any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on
07/22/2014 11:10:51 AM:
From: Ron Thomas ron5...@gmail.com
To: IBM-MAIN@listserv.ua.edu
Date: 07/22/2014 11:11 AM
Subject: Re: SORT JCL
Sent
Hello.
I have file in which first 1-4 bytes is character format, the file is comming
from a different vendor and they have now changed to S9(09) COMP . We have SORT
card that is using (1,4,CH,A), this now we are seeing a different order. Could
some one please let us know how to get the same
] On
Behalf Of Ron Thomas
Sent: Sunday, July 20, 2014 7:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SORT JCL
Hello.
I have file in which first 1-4 bytes is character format, the file is comming
from a
different vendor and they have now changed to S9(09) COMP . We have SORT
card
(1,4, BI, A) will provide ascending sequence for unsigned binary numbers
(1,4, FI, A) will provide ascending sequence for signed binary numbers.
COBOL PICTURE clause of S9(09) COMP, is for a 4 byte signed binary number.
On Jul 20, 2014 7:58 PM, Ron Thomas ron5...@gmail.com wrote:
Hello.
I
On Sun, 20 Jul 2014 21:58:42 -0500 Ron Thomas ron5...@gmail.com wrote:
:I have file in which first 1-4 bytes is character format, the file is comming
from a different vendor and they have now changed to S9(09) COMP . We have SORT
card that is using (1,4,CH,A), this now we are seeing a different
On 30/10/2012, Ron Thomas ron5...@gmail.com wrote:
LRECL is fixed. I believe kolusu solution will work.
Thanks,
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to
Thomas ron5...@gmail.com
To: IBM-MAIN@listserv.ua.edu,
Date: 10/29/2012 11:35 AM
Subject: sort jcl
Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
Hello.
I have a input file like the below
1234
12345
123456
12
12345678
1234567890
1243455
Here in the above
LRECL is fixed. I believe kolusu solution will work.
Thanks,
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Hello.
I have a input file like the below
1234
12345
123456
12
12345678
1234567890
1243455
Here in the above file if the length of the data is more than 9 i need to drop
and put the same in a dropped file. so in the above file the last 2 will be
dropped and kept in a new file. Pls let me
Is your LRECL fixed or variable?
:: -Original Message-
:: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
:: Behalf Of Ron Thomas
:: Sent: Monday, October 29, 2012 11:25 AM
:: To: IBM-MAIN@LISTSERV.UA.EDU
:: Subject: sort jcl
::
:: Hello.
::
:: I have a input file
Hello.
I have 2 files, I need to compare using DFSORT. Could someone please let me
know how we can acheive?
File-1
10038 004366456
10039 494165545
10040 497228431
10041 408506918
File-2
10038 4366456
10039 494165545
10040 497228431
10041 408506918
: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf
Of Ron Thomas
Sent: Wednesday, October 17, 2012 2:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: sort jcl
Hello.
I have 2 files, I need to compare using DFSORT. Could someone please let me
know
how we can acheive
On Wed, 17 Oct 2012 04:15:13 -0500, Ron Thomas wrote:
Hello.
I have 2 files, I need to compare using DFSORT. Could someone please let me
know how we can acheive?
Concatenate file 1 + 2:
//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
1 - 100 of 106 matches
Mail list logo
