zOs/REXX.O13/PVSRTRAO

$=renameLLQ = TRACK3
$=attributes= space="(1,10) tracks" recfm=v,b lrecl=32756
$>stem=buId $<<abc
   id=substr(m.line,27,4)
   if id = '' then id = '0011'
   pta = 'U'
   if id == '0034' & substr(m.line,58,1) == 'A' then
        pta = "A"
   $=buId=$( pta || id $)$;
abc $;
if $env == 'PROD' then do
         /* die Maske um das File zu suchen */
    $=mask      = PVSO.RZ2.P0.**.TRACK2
    call addBu 'def'  , '', RZ2, S005Y000, , ,
                        , PVSP.RZ2.P0.PVSTRACK
    call addBu 'U0034', 'cd', PROD, MCGDG, DCVFILE, ,
                        , 'P1DAT.DOCSYS.FTSCS.PVSTRACK(+1)'
    end
else if $env == 'TEST' then do
    $=mask      = PVSO.RZ1.P0.**.TRACK2
    call addBu 'def'  , '', RZ1, S005Y000, , ,
                        , PVSP.RZ1.P0.PVSTRACK
    call addBu 'U0034', 'cd', TEST, MCGDG, DCVFILE, ,
                        , 'T1DAT.DOCSYS.FTSCS.PVSTRACK(+1)'
    call addBu 'A0034', 'wr', ACC, MCGDG, DCVFILE, ,
                        , 'P1DAT.DOCSYS.FTSCS.PVSTRACK(+1)'
    end
else do
    call err 'unbekannte Umgebung env='$env
    end