View Full Version : RPG Syntax IF
Hallo Forum,
ich bin in RPG nicht so fit und benötige mal euere Hilfe.
Das Feld Auswahl darf nur Y oder N beinhalten. Ich möchte das Abprüfen innerhalb von RPG. Wie schreibe ich hier am besten die IF Anweisung?
Gibts da soetwas wie:
IF AUSWAHL NE 'N' or NE 'Y'
EVAL
ENDIF
Vielen Dank für Eure Hilfe
Gruß
tomikra
Im prinzip genau so, nur ...
if auswahl <> 'Y' or auswahl <> 'N'
eval
endif
logikfehler : nicht 'Y' oder nicht 'N' ist immer erfüllt !!
Robi
Hi,
jo das gibt es. Sieht dann so z.B. aus.
c dow not %eof(Datei)
c read satz
c if kunde='123' or kunde='345'
c eval name='Test'
c update satz
c endif
c enddo
C SETON LR
Gruß
Sascha
Die verkürzte Form des IF's gibts nur bei COBOLd ;)
Es gibt auch die "alte" Schreibweise:
AUSWAHL IFNE 'J'
AUSWAHL ORNE 'N'
EVAL .........
ENDIF
Es gibt auch die "alte" Schreibweise:
AUSWAHL IFNE 'J'
AUSWAHL ORNE 'N'
EVAL .........
ENDIF
... die nur in der klassischen, spaltenbezogenen Schreibweise unterstützt wird.
Im Free-Format ist die andere Schreibweise erforderlich!
Birgitta
Ausserdem heisst es bestimmt AND und nicht OR falls auf Ungleichheit geprüft wird.
Also:
If Auswahl <> 'J'
AND Auswahl <> 'N'
dann Fehler
Alternativ kann man auch im Bildschirm die gültigen Werte eintragen
VALUES('N' 'Y')
Damit spart man sich die RPG Zeilen ;)
Evtl. kann man dort auch noch Leerzeichen als gültig eintragen, wenn man denn will.
Gruss
Rince