Indhold
Programmeringssprog COBOL (Common Business Oriented Language) bruges til databehandling, analyse og rapportering i forretnings- og finansielle software applikationer. Den indeholder en lang række funktioner, der hjælper programmører med at formatere tekstdokumenter, der vises på skærmen eller udskrives. Justeringsklausuler i COBOL-programmer giver dig mulighed for at justere en tekststreng i et tegnfelt med det relevante tegnrum til venstre eller højre. Det er nødvendigt at definere programklausulen "REQUEST-LEFT" for at justere teksten til venstre i COBOL.
retninger
-
Skriv "Rediger" i z / OS360 mainframe management terminal og tryk på "Enter" tasten for at redigere dit COBOL program.
-
Tilføj følgende kode i afsnittet "DATA DIVISION" i dit program:
ARBEJDSBEHOLDSDELING. 01 Z-PTR-1 pic 9 (3) værdi 0. 01 Z-PTR-2 pic 9 (3) værdi 0. 01 Z-MAX-1 pic 9 (3) værdi 0. 01 FIRST-BYTE billede 9 (3) værdi 0. 01 FINAL-BYTE billede 9 (3) værdi 0. 01 LENGDE-OF-STRING billede 9 (3) værdi 0.
LINKAGE SEKTION. KOPIER PASSJUST.
PROCEDURE DIVISION ved hjælp af JUST-PASS-AREA. udfør INITIALIZE-FIELDS
Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FØRSTE BYTE tilføj Z-PTR-1 til ZERO, der giver FINAL-BYTE-slutningen, hvis tilføj til Z-PTR-1 end-performance
beregne LENGTH-OF-STRING = FINAL-BYTE - FIRST-BYTE + 1
GoBack.
ANMODNING-venstre. tilføj ZERO til Z-PTR-2 flytte NUL til JUST-RESPOND exit til Z-PTR-2 flytte NUL til JUST-RESPOND exit.
-
Skriv "Gem" i terminalen og tryk på "Enter" -tasten for at justere tekstdokumentet i dit COBOL-program til venstre.