The following help program determines what screen is currently displayed so that the appropriate help panel can be provided. The program looks for an application identifier that is typically found in a specific location. In this example, we assume that the identifier starts at position two of the first line and is five characters long.
APPHELP COMPARE &SCREEN(2,5),'PANEL' IS THE ID THERE?
BRANCH NE,SKIPIT IF NOT, KEEP PROCESSING INPUT
ACLPGM UHP&SCREEN(7,3) START THE APPROPRIATE ACLPGM
SKIPIT INPUT ACCEPT INPUT FROM THE USER AND
SEND PASS IT TO THE APPLICATION
BRANCH ANY,APPHELP KEEP CHECKING THE SCREEN
|
Copyright © 2013 CA.
All rights reserved.
|
|