Hello T-F :
I added the defer variable to this car-fex I have. You will need to customize it with your MRE Domain/folder/fex names. Also included is the called-fex, so you can see whats going on.
Hope this helps.
Please also update your signature to show your environment details.
Goooooooooood day !!
Sandeep Mamidenna.
-*-*-** First fex
-*-*
-*
TABLE FILE CAR
PRINT
DST.COUNTRY
ON TABLE HOLD AS H1
END
-*
DEFINE FILE H1
QT/A1='''';
END
TABLE FILE H1
PRINT
COMPUTE FLDX/A100 =
('document.write("' || '<option value=' | QT || COUNTRY ||
QT | '>' | COUNTRY | '</OPTION>");'
) ;
BY COUNTRY NOPRINT
ON TABLE HOLD AS HCNTRY
END
-RUN
-*
-HTMLFORM BEGIN
<HTML><HEAD>
<script language='javascript'>
function runit() {
var opt=document.FRM1.CTRY.options(document.FRM1.CTRY.selectedIndex).value;
if (opt != 'NADA'){
document.FRM1.IBIF_ex.value = 'app/xcar2.fex' ;
document.FRM1.IBIMR_fex.value = 'app/xcar2.fex' ;
document.FRM1.submit();
}
}
</script></head>
<body><form action="/ibi_apps/WFServlet" method="GET" name="FRM1">
<input type='hidden' name='IBIMR_domain' value='bjbt1/bjbt1.htm'>
<input type='hidden' name='IBIMR_folder' value='#99coding'>
<input type='hidden' name='IBIMR_action' value='MR_RUN_FEX'>
<input type='hidden' name='IBIMR_sub_action' value='MR_STD_REPORT'>
<input type='hidden' name='IBIMR_fex' value=''>
<input type='hidden' name='IBIF_ex' value=''>
<input type='hidden' name='IBIMR_defer' value='defer'
<TABLE><TR><TD WIDTH=30%>Country=
<select name="CTRY" size="1" onChange='runit()'>
<option value="NADA">Select From the Following.....</option>
!IBI.FIL.HCNTRY;
</SELECT></TD><TD WIDTH=30%> Car=</TD>
<TD WIDTH=30%> Seats=</TD></TR></TABLE>
</FORM></BODY></HTML>
-HTMLFORM END
-*
-*
-*-*-*-*
-*-*---*-*-**-*-*-*-*-*-* THE 2ND (CALLED) FEX -*-*-*
-*-*-*-*
-*
-*
-SET &ECHO=ALL;
-SET &CTRYX=&CTRY;
TABLE FILE CAR
PRINT
DST.COUNTRY
ON TABLE HOLD AS H1
END
-*
DEFINE FILE H1
QT/A1='''';
END
TABLE FILE H1
PRINT
COMPUTE FLDX/A100 =
('document.write("' || '<option value=' | QT || COUNTRY ||
QT | '>' | COUNTRY | '</OPTION>");'
) ;
BY COUNTRY NOPRINT
ON TABLE HOLD AS HCNTRY
END
-RUN
-*
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
TABLE FILE CAR
PRINT
DST.CAR
WHERE COUNTRY EQ '&CTRY'
ON TABLE HOLD AS H3
END
-*
DEFINE FILE H3
QT/A1='''';
END
TABLE FILE H3
PRINT
COMPUTE FLDX/A100 =
('document.write("' || '<option value=' | QT || CAR ||
QT | '>' | CAR | '</OPTION>");'
) ;
BY CAR NOPRINT
ON TABLE HOLD AS HCAR
END
-RUN
-*-EXIT
-*
-HTMLFORM BEGIN
<HTML><HEAD>
<script language='javascript'>
function runit() {
var opt=document.FRM1.CTRY.options(document.FRM1.CTRY.selectedIndex).value;
if (opt != 'NADA'){
document.FRM1.IBIF_ex.value = 'app/xcar2.fex' ;
document.FRM1.IBIMR_fex.value = 'app/xcar2.fex' ;
document.FRM1.submit();
}
}
function runit2() {
var opt=document.FRM1.CAR.options(document.FRM1.CAR.selectedIndex).value;
if (opt != 'NADA'){
document.FRM1.IBIF_ex.value = 'app/xcar3.fex' ;
document.FRM1.IBIMR_fex.value = 'app/xcar3.fex' ;
document.FRM1.submit();
}
}
</script></head>
<body><form action="/ibi_apps/WFServlet" method="GET" name="FRM1">
<input type='hidden' name='IBIMR_domain' value='bjbt1/bjbt1.htm'>
<input type='hidden' name='IBIMR_folder' value='#99coding'>
<input type='hidden' name='IBIMR_action' value='MR_RUN_FEX'>
<input type='hidden' name='IBIMR_sub_action' value='MR_STD_REPORT'>
<input type='hidden' name='IBIMR_fex' value=''>
<input type='hidden' name='IBIF_ex' value=''>
<TABLE><TR><TD WIDTH=30%>Country=
<select name="CTRY" size="1" onChange='runit()'>
<option value="!IBI.AMP.CTRYX;" SELECTED>!IBI.AMP.CTRYX;</option>
!IBI.FIL.HCNTRY;
</SELECT></TD><TD WIDTH=30%> Car=
<select name="CAR" size="1" onChange='runit2()'>
<option value="NADA">Select From the Following.....</option>
!IBI.FIL.HCAR;
</SELECT></TD>
<TD WIDTH=30%> Seats=</TD></TR></TABLE>
</FORM></BODY></HTML>
-HTMLFORM END
-------------------------------------------------------------------------------------------------
Blue Cross & Blue Shield of MS
WF.76-10 on (WS2003 + WebSphere) / EDA on z/OS + DB2 + MS-SQL
MRE, BID, Dev. Studio, Self-Service apps & a dash of fun !!