Return to Symbol

Change Work View Example

This example demonstrates the use of the &WORKVW GPA to obtain the name of the current work view, display the name to the user, and offer alternative view selections from the current layout.

$$
$$ Declarations
$$
STRING/STR(30),VW(4,10),VNAM(5,10),WVW(10)
DATA/VW,'FRONT','RIGHT','TFR-ISO','TFR-TRI'
 
$$ CREATE A LAYOUT AND MAKE IT CURRENT
LAYC/'LO_1',VW(1),VW(2),VW(3),VW(4),WORK,AUTO,IFERR,L100:
$$ .
$$ VERIFY LAYOUT
L10: LAYV/VNAM,,NUMVW,IFERR,L110:
$$ OBTAIN CURRENT WORK VIEW
  WVW = &WORKVW
$$ DISPLAY WORK VIEW NAME TO USER
  STR = 'CURRENT WORK VIEW = '+ WVW
  MESSG/STR
$$ OFFER WORK VIEW SELECTION
L20: CHOOSE/'DEFINE NEW WORK VIEW ?','YES','NO',RESP
  JUMP/L20:,TERM:,,,,TERM:,RESP
L30: CHOOSE/'SELECT WORK 
VIEW',VNAM(1..NUMVW),RESP
  JUMP/L20:,TERM:,,,L40:,L50:,L60:,L70:,RESP
$$ CHANGE WORK VIEW
L40: &WORKVW = VNAM(1)
  JUMP/TERM:
L50: &WORKVW = VNAM(2)
  JUMP/TERM:
L60: &WORKVW = VNAM(3)
  JUMP/TERM:
L70: &WORKVW = VNAM(4)
  JUMP/TERM:
L100:MESSG/'LAYOUT EXISTS'
  JUMP/L10:
L110:MESSG/'LAYOUT VERIFY ERROR'
  JUMP/TERM:
TERM:HALT