// <SCRIPT LANGUAGE="JavaScript" SRC="http://theamericanprogrammer.com/js/afficher-liens.tap.js"></SCRIPT>
//     display links
var urldata1 = location.search.substring(1);
var urldata2 = window.location.search; // normally you use this one. 
var urldata3 = window.location; // this one includes the url
//if (urldata1 == "") urldata1 = "zzz?zzz?zzz?zzz?zzz?zzz";

var ref = document.referrer
ref = ref.toLowerCase();
//document.write('ref' + ref);
urldata1 = urldata1 + urldata2 + urldata3;// pick up url search and referrer

urldata1=urldata1.toUpperCase();
//document.write('<br>starting <br>');document.write('<br>');
//document.write(urldata1 +'<br>');

//next is comment when document is in server
//var urldata1 = "id=Zodiac1&sign=4921&bnid=1&subid=&userdata=will i find my true love=002b";// to test

// samples
//if (urldata1.indexOf("A") >= 0) {display_spanish_class = "yes";display = "yes";}
//if ((urldata1.indexOf("TELEPHONY") >= 0) || (urldata1.indexOf("TELEPHONY")) >= 0) {display = "yes";display = "yes";}
//if ((urldata1.indexOf("TELEPHONY") >= 0)  & (urldata1.indexOf("TELEPHONY")) >= 0) {display = "yes";display = "yes";}
//if ((urldata1.indexOf("SPANISH") >= 0)  & (urldata1.indexOf("TEACH") >= 0) & (urldata1.indexOf("CT") >= 0)) {display_spanish_teach = "yes";display = "yes";}

var display = "no";

// display_abends
var display_abends = "no";
//var display_abends = "yes";

if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("ABEND")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("ABORT")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("ERROR") >= 0) & (urldata1.indexOf("CODE") >= 0)) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("ABEND")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("ABORT")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("ERROR") >= 0) & (urldata1.indexOf("CODE") >= 0)) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("ABEND")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("ABORT")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("ERROR") >= 0) & (urldata1.indexOf("CODE") >= 0)) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("ABEND")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("ABORT")) >= 0) {display_abends = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("ERROR") >= 0) & (urldata1.indexOf("CODE") >= 0)) {display_abends = "yes";display = "yes";}


// display_as400
var display_as400 = "no";
if (urldata1.indexOf("ISERIES") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("I+SERIES") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("AS400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("AS/400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("AS+400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("OS400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("OS/400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("OS+400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("COBOL+400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("DB2+400") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("MIDRANGE") >= 0) {display_as400 = "yes";display = "yes";}
if (urldata1.indexOf("MID+RANGE") >= 0) {display_as400 = "yes";display = "yes";}

// display_manuals
var display_manuals = "no";
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("TUTORIAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("REFERENCE")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("LIBRARY")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("COMPUTER")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("OS390")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("OS/390")) >= 0) {display_manuals = "yes";display = "yes";}

if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("TUTORIAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("REFERENCE")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("LIBRARY")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("COMPUTER")) >= 0) {display_manuals = "yes";display = "yes";}

if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("TUTORIAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("REFERENCE")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("LIBRARY")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("COMPUTER")) >= 0) {display_manuals = "yes";display = "yes";}

if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("TUTORIAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("REFERENCE")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("LIBRARY")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("MANUAL")) >= 0) {display_manuals = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("COMPUTER")) >= 0) {display_manuals = "yes";display = "yes";}


// display_db2
var display_db2 = "no";
if (urldata1.indexOf("DB2") >= 0) {display_db2 = "yes";display = "yes";}
if (urldata1.indexOf("SQL") >= 0) {display_db2 = "yes";display = "yes";}
if (urldata1.indexOf("SPUFI") >= 0) {display_db2 = "yes";display = "yes";}
if (urldata1.indexOf("QMF") >= 0) {display_db2 = "yes";display = "yes";}


// display_cics
var display_cics = "no";
if (urldata1.indexOf("CICS") >= 0) {display_cics = "yes";display = "yes";}
if ((urldata1.indexOf("TRANSACTION") >= 0)  & (urldata1.indexOf("SERVER")) >= 0) {display_cics = "yes";display = "yes";}
if ((urldata1.indexOf("CUSTOMER") >= 0)  & (urldata1.indexOf("INFORMATION")) >= 0) {display_cics = "yes";display = "yes";}



// display_jcl
var display_jcl = "no";
if ((urldata1.indexOf("JOB") >= 0)  & (urldata1.indexOf("CONTROL") >= 0) & (urldata1.indexOf("LANGUAGE") >= 0)) {display_jcl = "yes";display = "yes";}
if (urldata1.indexOf("JCL") >= 0) {display_jcl = "yes";display = "yes";}


// display_mainframe_books
var display_mainframe_books = "no";
if ((urldata1.indexOf("MAINFRAME") >= 0)  & (urldata1.indexOf("BOOK")) >= 0) {display_mainframe_books = "yes";display = "yes";}
if ((urldata1.indexOf("IBM") >= 0)  & (urldata1.indexOf("BOOK")) >= 0) {display_mainframe_books = "yes";display = "yes";}
if ((urldata1.indexOf("MVS") >= 0)  & (urldata1.indexOf("BOOK")) >= 0) {display_mainframe_books = "yes";display = "yes";}
if ((urldata1.indexOf("ZOS") >= 0)  & (urldata1.indexOf("BOOK")) >= 0) {display_mainframe_books = "yes";display = "yes";}
if ((urldata1.indexOf("OS390") >= 0)  & (urldata1.indexOf("BOOK")) >= 0) {display_mainframe_books = "yes";display = "yes";}



// display_rexx
var display_rexx = "no";
if (urldata1.indexOf("REXX") >= 0) {display_rexx = "yes";display = "yes";}
if ((urldata1.indexOf("RESTRUCTURED") >= 0)  & (urldata1.indexOf("LANGUAGE")) >= 0) {display_rexx = "yes";display = "yes";}


// display_sas 
var display_sas = "no";
if (urldata1.indexOf("SAS") >= 0) {display_sas = "yes";display = "yes";}
if ((urldata1.indexOf("STATISTICAL") >= 0)  & (urldata1.indexOf("ANALYSIS")) >= 0) {display_sas = "yes";display = "yes";}


// display_qsam
var display_qsam = "no";
if (urldata1.indexOf("QSAM") >= 0) {display_qsam = "yes";display = "yes";}


// display_vsam
var display_vsam_books = "no";
if (urldata1.indexOf("VSAM") >= 0) {display_vsam_books = "yes";display = "yes";}

// display_clist 
var display_clist = "no";
if (urldata1.indexOf("CLIST") >= 0) {display_clist = "yes";display = "yes";}




// decide if to display
if (display == "yes") {display_table();}

if (display_abends == "yes")          {display_links_abends();}
if (display_as400 == "yes")           {display_links_as400();}
if (display_manuals  == "yes")        {display_links_manuals();}
if (display_db2 == "yes")             {display_links_db2();}
if (display_cics == "yes")            {display_links_cics();}
if (display_jcl == "yes")             {display_links_jcl();}
if (display_mainframe_books == "yes") {display_links_mainframe_books();}
if (display_rexx  == "yes")           {display_links_rexx();}
if (display_sas == "yes")             {display_links_sas();}
if (display_qsam == "yes")            {display_links_qsam();}
if (display_vsam_books == "yes")      {display_links_vsam_books();}
if (display_clist == "yes")           {display_links_clist();}

if (display == "yes") {display_end_table();}

//document.write('<br>end <br>');document.write('<br>');
///////////////////////// logical end of program 


// display subroutines

function display_table() {
document.write('<br><table border="1"><tr><td>');
} // end display_table()

function display_end_table() {
document.write('</td></tr></table>');
} // end display_end_table()

function display_links_abends() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/abend-codes.shtml?1"   title="what the abend codes mean">Mainframe abend codes, error codes</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.mainframe.other.shtml?1"   title="avoid abends">Books on abend debugging</a> ');
document.write('<br>');
} // end function display_links_abends()

function display_links_as400() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.as400.shtml?1"   title="as400 iSeries manuals">AS/400 (iSeries) manuals and tutorials</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.as400.shtml?1"   title="cobol 400 db2 400 cl">Books on AS/400 (iSeries) programming</a> ');
document.write('<br>');
} // end function display_links_as400()

function display_links_manuals() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.shtml?1"   title="mainframe midrange manuals">Mainframe manuals and tutorials</a> ');
document.write('<br>');
} // end function display_links_manuals()

function display_links_db2() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.sql.shtml?1"   title="sql db2 manuals">DB2 and SQL manuals and tutorials</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.db2.shtml?1"   title="sql db2 ">Books on DB2 and SQL programming</a> ');
document.write('<br>');
} // end function display_links_db2()

function display_links_cics() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.cics.shtml?1"   title="cics manuals">CICS manuals and tutorials</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.cics.shtml?1"   title="CICS">Books on CICS programming</a> ');
document.write('<br>');
} // end function display_links_cics()

function display_links_jcl() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.jcl.shtml?1"   title="jcl manuals">Mainframe JCL manuals and tutorials</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.jcl.shtml?1"   title="jcl">Books on Mainframe JCL</a> ');
document.write('<br>');
} // end function display_links_jcl()

function display_links_mainframe_books() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/books/index.shtml?1"   title="mainframe books">Books on mainframe computer programming</a> ');
document.write('<br>');
} // end function display_links_mainframe_books()

function display_links_rexx() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.rexx.shtml?1"   title="REXX manuals">REXX manuals and tutorials</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.rexx.shtml?1"   title="REXX">Books on REXX programming</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/programming/rexxfiles.shtml?1"   title="REXX">My Books on REXX</a> ');
document.write('<br>');
} // end function display_links_rexx()

function display_links_sas() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.sas.shtml?1"   title="SAS manuals">SAS manuals and tutorials</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.sas.shtml?1"   title="SAS">Books on SAS programming</a> ');
document.write('<br>');
} // end function display_links_sas()

function display_links_qsam() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/programming/vsamerr.shtml?1"   title="QSAM">QSAM and VSAM error codes</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.mainframe.other.shtml?1"   title="MVS">Books on MVS, OS/390, zOS</a> ');
document.write('<br>');
} // end function display_links_qsam()

function display_links_vsam_books() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.mainframe.other.shtml#vsam"   title="vsam books">Books on VSAM files and programming</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/programming/vsamerr.shtml?1"   title="QSAM">VSAM error codes</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.vsam.shtml?1"   title="vsam manuals">VSAM manuals and tutorials</a> ');
document.write('<br>');
} // end function display_links_vsam_books()

function display_links_clist() {
document.write('&nbsp;<A HREF="http://theamericanprogrammer.com/books/books.mainframe.other.shtml#clist"   title="MVS">Books on TSO CLIST</a> ');
document.write('<br>&nbsp;<A HREF="http://theamericanprogrammer.com/programming/manuals.tso.shtml?1"   title="clist manuals">CLIST manuals and tutorials</a> ');
document.write('<br>');
} // end function display_links_clist()