SPECIAL CODE AND SCRIPTS

Handy-Dandy Examples

POPUP WINDOWS & RE-DIRECT:
POPUP TO CGI PASSING VARIABLES
CLOSE WINDOW: PERL do(sqlcmd)
EXIT TO HOME PAGE:
SHOWBOX : SCROLLING DIV
CHECKBOX AND CHANGE INDEX FIELD COLORS
GET SELECTED INDEX AND SET VALUE
JAVASCRIPT TO TURN THE ENTER-KEY INTO A TAB-KEY
GENERATE THE JAVSCRIPT TO CALCULATE ROW TOTALS
HARD-CODED EXAMPLE OF ABOVE CODE - CALCULATE TOTALS
TOGGLE REPORTS BASED UPON CHECKBOX
BIG RADIO BUTTONS
FILTERS
LIMIT TEXTAREA SIZE
JAVASCRIPT - GET SCREEN RESOLUTION
popitup5 image
FF1-FF6 BUTTON STYLES & OCTAL REPLACE
PERL - LOOP THRU INDEXED FIELDS

POPUP WINDOWS:
<p><a href="javascript:void(0)" onclick="window.open('Examples-Section-V.html','HELP1','width=850,height=800,menubar=no,status=no,location=no,toolbar=no,scrollbars=yes,resizable=yes,top=50,left=50')">Examples</a></p> <body onLoad="this.focus()"> CENTER: <script type="text/javascript"> window.resizeTo(820,650); window.moveTo((screen.width-820)/2,(screen.height-650)/2); </script> <html> <head> <meta http-equiv="REFRESH" content="5; URL=http://www-is.nsc.com/finance/AES/PROD/index.html"> </head> ----- print "Location: http://www-is.nsc.com/~finance/MVS-CONSUMPTION-INDEX/index.html\n\n"; ----- <html> <body bgcolor=#000000> <head> <meta http-equiv="REFRESH" content="5; URL=http://fin-is.nsc.com/XXX/index.html"> </head> <p> <table border=2 bordercolor=#0000AA align=left cellpadding=0 cellspacing=0 width=800 bgcolor=#FFFFFF> <tr height=195 valign=middle> <TD nowrap align=center> <P><font face=arial size=+1 color=red> <b> The XXX system has moved. <P><font face=arial size=+1 color=black> You should be automatically re-directed to the new page in 5 seconds. <P><font face=arial size=+1> or click <A HREF=http://fin-is.nsc.com/finance/XXX/index.html> <font color=blue>here</A><font color=black> to go to the page. <P><font face=arial size=+1 color=#4444FF> Please Update your Favorites/Bookmarks to the new address. <p> <p> </table>

POPUP TO CGI PASSING VARIABLES
$CCTR = $input{'CCTR'}; $HREFO1 = '<a href="javascript:void(0)" onclick="window.open('; $HREFO2 = "'Get-Project-Desc.cgi?&CCTR=$CCTR&SEQ=1&CHG=1'"; $HREFO3 = ",'HELP2','width=850,height=800,menubar=no,status=yes,location=no,tool bar=no,scrollbars=yes,resizable=yes,top=50,left=50')"; $HREFO4 = '">Last Year</a>'; $HREFO = $HREFO1.$HREFO2.$HREFO3.$HREFO4;

CLOSE WINDOW:
<INPUT type="button" value="Close Window" onClick="window.close()"> </FORM> ==================================================== $sql_cmd = " delete from corpfin_dbo.t238_vertexz "; $RC = $dbh->do($sql_cmd); print "<pre>DELETED: ",$RC; ==================================================== $st2= $dbh->prepare("SELECT count(*) FROM $data[0] "); $st2->execute; $RC1 = $st2->fetchrow_array(); #print "\n RC1: ",$RC1;

EXIT TO HOME PAGE:
<script> function gohome(){ //if NS 4+ if (document.layers) window.home() //else if IE 4+ else if (document.all) window.location="about:home" } </script> <form> <input type="button" onClick="gohome()" value=" EXIT "> </form>

SHOWBOX
<script language ="javascript"> function ShowBox1a() { document.all.div1.style.display = 'block'; } function ShowBox1b() { document.all.div1.style.display = 'none'; } </script> <TD>$NB <img src=/finance/images/gl-question.gif border=0 onClick="ShowBox1a()"> <b><A HREF=# onClick="ShowBox1a()" $HRN> $F1D<b>SCREEN and CODE INFORMATION </A> ----------------------------- <DIV ID=DIV3 style="width:1175; height: $GRID ; background-color: #FFFFFF; overflow: auto; padding: 0px; border-color: #A0A0A0; border-width: 1px; border-style: solid; display:block;">

CHECKBOX AND CHANGE INDEX FIELD COLORS
<script language ="javascript"> function Check1(ix1) { //var chknm = 'document.all.CHK'+ix1; //var newnm = 'document.all.BOX'+ix1; var uid2 = 'UID'+ix1; var uix2 = 'UIX'+ix1; var newn2 = 'BOX'+ix1; var chkn2 = 'CHK'+ix1; var chkzz = document.all[chkn2].checked; // document.all.HELP1.value = chkzz; if (chkzz == true) { document.all[newn2].value = 'DELETE'; document.all[newn2].style.color='#FF0000'; document.all[uid2].style.color='#FF0000'; document.all[uix2].style.color='#FF0000'; } else { document.all[newn2].value = 'VERIFY'; document.all[newn2].style.color='#000000'; document.all[uid2].style.color='#000000'; document.all[uix2].style.color='#000000'; } } </script> <TD $AC $NW> <INPUT TYPE=CHECKBOX NAME=CHK$i ID=CHK$i $CHK1 onClick="Check1($i)">

GET SELECTED INDEX AND SET VALUE
<SCRIPT LANGUAGE="JavaScript"> function UpdateField0(index) { form=document.FORM001; form.DESC5.value = (form.CCAT.options[index].value.substr(2,30)) form.FLD30.value = (form.CCAT.options[index].value.substr(0,1)) } <SELECT onChange="UpdateField0(this.selectedIndex)"; ID=CCAT NAME=CCAT $FF3> <INPUT TYPE=TEXT SIZE=4 MAXLENGTH=1 ID=FLD30 NAME=FLD30 VALUE='$FLD30' $FF2> $NB $NB $NB <INPUT TYPE=TEXT SIZE=30 MAXLENGTH=99 ID=DESC5 NAME=DESC5 VALUE='$DESC5' $FF2>

Javascript to turn the ENTER-KEY into a TAB-KEY
print <<ENDOFFILE; <script type="text/javascript"> function stopRKey(evt) { var evt = (evt) ? evt : ((event) ? event : null); var node = (evt.target) ? evt.target : ((evt.srcElement) ? evt.srcElement : n ull); if ((evt.keyCode == 13) && (node.type=="text")) { evt.keyCode=9; return false; } } document.onkeypress = stopRKey; </script>

Generate the javascript to CALCULATE ROW TOTALS
$i=1; do { print <<ENDOFFILE; <script type="text/javascript" language="javascript"> function getTOTAL$i(oForm) { var field, i = 0, ETOT$i = 0, els = oForm.elements; ENDOFFILE $BEG = "var fieldnames = ["; $MID = ''; $ii=0; do { $MID = $MID."'P".$i."_".$ii."',"; $ii++; } while ($ii ne 24 && $ii ne $TOT1); $END = "'P".$i."_".$ii."'];"; print <<ENDOFFILE; $BEG $MID $END for (i; i < fieldnames.length; ++i) { field = els[fieldnames[i]]; if (field.value != '' && isNaN(field.value)) { field.value=''; field.focus(); field.select(); return ' '; } else ETOT$i += Number(field.value); } return ' ' + ETOT$i; } </script> # Code in loop <TD nowrap align=right width=45> <INPUT TYPE=TEXT MAXLENGTH=3 SIZE=3 NAME=P$ii$U S$ctr VALUE=$TOT[$ctr] ID=PCT$ii$US$ctr $STYLE $STYLE2 onkeydown="if(event.keyCode==13)event.keyCode=9;"; onBlur="ETOT$ii.value=getTOTAL$ii(this.form);" onfocus=select(); $READONLY ></TD> $j = $ii + 1; $FOCUS = 'onfocus="this.form.PCT'.$j.'_0.focus()"';

HARD-CODED EXAMPLE OF ABOVE CODE - CALCULATE TOTALS
<script type="text/javascript" language="javascript"> function getTOTAL1(oForm) { var field, i = 0, ETOT1 = 0, els = oForm.elements; var fieldnames = [ 'P1_0','P1_1','P1_2','P1_3', 'P1_4']; for (i; i < fieldnames.length; ++i) { field = els[fieldnames[i]]; if (field.value != '' && isNaN(field.value)) { field.value=''; field.focus(); field.select(); return ' '; } else ETOT1 += Number(field.value); } return ' ' + ETOT1; } </script> onkeydown="if(event.keyCode==13)event.keyCode=9;"; onBlur="ETOT3.value=getTOTAL3(this.form);" onfocus=select(); READONLY STYLE=background-color:#C0C0C0;

TOGGLE REPORTS BASED UPON CHECKBOX
<script language ="javascript"> function ShowDiv1() { var obj=document.all.STAT1.value; if (document.all.STAT1.checked){ document.all.div1.style.display = 'block'; document.all.div2.style.display = 'none'; document.all.STAT2.checked=false; } document.all.STAT1.checked=true; } </script> <script language ="javascript"> function ShowDiv2() { var obj=document.all.STAT2.value; if (document.all.STAT2.checked){ document.all.div1.style.display = 'none'; document.all.div2.style.display = 'block'; document.all.STAT1.checked=false; } document.all.STAT2.checked=true; } </script> <LABEL FOR=STAT2> <INPUT TYPE=CHECKBOX NAME=STAT2 CHECKED onClick="ShowDiv2();" STYLE=width:23px STYLE=height:23px ID=STAT2> </FONT></B><FONT FACE=TAHOMA SIZE=-1 COLOR=BLUE><b> [HTML] </LABEL> <LABEL FOR=STAT1> <INPUT TYPE=CHECKBOX NAME=STAT1 onClick="ShowDiv1();" STYLE=width:23px STYLE=height:23px ID=STAT1> </FONT></B><FONT FACE=TAHOMA SIZE=-1 COLOR=BLUE><b> [TEXT] </LABEL></TD>

-BIG RADIO BUTTONS
$RBSTYLE = 'STYLE=width:23px STYLE=height:23px'; <LABEL FOR=CH1Y><INPUT TYPE=RADIO NAME=CHK01 VALUE=Y $CH1Y ID=CH1Y $RBSTYLE> YES </LABEL> <LABEL FOR=CH1N><INPUT TYPE=RADIO NAME=CHK01 VALUE=N $CH1N ID=CH1N $RBSTYLE> NO </LABEL>

-FILTERS
##-------------------------------------------------------## ## Get FILTERS for Drop Down List Boxes ## ##-------------------------------------------------------## $sql_cmd = " select distinct f_flt_c, f_flt_x from stox_dbo.EE_FILTERS where a_uid_c = '$LOGON' and db_rectyp_c = '5' order by 1, 2 "; #print "<TR><TD $CS=3><PRE>cmd:",$sql_cmd; #exit; $stmt = $dbh->prepare(" BEGIN OPEN :cursor FOR $sql_cmd ; END; ") or DBI::errstr; $stmt->bind_param_inout(":cursor", \$sth2, 0, { ora_type => ORA_RSET } ); $stmt->execute; @FILTa = ''; $i=0; $ia=0; while ( @data = $sth2->fetchrow_array() ) { if ($data[0] eq 'PRM ') { $FILTa[$ia] = $data[1]; $ia++; } $i++; } $stmt->finish; ------------------------------------------------------------------- print <<ENDOFFILE; <TD $AR>$F1 PRIME: <TD><SELECT NAME=DAT04 $FF1> <OPTION VALUE="ALL">ALL ENDOFFILE $i=0; do { if ($ia ne 0) { $_ = $FILTa[$i]; $SEL1 = ''; if ($_ eq $input{'DAT04'}) { $SEL1 = 'SELECTED'; } print "<OPTION VALUE='$_' $SEL1>",$_; $i++; } } while ($i ne $ia); print <<ENDOFFILE; </SELECT></TD> ENDOFFILE

-LIMIT TEXTAREA SIZE
<SCRIPT LANGUAGE="JavaScript"> function textCounter(field,cntfield,maxlimit) { if (field.value.length > maxlimit) // if too long...trim it! field.value = field.value.substring(0, maxlimit); else cntfield.value = 'Length: ' + field.value.length + ' Max Limit: ' + maxlimit; } </SCRIPT> <XEXTAREA NAME=DESC1 COLS=83 ROWS=11 WRAP=SOFT $VISIBLE onKeyDown="textCounter(document.FORM001.DESC1,document.FORM001.LEN1,2000)" onKeyUp="textCounter(document.FORM001.DESC1,document.FORM001.LEN1,2000)" >$DESC</XEXTAREA> <input readonly type=TEXT size=50 name="LEN1" style=border:none >

-JAVASCRIPT - GET SCREEN RESOLUTION INTO FORM VARIABLES
<script TYPE="text/javascript" LANGUAGE="JavaScript"> function fill_in_screensize() { document.forms['main_form'].width.value=screen.width; document.forms['main_form'].height.value=screen.height; return true; } </script> <BODY onLoad=fill_in_screensize()> <form name=main_form> <input type=text name=width> <input type=text name=height> </form> =================================================== <script type="text/javascript" > function alertSize() { var myWidth = 0, myHeight = 0; if( typeof( window.innerWidth ) == 'number' ) { //Non-IE myWidth = window.innerWidth; myHeight = window.innerHeight; } else if( document.documentElement && ( document.documentElement.clientWidth || document.documentElement.clientHeight ) ) { //IE 6+ in 'standards compliant mode' myWidth = document.documentElement.clientWidth; myHeight = document.documentElement.clientHeight; } else if( document.body && ( document.body.clientWidth || document.body.clien tHeight ) ) { //IE 4 compatible myWidth = document.body.clientWidth; myHeight = document.body.clientHeight; } document.forms['main_form'].inwidth.value=myWidth; document.forms['main_form'].inheight.value=myHeight; // window.alert( 'Width = ' + myWidth ); // window.alert( 'Height = ' + myHeight ); } </SCRIPT> <script TYPE="text/javascript" LANGUAGE="JavaScript"> function fill_in_screensize() { document.forms['main_form'].width.value=screen.width; document.forms['main_form'].height.value=screen.height; return true; } </script> <BODY onLoad=fill_in_screensize()> <form name=main_form> <table border=1 bordercolor=#FF6633> <tr> <td> $F1D SCREEN-WIDTH <td> $F1D SCREEN-HEIGHT <td> $F1D INNER-WIDTH <td> $F1D INNER-HEIGHT <td> $F1D OUTTER-WIDTH <td> $F1D OUTTER-HEIGHT <tr> <td><input type=text name=width> <td><input type=text name=height> <td><input type=text name=inwidth> <td><input type=text name=inheight> <td><input type=text name=outwidth> <td><input type=text name=outheight> </table> </form> <p><a href="javascript:alertSize();">get the inner dimensions of this window</a> .</p>

-popitup5 - IMAGE VIEWER
##--------------------------## ## Javascript for POPUPS ##--------------------------## print <<ENDOFFILE; <script language="JavaScript1.2" type="text/javascript">  </script> </HEAD> <BODY onUnload="tidy5()" > ENDOFFILE $NB $F1R Examples=> $NB <A HREF="javascript:popitup5('SLIDE1.gif','TEMPLATE 1', 960, 720,'#000000')" > $F1B TEMPLATE 1 </A>

Perl - Process input file char-by-char to remove bad SAP stuff
##------------------## ## BAD SAP DATA FIX ## ##------------------## # Open file and replace character by character to remove invalid x'0A' and x'0C' # characters contained in the middle of the JV Description. The characters # translate to a physical newline character and offset the file format open(UPLOADFILE, ">/www/httpd/htdocs/finance/REPORTS/$UID1-BIN.TXT"); binmode UPLOADFILE; my ($buf, $data, $n); while (($n = read $upload_filehandle, $data, 1) != 0) { $data =~ s/\010//gi; $data =~ s/\012//gi; $RC = $data =~ s/\015//gi; $data =~ s/\015/*/gi; if ($RC eq 1) { printf (UPLOADFILE "%s\n",$data); } else { printf (UPLOADFILE "%s",$data); } $buf .= $data; } close UPLOADFILE; # Re-Open and Process line-by-line open(UPLOADFILE, "</www/httpd/htdocs/finance/REPORTS/$UID1-BIN.TXT"); $PRINT = 'YES'; $OF = 1; $i=0; while ( <UPLOADFILE> ) { chop(); $_ =~ s/\"//gi; if (substr($_,0,1) ne '|') { goto SKIP1; } # take out bad new-line characters $_ =~ s/\010/ /gi; $_ =~ s/\012/ /gi; $_ =~ s/\015/ /gi; #print "<tr><TD colspan=10> $_ \n"; @data = split(/\|/,$_,17); $data[1] =~ s/ //gi; if (substr($data[1],0,4) ne '8000') { goto SKIP1; } # TRIM FIELDS $data[1] =~ s/^\s+//; $data[1] =~ s/\s+$//;

FF1-FF6 BUTTON STYLES
$FF0 = "STYLE=font-family:Arial;font-size:12px; STYLE=overflow:visible"; $FF1 = "STYLE=font-family:Arial;font-size:12px; STYLE=width:70px STYLE=height:20px"; $FF2 = "STYLE=font-family:Arial;font-size:12px; STYLE=width:250px STYLE=height:20px"; $FF3 = "STYLE=font-family:Arial;font-size:12px; STYLE=width:110px STYLE=height:23px"; $FF6 = "STYLE=font-family:tahoma;font-size:13px;font-weight:bold;color:#0000FF;border:0px;overflow:visible;background-color:#FFFFFF; "; #$FFx = " STYLE=color:#406795; STYLE=font-family:Arial,Helvetica,Sans-serif; STYLE=font-weight:bold STYLE=font-size:13px STYLE=background-color:#FFFFFF STYLE=width:400px STYLE=height:35px"; $FFX = " STYLE=color:#003795; STYLE=font-family:Arial,Helvetica,Sans-serif; STYLE=font-weight:bold STYLE=font-size:13px STYLE=background-color:#FFFFFF STYLE=height:35px"; $FFX = " STYLE=color:#003795; STYLE=font-family:Tahoma,Helvetica,Sans-serif; STYLE=font-weight:bold STYLE=font-size:13px STYLE=background-color:#FFFFFF STYLE=height:35px"; $ACTX =~ s/\012/ /gi; # octal get rid of newline $ACTX =~ s/\015/ /gi; # octal get rid of carriage-return

PERL - LOOP THRU INDEXED FIELDS
PERL DO: $dbh->do('CREATE TABLE exmpl_tbl (id INT, val VARCHAR(100))'); ------- if ($input{'ACTN'} eq 'UPD2') { ## one-by-one ##-----------------------## ## Process Input Arrays ##-----------------------## $ix1=0; $ix2=0; do { $UID = "UID".$ix1; $UID = $input{"$UID"}; $CHK = "CHK".$ix1; $CHK = $input{"$CHK"}; #print "<TR><TD colspan=16><PRE>CHK:",$CHK; $STAT = 'Y'; if ($CHK eq 'on') { $STAT = 'N'; } $sql_cmd = " update genfin_dbo.t285_sec_cntl set db_appr_d = '$SYSD1' , db_appr_t = '$SYSD2' , db_appr_x = '$LOGON' , db_stat_c = '$STAT' where f_fyqtr = '$FYQTR' AND a_uid_c = '$UID' AND ((a_uid_c = '$LOGON') OR EXISTS ( select * from genfin_dbo.t285_sec_grp b where t285_sec_cntl.f_fyqtr = b.f_fyqtr and t285_sec_cntl.a_grp_x = b.a_grp_x and (b.a_uid1_c = '$LOGON' or b.a_uid2_c = '$LOGON')) ) "; #print "<TR><TD colspan=16><PRE>cmd:",$sql_cmd; #exit; $stmt = $dbh->prepare(" $sql_cmd ") or DBI::errstr; $stmt->execute; $ix1++; } while (($ix1) ne $input{'SCTR'} && ($ix1 ne 1000)); $MSG1 = $F1R."<b> RECORDS WERE UPDATED "; } ## end one-by-one ##