@BabakNYC: Yes, have a look:
SET NODATA = ''
-*DAMIT EINE NULL VORRAN STEHT
SET CENT-ZERO=ON
SET &ECHO = ALL;
ENGINE SQLORA SET DEFAULT_CONNECTION ARS
SQL SQLORA PREPARE SQLOUT FOR
...very Long SQL which works
END
DEFINE FILE SQLOUT
WAI_PFLICHTIG/I1 = WAI_PFLICHTIG;
KVG_ID/I2 = KVG_ID;
MYFORMAT/A8 = DECODE ASSETTYP ('Spezial-Fonds' 'D12.4' ELSE 'D12.2');
-*MYFORMAT_BIB_OGC_EA/A8 = DECODE BIB_OGC_EA ('0' 'I4' ELSE MYFORMAT);
MYFORMAT_BIB_OGC_EA/A8 = IF BIB_OGC_EA EQ 0 THEN 'I3'
ELSE IF ASSETTYP EQ 'Spezial-Fonds' AND BIB_OGC_EA NE 0 THEN 'D12.4'
ELSE 'D12.2';
-*MYFORMAT_MIFID_TRX_EA/A8 = DECODE MIFID_TRX_EA ('0' 'I4' ELSE MYFORMAT);
MYFORMAT_MIFID_TRX_EA/A8 = IF MIFID_TRX_EA EQ 0 THEN 'I3'
ELSE IF ASSETTYP EQ 'Spezial-Fonds' AND MIFID_TRX_EA NE 0 THEN 'D12.4'
ELSE 'D12.2';
-*MYFORMAT_BIB_EBV_EA/A8 = DECODE BIB_EBV_EA ('0' 'I4' ELSE MYFORMAT);
MYFORMAT_BIB_EBV_EA/A8 = IF BIB_EBV_EA EQ 0 THEN 'I3'
ELSE IF ASSETTYP EQ 'Spezial-Fonds' AND BIB_EBV_EA NE 0 THEN 'D12.4'
ELSE 'D12.2';
-*MYFORMAT_RA/A8 = DECODE RA ('0' 'I4' ELSE MYFORMAT);
MYFORMAT_RA/A8 = IF RA EQ 0 THEN 'I3'
ELSE IF ASSETTYP EQ 'Spezial-Fonds' AND RA NE 0 THEN 'D12.4'
ELSE 'D12.2';
-*MYFORMAT_AA/A8 = DECODE AA ('0' 'I4' ELSE MYFORMAT);
MYFORMAT_AA/A8 = IF AA EQ 0 THEN 'I3'
ELSE IF ASSETTYP EQ 'Spezial-Fonds' AND AA NE 0 THEN 'D12.4'
ELSE 'D12.2';
-*MYFORMAT_EX_ANTE_KOSTEN/A8 = DECODE EX_ANTE_KOSTEN ('0' 'I4' ELSE MYFORMAT);
MYFORMAT_EX_ANTE_KOSTEN/A8 = IF EX_ANTE_KOSTEN EQ 0 THEN 'I3'
ELSE IF ASSETTYP EQ 'Spezial-Fonds' AND EX_ANTE_KOSTEN NE 0 THEN 'D12.4'
ELSE 'D12.2';
LIEFERDATUM/D.M.YY = HDATE(LIEFERDATUM, 'DMYY');
AUFLEGUNGSDATUM/D.M.YY = HDATE(AUFLEGUNGSDATUM, 'DMYY');
END
TABLE FILE SQLOUT
PRINT
ISIN AS 'ISIN'
LIEFERDATUM AS 'Lieferdatum'
AUFLEGUNGSDATUM AS 'Auflegungsdatum'
GESCHAEFTSJAHR AS 'Geschaeftsjahr'
PRODUKTNAME AS 'PRODUKTNAME'
WAI_PFLICHTIG AS 'WAI-pflichtig'
PRODUKTMANAGER AS 'Produktmanager'
VERTRETER AS 'Vertreter'
ERTRAGSVERWENDUNG AS 'Ertragsverwendung'
FONDSWAEHRUNG AS 'Fondswaehrung'
RECHTSFORM_GROB AS 'Rechtsfrom_grob'
KVG_ID AS 'KVG_ID'
KVG AS 'KVG'
VERWAHRSTELLE AS 'Verwahrstelle'
PRODUKTGENEHMIGUNGSSTATUS AS 'PRODUKTGENEHMIGUNGSSTATUS'
PRIIP_DATENSICHT AS 'PRIIP_DATENSICHT'
ASSETTYP AS 'Assettyp'
INSTI_ÜBERWACHUNG/I3 AS 'INSTI_UEBERWACHUNG'
BIB_OGC_EA/MYFORMAT_BIB_OGC_EA AS 'BIB_OGC_EA'
MIFID_TRX_EA/MYFORMAT_MIFID_TRX_EA AS 'MIFIF_TRX_EA'
BIB_EBV_EA/MYFORMAT_BIB_EBV_EA AS 'BIB_EBV_EA'
RA/MYFORMAT_RA AS 'RA_Ruecknahmeabschlag'
AA/MYFORMAT_AA AS 'AA_Ausgabeaufschlag'
EX_ANTE_KOSTEN/MYFORMAT_EX_ANTE_KOSTEN AS 'Ex_Ante_Kosten'
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT XLSX
-*ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
ENDSTYLE
END
-*SPÄTER ABLEGEN AUF I:\AMK_63\Weitere\63_Transfer_61\WebFocus\Zielmarkt
-*SOLL Kosten_komplett.xlsx HEISSEN
@jgelona: I am not using it, the error appears the first time today, while it worked great before... and just appears in the Report Caster.
WebFOCUS 8.1.05
Windows, All Outputs