Interested to Buy Any Domain ? << Click Here >> for more details...
Please help me, I have created window subfile,I have
created Footer with same lengh and postion of window SFL.
When I call the pgm, first is shows only Footer and then
it shows subfile records.This time Footer is not
showsing ..plz hel me how can i do it...?
Sameple DDS and RPG:
A R WIN1
SFL
A*%%TS SD 20090130 165346 MUNSHIJ REL-V4R2M0 5769-
PW1
A FLD001 1Y 0B 4 3EDTCDE
(Z)
A ATFILE R O 4 7REFFLD
(QWHFDBAS/ATFILE LIB/LIBF-
A
ILE)
A R WINCTL SFLCTL
(WIN1)
A*%%TS SD 20090202 123459 MUNSHIJ REL-V4R2M0 5769-
PW1
A ALTNAME
('y')
A SFLSIZ
(0004)
A SFLPAG
(0004)
A WINDOW
(FOOTER)
A ROLLUP
(27)
A ROLLDOWN
(28)
A CF12
(12 'Cancel')
A 50
SFLDSP
A N51
SFLDSPCTL
A 51
SFLCLR
A 1 2'Select Option,Press
enter'
A 2 3'1=
Select'
A R
FOOTER
A*
A WINDOW(8 31 9
43)
A 8 4'F12 =
Cancel'
A R DUMMY
ASSUME
A 24
10' '
in RPG:
Dow *IN12 = *Off
Write Footer
Fxfmt WInCTL
- 2 Answers
- 9723 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / syam
Include OVERLAY Record Level Keyward in CLT record.
A R WINCTL SFLCTL
A OVERLAY
Always give SFLSIZ(5) and SFLPAG(4) means SFLSIZ Greater
than SFLPAG.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / cagatay azkin
Once you make sure File size is greater (1 greater is
perfect), also make sure footer record format doesn't
overwrite the sfl. If it's the case and you don't have
spece, decrese size and page by one. Also make sure that
overlay is set "Y"
| Is This Answer Correct ? | 1 Yes | 0 No |
ESCAPE message sent by child program can be handled by parent program using which keyword?
suppose if we want to update the data in cl what we will do?
How we will read call stack?
What are the types of identifiers?
Errors in Sql query will be in which state?
list down and describe the sub systems vailable
how can you display specific subfile page on the screen in unequal subfile?
How to search particular records from the database file in rpg?
What will be the value of STRING after line 0106 is executed in the code below? 0101 E* Fromfiletofile..tabnameprnentlenpdatabnamlenpda 0102 E ARR 8 1 0103 ISTRING DS 0104 I 1 8 ARR 0105 C MOVE *BLANK STRING 0106 C MOVEA'ABC' ARR A) 'AAAAAAAA' B) 'BBBBBBBB' C) 'CCCCCCCC' D) 'ABC ' E) ' ABC'
How can i check the object existance in RPG program without using QCMDEXC command.
how can i retrieve the field name from display file at run time? Devendra Singh Tomar
can anyone say,what is the use of operation extended H/N/P?
RPG400 
