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

istruzione

1 Tipo "Modifica" sulla console di gestione z / OS360 sistema mainframe e premere il tasto "Enter" per modificare il vostro programma COBOL.

2 Aggiungere il seguente codice alla sezione "DATA DIVISION" del programma:

WORKING-STORAGE SECTION.
01 Z-PTR-1 pic 9(3) value 0.
01 Z-PTR-2 pic 9(3) value 0.
01 Z-MAX-1 pic 9(3) value 0.
01 Z-MAX-2 pic 9(3) value 0.
01 FIRST-BYTE pic 9(3) value 0.
01 FINAL-BYTE pic 9(3) value 0.
01 LENGTH-OF-STRING pic 9(3) value 0.

SEZIONE collegamento.
COPIA PASSJUST.

DIVISIONE procedura utilizzando SOLO-PASS-AREA.
eseguire INITIALIZE-Fields

eseguire fino a Z-PTR-1> Z-MAX-1
se JUST-SOURCE (Z-PTR-1: 1) non = SPACE
se PRIMO byte = 0
aggiungi Z-PTR-1 a ZERO dare PRIMO BYTE
finisci se
aggiungi Z-PTR-1 a ZERO dare FINALE-BYTE
finisci se
aggiungere 1 a Z-PTR-1
finali eseguire

calcolare anzianità di STRING = FINALE-BYTE - FIRST-BYTE + 1

TORNA INDIETRO.

RICHIESTA-sinistra.
aggiungere 1 a ZERO dare Z-PTR-2
spostare SOLO-SOURCE (PRIMA-BYTE: anzianità di STRING)
a SOLO-TARGET (Z-PTR-2: anzianità di STRING)
spostare ZERO per JUST-RISPOSTA
Uscita.

3 Tipo "Salva" sulla console e premere il tasto "Enter" per allineare documento di testo a sinistra nel programma COBOL.