Focal Point
[SOLVED] How to update WF User status using REST WebServices from webfocus

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/6627036786

August 29, 2017, 11:03 AM
Sowthri
[SOLVED] How to update WF User status using REST WebServices from webfocus
Hi all
I am trying to update WF User status using below REST Web Services metadata. but i got (FOC42229) ENTITY 'nbsp' IS UNDEFINED error.
Could any one guide me how to update WF User details from webfocus.


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


update_wfuser.mas
 
FILENAME=M6ILO, SUFFIX=REST    , $
  SEGMENT=M6ILO, SEGTYPE=S0, $
    FIELDNAME=IBFS_NAME, ALIAS=IBFS_name, USAGE=A180, ACTUAL=A180, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='IBFS:/SSYS/USERS/enduser3', $
    FIELDNAME=IBFS1_ACTION, ALIAS=IBFS1_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='putUser', $
    FIELDNAME=IBIRS_SERVICE, ALIAS=IBIRS_service, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='ibfs', $
    FIELDNAME=IBFS_DESCRIPTION, ALIAS=IBFS_description, USAGE=A80, ACTUAL=A80, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='consultant', $
    FIELDNAME=IBFS_PASSWORD, ALIAS=IBFS_password, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
    FIELDNAME=IBFS_EMAIL, ALIAS=IBFS_email, USAGE=A80, ACTUAL=A80, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='test@t.com', $
    FIELDNAME=IBFS_STATUS, ALIAS=IBFS_status, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='ACTIVE', $
    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=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ELEMENT,  $
    FIELDNAME=IBFS_NAME1, ALIAS=IBFS_name, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=IBFS_EMAIL1, ALIAS=IBFS_email, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=IBFS_DESCRIPTION1, ALIAS=IBFS_description, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=IBFS_PSETLIST, ALIAS=IBFS_pSetList, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=IBFS_STATUS1, ALIAS=IBFS_status, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=IBFSOBJECT, ALIAS=ibfsobject, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ELEMENT,  $
    FIELDNAME=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=ISCONTAINER, ALIAS=isContainer, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAME, ALIAS=name, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=FULLPATH, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DESCRIPTION, ALIAS=description, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=EMAIL, ALIAS=email, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=STATUS, ALIAS=status, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=USERDEFAULTROLE, ALIAS=userDefaultRole, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DISPLAYPATH, ALIAS=displayPath, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPVISDIS, ALIAS=opVisDis, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPVIEWRULESON, ALIAS=opViewRulesOn, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPSETOWNER, ALIAS=opSetOwner, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPSHAREWITH, ALIAS=opShareWith, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPMANAGEPRIVATERESOURCES, ALIAS=opManagePrivateResources, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPUSEINRULES, ALIAS=opUseInRules, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPMANAGERULESON, ALIAS=opManageRulesOn, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPMANAGESECURITY, ALIAS=opManageSecurity, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPASSIGN, ALIAS=opAssign, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPCREATEUSER, ALIAS=opCreateUser, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPDELETE, ALIAS=opDelete, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPSETPASSWORD, ALIAS=opSetPassword, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPVIEW, ALIAS=opView, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=OPUPDATE, ALIAS=opUpdate, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAME1, ALIAS=name, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=RETURNDESC, ALIAS=returndesc, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=RETURNCODE, ALIAS=returncode, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=SUBSYSTEM, ALIAS=subsystem, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=SUBRETURNCODE, ALIAS=subreturncode, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $


Upate_User.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 UPDATE_WFUSER
PRINT 
RETURNCODE 
RETURNDESC
IF CSRF_TOKEN EQ '&&CSRFTOKEN'
WHERE IBFS_NAME EQ 'test_login'
WHERE IBFS_EMAIL EQ 'Test_login@wls.com'
WHERE IBFS_DESCRIPTION EQ 'Test_login'
WHERE IBFS_STATUS EQ 'INACTIVE'
ON TABLE HOLD AS DELUSER FORMAT ALPHA
END
-RUN

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


WebFOCUS 8.2.01,windows 8,All Output Format
August 29, 2017, 05:36 PM
Waz
Hi Sowthri,

Welcome to the forum.

According to the fex, you are reading &&CSRFTOKEN from a hold file, then using it in the next table.

What is the contents of &&CSRFTOKEN ?

My first thought about your error is that an   may be in the read variable.


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

August 31, 2017, 02:46 AM
Sowthri
Thanks WAZ,
We are geting value for &&CSRFTOKEN from hold file and it's an alphanumeric value.After using in UPDATE_WFUSER table flowing Error occurs.

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
 0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
 -READ CSRFTOKEN &&CSRFTOKEN.A100.
 -SET &&CSRFTOKEN  = TRUNCATE(d6e4c76ea3ca48b622a52aa0bb399dbd                                                                    );
 -TYPE d6e4c76ea3ca48b622a52aa0bb399dbd
 d6e4c76ea3ca48b622a52aa0bb399dbd
 TABLE FILE UPDATE_WFUSER
 PRINT RETURNCODE RETURNDESC
 IF CSRF_TOKEN EQ 'd6e4c76ea3ca48b622a52aa0bb399dbd'
 WHERE DESCRIPTION EQ 'test_login'
 WHERE EMAIL EQ 'Test_login@test.com'
 WHERE NAME EQ 'INACTIVE'
 ON TABLE HOLD AS DELUSER FORMAT ALPHA
 END
 -RUN
 (FOC42229) ENTITY 'nbsp' IS UNDEFINED
 0 NUMBER OF RECORDS IN TABLE=        0  LINES=      0



WebFOCUS 8.2.01,windows 8,All Output Format
August 31, 2017, 02:44 PM
FP Mod Chuck
Hi Sowthri

First of all welcome to Focal Point! I reached out to the product manager about this post and he recommended you open a case with techsupport. He suspects this is a bug.

Thanks


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
August 31, 2017, 03:04 PM
Efrem
Not a bug in the software.
At first glance, looks like you're missing some stuff in the Master.

I'll try and look at this tomorrow.
August 31, 2017, 03:32 PM
Efrem
I looked at your Master.
Doesn't look like the ALIASes for WebFOCUS RESTful Web Services.

It looks like your trying to integrate with some other WebFOCUS integration.

I'll prepare an example calling WebFOCUS RESTful Web Services and Post it when complete.
August 31, 2017, 03:45 PM
Efrem
Here you go:

adduser.mas:
FILENAME=ADDUSER, SUFFIX=REST , $
SEGMENT=M6ILO, SEGTYPE=S0, $
FIELDNAME=IBIRS_PATH, ALIAS=IBIRS_path, USAGE=A50, ACTUAL=A50, ACCESS_PROPERTY=(NEED_VALUE), $
FIELDNAME=IBIRS_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='put', $
FIELDNAME=IBIRS_SERVICE, ALIAS=IBIRS_service, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='ibfs', $
GROUP=OBJECT, ALIAS=IBIRS_object, ELEMENTS=8, $
FIELDNAME=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='User',
PROPERTY=ATTRIBUTE, $
FIELDNAME=PASSWORD, ALIAS=password, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
PROPERTY=ATTRIBUTE, $
FIELDNAME=EMAIL, ALIAS=email, USAGE=A200, ACTUAL=A200,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
PROPERTY=ATTRIBUTE, $
FIELDNAME=DESCRIPTION, ALIAS=description, USAGE=A200, ACTUAL=A200,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='IBFSUserObject',
PROPERTY=ATTRIBUTE, $
FIELDNAME=STATUS, ALIAS=status, USAGE=A30, ACTUAL=A30,
MISSING=ON, $
FIELDNAME=NAME, ALIAS=name, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT1, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='IBSSUserStatus',
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=IBIRS_REPLACE, ALIAS=IBIRS_replace, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
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=STATUS1, ALIAS=status, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=_JT2, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS1, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME1, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS1, PROPERTY=ATTRIBUTE, $
FIELDNAME=GROUPS, ALIAS=groups, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=_JT3, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=GROUPS, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE1, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=GROUPS, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT4, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=DESCRIPTION1, ALIAS=description, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=DUMMY, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=EMAIL1, ALIAS=email, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=FULLPATH, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME2, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=PASSWORD1, ALIAS=password, 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=TYPE1, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT5, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=LANGUAGE, ALIAS=language, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME3, 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=A300, ACTUAL=A300,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=SUBRETURNCODE, ALIAS=subreturncode, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=SUBSYSTEM, ALIAS=subsystem, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE2, 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, $


adduser.acx:
SEGNAME=M6ILO,
CONNECTION=ibfs,
OBJECT=rs,
SERVICETYPE=REST,
HTTPMETHOD=POST,
RESTRESPONSE=XML,
HTTPBODY=ENCODE, $
FIELD=STATUS,
FORM=qualified, $
FIELD=OBJECT,
FORMAT=XML, $

updateuser.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 ADDUSER
PRINT
ADDUSER.RESPONSE.RETURNCODE AS 'Return Code'
ADDUSER.RESPONSE.RETURNDESC AS 'Return Description'
HEADING
"Update a User"
WHERE IBIRS_PATH EQ '/SSYS/USERS/test_login'
WHERE DESCRIPTION EQ 'test_login'
WHERE EMAIL EQ 'Test_login@wls.com'
WHERE NAME EQ 'INACTIVE'
WHERE IBIRS_REPLACE EQ 'true'
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
September 01, 2017, 03:16 AM
Sowthri
Thanks Efrem,
It's working good. Thanks for your help. Cloud you please share Master file for change password and guide us how to update the password for a wf user.


WebFOCUS 8.2.01,windows 8,All Output Format
September 01, 2017, 05:58 AM
Efrem
I think you should mark this as solved and open a new topic for Changing a Password.
September 01, 2017, 02:03 PM
Sowthri
Thanks Efrem!!!


WebFOCUS 8.2.01,windows 8,All Output Format