× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. July 2004

RE: Subfile problem

Are there any records to display?  Just check to make sure you are getting 
the data back and that the subfile is actually being written.  It might be 
that you have a problem getting the data back to the presentation program 
and the subfile is not being written out and then you try to display a 
blank subfile, that usually blows up.  I usually add a routine after my 
subfile load process that checks that if no records written, I write a 
subfile record out with a message stating that no records found or 
something like that.  Example:

 *-----------------------------------------------------------------------  
 
 * LOADSUB5 - Load Subfile #5 - Cpenwnsf  
 *-----------------------------------------------------------------------  
 
c     Loadsub5      Begsr  
 * Load subfile  
c                   Eval      x = Sf4qty  
 * Load as many lines as qty selected  
c                   Do        x  
c                   Eval      Sf5cde = Sf4cde  
c                   Eval      Sf5sub = Sf4sub  
c                   Eval      Sf5amt = *Zeros  
c                   Eval      Sflrrn5 = Sflrrn5 + 1  
c                   Eval      Sf5dsc = %Trim(Sf4dsc) + ' ' + 
%Char(Sflrrn5) 
c                   Write     Cpenwnsf  
c                   EndDo  
 *  If no records found, write a None Found record    
c                   If             Sflrrn5 = 0
c                   Eval      Sf5cde = *Blanks
c                   Eval      Sf5sub = *Blanks
c                   Eval      Sf5amt = *Zeros
c                   Eval      Sfl5dsc = 'None Found!'
c                   Eval      Sflrrn5 = 1
c                   Write     Cpenwnsf
c                   EndIf 
c                   Endsr  



Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




michaelr_41@xxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/08/2004 01:34 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Subfile problem






Hmmm...I dunno...I've never gotten that error unless I try to write a
subfile control record format with no control indicators on. I don't see
why separating the database access from the presentation should matter.
Guess you need a smarter RPG guy than me...luckily, there's no shortage
of those folks on this list.

On Thu, 8 Jul 2004 11:50:31 -0400, "Smith, Mike"
<Mike_Smith@xxxxxxxxxxxxxxxx> said:
> Yes, calling a function.
> Michael Smith
> iSeries.mySeries.
> 
> 
> -----Original Message-----
> From: michaelr_41@xxxxxxxxxxxxxx [mailto:michaelr_41@xxxxxxxxxxxxxx] 
> Sent: Thursday, July 08, 2004 11:44 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Subfile problem
> 
> 
> So are you calling (callp, callb, function) a program to access the
> database, and then passing back the data to a a program that loads the
> subfile?
> 
> On Thu, 8 Jul 2004 11:41:58 -0400, "Smith, Mike"
> <Mike_Smith@xxxxxxxxxxxxxxxx> said:
> > That's what I thought initially also.  However, I have both of these 
> > turned on. This was a working program, and all I did was move the 
> > database access to another bound program.  There are 12 records 
> > initally loaded to the subfile and I have verified this, but now I get
> 
> > this error.
> > 
> > Michael Smith
> > iSeries.mySeries.
> > 
> > 
> > -----Original Message-----
> > From: michaelr_41@xxxxxxxxxxxxxx [mailto:michaelr_41@xxxxxxxxxxxxxx]
> > Sent: Thursday, July 08, 2004 10:51 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Re: Subfile problem
> > 
> > 
> > I think this means you need to turn on the indicator associated with 
> > either (or both) SFLDSP and SFLDSPCTL before you WRITE or EXFMT the 
> > associated record formats.
> > 
> > On Thu, 8 Jul 2004 10:48:45 -0400, "Smith, Mike" 
> > <Mike_Smith@xxxxxxxxxxxxxxxx> said:
> > > I have been experimenting with seperating database access from my
> > > displays after reading the 'Sorcerers guide' .  I decided to try
> this 
> > > on a subfile program.  I'm now trying to run this program and I'm 
> > > getting the following error. When I try to display the subfile. 
> > > SFLDSPCTL or SFLDSP option required for PUTGET.
> > >  C 
> > >  SFLDSPCTL or SFLDSP option required for PUTGET. 
> > >  C 
> > >  Session or device error occurred in file RGCTLDF.
> > >  Session or device error occurred in file RGCTLDF.
> > > 
> > > I searched through the archives for this error and saw some 
> > > references
> > 
> > > to using the invite and putovr keywords.  I have tried this, but I'm
> > > still getting this error.
> > > Any ideas?
> > > 
> > > Michael Smith
> > > iSeries.mySeries.
> > > 
> > > --
> > > This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> > > mailing
> > > list To post a message email: RPG400-L@xxxxxxxxxxxx
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > > or email: RPG400-L-request@xxxxxxxxxxxx
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/rpg400-l.
> > > 
> > --
> > 
> >   michaelr_41@xxxxxxxxxxxxxx
> > 
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> > list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, 
> > unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at 
> > http://archive.midrange.com/rpg400-l.
> > 
> > 
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> > list To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> > 
> -- 
> 
>   michaelr_41@xxxxxxxxxxxxxx
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
-- 
 
  michaelr_41@xxxxxxxxxxxxxx

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




This OutBound email has been scanned for Viruses

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.