READ / READE in free-rpg

[Gimli]

Hallo an alle,

kann mir bitte jemand sagen, wie READ/READE in free-rpg verwendet werden können ?
Sollten diese Befehle gar nicht mehr verwendet werden können, wäre ich für eine Alternative dankbar (ein CHAIN hilft mir bei sequentiller Verarbeitung leider nicht).
(Wir haben V5R2M0 im Einsatz)

Vielen Dank für Eure Hilfe, Marc

[malzusrex]

eigentlich einfach nur

read format;

gruß ronald

[Gimli]

Und wie kann ich im free-rpg positionieren ?
Gibt es SETLL und SETGT noch ?

[malzusrex]

hier nen kleines beispiel

fhspbo if e k disk usropn

/Free

open(e) hspbo;
if not %error;
zaehler = 0;
read hspbo1;
dow not %eof(hspbo);
........ HIER NE VERARBEITUNG .........
read hspbo1;
enddo;
close hspbo;
endif;

*inlr = *on;
/End-Free

gruß ronald



[Dieser Beitrag wurde von malzusrex am 10. März 2003 editiert.]

[malzusrex]

schau in das handout von birgitta http://www.as400-forum.de/ubb/Forum1/HTML/001765.html

sonst einfach mit


setll key format;


der key sollte dann natürlich wie gewonnt def. sein

ronald

[Gimli]

Es hat funktioniert, DANKE !!! :-)

[B.Hauser]

Hallo Marc,

ich würde Dir raten einmal die RPGIV Referenz zur Hand zu nehmen.
Darin ist für jeden OPCode beschrieben, ob und wie er im Free-Format dargestellt wird.

Die Referenz ist zu finden unter: http://as400bks.rochester.ibm.com/is...2924/index.htm

Dann über Programming
RPG
Websphere Developement Studio ILE RPG Reference.

Birgitta