|
midrange.com
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.
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.
