000010*------------------------------------------------
000011* THIS IS THE APPLICATION STRUCTURE FOR MAP EDMAP3.
000012* COPY INTO YOUR COBOL-PROGRAM:
000013*     COPY EDMAP3X.
000020*------------------------------------------------
000100 01  EDMAP3XI.
000200     05              PIC  X(12).
000300     05  PAGENOL     PIC S9(04) BINARY.
000400     05  PAGENOF     PIC  X(01).
000410     05  PAGENOI     PIC  X(02).
000510     05  PAGENMAXL   PIC S9(04) BINARY.
000520     05  PAGENMAXF   PIC  X(01).
000530     05  PAGENMAXI   PIC  X(02).
000600     05 INROW      OCCURS  9.
000700        10  EMPNOL   PIC S9(04) BINARY.
000800        10  EMPNOF   PIC  X(01).
000900        10  EMPNOI   PIC  X(06).
001000        10           PIC S9(04) BINARY.
001100        10           PIC  X(01).
001200        10           PIC  X(08).
001300        10           PIC S9(04) BINARY.
001400        10           PIC  X(01).
001500        10           PIC  X(20).
001600        10           PIC S9(04) BINARY.
001700        10           PIC  X(01).
001800        10           PIC  X(20).
001900        10           PIC S9(04) BINARY.
002000        10           PIC  X(01).
002100        10           PIC  X(10).
002200 01  EDMAP3XO  REDEFINES EDMAP3XI.
002300     05          PIC X(12).
002400     05          PIC X(3).
002500     05 PAGENOO  PIC X(2).
002510     05          PIC X(3).
002520     05 PAGEMAXO PIC 9(2).
002600*-------------------------------------------------
002700* THIS IS A TABLE OF 9 ROWS
002800*-------------------------------------------------
002900     05 OUTROWS  OCCURS 9.
003000        10           PIC X(03).
003100        10  EMPNOO   PIC X(06).
003200        10           PIC X(03).
003300        10  SSNOO    PIC X(08).
003400        10           PIC X(03).
003500        10  FNAMEO   PIC X(20).
003600        10           PIC X(03).
003700        10  LNAMEO   PIC X(20).
003800        10           PIC X(03).
003900        10  DPTO     PIC X(10).
003901*-------------------------------------------------
003902* THIS IS A MESSAGE ROW
003903*-------------------------------------------------
003910     05              PIC X(03).
004000     05 MSGO         PIC X(70).