JoltSetByte Function

Action

Assigns a specified value to a one-byte item (“byte” in Java) of a Jolt object attribute. This function is provided to set values of both JoltSessionAttributes and JoltRemoteService object attributes. Besides, this function can be used to add new items to existing attributes as well as to create new attributes.

Include file

Jolt.bdh

Syntax

JoltSetByte( in hJolt       : number,
             in sAttribute  : string,
             in nValue      : number,
             in nOccurrence : number optional): boolean;

Return value

true if successful
false otherwise

Parameter	Description
hJolt	Handle to a JoltSessionAttributes or JoltRemoteService object that was created with JoltSessionAttributesNew or JoltRemoteServiceNew, respectively
sAttribute	Name of the attribute that is to be accessed
nValue	Value that is assigned to the specified attribute
nOccurrence	Index of the item that is to be set (optional). The index of an attribute’s first item is 1 (not 0). If this parameter is omitted, the attribute’s first item is set. If this parameter is set to ADD_VALUE, a new item is appended to the attribute (provided that the specified attribute already exists; otherwise, if the specified attribute does not yet exist, a new attribute with the given properties is created) 注: This parameter is ignored if hJolt represents a JoltSessionAttributes object.

Example

var
  hSession, hSessionAttr, hRemoteService: number;
 dcltrans
  transaction TInit
  begin
    JavaSetOption(JAVA_VERSION, JAVA_V11);
    JavaSetOption(JAVA_HOME, "c:/jdk1.1.7");
    JavaSetOption(JAVA_CLASSPATH, "c:/jdk1.1.7");
    JoltInit();
    hSessionAttr := JoltSessionAttributesNew();
    JoltSetString(hSessionAttr, APPADDRESS, "//lab:8000");
    hSession := JoltSessionNew(hSessionAttr, "", "ATM", "", "");
    hRemoteService := JoltRemoteServiceNew("TOUPPER", hSession);
  end TInit; 

  transaction TMain
  var
    nChar: number;
  begin
    JoltSetByte(hRemoteService, "ASCII_CODE", ord('a'));
    JoltCall(hRemoteService);
    nChar := JoltGetByte(hRemoteService, "ASCII_CODE", 0);
    writeln(nChar);
  end TMain; 
  transaction TShutdown
  begin
    JoltEndSession(hSession);
    JoltFreeObject(hRemoteService);
    JoltFreeObject(hSession);
    JoltFreeObject(hSessionAttr);
  end TShutdown;