Länge einer DTAARA ermitteln

[Fuerchau]

Ich würde da eher das binäre Halbierungsverfahren anwenden. Da eine DTAARA immer noch nur 2000 Bytes lang sein kann, kommt man mit max. 11 Zugriffen hin (2^11=2048).
Bei einer DTAARA mit einer Länge > 11 Zeichen bist du dann sehr viel schneller als über eine sequentielle Schleife.

[kuempi von stein]

Grundsätzlich stimme ich dem zu.
Nur wie programmiert man das halbwegs vernünftig im CL?
Ne Schleife braucht mit DECLARE na sagen wir mal 7 Zeilen oder irgendwie sowas in der Richtung.
Bei ner Binärsuche muss ich doch immer die maxlen und die validlen mitziehen und je nachdem halbieren, zuzählen, entscheiden usw.
Gibts da ne knackige Formel für - umgesetzt in ein paar kurze Statements?

kuempi

Nachtrag:
ok habs mal gerade durchgespielt.
Nen 10-Zeiler oder so bei Binärsuche.... toll was alles so geht.

k.

[wwg]

Der Thread ist zwar schon ein Jahr alt, aber trotzdem:

würde mich wundern, wenns dafür nich nen API gibt.

Das geht nur per MI:
RSLVSP: Get Systempointer from Objekt
SETSPPFP: Get Spacepointer from Systempointer

Das API QWCRDTAA liefert nicht nur den Inhalt, sondern auch Type und Länge von Datenbereichen zurück.
Ist allerdings direkt aus CL nicht nutzbar; da muß man schon ein Kurzprogramm zum Aufruf drumsetzen.

Gruß,
Werner.

[Fuerchau]

Dieses API ist identisch zum RTVDTAARA !
Es dient dazu, eben aus HLL's auch auf DTAARA's zuzugreifen, da aus diesen CMD's mit Rückgabeparametern nicht aufrufbar sind.

Im CLP bleibt es beim RTVDTAARA.

Allerdings kann man durch Nutzung des API's auf MONMSG verzichten und die Meldungen im Joblog vermeiden.

API's sind im Übrigen aus CLP genausogut oder schlecht aufrufbar wie in HLL's (RPG/COBOL/usw.).

[wwg]

Dieses API ist identisch zum RTVDTAARA !

Nein.
RTVDTAARA liefert mir den Wert der DTAARA, mindestens die Art muß ich kennen.

QWCRDTAA liefert mir eben auch Art, Länge und ggfs. Anzahl Dezimalstellen:
Retrieve Data Area (QWCRDTAA) API

Grüße,
Werner.

[Fuerchau]

Stimmt

Allerdings macht RTVDTAARA genau das Selbe !
Bei Dezimalfeldern habe ich sogar noch den Vorteil, wenn die Empfängervariable größer als die DTAARA ist, dass der Wert ausgerichtet wird.
Bei Zeichenbereichen kann ich immer mit der Länge 2000 arbeiten.

Nur beim CHGDTAARA benötige ich die genaue Länge, die mir allerdings obiges API liefern kann.