Садржај
ИБМ-ов ЦОБОЛ (Цоммон Бусинесс Ориентед Лангуаге) омогућава корисницима да обрађују различите врсте података у пословним и финансијским софтверским апликацијама. ЦОБОЛ подржава типове података променљиве дужине за употребу у датотекама база података које се чувају на чврстим дисковима; корисник специфицира максималну и минималну дужину записа за описивање датотека диска са записима променљиве дужине. Читање Варијабилне дужине Датотеке података вам омогућава да обрадите информације о бази података без подешавања тачне величине записа у вашем ЦОБОЛ програму.
Упутства
-
Укуцајте "Едит" у з / ОС360 конзоли за централно управљање системом и притисните тастер "Ентер" да бисте уредили свој ЦОБОЛ програм.
-
Додајте следећи код на почетак свог програма:
ИДЕНТИФИЦАТИОН ДИВИСИОН. ПРОГРАМ-ИД. ЦОБВАР. ДИВИЗИЈА ЗА ЖИВОТНУ СРЕДИНУ. ИНПУТ-ОУТПУТ СЕЦТИОН. ФИЛЕ-ЦОНТРОЛ. СЕЛЕЦТ ИФИЛЕ АССИГН ТО "ИФИЛЕ".
ДАТЕ ДИВИСИОН. ФИЛЕ СЕЦТИОН. ФД ИФИЛЕ РЕЦОРД се разликује од 10 до 50 у зависности од ЛЕН-а. 01 ИРЕЦ. 05 ФИЛЛЕР ПИЦ Кс ОСТВАРУЈЕ 10 ДО 50 ВРЕМЕНА У СЛУЧАЈУ ЛЕН-а.
ПРОЦЕДУРЕ ДИВИСИОН. П1. ДИСПЛАИ "ПРИМЈЕР 1 ОСТАЈЕ У СЛУЧАЈУ РЕЦА" ОТВОРИ УЛАЗ ИФИЛЕ ИЗВРШИ ДО ЗАКЉУЧКА = -1 ПРОЧИТАЈ ИФИЛЕ НА КРАЈУ ПОКРЕТАЊЕ -1 ДА НЕ ЗАВРШИ НА ЗАВРШНИЦИ ПРИКАЗ ИРЕЦ ЛЕН ЕНД-РЕАД ЕНД-ПЕРФОРМ
ДИСПЛАИ "ПРИМЕР ФИКСНИ РЕЦ" ОТВОРИ УЛАЗ ИФИЛЕ МОВЕ АЛЛ "Кс" У ИРЕЦ ПРОЧИТАЈ ИФИЛЕ НА КРАЈУ ПОКРЕТАЈ -1 ДО ЛЕН ДИСПЛАИ ИРЕЦ ДИСПЛАИ СПАЦЕ
-
Откуцајте "Саве" на конзоли и притисните тастер "Ентер" да дозволите програму да обради записе променљиве дужине.