AW: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-08 Thread bernd.oppol...@t-online.de 
May I suggest once again that you use
the quicksort Routine that I posted
Yesterday, using pure REXX?
you will see that it is very fast.
but: you have to use the
non recursive Variant, because
Most REXX Implementations
will be Limited on the number
of call Levels

Kind regards

Bernd




--- Original-Nachricht ---
Von: Nims,Alva John (Al)
Betreff: Re: AW: Rexx SORT (was: ... Job Scheduler ... )
Datum: 08.06.2017, 14:59 Uhr
An: IBM-MAIN@LISTSERV.UA.EDU





No, z/OS REXX does not have a SORTSTEM function built-in. I currently have 
a STEMSORT function, but it is from a 3rd party vendor.

Al Nims
Systems Admin/Programmer 3
UFIT
Universtiy of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Tony Thigpen
Sent: Thursday, June 08, 2017 4:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Could you point me to the REXX list?

Also, we have had a SORTSTEM function in VSE REXX for a LONG time. Does 
z/OS not have SORTSTEM?

Tony Thigpen

Nims,Alva John (Al) wrote on 06/07/2017 01:27 PM:
> This is getting to be like a discussion that was had on the REXX list 
recently, as in it would be nice if there was an available PIPE type of 
command available, oh wait there is:
>
> The product where IBM has made a PIPE command available:
> http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd
<http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd> =
> sm=897/ENUS5655-D45
>
> Sorting is very simple there:
> PIPE stem xy. | sort 1 5 | stem yx.
> Or PIPE < indsn | sort 1 5 | > outdsn
>
> These are simple examples and not everything that can be done, but when I 
was using it (my previous job) it was reasonably quick in execution. Now I 
have to do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then 
invoke SORT, very cumbersome compared to the simple PIPE command version.
>
> Al Nims
> UFIT
> University of Florida
> (352) 273-1298
> @Home
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Elardus Engelbrecht
> Sent: Wednesday, June 07, 2017 1:14 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )
>
> Paul Gilmartin wrote:
>
>> Bernd.Oppolzer wrote:
>>> http://bernd-oppolzer.de/blog_20150115_151000.htm
<http://bernd-oppolzer.de/blog_20150115_151000.htm>
>>> this Contains a REXX Procedure to sort a stem variable. See
>>> quicksort_nonrec
>> o Of course. But why should it be necessary to reinvent the wheel when 
DFSORT has vast capabilities not practical to duplicate in Rexx?
>
> Could you please be kind to tell us what function(s) you have in mind?
>
> On one side, REXX has this nice PARSE function. hard to duplicate that in 
DFSORT, but do-able.
> On other side, DFSORT handles SMF records and their weird timestamps
> better. (Yes, I know REXX can handle VBS records these days.)
>
>
>>>> I could envision adapting [the ANSI Rexx form] in TSO Rexx something 
like:
>>>> address LINKMVS 'ICEMAN' with ,
>>>> DD:SORTIN stem F1. ,
>>>> DD:SORTOUT stem F2.
>
> You can do the same with REXX statements like this:
>
> "ALLOC F(SORTIN) blah "
> "EXECIO * DISKR SORTIN (STEM F1. FINIS"
> "FREE F(SORTIN)"
> ... and then call DFSORT and sort out your magic
>
> In fact, I have some RYO REXX progs which call DFSORT to sort something 
out...
>
>
>> o And while I chose SORT as an example, I intended to consider a more 
general solution. Imagine a facility that could invoke not only SORT, but:
>> - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
>> - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
>> - Etc. Much like ANSI Rexx.
>
> You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. 
as long you pass/receive parameters and DD correctly.
>
> In fact, zSecure ISPF panels are mostly driven by REXX.
>
> But, I agree with you, something standardised so you can do what you 
desire would really be useful.
>
> Something like "ALLOC F(SYSIN)  ..."
>
> Also FREE(FSYSIN) which -optionally- drops those Stems. (I said
> optionally, because, you may need to free up SYSIN immediately, but
> continue to handle those stems.)
>
> Just some little idle ideas, ya ;-)
>
> Groete / Greetings
> Elardus Engelbrecht
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu <http://listserv.ua.edu> with the 
message: INFO IBM-MAIN
>
> -

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-08 Thread Lizette Koehler 
To join the REXX list

TSO REXXhttp://www2.marist.edu/htbin/wlvindex?TSO-REXX

Or there is the  REXX-LA group as well

http://rexxla.org/

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Tony Thigpen
> Sent: Thursday, June 08, 2017 1:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )
> 
> Could you point me to the REXX list?
> 
> Also, we have had a SORTSTEM function in VSE REXX for a LONG time. Does z/OS
> not have SORTSTEM?
> 
> Tony Thigpen
> 
> Nims,Alva John (Al) wrote on 06/07/2017 01:27 PM:
> > This is getting to be like a discussion that was had on the REXX list
> recently, as in it would be nice if there was an available PIPE type of
> command available, oh wait there is:
> >
> > The product where IBM has made a PIPE command available:
> > http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=
> > sm=897/ENUS5655-D45
> >
> > Sorting is very simple there:
> > PIPE stem xy. | sort 1 5 | stem yx.
> > Or  PIPE < indsn | sort 1 5 | > outdsn
> >
> > These are simple examples and not everything that can be done, but when I
> was using it (my previous job) it was reasonably quick in execution.  Now I
> have to do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then
> invoke SORT, very cumbersome compared to the simple PIPE command version.
> >
> > Al Nims
> > UFIT
> > University of Florida
> > (352) 273-1298
> > @Home
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Elardus Engelbrecht
> > Sent: Wednesday, June 07, 2017 1:14 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )
> >
> > Paul Gilmartin wrote:
> >
> >> Bernd.Oppolzer wrote:
> >>> http://bernd-oppolzer.de/blog_20150115_151000.htm
> >>> this Contains a REXX Procedure to sort a stem variable. See
> >>> quicksort_nonrec
> >> o Of course.  But why should it be necessary to reinvent the wheel when
> DFSORT has vast capabilities not practical to duplicate in Rexx?
> >
> > Could you please be kind to tell us what function(s) you have in mind?
> >
> > On one side, REXX has this nice PARSE function. hard to duplicate that in
> DFSORT, but do-able.
> > On other side, DFSORT handles SMF records and their weird timestamps
> > better. (Yes, I know REXX can handle VBS records these days.)
> >
> >
> >>>> I could envision adapting [the ANSI Rexx form] in TSO Rexx something
> like:
> >>>> address LINKMVS 'ICEMAN' with ,
> >>>> DD:SORTIN stem F1. ,
> >>>> DD:SORTOUT stem F2.
> >
> > You can do the same with REXX statements like this:
> >
> > "ALLOC F(SORTIN) blah "
> > "EXECIO * DISKR SORTIN (STEM F1. FINIS"
> > "FREE F(SORTIN)"
> > ... and then call DFSORT and sort out your magic
> >
> > In fact, I have some RYO REXX progs which call DFSORT to sort something
> out...
> >
> >
> >> o And while I chose SORT as an example, I intended to consider a more
> general solution.  Imagine a facility that could invoke not only SORT, but:
> >>   - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
> >>   - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
> >>   - Etc.  Much like ANSI Rexx.
> >
> > You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc.
> as long you pass/receive parameters and DD correctly.
> >
> > In fact, zSecure ISPF panels are mostly driven by REXX.
> >
> > But, I agree with you, something standardised so you can do what you desire
> would really be useful.
> >
> > Something like "ALLOC F(SYSIN)  ..."
> >
> > Also FREE(FSYSIN) which -optionally- drops those Stems. (I said
> > optionally, because, you may need to free up SYSIN immediately, but
> > continue to handle those stems.)
> >
> > Just some little idle ideas, ya ;-)
> >
> > Groete / Greetings
> > Elardus Engelbrecht
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> >
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-08 Thread Nims,Alva John (Al) 
No, z/OS REXX does not have a SORTSTEM function built-in.  I currently have a 
STEMSORT function, but it is from a 3rd party vendor.

Al Nims
Systems Admin/Programmer 3
UFIT
Universtiy of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tony Thigpen
Sent: Thursday, June 08, 2017 4:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Could you point me to the REXX list?

Also, we have had a SORTSTEM function in VSE REXX for a LONG time. Does z/OS 
not have SORTSTEM?

Tony Thigpen

Nims,Alva John (Al) wrote on 06/07/2017 01:27 PM:
> This is getting to be like a discussion that was had on the REXX list 
> recently, as in it would be nice if there was an available PIPE type of 
> command available, oh wait there is:
>
> The product where IBM has made a PIPE command available:
> http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=
> sm=897/ENUS5655-D45
>
> Sorting is very simple there:
>   PIPE stem xy. | sort 1 5 | stem yx.
> OrPIPE < indsn | sort 1 5 | > outdsn
>
> These are simple examples and not everything that can be done, but when I was 
> using it (my previous job) it was reasonably quick in execution.  Now I have 
> to do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then invoke 
> SORT, very cumbersome compared to the simple PIPE command version.
>
> Al Nims
> UFIT
> University of Florida
> (352) 273-1298
> @Home
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Elardus Engelbrecht
> Sent: Wednesday, June 07, 2017 1:14 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )
>
> Paul Gilmartin wrote:
>
>> Bernd.Oppolzer wrote:
>>> http://bernd-oppolzer.de/blog_20150115_151000.htm
>>> this Contains a REXX Procedure to sort a stem variable. See 
>>> quicksort_nonrec
>> o Of course.  But why should it be necessary to reinvent the wheel when 
>> DFSORT has vast capabilities not practical to duplicate in Rexx?
>
> Could you please be kind to tell us what function(s) you have in mind?
>
> On one side, REXX has this nice PARSE function. hard to duplicate that in 
> DFSORT, but do-able.
> On other side, DFSORT handles SMF records and their weird timestamps 
> better. (Yes, I know REXX can handle VBS records these days.)
>
>
>>>> I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
>>>> address LINKMVS 'ICEMAN' with ,
>>>> DD:SORTIN stem F1. ,
>>>> DD:SORTOUT stem F2.
>
> You can do the same with REXX statements like this:
>
> "ALLOC F(SORTIN) blah "
> "EXECIO * DISKR SORTIN (STEM F1. FINIS"
> "FREE F(SORTIN)"
> ... and then call DFSORT and sort out your magic
>
> In fact, I have some RYO REXX progs which call DFSORT to sort something out...
>
>
>> o And while I chose SORT as an example, I intended to consider a more 
>> general solution.  Imagine a facility that could invoke not only SORT, but:
>>   - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
>>   - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
>>   - Etc.  Much like ANSI Rexx.
>
> You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. as 
> long you pass/receive parameters and DD correctly.
>
> In fact, zSecure ISPF panels are mostly driven by REXX.
>
> But, I agree with you, something standardised so you can do what you desire 
> would really be useful.
>
> Something like "ALLOC F(SYSIN)  ..."
>
> Also FREE(FSYSIN) which -optionally- drops those Stems. (I said 
> optionally, because, you may need to free up SYSIN immediately, but 
> continue to handle those stems.)
>
> Just some little idle ideas, ya ;-)
>
> Groete / Greetings
> Elardus Engelbrecht
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-08 Thread Edward Finnell 
Using Catalist at _www.lsoft.com_ (http://www.lsoft.com) 
 
Found these:
 
_rexxl...@listserv.uga.EDU_ 
(http://www.lsoft.com/scripts/wl.exe?SL1=REXXLIST=LISTSERV.UGA.EDU)  
(https://listserv.uga.edu/cgi-bin/wa?LIST=REXXLIST)  
REXX Programming discussion list (356 subscribers) 
_TSO-REXX@VM.MARIST.EDU_ 
(http://www.lsoft.com/scripts/wl.exe?SL1=TSO-REXX=VM.MARIST.EDU)  
TSO REXX Discussion List (974 subscribers) 
_VM-REXX@VM.MARIST.EDU_ 
(http://www.lsoft.com/scripts/wl.exe?SL1=VM-REXX=VM.MARIST.EDU)  
VM/SP REXX Language Discussion List (120 subscribers)
3  lists matched your search string.
 
 
In a message dated 6/8/2017 3:53:44 A.M. Central Daylight Time,  
t...@vse2pdf.com writes:

Could  you point me to the REXX  list?


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-08 Thread Tony Thigpen 

Could you point me to the REXX list?

Also, we have had a SORTSTEM function in VSE REXX for a LONG time. Does 
z/OS not have SORTSTEM?


Tony Thigpen

Nims,Alva John (Al) wrote on 06/07/2017 01:27 PM:

This is getting to be like a discussion that was had on the REXX list recently, 
as in it would be nice if there was an available PIPE type of command 
available, oh wait there is:

The product where IBM has made a PIPE command available:
http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=sm=897/ENUS5655-D45

Sorting is very simple there:
PIPE stem xy. | sort 1 5 | stem yx.
Or  PIPE < indsn | sort 1 5 | > outdsn

These are simple examples and not everything that can be done, but when I was 
using it (my previous job) it was reasonably quick in execution.  Now I have to 
do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then invoke 
SORT, very cumbersome compared to the simple PIPE command version.

Al Nims
UFIT
University of Florida
(352) 273-1298
@Home

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Wednesday, June 07, 2017 1:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Paul Gilmartin wrote:


Bernd.Oppolzer wrote:

http://bernd-oppolzer.de/blog_20150115_151000.htm
this Contains a REXX Procedure to sort a stem variable. See
quicksort_nonrec

o Of course.  But why should it be necessary to reinvent the wheel when DFSORT 
has vast capabilities not practical to duplicate in Rexx?


Could you please be kind to tell us what function(s) you have in mind?

On one side, REXX has this nice PARSE function. hard to duplicate that in 
DFSORT, but do-able.
On other side, DFSORT handles SMF records and their weird timestamps better. 
(Yes, I know REXX can handle VBS records these days.)



I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
address LINKMVS 'ICEMAN' with ,
DD:SORTIN stem F1. ,
DD:SORTOUT stem F2.


You can do the same with REXX statements like this:

"ALLOC F(SORTIN) blah "
"EXECIO * DISKR SORTIN (STEM F1. FINIS"
"FREE F(SORTIN)"
... and then call DFSORT and sort out your magic

In fact, I have some RYO REXX progs which call DFSORT to sort something out...



o And while I chose SORT as an example, I intended to consider a more general 
solution.  Imagine a facility that could invoke not only SORT, but:
  - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
  - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
  - Etc.  Much like ANSI Rexx.


You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. as 
long you pass/receive parameters and DD correctly.

In fact, zSecure ISPF panels are mostly driven by REXX.

But, I agree with you, something standardised so you can do what you desire 
would really be useful.

Something like "ALLOC F(SYSIN)  ..."

Also FREE(FSYSIN) which -optionally- drops those Stems. (I said optionally, 
because, you may need to free up SYSIN immediately, but continue to handle 
those stems.)

Just some little idle ideas, ya ;-)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Dyck, Lionel B. (TRA) 
If I recall the CMS/TSO Pipes is effectively the same code that is reassembled 
for z/VM or z/OS. Sadly it is a product that is charged for on z/OS but is 
included in z/VM at no charge. It should, imho, be included in z/OS as a no 
charge feature and really give the REXX users a tool to be more productive and 
thus make z/OS more usable.

--
Lionel B. Dyck 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Wednesday, June 07, 2017 1:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: AW: Rexx SORT (was: ... Job Scheduler ... )

On 2017-06-07, at 11:27, Nims,Alva John (Al) wrote:

> This is getting to be like a discussion that was had on the REXX list 
> recently, as in it would be nice if there was an available PIPE type of 
> command available, oh wait there is:
> 
> The product where IBM has made a PIPE command available:
> http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=
> sm=897/ENUS5655-D45
>  
That's obsolescent.  It should be brought up to the level of the current CMS 
Pipelines, its cousin product.  The right way to do this is to share as much 
source code as possible with minimal system-specific interfaces. But when I 
suggested this on another list Alan Altmark (IIRC) insisted that the effort to 
maintain the two as separate products is less.  I suspect Alan is overly 
devoted to Conway's Law.  I believe HLASM, Binder, SuperC, and others are 
supported for both z/OS and CMS from single sources, much to their benefit.

> Sorting is very simple there:
>   PIPE stem xy. | sort 1 5 | stem yx.
> OrPIPE < indsn | sort 1 5 | > outdsn
>  
But that's one utility that has been specifically repackaged as a Pipelines 
stage.  Rather, what's needed is a more general scheme for invoking any utility 
from Pipelines using pipe connectors as its data sets.

That's impractical on CMS because of the limited (nonexistent?) support of 
multiprocessing in CMS.  It should be a better fit in z/OS.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Paul Gilmartin 
On 2017-06-07, at 11:27, Nims,Alva John (Al) wrote:

> This is getting to be like a discussion that was had on the REXX list 
> recently, as in it would be nice if there was an available PIPE type of 
> command available, oh wait there is:
> 
> The product where IBM has made a PIPE command available:
> http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=sm=897/ENUS5655-D45
>  
That's obsolescent.  It should be brought up to the level of
the current CMS Pipelines, its cousin product.  The right way to
do this is to share as much source code as possible with minimal
system-specific interfaces. But when I suggested this on another
list Alan Altmark (IIRC) insisted that the effort to maintain the
two as separate products is less.  I suspect Alan is overly
devoted to Conway's Law.  I believe HLASM, Binder, SuperC, and
others are supported for both z/OS and CMS from single sources,
much to their benefit.

> Sorting is very simple there:
>   PIPE stem xy. | sort 1 5 | stem yx.
> OrPIPE < indsn | sort 1 5 | > outdsn
>  
But that's one utility that has been specifically repackaged as
a Pipelines stage.  Rather, what's needed is a more general scheme
for invoking any utility from Pipelines using pipe connectors as
its data sets.

That's impractical on CMS because of the limited (nonexistent?)
support of multiprocessing in CMS.  It should be a better fit in z/OS.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Nims,Alva John (Al) 
Thank you Lionel, that is the piece I forgot to find and add.

Al Nims
UFIT
University of Florida
(352) 273-1298
@Home

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Wednesday, June 07, 2017 1:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Please see this RFE:  
https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=47699


--
Lionel B. Dyck 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Nims,Alva John (Al)
Sent: Wednesday, June 07, 2017 12:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: AW: Rexx SORT (was: ... Job Scheduler ... )

This is getting to be like a discussion that was had on the REXX list recently, 
as in it would be nice if there was an available PIPE type of command 
available, oh wait there is:

The product where IBM has made a PIPE command available:
http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=sm=897/ENUS5655-D45

Sorting is very simple there:
PIPE stem xy. | sort 1 5 | stem yx.
Or  PIPE < indsn | sort 1 5 | > outdsn

These are simple examples and not everything that can be done, but when I was 
using it (my previous job) it was reasonably quick in execution.  Now I have to 
do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then invoke 
SORT, very cumbersome compared to the simple PIPE command version.

Al Nims
UFIT
University of Florida
(352) 273-1298
@Home

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Wednesday, June 07, 2017 1:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Paul Gilmartin wrote:

>Bernd.Oppolzer wrote:
>>http://bernd-oppolzer.de/blog_20150115_151000.htm
>>this Contains a REXX Procedure to sort a stem variable. See 
>>quicksort_nonrec
>o Of course.  But why should it be necessary to reinvent the wheel when DFSORT 
>has vast capabilities not practical to duplicate in Rexx?

Could you please be kind to tell us what function(s) you have in mind?

On one side, REXX has this nice PARSE function. hard to duplicate that in 
DFSORT, but do-able.
On other side, DFSORT handles SMF records and their weird timestamps better. 
(Yes, I know REXX can handle VBS records these days.)


>>>I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
>>>address LINKMVS 'ICEMAN' with ,
>>>DD:SORTIN stem F1. ,
>>>DD:SORTOUT stem F2.

You can do the same with REXX statements like this:

"ALLOC F(SORTIN) blah  "
"EXECIO * DISKR SORTIN (STEM F1. FINIS"
"FREE F(SORTIN)" 
... and then call DFSORT and sort out your magic

In fact, I have some RYO REXX progs which call DFSORT to sort something out...


>o And while I chose SORT as an example, I intended to consider a more general 
>solution.  Imagine a facility that could invoke not only SORT, but:
>  - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
>  - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
>  - Etc.  Much like ANSI Rexx.

You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. as 
long you pass/receive parameters and DD correctly.

In fact, zSecure ISPF panels are mostly driven by REXX.

But, I agree with you, something standardised so you can do what you desire 
would really be useful.

Something like "ALLOC F(SYSIN)  ..."

Also FREE(FSYSIN) which -optionally- drops those Stems. (I said optionally, 
because, you may need to free up SYSIN immediately, but continue to handle 
those stems.)

Just some little idle ideas, ya ;-)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Dyck, Lionel B. (TRA) 
Please see this RFE:  
https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=47699


--
Lionel B. Dyck 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Nims,Alva John (Al)
Sent: Wednesday, June 07, 2017 12:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: AW: Rexx SORT (was: ... Job Scheduler ... )

This is getting to be like a discussion that was had on the REXX list recently, 
as in it would be nice if there was an available PIPE type of command 
available, oh wait there is:

The product where IBM has made a PIPE command available:
http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=sm=897/ENUS5655-D45

Sorting is very simple there:
PIPE stem xy. | sort 1 5 | stem yx.
Or  PIPE < indsn | sort 1 5 | > outdsn

These are simple examples and not everything that can be done, but when I was 
using it (my previous job) it was reasonably quick in execution.  Now I have to 
do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then invoke 
SORT, very cumbersome compared to the simple PIPE command version.

Al Nims
UFIT
University of Florida
(352) 273-1298
@Home

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Wednesday, June 07, 2017 1:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Paul Gilmartin wrote:

>Bernd.Oppolzer wrote:
>>http://bernd-oppolzer.de/blog_20150115_151000.htm
>>this Contains a REXX Procedure to sort a stem variable. See 
>>quicksort_nonrec
>o Of course.  But why should it be necessary to reinvent the wheel when DFSORT 
>has vast capabilities not practical to duplicate in Rexx?

Could you please be kind to tell us what function(s) you have in mind?

On one side, REXX has this nice PARSE function. hard to duplicate that in 
DFSORT, but do-able.
On other side, DFSORT handles SMF records and their weird timestamps better. 
(Yes, I know REXX can handle VBS records these days.)


>>>I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
>>>address LINKMVS 'ICEMAN' with ,
>>>DD:SORTIN stem F1. ,
>>>DD:SORTOUT stem F2.

You can do the same with REXX statements like this:

"ALLOC F(SORTIN) blah  "
"EXECIO * DISKR SORTIN (STEM F1. FINIS"
"FREE F(SORTIN)" 
... and then call DFSORT and sort out your magic

In fact, I have some RYO REXX progs which call DFSORT to sort something out...


>o And while I chose SORT as an example, I intended to consider a more general 
>solution.  Imagine a facility that could invoke not only SORT, but:
>  - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
>  - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
>  - Etc.  Much like ANSI Rexx.

You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. as 
long you pass/receive parameters and DD correctly.

In fact, zSecure ISPF panels are mostly driven by REXX.

But, I agree with you, something standardised so you can do what you desire 
would really be useful.

Something like "ALLOC F(SYSIN)  ..."

Also FREE(FSYSIN) which -optionally- drops those Stems. (I said optionally, 
because, you may need to free up SYSIN immediately, but continue to handle 
those stems.)

Just some little idle ideas, ya ;-)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Nims,Alva John (Al) 
This is getting to be like a discussion that was had on the REXX list recently, 
as in it would be nice if there was an available PIPE type of command 
available, oh wait there is:

The product where IBM has made a PIPE command available:
http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=dd=sm=897/ENUS5655-D45

Sorting is very simple there:
PIPE stem xy. | sort 1 5 | stem yx.
Or  PIPE < indsn | sort 1 5 | > outdsn

These are simple examples and not everything that can be done, but when I was 
using it (my previous job) it was reasonably quick in execution.  Now I have to 
do the allocation of SORTIN, SORTOUT and SYSIN (control cards) then invoke 
SORT, very cumbersome compared to the simple PIPE command version.

Al Nims
UFIT
University of Florida
(352) 273-1298
@Home

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Wednesday, June 07, 2017 1:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Rexx SORT (was: ... Job Scheduler ... )

Paul Gilmartin wrote:

>Bernd.Oppolzer wrote:
>>http://bernd-oppolzer.de/blog_20150115_151000.htm
>>this Contains a REXX Procedure to sort a stem variable. See 
>>quicksort_nonrec
>o Of course.  But why should it be necessary to reinvent the wheel when DFSORT 
>has vast capabilities not practical to duplicate in Rexx?

Could you please be kind to tell us what function(s) you have in mind?

On one side, REXX has this nice PARSE function. hard to duplicate that in 
DFSORT, but do-able.
On other side, DFSORT handles SMF records and their weird timestamps better. 
(Yes, I know REXX can handle VBS records these days.)


>>>I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
>>>address LINKMVS 'ICEMAN' with ,
>>>DD:SORTIN stem F1. ,
>>>DD:SORTOUT stem F2.

You can do the same with REXX statements like this:

"ALLOC F(SORTIN) blah  "
"EXECIO * DISKR SORTIN (STEM F1. FINIS"
"FREE F(SORTIN)" 
... and then call DFSORT and sort out your magic

In fact, I have some RYO REXX progs which call DFSORT to sort something out...


>o And while I chose SORT as an example, I intended to consider a more general 
>solution.  Imagine a facility that could invoke not only SORT, but:
>  - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
>  - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
>  - Etc.  Much like ANSI Rexx.

You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. as 
long you pass/receive parameters and DD correctly.

In fact, zSecure ISPF panels are mostly driven by REXX.

But, I agree with you, something standardised so you can do what you desire 
would really be useful.

Something like "ALLOC F(SYSIN)  ..."

Also FREE(FSYSIN) which -optionally- drops those Stems. (I said optionally, 
because, you may need to free up SYSIN immediately, but continue to handle 
those stems.)

Just some little idle ideas, ya ;-)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Elardus Engelbrecht 
Paul Gilmartin wrote:

>Bernd.Oppolzer wrote:
>>http://bernd-oppolzer.de/blog_20150115_151000.htm
>>this Contains a REXX Procedure to sort a stem variable. See quicksort_nonrec
>o Of course.  But why should it be necessary to reinvent the wheel when DFSORT 
>has vast capabilities not practical to duplicate in Rexx?

Could you please be kind to tell us what function(s) you have in mind?

On one side, REXX has this nice PARSE function. hard to duplicate that in 
DFSORT, but do-able.
On other side, DFSORT handles SMF records and their weird timestamps better. 
(Yes, I know REXX can handle VBS records these days.)


>>>I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
>>>address LINKMVS 'ICEMAN' with ,
>>>DD:SORTIN stem F1. ,
>>>DD:SORTOUT stem F2.

You can do the same with REXX statements like this:

"ALLOC F(SORTIN) blah  "
"EXECIO * DISKR SORTIN (STEM F1. FINIS"
"FREE F(SORTIN)" 
... and then call DFSORT and sort out your magic

In fact, I have some RYO REXX progs which call DFSORT to sort something out...


>o And while I chose SORT as an example, I intended to consider a more general 
>solution.  Imagine a facility that could invoke not only SORT, but:
>  - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
>  - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
>  - Etc.  Much like ANSI Rexx.

You can invoke anything with REXX including SDSF, IEBGENER, IEBCOPY, etc. as 
long you pass/receive parameters and DD correctly.

In fact, zSecure ISPF panels are mostly driven by REXX.

But, I agree with you, something standardised so you can do what you desire 
would really be useful.

Something like "ALLOC F(SYSIN)  ..."

Also FREE(FSYSIN) which -optionally- drops those Stems. (I said optionally, 
because, you may need to free up SYSIN immediately, but continue to handle 
those stems.)

Just some little idle ideas, ya ;-)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread Paul Gilmartin 
On Wed, 7 Jun 2017 08:12:47 +0200, bernd.oppol...@t-online.de wrote:

>http://bernd-oppolzer.de/blog_20150115_151000.htm
> .
>
>this Contains a REXX Procedure
>to sort a stem variable.
>See quicksort_nonrec
>
o Of course.  But why should it be necessary to reinvent the wheel when
  DFSORT has vast capabilities not practical to duplicate in Rexx?

>>I could envision adapting [the ANSI Rexx form] in TSO Rexx something like:
>>address LINKMVS 'ICEMAN' with ,
>>DD:SORTIN stem F1. ,
>>DD:SORTOUT stem F2.

o And while I chose SORT as an example, I intended to consider a more
  general solution.  Imagine a facility that could invoke not only SORT, but:
  - IEBUPDTE witn SYSIN, SYSUT1, and SYSUT2 assigned to stems.
  - ISRSUPC with OLD, NEW, and DELTA assigned to stems.
  - Etc.  Much like ANSI Rexx.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

AW: Rexx SORT (was: ... Job Scheduler ... )

2017-06-07 Thread bernd.oppol...@t-online.de 
http://bernd-oppolzer.de/blog_20150115_151000.htm
 .

this Contains a REXX Procedure
to sort a stem variable.
See quicksort_nonrec

hth

Kind regards

Bernd




--- Original-Nachricht ---
Von: Paul Gilmartin
Betreff: Rexx SORT (was: ... Job Scheduler ... )
Datum: 07.06.2017, 5:42 Uhr
An: IBM-MAIN@LISTSERV.UA.EDU





On Wed, 7 Jun 2017 00:33:30 +, Rob Schramm wrote:

>Address SORT
>
>is more what I was thinking. It is just such a commonly needed thing for
>simple sorts i.e.
>SORT 1 8 a
>
I'm guessing the arguments are a column range and Ascending?

>Guess I am just lazy/annoyed when it comes to things that I think should 
be
>provided.
>
This is too specialized for my taste. I could envision making every command
in the Utilities Ref. a command environment. I'd like something more 
general.
(But I'm inconsistent. I enthusiastically approve ADDRESS ISREDIT and
ADDRESS SDSF. But those environments are quasi-interactive: each subcommand
returns a status. DFSORT isn't like that.)

With Regina I can:
555 $ cat showsort.rex 
#! /usr/bin/rexx
signal on novalue

F1.1 = 'Larry'
F1.2 = 'Moe'
F1.3 = 'Curly'
F1.0 = 3

address SYSTEM 'sort' '-k1.1,1.8' with , /* Issue the 'sort' command. */
input stem F1. ,
output stem F2.

do I = 1 to F2.0
say I F2.I; end I

... and get output:
556 $ rexx showsort
1 Curly
2 Larry
3 Moe

ADDRESS WITH redirection seems to be an ANSI Rexx construct that IBM
has chosen not to implement:
http://www.rexxla.org/rexxlang/standards/j18pub.pdf


I could envision adapting it in TSO Rexx something like:
address LINKMVS 'ICEMAN' with ,
DD:SORTIN stem F1. ,
DD:SORTOUT stem F2.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu  with the 
message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN