Anwendungsgebiet: Prüffunktionen
Die Funktion IS-SDF-P( ) prüft, ob SDF-P im System geladen ist. Wenn es geladen ist, wird als Ergebnis TRUE zurückgegeben. Das Ergebnis FALSE wird in folgenden Fällen zurückgegeben:
SDF-P ist nicht geladen.
SDF-P ist geladen, aber in der Task wird gerade die SDF-P-BASYS-Funktionalität simuliert (Einstellung FUNCTIONALITY=*BASIC im Kommando
MODIFY-PROCEDURE-TEST-OPTIONS, siehe "MODIFY-PROCEDURE-TEST-OPTIONS Protokollierung ändern, Rückwärtssprünge begrenzen ").
Format
IS-SDF-P( ) |
Ergebnistyp
BOOLEAN
Eingabeparameter
Keine
Ergebnis
TRUE
SDF-P ist im System geladen.
FALSE
SDF-P ist nicht im System geladen oder in der Task wird die SDF-P-BASYS-Funktionalität simuliert.
Fehlermeldung
Keine
Beispiel
/A=IS-SDF-P() /SHOW-VARIABLE A A = TRUE
Anwendungsfall: Eine Prozedur soll auch ablauffähig sein, wenn nur die SDF-P-BASYS-Funktionalität verfügbar ist (z.B. können mit SDF-P Prozedurparameter mit dem Kommando READ-VARIABLE eingelesen und weitere Überprüfungen bzw. Korrekturen der Eingabe durchgeführt werden; ohne SDF-P kann der Parameter nur durch Prompting eingegeben werden):
/SET-PROCEDURE-OPTIONS /DECLARE-PARAMETER A(INIT-VALUE=*PROMPT) /... /IF (IS-SDF-P()) / / "LIES DIE VARIABLE MIT HILFE-TEXT UND UEBERPRUEFE DAS ERGEBNIS" / IF (TASK-MODE() == 'DIALOG') / "LIES-ERNEUT:" / READ-VARIABLE A,INPUT=*TERMINAL(PROMPT='BITTE GEBEN SIE DATEINAME EIN') / IF (NOT CHECK-DATA-TYPE (A,*FULL-FILENAME)) / WRITE-TEXT 'FEHLER: &A IST KEIN FILENAME' / GOTO LIES-ERNEUT / END-IF / ELSE / IF (NOT CHECK-DATA-TYPE (A,*FULL-FILENAME)) / WRITE-TEXT 'FEHLER: &A IST KEIN FILENAME' / EXIT-PROCEDURE / END-IF / END-IF / "HIER KOENNEN NOCH ANDERE UEBERPRUEFUNGEN GEMACHT WERDEN" / .... /ELSE / "GRUNDLEGENDE VERARBEITUNGEN MIT SDF-P-BASYS" / WRITE-TEXT 'BITTE GEBEN SIE DATEINAME EIN:' / REMARK &A /END-IF / START-LMS //OPEN &A,MODE=*READ //..