Re: Data decimal data error on call

["Paul Morgan" <pmorgan@xxxxxxxxxxxxxx>]

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