Как напечатать имя переменной в Cobol - PullRequest
Новая
       13

Как напечатать имя переменной в Cobol

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

Я пытаюсь передать функции C имена переменных из программы cobol. 

   01 Message.
         03 varA         PIC X(32).
         03 varB         PIC X(32).

Примите во внимание тот факт, что эта функция будет использоваться во многих программах, и структура переменной Message будет отличаться каждый раз, как я могу передать функции C имена переменных? Я уже рассмотрел вопрос о создании другого элемента данных группы, который бы содержал имена переменных, но для меня это не очень хорошее решение.

Я использую Microfocus Server Express v5.1 в AIX.

1 Ответ

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

как я могу передать функции C имена переменных?

Невозможно передать имя переменной напрямую с помощью CALL USING;по крайней мере, ни один из них не был бы лучше, чем элемент данных группы.

То, что я здесь сделал, - это создание JSON-подобного объекта с помощью оператора STRING с оператором REPLACE для передачи имени /пара значений.Я выбрал этот метод, потому что есть много библиотек с открытым исходным кодом, которые можно вызывать из C для декодирования JSON объектов.Он также очень гибок в отношении длины текста и количества передаваемых переменных.

[Ред.Изменен код для размещения всех элементов данных оператора STRING в операторе REPLACE.Изменены некоторые имена для отражения пар "имя / значение".Удален код длины строки во вложенной программе.] 

   program-id. call-c.
   data division.
   working-storage section.
   1 msg.
    2 varA pic x(32) value "Message 1".
    2 varB pic x(32) value "Message 2".
   1 lengths binary.
    2 len-1 pic 9(4).
    2 len-2 pic 9(4).
   replace
       ==name-1== by =="varA"==
           ==value-1== by ==varA(1:len-1)==
       ==name-2== by =="varB"==
           ==value-2== by ==varB(1:len-2)==
       ==newline== by ==x"0a"==
       .
   1 json-string pic x(256).
   procedure division.
   begin.
       compute len-1 = function length (varA)
       call "rtrim-len" using varA len-1

       compute len-2 = function length (varB)
       call "rtrim-len" using varB len-2

       string
           "{" newline
               quote name-1 quote ": "
                 quote value-1 quote "," newline
               quote name-2 quote ": "
                 quote value-2 quote newline
           "}" x"00"
           delimited size into json-string
       call "c_prog" using
           by reference json-string
       stop run
       .

   program-id. rtrim-len.
   data division.
   linkage section.
   1 str pic x(256).
   1 str-len binary pic 9(4).
   procedure division using str str-len.
   begin.
       perform varying str-len from str-len by -1
       until str-len < 1 or str (str-len:1) not = space
           continue
       end-perform
       exit program
       .
   end program rtrim-len.
   end program call-c.

Программа на языке COBOL для замены вызываемой программы C. 

   program-id. "c_prog".
   data division.
   working-storage section.
   1 json-string-count binary pic 9(4).
   1 json-string-pos binary pic 9(4).
   1 json-text-count binary pic 9(4).
   1 json-text pic x(64).
   linkage section.
   1 json-string pic x(256).
   procedure division using json-string.
   begin.
       move 0 to json-string-count
       inspect json-string tallying
           json-string-count for characters before x"00"
       move 1 to json-string-pos
       perform until json-string-pos > json-string-count
           unstring json-string delimited x"0a" or x"00"
               into json-text count json-text-count
               pointer json-string-pos
           display json-text (1:json-text-count)
       end-perform
       exit program
       .
   end program "c_prog".

Вывод: 

{
"varA": "Message 1",
"varB": "Message 2"
}

Если доступна функция TRIM, вычисления длины, элементы данных и вложенная программа не нужны, и оператор REPLACE принимает вид 

   replace
       ==name-1== by =="varA"==
           ==value-1== by ==trim(varA)==
       ==name-2== by =="varB"==
           ==value-2== by ==trim(varB)==
       ==newline== by ==x"0a"==
       .
...