RE: IDDU, S36 & AS/400 SQL & RPG

[Brian Lawson <blawson@xxxxxxxxxxxxx>]

Hi:

One of my people wrote this command for News/3x 'way back in 1990.  If you need 
the code let me know.

Brian Lawson
HJM Systems, Inc.
New York, NY
Voice: 212-714-1055 x.32
blawson@interserv.com


-----Original Message-----
From:   boothm@ibm.net [SMTP:boothm@ibm.net]
Sent:   Tuesday, December 09, 1997 11:58 AM
To:     MIDRANGE-L@midrange.com
Subject:        Re: IDDU, S36 & AS/400 SQL & RPG

on 12/09/97at 12:46 AM, the Great and Grand  Wazir peteh@earth.inwave.com
(Pete Hall) said:

>> 
>> They are described with IDDU and Query/400

>Many moons ago, I had a programmer write a utility to construct DDS from
>an IDDU dictionary.

0001.00     
A*****************************************************************  
0002.00      A*                                                              
*   0003.00      A*   DDS source code produced with 'RTVDDSSRC' command         
 
*   0004.00      A*                                                             
 
*   0005.00      A*   Retrieved file: GMLAST      from library: QS36F           
 
*   0006.00      A*   Date CREATED:   10/08/93                                  
 
*   0007.00      A*                                                             
 
*   0008.00      A*   Text: COUNTER AND WORKING TERM FILE REPLACES GM.GT
TYPE 9   *   0009.00      A*   File type: PF       File access: ARRIVAL         
          
*   0010.00      A*   Join file? N                                              
 
*   0011.00      A*   Number of members:      1                                 
 
*   0012.00      A*   Member list:  GMLAST                                      
 
*   0013.00      A*                                                             
 
*   0014.00     
A*****************************************************************  

I found this.  As you can see, its from 1993.  The CL calls one other
program, an RPG program.  Credit is not given for the source, but I think
this is not a local programmer's work but rather he copied it in from
someplace like Midrange Computing.  I can say this though: It works, it is
fast, and for the first changeover it gives you complete, useful DDS in a
hurry.  If you can't find it let me know and I can get a copy for you.

----------------------------------------------------
Booth Martin     
---------------------------------------------------



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@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
+---
uucp

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@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
+---