Printing dynamic box in main window in scripts

Question

hi ,
I want to print the dynamic box in main window of my script.
Ex. Suppose the content of the main window is 5 lines so it should print box for 5 those lines only.

Answer 1

Hi,
Create a Main window with only 2 lines, Give a BOX command it will give u Border for entire Main window.
/:BOX FRAME 10 TW
For giving vertical lines Syntax is
/:BOX XPOS 16 CH YPOS 0 LN WIDTH '0' CM HEIGHT 2 LN FRAME 10 TW
It gives u a vertical line at 16 character. so for ur requirment add another command at another XPOS.
Try this below just below ur ITEM ELEMENT which has the display fields.
Main Window
/E ITEM_A
A,,,,&ITAB-ABC&,,&ITAB-XXX&,,&ITAB-CDE&,,&ITAB-GEF&
/:BOX FRAME 10 TW
/:BOX XPOS 16 CH YPOS 0 LN WIDTH '0' CM HEIGHT 2 LN FRAME 10 TW
/:BOX XPOS 26 CH YPOS 0 LN WIDTH '0' CM HEIGHT 2 LN FRAME 10 TW
/:BOX XPOS 36 CH YPOS 0 LN WIDTH '0' CM HEIGHT 2 LN FRAME 10 TW
/:BOX XPOS 46 CH YPOS 0 LN WIDTH '0' CM HEIGHT 2 LN FRAME 10 TW
Change XPOS according to ur requirement.
Now add another main window to the same page with changing UPPER margin, U can add upto 99 Main windows in one page.
So add upto ur Page is full.
For headings
Create a Variable window same as Main window, in place of fields, give descriptions.
Make sure that u give BOX command below the field declaration, if u give above, for last record it will not print box.
Regards
Bala Krishna