Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 375

Anhang
Beispiel 17-1
Formatsteueranweisungen
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU
IDENTIFICATION DIVISION.
OU
PROGRAM-ID. BSP.
OU
DATA DIVISION.
OU
OU
WORKING-STORAGE SECTION.
OU
01 ALPHA1 PIC 99 VALUE 1.
OU
01 BETA1
OU
01 GAMMA1 PIC 99.
OU
OU
PROCEDURE DIVISION.
OU
OU
ANFANG SECTION.
OU
MULT.
OU
OU
OU
OU
OU
ENDE SECTION.
OU
STOPP.
OU
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
Wirkung:
(1)
(2)
(3)
(4)
U41113-J-Z125-6
TITLE "WORKING-STORAGE SECTION"
PIC 99 VALUE 2.
TITLE "PROCEDURE DIVISION"
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (3) OU
EJECT
MULTIPLY ALPHA1 BY BETA1 GIVING GAMMA1.
MULTIPLY BETA1 BY GAMMA1 GIVING ALPHA1.
MULTIPLY GAMMA1 BY ALPHA1 GIVING BETA1.
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (4) OU
SKIP3
STOP RUN.
In der Kopfzeile der nächsten Seite der Übersetzungseinheitliste steht
„WORKING-STORAGE SECTION"
In der Kopfzeile der nächsten Seite(n) der Übersetzungseinheitliste steht
„PROCEDURE DIVISION".
Der nachfolgende Text (ANFANG SECTION...) beginnt auf der nächsten Seite.
Vor dem nachfolgenden Text (ENDE SECTION) stehen drei Leerzeilen.
Formatsteueranweisungen TITLE, EJECT, SKIP
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (1) OU
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (2) OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
375