IDENTIFICATION DIVISION.
PROGRAM-ID. .
AUTHOR. .
INSTALLATION. .
DATE-WRITTEN. .
DATE-COMPILED. .
COMMENTAIRE. .
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ASSIGN TO
  [ORGANIZATION IS SEQUENTIALLINE SEQUENTIALRELATIVEINDEXED]   [ACCESS MODE IS SEQUENTIALRANDOMDYNAMIC]
  [RECORD KEY IS ]   [ALTERNATE RECORD KEY IS WITH DUPLICATES].
SELECT ASSIGN TO
  [ORGANIZATION IS SEQUENTIALLINE SEQUENTIALRELATIVEINDEXED]   [ACCESS MODE IS SEQUENTIALRANDOMDYNAMIC]
  [RECORD KEY IS ]   [ALTERNATE RECORD KEY IS WITH DUPLICATES].
SELECT ASSIGN TO
  [ORGANIZATION IS SEQUENTIALLINE SEQUENTIALRELATIVEINDEXED]   [ACCESS MODE IS SEQUENTIALRANDOMDYNAMIC]
  [RECORD KEY IS ]   [ALTERNATE RECORD KEY IS WITH DUPLICATES].
COMMENTAIRE. .
DATA DIVISION.
FILE SECTION.
FD   [BLOCK CONTAINS RECORDS]
  [LABEL RECORD IS OMITTEDSTANDARD]   [DATA RECORD ISARE ]
  [REPORT IS ].
01 .
FD   [BLOCK CONTAINS RECORDS]
  [LABEL RECORD IS OMITTEDSTANDARD]   [DATA RECORD ISARE ]
  [REPORT IS ].
01 .
FD   [BLOCK CONTAINS RECORDS]
  [LABEL RECORD IS OMITTEDSTANDARD]   [DATA RECORD ISARE ]
  [REPORT IS ].
01 .
WORKING-STORAGE SECTION.
01 VARIABLES-SERVICES.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQLSTATE PIC X(5).
01 SQLMSG PIC X().
01 SQLCODE PIC S9(5) COMP-5.
EXEC SQL END DECLARE SECTION END-EXEC.
REPORT SECTION.
RD
  [CONTROL IS ]
  [PAGE LINES,   [FIRST DETAIL ,   [LAST DETAIL ].
01 TYPE PAGE HEADING.
01 DETAYE TYPE DETAIL   [LINE PLUS ].
01 TYPE CONTROL FOOTING   [LINE PLUS ]   [NEXT GROUP PLUS ].
COMMENTAIRE. .
PROCEDURE DIVISION.
000-.
STOP RUN.