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) <Stemvariable name> ..." 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, yaaaaa.... ;-) Groete / Greetings Elardus Engelbrecht ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
