Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] How to get WF User List using REST WebService from Webfocus

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED] How to get WF User List using REST WebService from Webfocus
 Login/Join
 
Maran
Gold member
posted
Hi All,

We have configured REST adapter to call RESTful Web Services from webfocus.
Also created the metadata for below Web Service calls.

LOGON
GET_WFUSERS
GET_WFUSERS_WITHIN_GROUP

Then we have created the below Webfocus report that lists the WebFOCUS users.

The WebFOCUS authentication(LOGON) got succeeded, but we got the Web Service request error for both GET_WFUSERS and GET_WFUSERS_WITHIN_GROUP tables.

Report Code
TABLE FILE LOGON
PRINT
  RETURNCODE
  RETURNDESC
IF IBIRS_USERNAME EQ 'admin'
IF IBIRS_PASSWORD EQ 'admin'
END
-RUN

TABLE FILE GET_WFUSERS
PRINT
    GET_WFUSERS.ITEM.NAME3 AS 'Userid'
    GET_WFUSERS.ITEM.DESCRIPTION1 AS 'User Description'
    GET_WFUSERS.ITEM.EMAIL AS 'Email Address'
    GET_WFUSERS.ITEM.NAME2 AS 'Status'
HEADING
"User List"
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

Error
(FOC44540) Web Services Request got error. Response Status  : 403 ; Reason:  Forbidden



In the past we used above report for one of our client to get the User lists in WF8.0.10 environment.

Is there any access needed for the WF user...?

Can anyone tell me how to get WF user list using Webservice from Webfocus..?


Thanks

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


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
BabakNYC
Virtuoso
posted Hide Post
Have you tested the REST content using

http://hostname:8080/ibi_apps/rs?IBIRS_action=TEST


WebFOCUS 8206, Unix, Windows
 
Posts: 1853 | Location: New York City | Registered: December 30, 2015Report This Post
Maran
Gold member
posted Hide Post
Hi BabakNYC,

thanks for your reply.

Yes, I tried the Webservice test page, but i got "403 - Access Denied" error message.

Thanks


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
BabakNYC
Virtuoso
posted Hide Post
If you can't even access the test url, I doubt your problem has anything to do with the logon.mas.


WebFOCUS 8206, Unix, Windows
 
Posts: 1853 | Location: New York City | Registered: December 30, 2015Report This Post
FP Mod Chuck
Virtuoso
posted Hide Post
Hi Maran

What you really need is Web Services Enablement on the client not the RESTful web services adapter on the reporting server. Check your license key on the WebFOCUS client and make sure you are licensed for Web Services Enablement.


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
 
Posts: 2127 | Location: Customer Support | Registered: April 12, 2005Report This Post
Efrem
Platinum Member
posted Hide Post
This issue could be caused by a number of things.
What WebFOCUS release is being used.
 
Posts: 229 | Location: New York | Registered: July 27, 2004Report This Post
Maran
Gold member
posted Hide Post
Hi Efrem,

We are using WF 8201m.

Thanks


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
Efrem
Platinum Member
posted Hide Post
Then in your ACX file for GetUsers, are you doing a GET or POST
 
Posts: 229 | Location: New York | Registered: July 27, 2004Report This Post
Maran
Gold member
posted Hide Post
Hi Efrem,

We are doing POST in .acx file

Note:We copied below GET_WFUSERS medadata from another WF client(WF8.0.10).

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


.mas File
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_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='get', $
    FIELDNAME=IBIRS_SERVICE, ALIAS=IBIRS_service, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
      XDEFAULT='ibfs', $
    FIELDNAME=IBIRS_OBJECT, ALIAS=IBIRS_object, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
    FIELDNAME=IBIRS_ARGS, ALIAS=IBIRS_args, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
    FIELDNAME=IBIRS_REPLACE, ALIAS=IBIRS_replace, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
    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=CHILDREN, ALIAS=children, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
      REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT,  $
    FIELDNAME=_JT, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=CHILDREN, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=SIZE1, ALIAS=size, USAGE=A30, ACTUAL=A30,
      REFERENCE=CHILDREN, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=_JT1, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=CONTAINER, ALIAS=container, USAGE=A30, ACTUAL=A30,
      REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DESCRIPTION, ALIAS=description, USAGE=A80, ACTUAL=A80,
      REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DUMMY, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
      REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=FULLPATH, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
      REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAME, 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=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
      REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=_JT2, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=LANGUAGE, ALIAS=language, USAGE=A30, ACTUAL=A30,
      REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAME1, 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=CHILDREN, PROPERTY=ELEMENT,  $
    FIELDNAME=STATUS, ALIAS=status, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ELEMENT,  $
    FIELDNAME=_JT3, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=STATUS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAME2, ALIAS=name, USAGE=A30, ACTUAL=A30,
      REFERENCE=STATUS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=GROUPS, ALIAS=groups, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ELEMENT,  $
    FIELDNAME=_JT4, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=GROUPS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=SIZE2, ALIAS=size, USAGE=A30, ACTUAL=A30,
      REFERENCE=GROUPS, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=PSETLIST, ALIAS=pSetList, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ELEMENT,  $
    FIELDNAME=_JT5, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=SIZE3, ALIAS=size, USAGE=A30, ACTUAL=A30,
      REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=_JT6, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DESCRIPTION1, ALIAS=description, USAGE=A80, ACTUAL=A80,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=DUMMY1, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=EMAIL, ALIAS=email, USAGE=A80, ACTUAL=A80,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=FULLPATH1, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=HANDLE, ALIAS=handle, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=INDEX1, ALIAS=index, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAME3, ALIAS=name, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=PARENT, ALIAS=parent, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=POLICY1, ALIAS=policy, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=RSPATH1, ALIAS=rsPath, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=TYPE2, ALIAS=type, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $
    FIELDNAME=NAMESPACE, ALIAS=nameSpace, USAGE=A30, ACTUAL=A30,
      REFERENCE=ITEM, PROPERTY=ATTRIBUTE,  $


We checked our licence page and noted that "Web Services" check mark not enabled...Is this cause the problem..?

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


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
Efrem
Platinum Member
posted Hide Post
Then, I now know your problem.
In WebFOCUS 8201M, CSRF Security is turned on by default.
This will affect POST request in WebFOCUS Web Services.
In your ACX file, I see the following:
HTTPMETHOD=POST

That means you're doing a POST.

And, that's why you're receiving a 403-Forbidden error.

You have 2 options:
1/ Since getting a list of users doesn't update anything, you change HTTPMETHOD=GET.

2/ Or, I can tell you what's needed to support the REST adapter for POSTs using CSRF token.

Customer Support would also be handle this.

Efrem
 
Posts: 229 | Location: New York | Registered: July 27, 2004Report This Post
Maran
Gold member
posted Hide Post
Hi Efrem,

I used HTTPMETHOD=GET and received the same 403 - Access Denied error.

For our requirement we also need to add users and groups. So please guide us how to enable REST adapter for POST request using CSRF token and how/where to change CSRF Security option.

Thanks.


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
Efrem
Platinum Member
posted Hide Post
I will be able to do that later today.
But, I have an important question.
When you went to WebFOCUS 8201M, did you do this via an Upgrade or Fresh install.
And, if it was an upgrade, from what release did you upgrade from.
Does you license show in the WebFOCUS Administration Console show WebFOCUS Web Services?
These are all important questions in the resolution of your issue.

Efrem
 
Posts: 229 | Location: New York | Registered: July 27, 2004Report This Post
Maran
Gold member
posted Hide Post
Hi Efrem,

It's a fresh WebFOCUS 8201M Insatall.

We checked our licence information in WebFOCUS Administration Console and it's shows Web Services but there is no check mark.




Thanks.


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
Efrem
Platinum Member
posted Hide Post
Maran,
That's good information.
So, it looks like you're not licensed for the WebFOCUS Web Services Enablement Option.
But, that should not make any difference when it comes to the Security Web Services calls.
They are free as of WebFOCUS 8105M.
Other calls would need a Web Services license.

I just tried the following POST example in 8201M which Gets Users without a Web Services Licenses:

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, $

GetUsers.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_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='get', $
FIELDNAME=IBIRS_SERVICE, ALIAS=IBIRS_service, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='ibfs', $
FIELDNAME=IBIRS_OBJECT, ALIAS=IBIRS_object, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
FIELDNAME=IBIRS_ARGS, ALIAS=IBIRS_args, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE), $
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=CHILDREN, ALIAS=children, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=ROOTOBJECT, PROPERTY=ELEMENT, $
FIELDNAME=_JT, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=CHILDREN, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE1, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=CHILDREN, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT1, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=CONTAINER, ALIAS=container, 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=FULLPATH, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME, 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=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT2, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=LANGUAGE, ALIAS=language, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME1, 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=CHILDREN, PROPERTY=ELEMENT, $
FIELDNAME=STATUS, ALIAS=status, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT3, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME2, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=GROUPS, ALIAS=groups, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT4, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=GROUPS, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE2, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=GROUPS, PROPERTY=ATTRIBUTE, $
FIELDNAME=PSETLIST, ALIAS=pSetList, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT5, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE3, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT6, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=DESCRIPTION1, ALIAS=description, USAGE=A100, ACTUAL=A100,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=DUMMY1, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=EMAIL, ALIAS=email, USAGE=A100, ACTUAL=A100,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=FULLPATH1, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=HANDLE, ALIAS=handle, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=INDEX1, ALIAS=index, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME3, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=PARENT, ALIAS=parent, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=POLICY1, ALIAS=policy, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=RSPATH1, ALIAS=rsPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE2, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAMESPACE, ALIAS=nameSpace, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $

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

GetUsers.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 GETUSERS
PRINT
GETUSERS.ITEM.NAME3 AS 'Userid'
GETUSERS.ITEM.DESCRIPTION1 AS 'User Description'
GETUSERS.ITEM.EMAIL AS 'Email Address'
GETUSERS.ITEM.NAME2 AS 'Status'
IF CSRF_TOKEN EQ '&&CSRFTOKEN'
HEADING
"User List"
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

Hope this helps.

Efrem
 
Posts: 229 | Location: New York | Registered: July 27, 2004Report This Post
Maran
Gold member
posted Hide Post
Thanks Efrem!!!

Above code working well!!SmilerSmiler. Now i got the Users List!!!

Can we use the same CSRFTOKEN to get Users within the group....?

I have added CSRF_TOKEN field in get_wfusers_within_group.mas file and tried. but got the same 403 error.
We are using POST request in get_wfusers_within_group.acx file since we need to add Group.


Thanks you so much for the wonderful help!!!

We'll check with IB for Web Services license!!

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


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
Efrem
Platinum Member
posted Hide Post
Here you go:

getusersforgroup.mas
FILENAME=M6ILO, SUFFIX=REST , $
SEGMENT=M6ILO, SEGTYPE=S0, $
FIELDNAME=IBIRS_ACTION, ALIAS=IBIRS_action, USAGE=A30, ACTUAL=A30, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='get', $
FIELDNAME=IBIRS_PATH, ALIAS=IBIRS_path, USAGE=A100, ACTUAL=A100, ACCESS_PROPERTY=(NEED_VALUE),
XDEFAULT='/SSYS/GROUPS/Administrators', $
GROUP=ROOTOBJECT, ALIAS=IBIRS_args, ELEMENTS=2, $
FIELDNAME=_JT, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
PROPERTY=ATTRIBUTE, XDEFAULT='HashMap', $
GROUP=ENTRY, ALIAS=entry, ELEMENTS=6, $
FIELDNAME=KEY1, ALIAS=key, USAGE=A30, ACTUAL=A30,
MISSING=ON, $
FIELDNAME=VALUE, ALIAS=value, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
REFERENCE=KEY1, PROPERTY=ATTRIBUTE, XDEFAULT='TYPE', $
FIELDNAME=_JT1, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
REFERENCE=KEY1, PROPERTY=ATTRIBUTE, XDEFAULT='string', $
FIELDNAME=VALUE1, ALIAS=value, USAGE=A30, ACTUAL=A30,
MISSING=ON, $
FIELDNAME=VALUE2, ALIAS=value, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
REFERENCE=VALUE1, PROPERTY=ATTRIBUTE, XDEFAULT='USERS', $
FIELDNAME=_JT2, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
MISSING=ON, ACCESS_PROPERTY=(NEED_VALUE),
REFERENCE=VALUE1, PROPERTY=ATTRIBUTE, XDEFAULT='string', $
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=ROOTOBJECT1, ALIAS=rootObject, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=IBFSRPC, PROPERTY=ELEMENT, $
FIELDNAME=CHILDREN, ALIAS=children, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=ROOTOBJECT1, PROPERTY=ELEMENT, $
FIELDNAME=_JT3, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=CHILDREN, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE1, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=CHILDREN, PROPERTY=ATTRIBUTE, $
FIELDNAME=USERS, ALIAS=users, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ELEMENT, $
FIELDNAME=_JT4, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=USERS, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE2, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=USERS, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT5, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=CONTAINER, ALIAS=container, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=DESCRIPTION, ALIAS=description, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=DUMMY, ALIAS=dummy, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=FULLPATH, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=POLICY, ALIAS=policy, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=RSPATH, ALIAS=rsPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ROOTOBJECT1, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT6, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=LANGUAGE, ALIAS=language, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSRPC, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME1, 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=ENTRY1, ALIAS=entry, USAGE=A30, ACTUAL=A30,
REFERENCE=IBFSPARAMS, PROPERTY=ELEMENT, $
FIELDNAME=KEY2, ALIAS=key, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY1, PROPERTY=ATTRIBUTE, $
FIELDNAME=VALUE3, ALIAS=value, USAGE=A30, ACTUAL=A30,
REFERENCE=ENTRY1, PROPERTY=ATTRIBUTE, $
SEGMENT=ITEM, SEGTYPE=S0, PARENT=RESPONSE, $
FIELDNAME=ITEM, ALIAS=item, USAGE=A1, ACTUAL=A1, ACCESS_PROPERTY=(INTERNAL),
REFERENCE=CHILDREN, PROPERTY=ELEMENT, $
FIELDNAME=STATUS, ALIAS=status, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT7, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME2, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=STATUS, PROPERTY=ATTRIBUTE, $
FIELDNAME=GROUPS, ALIAS=groups, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT8, 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=ITEM, PROPERTY=ELEMENT, $
FIELDNAME=_JT9, ALIAS=_jt, USAGE=A30, ACTUAL=A30,
REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE, $
FIELDNAME=SIZE4, ALIAS=size, USAGE=A30, ACTUAL=A30,
REFERENCE=PSETLIST, PROPERTY=ATTRIBUTE, $
FIELDNAME=_JT10, ALIAS=_jt, 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=EMAIL, ALIAS=email, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=FULLPATH1, ALIAS=fullPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=HANDLE, ALIAS=handle, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=INDEX1, ALIAS=index, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAME3, ALIAS=name, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=PARENT, ALIAS=parent, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=POLICY1, ALIAS=policy, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=RSPATH1, ALIAS=rsPath, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=TYPE2, ALIAS=type, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $
FIELDNAME=NAMESPACE, ALIAS=nameSpace, USAGE=A30, ACTUAL=A30,
REFERENCE=ITEM, PROPERTY=ATTRIBUTE, $

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

getusersforgroup.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 GETUSERSFORGROUP
PRINT
GETUSERSFORGROUP.ITEM.NAME3 AS 'Userid'
GETUSERSFORGROUP.ITEM.DESCRIPTION1 AS 'User Name'
GETUSERSFORGROUP.ITEM.EMAIL AS 'Email Address'
GETUSERSFORGROUP.ITEM.NAME2 AS 'Status'
HEADING
"Users within the Administrators Group"
WHERE GETUSERSFORGROUP.M6ILO.IBIRS_PATH EQ '/SSYS/GROUPS/Administrators';
IF 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,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=6.000000,
$
ENDSTYLE
END

Hope this helps.

Efrem
 
Posts: 229 | Location: New York | Registered: July 27, 2004Report This Post
Maran
Gold member
posted Hide Post
Hi Efrem!!!

Thanks a lot for your help!!!


WebFOCUS 8201m
Windows,AppStudio, DevStudio,All Outputs
 
Posts: 86 | Location: India | Registered: November 03, 2015Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] How to get WF User List using REST WebService from Webfocus

Copyright © 1996-2020 Information Builders