Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 コンパイラーおよびランタイム 移行ガイド


例 1: 連絡域の受け取り

この例では、COBOL プログラムは LINKAGE SECTION 内でレコード域を定義しています。この手法は、WORKING-STORAGE SECTION の外側で構造を定義する多く の COBOL CICS プログラムで使用されています。

移行時には、以下のステップを実行してください。

  1. BLL セルを定義しているアドレス・リスト定義を削除します。Enterprise COBOL で は、BLL セルは LINKAGE SECTION 内で明示的に定義されなくなりました。
  2. CICS コマンドの SET オプションでストレージ域を参照するときは、BLL セル名を指定 するのではなく、ADDRESS OF 特殊レジスターを使用します。
           OS/VS COBOL                            Enterprise COBOL


LINKAGE SECTION.                           LINKAGE SECTION.
01  PARAMETER-LIST.
  05  PARM-FILLER      PIC S9(8) COMP.
  05  PARM-AREA1-PTR   PIC S9(8) COMP.
  05  PARM-AREA2-PTR   PIC S9(8) COMP.
01  AREA1.                                01  AREA1.
   05  AREA1-DATA        PIC X(100).             05  AREA1-DATA    PIC X(100).
01  AREA2.                                01  AREA2.
   05  AREA2-DATA        PIC X(100).             05  AREA2-DATA    PIC X(100).
          .                                        .
          .                                        .
  PROCEDURE DIVISION.                             PROCEDURE DIVISION.
          .                                        .
          .                                        .
    EXEC CICS READ DATASET("INFILE")              EXEC CICS READ DATASET("INFILE")
       RIDFLD(INFILE-KEY)                             RIDFLD(INFILE-KEY)
       SET(PARM-AREA1-PTR)                        SET(ADDRESS OF AREA1)
       LENGTH(RECORD-LEN)                             LENGTH(RECORD-LEN).
    SERVICE RELOAD PARM-AREA1-PTR.

ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)