I'm confused as to what you're trying to do.
What I see in your email is a service program. The module has *NoMain
specified. You can't do that on a callable VARPG program. As Booth
said, there are no components here. I don't believe you can
interactively call a VARPG program that has no means of displaying.
Also, the Dsply opcode works differently in VARPG. You need to define a
message in the project and then link to that in the DSPLY opcode.
Example:
D Mbx_Error M MsgNbr( *MSG0001 )
D MsgData( msgDesc )
D msgDesc S 132a Inz Varying
// Display an error message for the user.
msgDesc = 'User Log-on Failed. Application will be
terminated.';
Dsply(e) Mbx_Error;
And when you define this message in the project, the text would simply
be %1 (which represents a parameter, which is the msgDesc field).
Also, since it sounds like you're exploring, understand that VARPG is
not really going anywhere (except away?). It uses an editor that was
deprecated by IBM. It has a very small community. And it's not seeing
any more enhancements (afaik, except possibly compatibility with current
RPG versions, or attempts to).
That said, feel free to keep asking questions, I'll do my best to
respond.
Kurt Anderson
Application Developer
Highsmith Inc
-----Original Message-----
From: wdsci-l-bounces@xxxxxxxxxxxx [mailto:wdsci-l-bounces@xxxxxxxxxxxx]
On Behalf Of DLee@xxxxxxxx
Sent: Friday, November 02, 2007 9:31 AM
To: Websphere Development Studio Client for iSeries
Subject: Re: [WDSCI-L] Fooling around with VRPG
Booth;
Yes, it builds fine. Here is the pgm called MyPgm, which passes an
input parm, which I specified in Project/command line parameters option.
Is there somewhere
H
H EXE
H*NOMAIN
* Sample standalone VARPG program
*
* Prototype for the main procedure
D MyPgm PR
D 64A Value
*
* Procedure definition for MYPGM
PMyPgm B
*
D MyPgm PI
D InString 64A Value
*
D OutString S 64A
*
D LC C 'abcdefghijklmnopqrstuvwxyz'
D UC C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
*
* Translate input parameter to uppercase and display it
C lc:uc Xlate InString OutString
C OutString Dsply I 1
*
PMyPgm E
<Does it build ok? No halts? Which demo program are you working with?>
Darrell Lee
Information Technology
Extension 7127
--
This is the Websphere Development Studio Client for iSeries (WDSCI-L)
mailing list To post a message email: WDSCI-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/wdsci-l.
midrange.com
