)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(TEXT)  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 Deletion, Generation & Encryption¬"-"
$" "¢Userid -~&ZUSER  @
$" "¢Time   -~&ZTIME  @
$" "¢Date   -~&ZDATE  @
$" "¢Julian -~&ZJDATE @
$
$
$
  { Label%==>;KEYNM                                                           +
$
  { Enter Key Type    %===>;KYTYPE  +  { or DELETE
$
$ { Key Part   %===>;KPART +   { First or Only
$
$ { Enter Key Part, Single, Double or Triple Length
$
$     ;KEY1A           +;KEY1B           +;KEY1C           +
$
$
$
$
$
$     ;P+       PARITY ADJUST COMBINED KEY VALUE, Y OR N
$
$
)INIT
  &KYTYPES = 'DATA MAC MACVER IMPORTER EXPORTER IPINENC OPINENC +
               PINVER PINGEN DATAXLAT DATAM DATAMV DELETE +
               KEYGENKY DUKPT'
  &KYTYPED = 'DATA'
  &KYTYPEM = 'MAC MACVER DATAXLAT'
  &KYTYPEX = 'DATA IMPORTER EXPORTER IPINENC OPINENC +
               PINVER PINGEN DATAM DATAMV KEYGENKY DUKPT'
  &KPARTS = 'FIRST ONLY'
  &PARITY = 'Y N'
  &KEY1A = ' '
  &KEY1B = ' '
  &KEY1C = ' '
  &KEYNM = ' '
  &KYTYPE = ' '
  &CKKEY = ' '
  &KCVF = ' '
  &KPART = 'FIRST'
  &P = 'Y'
   VPUT (CKKEY) PROFILE
   VPUT (KCVF) PROFILE
   VPUT (KPART) PROFILE
)PROC
  VER (&KEYNM,NB,MSG=EHN001E)
  VER (&KYTYPE,NONBLANK,LISTV,&KYTYPES,MSG=EHN003E)
  VER (&KPART,NONBLANK,LISTV,&KPARTS,MSG=EHN001E)
  VER (&P,NONBLANK,LISTV,&PARITY,MSG=EHN001E)
  IF (&KYTYPE NE DELETE)
     VER (&KEY1A,NB,LEN,EQ,16,MSG=EHN002E)
     VER (&KEY1A,HEX,MSG=EHN002E)
  IF (&KEY1B NE ' ')
     VER (&KEY1B,NB,LEN,EQ,16,MSG=EHN002E)
     VER (&KEY1B,HEX,MSG=EHN002E)
     VER (&KYTYPE,NONBLANK,LISTV,&KYTYPEX,MSG=EHN005E)
  IF (&KEY1C NE ' ')
     VER (&KEY1C,NB,LEN,EQ,16,MSG=EHN002E)
     VER (&KEY1C,HEX,MSG=EHN002E)
     VER (&KEY1B,NB,LEN,EQ,16,MSG=EHN002E)
     VER (&KYTYPE,NONBLANK,LISTV,&KYTYPED,MSG=EHN005E)
  VPUT (KEYNM) PROFILE
  VPUT (KYTYPE)  PROFILE
  VPUT (KEY1A) PROFILE
  VPUT (KEY1B) PROFILE
  VPUT (KEY1C) PROFILE
  VPUT (KPART) PROFILE
  VPUT (P) PROFILE
)END