Rocket® Enterprise Developer (formerly a product of Micro Focus or formerly a product of Open Text) documentation, created before Rocket Software acquired certain products from OpenText, may include outdated references to "Micro Focus" or "OpenText", both of which are trademarks of OpenText or its affiliates. Rocket Software is not affiliated with Micro Focus or OpenText and has since rebranded these products as Rocket® products. You may also encounter outdated links in this documentation. If you do, please contact Rocket Support (support@rocketsoftware.com) for assistance.
VS COBOL II の例
.
.
WORKING-STORAGE SECTION.
.
.
05 PAGE-LIST-ADDR POINTER.
05 PAGE-DATA-POINTER POINTER.
.
.
LINKAGE SECTION.
.
.
01 PAGE-LIST.
05 PAGE-LIST-ENTRY OCCURS 5 TIMES.
10 PAGE-TERMINAL-TYPE PIC X.
10 PAGE-DSC-ADDRESS PIC XXX.
01 PAGE-DATA-AREA.
05 PAGE-TIOA-PREFIX.
10 FILLER PIC X(8).
10 PAGE-LENGTH PIC 9(4) COMP.
10 FILLER PIC X(2).
05 PAGE-DSC-AREA PIC X(9999).
.
.
PROCEDURE DIVISION.
.
.
EXEC CICS SEND MAP ('MAPNAME')
MAPSET ('MSETNAM')
SET (PAGE-LIST-ADDR)
END-EXEC.
.
.
CALL 'DFHMFSET' USING PAGE-LIST-ENTRY (1)
PAGE-DATA-POINTER.
SET ADDRESS OF PAGE-DATA-AREA TO PAGE-DATA-POINTER.
.
.
EXEC CICS SEND TEXT MAPPED
FROM (PAGE-DSC-AREA)
LENGTH (PAGE-LENGTH)
END-EXEC.
.