Зміст
Мова програмування COBOL (Common Business Oriented Language) використовується для обробки, аналізу та звітності в бізнес-і фінансових програмних додатках. Вона включає в себе широкий спектр функцій, які допомагають програмістам форматувати текстові документи для відображення на екрані або друкувати. Положення вирівнювання в програмах COBOL дозволяють вирівнювати текстовий рядок у полі символу з відповідним пробілом символів ліворуч або праворуч. Необхідно визначити пропозицію програми "REQUEST-LEFT", щоб вирівняти текст ліворуч у COBOL.
Інструкції
-
Введіть "Edit" у керуючому терміналі z / OS360 і натисніть клавішу "Enter" для редагування програми COBOL.
-
Додайте наступний код в розділ "DATA DIVISION" вашої програми:
СЕКЦІЯ РОБОЧОГО ЗБЕРІГАННЯ. 01 Z-PTR-1 pic 9 (3) значення 0. 01 Z-PTR-2 pic 9 (3) значення 0. 01 Z-MAX-1 рис 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.
РОЗДІЛ ПРОЦЕДУРИ з використанням JUST-PASS-AREA. виконувати INITIALIZE-FIELDS
Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FIRST-BYTE додайте Z-PTR-1 до ZERO, надаючи кінцевий результат FINAL-BYTE, якщо додати до кінця Z-PTR-1
обчислити РІЗНІСТЬ-ВІД СТРИНУ = FINAL-BYTE - FIRST-BYTE + 1
GOBACK.
ЗАПИТ-ЛІВ. додайте ZERO до Z-PTR-2 перемістіть ZERO на вихід JUST-RESPOND на Z-PTR-2 перемістіть ZERO на вихід JUST-RESPOND.
-
Введіть "Зберегти" в терміналі і натисніть клавішу "Enter", щоб вирівняти текстовий документ у програмі COBOL ліворуч.