How can I register JScript in ASP.Net using RegisterOnSubmitStatement in COBOL ?

Problem:

RegisterOnSubmit allows you to register client side JavaScript code from your COBOL running on the WebServer.

There is a demo attached to this. It adds some Java Script that gets triggered when a button is pressed.

The code that registers script is:-

method-id. "Page_Load" is protected.

local-storage section.

01 clntscriptname string.

01 clntscripttype cType.

01 scriptman cClientScriptManager.

01 scripttext string.

linkage section.

01 param-sender object reference class-sysobject.

01 param-e object reference class-eventargs.

procedure division using by value param-sender param-e.

*> Define the name and type of the client script on the page.

set clntscriptname to "OnSubmitScript";

set clntscripttype to self::"GetType"()

*> Get a ClientScriptManager reference from the Page class.

set scriptman to self::"Page"::"ClientScript"

*> Check to see if the OnSubmit statement is already registered.

if not scriptman::"IsOnSubmitStatementRegistered"(clntscripttype,clntscriptname)

set scripttext to "document.write('Text from OnSubmit statement generated from RegisterOnSubmitStatement');"

invoke scriptman::"RegisterOnSubmitStatement"(clntscripttype,clntscriptname,scripttext)

end-if

set self::"Label1"::"Text" to cAssembly::"GetExecutingAssembly"::"FullName"()

set self::"Label3"::"Text" to cAssembly::"GetExecutingAssembly"::"Location"()

end method "Page_Load".

end object.

end class _Default.

Old KB# 3825