Programmeringsspråket COBOL (Common Forretninger Oriented Language) brukes for databehandling, analyse og rapportering i finans og business programmer. Det inkluderer et bredt spekter av funksjoner som hjelper programmerere format tekstdokumenter for skjermen eller print presentasjoner . De rettferdiggjør klausuler av COBOL- programmer lar deg rettferdiggjøre en tekststreng innenfor en karakter felt med den aktuelle innledende eller etterfølgende mellomrom . Du må definere " REQUEST - LEFT" program klausul for å justere teksten til venstre i COBOL . Instruksjoner
en

Type " Edit " på z/OS360 mainframe system management konsoll og trykk på "Enter "-tasten for å redigere COBOL -programmet .
2

Legg til følgende koden til "DATA DIVISJON "-delen av programmet : . .

WORKING - seksjonen

01 Z - PTR - en pic 9 ( 3 ) verdien 0

01 Z - PTR - 2 pic 9 ( 3 ) verdien 0 .

01 Z - MAX - en pic 9 ( 3 ) verdien 0 .

01 Z - MAX - 2 pic 9 ( 3 ) verdien 0 .

01 FIRST-BYTE pic 9 ( 3 ) verdien 0 .

01 FINAL-BYTE pic 9 ( 3 ) verdien 0 .

01 LENGTH-OF- STRING pic 9 ( 3 ) verdien 0 .

LINKAGE DEL .

KOPI PASSJUST .

PROSEDYRE DIVISJON hjelp JUST- PASS - OMRÅDET .

utføre initialisere - 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 FIRST - BYTE

end - hvis

legge Z - PTR - en til ZERO gi FINAL - BYTE

end - hvis

legge en til Z - PTR - 1

end -utfører

beregne LENGDE -OF - STRING = FINAL - BYTE - FØRSTE - BYTE + 1

goback .

REQUEST - VENSTRE .

legge 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- SVARE
< p > exit.
3

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