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 , August 14, 2017 03:42 PM 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