SQL - Formatierung und Datenonvertierung

[nico1964]

Hallo,
ich sehe heute schon den Wald vor lauter Bäumen nicht. Ich habe ein kleines oder vielleicht auch größeres Problem.

Mittels SQL ermittle ich mir einen Haufen Daten die ich dann ins IFS als UTF-8 .txt ablegen muss. Der generelle Ablauf dafür ist auch schon funktionsfähig.

Jetzt habe ich nur noch ein Problem: ich habe gepackte numerische Felder 13,2 die ich in ein char 17 (13 vorkomma, 2 nachkomma, 1 stelle fürs vorzeichen und 1 stelle fürs komma)
ausgeben muss. Irgendwie komme ich nicht hin.

Ups habe vergessen natürlich ohne führende Nullen das ganze ausser bei 0,00 oder 0,12.

Bitte um Hilfe.

Und vielleicht weiss auch jemand von euch, wie ich dem UTF-8 ein BOM unterjubeln kann.
Liebe Grüße aus Wien
Andreas

[B.Hauser]

Du willst also mit SQL einen gepackten Wert in eine alphanumerische Darstellung konvertieren und rechtsbündig ausrichten.
Mit SQL nicht ganz trivial (zumindest nicht vor 7.2), da es so etwas wie einen EVALR wie in RPG nicht gibt. Ab 7.2 kann man die Funktion LPAD verwenden um einen Wert rechtsbündig auszurichten.

Die SQL Lösung vor 7.2 sieht so aus:

Select Right(Space(17) concat VarChar(PackFld), 17) ... 
From ...

Birgitta

[nico1964]

Hallo Birgitta,

vielen Dank, habe das ganze gerade ausprobiert funktioniert tadellos wie die meisten Deiner Lösungsansätze.

Damit habe ich bis auf das BOM Problem alle meine Probleme auf einen Schlag gelöst.

Als nochmals herzlichen Dank und liebe Grüße aus Wien und ein schönes Wochenende

Andreas

[AG1965_2]

Und das hast Du eigentlich auch nicht, da ein anständiges UTF-8 gar kein BOM braucht.
http://de.wikipedia.org/wiki/Utf-8#Byte_Order_Mark

[nico1964]

Und das hast Du eigentlich auch nicht, da ein anständiges UTF-8 gar kein BOM braucht.
http://de.wikipedia.org/wiki/Utf-8#Byte_Order_Mark

Und was soll ich dazu jetzt antworten, ausser 1. der externe SW-Hersteller(mircosoft-batch-scripbts) verlangt es und 2. ich keine Chance habe das abzuwenden, da das Produkt nicht von der IT ausgesucht wurde, sondern von der betroffenen Fachabteilung.

LG
Andreas

[BenderD]

Und vielleicht weiss auch jemand von euch, wie ich dem UTF-8 ein BOM unterjubeln kann.

... per Programm (da könnte vielleicht sogar schon ein Shell Script ausreichen)

D*B

[nico1964]

... per Programm (da könnte vielleicht sogar schon ein Shell Script ausreichen)

D*B

Danke für den Hinweis, würde das ja gerne mit einem Shell Script lösen, da ich aber ein alter COBOL-Programmierer (und das im wahrsten Sinne des Wortes) bin, schaut es mit meinen Shell Script-Kenntnissen nicht so gut aus. Da ich das jedoch für mehrere Dateien brauche, möchte ich nicht unbedingt ein COBOL-Programm schreiben, wo ich IFS-Einlese, das BOM reinpfrimmle und wieder ausgebe.

[BenderD]

Da ich das jedoch für mehrere Dateien brauche, möchte ich nicht unbedingt ein COBOL-Programm schreiben, wo ich IFS-Einlese, das BOM reinpfrimmle und wieder ausgebe.

... das ist dem Programm doch egal, wie oft es aufgerufen wird, um am Anfang eines Streamfiles ein paar Bits umzuklopfen...

D*B

[Fuerchau]

Erzeuge eine IFS-Datei, die nur das BOM enthält.

Per QSH CMD('cp bomdatei quelle ziel') werden diese dann zusammengeführt.
Alternativ geht auch QSH CMD('cat BOMDatei >Ziel; cat Quelle >>Ziel;')

[AG1965_2]

ok, du wirst eine Datei mit den 3 Bytes x'EFBBBF' brauchen. Ich habe einfach eine leere Datei als "UTF8_BOM" im IFS gespeichert, sicherheitshalber mit

CHGATR OBJ('utf8_bom') ATR(*CCSID) VALUE(1208)

auf die UTF-8-CCSID gesetzt.
Die naheliegende Vermutung, einfach die beiden Dateien zusammen in eine neue zu kopieren:

QSH CMD('cat utf8_bom utf8_text > utf8_test2')

erstellt leider eine gut gemeinte Datei mit CCSID 273, deren Inhalt ich mehr oder weniger lesen kann. Also ein Fehlschlag.

Dann halt auf zweimal:

QSH CMD('cp  utf8_bom utf8_test')
QSH CMD('cat utf8_text > utf8_test')
CHGATR OBJ('utf8_test') ATR(*CCSID) VALUE(1208)

Das Kopieren erstellt zwar eine Datei mit CCSID 819, das scheint aber nicht weiter zu stören, das Endergebnis scheint zu stimmen. Denn meine UTF8_TEXT enthält ein paar UTF-8-Umlaute, die in der fertigen Datei zu lesen sind.

[nico1964]

ok, du wirst eine Datei mit den 3 Bytes x'EFBBBF' brauchen. Ich habe einfach eine leere Datei als "UTF8_BOM" im IFS gespeichert, sicherheitshalber mit

CHGATR OBJ('utf8_bom') ATR(*CCSID) VALUE(1208)

auf die UTF-8-CCSID gesetzt.
Die naheliegende Vermutung, einfach die beiden Dateien zusammen in eine neue zu kopieren:

QSH CMD('cat utf8_bom utf8_text > utf8_test2')

erstellt leider eine gut gemeinte Datei mit CCSID 273, deren Inhalt ich mehr oder weniger lesen kann. Also ein Fehlschlag.

Dann halt auf zweimal:

QSH CMD('cp  utf8_bom utf8_test') 
QSH CMD('cat utf8_text > utf8_test')   
CHGATR OBJ('utf8_test') ATR(*CCSID) VALUE(1208)

Das Kopieren erstellt zwar eine Datei mit CCSID 819, das scheint aber nicht weiter zu stören, das Endergebnis scheint zu stimmen. Denn meine UTF8_TEXT enthält ein paar UTF-8-Umlaute, die in der fertigen Datei zu lesen sind.

Nach dem Erstellen von der nur BOM-Datei mit CCSID 1208 und dem anschliessenden Kopieren in der QSHELL, habe ich eine Kopie der BOM-Datei.

Wenn ich dann meine Datei xxxx.txt mit CCSID mit dem 2. QSHELL Befehl dranhänge, habe ich eine UTF-8 ohne BOM.

Was mich des weiteren ein wenig stutzig hierbei macht ist der Umstand, das meinen Datei xxxx.txt eine Größe von 3696 KB hat und die Datei inclusive dem nicht vorhandenen BOM nur 3688.

Ich glaub ich steh am schlauch.
Andreas

[Fuerchau]

Für das Anhängen benötigst du 2 ">":

'cat utf8_text >> utf8_test'