Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Create Procedure to Populate Drop-Down List
- Thread starter kvang
- Start date
You need to return two values, one for the actual value and the other for the display value. The result then needs to be returned in XML format.
Code:
TABLE FILE MYFILE
PRINT DST.DISPLAY_VALUE
BY KEY_VALUE
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE PCHOLD FORMAT XML
END
velmont666
Programmer
Hi, you can use this sample to fill your list box.
DEFINE FILE SCO_PROCESSES
D_PRID/A10 = TRIM('B',FTOA(PROCESSES_ID,'(F10)',D_PRID),10,' ',1,'A10');
D_DESC/A100 = '<option value="'||D_PRID||'">'||PRO_CODE||'</option>';
END
TABLE FILE SCO_PROCESSES
PRINT
D_DESC
BY PRO_CODE NOPRINT
ON TABLE HOLD AS HTMP0001 FORMAT ALPHA
END
-HTMLFORM BEGIN
<html>
<body>
<select name="INT_PROC">
<option selected value="FOC_NONE">TODOS</option>
!IBI.FIL.HTMP0001;
</select>
</body>
</html>
DEFINE FILE SCO_PROCESSES
D_PRID/A10 = TRIM('B',FTOA(PROCESSES_ID,'(F10)',D_PRID),10,' ',1,'A10');
D_DESC/A100 = '<option value="'||D_PRID||'">'||PRO_CODE||'</option>';
END
TABLE FILE SCO_PROCESSES
D_DESC
BY PRO_CODE NOPRINT
ON TABLE HOLD AS HTMP0001 FORMAT ALPHA
END
-HTMLFORM BEGIN
<html>
<body>
<select name="INT_PROC">
<option selected value="FOC_NONE">TODOS</option>
!IBI.FIL.HTMP0001;
</select>
</body>
</html>
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question