[COBOL400-L] RE: SUBFILE starting at column 1 or line numbers

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Daniel:

The subfile that you have doesn't have anything but 'O'-output fields. Maybe 
that's fortunate. One result is that you can fairly easily create the same 
display without using a subfile at all.

Each line from the 'subfile' can simply be an output line with a variable line 
position on the screen -- use the < WRITE STARTING AT LINE identifier > form 
and add 1 to identifier for each line. If you work the logic as a 
page-at-a-time subfile, you can come close to the same DDS and program logic.

As it is, because the initial attribute-byte is in position 80 of the previous 
line, your subfile lines all take two lines on the screen. I haven't seen where 
such a subfile line could be coerced into incrementing the line counter by only 
1. In CODE Designer, as soon as I try to begin a subfile field in column 1, the 
subfile record takes two lines and therefore appears double-spaced.

Tom Liotta


cobol400-l-request@xxxxxxxxxxxx wrote:

>   1.  SUBFILE starting at column 1 or line numbers (Daniel Mielke)
>
>I want to display line numbers at the left of the subfile record starting at
>column 1.  Either it could be a part of the subfile, or a static display.
>
>I've tried adding the field to the subfile, but the records then become
>double spaced.(The final field of the subfile does not occupy the final
>column [80])   I've tried overlaying a window, but the data under "Fund"
>gets covered.
>
>------------------------------
>
>Here's the DDS.  If I position LINENO at column 1, the lines double space.
>
>A          R DSCSUMMRCD                SFL 
>A                                      TEXT('DSC summary Investment list') 
>A            LINENO         1   O  9  2TEXT('Line number')
>A            FUNDCODE       5A  O  9  4TEXT('Investment code')
>A                                      DSPATR(HI)
>A            CURRUNITBL     9Y 3O  9 10TEXT('Current Unit Bal Account-inv- 
>A                                      estment)')
>A                                      DSPATR(HI)
>A                                      EDTCDE(1)
>A            FREEUNITS      9Y 3O  9 22TEXT('Total Free Unit Balance')
>A                                      DSPATR(HI)
>A                                      EDTCDE(1)
>A            MATURED        9Y 3O  9 34TEXT('Total Matured Balance')
>A                                      DSPATR(HI)
>A                                      EDTCDE(1)
>A            BLOCKEDFLG     1A  O  9 46TEXT('Blocked Unit Flag')
>A                                      COLOR(RED)
>A            CHARGEABLE     9Y 3O  9 48TEXT('Total chargeable balance')
>A                                      DSPATR(HI)
>A                                      EDTCDE(1)
>A            FREEOFDSC      9Y 3O  9 60TEXT('Total units free of DSC')
>A                                      DSPATR(HI)
>A                                      EDTCDE(1)
>A            ASSIGNLIST     3A  O  9 77TEXT('Assignment Type list')
>A                                      COLOR(RED)
>A            CERTFLAG       4A  O  9 72TEXT('Certificate flag')
>A                                      COLOR(RED)

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com



__________________________________________________________________
Switch to Netscape Internet Service.
As low as $9.95 a month -- Sign up today at http://isp.netscape.com/register

Netscape. Just the Net You Need.

New! Netscape Toolbar for Internet Explorer
Search from anywhere on the Web and block those annoying pop-ups.
Download now at http://channels.netscape.com/ns/search/install.jsp