Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 35

... zum ablauffähigen Programm
Beispiel 2-8
Übergabe eines alphanumerischen Literals
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG2
...
>>DEFINE JERRY AS PARAMETER. ——————————————————————————————————————— (1)
...
Zuweisung und Verknüpfung:
/DECLARE-VARIABLE SYSDIR-JERRY (TYPE=*STRING),SCOPE=*TASK ————————————— (2)
/SET-VARIABLE SYSDIR-JERRY='Das ist ein String' ———————————————————————— (3)
Compiler-Aufruf
(1)
(2)
(3)
U41113-J-Z125-6
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: JERRY ist der Name der alphanumerischen Compilervariablen im Quellpro-
gramm. Die zugehörige S-Variable wird vereinbart als SYSDIR-JERRY mit
TYPE=*STRING.
Mit dem SDF-P-Kommando SET-VARIABLE wird der S-Variablen SYSDIR-JERRY
der alphanumerische Wert „Das ist ein String" zugewiesen. Die begrenzenden An-
führungszeichen sind nicht Bestandteil des Literals.
Quelldaten-Eingabe
35