TESTAS
 say write(Rokas, Loxas, 1997-02-92)
 write:
 Address TSO
 Parse arg var1, var2, var3
 out_ds = "VIL0008.ISPPLIB.DATAFILE"
 in_ds = "VIL0008.ISPPLIB.DATAFILE"
 "ALLOC F(INPUT) DA('"in_ds"') SHR REU"
 "EXECIO * DISKR INPUT (FINIS STEM my_stem."
 "FREE F(INPUT)"
 last = my_stem.0 + 1
 my_stem.last= var1||var2||var3
 say my_stem.last
 "ALLOC DA('"out_ds"') F(FILEOUT) MOD"
 "EXECIO "my_stem.0" DISKW FILEOUT (FINIS"
 "FREE F(FILEOUT)"


FISRTPAN

 )PANEL
 )BODY EXPAND(//)
 % /-/ EMPLOYEE RECORDS /-/
 %COMMAND ===>_ZCMD %
 %
 %EMPLOYEE SERIAL: &EMPSER
 ++
 TYPE OF CHANGE%===>_Z      + (NEW, UPDATE, OR DELETE)
 ++
 EMPLOYEE NAME:
 + LAST %===> _Z                    +
 + FIRST %===> _Z                    +
 + INITIAL %===> _Z     +
 ++
 HOME ADDRESS:
 + LINE 1 %===>_Z     +
 + LINE 2 %===>_Z     +
 + LINE 3 %===>_Z     +
 + LINE 4 %===>_Z     +
 ++
 HOME PHONE:
 + AREA CODE %===>_Z     +
 + LOCAL NUMBER %===>_Z    +
 +
 )INIT
 .ZVARS = '(TYPECHG LNAME FNAME I +
        ADDR1 ADDR2 ADDR3 ADDR4 PHA PHNUM)'
 &TYPECHG = 'NEW'
 &PHA = '+370'
 &I = 'SIR'
.MSG = &TEST
)PROC
&WKEY = .PFKEY
VER (&LNAME, ALPHA)
)END



FIRSTPANEL MINE
 )PANEL
 )BODY EXPAND(//)
 % /-/ EMPLOYEE RECORDS /-/
 %COMMAND ===>_ZCMD %
 %
 %EMPLOYEE SERIAL: &EMPSER
 ++
 EMPLOYEE NAME:
 + FIRST%===>_Z                    + LENGTH BETWEEN 1-20
 + LAST%===>_Z                    +  LENGTH BETWEEN 1-20
 + BIRTH DATE%===>_Z         +       EXM.:1970-01-01
 ++
 +
 )INIT
 .ZVARS = '(FNAME LNAME BIRTHDAY)'
 .MSG = ''
 .CURSOR = 'FNAME'
 )PROC
 &WKEY = .PFKEY
 VER (&FNAME, ALPHA, MSG=VU084)
 VER (&FNAME, NB)
 VER (&LNAME, ALPHA, MSG=VU085)
 VER (&LNAME, NB)
 VER (&BIRTHDAY, NB)

 )END


SECONDPANEL

)PANEL
)BODY EXPAND(//)
%/*/
%
%
%
%
%
%
%/-/YEP THIS IS SECOND PANEL/-/
%
%
%
%
%
%
%/*/
)PROC
&KKEY = .PFKEY
)END

PANEL
 /* 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

 /* FUNCTIONS */
 sh_pnl2:
 Address ISPEXEC
 Do Forever
   "DISPLAY PANEL(SECOND)"
   If kkey = 'PF03' Then sh_pnl1()
 End

 sh_pnl1:
 Address ISPEXEC
 Do Forever
   "DISPLAY PANEL(FIRST)"
 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
  else
    do
      say nerasta
    end
 end
 return rezult