Re: Windowed subfiles -- RPG400-L

See if this does what you want:

Create a new record for the window itself, with the window characteristics and footer/header fields you want. Then, in your Subfile Control record, specify that window.
Here's an example:

A R WINDOW1 SFLCTL(SFL1) A WINDOW(CMDW1)
... A R CMDW1 A WINDOW(1 3 21 73 *NOMSGLIN)
A OVERLAY A WDWBORDER((*COLOR TRQ)) A 21 39'F12=Previous' A COLOR(BLU) A 21 54'Total' A TOTAL 9 2 21 61DSPATR(HI) A EDTCDE(3)

Doug Palme wrote:

Ok,
This may seem like a rudimentary question but it seems that nobody in our office (70+ IT staff) knows the answer.

I have been instructed to provide a list in a windowed subfile, that part of it I have working with no problem.....my issue is adding the footer record.....so far trying an overlay, a referenced window, etc. have produced no positive results.

Can someone point me in the correct direction on this?

Here is a copy of the DDS.

0000.10 A*%%TS SD 20071130 160732 SPISDXP REL-V5R3M0 5722-WDS
0000.20 A*%%EC 0000.30 A DSPSIZ(24 80 *DS3) 0000.40 A R MAINSFL SFL 0000.50 A*%%TS SD 20071130 160732 SPISDXP REL-V5R3M0 5722-WDS
0000.60 A ASEL 1A B 6 3CHECK(ER) 0000.70 A 98 DSPATR(PR) 0000.80 A AAPPRVR 10A O 6 19 0000.90 A 99 DSPATR(RI) 0001.00 A ASUBFOR 10A O 6 33 0001.10 A ATODT L O 6 61DATFMT(*USA) 0001.20 A AFRMDT L O 6 47DATFMT(*USA) 0001.30 A ADPT 2S 0O 6 14 0001.40 A ADIV 2S 0O 6 8 0001.50 A 7 2'Substituting Name:' 0001.60 A COLOR(BLU) 0001.70 A 8 3'Substituted Name:' 0001.80 A COLOR(BLU) 0001.90 A SGNAME 50 O 7 21 0002.00 A SBNAME 50 O 8 21 0002.10 A R MAINCTL SFLCTL(MAINSFL) 0002.20 A*%%TS SD 20071130 160732 SPISDXP REL-V5R3M0 5722-WDS 0002.30 A CF12(12) 0002.40 A OVERLAY 0002.50 A 51 SFLDSP 0002.60 A 51 SFLDSPCTL 0002.70 A 52 SFLCLR 0002.80 A N52 SFLEND(*MORE) 0002.90 A N06 SFLDROP(CF06) 0003.00 A SFLSIZ(0005) 0003.10 A SFLPAG(0004) 0003.20 A WINDOW(MAINFTR) 0003.30 A 1 22'<<< Active Substitutions >
0003.40 A COLOR(WHT) 0003.50 A 2 6'__________________________
0003.60 A __________________________'
0003.70 A COLOR(WHT) 0003.80 A 4 19'Substituting' 0003.90 A DSPATR(UL) 0004.00 A COLOR(BLU) 0004.10 A 5 19'Approver' 0004.20 A DSPATR(UL) 0004.30 A COLOR(BLU) 0004.40 A 5 2'Sel' 0004.50 A DSPATR(UL) 0004.60 A COLOR(BLU) 0004.70 A 4 33'Substituted'
0004.80 A DSPATR(UL) 0004.90 A COLOR(BLU) 0005.00 A 5 33'Approver' 0005.10 A DSPATR(UL) 0005.20 A COLOR(BLU) 0005.30 A 4 53'From' 0005.40 A DSPATR(UL)
0005.50 A COLOR(BLU)
0005.60 A 5 53'Date' 0005.70 A DSPATR(UL)
0005.80 A COLOR(BLU)
0005.90 A 4 69'To' 0006.00 A DSPATR(UL)
0006.10 A COLOR(BLU)
0006.20 A 5 67'Date' 0006.30 A DSPATR(UL) 0006.40 A COLOR(BLU) 0006.50 A 3 11'Highlight = Substitution S
0006.60 A for Future Date' 0006.70 A DSPATR(RI) 0006.80 A 5 7'Div' 0006.90 A DSPATR(UL) 0007.00 A COLOR(BLU) 0007.10 A 5 13'Dpt' 0007.20 A DSPATR(UL) 0007.30 A COLOR(BLU)
0014.00 A R MAINFTR 0014.10 A*%%TS SD 20071130 160405 SPISDXP REL-V5R3M0 5722-WDS 0014.20 A WINDOW(2 2 18 75 *NOMSGLIN)
0014.30 A 16 28'D-Delete E-Edit' 0014.40 A COLOR(BLU) 0014.50 A 17 1'__________________________
0014.60 A ___________________________
0014.70 A _' 0014.80 A COLOR(BLU) 0014.90 A 18 31'F12-Cancel' 0015.00 A COLOR(BLU)