|
Mike, Change: D ParmRcvLen s 4B 0 INZ(80) To: D ParmRcvLen s 9B 0 INZ(80) or: D ParmRcvLen s 10i 0 INZ(80) and try it again. Bruce > >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 > > >Have I missed nething obvious ? > >Mike > +--- | 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 +---
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.