Форум программистов, компьютерный форум, киберфорум
Cobol
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Cobol COBOL файлы - ещё онда сильная сторона Кобол-а https://www.cyberforum.ru/ cobol/ thread71047.html
Говоря о файлах и их типах, COBOL файлы дoстойны уважения, они очень быстрые (естественно когда с ними рабтает Кобол программа). Существует несколько типов файлов в Кобол-е, но используются в...
COBOL + WinAPI Cobol
Если кому интересно, заливаю скомплированный "Hello World" созданный в COBOL-е с вызовом WinAPI...
Компилятор Кобола под Solaris/MacOS Cobol
Мне хочется попрограммировать на Коболе, но у меня Solaris 10 SPARC и Mac OS X/PPC. Есть ли бесплатные компиляторы для этих платформ? Для Solaris 8 я нашёл компилятор Micro Focus, но кажется, он не...
Cobol OCX Extractor - Packer Всем привет. Возможно вопрос чайниковый, я в этом не разбираюсь к сожалению, хотел спросить: Тема такова, я работаю с COBOL компилятором (Fujitsu PowerCOBOL) который создаёт WIN приложения, которые... https://www.cyberforum.ru/ cobol/ thread58019.html
Cobol COBOL Manual https://www.cyberforum.ru/ cobol/ thread55557.html
На русском нигде не встречал, выкладываю на английском, если кому надо/интересно.
Cobol Ищу бесплатный COBOL, способный откомпилировать этот текст
У нас есть COBOL 2.0, но из-за него приходится держать комп под MS DOS Специально чтобы можно было компилировать тексты программ. Которые мы меняем крайне редко. Ну работают они себе и пусть...
Cobol JCL (Job control lenguage)
Это маленький JOB, который в данном случае актуализирует регистр в базе данных SQL-DB2 //SMCIUPTC JOB ,'SMCIUPTC',MSGCLASS=X,REGION=0M, // ...
Cobol Обсуждение COBOL Всем привет. Мало кто знает COBOL на сегодняшний день... По иронии судьбы я работаю именно с ним (на самом деле он ещё более чем жив). Так как подраздела посвященного COBOL-у (естественно) нет,... https://www.cyberforum.ru/ cobol/ thread35836.html
display "I'LL BE BACK"
1200 / 824 / 253
Регистрация: 02.04.2009
Сообщений: 3,074
11.02.2010, 00:41 0

Как работают команды "String", "Unstring", "Pointer" с большими переменными?

11.02.2010, 00:41. Показов 4683. Ответов 3
Метки (Все метки)

Ответ

Цитата Сообщение от Момо Посмотреть сообщение
Привет. Я начинающий программист в Cobol. У меня такой вопрос: мне нужно протестировать как работают команды "String", "Unstring", "Pointer" с большими переменными (от 32К до 64К). Может мне кто-нибудь показать пример, как выглядит в Cobol переменная с 32К и с 64К?
Заранеее спасибо за помощь.
String - это создания одной строки с помощю нескольких переменных или литералов:

WORKING-STORAGE SECTION.

01 PEREMEN-1 PIC X(10) VALUE "0123456789".
01 PEREMEN-2 PIC X(10) VALUE "ABCDEFGHIJ".
01 PEREMEN-3 PIC X(25).

PROCEDURE DIVISION.

STRING PEREMEN-1 PEREMEN-2 "/()=?" DELIMITED BY SIZE INTO PEREMEN-3

Unstring - это наоборот, разбивка строки по переменным.

POINTER-ом никогда в практике не пользовался но могу посмотреть каки что.
А что касается переменных, то если я правильно понял Вам нужно это:

01 PEREMENNAYA-1 PIC X(32000).
01 PEREMENNAYA-2 PIC X(64000).

Правда не знаю, максимальная длинна альфанумерической переменной зависит от компилятора

Кстати в COBOL-е существуют переменные с переменной величиной. На пример:

WORKING-STORAGE SECTION.

01 INDEX PIC 9(2).
01 PEREMEN PIC X(1) OCCURS 32 TO 64 TIMES DEPENDING ON INDEX.

PROCEDURE DIVISION.

MOVE 32 TO INDEX *> переменная PEREMEN будет длинной 32 Bytes
MOVE 46 TO INDEX *> переменная PEREMEN будет длинной 45 Bytes
MOVE 56 TO INDEX *> переменная PEREMEN будет длинной 56 Bytes
MOVE 64 TO INDEX *> переменная PEREMEN будет длинной 64 Bytes

Добавлено через 7 минут
Проверил, компилятор MicroFocus поддерживает длинну строки до 99999999

Вернуться к обсуждению:
Как работают команды "String", "Unstring", "Pointer" с большими переменными?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2010, 00:41

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

"Фотошоп" на нейронной сети, как это запустить?
Добрый день, наткнулся на одну статью в телеграмме о том что появилась свободная в использовании...

[Ada] Создать динамический массив, тип которого опеределяется, как "Запись с динамическим массивом"
Я программирую на языке ada. Передо мной возникла задача создать динамический массива тип которого ...

Превышено максимальное количество присоединённых клиентов (ГИС "ИнГЕО")
Здраствуйте возникла проблема с программой ГИСИНГЕО Превышено максимальное количество допустимых...

Реализация абстрактного типа данных "Конечный автомат" (Standard ML)
Мучаюсь я с языком STANDARD ML :( . Мне было дано такое задание: Реализовать тип данных "Конечный...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.