|
midrange.com
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
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
