×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.



  1.  Home
  2. RPG400-L
  3. December 2005

Re: Why does this loop only pick up the first rec of a group

Your data shows some duplicates.  Is it possible that there are 12 identical
records, when sorted by key?

On 12/28/05, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
>
> It is doing the load 12 times per page. but thedata is not good. It is
> only taking the first record of a key and loading it x number of times,
> not incrementing the read as it were.
>
> > It's NOT your key list...
> >
> > The variable sflpag is where your problem lies...
> >
> >
> > Thanks,
> > Tommy Holden
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
> > Sent: Wednesday, December 28, 2005 10:16 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: Why does this loop only pick up the first rec of a group
> >
> > I am thinking of a work around, to make the key containing many more
> > fields. I think that will work, but still why.
> >> What's the value of sflpag? The loop control variable, not the DSPF
> >> keyword.
> >>
> >>> -------- Original Message --------
> >>> Subject: RE: Why does this loop only pick up the first rec of a group
> >>> From: steema@xxxxxxxxxxxxx
> >>> Date: Wed, December 28, 2005 10:48 am
> >>> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> >>>
> >>> Thank you Joe. This is the DDS for the subfile pag.   I know the
> > problem
> >>> is in the initial build bec. I debugged at that point and the records
> >>> are
> >>> not correct.
> >>>
> >>>    A          R SFL1                      SFL
> >>>       A*
> >>>       A  74                                  SFLNXTCHG
> >>>       A            OPTION         1A  B 10  3VALUES(' ' '2' '4' '5')
> >>>       A            BAACCT    R        O 10  7REFFLD(ZZF01/BAACCT
> > *LIBL/M
> >>>       A            BAINVN    R        O 10 21REFFLD(ZZF01/BAINVN
> > *LIBL/M
> >>>       A            BABOL     R        O 10 38REFFLD(ZZF01/BABOL
> > *LIBL/M
> >>>       A            BAPRO     R        O 10 56REFFLD(ZZF01/BAPRO
> > *LIBL/M
> >>>       A            BASTAT    R        O 10 74REFFLD(ZZF01/BASTAT
> > *LIBL/M
> >>>  A          R SF1CTL                    SFLCTL(SFL1)
> >>>  A*
> >>>  A                                      CF06
> >>>  A                                      SFLSIZ(0013)
> >>>  A                                      SFLPAG(0012)
> >>>  A                                      ROLLUP
> >>>  A                                      OVERLAY
> >>>  A N32                                  SFLDSP
> >>>  A N31                                  SFLDSPCTL
> >>>  A  31                                  SFLCLR
> >>>  A  90                                  SFLEND(*MORE)
> >>>  A            RRN1           4S 0H      SFLRCDNBR
> >>>  A                                  9  7'ACCT#'
> >>>  A                                      DSPATR(HI)
> >>>  A                                  9 21'INVOICE'
> >>>  A                                      DSPATR(HI)
> >>>  A                                  9 37'BOL #  '
> >>>  A                                      DSPATR(HI)
> >>>  A                                  4  2'POSITION TO  . . . ACCT'
> >>> A            PACCT     R        B  4 30REFFLD(ZZLF01/BAACCT *LIBL/M
> >>> A                                      DSPATR(HI)
> >>>      A                                  9  2'OPT'
> >>>
> >>>
> >>> Here is some code I switched back to one file. I was trying to read
> > one
> >>> and update another but it is the same basic code.
> >>>
> >>> c*  Clear then build the initial subfile
> >>> C                   exsr      clrsf1
> >>> C                   exsr      sflbld
> >>> C*
> >>> C                   dou       cfkey = exit
> >>> C                   write     fkey1
> >>> C                   exfmt     sf1ctl
> >>>  * Process position to information entered by the user, then clear
> >>>
> >>> C                   select
> >>> C                   when      (cfkey = enter) and (pacct <> *blanks)
> >>> C     *loval        setll     mllc1wa
> >>> C                   exsr      clrsf1
> >>> C                   exsr      sflbld
> >>> C                   clear                   pacct
> >>> c                   when      (cfkey = enter)
> >>> C                   exsr      prcsfl
> >>>  *
> >>> C                   when      (cfkey = rollup) and (not *in32)
> >>> C                   exsr      sflbld
> >>>
> >>> C                   when      cfkey = cancel
> >>> C                   leave
> >>>
> >>> C                   endsl
> >>> C                   enddo
> >>>
> >>> C                   eval      *inlr = *on
> >>>
> >>>
> >>> C     clrsf1        begsr
> >>>  *
> >>>  * Clear relative record numbers and subfile
> >>>  *
> >>> C                   eval      rrn1 = *zero
> >>> C                   eval      lstrrn = *zero
> >>> C                   eval      *in31 = *on
> >>> C                   write     sf1ctl
> >>> C                   eval      *in31 = *off
> >>> C                   eval      *in32 = *off
> >>> C                   endsr
> >>>
> >>>
> >>> C     sflbld        begsr
> >>>  *
> >>>  * Make RRN1 = to the last relative record number of the subfile
> >>>  * so that the load process will correctly add records to the bot
> >>>
> >>>  *
> >>> C                   eval      rrn1 = lstrrn
> >>>  *
> >>>  * Load the subfile with one page of data or until end-of-file
> >>>  *
> >>> C                   do        sflpag
> >>> C                   read      zzlc1wa
> > 90
> >>> C                   if        *in90
> >>> C                   leave
> >>> C                   endif
> >>> C                   eval      rrn1 = rrn1 + 1
> >>>
> >>> C                   eval      option = *blank
> >>> C                   write     sfl1
> >>> C                   enddo
> >>>  * If no records are loaded to subfile, don't display it
> >>>  *
> >>> C                   if        rrn1 = *zero
> >>> C                   eval      *in32 = *on
> >>> C                   endif
> >>>  *
> >>> C                   eval      lstrrn = rrn1
> >>>  *
> >>> C                   endsr
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> > There is a lot of information missing from your post, and perhaps a
> >>> couple
> >>> > of misconceptions.
> >>> >
> >>> > First, why do you think we need to know about the KLIST asbkey?  It
> > is
> >>> not
> >>> > used in your code, so it's irrelevant to the problem.
> >>> >
> >>> > Second, at the very minimum we would have to know the contents of
> >>> sflpag,
> >>> > as
> >>> > well as the code that initially positions the mllc1wb file (if
> > any).
> >>> It
> >>> > would probably be good to see the line of code that defines rrn1 to
> > be
> >>> the
> >>> > subfile record number for sfl1, as well, but we can take your word
> > for
> >>> > that
> >>> > one.
> >>> >
> >>> > Finally, it would be nice to know WHICH record was written to the
> >>> subfile.
> >>> >
> >>> > Joe
> >>> >
> >>> >
> >>> >> From: steema@xxxxxxxxxxxxx
> >>> >>
> >>> >> the file has records as such:
> >>> >>
> >>> >> 50079       1           1             60,239,717           1
> >>> > (...)
> >>> >> 50079       1           1             60,239,723           7
> >>> >>
> > ..
> >>> >>
> >>> >> C                   do        sflpag
> >>> >> C                   read      mllc1wb
> >>> 90
> >>> >> C                   if        *in90
> >>> >> C                   leave
> >>> >> C                   endif
> >>> >> C                   eval      rrn1 = rrn1 + 1
> >>> >> C                   eval      option = *blank
> >>> >> C                   write     sfl1
> >>> >> C                   enddo
> >>> >>
> >>> >> Yet the subfile only loads the first record
> >>> >
> >>> >
> >>> > --
> >>> > 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.
> >>
> >> --
> >> 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.
> >
> >
> > --
> > 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.
>
>


--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"

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