IDENTIFICATION DIVISION.
      *-------------------
       PROGRAM-ID. CRTDROPDB.
 
       ENVIRONMENT DIVISION.
      *-------------------
 
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.
       DATA DIVISION.
      *-------------------
       WORKING-STORAGE SECTION.
       01 VAR PIC X(150).
           EXEC SQL
            INCLUDE SQLCA
           END-EXEC.
       LINKAGE SECTION.
       01 COUD PIC X.
       01 SQLDB PIC X(10).
       01 SCOD  PIC S99999 COMP-3.
       01 ERLEN PIC S99999 COMP-3.
       01 ERTXT PIC X(70).
      *-----------------------------------------------------
       PROCEDURE DIVISION USING COUD SQLDB SCOD ERLEN ERTXT.
      *-----------------------------------------------------
       PGM.
           IF COUD = "D"
           string "DROP DATABASE " SQLDB
           delimited by size into VAR
           ELSE
           string "CREATE DATABASE " SQLDB
           delimited by size into VAR.
           EXEC SQL
            WHENEVER SQLERROR CONTINUE
           END-EXEC.
           EXEC SQL
            EXECUTE IMMEDIATE :VAR
           END-EXEC.
           move SQLCODE to SCOD
           move SQLERRML to ERLEN
           move SQLERRMC to ERTXT.
       FIN.
           stop run.