zOs/REXX/ANAPOT1

$#@   $*(  find anaPost anO mit zugehörigem anP
      $*)
$=dbSys = DVBP
msk = 'DSN.DBY'$dbSys'.*.%%%.D15*.**'
ouP = '~WK.TEXT(ANAPO'iiRz2P(sysvar(sysnode))iiDbSys2c($dbSys)
cx = 13
cy = 22
call csiOpen c, msk
$<>
$>. fEdit(ouP'1)', 'e')
do while csiNext(c, r)
    if auf <>  substr(m.r, cx, 8) then do
        auf = substr(m.r, cx, 8)
        lst = ''
        end
    q4 = substr(m.r, cy, 4)
    if q4 = 'ANO.' | q4 = 'REO.'  then
        lst = lst substr(m.r, cy)
    else if q4 = 'ANP.' | q4 = 'REP.' then
        if wordPos(overlay('O', substr(m.r, cy), 3), lst) > 0 then
            $$- m.r
    end
$#out                                              20151112 07:58:41
$#out                                              20151112 07:57:41