Hello

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,

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..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