RE: Re[2]: REXX

["Weatherly, Howard" <hweatherly@xxxxxxxxxxxx>]

Title: RE: Re[2]: REXX

Thanks Eric, I wound up doing something like that but my need was the ability to sort SEU member data like you can in XEDIT or ISPF. Seems like SEU has no such feature.

I created a command that asks for FILE / LIB (MEMBER)  and sorting info <also created an OPT command to pull the parms but default to fixlen of 200 and 1 key 1 to 200), pass to Cl to manipulate files etc then to COBOL which parses and checks everything, does the sort and exits. I limited it to three keys like yours and a default rec siz of 200. The CL takes care of the conversion from type PF-SRC to real data and the user can manually copy the output wherever.

----------
From:   eric.delong@pmsi-services.com[SMTP:eric.delong@pmsi-services.com]
Sent:   Tuesday, March 21, 2000 12:25 PM
To:     MIDRANGE-L@midrange.com
Subject:        Re[2]: REXX




     If you're wanting a simple sort tool, I wrote a very simple one several
     years ago. It uses S36E BLDINDEX to sort the file.... looks something
     like:
     .............................................................
     PGM PARM(&FILE &LIB &MBR &POS1 &LEN1 &POS2 &LEN2 &POS3 &LEN3)
    
     dcl ...
    
     BLDFILE TEMPF1,S,RECORDS,1,4096,,T,,,NDFILE
    
     CPYF FROMFILE(&LIB/&FILE)   
          TOFILE(QS36F/TEMPF1) 
          FROMMBR(&MBR)       
          TOMBR(*FIRST)    
          CRTFILE(*NO)
    
     CHGVAR VAR(&PARM)                                          
           VALUE('TEMPF2,' *CAT &POS1 *CAT ',' *CAT &LEN1 *CAT +
           ',TEMPF1,,DUPKEY,,' *CAT &POS2 *CAT ',' *CAT &LEN2 +
           *CAT ',' *CAT &POS3 *CAT ',' *CAT &LEN3)   
    
     STRS36PRC PRC(BLDINDEX) 
               PARM(&PARM)    
    
     CPYF FROMFILE(QS36F/TEMPF2)
          TOFILE(&LIB/&FILE)   
          FROMMBR(*FIRST)      
          TOMBR(&MBR)          
          MBROPT(*REPLACE)     
          FROMKEY(1 (X'00'))   
          FMTOPT(*NOCHK)
       
     cleanup tempfiles, etc......
    
    
     ENDPGM
     ..............................
     I may not have gotten everything, but you should get the idea. This works
     because of the way BLDINDEX attaches the keyfields to the end of the
     record format. When you copy tempf2 by key order back into your original
     file and member, it cuts off the added fields, leaving you with your
     sorted file. Worked great for what we needed it for. Main problem is the
     three field limit, though its enough for most needs.
    
     hth
     eric.delong@pmsi-services.com
            

______________________________ Reply Separator
_________________________________
Subject: RE: REXX
Author:  <MIDRANGE-L@midrange.com> at INET_WACO
Date:    3/21/00 8:51 AM




Nothing that life altering, I simply needed a sort within SEU and was
reminiscent of the (clearing throat) good old mainframe days with ISPF and
XEDIT where you could do a bit more with the editor. What happened was I wrote
a little CL to extract the file names for a reorg and later discovered that
there were duplicates! (The operator was not happy after 7 hours of reorg!) 
so since they were not in "people order" I needed to sort them and drop the
duplicates.
    
> ----------
> From:         Peter Dow[SMTP:pcdow@yahoo.com]
> Sent:         Monday, March 20, 2000 8:22 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: REXX
>
> Sounds like you're getting ready to rewrite the FMTDTA command.
>
>       ----- Original Message -----
>       From: Weatherly, Howard
>       To: 'MIDRANGE-L@midrange.com'
>       Sent: Monday, March 20, 2000 11:26 AM
>       Subject: RE: REXX
>
>
>       Well ok since no one jumped in here, I wrote a generalized sort
> utility that does what I needed immediately. If anyone needs to sort
> things outside of the normal key-ordered file method, let me know.
>
>               ----------
>       From:   Weatherly, Howard[ SMTP:hweatherly@dlsc.dla.mil]
>       Sent:   Tuesday, March 14, 2000 11:01 AM
>       To:     'MIDRANGE-L@midrange.com'
>       Subject:        REXX
>
>               Any of you folks that have worked with VM/CMS(Xedit) will
> understand exactly what I want to do here but for those that have not I
> will just give a one liner: Rexx and Xedit share a symbiotic relationship
> in that it is very easy to switch environments and enter commands that
> each understand, Rexx is a high level command interpreter that makes
> string manipulation a breeze and Xedit is a powerful editor.
>
>               With this affinity for each other it is quit simple and
> commonplace to perform operations on source code, which gets me to my
> question:
>
>               Does anyone have any CL code that calls QREXX/QSYS invoking
> a Rexx program?
>
>               -- or --
>
>               What I really need/want to do is have the ability to sort
> lines that may exist in a source member be it CL or DATA, I want to choose
> the fields e.g.... startpos,len or some such! for this I was going to use
> Rexx to manipulate the strings and need a way to hook things together.
>
>               I am looking at Rexx because from time to time I find myself
> missing the ability to do things to source members but if there is another
> way to accomplish this I am open to that also.
>
>               Tia, Howard
>
>
>




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---