zOs/REXX/WSHTR
$#@
$<#[
$$- sysvar(sysnode)
$@. fileList('A540769.WK')
call adrTso date
$] call csmExWsh rzy
$*(
call dsnAlloc rz"/tmp.wsh new dd(rmtWsh) rmtDdn(wsh) ::f "
call tsoOpen rmtWsh, 'w' /* write tso cmd */
call mAdd mCut(xx, 0), $"$$- 'wie gehts' (3*3)" ,
, $"$$ wshOut=$wshOut aaaaaaaaaaaaaaaaaaaaa|" ,
, $"call sqlConnect de0g" ,
, $"$<> $<=[ select creator, name, dbName, tsName" ,
, $" , current Server serv" ,
, $" from sysibm.sysTables where creator='SYSIBM'" ,
, $" and name like 'SYSTAB%'" ,
, $" fetch first 3 rows only $]" ,
, $"call sqlSel"
call writeDD rmtWsh, m.xx.
call tsoClose rmtWsh
call dsnAlloc rz"/tmp.out new dd(rmtOut) rmtDdn(out) ::v "
call csmExRx rz, A540769.wk.rexx, aa, $'wsh @ $ct $=wshOut=e70'
say 'cmsExRx rc='rc
do ax=1 to m.aa.0
$$- ax length(m.aa.ax) m.aa.ax
end
call readDD 'rmtOut', oo.
call tsoClose rmtOut
say oo.0 'ouput lines'
do ox=1 to oo.0
$$- ox length(oo.ox) oo.ox
end
$$ ***** f2v
call pipeWriteAll csvF2VRdr(file('dd(rmtOut)'))
$$ ***** internalize
call pipeWriteAll csvIntRdr(csvF2VRdr(file('dd(rmtOut)')))
call tsoFree rmtWsh rmtOut
$*)
$#out 20160603 17:59:44
$#out 20160603 17:58:17
RZY
A540769.WK.CLIST
A540769.WK.JCL
A540769.WK.REXX
A540769.WK.SQL
A540769.WK.TEXW
A540769.WK.WK
$#out 20160603 17:56:07
RZY
A540769.WK.CLIST
A540769.WK.JCL
A540769.WK.REXX
A540769.WK.SQL
A540769.WK.TEXW
A540769.WK.WK
$#out 20160603 17:55:32
RZY
A540769.WK.CLIST
A540769.WK.JCL
A540769.WK.REXX
A540769.WK.SQL
A540769.WK.TEXW
A540769.WK.WK
$#out 20160603 17:54:17
A540769.WK.CLIST
A540769.WK.DBR
A540769.WK.DBRM
A540769.WK.JCL
A540769.WK.LLB
A540769.WK.REXX
A540769.WK.SQL
A540769.WK.TEXV
A540769.WK.TEXW
A540769.WK.WK
$#out 20160603 17:53:11
A540769.WK.CLIST
A540769.WK.DBRM
A540769.WK.HIST
A540769.WK.JAVA
A540769.WK.JCL
A540769.WK.LCTL
A540769.WK.LISTDEF
A540769.WK.LOAD
A540769.WK.PLB
A540769.WK.REXX
A540769.WK.REXXRUN
A540769.WK.REXX2008
A540769.WK.SKELS
A540769.WK.SQL
A540769.WK.TESTCASE
A540769.WK.TEXT
A540769.WK.TEXV
A540769.WK.TEXW
A540769.WK.TMP
A540769.WK.WK
$#out 20160602 13:36:47
1 5 READY
2 22 wsh @ $ct $=wshOut=e70
3 70 ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES
4 5 READY
5 3 END
1 13 v,wie gehts 9
2 36 v,wshOut=e70 aaaaaaaaaaaaaaaaaaaaa||
3 70 c Sql217 CLASS.217,u f CREATOR v,f NAME v,f DBNAME v,f TSNAME v,f SER&
4 3 V v
5 70 o CLASS.217 O.217.1,SYSIBM ,SYSTABAUTH,DSNDB06 ,SYSTSTAU,CHROI00ZDE0&
6 6 G |
7 70 o CLASS.217 O.217.2,SYSIBM ,SYSTABCONST,DSNDB06 ,SYSTSTBC,CHROI00ZDE&
8 7 0G |
9 70 o CLASS.217 O.217.3,SYSIBM ,SYSTABLEPART,DSNDB06 ,SYSTSTPT,CHROI00ZD&
10 8 E0G |
***** f2v
v,wie gehts 9
v,wshOut=e70 aaaaaaaaaaaaaaaaaaaaa|
c Sql217 CLASS.217,u f CREATOR v,f NAME v,f DBNAME v,f TSNAME v,f SERV v
o CLASS.217 O.217.1,SYSIBM ,SYSTABAUTH,DSNDB06 ,SYSTSTAU,CHROI00ZDE0G
o CLASS.217 O.217.2,SYSIBM ,SYSTABCONST,DSNDB06 ,SYSTSTBC,CHROI00ZDE0G
o CLASS.217 O.217.3,SYSIBM ,SYSTABLEPART,DSNDB06 ,SYSTSTPT,CHROI00ZDE0G
***** internalize
wie gehts 9
wshOut=e70 aaaaaaaaaaaaaaaaaaaaa|
O.215.1=[CREATOR=SYSIBM NAME=SYSTABAUTH DBNAME=DSNDB06 TSNAME=SYSTSTAU SE...]
O.215.2=[CREATOR=SYSIBM NAME=SYSTABCONST DBNAME=DSNDB06 TSNAME=SYSTSTBC S...]
O.215.3=[CREATOR=SYSIBM NAME=SYSTABLEPART DBNAME=DSNDB06 TSNAME=SYSTSTPT ...]
$#out 20160602 13:35:51
1 5 READY
2 22 wsh @ $ct $=wshOut=e70
3 70 ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES
4 5 READY
5 3 END
1 13 v,wie gehts 9
2 36 v,wshOut=e70 aaaaaaaaaaaaaaaaaaaaa||
3 70 c Sql217 CLASS.217,u f CREATOR v,f NAME v,f DBNAME v,f TSNAME v,f SER&
4 3 V v
5 70 o CLASS.217 O.217.1,SYSIBM ,SYSTABAUTH,DSNDB06 ,SYSTSTAU,CHROI00ZDE0&
6 6 G |
7 70 o CLASS.217 O.217.2,SYSIBM ,SYSTABCONST,DSNDB06 ,SYSTSTBC,CHROI00ZDE&
8 7 0G |
9 70 o CLASS.217 O.217.3,SYSIBM ,SYSTABLEPART,DSNDB06 ,SYSTSTPT,CHROI00ZD&
10 8 E0G |
***** f2v
v,wie gehts 9
v,wshOut=e70 aaaaaaaaaaaaaaaaaaaaa|
c Sql217 CLASS.217,u f CREATOR v,f NAME v,f DBNAME v,f TSNAME v,f SERV v
o CLASS.217 O.217.1,SYSIBM ,SYSTABAUTH,DSNDB06 ,SYSTSTAU,CHROI00ZDE0G
o CLASS.217 O.217.2,SYSIBM ,SYSTABCONST,DSNDB06 ,SYSTSTBC,CHROI00ZDE0G
o CLASS.217 O.217.3,SYSIBM ,SYSTABLEPART,DSNDB06 ,SYSTSTPT,CHROI00ZDE0G
***** internalize
wie gehts 9
wshOut=e70 aaaaaaaaaaaaaaaaaaaaa|
O.215.1=[CREATOR=SYSIBM NAME=SYSTABAUTH DBNAME=DSNDB06 TSNAME=SYSTSTAU SE...]
O.215.2=[CREATOR=SYSIBM NAME=SYSTABCONST DBNAME=DSNDB06 TSNAME=SYSTSTBC S...]
O.215.3=[CREATOR=SYSIBM NAME=SYSTABLEPART DBNAME=DSNDB06 TSNAME=SYSTSTPT ...]
$#out 20160602 13:33:44
1 5 READY
2 22 wsh @ $ct $=wshOut=e70
3 70 ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES
4 5 READY
5 3 END
1 7 O.217.1
2 7 O.217.2
3 7 O.217.3
4 11 wie gehts 9
5 33 wshOut=e70 aaaaaaaaaaaaaaaaaaaaa|
***** f2v
$#out 20160602 13:14:05