Bank of America Rips you off. They process the debits in your account from Largest Amount to Smallest. There should be only 1 overdraft charge even though 2000 was deposited on the same day.
Author: lansa
What I am giving up for Lent
I am giving up potato chips because I like potato chips and everytime I see a potato chip and I don’t eat it, it reminds me of Jesus being in the desert.
And it makes me feel good that I don’t eat it.
Elizabeth Mason
EDPX RDML
FUNCTION OPTIONS(*DIRECT *WEBEVENT)
GROUP_BY NAME(#PRMTBLGRP) FIELDS(#MPRMCTG #MPRMCOD #MPRMDSC)
DEF_LIST NAME(#ARRAY_LST) FIELDS(#Z_DATA) COUNTER(#Z_COUNT) TYPE(*WORKING) ENTRYS(500)
DEF_LIST NAME(#X1BL01LST) FIELDS(#X1ALPLONG) ENTRYS(1000)
DEFINE FIELD(#ZZCOUNT) TYPE(*DEC) LENGTH(2) DECIMALS(2)
DEFINE FIELD(#ZZCOUNTC) TYPE(*CHAR) LENGTH(2)
DEFINE FIELD(#ZFNAMEMMM) TYPE(*CHAR) LENGTH(25)
DEFINE FIELD(#ZLNAMEMMM) TYPE(*CHAR) LENGTH(25)
DEFINE FIELD(#ZSSNUMMMM) TYPE(*CHAR) LENGTH(25)
* =======================================================
* Moving Respective HTML Pages to Components
* =======================================================
CHANGE FIELD(#DCTONLCMP) TO(*NULL)
CHANGE FIELD(#DCTHEDCMP) TO(PAG_RPARRHED)
CHANGE FIELD(#DCTHDRCMP) TO(*NULL)
CHANGE FIELD(#DCTLFTCMP) TO(*NULL)
CHANGE FIELD(#DCTPAGCMP) TO(PAG_RPARRAY)
* =======================================================
* Process according to Button clicked
* =======================================================
CASE OF_FIELD(#STDRENTRY)
WHEN VALUE_IS(‘*EQ N’)
* do logic here to validate if you want to
REQUEST FIELDS(#ZFNAMEMMM #ZLNAMEMMM) EXIT_KEY(*NO) MENU_KEY(*NO)
WHEN VALUE_IS(‘*EQ *BLANKS’)
CHANGE FIELD(#MPRMCTG) TO(PENDC)
CHANGE FIELD(#MPRMCOD) TO(”’RPARRAY1”’)
CLR_LIST NAMED(#ARRAY_LST)
CLR_LIST NAMED(#X1BL01LST)
SELECT FIELDS(#PRMTBLGRP) FROM_FILE(M@PRMTBL) WITH_KEY(#MPRMCTG #MPRMCOD) GENERIC(*YES)
EXECUTE SUBROUTINE(LISTENTRY) WITH_PARMS(#MPRMDSC)
ENDSELECT
* Build List for Javascript Array
CHANGE FIELD(#ZZCOUNT) TO(0)
SELECTLIST NAMED(#ARRAY_LST)
CHANGE FIELD(#X1ALPLONG) TO(#Z_DATA)
ADD_ENTRY TO_LIST(#X1BL01LST)
ENDSELECT
OTHERWISE
MESSAGE MSGTXT(‘STDRENTRY not Programmed for’)
ENDCASE
REQUEST FIELDS((#STDNEXT *HIDE) (#STDRENTRY *HIDE)) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO)
REQUEST BROWSELIST(#X1BL01LST) EXIT_KEY(*NO) MENU_KEY(*NO)
* =======================================================
* Subroutine ….: LISTENTRY
* Description….: Add Entries to List
* =======================================================
SUBROUTINE NAME(LISTENTRY) PARMS(#Z_DATA)
IF_NULL FIELD(#Z_DATA)
ELSE
ADD_ENTRY TO_LIST(#ARRAY_LST)
ENDIF
ENDROUTINE
EDPX PAGE COMPONENT
<script language=”javascript”>
var arrEDPX=new Array(); //* Array of Field Validation requests
//* Populate/Override above fields by Loading Global Script Data Defined in the Function RDML
//###############################
//### BEGIN RDML Provided Data ###
//###############################
<RDML MERGE=”&BLX1BL01LST”>
//###############################
//### END RDML Provided Data ###
//###############################
</script>
<style type=”text/css”>
<!–
A {color:blue;text-decoration:none;font:x-small arial;}
–>
</style>
<table cellpadding=”0″ cellspacing=”0″ border=”0″ align=”center” >
<tr align=”center”>
<TR><TD VALIGN=”TOP” COLSPAN=”2″><RDML COMPONENT=”&FLD_DCTLFTCMP”></TD>
<td align=”center” width=”725″ height=”100%” valign=”top” bgcolor=”white”>
<TABLE width=725>
<tr><td>
<br><center><FONT Color=”#8C2532″ Face=”ARIAL” Size=”5″><b>Loading a javascript array</FONT></b></center>
</td></tr>
<tr><td>
<!– ############################################ –>
<!– ### !@BEGIN RDML MERGE=”&MESSAGES” ### –>
<!– ############################################ –>
<RDML MERGE=”&MESSAGES”>
<!– ############################################ –>
<!– ### !@END RDML MERGE=”&MESSAGES” ### –>
<!– ############################################ –>
<br>
<TABLE ALIGN=”CENTER”>
<TR>
<TD>First Name</TD>
<TD><INPUT TYPE=”TEXT” NAME=”AZFNAMEMMM” TITLE=”First Name” ID=”FNAME” EDPX=”RXQA2Z004010REQ” onfocus =”focusWork(this,event)” onblur=”focusWork(this,event)”></TD>
</TR>
<TR>
<TD>Last Name</TD>
<TD><INPUT TYPE=”TEXT” NAME=”AZLNAMEMMM” TITLE=”Last Name” ID=”LNAME” EDPX=”REQa2z” onfocus =”focusWork(this,event)” onblur=”focusWork(this,event)””></TD>
</TR>
<TR>
<TD><INPUT TYPE=”SUBMIT” VALUE=”Submit Form” ID=”BUTTON2″ onClick=”return validateForm();”></TD>
<TD><INPUT TYPE=”RESET” VALUE=”Reset”></TD>
</TR>
</TABLE>
<!– Job# <RDML MERGE=”*JOBNBR”> –>
</tr></td>
</TABLE>
EDPX HED COMPONENT
<!– ############################################## –>
<!– ### !@BEGIN Page Component PAG_HED ### –>
<!– ############################################## –>
<script type=”text/JavaScript”>
<!–
//* This is an attempt to eventually pull out the file level
//* validations from the LANSA repository to be applied on client side
function validateForm()
{
var myattr=new Array();
bldAttrArray(myattr);
if(chkreqelements(myattr,’form’))
{mapValuesBack();return(true);} else {return(false);}
if(customValidations) {return(true);} else {return(false);}
}
function validateField(vfieldobj)
{
var myfieldobj=vfieldobj;
var myfieldattr=new Array();
bldFieldAttrArray(myfieldobj,myfieldattr);
if(!chkreqelements(myfieldattr,’field’)) ErrField(myfieldobj);
}
function bldAttrArray(bldattrarr)
{
var attstr=”what is in new array\n\n”;
var attnodeName=””;
var attnodeValue=””;
var k=0;
for(i=0;i<document.LANSA.elements.length;i++)
{
for(j=0;j<document.LANSA.elements[i].attributes.length;j++)
{
attnodeName=document.LANSA.elements[i].attributes[j].nodeName.toUpperCase();
if(attnodeName==”EDPX”)
{
attnodeValue=document.LANSA.elements[i].attributes[j].nodeValue;
attnodeValue=attnodeValue.toUpperCase();
k=bldattrarr.length;
bldattrarr[ k ]=document.LANSA.elements[i].id+”:”+attnodeValue;
attstr += bldattrarr[ k ]+” “;
attstr += “\n”;
}
}
}
//* remove comment bellow to see all EDPX elements in form
//*alert( attstr );
}
function bldFieldAttrArray(fieldobj,fieldattarr)
{
var fieldattobj=fieldobj;
var fieldattstr=”what is in field array\n\n”;
var fieldattnodeName=””;
var fieldattnodeValue=””;
var k=0;
for(j=0;j<fieldattobj.attributes.length;j++)
{
fieldattnodeName=fieldattobj.attributes[j].nodeName.toUpperCase();
if(fieldattnodeName==”EDPX”)
{
fieldattnodeValue=fieldattobj.attributes[j].nodeValue;
fieldattnodeValue=fieldattnodeValue.toUpperCase();
k=fieldattarr.length;
fieldattarr[ k ]=fieldattobj.id+”:”+fieldattnodeValue;
fieldattstr += fieldattarr[ k ]+” “;
}
}
fieldattstr += “\n”;
//* remove comment bellow to see all EDPX elements in form
//* alert(fieldattstr);
}
function chkreqelements(attarr,atttyp)
{
var cremsg=”The Following errors have been found: “;
//* For LANSA users Messages can be put in a browse list *NOBICP then do a merge list here
var crems00=”is required and must be entered”
var crems01=”has bad address “;
var crems02=”has invalid characters a-z A-Z “;
var crems03=”has invalid characters a-z A-Z 0-9 “;
var crems04=”is not a number “;
var crems05=”can not be a number “;
var crems06=”is invalid date “;
var crems07=”is not an acceptable range for Date of Birth “;
var crems08=”is invalid format ###-##-#### “;
var crems09=” “;
var crems10=” “;
var crems11=” “;
var crems12=” “;
var crems13=” “;
var crems14=” “;
var crems15=” “;
var crems99=”ERROR COUNT -> “;
var creid=””;
var creval=””;
var crestr=””;
var dotdot=0;
var creobj=””;
var crereq=””;
var cretyp=””;
var cretxt=””;
var errcnt=0;
var cretmp=””;
cremsg += “\n\n”;
for(i=0;i<attarr.length;i++)
{
crestr=attarr[i];
dotdot=crestr.indexOf(“:”);
creid=crestr.substr(0,dotdot);
creval=crestr.substr(dotdot+1,crestr.length-1);
crereq=creval.match(“REQ”);
creobj=document.getElementById(creid);
creobj.value=trimTrailingBlanks(creobj.value);
credesc=creobj.name;
if(creobj.title) {credesc=creobj.title;}
if(creobj.value.length == 0)
{
//* Format of message here
cretmp=credesc+” as NULL => ”
if(creval.match(“REQ”)) {errcnt=errcnt+1;cremsg +=cretmp+crems00+”\n”;}
}
else
{
//* Format of message here
cretmp=credesc+” as “+creobj.value+” => ”
//* Add new validation checks here
if(creval.match(“EML”)) {if(!emailValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems01+”\n”;}}
if(creval.match(“A2Z”)) {if(!isAlpha(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems02+”\n”;}}
if(creval.match(“A29″)) {if(!isAlphanumeric(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems03+”\n”;}}
if(creval.match(“NUM”)) {if(!isNumeric(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems04+”\n”;}}
if(creval.match(“NAN”)) {if(isNumeric(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems05+”\n”;}}
if(creval.match(“DTE”)) {if(!dmyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems06+”\n”;continue}}
if(creval.match(“DOB”)) {if(!dmyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems07+”\n”;}}
if(creval.match(“SSN”)) {if(!isSSN(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems08+”\n”;}}
if(creval.match(“ZIP”)) {if(!isZipcodeUSA(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems09+”\n”;}}
if(creval.match(“ZZZ”)) {if(!dummyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems10+”\n”;}}
if(creval.match(“ZZZ”)) {if(!dummyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems11+”\n”;}}
if(creval.match(“ZZZ”)) {if(!dummyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems12+”\n”;}}
if(creval.match(“ZZZ”)) {if(!dummyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems13+”\n”;}}
if(creval.match(“ZZZ”)) {if(!dummyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems14+”\n”;}}
if(creval.match(“ZZZ”)) {if(!dummyValidator(creobj)){errcnt=errcnt+1;cremsg +=cretmp+crems15+”\n”;}}
}
}
if(errcnt!= 0)
{
if(errcnt!=1) cremsg+=”\n”+crems99+errcnt;
if(atttyp==’form’) alert( cremsg );
return(false);
}
else
{return(true);}
}
function trimTrailingBlanks(TrimtrailingblanksValue)
{trim=TrimtrailingblanksValue;
if (trim.length==0) return trim;
for (var i=trim.length-1;i>=0;i–) if (trim.substring(i,i+1) !=’ ‘) {i++;break;}
if (i<0) i=0;
trim=trim.substring(0,i);
return trim;
}
//* ==============================================
//* Validation functions — Add new functions here
//* ==============================================
function isNumeric(elem){
var numericExpression = /^[0-9]+$/;
if(elem.value.match(numericExpression)){
return true;
}else{ return false;}
}
// If the element’s string matches the regular expression it is all letters
function isAlpha(elem){
var alphaExp = /^[a-zA-Z]+$/;
if(elem.value.match(alphaExp)){
return true;
}else{ return false;}
}
// If the element’s string matches the regular expression it is numbers and letters
function isAlphanumeric(elem){
var alphaExp = /^[0-9a-zA-Z]+$/;
if(elem.value.match(alphaExp)){
return true;
}else{ return false;}
}
function lengthRestriction(elem, min, max){
var uInput = elem.value;
if(uInput.length >= min && uInput.length <= max){
return true;
}else{ return false;}
}
function emailValidator(elem){
var emailExp = /^[\w\-\.\+]+\@[a-zA-Z0-9\.\-]+\.[a-zA-z0-9]{2,4}$/;
if(elem.value.match(emailExp)){
return true;
}else{ return false;}
}
function dummyValidator(elem){
if(elem==elem){
return true;
}else{ return false;}
}
function ssnValidation(elem) {
var ssn = elem.value;
var matchArr = ssn.match();
var numDashes = ssn.split(‘-‘).length – 1;
if (matchArr == null || numDashes == 1 || (parseInt(matchArr[1],10)==0)) {return false;} else { return true;}}
function isSSN(elem){
var numericExpression = /^(\d{3})-?\d{2}-?\d{4}$/;
if(elem.value.match(numericExpression)){
return true;
}else{ return false;}
}
function isZipcodeUSA(elem)
{
var iszip = elem.value;
var numDashes = elem.value.split(‘-‘).length – 1;
var islength = elem.value.length;
if (islength == 5)
{
if(isNumeric(elem))
{
return true;
} else { return false;}
}
}
//#######################################
//### Highlight/Unhighlight Focused Input Fields
//#######################################
function focusWork(focusworkThis,focusworkEvent)
{var Event=focusworkEvent;
var This=focusworkThis;
if (Event.type==’focus’) This.style.backgroundColor=’Yellow’;
if (Event.type==’blur’)
{ This.style.backgroundColor=’White’;
validateField(This);}
}
//#######################################
//### Error Notify Red Background Fields
//#######################################
function ErrField(errfieldThis)
{ var This=errfieldThis;
This.style.backgroundColor=’Pink’;
}
function isCustom()
{
//* Put your custom specific validations here (false=fail)
if(‘a’ == ‘a’) {return(true);}
else {return false;}
}
function switchInputType(SwitchinputtypeBase,SwitchinputtypeObjectID)
{
var objectSW=document.getElementById(SwitchinputtypeObjectID);
var baseSW=SwitchinputtypeBase;
baseSW.value=objectSW.value;
var masag=’Value is/’+baseSW.value;
alert(masag);
debugAlert(baseSW);
}
function mapValuesBack()
{
//switchInputType(document.LANSA.AZFNAMEMMM,’FNAME’);
//switchInputType(document.LANSA.AZLNAMEMMM,’LNAME’);
document.LANSA.ASTDRENTRY.value=’N’;
HandleEvent(‘<RDML MERGE=”*PROCESS”>’,'<RDML MERGE=”*FUNCTION”>’);
}
//#####################################################
//### Alert to Show Object Properties
//#####################################################
function debugAlert(AlertObject)
{ var i = 0 ; a = “”;
// list all window properties in a variable
for ( property in AlertObject )
{a += ( i ) + ” ” + property + “…”;
i ++;
if(i % 5 == 0) a += “\n”;
}
// display the window properties list
alert( a );
}
//–>
</script>
<!– ############################################## –>
<!– ### !@END Page Component PAG_HED ### –>
<!– ############################################## –>
That logon info I always forget
2028 / mark
whhoooo who – SQL UPDATE A PORTION OF FIELD FROM FIELD IN OTHER FILE
UPDATE prddtalib/crtran Set CROBATCH = (SELECT
substr(client_ID,4,2) FROM ritadb30/request where crtran.crritaid =
request.troutd) concat substr(crobatch,3,10)
WHERE crtran.crritaid IN (Select troutd FROM
ritadb30/request)
50 rows updated in CRTRAN in PRDDTALIB.
11:55 pm still got it
SQL STUFF I FORGET
String Functions
Function | Description | CHAR(N) | Returns the the string representation of the number N. |
---|---|
CHAR_LENGTH(S) | Returns the length of a string. |
CONCAT(S1, S2) | Concatenates S1 with S2. |
SUBSTR(S, I, L) | Returns a substring of S, starting at index I of lenght L. |
LOWER(S) | Returns the lowercase representation of S. |
UPPER(S) | Returns the uppercase representation of S. |
TRIM(S) | Removes spaces from the beggining and and of S. |
RTRIM(S) LTRIM(S) |
Removes spaces at the begging (right) or end (left) of S. |
Date and Time Functions
Function | Description | CURDATE() CURTIME() |
Returns the system’s current date/time. |
---|---|
DATE(D) DATE(T) |
Converts a string representation of a date/time into into a date/time value. |
DAY(D) | Returns the day(1-31) from the date D. |
WEEK(D) | Returns the week (1-54) from the date D. |
MONTH(D) | Returns the month (1-12) from the date D. |
YEAR(D) | Returns the year from the date D. |
DAYOFWEEK(D) | Returns the week day (1-7) from the date D where 1 is Sunday. |
DAYOFWEEK_ISO(D) | Returns the week day (1-7) from the date D where 1 is Monday. |
DAYOFYEAR(D) | Returns the number of the day, in a year (1-366). |
HOUR(T) | Returns the hour (0-24) from the time T. |
MINUTE(T) | Returns the minute from the time T. |
SECOND(T) | Returns the second from the time T. |
MICROSECOND(T) | Returns the microsecond from the time |
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 ### –>
<!– ############################################## –>