In the first script, the output folder specfied by its Livelink Node ID (DTree.DataId), although in a production environment you may want to have this loaded from the Workflow Form, database table or ini file rather than being hardcoded. Next we load the Workflow itself and get the Forms package and grab the Form Template, the code assumes that we will always use the first template in the workflow, then we gather the values needed to create the Livelink Object and call the second method. A commented version of this Event Script is shown below :

Function Dynamic CreateLLObjFromForm( \
    Object	 prgCtx, \
    WAPIWORK	work, \
    Integer	 workID, \
    Integer	 subWorkID, \
    Integer	 taskID, \
    Integer	 returnSubWorkID, \
    Integer	 returnTaskID, \
    Dynamic	 extraData = Undefined )
 
    // stick the current user context into a variable
    Object tempPrgCtx = prgCtx
 
    // create a new context as Admin to avoid Permissions/Rights issues
    String cnctName = $Kernel.SystemPreferences.GetPrefGeneral( 'DftConnection' )
    Assoc prgAssoc = $LLIApi.PrgSession.CreateNewNamed(cnctName,{"Admin",undefined})
    prgCtx = prgAssoc.pSession // dump the prog context into a Feature so it can be read elsewhere
 
    // other variables
    DAPINode templateNode, outputNode
    Assoc	retval = Assoc.CreateAssoc()
    retval.OK = true
    record r
    boolean found = false
    Integer outputFolder=2000 // Create in the Container with DataID 2000
 
    // Get the Form data from the workflow
    Object obj = $WFMain.WFPackageSubsystem.GetItemByName( 'Form' )
    // Load the work package
    RecArray array = $WFMain.WAPIPkg.LoadWorkData( prgCtx, work )
 
    // if we have loaded the Forms Package
    if ( IsDefined( obj ) )
        // find the Form Template Node
        for r in array
            if ( { r.TYPE, r.SUBTYPE } == { obj.fType, obj.fSubType } )
                found = True
                templateNode=DAPI.GetNodeByID(prgCtx.DSession().fSession,DAPI.BY_DATAID,r.USERDATA.AvailableForms[ 1 ].TemplateID)
                break
            end
        end
 
        // We have found the form containing the data 
        if ( found )
            // grab the node to put the data in 
            outputNode = DAPI.GetNodeByID(prgCtx.DSession().fSession,DAPI.BY_DATAID,outputFolder)
            // if we have the Output Folder
            if ((isDefined(outputNode)) && (!IsError(outputNode)))
                String formName=r.USERDATA.Forms[1].Name // get the name of the Form
                Integer templateID=r.USERDATA.Forms[1].TemplateID // get the DTREE.DATAID of the Template
                Integer templateVersion=templateNode.pVersionNum // get the version number of the Template
                // create the Form Node
                retval = CreateFormNode(prgCtx,formName,outputNode,r.USERDATA.Forms[1],templateID,templateVersion)
            end
        end
    end
 
    //reset orginal prgctx before we leave
    prgCtx = tempPrgCtx
    Echo( 'LEAVE SAVEFORM' )
    Echo( Str.ValueToString( retval ) )
    return retval
end

This helper function creates the actual HTML Form Node in Livelink. This script generates a unique name for the new object using the provided Form Name and the current date and time stamp. Once the node is created, we specify which Form View we wish to use for the new Node, this allows us to specify a custom or read only Form View for example. Then we create the Node and populate it with the information from the workflow to complete the activity. The commented code is shown below :

Function Assoc CreateFormNode( Object prgCtx, String formname, DAPINode parentNode, Assoc formData, Integer templateId, Integer templateVersion = undefined )
    Assoc CreateInfo, retVal
    retVal.ok = true
 
    // firstly, grab the correct LLNode for a webform
    Object llNode = $LLIAPI.LLNodeSubsystem.GetItem($TypeForm)
 
    // if we have an LL Node Object
    if( IsDefined( llNode ) )
        // create a unique object name using the Form Name and the Date
        String newFormName=Str.Format("%1 - Form - %2",formname, \
              Date.DateToString(CAPI.Now(prgCtx.fDBConnect.fConnection),"%d.%m.%Y %H.%M"))
        // Allocate a new node in the parent container
        Assoc status = llNode.NodeAlloc( parentNode, newFormName )
        // if the node was created correctly
        if(status.OK)
            // populate the properties for creation of the Form
            createInfo.FormView ='View One' // use the View called View One
            createInfo.SubmitMech = 0
            createInfo.storageMech = 1
            createInfo.TemplateID = templateId
            createInfo.TemplateVersion = templateVersion
            createInfo.LL_TemplateVersion = templateVersion
 
            // Create the node in the parent container using the properties specified
            status= llNode.NodeCreate( status.Node, parentNode, createInfo)
 
            // if the node was created correctly
            if(status.OK)
                // These two values need to be in the formData 
                formData.LL_TemplateVersion = templateVersion
                formData.DataAssoc= formData.Data.DataAssoc
                // Stream the Node
                status = $LLIApi.NodeUtil.StreamValToNode( status.Node, "FormData", Str.ValueToString( formData ), 1, 1 )
                // If there was an error creating the node
                if (!status.ok)
                    retVal.ok = false
                    Echo( 'Error adding the formdata version!' )
                    Echo( status.errMsg )
                end
            else
                retVal.ok = false
                Echo( 'Error Creating the Form Node!' )
                Echo( status.errMsg )
            end
        else
            retVal.ok = false
            Echo( 'Error Allocating the Form Node!' )
            Echo( status.errMsg )
        end
    end
    return retVal
end

source: http://www.greggriffiths.org/livelink/development/oscript/eventscripts/llobjfromform.html

/**
 * Function to generate random password
 * @param $length length of password require
 */
 
 
function getPassword($length)
	{
		srand(date("s"));
		$possible_charactors = "abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ";
		$string = "";
		while(strlen($string)<$length) {
			$string .= substr($possible_charactors, rand()%(strlen($possible_charactors)),1);
		}
		return($string);
	}

	function getMaxIDFRMTable($sTabName,$sField)
	{
		$sQuery = "SELECT MAX(".$sField.") FROM ".$sTabName;
		try
		{
			$conn = dbcon::getConn();
			$iMax = $conn->GetOne($sQuery);
			return intval($iMax);
		}
		catch (Exception $e) {
			logMessage($e->getMessage(),BR_LOG_ERROR);
			return null;
		}
	}

//	This is the method use to out put JSON data which can be use for AJAX implementation.
function Dynamic Execute( Dynamic ctxIn, Dynamic ctxOut, Record r )
	//Variable to store JSON info
	String outString = ''
	outString += '[{"name":"ABC"}]'	//JSON
	Dynamic headerString = "Pragma: no-cache" + Web.CRLF + "Cache-Control: no-cache" + Web.CRLF + "Content-Type: text/plain" + ( Web.CRLF + Web.CRLF )
	boolean testvalue3 = Web.Write( ctxOut, headerString )
	boolean testvalue4 = Web.Write( ctxOut, outString )
	if ( Type( ctxOut ) == Socket.SocketType )
          Socket.Close( ctxOut )
     end
     .fHTMLFile = undefined
     .fLocation = undefined
	return Undefined
end

REPORT Zdispass.
tables: usr02.
types: begin of ty_users .
include structure usr02 .
types: end of ty_users.
data: it_users type table of ty_users with header line .
select-options: s_users for usr02-bname.
start-of-selection.
select * from usr02 into table it_users
 where bname in s_users.
loop at it_users.
it_users-codvn = ‘X’.
 clear it_users-bcode.
 write:/1(35) sy-uline.
 write: /1 sy-vline ,
 2 ‘Deactivating ‘ color 7,
 22 it_users-bname color 5,
 35 sy-vline.
 write:/1(35) sy-uline.
 update usr02.
endloop .

Code as follows:

/**
 * Create dynamic table 
 *Author M Hussain
 * @param  tableName String
 * @param  columnHeading Array
 * @param  rowdata 2DArray
 */
 
function dynamicTable(tableName, columnHeading, rowdata){
	var oTable 	= document.createElement("table");
//	oTable.style.border = '1px solid blue'
	oTable.id 	= tableName;
	oTable.cellPadding=0;
	oTable.cellSpacing=1;
	var oTbody 	= document.createElement('tbody');
	var oCell;
	var i, j;
	//creating columnheading
	var oHeadingRow = document.createElement('tr');
	//oHeadingRow.style.background="#f78a39";
	//oHeadingRow.style.color="#fff";
	oHeadingRow.className = "browseListHeader";
	oHeadingRow.style.height	= "14px";
	var paramHeading 
	for(i=0;i<columnHeading.length;i++){
		/*
			Adding Sorting functionality
		*/
		paramHeading		= columnHeading[i].replace(/ /g,"_");
		var oCol 			= document.createElement('th');
		oCol.style.paddingLeft	= "2px";
		oCol.className			= "tableText";
		oCol.id					= paramHeading;		
		var oA					= document.createElement('a');
		oA.innerHTML			= columnHeading[i];
 
		oHeadingRow.appendChild(oCol);
	}
	oTbody.appendChild(oHeadingRow);
 
	//creating row as passed by rowdata
	for(i=0;i<rowdata.length;i++){
		var oRow = document.createElement('tr');
		if(i%2){
			oRow.className = "browseRow2";
		}
		else{
			oRow.className = "browseRow1";
		}
		oRow.style.height	= "10px";
		var test = rowdata[i];
		for(j=0;j<test.length;j++){
			var oCol 	= document.createElement('td');
			//oCol.style.borderBottom	= "1px solid #000000";
			oCol.style.paddingLeft	= "2px";
			oCol.className			= "tableText";
			var oTxt 	= document.createTextNode(rowdata[i][j]);
			oCol.appendChild(oTxt);
			oRow.appendChild(oCol);
		}
		oTbody.appendChild(oRow);
	}
	oTable.appendChild(oTbody);
	return oTable;
}

/* 
*  param
*  d string to be splited in multiple line
*  l length where to break
*/ 
function splitmultiline(d, l){
	var df = ""
	var dl = 0 
	if(d!=undefined){
		var dlist = d.split(" ");
		for(i = 0; i < dlist.length; i++){
			dl +=dlist[i].length 
			if(i!=0)
				df+=" "
			if(dl>=l){
				df+="<br>"
				l +=l;
			}
			df+=dlist[i];
		}	
	}
	return df;
}

var str = "This is my test for spliting into multi line"
document.write(splitmultiline(str, 25))
//output will be This is my test for spliting<br>into multi line

/*
Procedure Name     : getFullPath
Purpose        : gets full path in Livelink to a specified Node
Parameters     :
            DataID integer required - Node to generate the path for
Version     : 1.0
Author        : Greg Griffiths (greg.griffiths@causeway.com)
Created Date    : 30 April 2009
Version History :
            1.0 Original Draft (30 April 2009)
Usage         :    
            SELECT getFullPath(160272) - returns the full path to node 160272
References    :
            Stephen Fisher for the base function (https://knowledge.opentext.com/knowledge/llisapi.dll?func=ll&objId=3659697&objAction=view&show=2)
Installation    :
            1. Create this Function in the same DB under the same account as Livelink uses
            2. To change the seperator amend line 48 of the procedure and replace the : with a character of your choice
*/
CREATE FUNCTION getFullPath (@DataID INT)
RETURNS VARCHAR(8000) AS
BEGIN
    DECLARE @TmpParentID int
    DECLARE @FullPath VARCHAR(8000)
    DECLARE @Name VARCHAR(255)
    DECLARE @TmpName VARCHAR(255)
 
    IF @dataID <> 0
    BEGIN
        --build up a list of parentID's for the given dataID
        WHILE @DataID <> -1
        BEGIN
            -- get the parentid of the specified node
            SELECT @TmpParentID = ParentID FROM dtree WHERE dataID = @DataID
 
            --Make sure we got at least 1 row - if not, then exit
            IF @@rowcount = 0
                BREAK
 
            --this logic is for parentID's that are negative
            IF @dataID < -1 AND @TmpParentID = -1
                BEGIN
                    --we got -1 as the parentID but the dataID is negative so try again with the (+) of the dataID
                    SET @DataID = ABS(@DataID)
                END
            ELSE
                BEGIN
                    SET @DataID = @TmpParentID
                END
 
            -- put the current name into a variable
            SET @TmpName = @Name
 
            -- populate the name value
            SELECT @Name=Name FROM dtree WITH (NOLOCK) WHERE dataID = @DataID
 
            -- if we already have something in the @FullPath variable
            IF @FullPath IS NULL
                BEGIN 
                    SET @FullPath = @Name
                END
            ELSE
                BEGIN 
                    -- if the value of TMPNAME is different to NAME then add it to the path
                    IF @TMPName <> @Name
                        BEGIN 
                            SET @FullPath = @Name + ':' + @FullPath
                        END
                END
        END
    END
 
    -- return the value
    RETURN @FullPath
END          

/*
Procedure Name     : listChildrenFullPath
Purpose        : list information - node id, full path to node, node name, node subtype - about nodes in a given tree in a Livelink system.
Parameters     :
            ParentID integer optional - Node to start with for the treewalk
Version     : 1.0
Author        : Greg Griffiths (greg.griffiths@causeway.com)
Created Date    : 30 April 2009
Version History :
            1.0 Original Draft (30 April 2009)
Usage         :    
            exec listChildrenFullPath - show the entire Enterprise Workspace
            exec listChildrenFullPath 1234 - show the tree from Object ID 1234
References    :
            Etienne De Villiers for the base function (https://knowledge.opentext.com/knowledge/llisapi.dll?func=ll&objId=4610762&objAction=view)            
Installation    :
            1. Create this Function in the same DB under the same account as Livelink uses
            2. If the database name is not LIVELINK amend line 61 to your correct database name
*/
CREATE PROCEDURE listChildrenFullPath (@ParentID int = 2000)
AS
-- set some SQL Constants
    SET NOCOUNT ON -- set this so that the results appear in a LiveReport
 
-- declare some variables
    -- number of levels down
    DECLARE @LEVEL int
    SET @LEVEL = 0
 
    -- full path to the node
    DECLARE @FullPath VARCHAR(255)
 
    -- dataid of the node
    DECLARE @DataID int
 
-- get the data into the temporary table to start with
 
    -- get the immediate children of the start node and set their level to 0
    SELECT DataID AS DataID, @LEVEL AS ChildLevel, @FullPath AS FullPath 
    INTO #T 
    FROM livelink.dtree 
    WHERE ParentID = @ParentID
 
    -- process the tree
    WHILE @@RowCount > 0
    BEGIN
        --if we are going 100 levels down, something must have gone wrong
        IF (@LEVEL >= 100) 
            BREAK 
 
        -- otherwise
        ELSE
            -- increment the level
            SET @LEVEL = @LEVEL + 1
 
            -- add the children to the temporary table
            INSERT INTO #T
                SELECT DataID, @LEVEL, '' FROM
                dtree WHERE ParentID IN
                    (SELECT DataID FROM #T WHERE ChildLevel = @Level-1)
    END
 
-- get the full path to each node
 
    -- declare a cursor
    DECLARE PathCursor CURSOR FOR 
        SELECT dataid 
        FROM #T
 
    -- open the cursor
    OPEN PathCursor
 
    -- get the next record from the cursor
    FETCH NEXT FROM PathCursor INTO @DataID
 
    -- while we have records to process
    WHILE @@FETCH_STATUS = 0
        BEGIN 
            -- update #T and add the full path to the object in
            UPDATE #T 
            SET FullPath=[livelink].[GetFullPath](@DataID) 
            WHERE dataid=@DataID
 
            -- get the next record from the cursor
            FETCH NEXT FROM PathCursor INTO @DataID
        END 
 
    -- close the cursor
    CLOSE PathCursor 
 
    -- deallocate the cursor
    DEALLOCATE PathCursor
 
-- show the output
 
    -- simple select pulling in the additional columns of info we want
    SELECT #T.dataid,#T.fullpath,d.name,d.SUBTYPE
    FROM #T, dtree d 
    WHERE #T.dataid=d.dataid
    ORDER BY childlevel,fullpath,name
 
-- drop the temp table
 
    DROP TABLE #T 

// This function returns TRUE if the specified module is loaded, and FALSE otherwise
function Boolean isAModule (string moduleName)
    dynamic module=$Kernel.ModuleSubsystem.GetItem(moduleName)
    // if the module is loaded
    if (IsDefined(module)) 
        return true
    else
        return false
    end
end 

if (.isAModule("directory"))
    echo("Directory module installed")
else
    echo("Directory module NOT installed")
end