Full Free RPG

[User_]

Vorab ... Vielen vielen Dank ...

Es hat mir schon sehr geholfen ...

Wenn noch jemand ein Beispiel-Programm hätte ... lesen Pf-file und SQL

wäre ich schon super happy ..

die ersten Schritte haben schon mal zum Erfolg geführt ...

ILE kann ich ... mit Build-In und in Free hab ich schon was gemacht ... klappte seh gut

ich hab das Problem mit der F und D Karte ...

Definiton von Files und array und DS

Defonition und Aufruf SQL

Der Rest geht ...

Danke

und nochmals Danke an alle !!!!

[Fuerchau]

F-Karte = DCL-F
D-Karte = DCL-S, DCL-DS, DCL-C

Lesen:
read (Key) File Struktur;
chain recnr File Struktur;
write Format Struktur;

update Format Struktur;
delete (key) File;

SQL:
exec SQL ……;

Steht aber alles in der PDF;-).

[Fuerchau]

Nachtrag:
Die ganze neue Syntax wird von SEU nicht mehr unterstützt und als Fehler abgewiesen.
Hier hilft nur noch der RDi oder das Abschalten des Syntaxcheckers.
RDi hilft aber schon mal bei den meisten Syntaxfehlern.

[User_]

super ... danke ...
das war auc mein Fehler ...
hatte genau dieses Problem ... im SEU ...
probiere es mit RDI ... Danke
hab den errorcheck ausgeschalten
DANKE !!!
vielen DANK!!!

[B.Hauser]

F-Karte = DCL-F
D-Karte = DCL-S, DCL-DS, DCL-C

Lesen:
read (Key) File Struktur;
chain recnr File Struktur;
write Format Struktur;

update Format Struktur;
delete (key) File;

SQL:
exec SQL ……;

Steht aber alles in der PDF;-).

Das ist kein SQL, sondern native I/O.
Für embedded SQL brauchst Du keine F-Bestimmungen/Karten lediglich D-Bestimmungen um die Host-Variablen zu definieren.
1. Cursor Definieren: Exec SQL DECLARE CURSOR ...
2. Cursor Öffnen: Exec SQL OPEN ...
3. Cusror Verarbeiten: Exec SQL FETCH NEXT FROM ...
4. Cursor Schließen: Exec SQL CLOSE ...

Mehr Details solltest Du in den Links finden, die ich Dir bereits gegeben habe.

Birgitta

[Rainer Ross]

Hallo,
hier ein Beispiel
Native I/O https://github.com/RainerRoss/WEBSRV...WEBSRV01.RPGLE

[User_]

Vielen Dank ...

Hat mir sehr geholfen ...

Vielen Dank an alle ...