I have 3 amper variables and I am trying to send them as VALUES to text box to inline HTML in DEFINE field.
-SET &AM_VAL1 = 'TEXT1';
-SET &AM_VAL2 = 'TEXT2';
-SET &AM_VAL3 = 'TEXT3';
DEFINE FILE CAR
ITEMS/A200 = '<INPUT TYPE=TEXT ID="ITM" NAME="ITM" VALUE="!IBI.AMP.AM_VAL_NAME;" />';
END
TABLE FILE CAR
SUM
ITEMS
BY COUNTRY NOPRINT
WHERE RECORDLIMIT EQ 3;
ON TABLE HOLD AS TAB1 FORMAT HTMTABLE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = endeflt,
$
ENDSTYLE
END
-HTMLFORM BEGIN
!IBI.FIL.TAB1;
-HTMLFORM END
-EXIT
In the VALUE parameter in place of AM_VAL_NAME, I want to send AM_VAL1 for 1st record, AM_VAL2 for 2nd record and AM_VAL3 for 3rd record. Please suggest.
Thank you..This message has been edited. Last edited by: Enigma006,
8.1.05 HTML,PDF,EXL2K, Active, All
May 14, 2015, 12:18 PM
Francis Mariani
Here's one possibility:
-SET &ECHO='ON';
-SET &AM_VAL1 = 'TEXT1';
-SET &AM_VAL2 = 'TEXT2';
-SET &AM_VAL3 = 'TEXT3';
DEFINE FILE CAR
COUNTER/I2 = COUNTER + 1;
HTML_A/A50 = '<INPUT TYPE=TEXT ID="ITM" NAME="ITM" VALUE="';
HTML_B/A04 = '" />';
END
-RUN
TABLE FILE CAR
SUM
COMPUTE ITEMS/A200 =
IF COUNTER EQ 1 THEN HTML_A || '&AM_VAL1' || HTML_B
ELSE IF COUNTER EQ 2 THEN HTML_A || '&AM_VAL2' || HTML_B
ELSE IF COUNTER EQ 3 THEN HTML_A || '&AM_VAL3' || HTML_B
ELSE '';
BY COUNTRY NOPRINT
WHERE RECORDLIMIT EQ 3;
ON TABLE HOLD AS TAB1 FORMAT HTMTABLE
ON TABLE SET PAGE NOLEAD
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = endeflt,
$
ENDSTYLE
END
-RUN
-HTMLFORM BEGIN
!IBI.FIL.TAB1;
-HTMLFORM END
Francis
Give me code, or give me retirement. In FOCUS since 1991
Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
May 14, 2015, 01:24 PM
Enigma006
Francis..this is working good. Thanks a lot..
quote:
Originally posted by Francis Mariani: Here's one possibility:
-SET &ECHO='ON';
-SET &AM_VAL1 = 'TEXT1';
-SET &AM_VAL2 = 'TEXT2';
-SET &AM_VAL3 = 'TEXT3';
DEFINE FILE CAR
COUNTER/I2 = COUNTER + 1;
HTML_A/A50 = '<INPUT TYPE=TEXT ID="ITM" NAME="ITM" VALUE="';
HTML_B/A04 = '" />';
END
-RUN
TABLE FILE CAR
SUM
COMPUTE ITEMS/A200 =
IF COUNTER EQ 1 THEN HTML_A || '&AM_VAL1' || HTML_B
ELSE IF COUNTER EQ 2 THEN HTML_A || '&AM_VAL2' || HTML_B
ELSE IF COUNTER EQ 3 THEN HTML_A || '&AM_VAL3' || HTML_B
ELSE '';
BY COUNTRY NOPRINT
WHERE RECORDLIMIT EQ 3;
ON TABLE HOLD AS TAB1 FORMAT HTMTABLE
ON TABLE SET PAGE NOLEAD
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = endeflt,
$
ENDSTYLE
END
-RUN
-HTMLFORM BEGIN
!IBI.FIL.TAB1;
-HTMLFORM END