$ if P1 .eqs. "MAIL"

$ then

$       mail 'f$env("procedure")' <GDPR törlés> /subject="VMS BEADANDO 3"

$       goto legvege

$ endif

$ open nevek 'P1'

$ level_db = 1

$ keres="###"

$ nevek_loop:

$       read /end=nevek_loop_end nevek nev

$       open /write akt_level tmp_'level_db'.txt

$       level_loop:

$               open level 'P2'

$               read /end=level_loop_end level sor

$               be=sor

$               cserel_loop: !cserebere loop

$                       hol = f$locate(keres,be)

$                       if hol .ne. f$leng(be)

$                       then

$                               holvege = hol + f$leng(keres)

$                               eredmeny = f$extr(0,hol,be) + nev

$                               eredmeny = eredmeny + f$extr(holvege,f$len(be),â

$                               ki=eredmeny

$                       endif

$                       if hol .eq. f$leng(be) then ki=be

$                       hol = f$locate(keres,ki)

$                       be=ki

$                       if hol .ne. f$leng(ki) then goto cserel_loop

$                       write akt_level ki

$               goto level_loop

$       level_loop_end:

$       level_db=level_db + 1

$       close akt_level

$       close level

$       goto nevek_loop

$ nevek_loop_end:

$ close nevek

$ legvege: