/* REXX */
 Address ISPEXEC
 "LIBDEF ISPPLIB DATASET ID('VIL0008.ISPPLIB')"
 "LIBDEF ISPMLIB DATASET ID('VIL0008.ISPMLIB')"
 Do forever
   "DISPLAY PANEL(FIRST)"
   If wkey = 'PF03' Then Exit
   If read(LNAME,FNAME) == 1 Then "DISPLAY PANEL(SECOND)"
 END

 read:
 Address TSO
 parse arg fname, lname
 in_ds = "VIL0008.ISPPLIB(DATAFILE)"
 "ALLOC F(INPUT) DA('"in_ds"') SHR REU"
 "EXECIO * DISKR INPUT (FINIS STEM my_stem."
 "FREE F(INPUT)"
 i = 1
 rezult = 0
 do while i <= my_stem.0
  parse var my_stem.i var1 var2 var3
  i = i + 1
  if translate(var1||var2) = fname||lname then
    do
      rezult = 1
      leave
    end
 end
 return rezult