リンケージセクションと作業用セクションを同じファイルで使用するには？

Question

私もCOBOLモジュールを記述しようとしていると、このファイル内のいくつかの変数を持っている：入力引数（MY_VAR）については

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. 

を私はLINKAGE SECTIONを使用しています。 RESULT変数を宣言するには、WORKING-STORAGE SECTIONステートメントを使用する方法がわかりません。

どうすればいいですか？

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

PCのメインフレームでCobolプログラムを使用していますか？ PC上の場合 - どのCobolプログラムを使用していますか？ リンケージセクションを使用している場合、最初の2バイトは変数の長さを指定します。 また、INPUTが何らかの種類のCobolコマンド（メインフレームコンピュータでは認識されない）でない限り、INPUT変数の定義は表示されません。

（メインフレーム上の）正しい構文は次のとおりです。

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.