|
midrange.com
Your subfile begins at line 7 and your page size is 15, which would bring
you to line 22.
Don't know if you have *more, but just for grins try this:
Change your page size from 15 to 13.
Then try it again.
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
rpg400-l-request@
midrange.com
Sent by: To
rpg400-l-bounces@ rpg400-l@xxxxxxxxxxxx
midrange.com cc
Subject
03/23/2005 02:54 RPG400-L Digest, Vol 4, Issue 333
PM
Please respond to
rpg400-l@midrange
.com
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."
Today's Topics:
1. RE: Footer records in subfile display (Dunfee, Randy)
2. RE: Footer records in subfile display - FIXED (Douglas W. Palme)
3. RE: SQL Date Type SQLRPGLE Program Error (Wilt, Charles)
4. RE: Footer records in subfile display (Holden Tommy)
5. Re: Footer records in subfile display - FIXED (Steve Landess)
----------------------------------------------------------------------
message: 1
date: Wed, 23 Mar 2005 14:37:35 -0500
from: "Dunfee, Randy" <rdunfee@xxxxxxxxxxxxx>
subject: RE: Footer records in subfile display
Maybe you're fixing one problem while restoring another. What you want is:
1. OVERLAY on the SFL control rcd.
2. SFL field and/or "+/more" not bleeding into FOOTER line.
3. WRITE the FOOTER before the EXFMT.
Randy Dunfee
-----Original Message-----
From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxxxxxxxxxxxx]
Sent: Wednesday, March 23, 2005 2:31 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Footer records in subfile display
I did have it there and it still gave me the same result, I have moved the
OVERLAY key word about ten times, even seeing if its position in relation
to
the other key words was having an effect but so far it hasn't made a
difference.
On Wed, 23 Mar 2005 14:25:04 -0500, Dunfee, Randy wrote
> Put the OVERLAY keyword on the SFL control format, NOT on the SFL!
>
> Randy Dunfee
>
> -----Original Message-----
> From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxxxxxxxxxxxx]
> Sent: Wednesday, March 23, 2005 1:51 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Footer records in subfile display
>
> I moved it from the load SR and placed it where you suggested and
> recompiled, but it still does not display, I have checked the
> FOOTER1 record
>
> and it should display on line 23 as well.....still nothing.
>
> On Wed, 23 Mar 2005 15:09:40 -0330, RPower wrote
> > I don't see the WRITE FOOTER statement. It should be like this:
> >
> > C EXSR LOAD
> > C DOU *IN12 = *ON
> > C eval *in51 = *on
> > ***************************************
> > C WRITE FOOTER
> > ***************************************
> > C EXFMT CMCTL
> > C ENDDO
> > C EVAL *INLR = *ON
> > C RETURN
> >
> > Ron Power
> > Programmer
> > Information Services
> > City Of St. John's, NL
> > P.O. Box 908
> > St. John's, NL
> > A1C 5M2
> > Tel: 709-576-8132
> > Email: rpower@xxxxxxxxxx
> > Website: http://www.stjohns.ca/
> >
>
___________________________________________________________________________
> > Success is going from failure to failure without a loss of
> > enthusiasm. - Sir Winston Churchill
> >
> > "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 23/03/2005 02:48 PM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> >
> > To
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > cc
> >
> > Subject
> > RE: Footer records in subfile display
> >
> > The write statment is before it is exfmt, but for some reason it
> > still is not displaying.
> >
> > I'll post the DDS and code for reference:
> >
> > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS
> > A*%%EC
> > A DSPSIZ(24 80 *DS3)
> > A R CMSFL SFL
> > A OVERLAY
> > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS
> > A DCUSTNO 9 O 7 3
> > A DCUSTNAME 25 O 7 15
> > A DSTATUS 1 O 7 44
> > A DSLSMN 10 O 7 55
> > A DSALES 8 2O 7 70EDTWRD(' , . ')
> > A R CMCTL SFLCTL(CMSFL)
> > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS
> > A CF12(12)
> > A 51 SFLDSP
> > A 51 SFLDSPCTL
> > A 52 SFLCLR
> > A SFLSIZ(0016)
> > A SFLPAG(0015)
> > A 1 3DATE
> > A EDTCDE(Y)
> > A 1 30'ILMO PRODUCTS COMPANY'
> > A 1 70USER
> > A 2 29'CUSTOMER MASTER DISPLAY'
> > A COLOR(WHT)
> > A 5 3'CUST NO'
> > A 5 15'CUSTOMER NAME'
> > A 5 42'STATUS'
> > A 5 55'DATE OPENED'
> > A 5 71'YTD SALES'
> > A 6
> > 3'==================================- A
> > ===================================- A
> > ========' A R FOOTER1 A*%%TS SD 20050322 144955
> > DPALME REL-V5R1M0 5722-WDS A
> > OVERLAY A 22 70'F12=CANCEL' A
> > COLOR(BLU)
> >
> > Here is the snippet of code
> >
> >
**************************************************************************
> > * MAINLINE
> >
> >
**************************************************************************
> > C EXSR LOAD
> > C DOU *IN12 = *ON
> > C eval *in51 = *on
> > C EXFMT CMCTL
> > C ENDDO
> > C EVAL *INLR = *ON
> > C RETURN
> >
> >
**************************************************************************
> >
> > * LOAD SUB FILE ROUTINE
> >
> >
**************************************************************************
> >
> > C LOAD BEGSR
> > C USRID CHAIN SECURITY
> > C EVAL DSLSMNNO = SALMNO
> > C EVAL *IN52 = *ON
> > C WRITE CMCTL
> > C EVAL *IN52 = *OFF
> > C DSLSMNNO CHAIN SLSMN
> > C READ SLSMN
> > C DOW dslsmnno = icmslsmn
> > C EVAL DCUSTNO = ICMCUST#
> > C EVAL DCUSTNAME = ICMNAME
> > C EVAL DSTATUS = ICMSTATUS
> > C EVAL DSALES = ICMSLSYTD
> > C ADD 1 RRN
> > C WRITE CMsfl
> > C READ SLSMN
> > C ENDDO
> > C ENDSR
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> > subscribe, unsubscribe, or change list options, visit:
> > http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> > L-request@xxxxxxxxxxxx Before posting, please take a moment to
> > review the archives at http://archive.midrange.com/rpg400-l.
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> > subscribe, unsubscribe, or change list options, visit:
> > http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> > L-request@xxxxxxxxxxxx Before posting, please take a moment to
> > review the archives at http://archive.midrange.com/rpg400-l.
>
> --
> Open WebMail Project (http://openwebmail.org)
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> subscribe, unsubscribe, or change list options, visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to
> review the archives at http://archive.midrange.com/rpg400-l.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> subscribe, unsubscribe, or change list options, visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to
> review the archives at http://archive.midrange.com/rpg400-l.
--
Open WebMail Project (http://openwebmail.org)
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
------------------------------
message: 2
date: Wed, 23 Mar 2005 11:37:37 -0800
from: "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>
subject: RE: Footer records in subfile display - FIXED
This has got to be the most idiotic mistake I have made in months and I
apologize to everyone for wasting your time. I sincerely apologize and I
mean that.
when I was making my changes to the DDS I was using the wrong file, I
somehow had duplicated the dds and was compiling the wrong file, it wasn't
being referenced in the RPGLE code.
Again, My on hands and knees apologies for wasting everyones time with such
a stupid mistake that I should have caught hours ago.
------------------------------
message: 3
date: Wed, 23 Mar 2005 14:35:25 -0500
from: "Wilt, Charles" <CWilt@xxxxxxxxxxxx>
subject: RE: SQL Date Type SQLRPGLE Program Error
Here's an example from the manual:
DDEPARTMENT DS OCCURS(10)
D DEPTNO 01 03A
D DEPTNM 04 32A
D MGRNO 33 38A
D ADMRD 39 41A
DIND_ARRAY DS OCCURS(10)
D INDS 4B 0 DIM(4)
...
C/EXEC SQL
C+ DECLARE C1 CURSOR FOR
C+ SELECT *
C+ FROM CORPDATA.DEPARTMENT
C/END-EXEC
...
C/EXEC SQL
C+ FETCH C1 FOR 10 ROWS
C+ INTO :DEPARTMENT:IND_ARRAY
C/END-EXEC
Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mike Wills
> Sent: Wednesday, March 23, 2005 1:53 PM
> To: Midrange_RPG400_L
> Subject: SQL Date Type SQLRPGLE Program Error
>
>
> I am hoping someone can help me understand why my code isn't working.
> On my file, there is some SQL date data types defined. For example:
>
> D gResultDs E DS EXTNAME(DBAPAPI)
> 75=D DAPICMPNY 4B 0
> 76=D DAPIVENDOR 9A
> 77=D DAPIINVC 22A
> 78=D DAPISUFFIX 4B 0
> 79=D DAPICNCLSQ 4B 0
> 80=D DAPICNCLDT 10D DATFMT (*ISO-)
> 81=D DAPIBTCHNM 9B 0
> 82=D DAPIBTCHDT 10D DATFMT (*ISO-)
> 83=D DAPIVCHNBR 10A
> 84=D DAPIATHCD 3A
> 85=D DAPIPRCLVL 5A
> 86=D DAPIACCRCD 4A
> 87=D DAPIINVOTY 1A
> 88=D DAPIINVCRR 5A
> 89=D DAPIPYCRRN 5A
> 90=D DAPIINSTIN 10D DATFMT (*ISO-)
> 91=D DAPIPRFRLC 4A
> 92=D DAPIPNMBR 14A
>
> I am doing a "select *" and putting the results in gResultDs. I am
> getting a SQLSTT of 22008 and SQLCOD of -183. The text for the error
> is: Datetime field overflow occured; for example an arithmetic
> operation on a date or timestamp has a result that is not within the
> valid range of dates.
>
> Using UPDDTA, I don't see any invalid dates. There are a couple that
> are "0" (0001-01-01), all of the rest are within this last year or so.
> Any ideas for me?
>
> --
> Mike Wills
> Midrange Programmer/Lawson Administrator
> koldark@xxxxxxxxx
> http://www.mikewills.name
> Want Gmail? Email koldark+gmail@xxxxxxxxx to get on my waiting list.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
------------------------------
message: 4
date: Wed, 23 Mar 2005 13:42:20 -0600
from: Holden Tommy <Tommy.Holden@xxxxxxxxxxxxxxxxx>
subject: RE: Footer records in subfile display
the DDS you listed below shows the FOOTER to display on line 22....
try SFLSIZ(15) SFLPAG(14)
and change the footer line to 23
then try it again...
Thanks,
Tommy Holden
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: Wednesday, March 23, 2005 1:31 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Footer records in subfile display
I did have it there and it still gave me the same result, I have moved the
OVERLAY key word about ten times, even seeing if its position in relation
to
the other key words was having an effect but so far it hasn't made a
difference.
On Wed, 23 Mar 2005 14:25:04 -0500, Dunfee, Randy wrote
> Put the OVERLAY keyword on the SFL control format, NOT on the SFL!
>
> Randy Dunfee
>
> -----Original Message-----
> From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxxxxxxxxxxxx]
> Sent: Wednesday, March 23, 2005 1:51 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Footer records in subfile display
>
> I moved it from the load SR and placed it where you suggested and
> recompiled, but it still does not display, I have checked the
> FOOTER1 record
>
> and it should display on line 23 as well.....still nothing.
>
> On Wed, 23 Mar 2005 15:09:40 -0330, RPower wrote
> > I don't see the WRITE FOOTER statement. It should be like this:
> >
> > C EXSR LOAD
> > C DOU *IN12 = *ON
> > C eval *in51 = *on
> > ***************************************
> > C WRITE FOOTER
> > ***************************************
> > C EXFMT CMCTL
> > C ENDDO
> > C EVAL *INLR = *ON
> > C RETURN
> >
> > Ron Power
> > Programmer
> > Information Services
> > City Of St. John's, NL
> > P.O. Box 908
> > St. John's, NL
> > A1C 5M2
> > Tel: 709-576-8132
> > Email: rpower@xxxxxxxxxx
> > Website: http://www.stjohns.ca/
> >
>
___________________________________________________________________________
> > Success is going from failure to failure without a loss of
> > enthusiasm. - Sir Winston Churchill
> >
> > "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 23/03/2005 02:48 PM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> >
> > To
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > cc
> >
> > Subject
> > RE: Footer records in subfile display
> >
> > The write statment is before it is exfmt, but for some reason it
> > still is not displaying.
> >
> > I'll post the DDS and code for reference:
> >
> > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS
> > A*%%EC
> > A DSPSIZ(24 80 *DS3)
> > A R CMSFL SFL
> > A OVERLAY
> > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS
> > A DCUSTNO 9 O 7 3
> > A DCUSTNAME 25 O 7 15
> > A DSTATUS 1 O 7 44
> > A DSLSMN 10 O 7 55
> > A DSALES 8 2O 7 70EDTWRD(' , . ')
> > A R CMCTL SFLCTL(CMSFL)
> > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS
> > A CF12(12)
> > A 51 SFLDSP
> > A 51 SFLDSPCTL
> > A 52 SFLCLR
> > A SFLSIZ(0016)
> > A SFLPAG(0015)
> > A 1 3DATE
> > A EDTCDE(Y)
> > A 1 30'ILMO PRODUCTS COMPANY'
> > A 1 70USER
> > A 2 29'CUSTOMER MASTER DISPLAY'
> > A COLOR(WHT)
> > A 5 3'CUST NO'
> > A 5 15'CUSTOMER NAME'
> > A 5 42'STATUS'
> > A 5 55'DATE OPENED'
> > A 5 71'YTD SALES'
> > A 6
> > 3'==================================- A
> > ===================================- A
> > ========' A R FOOTER1 A*%%TS SD 20050322 144955
> > DPALME REL-V5R1M0 5722-WDS A
> > OVERLAY A 22 70'F12=CANCEL' A
> > COLOR(BLU)
> >
> > Here is the snippet of code
> >
> >
**************************************************************************
> > * MAINLINE
> >
> >
**************************************************************************
> > C EXSR LOAD
> > C DOU *IN12 = *ON
> > C eval *in51 = *on
> > C EXFMT CMCTL
> > C ENDDO
> > C EVAL *INLR = *ON
> > C RETURN
> >
> >
**************************************************************************
> >
> > * LOAD SUB FILE ROUTINE
> >
> >
**************************************************************************
> >
> > C LOAD BEGSR
> > C USRID CHAIN SECURITY
> > C EVAL DSLSMNNO = SALMNO
> > C EVAL *IN52 = *ON
> > C WRITE CMCTL
> > C EVAL *IN52 = *OFF
> > C DSLSMNNO CHAIN SLSMN
> > C READ SLSMN
> > C DOW dslsmnno = icmslsmn
> > C EVAL DCUSTNO = ICMCUST#
> > C EVAL DCUSTNAME = ICMNAME
> > C EVAL DSTATUS = ICMSTATUS
> > C EVAL DSALES = ICMSLSYTD
> > C ADD 1 RRN
> > C WRITE CMsfl
> > C READ SLSMN
> > C ENDDO
> > C ENDSR
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> > subscribe, unsubscribe, or change list options, visit:
> > http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> > L-request@xxxxxxxxxxxx Before posting, please take a moment to
> > review the archives at http://archive.midrange.com/rpg400-l.
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> > subscribe, unsubscribe, or change list options, visit:
> > http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> > L-request@xxxxxxxxxxxx Before posting, please take a moment to
> > review the archives at http://archive.midrange.com/rpg400-l.
>
> --
> Open WebMail Project (http://openwebmail.org)
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> subscribe, unsubscribe, or change list options, visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to
> review the archives at http://archive.midrange.com/rpg400-l.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> subscribe, unsubscribe, or change list options, visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to
> review the archives at http://archive.midrange.com/rpg400-l.
--
Open WebMail Project (http://openwebmail.org)
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
------------------------------
message: 5
date: Wed, 23 Mar 2005 13:52:50 -0600
from: "Steve Landess" <sjl_abc@xxxxxxxxxxx>
subject: Re: Footer records in subfile display - FIXED
> Douglas W. Palme wrote:
> This has got to be the most idiotic mistake I have made in months and I
> apologize to everyone for wasting your time. I sincerely apologize and I
> mean that.
Doug -
It happens to all of us...
One time I spent almost 8 hours debugging a program and the problem was
that
I had overlooked a commented-out line of code - since that time (in 1983),
I
ALWAYS put something like ***@@@ on lines that I comment out to make them
stand out!
Steve
------------------------------
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
End of RPG400-L Digest, Vol 4, Issue 333
****************************************
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.
