Focal Point
[SOLVED] How to add WF User to WF Group using REST WebServices Metadata from webfocus

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

August 14, 2017, 08:56 AM
Maran
[SOLVED] How to add WF User to WF Group using REST WebServices Metadata from webfocus
Hi All,

We have used RESTful Web Services metadata and successfully added new User and Group in security Center thru fex file .

Now iam trying to add user to wf group using below metadata. but i got "Unknown action addUserToGroup" error.

Could any one guide me how to add a user to existing group from fex..? Is there any issue in metadata..?


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


ADD_WFUSER_TO_WFGROUP.mas
FILENAME=M6ILO, SUFFIX=REST    , $
  SEGMENT=M6ILO, SEGTYPE=S0, $
    FIELDNAME=IBIRS_PATH, ALIAS=IBIRS_path, USAGE=A180, ACTUAL=A180, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='SSYS/USERS/', $
    FIELDNAME=IBIRS_GROUPPATH, ALIAS=IBIRS_groupPath, USAGE=A180, ACTUAL=A180, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='SSYS/GROUPS/Administrators', $
    FIELDNAME=IBIRS_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='addUserToGroup', $
    FIELDNAME=CSRF_TOKEN, ALIAS=IBIWF_SES_AUTH_TOKEN, USAGE=A100, ACTUAL=A100, ACCESS_PROPERTY=(AUTHTOKEN), $
   GROUP=OBJECT, ALIAS=IBIRS_object, ELEMENTS=8, $
    FIELDNAME=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
      MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
      PROPERTY=ATTRIBUTE,  XDEFAULT='User',$
    FIELDNAME=PASSWORD, ALIAS=password, USAGE=A30, ACTUAL=A30,
      MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
      PROPERTY=ATTRIBUTE,  $
    FIELDNAME=EMAIL, ALIAS=email, USAGE=A80, ACTUAL=A80,
      MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
      PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DESCRIPTION, ALIAS=description, USAGE=A80, ACTUAL=A80,
      MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
      PROPERTY=ATTRIBUTE,  $
    FIELDNAME=_JT, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
      PROPERTY=ATTRIBUTE, XDEFAULT='IBFSUserObject', $
    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),
      REFERENCE=STATUS, PROPERTY=ATTRIBUTE,  XDEFAULT='IBSSUserStatus', $
    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=A80, ACTUAL=A80,
      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=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=A30, ACTUAL=A30,
      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,  $


Add_User_to_Group.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.

TABLE FILE ADD_WFUSER_TO_WFGROUP
PRINT RETURNCODE RETURNDESC
IF CSRF_TOKEN EQ '&&CSRFTOKEN'
WHERE IBIRS_PATH EQ 'SSYS/USERS/TestUser2@mail.com'
WHERE IBIRS_GROUPPATH EQ 'SSYS/GROUPS/Administrators'
WHERE IBIRS_ACTION EQ 'addUserToGroup'
ON TABLE SAVE AS USRTOGRPDAT
END
-RUN

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


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
August 14, 2017, 11:52 AM
Efrem
What happened when you tried the above?

Efrem
August 14, 2017, 12:28 PM
Maran
Hi Efrem,

I got "Unknown action addUserToGroup" in return description(return code 1200).

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.

TABLE FILE CREATE_WFUSER
PRINT RETURNCODE RETURNDESC
IF CSRF_TOKEN EQ '&&CSRFTOKEN'
WHERE IBIRS_PATH EQ 'SSYS/USERS/TestUser2@mail.com'
WHERE PASSWORD EQ 'test123'
WHERE EMAIL EQ 'TestUser2@mail.com'
WHERE DESCRIPTION EQ 'TestUser 2'
WHERE NAME EQ 'ACTIVE'
ON TABLE SAVE AS ADDUSRDAT
END
-RUN


TABLE FILE ADD_WFUSER_TO_WFGROUP
PRINT RETURNCODE RETURNDESC
IF CSRF_TOKEN EQ '&&CSRFTOKEN'
WHERE IBIRS_PATH EQ 'SSYS/USERS/TestUser2@mail.com'
WHERE IBIRS_GROUPPATH EQ 'SSYS/GROUPS/Administrators'
WHERE IBIRS_ACTION EQ 'addUserToGroup'
-*ON TABLE SAVE AS USRTOGRPDAT
END
-RUN


After executing above code, User name listed in Security center>>Users folder, but not added under Administrators group.

This message has been edited. Last edited by: Maran,


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
August 14, 2017, 12:41 PM
Efrem
The following worked for me:

logon.mas:
FILENAME=M6ILO, SUFFIX=REST , $
SEGMENT=M6ILO, SEGTYPE=S0, $
FIELDNAME=IBIRS_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='signOn', $
FIELDNAME=USERNAME, ALIAS=IBIRS_userName, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='admin', $
FIELDNAME=PASSWORD, ALIAS=IBIRS_password, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='admin', $
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=SIZE, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSPARAMS, PROPERTY=ATTRIBUTE, $
FIELDNAME=PROPERTIES, ALIAS=properties, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=IBFSRPC, PROPERTY=ELEMENT, $
FIELDNAME=SIZE1, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=PROPERTIES, PROPERTY=ATTRIBUTE, $
FIELDNAME=ROOTOBJECT, ALIAS=rootObject, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=IBFSRPC, PROPERTY=ELEMENT, $
FIELDNAME=PROPERTIES1, ALIAS=properties, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=ENTRY, ALIAS=entry, USAGE=A30, ACTUAL=A30,
REFERENCE=PROPERTIES1, 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, $
FIELDNAME=SIZE2, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=PROPERTIES1, PROPERTY=ATTRIBUTE, $
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=SIZE3, 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=SIZE4, 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=LASTSIGNIN, ALIAS=lastSignin, 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=PASSWORD, ALIAS=password, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE, ALIAS=type, 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=A200, ACTUAL=A200,
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=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=PROPERTIES, PROPERTY=ELEMENT, $
FIELDNAME=KEY, ALIAS=key, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY.ENTRY,
PROPERTY=ATTRIBUTE,ACCEPT='IBI_CSRF_Token_Value', $
FIELDNAME=VALUE, ALIAS=value,USAGE=A100, ACTUAL=A100,
ACCESS_PROPERTY=(AUTHTOKEN),
REFERENCE=ENTRY.ENTRY, PROPERTY=ATTRIBUTE, $


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


addusertogroup.mas:
FILENAME=M6ILO, SUFFIX=REST , $
SEGMENT=M6ILO, SEGTYPE=S0, $
FIELDNAME=IBIRS_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='addUserToGroup', $
FIELDNAME=IBIRS_GROUPPATH, ALIAS=IBIRS_groupPath, USAGE=A100, ACTUAL=A100, ACCESS_PROPERTY=(NEED_VALUE), $
FIELDNAME=IBIRS_PATH, ALIAS=IBIRS_path, USAGE=A100, ACTUAL=A100, 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=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
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=_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=SUBSYSTEM, ALIAS=subsystem, 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, $
SEGMENT=ITEM, SEGTYPE=S0, PARENT=RESPONSE, $
FIELDNAME=ITEM, ALIAS=item, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=GROUPS, PROPERTY=ELEMENT, $
FIELDNAME=PROPERTIES, ALIAS=properties, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=SIZE3, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=PROPERTIES, PROPERTY=ATTRIBUTE, $
FIELDNAME=USERS, ALIAS=users, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT5, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=USERS, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE4, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=USERS, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT6, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=CONTAINER, ALIAS=container, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=DESCRIPTION1, ALIAS=description, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=DUMMY1, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=EXTERNALGROUPNAME, ALIAS=externalGroupName, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=FULLPATH1, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=HANDLE1, ALIAS=handle, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=INDEX1, ALIAS=index, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=LENGTH1, ALIAS=length, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=MEMBERSHIPTYPE, ALIAS=membershipType, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME3, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE2, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=GROUPTYPE, ALIAS=groupType, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
SEGMENT=ENTRY1, SEGTYPE=S0, PARENT=ITEM, $
FIELDNAME=ENTRY1, ALIAS=entry, USAGE=A30, ACTUAL=A30,
REFERENCE=PROPERTIES, PROPERTY=ELEMENT, $
FIELDNAME=KEY2, ALIAS=key, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY1, PROPERTY=ATTRIBUTE, $
FIELDNAME=VALUE1, ALIAS=value, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY1, PROPERTY=ATTRIBUTE, $



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


addusertogroup.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.

TABLE FILE ADDUSERTOGROUP
PRINT
RETURNCODE
RETURNDESC
IF IBIRS_GROUPPATH EQ '/SSYS/GROUPS/Administrators'
IF IBIRS_PATH EQ '/SSYS/USERS/efrem'
IF CSRF_TOKEN EQ '&&CSRFTOKEN'
END
August 14, 2017, 01:51 PM
Maran
Hi Efrem.

Thanks for your quick solution. Your code worked well and Now we are able to add users to group without any issues!!!!

Thanks alot for you help!!!!


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs