Hvordan justere tekst til venstre i COBOL

Programmeringsspråket COBOL (felles virksomhet Oriented Language) brukes for databehandling, analyse og rapportering i finans- og forretningsapplikasjoner. Det inkluderer et bredt spekter av funksjoner som hjelper programmerere format tekstdokumenter for skjermen eller skrive ut presentasjoner. De rettferdiggjør klausuler av COBOL programmer lar deg til å rettferdiggjøre en tekststreng i et tegnfelt med riktig ledende eller etterfølgende mellomrom. Du må definere "REQUEST-LEFT" program klausul for å justere tekst til venstre i COBOL.

Bruksanvisning

1 Skriv "Edit" på z / OS360 stormaskin system administrasjonskonsoll og trykk "Enter" -tasten for å redigere COBOL-programmet.

2 Legg til følgende kode i "DATA DIVISION" -delen av programmet:

WORKING-STORAGE SECTION.
01 Z-PTR-1 pic 9(3) value 0.
01 Z-PTR-2 pic 9(3) value 0.
01 Z-MAX-1 pic 9(3) value 0.
01 Z-MAX-2 pic 9(3) value 0.
01 FIRST-BYTE pic 9(3) value 0.
01 FINAL-BYTE pic 9(3) value 0.
01 LENGTH-OF-STRING pic 9(3) value 0.

LINKAGE DEL.
COPY PASSJUST.

PROSEDYRE DIVISION hjelp JUST-PASS-området.
utføre Initial-FELT

utføre inntil Z-PTR-1> Z-MAX-en
Hvis JUST-SOURCE (Z-PTR-1: 1) ikke = SPACE
hvis FIRST-BYTE = 0
legge Z-PTR-en til ZERO gi FØRSTE-BYTE
slutt om
legge Z-PTR-en til ZERO gi FINAL-BYTE
slutt om
legger en til Z-PTR-en
end-utfører

beregne LENGDE-OF-STRING = FINAL-BYTE - FIRST-BYTE + 1

GÅ TILBAKE.

FORESPØRSEL-VENSTRE.
legger en til ZERO gi Z-PTR-2
flytte JUST-SOURCE (FØRSTE-BYTE: LENGDE-OF-STRING)
til JUST-TARGET (Z-PTR-2: LENGDE-OF-STRING)
flytte ZERO til JUST-RESPOND
exit.

3 Skriv "Lagre" på konsollen, og trykk "Enter" tasten for å justere tekstdokument til venstre i COBOL-programmet.