RE: a strange RPG program

[Ron Dubson <rdubson@xxxxxxxxx>]

boothm@ibm.net: I was able to solve my problem but thanks anyway. It is my 
understanding that FMTDTA has some advantages over OPNQRYF when the file 
being sorted is very large (over 100K records). Also, OPNQRYF can only sort 
on the fields in the DDS, not on subfields - isn't that so?

-----Original Message-----
From:   boothm@ibm.net [SMTP:boothm@ibm.net]
Sent:   Wednesday, March 24, 1999 9:43 PM
To:     RPG400-L@midrange.com
Subject:        Re: a strange RPG program

The method you've outlined works just fine.  However, all it is doing is 
dynamically establishing sort/select spes.  Replace the whole thing with an 
OPNQRYF statement.


In <01BE7537.61BA4140.rdubson@kcata.org>, on 03/23/99
   at 02:13 PM, Ron Dubson <rdubson@kcata.org> said:

>I have inherited an RPG38 program whose source code is lost (we do not
>have  an uncompiler!) but which does the following:

>Based on entry parms, it updates a member of a source physical file,
>apparently without calls to any CL programs. The source physical file
>contains exactly one member which is the source specification for the
>FMTDTA command (sort utility). The purpose is to enable dynamic selection
> and sorting of a particular database file.

>How can an RPG program do this? I thought they could update only database
> files. Could it be using some API?

>Ronald Dubson
>Senior Programmer
>Kansas City Area Transportation Authority
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


--
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *