De programmeertaal COBOL ( Common Business Oriented Language ) wordt gebruikt voor data- verwerking, analyse en rapportage van de financiële en zakelijke softwaretoepassingen . Het omvat een breed scala van functies die programmeurs formaat tekstdocumenten hulp voor scherm of print presentaties . De rechtvaardigen clausules van COBOL programma's kunt u een tekenreeks binnen een veld karakter met de juiste voor-of achterkant spaties rechtvaardigen . U moet de " REQUEST - LEFT" programma clausule definiëren om tekst uit te lijnen naar links in COBOL . Instructies
Type 1 " Edit" op het z/OS360 mainframe systeem management console en druk op de " Enter" -toets om uw COBOL programma te bewerken . Kopen van 2 Voeg de volgende code om de " DATA DIVISION " sectie van uw programma : . . WERKEN - OPSLAG aFDELING
01 Z - PTR - 1 pic 9 ( 3 ) waarde 0
01 Z - PTR - 2 pic 9 ( 3 ) waarde 0 .
01 Z - MAX - 1 pic 9 ( 3 ) waarde 0 .
01 Z - MAX - 2 pic 9 ( 3 ) waarde 0 .
01 FIRST-BYTE pic 9 ( 3 ) waarde 0 .
01 FINAL-BYTE pic 9 ( 3 ) waarde 0 .
01 LENGTH-OF- STRING pic 9 ( 3 ) waarde 0 . AANEENSCHAKELING AFDELING
. COPY PASSJUST
. PROCEDURE DIVISION
met JUST - PASS - GEBIED .
voeren INITIALIZE - FIELDS
verrichten totdat Z - PTR - 1 > Z - MAX - 1
als JUST - BRON ( Z- PTR - 1 : 1 ) niet = SPACE
als FIRST - bYTE = 0
add Z - PTR - 1 tot ZERO geven FIRST - bYTE
end - als
add Z - PTR - 1 tot ZERO geven FINAL - bYTE
end - als
voeg 1 tot Z - PTR - 1
end - voeren
berekenen LENGTE - VAN - STRING = FINAL - bYTE - EERSTE - bYTE + 1 GoBack
. REQUEST - LINKS .
voeg 1 tot NUL geven Z - PTR - 2 move
JUST - SOURCE ( EERSTE - bYTE : LENGTE - OF - STRING ) op Twitter naar JUST - TARGET ( Z- PTR - 2 : LENGTE - OF - STRING ) verhuizing
ZERO naar JUST - REAGEREN
exit .
Type 3 " Opslaan" op de console en druk op de " Enter " -toets om tekstdocument uitlijnen naar links in uw COBOL programma.
< br >
|
