*DTS data in msgdta

[bvining@xxxxxxxxxxxx]

Use the Convert Date and Time Format (QWCCVTDT) API documented in the
Miscellaneous chapter of the System API Reference.  *DTS is one of the
supported formats.

Bruce Vining

>
>I am doing a RCVMSG monitoring a message queue.  Currently the
>most important message is CPI8050.  When a do a DSPMSGD on CPI8050
>it has the following data fields:
>Field     Data Type     Length
> &1       *CHAR             8
> &2       *CHAR             8
> &3       *CHAR             8
> &4       *CHAR             8
> &5       *CHAR            10
> &6       *CHAR            10
> &7       *CHAR             6
> &8       *DTS
> &9       *DTS
> &10      *BIN              4
> &11      *CHAR             7
>
>I've discovered that &8 and &9 take up 8 positions each in the
>msgdta.  I do the following in my CL:
>/*
> | SENTTIME & RCVDTIME are both stored funky and I haven't been
> | able to figure them out.
>*/
>         CHGVAR     VAR(&SENTTIME) VALUE(%SST(&MSGDTA 59  8))
>         CHGVAR     VAR(&RCVDTIME) VALUE(%SST(&MSGDTA 67  8))
>How do I convert the above into human readable?
>I've tried breaking up &SENTTIME into four 2 character binary fields
>and two 4 character binary fields, and doing
>CHGVAR     VAR(&NUMERIC) VALUE(%BINARY(&BIN4))   or &BIN2
>and none of the chunks made sense.
>
>The way to generate CPI8050 is to do a SNDNETF.
>
>The CL programming guide has the following about using *DTS in message
>descriptions:
>
>The following data types are valid only in IBM-supplied message
>descriptions and should not be used for other messages:
>
>:   Time interval (*ITV).  An 8-byte time interval that contains the
>    time to the nearest whole second for various wait time out conditions.
>
>:   Date and time stamp (*DTS).  An 8-byte system date and time stamp for
>    which the date is to be formatted as specified in the QDATFMT and
>    QDATSEP system values and the time is to be formatted as hh:mm:ss.
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---