It was my pleasure to present a talk at this year’s Process World conference in Orlando, Florida. The subject of my talk was adding “Bling” to old green screen user interfaces.
Over the next couple of weeks I will post the programs I utilized along with brief dialogue. Please feel free to contribute your own ideas.
The first set of programs show how to transform a rather dull green screen INPUT statement into a screen that looks a lot more like web based screens, that is, more BLING.
We will start off with a very simple INPUT statement.
DEFINE DATA LOCAL
1 #LAST-NAME (A20)
1 #FIRST-NAME (A20)
1 #ADDRESS-LINE1 (A50)
1 #ADDRESS-LINE2 (A50)
1 #CITY (A20)
1 #STATE (A2)
1 #ZIP (A10)
END-DEFINE
INPUT (AD=M) 3/10
‘LAST NAME ==>’ #LAST-NAME / 10T ‘FIRST-NAME==>’ #FIRST-NAME
/ / 10T ‘ADDRESS LINE 1:’ #ADDRESS-LINE1 / 10T ‘ADDRESS-LINE 2:’ #ADDRESS-LINE2
/ 10T ‘CITY==>’ #CITY 5X ‘STATE==>’ #STATE 5X ‘ZIP + 4==>’ #ZIP
END
If you run the program above you will see a typical “green screen” user interface.
In the next program we add some reverse video and color.
DEFINE DATA LOCAL
1 #LAST-NAME (A20)
1 #FIRST-NAME (A20)
1 #ADDRESS-LINE1 (A50)
1 #ADDRESS-LINE2 (A50)
1 #CITY (A20)
1 #STATE (A2)
1 #ZIP (A10)
END-DEFINE
INPUT (AD=MV CD=YE) 3/10
‘LAST NAME ==>’ #LAST-NAME / 10T ‘FIRST-NAME==>’ #FIRST-NAME
/ / 10T ‘ADDRESS LINE 1:’ #ADDRESS-LINE1 / 10T ‘ADDRESS-LINE 2:’ #ADDRESS-LINE2
/ 10T ‘CITY==>’ #CITY 5X ‘STATE==>’ #STATE 5X ‘ZIP + 4==>’ #ZIP
END
Run the program above. Better yet, let an enduser run both of the programs above. My guess is that they will prefer the second program.
Okay, time to get fancy. In the following program I have added a “background”, then used an INPUT NO ERASE statement to overlay the background.
DEFINE DATA LOCAL
1 #LAST-NAME (A20)
1 #FIRST-NAME (A20)
1 #ADDRESS-LINE1 (A50)
1 #ADDRESS-LINE2 (A50)
1 #CITY (A20)
1 #STATE (A2)
1 #ZIP (A10)
1 #BACKGROUND (A75)
END-DEFINE
**
SET CONTROL ‘N’
**
WRITE NOTITLE (AD=V CD=TU) 2/4 #BACKGROUND / 4T #BACKGROUND / 4T #BACKGROUND
/ 4T #BACKGROUND / 4T #BACKGROUND / 4T #BACKGROUND
/ 4T #BACKGROUND / 4T #BACKGROUND / 4T #BACKGROUND
INPUT NO ERASE (AD=MV CD=BL) 3/10
‘LAST NAME ==>’ #LAST-NAME / 10T ‘FIRST-NAME==>’ #FIRST-NAME
/ / 10T ‘ADDRESS LINE 1:’ #ADDRESS-LINE1 / 10T ‘ADDRESS-LINE 2:’ #ADDRESS-LINE2
/ 10T ‘CITY==>’ #CITY 2X ‘STATE==>’ #STATE 2X ‘ZIP + 4==>’ #ZIP
END
Now we are getting somewhere. Please note that the “background” does not have to be all the same color. The WRITE statement could have color specified at the field level rather than the statement level. For example:
WRITE NOTITLE (AD=V CD=TU) 2/4 #BACKGROUND / 4T #BACKGROUND / 4T #BACKGROUND /
4T #BACKGROUND / 4T #BACKGROUND (CD=GR) / 4T #BACKGROUND (CD=GR)
/ 4T #BACKGROUND / 4T #BACKGROUND (CD=RE)/ 4T #BACKGROUND
Okay, that is getting pretty garish. But realize that it might be quite useful to have logically distinct groups of fields presented with unique color backgrounds.
The point is that it is quite trivial to add Bling to old green screens and create screens that look more up to date (more like web type screens).