zOs/SQL/SET

call sqlConnect dbaf
abc = 'a und b und c'
$;
$<<eof
    user
    left(user, 4) || 'undSoWeiter'
    session_user
    getvariable('SYSIBM.VERSION')
eof $@{
    $@for v $@{
        v = strip($v)
        $£ v
        call sqlPreAllCl 1, 'select' v 'from sysibm.sysdummy1', st,':r'
        $£ 'fetch' m.st.0 r
        res = sqlExec( 'set   :q  =  ' v ' ', '*')
        $£ 'set' res q
        if res <> 0 then
            call errSay sqlMsg()
        $}
    $}
$***out            20081024 13:57:08
user
fetch 1 S100447
set 0 S100447
left(user, 4) || 'undSoWeiter'
fetch 1 S100undSoWeiter
set -104 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 S100447
$***out            20081024 13:56:15
user
fetch 1 S100447
set -104 S100447
left(user, 4) || 'undSoWeiter'
fetch 1 S100undSoWeiter
set -104 S100undSoWeiter
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 13:55:51
user
fetch 1 S100447
set -104 S100447
left(user, 4) || 'undSoWeiter'
fetch 1 S100undSoWeiter
set -104 S100undSoWeiter
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 13:55:01
user
fetch 1 S100447
set 0 S100447
left(user, 4) || 'undSoWeiter'
fetch 1 S100undSoWeiter
set -104 S100undSoWeiter
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 13:53:51
user
fetch 1 S100447
set 0 S100447
left(user, 4) || 'undSoWeiter'
fetch 1 S100undSoWeiter
set -104 S100undSoWeiter
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 09:13:57
user
fetch 1 S100447
set 0 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 09:13:41
user
fetch 1 S100447
set -104 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 09:12:48
user
fetch 1 S100447
set -104 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 09:12:13
left(?, 5)
$***out            20081024 09:11:16
left(:abc, 5)
$***out            20081024 09:10:59
$***out            20081024 09:10:38
$***out            20081024 08:48:25
user
fetch 1 S100447
set -104 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 08:48:04
user
fetch 1 S100447
set -104 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 08:47:36
user
fetch 1 S100447
set -104 S100447
session_user
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 08:46:33
user
fetch 1 S100447
set 0 S100447
(session_user)
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 08:45:56
user
fetch 1 S100447
set 0 S100447
(session_user)
fetch 1 S100447
set -104 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
set -104 DSN09015
$***out            20081024 08:45:21
$***out            20081024 08:43:54
user
fetch 1 S100447
session_user
fetch 1 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
$***out            20081024 08:43:35
user
fetch 1 S100447
getvariable('SYSIBM.VERSION')
fetch 1 DSN09015
$***out            20081024 08:43:11
user
$***out            20081024 08:42:48
$***out            20081024 08:42:15
$***out            20081024 08:40:14
user
getvariable('SYSIBM.VERSION')
$***out            20081024 08:39:25
eins
zwei
$***out            20081024 08:39:08
eins
zwei
$***out            20081024 08:39:01
$***out