Re: Compute Date Duration -- MI400


On 11/10/2005, at 6:48 PM, Beppe Costa wrote:

Simon,
I don't think that there is a validation on the output parameterbecause
it's only a pointer.

Are you trying to run CDD from C or MI? If from C then you pass apointer to a packed decimal variable. If from MI then you pass thescalar itself.

The error you reported is caused by validating the 4th input parameter.All MI instructions that accept a template validate the content of thetemplate. When the template contains an invalid value the MCH5601message is sent. This message tells you exactly what part of thetemplate is invalid.

Btw I'm missing something because the DDAT1 duration in x0014 isreturnedcorrectly with ISO and YMD date but I can't get it with other dateformat.And in any case I can never get a Labeled Duration. Unfortunately theonlydocumentation is from a single page in the MI functional reference andan
example in C that uses ISO dates. I've found nothing else.

http://publib/boulder.ibm.com/infocenter/iseries/v5r3/topic/rzatk/topics.htm


Click Date/Time/Timestamp

Click Date/Time Concepts

Read carefully.

Thanks in any
case for your  response.
Giuseppe.


----- Original Message -----
From: "Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>
To: "MI Programming on the AS400 / iSeries" <mi400@xxxxxxxxxxxx>
Sent: Monday, October 10, 2005 11:41 PM
Subject: Re: [MI400] Compute Date Duration


On 10/10/2005, at 10:53 PM, Beppe Costa wrote:

I'm trying to use the the MI CDD.

When Operand1 is a DDAT x'0014' (Date Duration) I get the right value
expressed in Years, Month and Days but when Operand1 is x'000F'
(Labeled Duration DAY) I always get a "template value invalid".

Show the complete message text of the MCH5601 message. Thesubstitution

text will usually tell you what part of the template is wrong.

My guess is that the variable containing the duration value is of the
wrong type. For x'0014' it must be PKD(8,0) but for x'000F' it must be
PKD(15,0)

Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         AS/400 Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
    Fax:   +61 3 9419 0175                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------


_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.


_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.