Съдържание
Програмният език 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 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.
РАЗДЕЛЕНОСТ НА ПРОЦЕДУРАТА с използване на ПРАВНА ПРОСТРАНСТВО. изпълни 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 - ПЪРВА-BYTE + 1
GOBACK.
ИСКАНЕ-наляво. добавете ZERO към Z-PTR-2 преместете ZERO на изход JUST-RESPOND към Z-PTR-2, преместете ZERO на изход JUST-RESPOND.
-
Напишете "Save" в терминала и натиснете бутона "Enter", за да подравните текстовия документ в програмата си COBOL вляво.