Re: Date for WrkNetF type MI call -- MI400

Dave,

I browsed through my QUSRSYS library looking for the object that this program
is reading, the "Distribution Index", and could not find it.  From what I am
understanding on this, this routine is reading a distribution index in my 
QUSRSYS library named what I am giving it (in this case, QPGMR).  I could not
find any distribution indexes, nor anything named QPGMR.  Where is my thinking
flawed?

Regards,

Jim Langston

Dave McKenzie wrote:
> 
> 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
+---