Programspråket COBOL ( Common Business Oriented Language ) används för databearbetning , analys och rapportering av finansiella och affärsmässiga program . Den innehåller en mängd funktioner som hjälper programmerare dokument formaterar text för skärmen eller skriva ut presentationer . De motiverar klausuler i COBOL program kan du motivera en textsträng inom en karaktär fält med lämplig inledande eller avslutande blanksteg . Du måste definiera "Request - VÄNSTER " programmet klausul för att justera texten åt vänster i COBOL . Instruktioner
1
Type " Redigera " på z/OS360 stordatorsystem management console och tryck på " Enter " -tangenten för att redigera din COBOL -program .
2
Lägg till följande kod till " DATA DIVISION " i ditt program : . .
WORKING - STORAGE aVSNITT
01 Z - PTR - 1 pic 9 ( 3 ) värdet 0
01 Z - PTR - 2 pic 9 ( 3 ) värdet 0 .
01 Z - MAX - 1 pic 9 ( 3 ) värdet 0 .
01 Z - MAX - 2 pic 9 ( 3 ) värdet 0 .
01 FIRST-BYTE pic 9 ( 3 ) värdet 0 .
01 FINAL-BYTE pic 9 ( 3 ) värdet 0 .
01 LENGTH-OF- STRING pic 9 ( 3 ) värdet 0 .
LINKAGE AVSNITT .
COPY PASSJUST .
GÅNG DIVISION använder JUST - PASS - området.
utföra INITIALIZE -Fields
utför tills Z - PTR - 1 > Z - MAX - 1
om JUST - KÄLLA ( Z - PTR - 1 : 1 ) inte = SPACE
om FÖRSTA bYTE = 0
lägga Z - PTR - 1 till NOLL ge första - bYTE
slutet om
lägga Z - PTR - 1 till NOLL ge FINAL - bYTE
slutet om
tillsätt 1 till Z - PTR - 1
end - utföra
beräkna längd på STRING = FINAL - bYTE - FÖRSTA bYTE + 1
GoBack .
BEGÄRAN - VÄNSTER .
tillsätt 1 till NOLL ge Z - PTR - 2 flytta
JUST - KÄLLA ( FÖRSTA bYTE : längd på STRING ) katalog
till JUST - TARGET ( Z - PTR - 2 : längd på STRING ) katalog
flytta ZERO att JUST - RESPOND
exit .
3
Type " Spara " på konsolen och tryck på " Enter " -knappen för att justera text dokument till vänster i din COBOL -program .
