|
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 mailing list archive is Copyright 1997-2024 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.
midrange.com
