GET

LANSA Integrator

GET

This command is used to GET an LDAP entry.

 

 GET ------------- DN -------------- entry name ------------------>

 

                                                           Optional

 

               >-- ATTRIBUTES ------ *ALL ------------------------|

                                     attribute names

 

Keywords

DN

Specifies the distinguished name (DN) of the entry you are looking for.

This keyword is mandatory.

ATTRIBUTES

This keyword specifies the attributes that you want returned. You may specify either *ALL (which will return all the attributes), or a comma delimited list of the attribute names.

The default value is *ALL.

This keyword is optional.

Lists and Variables

The application must supply a working list into which the GET command will return the retrieved attributes. The working list must contain either one or two fields as follows:

  • The first field is mandatory and will contain the attribute name for each retrieved attribute.
    Suggested field length: you will need to ensure that the field is long enough to hold the longest possible attribute name for your LDAP Server. The field length will be character.
  • The second field is optional. If supplied, it will contain the attribute value for each retrieved attribute.
    Suggested field length: you will need to ensure that the field is long enough to hold the longest possible attribute value for your LDAP Server. The field length will be character.

Refer to the following examples to see how this works. For information on how to supply a working list to service commands from RDML, RDMLX or 3GL applications, refer to Java Service Manager Clients.

Examples

RDML

 

DEFINE FIELD(#ATNAME) TYPE(*CHAR) LENGTH(050)

DEFINE FIELD(#ATVALUE) TYPE(*CHAR) LENGTH(050)

DEF_LIST NAME(#WRKLST) FIELDS(#ATNAME #ATVALUE) TYPE(*WORKING)

CHANGE FIELD(#JSMCMD) TO('''GET DN(cn=John, cn=users, o=ibmteldir) ATTRIBUTES(*ALL) SERVICE_LIST(ATNAME,ATVALUE)''')

USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG #WRKLST)

 

RDMLX

 

Define Field(#ATNAME) Type(*CHAR) Length(050)

Define Field(#ATVALUE) Type(*CHAR) Length(050)

Def_List Name(#WRKLST) Fields(#ATNAME #ATVALUE) Type(*Working)

#JSMCMD := 'Get DN(cn=John, cn=users, o=ibmteldir) Service_List(ATNAME,ATVALUE)'

Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG #WRKLST)