この例では、COBOL プログラムは LINKAGE SECTION 内でレコード域を定義しています。この手法は、WORKING-STORAGE SECTION の外側で構造を定義する多く の COBOL CICS プログラムで使用されています。
移行時には、以下のステップを実行してください。
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.