Πώς να Στοίχιση κειμένου στην Αριστερά COBOL

Η γλώσσα προγραμματισμού COBOL ( Κοινή Business Oriented Language) χρησιμοποιείται για την επεξεργασία των δεδομένων , την ανάλυση και την υποβολή εκθέσεων στην οικονομική και επιχειρηματική εφαρμογές λογισμικού . Περιλαμβάνει ένα ευρύ φάσμα λειτουργιών που βοηθούν τους προγραμματιστές μορφότυπο κειμένου στην οθόνη για παρουσιάσεις ή εκτύπωσης . Οι δικαιολογούν ρήτρες των προγραμμάτων COBOL σας επιτρέπουν να δικαιολογήσει μια συμβολοσειρά κειμένου σε ένα πεδίο χαρακτήρα με τα κατάλληλα αρχικά ή τελικά χαρακτήρες διαστήματος . Θα πρέπει να ορίσετε τη ρήτρα του προγράμματος « ΑΙΤΗΣΗ - ΑΡΙΣΤΕΡΑ ", προκειμένου να ευθυγραμμιστεί το κείμενο προς τα αριστερά σε COBOL . Οδηγίες
Η 1

Τύπος "Επεξεργασία" στην κονσόλα διαχείρισης z/OS360 σύστημα mainframe και πατήστε το πλήκτρο "Enter" για να επεξεργαστείτε το πρόγραμμα COBOL σας . 2

Προσθέστε την ακόλουθη κώδικα στην ενότητα "DATA DIVISION " του προγράμματός σας : . .

ΕΡΓΑΣΙΑΣ - ΑΠΟΘΗΚΕΥΣΗ ΤΜΗΜΑ

01 Z - PTR - 1 Εικόνα 9 ( 3 ) τιμή 0

01 Z - PTR - 2 pic 9 ( 3 ) τιμή 0

01 Z - MAX - 1 . pic 9 ( 3 ) τιμή 0 .

01 Z - MAX - 2 pic 9 ( 3 ) τιμή 0 .

01 FIRST-BYTE pic 9 ( 3 ) τιμή 0 .

01 FINAL-BYTE pic 9 ( 3 ) τιμή 0 .

01 LENGTH-OF- STRING pic 9 ( 3 ) τιμή 0 .

ΣΥΝΔΕΣΗ ΤΜΗΜΑ .

COPY PASSJUST .

ΔΙΑΔΙΚΑΣΙΑ DIVISION χρησιμοποιώντας ΜΟΝΟ - PASS -AREA .

εκτελέσει INITIALIZE - ΤΟΜΕΙΣ

εκτελέσει μέχρι το Z - PTR - 1 > Z - MAX - 1

αν ΑΠΛΑ - ΠΗΓΗ ( Ζ - PTR - 1 : 1 ) δεν = SPACE

αν ΠΡΩΤΗ - BYTE = 0

προσθέσετε Z - PTR - 1 στο ΜΗΔΕΝ δίνοντας ΠΡΩΤΗ - BYTE

τέλος - αν

προσθέσετε Z - PTR - 1 στο ΜΗΔΕΝ δίνοντας FINAL- BYTE

τέλος - αν

προσθέστε 1 έως Z - PTR - 1

τέλος εκτελέσει

υπολογίζουν ΜΗΚΟΣ - OF- STRING = FINAL- BYTE - ΠΡΩΤΗ - BYTE + 1

goback .

ΑΙΤΗΣΗ - ΑΡΙΣΤΕΡΑ .

προσθέστε 1 στο ΜΗΔΕΝ δίνοντας Ζ - PTR - 2

κινηθούν ΜΟΝΟ - ΠΗΓΗ ( ΠΡΩΤΗ - BYTE : ΜΗΚΟΣ - OF- STRING )

να ΑΠΛΑ - TARGET ( Ζ - PTR - 2 : ΜΗΚΟΣ - OF- STRING )

κινηθεί ZERO να ΑΚΡΙΒΩΣ - ΑΝΤΙΔΡΑΣΗ

έξοδο .
εικόνων 3

Πληκτρολογήστε "Αποθήκευση" στην κονσόλα και πατήστε το πλήκτρο "Enter" για να ευθυγραμμιστεί έγγραφο κειμένου προς τα αριστερά στο πρόγραμμα COBOL σας .
Η

Η