|
midrange.com
Add the OVERLAY keyword to your control record. Then Create your FOOTER
record. In your RPG Program, right before you to an EXFMT to your RECCTL,
do a WRITE to your FOOTER record. Be sure that the footer will not overlay
the subfile data record. Sort of like this:
A*%%TS SD 20041123 170003 DPALME REL-V5R2M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A R RECSFL SFL
A*%%TS SD 20041123 163819 DPALME REL-V5R2M0 5722-WDS
A NOTES 75A B 3 5
A R RECCTL SFLCTL(RECSFL)
A*%%TS SD 20041123 170003 DPALME REL-V5R2M0 5722-WDS
A SFLSIZ(0016)
A SFLPAG(0015)
A CA12(12)
A 51 SFLDSP
A 51 SFLDSPCTL
A 52 SFLCLR
A OVERLAY - I added the OVERLAY
keyword to your control record
A 1 24'THIS IS THE CONTROL RECORD HEADER'
this is the new footer record
A R FOOTER
A 23 2'F3=EXIT'
...etc.
in your rpg Program:
*************** Beginning of data ******
0001.00 C write footer
0002.00 C exfmt recctl
****************** End of data *********
Hope this helps.
Thanks,
Mark
Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com
"Douglas W.
Palme"
<dpalme@blackcats To
olutions.com> RPG programming on the AS400 /
Sent by: iSeries <rpg400-l@xxxxxxxxxxxx>
rpg400-l-bounces+ cc
mwalter=hanoverwi
re.com@xxxxxxxxxx Subject
om Issue with subfiles
11/24/2004 11:49
AM
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
A friend of mine sent me some printouts helping walk me through the process
of creating a subfile via the SDA tool.
It seems pretty easy to do at least from a basic viewpoint.....I am not
going to be doing anything heavy in subfiles at this point just because
they
are so complicated and there are other areas that I want to fully master
before getting into this can of worms. However, I do have one question
that
hopefully someone here can assist me with.
Below is a copy of the subfile DDS, the one thing this does not have is a
section at the bottom of the screen to give the user some indication of
which function key to use to cancel or scroll through the records....I
would
ask him but unfortunately he's out of the country on vacation (honeymoon)
until after the first of the year.
If someone would be kind enough to assist me with adding some type
of "footer" where I can add some constant text for the user such
as 'F12=CANCEL' 'PGDN - SCROLL DOWN' 'PGUP - SCROLL UP' and it will
be displayed on each screen I would appreciate it.
A*%%TS SD 20041123 170003 DPALME REL-V5R2M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A R RECSFL SFL
A*%%TS SD 20041123 163819 DPALME REL-V5R2M0 5722-WDS
A NOTES 75A B 3 5
A R RECCTL SFLCTL(RECSFL)
A*%%TS SD 20041123 170003 DPALME REL-V5R2M0 5722-WDS
A SFLSIZ(0016)
A SFLPAG(0015)
A CA12(12)
A 51 SFLDSP
A 51 SFLDSPCTL
A 52 SFLCLR
A 1 24'THIS IS THE CONTROL RECORD HEADER'
--
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.
