Re: Subfile Not Displaying Records -- RPG400-L

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

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