QUSRMBRD - Retrieve Member Description

Retrieve Member Description

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):
C                            'MBRD0100':
C                             (peSrcFile+peSrcLib):
C                             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

Thanks to Scott Klement