Ako zarovnať text na ľavej strane v COBOL

programovací jazyk COBOL ( Common Business Oriented Language ) sa používa pre spracovanie dát , analýzu a podávanie správ v oblasti finančných a obchodných softwarových aplikácií . To zahŕňa širokú škálu funkcií , ktoré pomáhajú programátorov formát textových dokumentov pre na obrazovke alebo tlač prezentácie . V odôvodňujú doložky COBOL programy umožňujú ospravedlniť textový reťazec vo vnútri poľa znaku s príslušnými vedúcimi či koncových medzier . Musíte definovať ustanovenia o programe " REQUEST - LEFT " , aby bolo možné zarovnať text doľava v COBOL . Návod dovolená 1

typ " Upraviť " , na riadenie z/OS360 mainframe systém konzoly a stlačte " Enter " upravovať svoje COBOL program .
2

Pridajte nasledujúci kód v časti " DATA DIVISION " svojho programu : ..

SPRACOVANIE SKLADOVANIE ODDIEL

01 Z - PTR - 1 pic 9 ( 3 ) Hodnota 0

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

01 Z - MAX - 1 pic 9 ( 3 ) hodnota 0.

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

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

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

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

LINKAGE ODDIEL .

COPY PASSJUST .

POSTUP DIVISION použitie just - PASS - area .

vykonať inicializáciu - pOLE

vykonávať až do Z - PTR - 1 > Z - MAX - 1

Ak JUST - SOURCE ( Z - PTR - 1 : 1 ) nie = SPACE

ak FIRST - BYTE = 0

pridať Z - PTR - 1 na nulu poskytovanie prvý bajt

end - ak

pridať Z - PTR - 1 na nulu dávať FINAL - BYTE

end - ak

pridať 1 až Z - PTR - 1

koncové vykonávať

výpočtovej DĹŽKA - OF - String = Final - BYTE - FIRST - BYTE + 1

GoBack .

ŽIADOSŤ - LEFT .

pridať 1 až ZERO dávať Z - PTR - 2

pohybovať JUST - SOURCE ( FIRST - BYTE : DĹŽKA - OF - STRING )

na JUST - TARGET ( Z - PTR - 2 : DĹŽKA - OF - STRING )

pohybovať ZERO len zareagovať

exit .
3

zadajte " Uložiť " na ovládacom paneli a stlačte " Enter " pre zarovnanie textu dokumentu na ľavej strane v COBOL programe .

• Predchádzajúca strana: Ako nájsť String Dĺžka 
• Ďalšia strana: Ako previesť KB na MB na GB