SETSYSTEMVAL Problem
James J. Kanihan
JimK@nacs-inc.com
Thu, 28 Oct 1999 09:44:23 -0700
This is a multi-part message in MIME format.
------=_NextPart_000_0091_01BF2129.03F86750
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Hello everyone,
Can anyone explain to me why PowerHouse (7.29 C6 and 8.19 C4 on MPE/iX) =
insists on setting system variables as numeric values even when they are =
defined in the program to be character strings?
Check out the following example which shows how SETSYSTEMVAL differs =
from the MPE SETVAR command:
:QTP
Q T P (PowerHouse 8.19.C4)
Copyright 1999 COGNOS INCORPORATED
NACS
> ACC COMP-M
> CHOOSE COMPCTRL '01'
> DEFINE X INTEGER =3D 1 IF SETSYSTEMVAL('SYSV_COMP', '01') ELSE 0
> DEFINE Y INTEGER =3D 1 IF SETSYSTEMVAL('SYSV_DATE', '00000000') ELSE 0
> SUBFILE TEMPSF INCLUDE X, Y
> GO
Executing request 1 ...
Records read:
COMP-M 1
Transactions processed: 1
Records processed: Added Updated Unchanged =
Deleted
TEMPSF 1 0 0 =
0
Finished.
> E
END OF PROGRAM
:SHOWVAR SYSV@
SYSV_COMP =3D 1
SYSV_DATE =3D 0
:SETVAR SYSV_COMP '01'
:SETVAR SYSV_DATE '00000000'
:SHOWVAR SYSV@
SYSV_COMP =3D 01
SYSV_DATE =3D 00000000
:
Any help with this will be greatly appreciated.
Thanks,
Jim Kanihan
jimk@nacs-inc.com
------=_NextPart_000_0091_01BF2129.03F86750
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV><FONT face=3D"Courier New">Hello everyone,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Can anyone explain to me why PowerHouse =
(7.29 C6=20
and 8.19 C4 on MPE/iX) insists on setting system variables as numeric =
values=20
even when they are defined in the program to be character =
strings?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Check out the following example which =
shows how=20
SETSYSTEMVAL differs from the MPE SETVAR command:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">:QTP</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Q T P (PowerHouse =20
8.19.C4)<BR>Copyright 1999 COGNOS INCORPORATED<BR>NACS</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">> ACC COMP-M<BR>> CHOOSE COMPCTRL=20
'01'<BR>> DEFINE X INTEGER =3D 1 IF SETSYSTEMVAL('SYSV_COMP', '01') =
ELSE=20
0<BR>> DEFINE Y INTEGER =3D 1 IF SETSYSTEMVAL('SYSV_DATE', =
'00000000') ELSE=20
0<BR>> SUBFILE TEMPSF INCLUDE X, Y<BR>> GO</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Executing request 1 ...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Records read:<BR> =20
COMP-M &=
nbsp; &n=
bsp; =20
1</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Transactions=20
processed: &nb=
sp; =20
1</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Records=20
processed: &nb=
sp; =20
Added Updated Unchanged =20
Deleted<BR> =20
TEMPSF &=
nbsp; &n=
bsp; =20
1 =20
0 =20
0 0</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Finished.<BR>> E</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">END OF PROGRAM<BR>:SHOWVAR =
SYSV@<BR>SYSV_COMP =3D=20
1<BR>SYSV_DATE =3D 0</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">:SETVAR SYSV_COMP '01'<BR>:SETVAR =
SYSV_DATE=20
'00000000'<BR>:SHOWVAR SYSV@<BR>SYSV_COMP =3D 01<BR>SYSV_DATE =3D=20
00000000<BR>:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Any help with this will be greatly=20
appreciated.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Thanks,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New">Jim Kanihan</FONT></DIV>
<DIV><FONT face=3D"Courier New"><A=20
href=3D"mailto:jimk@nacs-inc.com">jimk@nacs-inc.com</A></FONT></DIV>
<DIV> </DIV></DIV></BODY></HTML>
------=_NextPart_000_0091_01BF2129.03F86750--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.