Date for WrkNetF type MI call

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

Subject: Re: WRKNETF 
     From: Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx 
     Date: Fri, 5 Jan 2001 10:44:21 -0500 

Here's a way using MI builtins on security level 30.
Be prepared this could change in a new release.


     H dftactgrp( *no )

     FQSYSPRT   O    F  132        printer

     D RSLVSP2         PR                  extproc( '_RSLVSP2' )
     D   ReturnPtr                     *
     D   Name_Auth                   34A   const

     D RSLVSP4         PR                  extproc( '_RSLVSP4' )
     D   ReturnPtr                     *
     D   Name_Auth                   34A   const
     D   Library                       *

     D FNDINXEN        PR                  extproc( '_FNDINXEN' )
     D   Receiver                      *   value
     D   Index                         *
     D   Options                       *   value
     D   Argument                      *   value

     D Data            DS
     D   NetType                      1A   inz( *loval )
     D   NetFile                     10A   inz( *loval )
     D   NetLib                      10A   inz( *loval )
     D   NetNumber                   10U 0 inz( 0 )
     D                               95A   inz( *loval )

     D Options         DS
     D   Rule                         5U 0 inz( 2 )
     D   Length                       5U 0 inz( 25 )
     D   Offset                       5U 0 inz( 0 )
     D   Occurence                    5U 0 inz( 1 )
     D   Count                        5U 0 inz( 0 )
     D                                4A

     D Lib             S               *
     D Idx             S               *

     C     *entry        plist
     C                   parm                    UserId            8
     C                   parm                    Address           8

     C                   callp     RSLVSP2( Lib : X'0401' +
     C                             'QUSRSYS                       ' +
X'0000' )
     C                   callp     RSLVSP4( Idx : X'0ED1' + UserId +
Address +
     C                             '              ' + X'0000' : Lib )
     C                   dou       Count = 0
     C                   callp     FNDINXEN( %addr( Data ) : Idx :
     C                                       %addr( Options ) : %addr( Data
 ))
     C                   if        Count <> 0
     C                   except    LINE
     C                   endif
     C                   enddo
     C                   eval      *INLR = *on

     OQSYSPRT   E            LINE           1
     O                       NetType              1
     O                       NetFile             15
     O                       NetLib              27
     O                       NetNumber     3     37
+---
| 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
+---