• Subject: Re: audit report
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Thu, 15 Jul 1999 8:28:52 -0500

Believe it or not, I've never worked with MODS.  My SQL example 
was from an interactive session.  May I recommend using a CURSOR 
and a FETCH?





ncsmith@gate.net on 07/14/99 10:53:49 PM
Please respond to RPG400-L@midrange.com@Internet
To:     RPG400-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        Re: audit report

Oops, I must have hit send too soon.  I wanted to ask you about the code
example you were showing because I'm having trouble with almost the
identical thing.

I'm using the open cursor, fetch next method to try to bring some of the
fields in that same QADBIFLD file to a multiple occurrance data structure.
I'm requesting some number of records at a time, say 10, into a MODS with
plenty of occurrances to hold that number and everytime the fields in the
SQLCA say that it is returning only 1 record, but with no errors or messages
of any kind (except the normal completion message saying 1 record was
returned), but when I look in the MODS, it actually loaded and returned 2
records.

With no error indications at all, I'm kind of at a loss as to why it is not
returning the 10 records I requested.  I've had no problem at all doing the
same thing with my own files.  Is there something different I need to take
into account when using the QADB files?

-----Original Message-----
From: Rob Berendt <rob@dekko.com>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Wednesday, July 14, 1999 9:43 AM
Subject: Re: audit report


>I don't see your reply.
>
>
>
>
>ncsmith@gate.net on 07/13/99 09:00:41 PM
>Please respond to RPG400-L@midrange.com@Internet
>To: RPG400-L@midrange.com@Internet
>cc:
>Fax to:
>Subject: Re: audit report
>
>
>-----Original Message-----
>From: Rob Berendt <rob@dekko.com>
>To: RPG400-L@midrange.com <RPG400-L@midrange.com>
>Date: Tuesday, July 13, 1999 3:41 PM
>Subject: Re: audit report
>
>
>
>>QADBIFLD might be the one you want.
>>
>>For example:
>>SELECT DBIFLD, DBIITP, DBITYP, DBITXT FROM qadbifld WHERE
>>DBILIB='GPIDIVF' and DBIFIL='IIM'
>>FIELD       INTERNAL  FIELD     FIELD
>>NAME        TYPE      TYPE      TEXT
>>IID            A      CHAR      Record ID; IM/IZ
>>IPROD          A      CHAR      Item Number
>>IDESC          A      CHAR      Item Description
>>IADJ           P      DECIMAL   Month to Date Adjustments
>>IRCT           P      DECIMAL   Month to Date Receipts
>>IISS           P      DECIMAL   Month to Date Issues
>>...
>>
>>
>>
>>Want to change a field?  Try:
>>select DBILIB, DBIFIL from QADBIFLD where DBIFLD = 'MANAGR'
>>LIBRARY     FILE
>>NAME        NAME
>>ACCTINTRFC  FREF
>>ACTATJO     FREF
>>ACTINTF     FREF
>>ACTINTO     FREF
>>ACTINT40    ACTINTCDO
>>ACTINT40    FREF
>>ACTINT404   FREF
>>DPDLUCF30   FREF
>>MGRTEST002  EMPJOB
>>ELPFILE     FREF
>>MGRTEST099  EMPFLUFF
>>...
>>
>
>
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].