×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
I'm using an API illustrated to Scotts page to help in validating a
user/pass on the ibmi... I'm not sure what I'm doing wrong to get the
error...
scotts link...
https://www.scottklement.com/rpg/socktut/valuserid.html
my code... (g_user and g_pass are both char(10))...
d qsygetph pr extpgm('QSYGETPH')
d userId like(g_user) const
d passWord like(g_pass) const
d handle like(l_handle)
d errorCode 32766 options(*varsize: *nopass)
d dsEC ds
d dsECBytesA 5 8i 0 inz(0)
d dsECMsgDta 17 256
d l_handle s 12 inz
// validate user/pass...
l_handle = ' ';
qsygetph(g_user
:g_pass
:l_handle
:dsEC);
if dsECBytesA > 0;
p_errMsg = 'User/Pass Not Valid';
return *on;
endif;
dsECBytesA keeps returning 28...
tia
Jay
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.
midrange.com
