IBM Mainframe Forum

000100 -- ************************                     
000110 DROP TABLESPACE LDAPR10.PERSON;                 
000111 DROP DATABASE  LDAPR10;                         
000120 COMMIT;                                         
000130 --*************************                     
000200 --CREATE THE LDAP DATABASE                       
000300 --*************************                     
000400 CREATE DATABASE LDAPR10 STOGROUP SYSDEFLT;       
000500 -- ********************************             
000600 --CREATE THE LDAP PERSON TABLESPACE             
000700 --*****************************                 
000800  CREATE TABLESPACE PERSON IN LDAPR10             
000900  USING STOGROUP SYSDEFLT                         
001000  BUFFERPOOL BP0;                                 
001100 -- **************************                   
001200 --CREATE THE PERSON  TABLE                       
001300 --***********************                       
001400 CREATE TABLE IBMUSER.PERSON (                   
001500 ID_PERS             INTEGER   NOT NULL,         
001600 NOM                 VARCHAR(10),                 
001700 ADRESS              VARCHAR(20),                 
001800 PRIMARY KEY(ID_PERS))                           
001900 IN LDAPR10.PERSON;                               
001910 CREATE UNIQUE INDEX UXID_PERS                   
001920 ON PERSON (ID_PERS) ;                           
001930 COMMIT;                                         
001940 INSERT INTO PERSON                             
001950 VALUES  (1111,'SAA','AAAAA');   
002000 COMMIT;                           

--------+---------+---------+---------+---------+---------+---
-- ************************                                   
DROP TABLESPACE LDAPR10.PERSON;                               
---------+---------+---------+---------+---------+---------+---
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0     
---------+---------+---------+---------+---------+---------+---
DROP DATABASE  LDAPR10;                                       
---------+---------+---------+---------+---------+---------+---
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0     
---------+---------+---------+---------+---------+---------+---
COMMIT;                                                       
---------+---------+---------+---------+---------+---------+---
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0     
---------+---------+---------+---------+---------+---------+---
--*************************                                   
--CREATE THE LDAP DATABASE                                     
--*************************                                   
CREATE DATABASE LDAPR10 STOGROUP SYSDEFLT;                     
---------+---------+---------+---------+---------+---------+---
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0     
---------+---------+---------+---------+---------+---------+---
-- ********************************                           
--CREATE THE LDAP PERSON TABLESPACE                           
--*****************************                               
CREATE TABLESPACE PERSON IN LDAPR10                           
USING STOGROUP SYSDEFLT                                       
BUFFERPOOL BP0;                                               

---------+---------+---------+---------+---------+---------+------
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0         
---------+---------+---------+---------+---------+---------+------
-- **************************                                     
--CREATE THE PERSON  TABLE                                       
--***********************                                         
CREATE TABLE IBMUSER.PERSON (                                     
ID_PERS             INTEGER   NOT NULL,                           
NOM                 VARCHAR(10),                                 
ADRESS              VARCHAR(20),                                 
PRIMARY KEY(ID_PERS))                                             
IN LDAPR10.PERSON;                                               
---------+---------+---------+---------+---------+---------+------
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0         
---------+---------+---------+---------+---------+---------+------
CREATE UNIQUE INDEX UXID_PERS                                     
ON PERSON (ID_PERS) ;                                             
---------+---------+---------+---------+---------+---------+------
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0         
---------+---------+---------+---------+---------+---------+------
COMMIT;                                                           
---------+---------+---------+---------+---------+---------+------
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 0         
---------+---------+---------+---------+-------

Abend 0C4000 hex occurred processing command 'DSN     '.

SELECT COUNT(*) FROM PERSON;                                   
---------+---------+---------+---------+---------+---------+---
                                                               
---------+---------+---------+---------+---------+---------+---
          0                                                   
DSNE610I NUMBER OF ROWS DISPLAYED IS 1                         
DSNE616I STATEMENT EXECUTION WAS SUCCESSFUL, SQLCODE IS 100   

000100 //INJB  JOB ACT01,'IBMUSER',CLASS=A,NOTIFY=&SYSUID,REGION=0M 
000200 //ALTER   EXEC PGM=IKJEFT01,DYNAMNBR=30                       
000210 //STEPLIB DD DISP=SHR,DSN=DSN810.SDSNLOAD                     
000300 //SYSTSPRT DD  SYSOUT=*                                       
000310 //SYSPRINT DD SYSOUT=*                                       
000400 //SYSTSIN  DD  *                                             
000500 DSN SYSTEM(DB8G)                                             
000600 RUN PROGRAM(DSNTIAD)  PLAN(DSNTIA81) -                       
000700 PARM('RC0') LIBRARY('DSN810.RUNLIB.LOAD')                     
000701 END                                                           
000702 /*                                                           
000703 //SYSIN    DD  *                                             
000710 INSERT INTO  PERSON                                           
000720 VALUES (1,'KOKOKO','BHHHH');