RE: QSYRUPWD API

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Although I haven't used this API, your error is probably the most common one
made with API's.  Change your definition of ParmRcvLen to 10i 0.  If a
binary is defined using the from/to as in RcvBR then it is correct but just
defining a length of 4 does not give you the proper size.

> -----Original Message-----
> From: Mike.Barton@ecsoft.co.uk [SMTP:Mike.Barton@ecsoft.co.uk]
> Sent: Tuesday, April 11, 2000 5:18 AM
> To:   RPG400-L@midrange.com
> Subject:      QSYRUPWD API
> 
> 
> 
> Hi
>      has anyone used the QSYRUPWD api ?
> 
> I keep on getting CPF3C19 Error occurred with receiver variable specified
> Cause . . . . . :   An error occurred while copying information into the
>   receiver variable specified.
> 
> My program is pretty straightforward:
> 
> D ParmRcvLen      s              4B 0 INZ(80)
> D ParmRcv         DS            80
> D   RcvBR                 1      4B 0
> D   RcvBA                 5      8B 0
> D   RcvPrf                9     18A
> D   RcvPwd               19     80A
>  *
> D DS0ec           DS
> D  DS0e1                  1      4B 0 INZ(0)
> D  DS0e2                  5      8B 0 INZ(0)
> D  DS0eid                 9     15
> D  DS0res                16     16
> D  DS0txt                17     30
> C     *entry        plist
> C                   parm                    Prf              10
> 
> C     rtvpwd        plist
> C                   parm                    ParmRcv
> C                   parm                    ParmRcvLen
> C                   parm      'UPWD0100'    ParmFormat        8
> C                   parm      Prf           ParmPrf          10
> C                   parm                    DS0ec
> 
> C                   Call      'QSYRUPWD'    rtvpwd
> 
> C                   eval      *inlr = *on
> 
> We are on V4R1.
> The manual documentation for the parms is:
> +--- Parameters ---------------------------------------------------------+
> << File: ATT10152.txt >> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---