Сохранить результаты DISPLAY в PIC X (n) - PullRequest
Новая
       28

Сохранить результаты DISPLAY в PIC X (n)

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

Предложение picture определяет формат, который команда DISPLAY будет выводить на консоль.Есть ли способ «вывести» отформатированную строку в переменную?Что-то вроде следующего, но что-то работает.Ниже приведен произвольный пример числа, преобразованного рисунком и сохраненного в виде строки в формате валюты.

IDENTIFICATION DIVISION. 
 PROGRAM-ID.    Demo1234. 
 ENVIRONMENT DIVISION. 
 DATA DIVISION. 
 WORKING-STORAGE SECTION.
 01  Price           Pic     $$$,$$9.99.
 01  Formated-Output Pic     X(10).

 PROCEDURE DIVISION. 

     Move 10.50 to Price.
     Display Price Upon Formated-Output.
     *> Formated-Output would now contain "$10.50    "
     GOBACK.

1 Ответ

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

Добавьте эту строку в WORKING-STORAGE. 

   01  Start-pos       Pic     9(4)    Binary.

Замените оператор Display Price на 

       Move 1 to Start-pos
       Inspect Price tallying
           Start-pos for leading spaces
       Move Price (Start-pos:) to Formated-Output

Результат "$10.50", за которым следуют 4 пробела, находится в Formated-Output.

...