RE: Finding subfile top RRN on multiple subfiles on a single screen -- RPG400-L

× 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.

Subject: RE: Finding subfile top RRN on multiple subfiles on a single screen
From: Dave Murvin <davem@xxxxxxxx>
Date: Mon, 15 Jul 2002 13:17:46 -0700
List-archive: <http://archive.midrange.com/rpg400-l/>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

Sorry, it's a typo.  I had to hand type the code.  Should read:

C       Write MsgCtl
C       Write PURU02C1
C       Write PURU02C2
C       Write PURU02C3
C       Read PURU02C1
C       Eval S1LastTopRRN = SflTopRRN
C       Read PURU02C2
C       Eval S2LastTopRRN = SflTopRRN
C       Read PURU02C3



At 12:30 PM 7/15/2002, you wrote:
>Is the below line just a typo in the e-mail or is this how your code works?
>You are reading the same format twice???
>
>Scott Mildenberger
>
> >
> > D DisplayInfds  DS
> > D  RecordFormat 261     270
> > D  SflTopRRN            378     379B 0
> >
> > C               Write MsgCtl
> > C               Write PURU02C1
> > C               Write PURU02C2
> > C               Write PURU02C3
> > C               Read  PURU02C1
> > C               Eval  S1LastTopRRN = SflTopRRN
> > C               Read  PURU02C1           <------------ s/b PURU02C2?????
> > C               Eval  S2LastTopRRN = SflTopRRN
> > C               Read  PURU02C3
> >

Dave Murvin
DRM Enterprises, Inc.
davem@drme.com

As an Amazon Associate we earn from qualifying purchases.

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.