Return to Symbol

Ask or Set View Expansion Status Example

This example demonstrates the use of the &EXPAND GPA to obtain the name of the expanded view, display the name to the user, and expand another view.

  

    
STRING/EXPVW(30), CHKVW(30)
EXPVW = 'TOP@1
 
CHKVW = &EXPAND
$$
IFTHEN/CHKVW == 'OFF'
  MESSG/'No view is currently expanded.'
ELSE
  MESSG/'The following view is currently expanded: '+CHKVW
ENDIF
 
IFTHEN/EXPVW == CHKVW
  MESSG/'The currently expanded view will be unexpanded.'
  &EXPAND = 'OFF'
ELSE
  MESSG/'The following view will be unexpanded: ' + EXPVW
  &EXPAND ='OFF'
  &EXPAND = EXPVW
ENDIF
 
HALT