Hi, Problem mit SQL nach Systemumstellung bei einem Mandanten von V7.R1 nach V7.R3 und gleichzeitig Umstellung auf Power-9.

Ein CL ruft ein SQL-Script auf:


/* mit SQL aus LAGBESpf und BOLVGLpf die Arbeitsdatei BOLDIFpf +
auffüllen */
RUNSQLSTM SRCFILE(ANCRASRC/QSQLSRC) SRCMBR(PR_LAG350) +
COMMIT(*NONE) NAMING(*SYS) DATFMT(*EUR) +
DATSEP('.') TIMSEP(':') DBGVIEW(*STMT)


FTP-Script
-- P R _ L A G 3 5 0
--
-- aus LAGBESpf und BOLVGLpf eine Vergleichsdatei erstellen
-- --> BOLDIFpf


insert into BOLDIFpf
( bdstkn ,
bdidenti ,
bdnmen ,
bdbopale ,
bdarti ,
bdvere ,
bddess ,
bdgrsc ,
bdfarb ,
bdfar2 ,
bdidentib ,
bdmeter ,
bddatum )
select
lag.lastkn ,
lag.lavgre12 ,
lag.lanmen ,
lag.labopale ,
substring(lag.laarti, 1, 6) as quali,
lag.lavere ,
lag.ladess ,
lag.lagrsc ,
lag.lafarb ,
lag.lafar2 ,
value(bol.bvidenti, 0) ,
value(bol.bvmeter, 0,00) ,
value(bol.bvdatum, '0001-01-01' )
from lagbespf as LAG
LEFT OUTER JOIN bolvglpf as BOL ON
LAG.LASTKN = BOL.bvstkn
where lag.lafirm = 01
and lag.lalort = 810
and lag.lapros = 82 ;

insert into BOLDIFpf
( bdstkn ,
bdidenti ,
bdnmen ,
bdbopale ,
bdarti ,
bdvere ,
bddess ,
bdgrsc ,
bdfarb ,
bdfar2 ,
bdidentib ,
bdmeter ,
bddatum )
select
bol.bvstkn ,
value(lag.lavgre12, 0) ,
value(lag.lanmen, 0,00) ,
value(lag.labopale, 0) ,
value(substring(lag.laarti, 1, 6), ' ') ,
value(lag.lavere, ' ') ,
value(lag.ladess, 0) ,
value(lag.lagrsc, ' ') ,
value(lag.lafarb,' ') ,
value(lag.lafar2, ' ') ,
bol.bvidenti ,
bol.bvmeter ,
bol.bvdatum
from lagbesMH as LAG
RIGHT EXCEPTION JOIN bolvglpf as BOL ON
LAG.LASTKN = BOL.bvstkn ;


Es kommt immer eine Fehlermeldung.

SQL0104 Pos. 22 Token . ungültig. Gültige Token: + - AS
.


21 select
22 lag.lastkn ,
23 lag.lavgre12 , etc.


Ich habe schon alles Moegliche versucht. Alle Felder mit Datei-Namen als Praefix. und und und ..
Im CL habe ich auch mal anstatt Naming (*SYS) Naming (*SQL) versucht.

Vielleicht kann mir jemand helfen. Wenn nicht, dann werde ich ein RPG-Progamm erstellen mit denselben Funktionen wie das SQL-Script.