[mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Albert Ferguson
Sent: Tuesday, June 13, 2017 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sorting a REXX STEM variable
Under zOS REXX does have a STEM Sort (via BPXWUNIX). If you have an OMVS
Segment on your USERID (and as of zOS 2.1+ you should
Under zOS REXX does have a STEM Sort (via BPXWUNIX). If you have an OMVS
Segment on your USERID (and as of zOS 2.1+ you should), try this:
/*
Do a Binary Sort (use -tn for Text)
Using 2nd Word in each StemIn. Record as primary sort key
Using 1st Word in each StemIn. Record as secon
On 2017-06-12, at 14:20, Jesse 1 Robinson wrote:
> I have a number of applications that sort a REXX array. My solution is to
> load it into an ISPF table. Not only is a table easily sorted, but you can do
> an instant search with single ISPF command. And so much more.
>
Rexx compound symbols
frame Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Tony Harminc
Sent: Monday, June 12, 2017 1:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Sorting a REXX STEM variable
On 12 June 2017 at 15:17, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
&g
On 12 June 2017 at 15:17, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> What I mean to ask is, how can I invoke an arbitrary
> utility or load module (not just SORT) associating all its files with Rexx
> stems, not just data sets. SORT allows this because of the I/O ex
On Mon, 12 Jun 2017 20:58:24 +, Robert Prins wrote:
>On 2017-06-12 14:29, John Gateley wrote:
>>...
>> r_c = SORTSTEM(my_stem_name,'A')
>>...
>> It will be on File#953 of the CBT Tape soon, but it anyone wants a preview
>> then the code is in IEBUPDTE format here
>> http://www.sp
On 2017-06-12 14:29, John Gateley wrote:
Hi
Last weeks discussion on sorting a REXX stem inspired me to write a program to
do it.
example call to sort ascending
"ISPEXEC LIBDEF ISPLLIB DATASET ID ('my_loadlib') STACK"
"ALLOC FI(SORTPRT) DUMMY"
r_c = SORTSTEM(my_stem_name,'A')
"FREE FI
Hi
Last weeks discussion on sorting a REXX stem inspired me to write a program to
do it.
example call to sort ascending
"ISPEXEC LIBDEF ISPLLIB DATASET ID ('my_loadlib') STACK"
"ALLOC FI(SORTPRT) DUMMY"
r_c = SORTSTEM(my_stem_name,'A')
"FREE FILE(SORTPRT)"
"ISPEXEC LIBDEF ISPLLIB "
SORT
