-
CHGDTAARA
Hallo Forum.
Da der Befehl CHGDTAARA einen vorhandenen Wert nicht
anzeigt, hab ich folgendes CL erstellt:
RTVDTAARA DTAARA(&LIBR/&DTAARA *ALL) RTNVAR(&RTNVAR)
CHGDTAARA ??DTAARA(&LIBR/&DTAARA *ALL) ??VALUE(&RTNVAR)
Das funktioniert bei Datenbereichen vom Typ *DEC und bei *CHAR bedingt.
Sobald ich *char mit rein numerischen Werten
ausgebe, müssen diese zwischen Hochkomma stehen.
'1234567'
Wie kann ich nach dem RTVDTAARA den Rückgabewert mit Hochkomma verketten bzw. wie definiere ich 1-fach Hochkomma im CLP?
CHGVAR VAR(&RTNVAR) VALUE('HK' *TCAT &RTNVARA *TCAT + 'HK')
Gruß
Joe
-
sollte eigentlich mit
CHGVAR VAR(&RTNVAR) VALUE('''' *TCAT 'hallo' *TCAT '''')
gehen
gruß
ronald
-
Hello,
da gibt es viele Wege....
Nur ein Beispiel:
PGM
DCL VAR(&ZAHLSTRING) TYPE(*CHAR) LEN(5) +
VALUE('12345')
DCL VAR(&HK) TYPE(*CHAR) LEN(1) VALUE('''')
DCL VAR(&NEU) TYPE(*CHAR) LEN(7)
CHGVAR VAR(&NEU) VALUE(&HK *CAT &ZAHLSTRING *CAT &HK)
SNDPGMMSG MSG(&NEU)
ENDPGM
gruss
k.
ups, da war jemand schneller
:-)
-
Danke für die Anworten.
Das verketten mit &HK ('''') geht schon - aber das OS
fügt beim Anzeigen nochmal Hochkomma hinzu.
CHGDTAARA ??DTAARA(&LIBR/&DTAARA *ALL) ??VALUE(&RTNVAR)
Das ist mein Problem.
Gruß
Joe
-
Bei den Taatools gibt es das nette kleine Tool "EDTDTAARA". Einfach runterladen und installieren.
-
Das sollte nix zur Sache tun.
Drück mal auf enter und schau Dir hinterher die DTAARA an.
Dann müssten eigentlich die vom System eingefügten HK wieder weg sein.
Ansonsten, wenn Du unbedingt ne Editiermöglichkeit dafür brauchst (da läuft es doch hin?), würde ich empfehlen ein zusätzliches RPG zu basteln was nen Input/outputschirm hat, was ähnlich dem CHGDTAARA aussieht.
Alles easy, hatte ich früher auch gebastelt solche Tools...
Und btw. Du solltest auch *LDA und DTAARAs vom Typ *LGL mit in Deinem Programm berücksichtigen, das kommt immer gut.
Mit DTAARAs vom Typ *DDM hab ich noch nicht gearbeitet.
So long
k.
Similar Threads
-
By robertki in forum IBM i Hauptforum
Antworten: 18
Letzter Beitrag: 25-11-06, 08:12
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