-
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
-
Klassische Schreibweise
Zitat von HeiKauf
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
Similar Threads
-
By mk in forum NEWSboard Java
Antworten: 8
Letzter Beitrag: 21-04-11, 21:51
-
By robertki in forum NEWSboard Programmierung
Antworten: 25
Letzter Beitrag: 19-01-07, 08:42
-
By timeless in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 11-01-07, 12:04
-
By Stoeberl in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 10-01-07, 10:58
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks