zOs/TX/INIDBTF

say 'start wsh A540769.tx.case(INI)'
$= srcSubsys  = DBAF
$= srcDb      = DGDB9998
$= srcCreator = GDB9998
$= trgSubsys  = DBTF
$= trgDb      = DA540769
$= trgCreator = A540769
$= ddl        = $pds(${mpr}DDL)
$= gen        = DSN.TX.GENF
if  ${?DQ0G} then
    if  ${DQ0G} == 1 then do
        $= srcSubsys  = DQ0G
        $= trgSubsys  = DQ0G
        end