COMPRESS

Diese Option bestimmt, wie Vorzeichen und Dezimalzeichen behandelt werden:

Ohne NUMERIC werden Dezimalkommas und Vorzeichen bei numerischen Ursprungswerten unterdrückt, bevor die Werte in das Zielfeld übertragen werden. Zum Beispiel:

COMPRESS -123  1.23 INTO #TARGET WITH DELIMITER '*'
Content of #TARGET is: 123*123

Mit NUMERIC werden Dezimalkommas und Vorzeichen aus numerischen Ursprungswerten ebenfalls mit in das Zielfeld übertragen.

Für Gleitkomma-Ursprungswerte werden Dezimalzeichen und Vorzeichen übertragen, ungeachtet der Tatsache, ob NUMERIC angegeben wurde oder nicht.

COMPRESS NUMERIC -123  1.23 INTO #TARGET WITH DELIMITER '*'
Content of #TARGET is: -123*1.23

COMPRESS NUMERIC 'ABC' -0056.00 -0056.10 -0056.01 INTO #TARGET WITH DELIMITER '*'
Content of #TARGET is: ABC*-56*-56.1*-56.01

COMPRESS NUMERIC FULL 'ABC' -0056.00 -0056.10 -0056.01 INTO #TARGET WITH DELIMITER '*'
Content of #TARGET is: ABC*-0056.00*-0056.10*-0056.01

Ohne FULL werden folgende Zeichen aus den Ursprungsfeldern entfernt, bevor die Werte übertragen werden:

• vorangestellte Nullen vor dem Komma oder Dezimalpunkt für Felder vom Format N, P oder I,

• nachfolgende Nullen nach dem Komma oder Dezimalpunkt für Felder vom Format N, P,

• nachfolgende Leerzeichen für Felder vom Format A

• und führende binäre Nullen für Felder vom Format B

Enthält ein numerisches Ursprungsfeld lauter Nullen, wird eine Null (0) übertragen. Zum Beispiel:

COMPRESS 'ABC '  001 INTO #TARGET WITH DELIMITER '*'
Content of #TARGET is: ABC*1

Mit FULL werden die Werte der Ursprungsfelder in ihrer tatsächlichen Länge - d.h. inklusive vorangestellter Nullen und nachfolgender Leerzeichen - ins Zielfeld übertragen. Mit anderen Worten werden die folgenden Zeichen wie eingegeben angezeigt:

• vorangestellte Nullen vor dem Komma oder Dezimalpunkt für Felder vom Format N, P oder I

• nachfolgende Nullen nach dem Komma oder Dezimalpunkt für Felder vom Format N, P

• nachfolgende Leerzeichen für Felder vom Format A

• und führende binäre Nullen für Felder vom Format B

Beispiel:

COMPRESS FULL 'ABC '  001 INTO #TARGET WITH DELIMITER '*'
Content of #TARGET is: ABC *001

Als operand1 geben Sie die Felder an, deren Inhalt übertragen werden soll.

Bei Benutzung von operand1 ohne explizite Editiermaske:

• wird eine Zeitvariable (Format T) nur mit der Zeitkomponente des Variableninhalts, aber ohne die Datumskomponente übertragen,

• wird eine logische Variable (Format L) mit dem Wert <false> durch ein Leerzeichen und der Wert <true> durch das Zeichen X dargestellt.

Mit der Notation nX können Sie festlegen, dass an dieser Stelle n Leerzeichen eingefügt werden. Das Abstandselement ist eine Leerzeichenkonstante, die immer in das Zielfeld verschoben wird, wobei jedoch keine Leerzeichenverdichtung erfolgt.

Bei Verwendung von LEAVING NO SPACE wird nur die angegebene Anzahl der mit nX definierten Leerzeichen an dieser Stelle eingefügt.

Bei Verwendung von LEAVING SPACE oder WITH DELIMITER wird ein zusätzliches Begrenzungszeichen vor und nach dem diesem Abstandselement eingefügt.

Die maximal zulässige Länge beträgt 40X.

Bei Verwendung von LEAVING NO SPACE, aber nicht FULL, werden die Daten aller Verdichtungselemente lückenlos ohne Trennzeichen aneinandergehängt. Sollte dennoch eine Lücke zwischen zwei Feldern erforderlich sein, kann ein Abstandselement zwischen ihnen eingefügt werden.

Beispiele:

COMPRESS ‘A’ 2X ‘B’ INTO #T WITH DELIMITER ‘,’   
                    -> #T = ‘A,  ,B’
COMPRESS ‘A’ 2X ‘B’ INTO #T LEAVING NO SPACE     
                    -> #T = ‘A  B’
COMPRESS 'Error' 1X #ERR 1X 'came from DB file (' #DBID '/' #FNR ')' INTO #T LEAVING NO SPACE
                    -> #T = ‘Error 1234 came from DB file (10/32)’

Siehe auch Beispiel 5 - COMPRESS-Statement mit Abstandselement.

Als operand2 geben Sie das Feld an, das die Werte aus den Ursprungsfeldern aufnehmen soll.

Wenn das Zielfeld das Format U (Unicode) hat, und wenn es sich um ein Ursprungsfeld mit Format B handelt, muss die Länge des sendenden Binärfeldes gleich sein.

Wenn Sie das COMPRESS-Statement ohne weitere Optionen verwenden oder LEAVING SPACE (gilt auch standardmäßig) angeben, werden die Werte im Zielfeld jeweils durch ein Leerzeichen voneinander getrennt.

Wenn Sie LEAVING NO SPACE angeben, werden die Werte im Zielfeld weder durch ein Leerzeichen noch durch ein anderes Zeichen voneinander getrennt.

Als parameter können Sie die Session-Parameter PM, DF, EM oder EMU angeben:

Zur Unterstützung von Sprachen, deren Schreibrichtung von rechts nach links verläuft, können Sie die Option PM=I angeben, um den Wert von operand1 invers (d.h. von rechts nach links) in operand2 zu übertragen.

Zum Beispiel hätte als Ergebnis der folgenden Statements das Feld #B den Inhalt ZYXABC:

MOVE 'XYZ' TO #A
COMPRESS #A (PM=I) 'ABC' 
INTO #B LEAVING NO SPACE

Nachfolgende Leerzeichen in operand1 werden entfernt, außer wenn FULL angegeben ist, dann wird der Wert Zeichen für Zeichen umgedreht und anschließend in operand2 übertragen.

Wenn operand1 eine Datumsvariable ist, können Sie den Session-Parameter DF als parameter für diese Variable angeben.

Einzelheiten zu Editiermasken siehe Session-Parameter EM in der Parameter-Referenz-Dokumentation.

Der Session-Parameter EM kann nicht angewendet werden bei Gruppenoperanden oder wenn die SUBSTRING-Option benutzt wird.

Einzelheiten zu Editiermasken siehe Session-Parameter EMU in der Parameter-Referenz-Dokumentation.

Der Session-Parameter EMU kann nicht angewendet werden bei Gruppenoperanden oder wenn die SUBSTRING-Option benutzt wird.

Wenn operand1 alphanumerisches (A), Unicode (U) oder binäres Format (B) hat, können Sie die SUBSTRING-Option verwenden, um nur einen Teil des Urspungsfeldes zu übertragen. Hinter dem Feldnamen (operand1) geben Sie zuerst die Startposition (operand3) und dann die Länge (operand4) des zu übertragenden Feldabschnitts ein.

Sie können die SUBSTRING-Option auch in der INTO-Klausel verwenden, um die Urspungswerte in einen bestimmten Teil des Zielfeldes zu übertragen.

Die Verwendung der SUBSTRING-Option in einem COMPRESS-Statement entspricht in beiden Fällen der in einem MOVE-Statement. Einzelheiten zur SUBSTRING-Option finden Sie beim MOVE-Statement.

Möchten Sie, dass die Werte im Zielfeld jeweils durch ein Trennzeichen voneinander getrennt werden, dann verwenden Sie die DELIMITERS-Option.

Wenn Sie WITH DELIMITERS ohne operand7 angeben, werden die Werte durch das (mit der Session-Parameter ID definierte) Input-Delimiter-Zeichen voneinander getrennt.

Wenn Sie WITH DELIMITERS operand7 angeben, werden die Werte durch das mit operand7 angegebene Zeichen voneinander getrennt. operand7 muss ein einzelnes Zeichen sein.

Wenn operand7 eine Variable ist, muss sie Format/Länge (A1) oder (B1) haben.

Wenn das Zielfeld das Format A oder B hat, muss das Format bzw. die Länge des Trennzeichens (A1), (B1) oder (U1) sein.

Wenn das Zielfeld das Format U (Unicode) hat, muss das Format bzw. die Länge des Trennzeichens (A1), (B2) oder (U1) sein.

Ohne ALL werden im Zielfeld Delimiter-Zeichen nur zwischen tatsächlich übertragenen Werten gesetzt. Zum Beispiel:

COMPRESS 'A' ' ' 'C' ' ' INTO #TARGET WITH DELIMITERS '*'
Content of #TARGET is: A*C

Mit ALL wird im Zielfeld auch für jeden (nicht übertragenen) Leerwert ein Delimiter-Zeichen gesetzt. Das heisst, die Anzahl der Delimiter-Zeichen im Zielfeld ist gleich der Anzahl der Urspungsfelder minus 1. Dies kann z.B. sinnvoll sein, wenn der Inhalt des Zielfeldes mit einem SEPARATE-Statement anschließend wieder aufgeteilt werden soll. Zum Beispiel:

COMPRESS 'A' ' ' 'C' ' ' INTO #TARGET WITH ALL DELIMITERS '*'
Content of #TARGET is: A**C*