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