)ATTR
  /*******************************************/
  /**                                       **/
  /**             ISPF attribute symbols    **/
  /**                                       **/
  /*******************************************/
  ¢ TYPE(TEXT)  COLOR(YELLOW) INTENS(LOW)
  ¬ TYPE(TEXT)  COLOR(YELLOW) INTENS(HIGH)
  ¦ TYPE(TEXT)  COLOR(YELLOW) INTENS(HIGH) HILITE(REVERSE)
  } TYPE(TEXT)  COLOR(BLUE)   INTENS(HIGH) HILITE(REVERSE)
  + TYPE(TEXT)  COLOR(BLUE)   INTENS(LOW)
  @ TYPE(TEXT)  COLOR(BLUE)   INTENS(HIGH)
  { TYPE(TEXT)  COLOR(TURQ)   INTENS(LOW)
  # TYPE(OUTPUT)  COLOR(TURQ)   INTENS(HIGH) HILITE(REVERSE)
  ! TYPE(TEXT)  COLOR(GREEN)  INTENS(HIGH)
  $ TYPE(TEXT)  COLOR(RED)    INTENS(HIGH)
  ; TYPE(INPUT) COLOR(RED)    INTENS(HIGH) HILITE(REVERSE)
  % TYPE(TEXT)  COLOR(WHITE)  INTENS(LOW)
  ? TYPE(TEXT)  COLOR(WHITE)  INTENS(HIGH)
  \ TYPE(TEXT)  COLOR(PINK)   INTENS(HIGH)
  ~ TYPE(TEXT)  COLOR(PINK)   INTENS(LOW)
  ` TYPE(TEXT)
  | TYPE(TEXT)
  _ TYPE(INPUT) COLOR(RED)      INTENS(HIGH)
)BODY WIDTH(&ZSCREENW) EXPAND("")
¬"-"\KEY Generation & Encryption¬"-"
$" "¢Userid -~&ZUSER  @
$" "¢Time   -~&ZTIME  @
$" "¢Date   -~&ZDATE  @
$" "¢Julian -~&ZJDATE @
$
$
$
  { Label%==>#KEYNM                                                           +
$
  {       Key Type    %===>#KYTYPE  +
$
$
$
$
$
$
$
        $ {Prior    KCV     %===>#KCVF     +
$
        $ {Combined KCV     %===>#CKKEY    +
$
$
$
        $ {Key function completed successfully
)INIT
   VGET (KEYNM) PROFILE
   VGET (KYTYPE) PROFILE
   VPUT (CKKEY) PROFILE
   VPUT (KCVF) PROFILE
)PROC
)END