Как использовать раздел LINKAGE SECTION и WORKING-STORAGE SECTION в том же файле?

Question

Я пытаюсь написать модуль COBOL и имеющий некоторые переменные в этом файле тоже:

IDENTIFICATION DIVISION. 
    PROGRAM-ID. UTIL. 

    DATA DIVISION. 
    LINKAGE SECTION. 
    01 MY_VAR PIC X(100). 

    DATA DIVISION. 
    WORKING-STORAGE SECTION. 
    01 RESULT PIC X(200) value SPACES. 

    PROCEDURE DIVISION USING MY_VAR. 
     STRING INPUT DELIMITED BY SPACE 
       ' ' DELIMITED BY SIZE 
       MY_VAR BY SPACE 
     INTO RESULT 
     DISPLAY RESULT 
    EXIT PROGRAM. 

Для входного аргумента (MY_VAR) я использую LINKAGE SECTION. Я не уверен, как использовать оператор WORKING-STORAGE SECTION для объявления переменной RESULT.

Как я могу это сделать?

Answer 1

У вас должно быть 1 Отдел данных. Кроме того, я думаю, что порядок не подходит для Раздела. Я советую посмотреть некоторые документы Cobol перед кодированием.

 IDENTIFICATION DIVISION. 
    PROGRAM-ID. UTIL. 

    DATA DIVISION. 

    WORKING-STORAGE SECTION. 
    01 RESULT PIC X(200) value SPACES. 

    LINKAGE SECTION. 
    01 MY_VAR PIC X(100). 



    PROCEDURE DIVISION USING MY_VAR. 
     STRING INPUT DELIMITED BY SPACE 
       ' ' DELIMITED BY SIZE 
       MY_VAR BY SPACE 
     INTO RESULT 
     DISPLAY RESULT 
    EXIT PROGRAM. 

Answer 2

Вы используете программу Cobol на мейнфрейме ПК? Если на ПК - какую программу Cobol вы используете? Если вы используете раздел привязки, первые 2 байта определяют длину переменной. Кроме того - я не вижу определения переменной INPUT, если INPUT не является некоторой командой Cobol (не распознанной на компьютерах мейнфреймов).

Правильный синтаксис (на ЭВМ) является:

LINKAGE SECTION. 
    01 link-parms. 
     05 LNK-PARM-LENGTH   PIC S9999 COMP. 
     05 MY_VAR PIC X(100). 

    PROCEDURE DIVISION USING MY_VAR. 
     STRING INPUT DELIMITED BY SPACE 
       ' ' DELIMITED BY SIZE 
       MY_VAR BY SPACE 
     INTO RESULT 
     DISPLAY RESULT 
     STOP RUN.