COBOL Каким образом можно получить код символа?

@sky_diver89 · Регистрация: 04.11.2014

Author24 — интернет-сервис помощи студентам

Kukstyler, здравствуйте, каким образом в cobol можно получить код символа? Например, строка содержит "a", и необходимо узнать код символа 'a' из таблицы ascii. Спасибо.

@Kukstyler · 30.06.2016, 10:21

sky_diver89, создавайте отдельные темы для разных вопросов, что бы потом и Вам, и другим интересующимся было легко найти нужные вопросы и ответы.

Касаемо кода, можно получить цифру от 1 до 255, я так понимаю, что Вам именно это нужно?
В данном случае надо использовать REDEFINES:

Код

       WORKING-STORAGE SECTION.
       01  WS-BIN             PIC S9(4) COMP. *> 2 BYTES
       01  FILLER REDEFINES WS-BIN.
            05  FILLER         PIC X.
            05  WS-ASCII       PIC X. 

                                  
       PROCEDURE DIVISION.
           
           MOVE "A" TO WS-ASCII

           DISPLAY WS-BIN

@sky_diver89 1 / 1 / 1 Регистрация: 04.11.2014 Сообщений: 97
		1
	COBOL Каким образом можно получить код символа? 30.06.2016, 07:22. Показов 1865. Ответов 1 Метки нет (Все метки) Kukstyler, здравствуйте, каким образом в cobol можно получить код символа? Например, строка содержит "a", и необходимо узнать код символа 'a' из таблицы ascii. Спасибо. 0

@Kukstyler 1246 / 858 / 265 Регистрация: 02.04.2009 Сообщений: 3,255
	30.06.2016, 10:21	2
	sky_diver89, создавайте отдельные темы для разных вопросов, что бы потом и Вам, и другим интересующимся было легко найти нужные вопросы и ответы. Касаемо кода, можно получить цифру от 1 до 255, я так понимаю, что Вам именно это нужно? В данном случае надо использовать REDEFINES: Код WORKING-STORAGE SECTION. 01 WS-BIN PIC S9(4) COMP. *> 2 BYTES 01 FILLER REDEFINES WS-BIN. 05 FILLER PIC X. 05 WS-ASCII PIC X. PROCEDURE DIVISION. MOVE "A" TO WS-ASCII DISPLAY WS-BIN 0