SQL Statement in SQLRPGLE

[Pikachu]

Das Problem ist nur, dass ich grad mit SQL in RPG Programmen anfange und nur wenig(eigentlich keine) Zeit zum einarbeiten habe, da der Abgabetermin recht kurzfristig ist.

... und getestet wird später.

[Vigi]

Top, es läuft.
Es ging mir genau darum, die Felder qualifiziert anzusprechen.

1000 Dank ;-)
Super Team hier!

[BenderD]

... und getestet wird später.

... die Bananen Strategie im Software Engineering: die Ware reift beim Kunden

D*B

PS: für COBOL und RPG gibt es noch:
http://publib.boulder.ibm.com/infoce...zajp/rzajp.pdf

[Vigi]

... die Bananen Strategie im Software Engineering: die Ware reift beim Kunden

D*B

-> Das ist gut rofl

Eine Kleinigkeit hat sich noch ergeben.
Wenn man in der DSPF *blank, also nichts eingibt, dann soll alles angezeigt werden.

Beispiel:
Kundenname: *blank

Das SQL gibt jetzt natürlich keinen Treffer, da es keinen Kunden ohne Namen gibt. Wie kann ich aber sämtliche Kunden angezeigt bekommen, wenn der Anwender keinen Kundennamen eingibt.

Habe versucht, dass *blank durch ein "*" zu ersetzten, das funktioniert aber leider nicht. Hat da jmd ne Idee?

[Fuerchau]

Da must du deinen SQL etwas erweitern:

where ...
and (KDName = : Name or : Name = ' ')

[Vigi]

@Fuerchau

Das dachte ich auch, nur das er dann wenn in Feld Name ein *blank drin steht, mir keinen Kunden anzeigt.
Er soll mir aber sämtliche Kunden anzeigen, wenn er Mitarbeiter das Feld frei lässt.
Hatte versucht durch das ersetzten von '' zu '*' mir alle Kunden anzeigen zu lassen, aber auch das funktioniert nicht.

Update:

EXEC SQL Declare Mycursor Cursor For
select * from scw_data/CXLAGPF
where cxfirm =: DDRFIRM
and cxekvk = 'S'
and cxsart = 'S'
and cxmeng <> 0
and cxrest <> 0
and CXLAGO = : DCXLAGO
and CXLAGP = : DCXLAGP
and CXSTAT = : DCXSTAT
and CXNUMM between : DVCXARTN and : DBCXARTN
For Fetch Only;
Exec Sql Open Mycursor;

Dow Sqlcode = Ok;
Exec Sql Fetch Mycursor Into :Mydata;
If Sqlcode = Ok;
Exsr FuellePRTF;
Endif;
Enddo;
close IVKLSTP0;
open IVKLSTP0;

In dem Fall kann DCXLAGO, DCXLAGP, DCXSTAT aus der DSPF leer sein, dann soll es "ignoriert" werden, sprich, es sollen alle angezeigt werden. Egal was in CXLAGO, CXLAGP, CXSTAT steht.

Ich hatte es so versucht, mit dem Ausschnitt vor dem SQL:

if DCXLAGO = '';
DCXLAGO = '*';
endif;
if DCXLAGP = '';
DCXLAGP = '*';
endif;
if DCXSTAT = '';
DCXSTAT = '*';
endif;

das funktioniert nicht.

[Fuerchau]

Ich sagte doch du musst den Select selber anpassen:


and (CXLAGO = : DCXLAGO or : DCXLAGO = ' ')

Dies ist für alle Felder entsprechend zu definieren.
Deine Sternchen kannst du vergessen, da du ja dann gezielt auf Stern prüfst.

[Vigi]

Das ist Genial!

Vielen Dank Fuerchau.