Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 34

Quelldaten-Eingabe
Beispiel 2-7
Übergabe eines numerischen Wertes
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1
...
>>DEFINE VLADIMIR AS PARAMETER.————————————————————————————————————— (1)
...
Zuweisung und Verknüpfung:
/DECLARE-VARIABLE SYSDIR-VLADIMIR(TYPE=*INTEGER),SCOPE=*TASK ——————————— (2)
/SET-VARIABLE SYSDIR-VLADIMIR=1234—————————————————————————————————————— (3)
Compiler-Aufruf
(1)
(2)
(3)
34
Mit der DEFINE-Direktive wird eine Compilervariable angegeben, deren Inhalt der
COBOL-Compiler in einer S-Variablen erwartet.
Mit dem SDF-P-Kommando DECLARE-VARIABLE wird eine S-Variable verein-
bart: VLADIMIR ist der Name der numerischen Compilervariablen im Quellpro-
gramm. Die zugehörige S-Variable wird vereinbart als SYSDIR-VLADIMIR mit
TYPE=*INTEGER.
Mit dem SDF-P-Kommando SET-VARIABLE wird der S-Variablen
SYSDIR-VLADIMIR der numerische Wert 1234 zugewiesen.
Von der Übersetzungseinheit ...
U41113-J-Z125-6