Re: DDS from SQL

["Art Tostaine, Jr." <atostain@xxxxxxxxxxx>]

Vern Hamberg wrote:

> Leo,
>
> At 10:36 AM 10/3/97 -0400, you wrote:
>
> >Hi every one,
> >
> >Can somebody tell me if I can (and how to) 'retreive' the DDS from an
> >SQL created file?
>

This RPG code will do what you want.  you can build a CLP around it to do a 
DSPFFD and override to the file before calling RPG.

No comments on this code, please!  Not sure where we got this from....

     Fdspffd    if   e             disk
     Fqddssrc   if a f  999        disk
     Iqddssrc   ns
     C                   bitoff    '01234567'    APOST             1
     C                   biton     '123457'      APOST
     C                   readp     qddssrc                                99
     C                   read      qwhdrffd                               98
     C                   dow       *in98 = *off
     c                   add       10            seq               6 0
     c**
     c** setup colhdg
     c**
     c                   movel     *Blanks       colhdg           30
     c                   cat       'COLHDG(':0   colhdg
     c                   cat       apost    :0   colhdg
     c                   cat       whchd1   :0   colhdg
     c                   cat       apost    :0   colhdg
     c                   cat       ')'      :0   colhdg
     c     whfldt        ifne      'S'
     c     whfldt        andne     'P'
     c                   except    writea
     c                   else
     c                   except    writes
     c                   end
     C                   read      qwhdrffd                               98
     c                   end
     c                   move      *on           *inlr
     c                   return
     Oqddssrc   eadd         writea
     o                       seq                  6
     O                                           18 'A'
     O                       whfldi              40
     O                       whfldb        z     46
     O                       whfldt              47
     O                       colhdg              86
     Oqddssrc   eadd         writes
     o                       seq                  6
     O                                           18 'A'
     O                       whfldi              40
     O                       whfldd        z     46
     O                       whfldt              47
     O                       whfldp        z     49
     O                       colhdg              86

--
Art Tostaine, Jr.
Creative Computer Associates, Inc.
Parlin, NJ
atostaine_at_crecomp_dot_com


+---
| 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 MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---