Page Comparison

Below are downloadable versions of the files used in this example:

• Choices URL in Universal Display File: COLORSD.json
• Universal Display File RPG Code: COLORSR.txt
• Rich Display File: SHOWCOLORD.json
• Rich Dipslay File RPG Code: SHOWCOLORR.txt

**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 tehthe Universal Display File to the JSON object.
 
// End program
*InLr = *On;
RETURN;

Hard coded libraries are a bad practice! We strongly suggest you do not use hard coded libraries!

Actions in Order:

1. Select Silver -> Click Ok

2. Select Red

3. Scroll down using ▼ of the scrollbar
4. Double-click Olive to select and pass to program
5. Select Maroon -> Press "Enter" on keyboard
6. Click Exit to exit the program