Il linguaggio di programmazione COBOL ( Common Business Oriented Language ) viene utilizzato per l'elaborazione dei dati , analisi e reporting nelle applicazioni software finanziari e commerciali . Esso comprende una vasta gamma di funzioni che aiutano i programmatori di formato dei documenti di testo per le presentazioni su schermo o da stampare. Le giustificare clausole di programmi COBOL consentono di giustificare una stringa di testo all'interno di un campo di caratteri con l' iniziale o finale caratteri spazio adeguato . È necessario definire la clausola di programma "RICHIESTA -sinistra" , al fine di allineare il testo a sinistra in COBOL . Istruzioni
1

tipo " Modifica" nella console di gestione del sistema z/OS360 mainframe e premere il tasto " Enter" per modificare il programma COBOL .
2

Aggiungi la seguente codice alla sezione "DATA DIVISION " del vostro programma : . .

WORKING-STORAGE SECTION

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

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

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

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

01 FIRST-BYTE pic 9 ( 3) il valore 0 .

01 FINAL-BYTE pic 9 ( 3) il valore 0 .

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

ATTACCO SEZIONE .

COPY PASSJUST .

PROCEDURE DIVISION utilizzando solo -PASS - AREA .

eseguire INIZIALIZZARE - CAMPI

eseguire fino a Z - PTR - 1 > Z - MAX - 1

se just- SOURCE ( Z - PTR - 1 : 1 ) non = SPACE

se PRIMO - bYTE = 0

add Z - PTR - 1 a ZERO dando FIRST - bYTE

finale se

add Z - PTR - 1 a ZERO dando fINALE - bYTE

finale se

aggiungere 1 per Z - PTR - 1

finali eseguire

calcolare anzianità di STRING = FINAL - bYTE - PRIMO - bYTE + 1

GoBack .

RICHIESTA - SINISTRA .

aggiungere 1 a ZERO dando Z - PTR -2

mossa just- SOURCE ( PRIMO - bYTE : anzianità di STRING ) per

a just- TARGET ( Z - PTR - 2 : anzianità di STRING ) per

mossa ZERO per just- RISPONDERE
< p > uscita .
3

tipo "Salva" sulla console e premere il tasto "Enter" per allineare il documento di testo a sinistra nel programma COBOL .
< br >