Hi,

Could anyone please share Master files for change password and guide us how to update the password for a wf user from webfocus using RESTful Webservices.

Thanks in advance!!!

This message has been edited. Last edited by: FP Mod Chuck,

Here you go:

changepassword.mas:
FILENAME=M6ILO, SUFFIX=REST , $
SEGMENT=M6ILO, SEGTYPE=S0, $
FIELDNAME=IBIRS_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='changePassword', $
FIELDNAME=IBIRS_USERNAME, ALIAS=IBIRS_userName, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
FIELDNAME=IBIRS_PASSWORD, ALIAS=IBIRS_password, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
FIELDNAME=IBIRS_SERVICE, ALIAS=IBIRS_service, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='ibfs', $
FIELDNAME=CSRF_TOKEN, ALIAS=IBIWF_SES_AUTH_TOKEN, USAGE=A100, ACTUAL=A100, ACCESS_PROPERTY=(AUTHTOKEN), $
FIELDNAME=__RESPONSE, USAGE=TX80L, ACTUAL=TX, ACCESS_PROPERTY=(INTERNAL), $
SEGMENT=RESPONSE, SEGTYPE=S0, SEGSUF=XML , PARENT=M6ILO, POSITION=__RESPONSE, $
FIELDNAME=IBFSRPC, ALIAS=ibfsrpc, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
PROPERTY=ELEMENT, $
FIELDNAME=IBFSPARAMS, ALIAS=ibfsparams, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=IBFSRPC, PROPERTY=ELEMENT, $
FIELDNAME=SIZE, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE, $
FIELDNAME=ROOTOBJECT, ALIAS=rootObject, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=IBFSRPC, PROPERTY=ELEMENT, $
FIELDNAME=STATUS, ALIAS=status, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=_JT, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=GROUPS, ALIAS=groups, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=_JT1, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=GROUPS, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE1, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=GROUPS, PROPERTY=ATTRIBUTE, $
FIELDNAME=PSETLIST, ALIAS=pSetList, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=_JT2, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE2, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT3, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=DESCRIPTION, ALIAS=description, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=DUMMY, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=EMAIL, ALIAS=email, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=FULLPATH, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=HANDLE, ALIAS=handle, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=LENGTH, ALIAS=length, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME1, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAMESPACE, ALIAS=nameSpace, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=POLICY, ALIAS=policy, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=RSPATH, ALIAS=rsPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=USERSTATUSDISPLAY, ALIAS=userStatusDisplay, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT4, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=LANGUAGE, ALIAS=language, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME2, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=RETURNCODE, ALIAS=returncode, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=RETURNDESC, ALIAS=returndesc, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=SUBRETURNCODE, ALIAS=subreturncode, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE1, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
SEGMENT=ENTRY, SEGTYPE=S0, PARENT=RESPONSE, $
FIELDNAME=ENTRY, ALIAS=entry, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSPARAMS, PROPERTY=ELEMENT, $
FIELDNAME=KEY1, ALIAS=key, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY, PROPERTY=ATTRIBUTE, $
FIELDNAME=VALUE, ALIAS=value, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY, PROPERTY=ATTRIBUTE, $

changepassword.acx:
SEGNAME=M6ILO,
CONNECTION=ibfs,
OBJECT=rs,
SERVICETYPE=REST,
HTTPMETHOD=POST,
RESTRESPONSE=XML,
HTTPBODY=ENCODE, $


changepassword.fex:
TABLE FILE LOGON
PRINT
ENTRY.VALUE
RETURNCODE NOPRINT
RETURNDESC NOPRINT
IF USERNAME EQ 'admin'
IF PASSWORD EQ 'admin'
IF ENTRY.KEY EQ 'IBI_CSRF_Token_Value'
ON TABLE HOLD AS CSRFTOKEN
END
-RUN

-READ CSRFTOKEN &&CSRFTOKEN.A100.
-TYPE &&CSRFTOKEN

TABLE FILE CHANGEPASSWORD
PRINT
CHANGEPASSWORD.RESPONSE.RETURNCODE AS 'Return Code'
CHANGEPASSWORD.RESPONSE.RETURNDESC AS 'Return Description'
HEADING
"Change Password"
WHERE IBIRS_USERNAME EQ 'test_login'
WHERE IBIRS_PASSWORD EQ 'MyPassword'
WHERE CSRF_TOKEN EQ '&&CSRFTOKEN'
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = endeflt,
$
ENDSTYLE
END

Thanks Efrem,

Thank you for your prompt action!!!!! Now we are able to reset password for users.