zOs/SQL/BEPRES
SELECT
B.PROCBASE
,B.TECHBEZ
,a.dat_erst_gb a
,b.dat_erst_gb b
FROM OA1t01.VBE010A1 A
JOIN OA1t01.VBE010A1 B ON
B.SAMMEL1 = A.SAMMEL1
AND B.PROCBASE = 423
AND B.TECHBEZ = '0061024442892000'
WHERE
A.PROCBASE = 423
AND A.TECHBEZ = '0061024442892000'
AND A.SAMMEL2 = '2005-06-08-00.07.28.699302'
with ur
;
set current sqlid = 'A540769';
delete from A540769.plan_table;
explain plan set queryno = 0 for
SELECT A.PROCBASE, A.TECHBEZ,
REPLACE (CHAR (A.DAT_BUCH, ISO), '-', ''), REPLACE (CHAR (A.DAT_VAL,
ISO), '-', ''), A.DAT_ERST_GB, A.VERDTYP, A.BUCHSEITE_KWA_VERD,
A.BUCHSEITE_BWA_VERD, A.STORNOFEHLER, A.STATUS_STORNO, A.STORNOSICHT,
A.STORNOTEIL, A.AUFTRAGS#_STORNO, A.GF_LAUF#_STORNO, A.ANZ_BEW_VERD,
A.BETR_KWA_VERD, A.BETR_BWA_VERD, A.SAMMEL2, A.DAT_MUT, A.PID_MUT,
A.PORTO_FREI, A.ZAZ_FREI, A.ZSK_FREI, A.UMSATZKOMM_FREI, A.ZUSATZTEXT,
A.ZUSATZTEXT_VERW, A.TAGSCHNITT, A.LIEFERANT, REPLACE (CHAR
(A.DAT_LIEF, ISO), '-', ''), REPLACE (CHAR (A.DAT_TRADE, ISO), '-',
''), A.AUFTRAGS#_QUAL, A.AUFTRAGS#, REPLACE (CHAR (A.DAT_AUFTRAG, ISO),
'-', ''), A.KUNDREF, REPLACE (CHAR (A.DAT_ERFASS, ISO), '-', ''),
A.ZEIT_ERFASS, REPLACE (CHAR (A.DAT_BELEG, ISO), '-', ''),
A.AUFTRAGGEBER_QUAL, A.BUID_AUFTRAGGEBER, A.AUFTRAGGEBER, A.AKTIONS#,
A.PID_ERFASS, REPLACE (CHAR (A.DAT_KONTROLL1, ISO), '-', ''),
A.ZEIT_KONTROLL1, A.PID_KONTROLL1, REPLACE (CHAR (A.DAT_KONTROLL2,
ISO), '-', ''), A.ZEIT_KONTROLL2, A.PID_KONTROLL2, REPLACE (CHAR
(A.DAT_DISPOFREI, ISO), '-', ''), A.ZEIT_DISPOFREI, A.PID_DISPOFREI,
A.GF_LAUF#, A.MELDETYP, A.BUCHSEITE, A.BEWEGART, A.AUSSERBILANZ,
A.WHRG_KTO, A.BETR_KTOWHRG, A.WHRG_BUCH, A.BETR_BUCHWHRG, A.WHRG_TRANS,
A.BETR_TRANSWHRG, A.KURS, REPLACE (CHAR (A.DAT_KURS, ISO), '-', ''),
A.ZEIT_KURS, A.ZEIT_VAL, A.PRODUKTE_NR, A.PREISKOMP_NR,
A.AUSPRAEGUNGS_ID, A.STORNOART, A.STORNOUMFANG, A.AUFTRAGS#_ORIG,
A.GF_LAUF#_ORIG, A.REFGRUND, A.SAMMELTYP, A.SAMMELBEGRIFF, A.OP_TYP,
A.OPOSTEN, A.BELEG, A.VORMERK#, A.KRIT_VAL, A.KOK_NVZ, A.PROZPFAD,
A.STRUKTUREN, A.SPESENART, A.BETR_BUSP, A.SAMMEL1, A.VERARBEITART,
A.VM_ABL, A.WS_ARTIKEL#, A.WS_PREIS, A.DE_SOUCHEN#, A.DE_ERMITTLUNGART,
A.DE_MELDUNG, A.DE_BUID_KONVERT, A.SA_KARTEN#, A.SA_TRANSORT,
A.SA_NAME, A.SA_ORT, A.ZV_QUAL, A.ZV_ANGABEN
FROM oa1t01.VBE010A1 A JOIN
oa1t01.VBE010A1 D ON D.SAMMEL1 = A.SAMMEL1
AND D.PROCBASE = ?
AND D.TECHBEZ = ?
WHERE A.PROCBASE = ?
AND A.TECHBEZ = ?
AND A.SAMMEL2 = ?
for FETCH ONLY
;
select * from plan_view1
order by applname, progname, queryNo, qblockno, planno, mixOpSeq
;
rollback
;
SELECT A.PROCBASE, A.TECHBEZ,
REPLACE (CHAR (A.DAT_BUCH, ISO), '-', ''), REPLACE (CHAR (A.DAT_VAL,
ISO), '-', ''), A.DAT_ERST_GB, A.VERDTYP, A.BUCHSEITE_KWA_VERD,
A.BUCHSEITE_BWA_VERD, A.STORNOFEHLER, A.STATUS_STORNO, A.STORNOSICHT,
A.STORNOTEIL, A.AUFTRAGS#_STORNO, A.GF_LAUF#_STORNO, A.ANZ_BEW_VERD,
A.BETR_KWA_VERD, A.BETR_BWA_VERD, A.SAMMEL2, A.DAT_MUT, A.PID_MUT,
A.PORTO_FREI, A.ZAZ_FREI, A.ZSK_FREI, A.UMSATZKOMM_FREI, A.ZUSATZTEXT,
A.ZUSATZTEXT_VERW, A.TAGSCHNITT, A.LIEFERANT, REPLACE (CHAR
(A.DAT_LIEF, ISO), '-', ''), REPLACE (CHAR (A.DAT_TRADE, ISO), '-',
''), A.AUFTRAGS#_QUAL, A.AUFTRAGS#, REPLACE (CHAR (A.DAT_AUFTRAG, ISO),
'-', ''), A.KUNDREF, REPLACE (CHAR (A.DAT_ERFASS, ISO), '-', ''),
A.ZEIT_ERFASS, REPLACE (CHAR (A.DAT_BELEG, ISO), '-', ''),
A.AUFTRAGGEBER_QUAL, A.BUID_AUFTRAGGEBER, A.AUFTRAGGEBER, A.AKTIONS#,
A.PID_ERFASS, REPLACE (CHAR (A.DAT_KONTROLL1, ISO), '-', ''),
A.ZEIT_KONTROLL1, A.PID_KONTROLL1, REPLACE (CHAR (A.DAT_KONTROLL2,
ISO), '-', ''), A.ZEIT_KONTROLL2, A.PID_KONTROLL2, REPLACE (CHAR
(A.DAT_DISPOFREI, ISO), '-', ''), A.ZEIT_DISPOFREI, A.PID_DISPOFREI,
A.GF_LAUF#, A.MELDETYP, A.BUCHSEITE, A.BEWEGART, A.AUSSERBILANZ,
A.WHRG_KTO, A.BETR_KTOWHRG, A.WHRG_BUCH, A.BETR_BUCHWHRG, A.WHRG_TRANS,
A.BETR_TRANSWHRG, A.KURS, REPLACE (CHAR (A.DAT_KURS, ISO), '-', ''),
A.ZEIT_KURS, A.ZEIT_VAL, A.PRODUKTE_NR, A.PREISKOMP_NR,
A.AUSPRAEGUNGS_ID, A.STORNOART, A.STORNOUMFANG, A.AUFTRAGS#_ORIG,
A.GF_LAUF#_ORIG, A.REFGRUND, A.SAMMELTYP, A.SAMMELBEGRIFF, A.OP_TYP,
A.OPOSTEN, A.BELEG, A.VORMERK#, A.KRIT_VAL, A.KOK_NVZ, A.PROZPFAD,
A.STRUKTUREN, A.SPESENART, A.BETR_BUSP, A.SAMMEL1, A.VERARBEITART,
A.VM_ABL, A.WS_ARTIKEL#, A.WS_PREIS, A.DE_SOUCHEN#, A.DE_ERMITTLUNGART,
A.DE_MELDUNG, A.DE_BUID_KONVERT, A.SA_KARTEN#, A.SA_TRANSORT,
A.SA_NAME, A.SA_ORT, A.ZV_QUAL, A.ZV_ANGABEN
FROM oa1t01.VBE010A1 A JOIN
oa1t01.VBE010A1 D ON D.SAMMEL1 = A.SAMMEL1
AND D.PROCBASE = 423
AND D.TECHBEZ = '0061024442892000'
WHERE A.PROCBASE = 423
AND A.TECHBEZ = '0061024442892000'
AND A.SAMMEL2 = '2005-06-08-00.07.28.699302'
for FETCH ONLY
;
;;
$#@
call sqlConnect 'DBTF'
$; $<@=[
SELECT
B.PROCBASE
,B.TECHBEZ
FROM OA1t01.VBE010A1 A
JOIN OA1t01.VBE010A1 B ON
B.SAMMEL1 = A.SAMMEL1
AND B.PROCBASE = 423
AND B.TECHBEZ = '0061024442892000'
WHERE
A.PROCBASE = 423
AND A.TECHBEZ = '0061024442892000'
AND A.SAMMEL2 = '2005-06-08-00.07.28.699302'
with ur
$] call sqlSel
$=s=-=[
select
D.PROCBASE
,D.TECHBEZ
from oa1t01.VBE010A1 A
join oa1t01.VBE010A1 D
on
D.SAMMEL1 = A.SAMMEL1
and D.PROCBASE = ?
and D.TECHBEZ = ?
$*( where A.PROCBASE = ?
and A.TECHBEZ = ?
and A.SAMMEL2 = ?
$*) with ur
$]
say $s
call sqlPrepare 1, $s
pr = 423
te = '0061024442892000'
s2 = '2005-06-08-00.07.28.699302'
call sqlOpen 1, pr, te, pr, te,s2
do while sqlFetchInto(1, ':fp, :ft')
say fp ft
end
call sqlClose 1
call sqlDisconnect
$#out 20110405 17:50:33
@O.131.1 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.2 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.3 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.4 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.5 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.6 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.7 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
@O.131.8 class=SQL131, PROCBASE=423, TECHBEZ=0061024442892000
$#out 20110405 17:46:53