The following program introduces ACL/E's ability to display alternate screen images. With this feature, you can do everything from providing customized help screens to completely re-engineering the user interface. The program displays the alternate screens that provide news about two computer systems. Users select news screens from a menu.
*** This program displays custom screens
** providing information about Systems 1 and 2.
****************************************************
* Menu Screen
****************************************************
MNU DISPLAY MNU001 Display menu
INPUT Wait for user selection
COMPARE '&TAID','PF1' If PF1...
BRANCH EQ,SYS1 ...go to SYS1 news
COMPARE '&TAID','PF2' If PF2...
BRANCH EQ,SYS2 ...go to SYS2 news
COMPARE '&TAID','PF3' If PF3...
BRANCH EQ,QUIT ...terminate program
****************************************************
* SYS1 Information Screen
****************************************************
SYS1 DISPLAY SYS001 Display SYS1 news
INPUT Wait for user selection
COMPARE '&TAID','PF3' If PF3...
BRANCH EQ,MNU ...return to menu
BRANCH ANY,SYS1 If not PF3,
* redisplay SYS1 news
****************************************************
* SYS2 Information Screen
****************************************************
SYS2 DISPLAY SYS002 Display SYS2 news
INPUT Wait for user selection
COMPARE '&TAID','PF3' If PF3 pressed...
BRANCH EQ,MNU ...return to menu
BRANCH ANY,SYS2 If not PF3,
redisplay SYS2 news
****************************************************
QUIT STOP
|
Copyright © 2013 CA.
All rights reserved.
|
|