|
Thanks Tommy, That did the trick. On Wed, 27 Apr 2005 14:39:04 -0500, Holden Tommy wrote > 0042.00 * MAINLINE > 0042.01 C EXSR LOAD > 0042.02 C DOU *IN12 = *ON > 0042.03 C WRITE FOOTER > 0042.05 C EXFMT RECCTL > 0042.09 C EXSR RESPOND > 0042.13 C ENDDO > 0043.23 C EVAL *INLR = *ON > 0043.24 C RETURN > > 0090.00 * RESPOND SUB-ROUTINE > 0091.00 ************************************************** > 0092.00 C RESPOND BEGSR > 0093.00 C READC RECSFL > 0094.00 C DOW NOT %EOF > 0094.01 C DCUSTNO CHAIN TOP1 > 0094.02 C EVAL DCNUM = CUSTNO > 0094.03 C EVAL DCNAME = ICMNAME > 0094.04 C EVAL DHGSALES = HDGDSALES > 0094.05 C EVAL DGSALES = GASES > 0094.06 C EVAL DCYLSALES = CYLRENT > 0094.07 C EVAL DSALES = TSALES > 0094.08 C EVAL DDCOST = TCOST > 0094.09 C EVAL DDMARGIN = TMARGIN > 0094.10 C EXFMT DETAIL > c eval dselect=' ' > c update recsfl > 0094.12 C READC RECSFL > 0095.00 C ENDDO > 0096.00 C ENDSR > > Thanks, > Tommy Holden > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of dpalme@xxxxxxxxxxx > Sent: Wednesday, April 27, 2005 2:30 PM > To: RPG programming on the AS400 / iSeries > Subject: RE: select field in subfile > > I am not performing any specific I/O to it. Here is the source if > it helps > > 0042.00 * MAINLINE > 0042.01 C EXSR LOAD > 0042.02 C DOU *IN12 = *ON > 0042.03 C WRITE FOOTER > 0042.05 C EXFMT RECCTL > 0042.09 C EXSR RESPOND > 0042.10 C 1 CHAIN RECCTL > 0042.11 C EVAL DSELECT = *BLANKS > 0042.12 C UPDATE RECCTL > 0042.13 C ENDDO > 0043.23 C EVAL *INLR = *ON > 0043.24 C RETURN > > 0090.00 * RESPOND SUB-ROUTINE > 0091.00 ************************************************** > 0092.00 C RESPOND BEGSR > 0093.00 C READC RECSFL > 0094.00 C DOW NOT %EOF > 0094.01 C DCUSTNO CHAIN TOP1 > 0094.02 C EVAL DCNUM = CUSTNO > 0094.03 C EVAL DCNAME = ICMNAME > 0094.04 C EVAL DHGSALES = HDGDSALES > 0094.05 C EVAL DGSALES = GASES > 0094.06 C EVAL DCYLSALES = CYLRENT > 0094.07 C EVAL DSALES = TSALES > 0094.08 C EVAL DDCOST = TCOST > 0094.09 C EVAL DDMARGIN = TMARGIN > 0094.10 C EXFMT DETAIL > 0094.12 C READC RECSFL > 0095.00 C ENDDO > 0096.00 C ENDSR > -- > 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. -- Open WebMail Project (http://openwebmail.org)
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.
midrange.com
