Садржај
Програмски језик ЦОБОЛ (Цоммон Бусинесс Ориентед Лангуаге) користи се за обраду података, анализу и извјештавање у пословним и финансијским софтверским апликацијама. Укључује широк спектар функција које помажу програмерима да формирају текстуалне документе који ће бити приказани на екрану или одштампани. Клаузуле за поравнање у ЦОБОЛ програмима омогућују вам да поравнате текстуални низ унутар поља знакова с одговарајућим размаком знакова лијево или десно. Потребно је дефинисати клаузулу "РЕКУЕСТ-ЛЕФТ", да би се текст поравњивао улево у ЦОБОЛ-у.
Упутства
-
Откуцајте "Едит" у з / ОС360 управљачком терминалу и притисните тастер "Ентер" да бисте уредили ЦОБОЛ програм.
-
Додајте следећу шифру у одељак "ДАТА ДИВИСИОН" програма:
СЕКЦИЈА РАДНОГ СКЛАДИШТА. 01 З-ПТР-1 слика 9 (3) вредност 0. 01 З-ПТР-2 слика 9 (3) вредност 0. 01 З-МАКС-1 слика 9 (3) вредност 0. 01 ФИРСТ-БИТЕ слика 9 (3) вредност 0. 01 ФИНАЛ-БИТЕ слика 9 (3) вредност 0. 01 ЛЕНГТХ-ОФ-СТРИНГ пиц 9 (3) вредност 0.
ЛИНКАГЕ СЕЦТИОН. ЦОПИ ПАССЈУСТ.
ПОДЕЛА ПОСТУПКА помоћу ЈУСТ-ПАСС-АРЕА. изведите ИНИТИАЛИЗЕ-ФИЕЛДС
З-ПТР-1> З-ПТР-1> З-ПТР-1> З-ПТР-1 ЗУСТМЕНТ-ФИРСТ-БИТЕ додајте З-ПТР-1 у ЗЕРО дајући ФИНАЛ-БИТЕ крај-ако додате на З-ПТР-1 крајње извођење
цомпуте ЛЕНГТХ-ОФ-СТРИНГ = ФИНАЛ-БИТЕ - ФИРСТ-БИТЕ + 1
ГОБАЦК.
РЕКУЕСТ-ЛЕФТ. додајте ЗЕРО на З-ПТР-2 помакните ЗЕРО на ЈУСТ-РЕСПОНД излаз на З-ПТР-2 помакните ЗЕРО на ЈУСТ-РЕСПОНД излаз.
-
Укуцајте "Саве" у терминал и притисните тастер "Ентер" да бисте поравнали текст документа у ЦОБОЛ програму са леве стране.