Conţinut
Limba de programare COBOL (Common Business Oriented Language) este utilizată pentru prelucrarea datelor, analiza și raportarea în aplicațiile software de afaceri și financiare. Acesta include o mare varietate de funcții care ajută programatorii să formateze documente text care să fie afișate pe ecran sau imprimate. Clauzele de aliniere din programele COBOL vă permit să aliniați un șir de text într-un câmp de caractere cu spațiul de caractere corespunzător stânga sau dreapta. Este necesar să definiți clauza "REQUEST-LEFT" pentru a alinia textul la stânga în COBOL.
instrucțiuni de ghidare
-
Introduceți "Editați" în terminalul de management al mainframei z / OS360 și apăsați tasta "Enter" pentru a vă edita programul COBOL.
-
Adăugați următorul cod în secțiunea "DIVISION DATA" a programului dvs.:
SECȚIUNEA DE LUCRU-DEPOZITARE. 01 Z-PTR-1 pic 9 (3) valoare 0. 01 Z-PTR-2 pic 9 (3) valoare 0. 01 Z-MAX-1 pic 9 (3) valoare 0. 01 FIRST-BYTE pic 9 (3) valoare 0. 01 FINAL-BYTE pic 9 (3) valoare 0. 01 LENGTH-OF-STRING pic 9 (3) 0.
SECȚIUNEA LEGĂTURILOR. COPY PASSJUST.
DIVIZIUNEA DE PROCEDURĂ cu ajutorul JUST-PASS-AREA. efectuați domenii INITIALIZARE
Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FIRST-BYTE adăugați Z-PTR-1 la ZERO dând sfârșitul final-BYTE-dacă se adaugă la Z-PTR-1 end-perform
calcula LUNGIMEA DE STRING = FINAL-BYTE - PRIMUL BYTE + 1
GoBack.
-CERERE la stânga. adăugați ZERO la Z-PTR-2 muta ZERO la JUST-RESPOND ieșire la Z-PTR-2 muta ZERO la JUST-RESPOND ieșire.
-
Introduceți "Salvați" în terminal și apăsați tasta "Enter" pentru a alinia documentul text din programul COBOL spre stânga.