Re: Date for WrkNetF type MI call -- MI400

Hi Dave, Jim,

Jim, another way to convert the date data (and I'm sure Dave will correct me
if I'm wrong) would be the old data structure redefinition method:

    D             DS
    D DateChar            8A
    D DateDate             D    overlay(DateChar:1)

which might be simpler than the API.

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "Dave McKenzie" <davemck@galois.com>
To: <MI400@midrange.com>
Sent: Wednesday, January 10, 2001 12:58 PM
Subject: Re: Date for WrkNetF type MI call


> The magic numbers are hex type and sub-type codes for a library (X'0401')
and a
> distribution index (X'0ED1' - X'0E' is the type for an index, and X'D1'
the
> subtype for this particular kind of index).  A list of some of the common
types
> is in the MI Functional Reference manual, and you can see others by
dumping
> objects of various types.
>
> The send and arrival dates are at position 57 and 65 in the returned data,
> respectively.  They are in 8-byte "system time-stamp" format (*DTS).  You
can
> convert them to a more friendly form using the QWCCVTDT API, described in
the
> Miscellaneous API's manual.  Any time you see 8-byte data (the last 2 or 3
bytes
> may be zero) starting with hex 7 or hex 8, you can suspect it to be a
> timestamp.  (Those starting with 8 are on or after Jan 1, 2000, and those
> starting with 7 are before.)
>
> --Dave
>
> Jim Langston wrote:
>
> > Gene sent me this code to replicate WRKNETF in RPG using MI.
> > It works great, and I have stuck in in a service program and
> > am starting to use it, but now I realize I also need to know
> > the date the file was sent to me.
> >
> > I see this when I go to WRKNETF and so I started looking into
> > the buffer that is being returned by this call in the Data
> > data structure.  Using the debugger I did not see any place the
> > date could be stored (looking into the 95 bytes that is not
> > being used).  In fact for a few records those 95 bytes were
> > exactly the same even thought he dates I know were different.
> >
> > I tried to figure out what this code was doing so maybe I could
> > figure it out myself, but didn't get far.  I have next to no
> > knowledge what is actually going on here, or what the X'0401'
> > and X'0ED1' magic numbers mean, nor even where to look to try
> > to figure it out.
> >
> > Can someone help me out here and tell me/show me how to modify
> > this code to get the date the file was sent/received?
> >
> > >From the WRKNETF command:
> >
> >
                               File   -------From-------  ----Arrival----
> >  Opt  File        Member       Number  User ID   Address   Date
Time
> >       INRECX      BRECX001         27  SIMS      CONEX     01/03/01
23:48
> >                                                            ^^^^^^^^
> >                                                            Info I need
also.
> >
> > Thanks,
> >
> > Jim Langston
>
> +---
> | This is the MI Programmers Mailing List!
> | To submit a new message, send your mail to MI400@midrange.com.
> | To subscribe to this list send email to MI400-SUB@midrange.com.
> | To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
dr2@cssas400.com
> +---

+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---