$#@ 00010006
call csmCopy 'RZ1/DSN.DBX.CAGLBCHG', 'RZ8/A540769.TMP.CAGC' 00020006
$#end 00030006
$<#/dsn/ 00040004
A540769.RECUN.DGDB9998.A600A190.P0000 00050005
A540769.RECUN.DGDB9998.A600A199.P0000 00060005
$/dsn/ $@for v $@[ 00070004
pre = strip($v) 00080005
say pre 00090005
suf = '.UN2' 00100005
do i=1 to 8 00110005
dsn = pre || i || suf 00120005
call csmCopy 'RZ1/'dsn, 'RR2/'dsn 00130005
end 00140005
$] 00150004
$#out 20130108 16:07:03 00160006
$#out 20130108 15:58:29 00170006
$#out 20130108 15:57:42 00180006
$#out 20130108 15:57:16 00190006
*** run error *** 00200006
adrTso rc 12 for exec 'CSM.RZ1.P0.EXEC(CSRXUTIL)' 'COPY */''DSN.DBX.CAGL00210006
$#out 20091103 16:48:37 00220005
$#out 20091103 16:48:56 00230005
$#out 20091103 16:43:15 00240005
$#out 20091103 16:42:51 00250005
$#out 20091103 16:36:40 00260004
$#out 00270004
$***out 20080808 10:46:01 00280001
$***out 20080808 09:17:18 00290000
$***out 20080808 09:16:54 00300000
$***out 20080808 09:16:07 00310000
$***out 20080808 09:15:36 00320000
$***out 00330000