-
Parameter rechtsbündig im Command
Ich würde gerne eine Eingabe in einem 5-stelligen Character Parameter im Command rechtsbündig setzen, statt linksbündig. Die Eingabe kann auch nur aus 2 Stellen bestehen, die allerdings dann führende Blanks haben muß.
CMD PROMPT('Adresse anlegen')
PARM KWD(KDNR1) TYPE(*CHAR) LEN(5) MIN(1) +
PROMPT('Adressnummer:')
Vielleicht geht es ja auch im CL ? Ich weiß, es gibt Handbücher, die habe ich aber schon durchsucht und nichts passendes gefunden, zumindest nicht unter dem Begriff rechtsbündig.
Ich freue mich, wenn mir jemand helfen könnte. Danke
Jutta
-
Warum definierst du den Parameter nicht als *DEC ?
Dann bekommst du immer einen festen numerischen Wert in der korrekten Ausprägung.
Ansonsten in ILERPG:
d KDNR S 5
d KDNR1 S 5
evalr KDNR = %trim(KDNR1)
-
Tja, das würde ich ja gerne. Aber das Feld muß führende Blanks haben.
Mit ILERPG ist mir da, glaube ich,auch nicht geholfen. Es geht ja um den CL-Command und nicht ums RPG-Programm. Ich habe mich allerdings noch nie mit ILERPG beschäftigt.
Ich dachte noch an CHGVAR, aber da gibt es wohl auch keine Möglichkeit. Einfach sowas wie "Rechtsstellung".
Schade, dann werde ich wohl ein RPG-Programm schreiben müssen.
Danke
Jutta
Zitat von Fuerchau
Warum definierst du den Parameter nicht als *DEC ?
Dann bekommst du immer einen festen numerischen Wert in der korrekten Ausprägung.
Ansonsten in ILERPG:
d KDNR S 5
d KDNR1 S 5
evalr KDNR = %trim(KDNR1)
-
Das ausführende Programm eines Commands kann natürlich auch ein RPG-Programm sein !
Besser ist hier schon die Verwendung von RPGLE. Im weitesten (ausser im Free-Format) ist alles beim alten geblieben.
Mittels CVTRPGSRC kannst du mal ein RPG in RPGLE umsetzen um zu sehen was daraus gemacht wird.
-
Feld-Inhalt rechtsbündig ausrichten
Hallo Jutta,
die folgende kleine RPG-Funktion richtet einen Feldwert rechtsbündig aus. Mit CALLPRC kannst Du sie dann aus Deinem CL aufrufen:
Code:
H NoMain
*************************************
D RightAdj PR 10A
D PPParm1 10A Const Options(*RIGHTADJ)
*************************************
P RightAdj B Export
D RightAdj PI 10A
D PPParm1 10A Options(*RightAdj) const
C Return PPPARM1
P RightAdj E
-
Hallo Jutta !
Probier mal folgendes in deinem CL-Programm:
Code:
DCL VAR(&ADR) TYPE(*CHAR) LEN(5)
IF COND(&ADR *EQ ' ') THEN(GOTO CMDLBL(OK))
LOOP: IF COND(%SST(&ADR 5 1) *EQ ' ') THEN(DO)
CHGVAR VAR(&ADR) VALUE(' ' *CAT &ADR)
GOTO CMDLBL(LOOP)
ENDDO
OK:
Gruß
Jürgen
-
Vielen Dank für all die super Tipps hier. Ich werde alles ausprobieren und mich dann u.U. noch mal melden. Auch an ILERPG werde ich mich ranwagen.
Danke noch mal euch allen.
Jutta
Similar Threads
-
By Asti in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 26-10-06, 09:39
-
By Kirsten Steer in forum Archiv NEWSboard Events
Antworten: 0
Letzter Beitrag: 15-06-06, 07:49
-
By JonnyRico in forum IBM i Hauptforum
Antworten: 11
Letzter Beitrag: 10-05-06, 11:18
-
By mk in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 08-10-05, 14:36
-
By ralfmh in forum Archiv NEWSboard Events
Antworten: 0
Letzter Beitrag: 06-10-04, 22:37
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks