View Full Version : CL Language EDITC
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
DCL NumChar *char 7
DCL NumVar * Dec(7 0)
CHGVAR NumChar NumVar
Was, so einfach ?
Das ist mir jetzt peinlich ...
Vielen Dank hat super funktioniert
Lg Hannes
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.
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 (https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/cl/chgvar.htm)
S/38 ? CLP38 ? :-)
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.