Объявление внешнего десятичного знака в коболе - PullRequest
Новая
       10

Объявление внешнего десятичного знака в коболе

0 голосов
/ 21 января 2019

Ищу решение по моей проблеме.Значения, которые мне нужно преобразовать, были в буквенно-цифровом формате. 

05 WS-NUM-TX.
05 WS-NUM  PIC P9(04).
05 WS-NUM1 PIC P9(03).
05 WS-NUM2 PIC P9(03).

MOVE '0001 222217' TO WS-NUM-TX.
MOVE WS-NUM-TX(1:4) TO WS-NUM.
MOVE WS-NUM-TX(6:3) TO WS-NUM1.
MOVE WS-NUM-TX(9:3) TO WS-NUM2.

Я сделал COMPUTE WS-NUM = FUNCTION NUMVAL(WS-NUM-TX), чтобы это было числовое.

Теперь проблема в том, что мне нужны эти значения как десятичные для вычисления,Нужна помощь, чтобы преобразовать эти значения в .0001, .222 and .217, однако объявление, которое я сделал для внешнего десятичного знака, отображалось без десятичной точки.Пожалуйста помоги.Спасибо.

Ответы [ 2 ]

0 голосов
/ 21 января 2019

Используйте V в предложении изображения. Это определяет положение запятой. Например: PIC 9(05)V9(03) приведет к 00000,000

Источник: https://www.ibm.com/support/knowledgecenter/en/SS6SG3_4.2.0/com.ibm.entcobol.doc_4.2/PGandLR/ref/rlddesym.htm

0 голосов
/ 21 января 2019

P в предложении PICTURE является ошибкой, равно как и отсутствие предложения PICTURE для WS-NUM-TX.(Начиная с 4-й редакции.)

Возможно, 

05 WS-NUM-TX PIC X(11).
05 WS-NUM  PIC .9(04).
05 WS-NUM1 PIC .9(03).
05 WS-NUM2 PIC .9(03).

MOVE '0001 222217' TO WS-NUM-TX.
COMPUTE WS-NUM = FUNCTION NUMVAL (WS-NUM-TX(1:4)) / 10000.
COMPUTE WS-NUM1 = FUNCTION NUMVAL (WS-NUM-TX(6:3)) / 1000.
COMPUTE WS-NUM2 = FUNCTION NUMVAL (WS-NUM-TX(9:3)) / 1000.

На основе исходного сообщения (редакции 1 и 2) с дополнительным редактированием. 

   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 FILLER.
       05 WS-NUM-TX.
           07 WS-NUM-TX1 PIC 9(4).
           07 FILLER     PIC X.
           07 WS-NUM-TX2 PIC 9(3).
           07 WS-NUM-TX3 PIC 9(3).
       05 WS-NUM  PIC .9(04).
       05 WS-NUM1 PIC .9(03).
       05 WS-NUM2 PIC .9(03).
   PROCEDURE DIVISION.
   BEGIN.
       MOVE '0001 222217' TO WS-NUM-TX.
       DIVIDE WS-NUM-TX1 BY 10000 GIVING WS-NUM.
       DIVIDE WS-NUM-TX2 BY 1000 GIVING WS-NUM1.
       DIVIDE WS-NUM-TX3 BY 1000 GIVING WS-NUM2.
       DISPLAY WS-NUM
       DISPLAY WS-NUM1
       DISPLAY WS-NUM2
       STOP RUN
       .

Вывод: 

.0001
.222
.217
...