Programmeringssproget COBOL (Common Business- Oriented Language ) bruges til databehandling , analyse og rapportering i finansielle og forretningsmæssige software applikationer. Det omfatter en lang række funktioner , der hjælper programmører format tekstdokumenter for skærmen eller udskrive præsentationer. De begrunder klausuler i COBOL programmer giver dig mulighed for at retfærdiggøre en tekststreng i et tegnfelt med passende ledende eller afsluttende mellemrum . Du er nødt til at definere " REQUEST -LEFT "-programmet klausul med henblik på at justere teksten til venstre i COBOL . Instruktioner
1

Type " Edit" på z/OS360 mainframe system management konsol , og tryk på "Enter" -tasten for at redigere din COBOL program.
2

Tilføj følgende koden til " DATA DIVISION " i dit program : . .

erhvervsaktive Opbevaringssektion

01 Z- PTR - 1 pic 9 (3) værdien 0

01 Z- PTR - 2 pic 9 (3) værdien 0 .

01 Z -MAX - 1 pic 9 (3) værdien 0 .

01 Z -MAX - 2 pic 9 (3) værdien 0 .

01 FIRST-BYTE pic 9 (3) værdien 0 .

01 FINAL-BYTE pic 9 (3) værdien 0 .

01. LENGTH-OF- STRING pic 9 (3) værdien 0 .

LINKAGE DEL .

COPY PASSJUST .

PROCEDURE DIVISION hjælp JUST- PASS - området.

udføre INITIALIZE -felter

udføre indtil Z- PTR -1 > Z -MAX - 1

hvis JUST- kilde ( Z- PTR - 1: 1 ) ikke = SPACE

hvis FIRST - bYTE = 0

tilføje Z- PTR -1 til nUL giver FIRST - bYTE

ultimo hvis

tilføjer Z- PTR -1 til nUL give FINAL - bYTE

ultimo hvis

tilsættes 1 til Z - PTR - 1

ultimo udføre

beregne anciennitets- STRING = FINAL - bYTE - FIRST - bYTE + 1

goback .

REQUEST -LEFT .

tilsættes 1 til nUL give Z- PTR - 2

flytte JUST- kilde ( FIRST - bYTE : anciennitets- STRING )

til JUST- TARGET ( Z- PTR -2: anciennitets- STRING )

flytte nul til JUST- RESPOND
< p > exit.
3

Type " Gem " på konsollen og tryk på "Enter " tasten for at justere tekst dokument til venstre i dit COBOL program.
< br >