Innhold
Programmeringsspråket COBOL (Common Business Oriented Language) brukes til databehandling, analyse og rapportering i forretnings- og finansprogrammer. Den inneholder et bredt utvalg av funksjoner som hjelper programmerere til å formatere tekstdokumenter som skal vises på skjermen eller skrives ut. Justeringsklausuler i COBOL-programmer lar deg justere en tekststreng innenfor et tegnfelt med riktig tegnfelt til venstre eller høyre. Det er nødvendig å definere programklausulen "REQUEST-LEFT", for å justere teksten til venstre i COBOL.
retninger
-
Skriv "Edit" i z / OS360 mainframe management terminal og trykk "Enter" tasten for å redigere COBOL programmet.
-
Legg til følgende kode i delen DATA DIVISION i programmet:
ARBEIDSBEHOLDSAVSNITT. 01 Z-PTR-1 bilde 9 (3) verdi 0. 01 Z-PTR-2 bilde 9 (3) verdi 0. 01 Z-MAX-1 bilde 9 (3) verdi 0. 01 FIRST BYTE bilde 9 (3) verdi 0. 01 FINAL-BYTE bilde 9 (3) verdi 0. 01 LENGTH OF STRING bilde 9 (3) verdi 0.
LINKAGE SEKSJON. KOPIER PASSJUST.
Prosedyreavdeling ved hjelp av JUST-PASS-AREA. utfør INITIALIZE-FIELDS
Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FØRSTE BYTE legg til Z-PTR-1 til null, og gi slutt-byte-slutten hvis du legger til Z-PTR-1-slutt-utførelsen
beregne LENGTH-OF-STRING = FINAL-BYTE - FIRST-BYTE + 1
Goback.
FORESPØRSEL venstre. Legg til ZERO til Z-PTR-2 flytte NULL til JUST-RESPOND exit til Z-PTR-2 flytte null til JUST-RESPOND exit.
-
Skriv "Lagre" i terminalen og trykk "Enter" -tasten for å justere tekstdokumentet i COBOL-programmet til venstre.