| Section |
|---|
| Column |
|---|
| The Goal of This ExampleShow how a Universal Display File can work in tandem with a Rich Display File's List Box Widget's choices URL property. You could also utilize the choices URL property within a Combo Box Widget, but this example will be using a List Box Widget.
| Info |
|---|
| title | Files Used by This Example |
|---|
| Below are downloadable versions of the files used in this example: |
|
|
...
What this program will do is grab a list of colors from a specified database file, COLORSP for this example, on the IBM i and create a JSON object that will contain the option objects that will populate the List Box. CONAME will display in the List Box and the corresponding COHEX will be passed to the program when a selection is made.
| Section |
|---|
| Column |
|---|
| | Code Block |
|---|
| language | cpp |
|---|
| title | Universal Display RPG Source Code File |
|---|
| firstline | 000100 |
|---|
| linenumbers | true |
|---|
| collapse | true |
|---|
| **FREE // This program is utilizing FREE-FORMAT RPG
ctl-opt DFTACTGRP(*NO);
dcl-f COLORSD WorkStn
// Use the Universal Handler as the handler in this program.
Handler('UNIVERSAL(HANDLER)');
dcl-f COLORSP Keyed;
Write Header; // Write the Header from the Universal Display File to the JSON object.
Read COLORS; // Read a record from the database file COLORSP.
Dow Not %Eof(); // While not at the end of COLORSP
Write Body; // Write the record to the JSON object
Read COLORS; // Read the next record of COLORSP
EndDo;
Write Footer; // Write the Footer from teh Universal Display File to the JSON object.
// End program
*InLr = *On;
RETURN; |
|
| Column |
|---|
| | Note |
|---|
| Hard coded libraries are a bad practice! We strongly suggest you do not use hard coded libraries! |
|
|
...
File name is SHOWCOLORR. Notice that the ProfoundUI Handler is being used in the handler for this program. The EXFMT operation will display the SHOWCOLORD display file.
| Section |
|---|
| Column |
|---|
| | Code Block |
|---|
| language | cpp |
|---|
| title | Rich Display RPG Source Code |
|---|
| firstline | 000100 |
|---|
| linenumbers | true |
|---|
| collapse | true |
|---|
| **FREE // This program is utilizing FREE-FORMAT RPG
ctl-opt DFTACTGRP(*NO);
dcl-f SHOWCOLORD WorkStn
// Use the ProfoundUI Handler as the handler in this program
Handler('PROFOUNDUI(HANDLER)');
// Run program until the exit button is pressed
Dou BTNEXIT = *On;
ExFmt SHOWCOLORS;
EndDo;
// End program
*InLr = *On;
RETURN; |
|
| Column |
|---|
| | Note |
|---|
| Hard coded libraries are a bad practice! We strongly suggest you do not use hard coded libraries! |
|
|
...
| Section |
|---|
| Column |
|---|
| 
|
| Column |
|---|
| | Info |
|---|
| Actions in Order: - Select Silver -> Click Ok
Select Red - Scroll down using ▼ of the scrollbar
- Double-click Olive to select and pass to program
- Select Maroon -> Press "Enter" on keyboard
- Click Exit to exit the program
|
|
|
...