Re: QUSLMBR API... Change date is blank always?

Does it work on PF-DTA file members?  That's where mine
seems to fail.

Brad

On Sun, 23 Sep 2001 02:00:33 -0500 (CDT)
 Scott Klement <klemscot@klements.com> wrote:
>
> On Sat, 22 Sep 2001, Brad Stone wrote:
> > I've been messing around with some APIs.  I tried the
> > QUSLMBR (list member) API.  Things work ok, except the
> last
> > change date field seems to always be blank.
> >
> > I also tried the QUSRMBRD (retrieve member description)
> API
> > and it was blank there too.
> >
>
>
> Hi Brad,
>
> I use QUSRMBRD to retrieve the change date on source
> members frequently...
> haven't had any problems.
>
> Here's teh code that I use...  It was originally written
> under V3R2, but
> I still use it without problems on V4R5:
>
>
> P SrcChanged      B
> D SrcChanged      PI            13P 0
> D   peSrcFile                   10A   const
> D   peSrcLib                    10A   const
> D   peSrcMbr                    10A   const
>
> D dsEC            DS
> D  dsECBytesP             1      4I 0 Inz(256)
> D  dsECBytesA             5      8I 0 Inz(0)
> D  dsECMsgID              9     15
> D  dsECReserv            16     16
> D  dsECMsgDta            17    256
>
> D RtvMbrD         PR                  ExtPgm('QUSRMBRD')
> D   RcvVar                       1A
> D   RcvVarLen                   10I 0 Const
> D   Format                       8A   Const
> D   QualDBF                     20A   Const
> D   Member                      10A   Const
> D   UseOvrDbf                    1A   Const
> D   ErrorCode                    1A
>
> D dsSM            ds
> D   dsSMBytRtn                  10I 0
> D   dsSMBytAvl                  10I 0
> D   dsSMFilNam                  10A
> D   dsSMFilLib                  10A
> D   dsSMFilMbr                  10A
> D   dsSMFilAtr                  10A
> D   dsSMSrcTyp                  10A
> D   dsSMCrtDat                  13A
> D   dsSMChgDat                  13A
> D   dsSMText                    50A
> D   dsSMSrcFil                   1A
>
> D wkReturn        s             13P 0
>
> C                   callp     RtvMbrD(dsSM: %size(dsSM):
> 'MBRD0100':
> C
> (peSrcFile+peSrcLib):peSrcMbr: '0': dsEC)
>
> c                   if        dsECBytesA>0
> c                   return    -1
> c                   endif
>
> c                   testn                   dsSMChgDat
> 99
> c                   if        *in99 = *off
> c                   return    -2
> c                   endif
>
> c                   move      dsSMChgDat    wkReturn
> c                   return    wkReturn
> P                 E
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/midrange-l.
>

Bradley V. Stone
BVS.Tools
www.bvstools.com