CL Language EDITC

**boonkelz** · 20-09-17, 07:47

Liebes Forum,
Bitte um Hilfe:
Wie kann ich im CL folgendes realisieren ?
Ich habe ein numerisches Feld Num7 mit Wert "1234"
und ich möchte das in ein Alphafeld stellen, dass dann so aussehen soll "0001234"
in RPG: alph7 = %editc(num7:'X')

Wie mache ich das in CL ?

Vielen Dank
Hannes

**Fuerchau** · 20-09-17, 07:55

DCL NumChar *char 7
DCL NumVar * Dec(7 0)

CHGVAR NumChar NumVar

**boonkelz** · 20-09-17, 09:35

Was, so einfach ?
Das ist mir jetzt peinlich ...
Vielen Dank hat super funktioniert
Lg Hannes

**Fuerchau** · 20-09-17, 10:33

Nun, das gilt mindestens seit V2R1 (ca. 1990). Was vorher war kann ich nicht beurteilen, da war ich noch Nixdorfer.
Allerdings gehen Vorzeichen verloren, aber das kann man ja separat abfragen und dann per *CAT ergänzen.

**Pikachu** · 20-09-17, 11:21

Negative Vorzeichen kommen mit!

Aber wenn das Zielfeld zu kurz für den neuen Wert ist,
gibts einen Fehler (den man mit MONMSG abfangen kann).

Change Variable (CHGVAR) > Coding Decimal Values for Character Variables

S/38 ? CLP38 ? :-)

Zitat von Fuerchau

Nun, das gilt mindestens seit V2R1 (ca. 1990). Was vorher war kann ich nicht beurteilen, da war ich noch Nixdorfer.
Allerdings gehen Vorzeichen verloren, aber das kann man ja separat abfragen und dann per *CAT ergänzen.

Thema: CL Language EDITC

Thread Tools

Bewerten Sie diesen Thema

Display