RPG Syntax IF

[tomikra]

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

[Robi]

Im prinzip genau so, nur ...

if auswahl <> 'Y' or auswahl <> 'N'
eval
endif

logikfehler : nicht 'Y' oder nicht 'N' ist immer erfüllt !!

Robi

[JonnyRico]

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

[Fuerchau]

Die verkürzte Form des IF's gibts nur bei COBOLd

[HeiKauf]

Es gibt auch die "alte" Schreibweise:


AUSWAHL IFNE 'J'
AUSWAHL ORNE 'N'

EVAL .........

ENDIF

[B.Hauser]

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

[rolf]

Ausserdem heisst es bestimmt AND und nicht OR falls auf Ungleichheit geprüft wird.
Also:
If Auswahl <> 'J'
AND Auswahl <> 'N'
dann Fehler

[Rincewind]

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