)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  +
$
$ { Key Part   %===>;KPART +   { Middle or Last
$
$ { Enter Key Part, Single, Double or Triple Length
$
$     ;KEY2A           +;KEY2B           +;KEY2C           +
$
        $ {Prior    KCV     %===>#KCVF     +
$
$
$
$     ;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 = 'MIDDLE LAST'
  &PARITY = 'Y N'
  &KEY2A = ' '
  &KEY2B = ' '
  &KEY2C = ' '
  &KPART = 'MIDDLE'
  VGET (KEYNM) PROFILE
  VGET (KYTYPE) PROFILE
  VGET (KEY1B) PROFILE
  VGET (KEY1C) PROFILE
  VPUT (KCVF) PROFILE
  VPUT (KPART) PROFILE
  VPUT (P) profile
)PROC
  VER (&KEY2A,NB,LEN,EQ,16,MSG=EHN002E)
  VER (&KEY2A,HEX,MSG=EHN002E)
  VER (&KPART,NONBLANK,LISTV,&KPARTS,MSG=EHN001E)
  VER (&P,NONBLANK,LISTV,&PARITY,MSG=EHN001E)
  IF (&KEY2B NE ' ')
     VER (&KEY2B,NB,LEN,EQ,16,MSG=EHN002E)
     VER (&KEY2B,HEX,MSG=EHN002E)
     VER (&KYTYPE,NONBLANK,LISTV,&KYTYPEX,MSG=EHN005E)
     VER (&KEY1B,NB,MSG=EHN004E)
  IF (&KEY2C NE ' ')
     VER (&KEY2C,NB,LEN,EQ,16,MSG=EHN002E)
     VER (&KEY2C,HEX,MSG=EHN002E)
     VER (&KYTYPE,NONBLANK,LISTV,&KYTYPED,MSG=EHN005E)
     VER (&KEY1B,NB,MSG=EHN004E)
     VER (&KEY1C,NB,MSG=EHN004E)
     VER (&KEY2B,NB,MSG=EHN004E)
  IF (&KEY1B NE ' ')
     VER (&KEY2B,NB,MSG=EHN004E)
  IF (&KEY1C NE ' ')
     VER (&KEY2C,NB,MSG=EHN004E)
  VPUT (KEY2A) PROFILE
  VPUT (KEY2B) PROFILE
  VPUT (KEY2C) PROFILE
  VPUT (KPART) PROFILE
  VPUT (P) PROFILE
)END