Month: July 2008

3 ways to invoke DEBUG for LANSA for the Web

document.LANSA.ASTDRENTRY.value=”N”;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+BDEBUG+QPADEV000Q”;
   document.LANSA.submit();

or

<form method=”post” name=”LANSA”
action=”/<RDML MERGE=”&CGI”>/LANSAWEB?WEBEVENT+<RDML MERGE=”&SESSPL”>+bdebug+QPADEV000H”>

or

http://lansa.com/cgi-bin/lansaweb?procfun+mamcomproc+mlogon+deM+eng+BDEBUG+QPADEV000M 

All Web Components together

<!– ################################################### –>
<!– ### !@BEGIN Page Component PAG_MNUSKLLAYOUT  ### –>
<!– ################################################### –>
<!– ################################################### –>
<!– ### !@BEGIN Field Component  &FLD_DCTHDRCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTHDRCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component  &FLD_DCTHDRCMP      ### –>
<!– ################################################### –>
<!– ############################################ –>
<!– ### !@BEGIN   RDML MERGE=”&MESSAGES” ### –>
<!– ############################################ –>
<RDML MERGE=”&MESSAGES”>
<!– ############################################ –>
<!– ### !@END      RDML MERGE=”&MESSAGES” ### –>
<!– ############################################ –>

<!– ################################################### –>
<!– ### !@BEGIN Field Component  &FLD_DCTPAGCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTPAGCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component  &FLD_DCTPAGCMP      ### –>
<!– ################################################### –>
   
<!– ################################################### –>
<!– ### !@BEGIN Field Component  &FLD_DCTHRFCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTHRFCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component  &FLD_DCTHRFCMP      ### –>
<!– ################################################### –>

<!– ################################################### –>
<!– ### !@BEGIN Field Component  &FLD_DCTFTRCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTFTRCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component  &FLD_DCTFTRCMP      ### –>
<!– ################################################### –>

<!– ################################################### –>
<!– ### !@END   Page Component PAG_MNUSKLLAYOUT  ### –>
<!– ################################################### –>
++++++++++++++++++
<!– ################################################# –>
<!– ### !@BEGIN Page Component PAG_MNUSKLHEAD  ### –>
<!– ################################################# –>
<!– Pull in Function specific needs to be put in <head>  –>
<!– ################################################# –>
<!– ### !@BEGIN Field Component &FLD_DCTHEDCMP  ### –>
<!– ################################################# –>
    <RDML COMPONENT=”&FLD_DCTHEDCMP””>
<!– ################################################# –>
<!– ### !@END     Field Component &FLD_DCTHEDCMP  ### –>
<!– ################################################# –>
<SCRIPT LANGUAGE=”JavaScript”> <!–

// Start of Change:  2008.06.04 – MAM – Allow for debug by prompt

function mmHandleEvent(Proc,Func)
{
  var dbugDEV = prompt( “Enter Device Name for Debug Else leave blank”  );
  if(dbugDEV!=”” )  document.LANSA.action+=”+BDEBUG+”+dbugDEV+”+%20″;
    document.LANSA._PROCESS.value=Proc;
    document.LANSA._FUNCTION.value=Func;
    document.LANSA.submit();
}
function go(url)
{
     if (document.images)
 {
 alert(‘test1’)
  location.replace(url);
 }
     else
 {
          location.href = url;
 }
}

function HandleEvent(Proc,Func)
{

   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.submit();
}
// –> </SCRIPT>
<!– ################################################# –>
<!– ### !@END   Page Component PAG_MNUSKLHEAD  ### –>
<!– ################################################# –>
+++++++++++++++
Mnusklbdyonload

<RDML COMPONENT=”&FLD_DCTONLCMP”>

<!– ############################################## –>
<!– ### !@BEGIN Page Component PAG_MNUHED     ### –>
<!– ############################################## –>
<style type=”text/css”>@import url(/images/migmnuproc/migmnuproc.css);</style>
<style type=”text/css”>
.submenu{display: none;}
</style>
<style type=”text/css”> @import url(/images/migmnuproc/dropdown.css); </style>
<script type=”text/JavaScript” src=”/images/HomeValue.js”></script>
<script type=”text/JavaScript” src=”/images/BVSexpress.js”></script>
<script type=”text/JavaScript”>
<!–
function HandleSplEvtLossRun(Proc,Func,Parm)
{
   document.LANSA.AMPROD.value=” “;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ASELECT(A0010):”+Parm;
   document.LANSA.submit();
}

function HandleCCP(Proc,Func,Parm)
{
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ASPLFLG(A0060):”+Parm;
   document.LANSA.submit();
}

function HandleSplEvent(Proc,Func,Parm3)
{

   document.LANSA.action+=”+FUNCPARMS+MPROD(A0030):”+Parm3;
   document.LANSA.AMPROD.value=Parm3;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.submit();
}
function prelaunchHV()
 {
 name = “<RDML MERGE=”AGYNAM   “>”;
 badchar = “‘”
 newname = name.replace(badchar, “”);
 launchHomeValue(‘<RDML MERGE=”MUSRID   “>’,”,newname,’QLAFKIUDJ%7DLWI%60VGMDJPV’,’demo.isohomevalue.com’,”,'<RDML MERGE=”MLOGSESID”>’)
 //launchHomeValue(‘<RDML MERGE=”MUSRID   “>’,”,newname,’QLAFKIUDJ%7DLWI%60VGMDJPV’,’homevalue.qa.air-worldwide.com’,”,’L080A6D0428B9D9C48D5D12072004151532′)
 } 
function openWindow(url)
 {
 var baseurl = “http://www.merchantsgroup.com”
 var page = baseurl + url
 var opt = “width=770,height=560,top=20,left=20,scrollbars=yes,resizable=yes,menubar=no,toolbar=yes,status=yes,location=yes”
 var win
 window.open(page,”Title”,opt)
 }
function HandleSpecialEvt2(Proc,Func,Parm)
{
   document.LANSA.AMPROD.value=” “;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ACOMFLG(A0010):”+Parm;
   document.LANSA.submit();
}
function HandleSplEvtLossRun(Proc,Func,Parm)
{
   document.LANSA.AMPROD.value=” “;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ASELECT(A0010):”+Parm;
   document.LANSA.submit();
}
//–>
</script>
<!– ############################################## –>
<!– ### !@END    Page Component PAG_MNUHED     ### –>
<!– ############################################## –>

+++++

<!– ############################################## –>
<!– ### !@BEGIN Page Component PAG_MNUHDR     ### –>
<!– ############################################## –>
<!– ############################################## –>
<!– ### !@END    Page Component PAG_MNUHDR     ### –>
<!– ############################################## –>

Good web Skeleton – handles body onload

    1.00  50222<?xml version=”1.0″ encoding=”UTF-8″?>
    2.00  50222<html xmlns=”http://www.w3.org/1999/xhtml” xml:lang=”en” lang=”en”>
    3.00  80618<!– LANSA for the Web – Skeleton Layout for MNU                    –>
    4.00  50222<!– Process         : %PR        %PRDS                             –>
    5.00  50222<!– Function        : %FU        %FUDS                             –>
    6.00  50222<!– Page            : %PG                                          –>
    7.00  50222<!– Generated by    : %PROD                                        –>
    8.00  50222<!– Created by user : %USERI                                       –>
    9.00  50222<!– Time and Date   : %STAMP                                       –>
   10.00  50222<!– RDML function sequence number – %SEQ                           –>
   11.00  50222<!– This is a *WEBEVENT function   %IFWEV                          –>
   12.00  50222<head>
   13.00  80522<!– Put Function Specific JS infront of Base JS                    –>
   14.00  80618<RDML COMPONENT=”PAG_MNUSKLHEAD”>
   15.00  80521<!– Title put in skeleton for base and function components         –>
   16.00  80521<TITLE><RDML MERGE=”&FUNCTION”> </TITLE>
   17.00  50222</head>
   18.00  80620<body <RDML COMPONENT=”PAG_MNUSKLBODYONLOAD”>>
   19.00  50222<!– ======================= LANSA Form Begins ======================== –>
   20.00  50222%W3FRM
   21.00  50222<!– Default hidden or process hidden –>
   22.00  50222<RDML MERGE=”&HIDDEN”>
   23.00  50222<!– ==================  Hidden Fields in the Request Group =========== –>
   24.00  80623<table border=”0″ cellpadding=”0″ cellspacing=”0″>
   25.00  50222%W3FLD
   26.00  50222</table>
   27.00  50222<!– ======================  End of Hidden fields   ===================  –>
   28.00  50222<!– =============================================== ==================  –>
   29.00  50222<!– =========================  Layout Begins Here   ==================  –>
   30.00  80618<RDML COMPONENT=”PAG_MNUSKLLAYOUT”>
   31.00  50222<!– =========================  Layout Ends Here   ====================  –>
   32.00  50222<!– =============================================== ==================  –>
   33.00  50222<!– ==========================  Browse List contents Start ===========  –>
   34.00  50222%W3BRW
   35.00  50222<!– ==========================  Browse List contents End  ============  –>
   36.00  50222</form>
   37.00  50222<!– ============================  LANSA Form Ends Here  ==============  –>
   38.00  50222</body>
   39.00  50222</html>