RE: Data decimal data error on call

I would like to thank everyone for there help. When I set the DCL to 15.5 and 
then changed my
program. Everything started working.
Again, Thanks..
William....

-----Original Message-----
From: Paul Morgan [mailto:pmorgan@xxxxxxxxxxxxxx]
Sent: Monday, April 25, 2005 9:14 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Data decimal data error on call


Willie,

This is a problem with the call to MOHTSTCL from the command line.  When you
pass a number as a parameter on the CALL statement it's always formatted as
a 15.5 decimal number.  You can call the program with:

CALL WJMLIB/MOHTSTCL 'M188330' X'1050401F'

or you can create a simple command to front end the MOHTSTCL program:

MOHTSTCMD ORDER(M188330) DATE(040105)

or you could define &DTE in the CL program as *CHAR LEN(8) (the way you're
passing the value) then covert it to *DEC LEN(7 0) to make it easier to pass
the date from the command line.

Paul
-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

Willie wrote

> What I thought would be an easy program has not turned out that way.
> What I need to do is pass two parameters (&ordno chara 7 & &dte dec 70) to
program MOHTST.  When I do the call (call pgm(wjmlib/mohtstcl) 'M188330'
01050401). I get an error about a data decimal data error and it is on the
call statement. When I display the two fields the ordno fields has the
correct data in it.  The dte field has 000010504. It should have 1050401.
> If I change the DTE to a character, the program runs fine.
> Below is a copy of the CL and RPG the key for file mohmst.
> I would appreciate any/and help on this.
> William Moore



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