Re: Subfile Not Displaying Records -- RPG400-L

Better yet, use the %found() BIF

-Charles

On Fri, Aug 21, 2009 at 3:04 PM, Glenn Bruckner<glenn.bruckner@xxxxxxxxx> wrote:

Terri,

I looks like you are using indicator 50 on your chain to the EQXL02 in
subroutine LoadSF2. Is it possible that the last QTE number retrieved
from LQXL01 does not have a corresponding EQX record? If possible can you
change the indicator on the chain to EQXL02 and see if that makes a
difference.

I hope this helps.

Glenn

----------------------------------------------------------------------

message: 1
date: Fri, 21 Aug 2009 11:40:45 -0500
from: THarteau@xxxxxxxxxxxxxxxxxx
subject: Re: Subfile Not Displaying Records

Hi,

Here is some of the program code. I know there is some problems with the
SQL (using a logical, and not sure what DESC is), but it is getting the
records, it just takes a while.
FORD345D CF E WORKSTN SFILE(SFLJOB:RRN)
F SFILE(SFLDTL:RRN2)
...
C EXSR ClearSF
C IF Customer <> *ZEROS
C EXSR LoadSF
C ELSE
C EXSR LoadSF2
C ENDIF
C IF *IN75 = *OFF
C WRITE FOOTER1
C WRITE CTLJOB
C EXFMT SCR001
C ELSE
C WRITE FOOTER1
C EXFMT SCR002
C ENDIF
And this is the subroutine that loads the subfile.
C LoadSF2 BEGSR
C*
C EVAL *IN25 = *OFF
C*
C/EXEC SQL DECLARE B CURSOR FOR
C+ SELECT LORD, CLMNDT, LQORD, LNET, LODTE
C+ FROM EQLL01
C+ WHERE LPROD = :Item
C+ ORDER BY LORD DESC
C/END-EXEC
C/EXEC SQL
C+ OPEN B
C/END-EXEC
C* ****
C *IN25 DOUEQ '1'
C*
C/EXEC SQL
C+ FETCH B INTO :QTE, :DAT, :QTY, :NET, :ENTDTE
C/END-EXEC
C*
C IF SQLCOD = 0 AND *IN25 = '0'
C*
C IF DAT = 0
C EVAL DAT = ENTDTE
C ENDIF
C*
C IF DAT >= DAT90
C*
C MOVE DAT DATDS
C EVAL DSPDAT = MONTH + '/' + DAY +
C '/' + YEAR
C*
C QTE CHAIN EQXL02 50
C IF *IN50 = *OFF
C EVAL SBJ = QXSBJ1
C ENDIF
C*
C IF GetsSurch = 'Y'
C EXSR GetSurcharge
C ELSE
C EVAL SurAmount = *ZEROS
C ENDIF
C*
C ILIST IFNE 0
C NET DIV ILIST MODIFR 17 6
C MODIFR MULT 100 MLT
C ELSE
C Z-ADD 0 MLT
C END
C*
C IF (NET + SurAmount) > 0
C EVAL WRKTTL = (ISCST)/
C (NET + SurAmount)
C EVAL WRKPCT = 1 - WRKTTL
C EVAL WRKPC = WRKPCT * 100
C IF WRKPC < 1000 AND WRKPC > -1000
C EVAL (H) PC = WRKPC
C ELSE
C EVAL PC = *ZEROS
C ENDIF
C ELSE
C EVAL PC = *ZEROS
C ENDIF
C*
C EVAL ACT = *ZEROS
C EVAL RRN = RRN + 1
C WRITE SFLJOB
C*
C ENDIF
C*
C ELSE
C EVAL *IN25 = *ON
C ENDIF
C ENDDO
C*
C/EXEC SQL
C+ CLOSE B
C/END-EXEC
C*
C*
C IF RRN = 0
C EVAL *IN75 = *ON
C ELSE
C EVAL RRN = 1
C EVAL *IN75 = *OFF
C ENDIF
C*
C ENDSR

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
"Do not follow where the path may lead. Go instead where there is no path
and leave a trail."
Ralph Waldo Emerson

****************

------------------------------

message: 2
date: Fri, 21 Aug 2009 09:53:29 -0700 (PDT)
from: Jeff Young <cooljeff913@xxxxxxxxx>
subject: Re: Subfile Not Displaying Records

What is the value of RRN at the time you display the subfile at 12 1/2
pages?

Thanks,
?
Jeff Young
Sr. Programmer Analyst
IBM?-e(logo) server?Certified Systems Exper?- iSeries Technical Solutions
V5R2?
IBM? Certified Specialist-?e(logo)?server?i5Series Technical Solutions
Designer?V5R3
IBM? Certified Specialist- e(logo)server i5Series Technical
Solutions?Implementer?V5R3
??
?

________________________________
From: "THarteau@xxxxxxxxxxxxxxxxxx" <THarteau@xxxxxxxxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 21, 2009 12:02:10 PM
Subject: Subfile Not Displaying Records

Hi,
? ? ? ? I will be the first to admit I am a novice with subfiles. I have a

program from a programmer long gone. If I have 11 1/2 pages of data (158
records), it works fine. If I have 0 records, it displays a 'No Records
Found'? message. If there are 12 1/2 pages of data (178 records), I get a
blank subfile. No message, no lines.? In debug, it looks like the subfile
is building fine.? The DDS looks ok. I am sure it is something I am just
not seeing. I found a lot in the archives about more than 9999 records,
but I am no where near that. Here is the subfile stuff from the DDS:
? ? ? A? ? ? ? ? R SFLJOB? ? ? ? ? ? ? ? ? ? SFL?
? ? ? A? ? ? ? ? ? QTE? ? ? ? ? ? 6Y 0O? 8? 6EDTCDE(Z)?
? ? ? A? ? ? ? ? ? DSPDAT? ? ? ? 8A? O? 8 13?
? ? ? A? ? ? ? ? ? SBJ? ? ? ? ? 10A? O? 8 22?
? ? ? A? ? ? ? ? ? QTY? ? ? ? ? 11Y 3O? 8 33EDTCDE(L)?
? ? ? A? ? ? ? ? ? NET? ? ? ? ? 14Y 4O? 8 47EDTCDE(L)?
? ? ? A? ? ? ? ? ? MLT? ? ? ? ? ? 6Y 3O? 8 64EDTCDE(L)?
? ? ? A? ? ? ? ? ? PC? ? ? ? ? ? 6Y 3O? 8 73EDTCDE(L)?
? ? ? A? ? ? ? ? ? ACT? ? ? ? ? ? 2Y 0B? 8? 2EDTCDE(Z)?
? ? ? A******************************************************************?

? ? ? A? ? ? ? ? R CTLJOB? ? ? ? ? ? ? ? ? ? SFLCTL(SFLJOB)?
? ? ? A? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SFLPAG(14)?
? ? ? A? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SFLSIZ(9999)?
? ? ? A N19? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SFLEND(*MORE)?
? ? ? A? 50? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SFLCLR?
? ? ? A N50? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SFLDSPCTL?
? ? ? A N50? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? SFLDSP?
? ? ? A? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? OVERLAY?
? ? ? A? ? ? ? ? ? RRN? ? ? ? ? ? 4S 0H? ? ? SFLRCDNBR(CURSOR)?
<===================================================>

Any ideas? Thanks!

Terri Harteau
Felker Brothers Corporation
****************
"Do not follow where the path may lead. Go instead where there is no path
and leave a trail."
Ralph Waldo Emerson

****************

--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (RPG400-L) digest 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.

End of RPG400-L Digest, Vol 8, Issue 620
****************************************

***************************************************************************************************************************
The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, re-transmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited and may be unlawful. Kerry Group accepts no liability for actions or effects based on the prohibited usage of this information. Kerry Group is not liable for the proper and complete transmission of the information contained in this communication or for any delay in its receipt. If you received this in error, please contact the sender and delete the material from any computer. Thank you for your attention.
****************************************************************************************************************************
--
This is the RPG programming on the IBM i / System i (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.