The Subfile Control record utilizes the first byte of the subfile.
The simplest solution since your record does not occupy 80 characters is
to shift everything to the right one character and put the line number
in the second position.

John A Arnold
(301) 354-2939
jarnold@xxxxxxxxxxxxx
 

-----Original Message-----
From: cobol400-l-request@xxxxxxxxxxxx
[mailto:cobol400-l-request@xxxxxxxxxxxx] 
Sent: Thursday, March 17, 2005 3:04 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 3, Issue 16

Send COBOL400-L mailing list submissions to
        cobol400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
        cobol400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        cobol400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."


Today's Topics:

   1.  SUBFILE starting at column 1 or line numbers (Daniel Mielke)
   2. Re:  SUBFILE starting at column 1 or line numbers
      (Karen L Hodge/MIS/Genesys)
   3. RE:  SUBFILE starting at column 1 or line numbers (Daniel Mielke)
   4. RE:  SUBFILE starting at column 1 or line numbers (Jack Welch)


----------------------------------------------------------------------

message: 1
date: Thu, 17 Mar 2005 13:58:29 -0500
from: Daniel Mielke <DMielke@xxxxxxx>
subject: [COBOL400-L] SUBFILE starting at column 1 or line numbers

Hi all,

 

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 is a screen shot of what I want to accomplish (conversion from
POWERHOUSE)

 

  Screen: DSCSUMM                AIC LIMITED               2005/03/17
13:36


  User  : MIELDAN            Account DSC Summary           DEV01
QPADEV000S

 


  Account Number:  12345678            ** Select a line for DSC details
**


  Account Name  : SMITH JOHN


 


 
Assign

#  Fund  Current bal        Free     Matured    Chargeable Free of DSC
Cert
Type

01 336       536.310      53.639     373.286 *     109.385     426.925


02 735        48.694       0.000       0.000         0.000       0.000


03


04


05


06


07


08


09


10


 


 
Bottom   

  COMMAND:


 


 F3=Exit  F7=Backwards  F8=Next  F12=Cancel


 Enter the mode: F or S.


 

Any ideas?

 

BUY. HOLD. AND PROSPER

 

Daniel Mielke

Business Systems Analyst

AIC Limited

1-888-710-4242 x4614

dmielke@xxxxxxx <mailto:dmielke@xxxxxxx> 

www.aic.com <http://www.aic.com> 

 

 



------------------------------

message: 2
date: Thu, 17 Mar 2005 14:03:14 -0500
from: Karen L Hodge/MIS/Genesys <KHodge@xxxxxxxxxxx>
subject: Re: [COBOL400-L] SUBFILE starting at column 1 or line numbers





Without seeing your DSPF, it is hard to give an answer.
You have to manipulate the rest of the fields on the subfile so that
that
last position used is not 80.


Thank you,

Karen Hodge
Senior System Analyst
Genesys Health System
1000 Healthpark Blvd, Grand Blanc, Mi 48439
Office 810.606.5180, Fax 810.606.7204
khodge@xxxxxxxxxxx


 

             Daniel Mielke

             <DMielke@xxxxxxx>

             Sent by:
To 
             cobol400-l-bounce         "'cobol400-l@xxxxxxxxxxxx'"

             s@xxxxxxxxxxxx            <cobol400-l@xxxxxxxxxxxx>

 
cc 
 

             03/17/2005 01:58
Subject 
             PM                        [COBOL400-L] SUBFILE starting at

                                       column 1 or line numbers

 

             Please respond to

             COBOL Programming

                  on the

               iSeries/AS400

             <cobol400-l@midra

                 nge.com>

 

 





Hi all,



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 is a screen shot of what I want to accomplish (conversion from
POWERHOUSE)



  Screen: DSCSUMM                AIC LIMITED               2005/03/17
13:36


  User  : MIELDAN            Account DSC Summary           DEV01
QPADEV000S




  Account Number:  12345678            ** Select a line for DSC details
**


  Account Name  : SMITH JOHN





Assign

#  Fund  Current bal        Free     Matured    Chargeable Free of DSC
Cert
Type

01 336       536.310      53.639     373.286 *     109.385     426.925


02 735        48.694       0.000       0.000         0.000       0.000


03


04


05


06


07


08


09


10






Bottom

  COMMAND:





 F3=Exit  F7=Backwards  F8=Next  F12=Cancel


 Enter the mode: F or S.




Any ideas?



BUY. HOLD. AND PROSPER



Daniel Mielke

Business Systems Analyst

AIC Limited

1-888-710-4242 x4614

dmielke@xxxxxxx <mailto:dmielke@xxxxxxx>

www.aic.com <http://www.aic.com>





_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.





------------------------------

message: 3
date: Thu, 17 Mar 2005 14:28:45 -0500
from: Daniel Mielke <DMielke@xxxxxxx>
subject: RE: [COBOL400-L] SUBFILE starting at column 1 or line numbers

Thanks Karen,

Here's the DDS.  If I position LINENO at column 1, the lines double
space.


A*%%TS  SD  20050317  120815  MIELDAN     REL-V5R2M0  5722-WDS

A*%%EC

A                                      DSPSIZ(24 80 *DS3)

A                                      INDARA

A          R DSCSUMMRCD                SFL

A*%%TS  SD  20050317  120815  MIELDAN     REL-V5R2M0  5722-WDS

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)                       
A          R DSCSUMMCTL                SFLCTL(DSCSUMMRCD)               
A*%%TS  SD  20050310  164832  MIELDAN     REL-V5R2M0  5722-WDS          
A                                      CF03(03 'Exit')                  
A                                      CF12(12 'Cancel')                
A                                      CF07(07 'Next')                  
A                                      CF08(08 'Previous')              
A                                      OVERLAY                          
A  40N41                               SFLDSP

A N41                                  SFLDSPCTL

A  41                                  SFLCLR

A                                      SFLSIZ(0010)

A                                      SFLPAG(0010)

A                                  2  3'User'

A                                  2  9':'

A            USERID        10A  O  2 11TEXT('Current User ID')

A                                  1  3'Screen:'

A            SCREENNAME    10A  O  1 11TEXT('Screen Name')

A            COMPANYNAM    30A  O  1 25TEXT('Company Name')

A                                      DSPATR(RI)

A            SCREENDESC    36A  O  2 22TEXT('Screen description')

A            SYSTEMDATE    10A  O  1 60TEXT('System date YYYY/MM/DD')

A            SYSTEMNAME    10A  O  2 60TEXT('System Name')

A            SYSTEMTIME     8A  O  1 71TEXT('System Time')

A            SYSDEVICE     10A  O  2 71TEXT('System Device (ie
QPADEV00001-
A                                       etc.)')

A                                  4  3'Account Number:'

A                                  5  3'Account Name  :'

A            ACCOUNT_NO     9A  B  4 19TEXT('Account Number')

A                                      DSPATR(HI)

A                                      CHECK(RB)

A            ACCOUNTNAM    40A  O  5 19TEXT('Account Name')

A                                      DSPATR(HI)

A                                  4 40'** Select a line for DSC details
*- 
A                                      *'

A                                      DSPATR(HI)

A                                  7 75'Assign#  Fund  Current bal
- 
A                                      Free     Matured    Chargeable
Free- 
A                                       of DSC Cert Typ'

A          R DSCSUMMCMD

A*%%TS  SD  20050310  170608  MIELDAN     REL-V5R2M0  5722-WDS

A                                      CF03(03 'Exit')

A                                      CF07(07 'Backwards')

A                                      CF08(08 'Forwards (Next)')

A                                      CF12(12 'Cancel')

A                                      OVERLAY

A                                 21  3'COMMAND:'

A            CMDINPUT      10A  I 21 12TEXT('Command input line')

A                                 23  2'F3=Exit  F7=Backwards  F8=Next
F1-
A                                      2=Cancel'

A                                      COLOR(BLU)

A            LISTSTATUS     6A  O 20 72TEXT('List scroll status')



Without seeing your DSPF, it is hard to give an answer.
You have to manipulate the rest of the fields on the subfile so that
that
last position used is not 80.


Thank you,

Karen Hodge
Senior System Analyst
Genesys Health System
1000 Healthpark Blvd, Grand Blanc, Mi 48439
Office 810.606.5180, Fax 810.606.7204
khodge@xxxxxxxxxxx


 

             Daniel Mielke

             <DMielke@xxxxxxx>

             Sent by:
To 
             cobol400-l-bounce         "'cobol400-l@xxxxxxxxxxxx'"

             s@xxxxxxxxxxxx            <cobol400-l@xxxxxxxxxxxx>

 
cc 
 

             03/17/2005 01:58
Subject 
             PM                        [COBOL400-L] SUBFILE starting at

                                       column 1 or line numbers

 

             Please respond to

             COBOL Programming

                  on the

               iSeries/AS400

             <cobol400-l@midra

                 nge.com>

 

 





Hi all,



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 is a screen shot of what I want to accomplish (conversion from
POWERHOUSE)



  Screen: DSCSUMM                AIC LIMITED               2005/03/17
13:36


  User  : MIELDAN            Account DSC Summary           DEV01
QPADEV000S




  Account Number:  12345678            ** Select a line for DSC details
**


  Account Name  : SMITH JOHN





Assign

#  Fund  Current bal        Free     Matured    Chargeable Free of DSC
Cert
Type

01 336       536.310      53.639     373.286 *     109.385     426.925


02 735        48.694       0.000       0.000         0.000       0.000


03


04


05


06


07


08


09


10






Bottom

  COMMAND:





 F3=Exit  F7=Backwards  F8=Next  F12=Cancel


 Enter the mode: F or S.




Any ideas?



BUY. HOLD. AND PROSPER



Daniel Mielke

Business Systems Analyst

AIC Limited

1-888-710-4242 x4614

dmielke@xxxxxxx <mailto:dmielke@xxxxxxx>

www.aic.com <http://www.aic.com>





------------------------------

message: 4
date: Thu, 17 Mar 2005 14:09:38 -0600 (CST)
from: "Jack Welch" <welchj@xxxxxxxx>
subject: RE: [COBOL400-L] SUBFILE starting at column 1 or line numbers

Daniel,

The character position before a display field is used for display
attribute control (HI, RI  etc.)   This field will be placed in
position 80 of the previous line when the field is in position 1.

On a non subfile record format this placement in position 80 causes
no apparent affect.   But in a subfile I believe it is placing the
position 80 on line 1 of the subfile entry, then the field ends up
wrapped to line 2.

You will likely need to shift everything one position to the right.


--Jack


_________________________________________________

> Thanks Karen,
>
> Here's the DDS.  If I position LINENO at column 1, the lines double
space.
>
>
> A*%%TS  SD  20050317  120815  MIELDAN     REL-V5R2M0  5722-WDS
> A*%%EC
> A                                      DSPSIZ(24 80 *DS3)
> A                                      INDARA
> A          R DSCSUMMRCD                SFL
> A*%%TS  SD  20050317  120815  MIELDAN     REL-V5R2M0  5722-WDS
> 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)
> A          R DSCSUMMCTL                SFLCTL(DSCSUMMRCD)
> A*%%TS  SD  20050310  164832  MIELDAN     REL-V5R2M0  5722-WDS
> A                                      CF03(03 'Exit')
> A                                      CF12(12 'Cancel')
> A                                      CF07(07 'Next')
> A                                      CF08(08 'Previous')
> A                                      OVERLAY
> A  40N41                               SFLDSP
> A N41                                  SFLDSPCTL
> A  41                                  SFLCLR
> A                                      SFLSIZ(0010)
> A                                      SFLPAG(0010)
> A                                  2  3'User'
> A                                  2  9':'
> A            USERID        10A  O  2 11TEXT('Current User ID')
> A                                  1  3'Screen:'
> A            SCREENNAME    10A  O  1 11TEXT('Screen Name')
> A            COMPANYNAM    30A  O  1 25TEXT('Company Name')
> A                                      DSPATR(RI)
> A            SCREENDESC    36A  O  2 22TEXT('Screen description')
> A            SYSTEMDATE    10A  O  1 60TEXT('System date YYYY/MM/DD')
> A            SYSTEMNAME    10A  O  2 60TEXT('System Name')
> A            SYSTEMTIME     8A  O  1 71TEXT('System Time')
> A            SYSDEVICE     10A  O  2 71TEXT('System Device (ie
QPADEV00001-
> A                                       etc.)')
> A                                  4  3'Account Number:'
> A                                  5  3'Account Name  :'
> A            ACCOUNT_NO     9A  B  4 19TEXT('Account Number')
> A                                      DSPATR(HI)
> A                                      CHECK(RB)
> A            ACCOUNTNAM    40A  O  5 19TEXT('Account Name')
> A                                      DSPATR(HI)
> A                                  4 40'** Select a line for DSC
details *-
> A                                      *'
> A                                      DSPATR(HI)
> A                                  7 75'Assign#  Fund  Current bal
-
> A                                      Free     Matured    Chargeable
Free-
> A                                       of DSC Cert Typ'
> A          R DSCSUMMCMD
> A*%%TS  SD  20050310  170608  MIELDAN     REL-V5R2M0  5722-WDS
> A                                      CF03(03 'Exit')
> A                                      CF07(07 'Backwards')
> A                                      CF08(08 'Forwards (Next)')
> A                                      CF12(12 'Cancel')
> A                                      OVERLAY
> A                                 21  3'COMMAND:'
> A            CMDINPUT      10A  I 21 12TEXT('Command input line')
> A                                 23  2'F3=Exit  F7=Backwards  F8=Next
F1-
> A                                      2=Cancel'
> A                                      COLOR(BLU)
> A            LISTSTATUS     6A  O 20 72TEXT('List scroll status')
>
>
> Without seeing your DSPF, it is hard to give an answer.
> You have to manipulate the rest of the fields on the subfile so that
that
> last position used is not 80.
>
>
> Thank you,
>
> Karen Hodge
> Senior System Analyst
> Genesys Health System
> 1000 Healthpark Blvd, Grand Blanc, Mi 48439
> Office 810.606.5180, Fax 810.606.7204
> khodge@xxxxxxxxxxx
>
>
>
>              Daniel Mielke
>              <DMielke@xxxxxxx>
>              Sent by:
To
>              cobol400-l-bounce         "'cobol400-l@xxxxxxxxxxxx'"
>              s@xxxxxxxxxxxx            <cobol400-l@xxxxxxxxxxxx>
>
cc
>
>              03/17/2005 01:58
Subject
>              PM                        [COBOL400-L] SUBFILE starting
at
>                                        column 1 or line numbers
>
>              Please respond to
>              COBOL Programming
>                   on the
>                iSeries/AS400
>              <cobol400-l@midra
>                  nge.com>
>
>
>
>
>
>
> Hi all,
>
>
>
> 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 is a screen shot of what I want to accomplish (conversion from
> POWERHOUSE)
>
>
>
>   Screen: DSCSUMM                AIC LIMITED               2005/03/17
13:36
>
>
>   User  : MIELDAN            Account DSC Summary           DEV01
> QPADEV000S
>
>
>
>
>   Account Number:  12345678            ** Select a line for DSC
details **
>
>
>   Account Name  : SMITH JOHN
>
>
>
>
>
> Assign
>
> #  Fund  Current bal        Free     Matured    Chargeable Free of DSC
Cert
> Type
>
> 01 336       536.310      53.639     373.286 *     109.385     426.925
>
>
> 02 735        48.694       0.000       0.000         0.000       0.000
>
>
> 03
>
>
> 04
>
>
> 05
>
>
> 06
>
>
> 07
>
>
> 08
>
>
> 09
>
>
> 10
>
>
>
>
>
>
> Bottom
>
>   COMMAND:
>
>
>
>
>
>  F3=Exit  F7=Backwards  F8=Next  F12=Cancel
>
>
>  Enter the mode: F or S.
>
>
>
>
> Any ideas?
>
>
>
> BUY. HOLD. AND PROSPER
>
>
>
> Daniel Mielke
>
> Business Systems Analyst
>
> AIC Limited
>
> 1-888-710-4242 x4614
>
> dmielke@xxxxxxx <mailto:dmielke@xxxxxxx>
>
> www.aic.com <http://www.aic.com>
>
>
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L)
mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>



------------------------------

_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.



End of COBOL400-L Digest, Vol 3, Issue 16
*****************************************


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 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.