Unable to return last entry in array within Quiz
Paterson, Neil R SUKEP-UEIM/ASP
Neil.Paterson@Shell.com
Mon, 27 Oct 2003 10:24:42 -0000
This is a multi-part message in MIME format.
------_=_NextPart_001_01C39C74.88D62717
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi,
Hoping some expert may be able to point me in the right direction.
My quiz report is not returning the final value in an array from a =
table.
Report is run over a year starting in October through to September ie =
WS-MTH-NO =3D 10
Array MONTHLY-PBP has figures in for each month, MONTHLY-PBP(1) refers =
to October, etc
The code below returns the data correctly for every month in the year, =
apart for the last month, September.
DEFINE WS-MTH-NO NUMURIC*2 =3D NCONVERT(WS-DATE[5:2])
DEFINE MTH-PTR NUMERIC*2 =3D WS-MTH-NO + 3 IF WS-MTH-NO < 10 &
ELSE WS-MTH-NO - 9
DEFINE WS-PBP-PRICE NUMERIC*8 =3D MONTHLY-PBP(MTH-PTR) OF TABLE
FOOTING AT WS-MTH-NO &
SKIP 1 &
TAB 70 WS-PBP-PRICE &
PICTURE "^^^.^^^^" OUTPUT SCALE 0 SIGNIF 6 =20
Am I doing something stupid???
Any help greatly appreciated.
Thanks,
Neil Paterson
------_=_NextPart_001_01C39C74.88D62717
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
6.0.6396.0">
<TITLE>Unable to return last entry in array within Quiz</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/rtf format -->
<BR>
<P><FONT SIZE=3D2 FACE=3D"Arial">Hi,</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Hoping some expert may be able to point =
me in the right direction.</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">My quiz report is not returning the =
final value in an array from a table.</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Report is run over a year starting in =
October through to September ie WS-MTH-NO =3D 10</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">Array MONTHLY-PBP has figures in for =
each month, MONTHLY-PBP(1) refers to October, etc</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">The code below returns the data =
correctly for every month in the year, apart for the last month, =
September.</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">DEFINE WS-MTH-NO NUMURIC*2 =3D =
NCONVERT(WS-DATE[5:2])</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">DEFINE MTH-PTR NUMERIC*2 =3D WS-MTH-NO =
+ 3 IF WS-MTH-NO < 10 &</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"> ELSE WS-MTH-NO - 9</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">DEFINE WS-PBP-PRICE NUMERIC*8 =3D =
MONTHLY-PBP(MTH-PTR) OF TABLE</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">FOOTING AT WS-MTH-NO =
&</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"> SKIP 1 &</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"> TAB 70 =
WS-PBP-PRICE &</FONT>
<BR><FONT SIZE=3D2 =
FACE=3D"Arial"> &nbs=
p; PICTURE "^^^.^^^^" OUTPUT SCALE 0 SIGNIF =
6 =
</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Am I doing something stupid???</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">Any help greatly appreciated.</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Thanks,</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">Neil Paterson</FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C39C74.88D62717--