Re: Compute Date Duration -- MI400


On 15/10/2005, at 2:27 AM, Dave McKenzie wrote:

In the CDD documentation it says "The DDAT for operand 1 must be validfor a date duration."
In the list of format codes it lists "Date duration" (x14) as separatefrom the "Labeled durations" (x0D - x13).
Maybe that means that the only valid format code for operand 1 is x14.

We'd know more if we got to see the MCH5601 message in its entirety.I'm inclined to agree with you. CDD returns a "Date Duration". Comparethat with DECD and INCD which both accept a Duration for Operand 3."Duration" being more generic implies that labelled duration might bevalid. The DECD and INCD instructions also state that the DDAT forOperand 3 must be valid for a date duration like CDD does but note theuse of italics in the description for each instruction:

        CDD:    ... resulting <i>date duration</i> is placed in operand 1.

DECD: ... is decrememted by the date <i>duration</i> specified byoperand 3.INCD: ... is incremented by the date <i>duration</i> specified byoperand 3.

CDD implies a a specific Date Duration (i.e., x'14'). DECD and INCDimply any kind of date duration (e.g., x'0d' to x'13). Subtledistinction but perhaps enough to explain the behaviour. Time for someexperimentation I think--but, it's the weekend and the sun is shiningout of a clear blue sky.

        Spring has sprung
        The grass has riz
        I wonder where the boidies is

In any case, I don't know exactly what a "labeled duration" is.

A date duration is an 8-digit value interpreted as YYYYMMDD but it'snot a DATE even though it looks like one. It is a duration of YYYYyears, MM months, and DD days.

A "labelled duration" is just a number. It can be interpreted as years,months, days (for the DATE types) according to the format code. Theformat code specifies the "label" applied to the number.


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  / \
--------------------------------------------------------------------