Re: Passing decimal data

When you do the SBMJOB you are putting the number in some parameter - the system does not know what the data type of the parameter is anymore, so it assumes it is packed 15,5.

I've posted the official word on this in the last week here - search the archive for my name - one of the posts will have a link to the CL Concepts manual, where somewhere above page 200 is a discussion of calling programs with parameters.

You either have to format the number in hexadecimal or put a command wrapper around it. There is an API you can call to get the hex-equivalent - cvtch - and it's not even too hard to use. Google on that and you should get ways to do it.

But the command wrapper is the most reliable thing. And easiest to document.

HTH
Vern

-------------- Original message --------------
From: Michael Soucy <michaelsoucy@xxxxxxxxxxx>

I'm looking for some help with passing decimal data from a CL to a RPG program.
I have a CL program where it brings up a green screen display file (prompt
screen) and asks the user to enter in a couple of fields. One of the fields is
a 2 digit decimal field. Once the data is entered I would like to pass the data
to a series of CLs that are submitted to batch, and in turn pass the data to a
couple of RPG programs. When I run my CL I get a decimal data area in the RPG
program. The parameter field in my RPG program is defend as 2 digit packed
decimal field. The paramter in the CL program that calls the RPG program is
defined is 2 digit decimal field. I know this should be something simple, but I
can't for the life of me figure out what I'm doing wrong. Any ideas where I'm
going wrong?

Michael Soucy
michaelsoucy@xxxxxxxxxxx

--
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.