zOs/REXX/DBXWSH

$=auft=DSN.DBX.AUFTRAG
$=auCo=DSN.DBA.ZUEGEL.AUFTRAG.DIRPRO
$=auCo=A540769.TMP.AUFTCOPY
$;
$<=/wsls/
   WK90001C 01
$*(   WK90002C 0
   WK90003C 0
   WK90001C 01
   WK90002C 0
   WK90001C 01
   WK90002C 0
   WK90003C 0
   WK90001C 01
   WK90002C 0
$*)   WK90003C 0
$/wsls/
$@for ii $@/doOne/
     parse value $ii with mbr opt
     c = '-a'mbr 'i rr2.DBoF' strip(opt)
     result = 'fail'
     res = adrTso('%DBX' c, '*')
     say 'res' res 'for dbx' c
     trace ?r
     call readDsn $auft'('mbr')', 'I.'
     call writeDsn $auCo'('mbr') ::f', 'I.', , 1
$/doOne/
$***out            20091005 15:49:00
$***out            20091005 15:43:34
$***out            20091005 15:41:51
$***out            20091005 15:40:43
$***out            20091005 15:40:26
$***out            20091005 15:40:03
$***out            20091005 15:38:07
$***out            20091005 15:23:10
$***out            20091005 15:22:56
$***out            20091005 15:22:39
$***out            20091005 14:43:13
$***out            20091005 14:42:09
$***out            20091005 14:41:34
$***out            20091005 14:40:07
$***out            20091005 14:38:05
$***out            20091005 14:37:31
$***out            20091005 14:36:09
$***out            20091005 14:33:33
$***out            20091005 14:30:05
-aWK90001C i DBZF
-aWK90002C i DBZF 23
-aWK90003C i DBZF
$***out