<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="en-us" xml:lang="en-us">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="security" content="public" />
<meta name="Robots" content="index,follow" />
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
<meta name="DC.Type" content="reference" />
<meta name="DC.Title" content="Example: Program definitions" />
<meta name="DC.subject" content="example, programming, database setup" />
<meta name="keywords" content="example, programming, database setup" />
<meta name="DC.Relation" scheme="URI" content="rbal1progxmp.htm" />
<meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="DC.Format" content="XHTML" />
<meta name="DC.Identifier" content="rbal1excreatecollection" />
<meta name="DC.Language" content="en-us" />
<!-- All rights reserved. Licensed Materials Property of IBM -->
<!-- US Government Users Restricted Rights -->
<!-- Use, duplication or disclosure restricted by -->
<!-- GSA ADP Schedule Contract with IBM Corp. -->
<link rel="stylesheet" type="text/css" href="./ibmdita.css" />
<link rel="stylesheet" type="text/css" href="./ic.css" />
<title>Example: Program definitions</title>
</head>
<body id="rbal1excreatecollection"><a name="rbal1excreatecollection"><!-- --></a>
<img src="./delta.gif" alt="Start of change" /><!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
<h1 class="topictitle1">Example: Program definitions</h1>
<div><div class="section"> <div class="note"><span class="notetitle">Note:</span> By using the code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
</div>
<div class="example"> <div class="fignone" id="rbal1excreatecollection__rbal1crtdbx"><a name="rbal1excreatecollection__rbal1crtdbx"><!-- --></a><span class="figcap">Figure 1. Create a collection and tables</span><pre>/******************************************************************************/
/* Local Database                                                             */
/******************************************************************************/
CREATE COLLECTION DRDA                                                         

CREATE TABLE DRDA/PART_STOCK (PART_NUM   CHAR(5)   NOT NULL,
                              PART_UM    CHAR(2)   NOT NULL,
                              PART_QUANT INTEGER   NOT NULL WITH DEFAULT,                         
                              PART_ROP   INTEGER   NOT NULL,                                      
                              PART_EOQ   INTEGER   NOT NULL,                                      
                              PART_BIN   CHAR(6)   NOT NULL WITH DEFAULT                          
                             )                                                               

CREATE UNIQUE INDEX DRDA/PART_STOCI ON DRDA/PART_STOCK (PART_NUM ASC)                                                 

/******************************************************************************/
/* Remote Database                                                            */
/******************************************************************************/
CREATE COLLECTION DRDA                                                         

CREATE TABLE DRDA/PART_ORDER (ORDER_NUM  SMALLINT  NOT NULL,
                              ORIGIN_LOC CHAR(4)   NOT NULL,
                              ORDER_TYPE CHAR(1)   NOT NULL,
                              ORDER_STAT CHAR(1)   NOT NULL,
                              NUM_ALLOC  SMALLINT  NOT NULL WITH DEFAULT,
                              URG_REASON CHAR(1)   NOT NULL WITH DEFAULT,
                              CREAT_TIME TIMESTAMP NOT NULL,
                              ALLOC_TIME TIMESTAMP,
                              CLOSE_TIME TIMESTAMP,
                              REV_REASON CHAR(1) 
                             ) 

CREATE UNIQUE INDEX DRDA/PART_ORDEI ON DRDA/PART_ORDER (ORDER_NUM ASC)                                                

CREATE TABLE DRDA/PART_ORDLN (ORDER_NUM  SMALLINT  NOT NULL,
                              ORDER_LINE SMALLINT  NOT NULL,
                              PART_NUM   CHAR(5)   NOT NULL,
                              QUANT_REQ  INTEGER   NOT NULL,                                           
                              LINE_STAT  CHAR(1)   NOT NULL                                       
                             )                                                               

CREATE UNIQUE INDEX PART_ORDLI ON DRDA/PART_ORDLN (ORDER_NUM ASC,
                                                   ORDER_LINE ASC)                                               

CREATE TABLE DRDA/SHIPMENTLN (SHIP_NUM   SMALLINT  NOT NULL,
                              SHIP_LINE  SMALLINT  NOT NULL,
                              ORDER_LOC  CHAR(4)   NOT NULL,
                              ORDER_NUM  SMALLINT  NOT NULL,
                              ORDER_LINE SMALLINT  NOT NULL,
                              PART_NUM   CHAR(5)   NOT NULL,
                              QUANT_SHIP INTEGER   NOT NULL,                                           
                              QUANT_RECV INTEGER   NOT NULL WITH DEFAULT                               
                             )                                                               

CREATE UNIQUE INDEX SHIPMENTLI ON DRDA/SHIPMENTLN (SHIP_NUM ASC,                                                          
                                                   SHIP_LINE ASC)         </pre>
</div>
</div>
<div class="example"> <div class="fignone" id="rbal1excreatecollection__rbal1insdb"><a name="rbal1excreatecollection__rbal1insdb"><!-- --></a><span class="figcap">Figure 2. Insert data into the tables</span><pre>/******************************************************************************/
/* Local Database                                                             */
/******************************************************************************/
/******************************************************************************/
/* PART_STOCK                                                                 */
/******************************************************************************/
INSERT INTO DRDA/PART_STOCK VALUES('14020','EA',038,050,100,' ')      

INSERT INTO DRDA/PART_STOCK VALUES('14030','EA',043,050,050,' ')      

INSERT INTO DRDA/PART_STOCK VALUES('14040','EA',030,020,030,' ')      

INSERT INTO DRDA/PART_STOCK VALUES('14050','EA',010,005,015,' ')      

INSERT INTO DRDA/PART_STOCK VALUES('14060','EA',110,045,090,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('14070','EA',130,080,160,' ')     
  
INSERT INTO DRDA/PART_STOCK VALUES('18020','EA',013,025,050,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('18030','EA',015,005,010,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('21010','EA',029,030,050,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('24010','EA',025,020,040,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('24080','EA',054,050,050,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('24090','EA',030,025,050,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('24100','EA',020,015,030,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('24110','EA',052,050,080,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('25010','EA',511,300,600,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('36010','EA',013,005,010,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('36020','EA',110,030,060,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('37010','EA',415,100,200,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('37020','EA',010,020,040,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('37030','EA',154,055,060,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('37040','EA',223,120,120,' ')     

INSERT INTO DRDA/PART_STOCK VALUES('43010','EA',110,020,040,' ')    

INSERT INTO DRDA/PART_STOCK VALUES('43020','EA',067,050,050,' ')    

INSERT INTO DRDA/PART_STOCK VALUES('48010','EA',032,030,060,' ')    
 

/******************************************************************************/</pre>
</div>
<div class="fignone"><span class="figcap">Figure 3. Insert data into the tables (continued)</span><pre>/* Remote Database                                                            */
/******************************************************************************/
/******************************************************************************/
/* PART_ORDER TABLE                                                           */
/******************************************************************************/
INSERT INTO DRDA/PART_ORDER VALUES(1,'DB2B','U','O',0,' ','1991-03-12-17.00.00',
                              NULL,NULL,NULL) 

INSERT INTO DRDA/PART_ORDER VALUES(2,'SQLA','U','O',0,' ','1991-03-12-17.01.00',
                              NULL,NULL,NULL)   

INSERT INTO DRDA/PART_ORDER VALUES(3,'SQLA','U','O',0,' ','1991-03-12-17.02.00',
                              NULL,NULL,NULL)   

INSERT INTO DRDA/PART_ORDER VALUES(4,'SQLA','U','O',0,' ','1991-03-12-17.03.00',
                              NULL,NULL,NULL)   

INSERT INTO DRDA/PART_ORDER VALUES(5,'DB2B','U','O',0,' ','1991-03-12-17.04.00',
                              NULL,NULL,NULL)   

 
/******************************************************************************/
/*  PART_ORDLN TABLE                                                          */
/******************************************************************************/
INSERT INTO DRDA/PART_ORDLN VALUES(1,1,'24110',005,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(1,2,'24100',021,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(1,3,'24090',018,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(2,1,'14070',004,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(2,2,'37040',043,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(2,3,'14030',015,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(3,2,'14030',025,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(3,1,'43010',003,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(4,1,'36010',013,'O') 

INSERT INTO DRDA/PART_ORDLN VALUES(5,1,'18030',005,'O') 
 
 
/******************************************************************************/
/* SHIPMENTLN TABLE                                                           */
/******************************************************************************/
INSERT INTO DRDA/SHIPMENTLN VALUES(1,1,'DB2B',1,1,'24110',5,5)      

INSERT INTO DRDA/SHIPMENTLN VALUES(1,2,'DB2B',1,2,'24100',10,1)     

INSERT INTO DRDA/SHIPMENTLN VALUES(2,1,'SQLA',2,1,'14070',4,4)      

INSERT INTO DRDA/SHIPMENTLN VALUES(2,2,'SQLA',2,2,'37040',45,25)    

INSERT INTO DRDA/SHIPMENTLN VALUES(2,3,'SQLA',2,3,'14030', 5,5)     

INSERT INTO DRDA/SHIPMENTLN VALUES(3,1,'SQLA',2,3,'14030', 5,5)     </pre>
</div>
</div>
</div>
<div>
<div class="familylinks">
<div class="parentlink"><strong>Parent topic:</strong> <a href="rbal1progxmp.htm" title="This example application for distributed relational database use is written in RPG/400, COBOL/400, Java and ILE C/400 programming languages. This example shows how to use a distributed relational database for functional specification tasks.">Examples: Application programming</a></div>
</div>
</div>
<img src="./deltaend.gif" alt="End of change" /></body>
</html>