)ATTR
  _   TYPE(INPUT)   INTENS(LOW)   JUST(LEFT)   PAD(' ')   CAPS(ON)
  @   TYPE(INPUT)   INTENS(LOW)   JUST(LEFT)   PAD(' ')   CAPS(ON)

)BODY
%------------------- TEST OF ISPF EXITS USING SAS/C -------------------
+SELECT AN OPTION:%==>@ZCMD                                           %
%
%
% THIS IS A TEST USING SAS/C AND ISPF USER DEFINED EXITS.
%   ENTER ANY ALPHANUMERIC DATA IN THE TEXT FIELD BELOW
%   AND PRESS ENTER.
%
%
%
%
%
+                 TEXT  ===>_NAME                                      +
%
%
%
%
%
%
+       NOTE: ALWAYS INVOKE THE MAIN PROGRAM WITH THE PGM() OPTION

)INIT
  .CURSOR = ZCMD
  &ZCMD = &OTELOPT
  &VAR = '(NAME)'
  IF (&ZERRMSG ^= ' ')
     .MSG = &ZERRMSG
     &ZERRMSG = ' '

)PROC
  &OSEL = &ZSEL
  &OTELOPT = &ZCMD
  VPUT (NAME) SHARED

)END