READ / READE in free-rpg [Archiv] - [NEWSboard IBMi Forum]

Gimli

10-03-03, 09:14

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

10-03-03, 09:59

eigentlich einfach nur

read format;

gruß ronald

malzusrex

10-03-03, 10:07

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.]

Gimli

10-03-03, 10:07

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

malzusrex

10-03-03, 10:26

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

10-03-03, 10:36

Es hat funktioniert, DANKE !!! :-)

B.Hauser

10-03-03, 12:08

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/iseries/v5r2/ic2924/index.htm

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

Birgitta