424 lines
32 KiB
HTML
424 lines
32 KiB
HTML
|
<?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: SQL statements in RPG/400 programs" />
|
||
|
|
<meta name="abstract" content="This sample program is written in the RPG programming language." />
|
||
|
|
<meta name="description" content="This sample program is written in the RPG programming language." />
|
||
|
|
<meta name="DC.subject" content="SQL, statements, RPG/400, sample programs, SQL statements in, RPG/400 program, SQL statements in, sample, program, RPG/400, coding examples, SQL statements in" />
|
||
|
|
<meta name="keywords" content="SQL, statements, RPG/400, sample programs, SQL statements in, RPG/400 program, SQL statements in, sample, program, RPG/400, coding examples, SQL statements in" />
|
||
|
|
<meta name="DC.Relation" scheme="URI" content="rzajpsamprog.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="rzajpssrpg" />
|
||
|
|
<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: SQL statements in RPG/400 programs</title>
|
||
|
|
</head>
|
||
|
|
<body id="rzajpssrpg"><a name="rzajpssrpg"><!-- --></a>
|
||
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
|
|
<h1 class="topictitle1">Example: SQL statements in RPG/400 programs</h1>
|
||
|
|
<div><p>This sample program is written in the RPG programming language.</p>
|
||
|
|
<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="rzajpssrpg__samprpg"><a name="rzajpssrpg__samprpg"><!-- --></a><span class="figcap">Figure 1. Sample RPG/400<sup>®</sup> program using SQL statements</span><img src="./delta.gif" alt="Start of change" /><pre>5722ST1 V5R4M0 060210 Create SQL RPG Program RPGEX 08/06/02 12:55:22 Page 1
|
||
|
|
Source type...............RPG
|
||
|
|
Program name..............CORPDATA/RPGEX
|
||
|
|
Source file...............CORPDATA/SRC
|
||
|
|
Member....................RPGEX
|
||
|
|
To source file............QTEMP/QSQLTEMP
|
||
|
|
Options...................*SRC *XREF
|
||
|
|
Target release............V5R4M0
|
||
|
|
INCLUDE file..............*SRCFILE
|
||
|
|
Commit....................*CHG
|
||
|
|
Allow copy of data........*YES
|
||
|
|
Close SQL cursor..........*ENDPGM
|
||
|
|
Allow blocking............*READ
|
||
|
|
Delay PREPARE.............*NO
|
||
|
|
Generation level..........10
|
||
|
|
Printer file..............*LIBL/QSYSPRT
|
||
|
|
Date format...............*JOB
|
||
|
|
Date separator............*JOB
|
||
|
|
Time format...............*HMS
|
||
|
|
Time separator ...........*JOB
|
||
|
|
Replace...................*YES
|
||
|
|
Relational database.......*LOCAL
|
||
|
|
User .....................*CURRENT
|
||
|
|
RDB connect method........*DUW
|
||
|
|
Default collection........*NONE
|
||
|
|
Dynamic default
|
||
|
|
collection..............*NO
|
||
|
|
Package name..............*PGMLIB/*PGM
|
||
|
|
Path......................*NAMING
|
||
|
|
SQL rules.................*DB2
|
||
|
|
User profile..............*NAMING
|
||
|
|
Dynamic user profile......*USER
|
||
|
|
Sort sequence.............*JOB
|
||
|
|
Language ID...............*JOB
|
||
|
|
IBM SQL flagging..........*NOFLAG
|
||
|
|
ANS flagging..............*NONE
|
||
|
|
Text......................*SRCMBRTXT
|
||
|
|
Source file CCSID.........65535
|
||
|
|
Job CCSID.................65535
|
||
|
|
Decimal result options:
|
||
|
|
Maximum precision.......31
|
||
|
|
Maximum scale...........31
|
||
|
|
Minimum divide scale....0
|
||
|
|
Compiler options..........*NONE
|
||
|
|
Source member changed on 07/01/96 17:06:17
|
||
|
|
</pre><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="example"><div class="fignone"><img src="./delta.gif" alt="Start of change" /><pre>5722ST1 V5R4M0 060210 Create SQL RPG Program RPGEX 08/06/02 12:55:22 Page 2
|
||
|
|
Record *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 SEQNBR Last change
|
||
|
|
1 H 100
|
||
|
|
2 F* File declaration for QPRINT 200
|
||
|
|
3 F* 300
|
||
|
|
4 FQPRINT O F 132 PRINTER 400
|
||
|
|
5 I* 500
|
||
|
|
6 I* Structure for report 1. 600
|
||
|
|
7 I* 700
|
||
|
|
8 <span><span>1</span></span> IRPT1 E DSPROJECT 800
|
||
|
|
9 I PROJNAME PROJNM 900
|
||
|
|
10 I RESPEMP RESEM 1000
|
||
|
|
11 I PRSTAFF STAFF 1100
|
||
|
|
12 I PRSTDATE PRSTD 1200
|
||
|
|
13 I PRENDATE PREND 1300
|
||
|
|
14 I MAJPROJ MAJPRJ 1400
|
||
|
|
15 I* 1500
|
||
|
|
16 I DS 1600
|
||
|
|
17 I 1 6 EMPNO 1700
|
||
|
|
18 I 7 36 NAME 1800
|
||
|
|
19 I P 37 412SALARY 1900
|
||
|
|
20 I* 2000
|
||
|
|
21 I* Structure for report 2. 2100
|
||
|
|
22 I* 2200
|
||
|
|
23 IRPT2 DS 2300
|
||
|
|
24 I 1 6 PRJNUM 2400
|
||
|
|
25 I 7 42 PNAME 2500
|
||
|
|
26 I B 43 440EMPCNT 2600
|
||
|
|
27 I P 45 492PRCOST 2700
|
||
|
|
28 I* 2800
|
||
|
|
29 I DS 2900
|
||
|
|
30 I B 1 20WRKDAY 3000
|
||
|
|
31 I P 3 62COMMI 3100
|
||
|
|
32 I 7 16 RDATE 3200
|
||
|
|
33 I P 17 202PERCNT 3300
|
||
|
|
34 <span><span>2</span></span> C* 3400
|
||
|
|
35 C Z-ADD253 WRKDAY 3500
|
||
|
|
36 C Z-ADD2000.00 COMMI 3600
|
||
|
|
37 C Z-ADD1.04 PERCNT 3700
|
||
|
|
38 C MOVEL'1982-06-'RDATE 3800
|
||
|
|
39 C MOVE '01' RDATE 3900
|
||
|
|
40 C SETON LR 3901
|
||
|
|
41 C* 4000
|
||
|
|
42 C* Update the selected projects by the new percentage. If an 4100
|
||
|
|
43 C* error occurs during the update, ROLLBACK the changes. 4200
|
||
|
|
44 C* 4300
|
||
|
|
45 <span><span>3</span></span> C/EXEC SQL WHENEVER SQLERROR GOTO UPDERR 4400
|
||
|
|
46 C/END-EXEC 4500
|
||
|
|
47 C* 4600
|
||
|
|
48 <span><span>4</span></span> C/EXEC SQL 4700
|
||
|
|
49 C+ UPDATE CORPDATA/EMPLOYEE 4800
|
||
|
|
50 C+ SET SALARY = SALARY * :PERCNT 4900
|
||
|
|
51 C+ WHERE COMM >= :COMMI 5000
|
||
|
|
52 C/END-EXEC 5100
|
||
|
|
53 C* 5200
|
||
|
|
54 C* Commit changes. 5300
|
||
|
|
55 C* 5400
|
||
|
|
56 <span><span>5</span></span> C/EXEC SQL COMMIT 5500
|
||
|
|
57 C/END-EXEC 5600
|
||
|
|
58 C* 5700
|
||
|
|
59 C/EXEC SQL WHENEVER SQLERROR GO TO RPTERR 5800
|
||
|
|
60 C/END-EXEC 5900</pre><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="example"><div class="fignone"><img src="./delta.gif" alt="Start of change" /><pre>5722ST1 V5R4M0 060210 Create SQL RPG Program RPGEX 08/06/02 12:55:22 Page 3
|
||
|
|
Record *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 SEQNBR Last change
|
||
|
|
61 C* 6000
|
||
|
|
62 C* Report the updated statistics for each employee assigned to 6100
|
||
|
|
63 C* selected projects. 6200
|
||
|
|
64 C* 6300
|
||
|
|
65 C* Write out the header for report 1. 6400
|
||
|
|
66 C* 6500
|
||
|
|
67 C EXCPTRECA 6600
|
||
|
|
68 <span><span>6</span></span> C/EXEC SQL DECLARE C1 CURSOR FOR 6700
|
||
|
|
69 C+ SELECT DISTINCT PROJNO, EMPPROJACT.EMPNO, 6800
|
||
|
|
70 C+ LASTNAME||', '||FIRSTNME, SALARY 6900
|
||
|
|
71 C+ FROM CORPDATA/EMPPROJACT, CORPDATA/EMPLOYEE 7000
|
||
|
|
72 C+ WHERE EMPPROJACT.EMPNO = EMPLOYEE.EMPNO AND 7100
|
||
|
|
73 C+ COMM >= :COMMI 7200
|
||
|
|
74 C+ ORDER BY PROJNO, EMPNO 7300
|
||
|
|
75 C/END-EXEC 7400
|
||
|
|
76 C* 7500
|
||
|
|
77 <span><span>7</span></span> C/EXEC SQL 7600
|
||
|
|
78 C+ OPEN C1 7700
|
||
|
|
79 C/END-EXEC 7800
|
||
|
|
80 C* 7900
|
||
|
|
81 C* Fetch and write the rows to QPRINT. 8000
|
||
|
|
82 C* 8100
|
||
|
|
83 <span><span>8</span></span> C/EXEC SQL WHENEVER NOT FOUND GO TO DONE1 8200
|
||
|
|
84 C/END-EXEC 8300
|
||
|
|
85 C SQLCOD DOUNE0 8400
|
||
|
|
86 C/EXEC SQL 8500
|
||
|
|
87 <span><span>9</span></span> C+ FETCH C1 INTO :PROJNO, :EMPNO, :NAME, :SALARY 8600
|
||
|
|
88 C/END-EXEC 8700
|
||
|
|
89 C EXCPTRECB 8800
|
||
|
|
90 C END 8900
|
||
|
|
91 C DONE1 TAG 9000
|
||
|
|
92 C/EXEC SQL 9100
|
||
|
|
93 <span><span>10</span></span> C+ CLOSE C1 9200
|
||
|
|
94 C/END-EXEC 9300
|
||
|
|
95 C* 9400
|
||
|
|
96 C* For all project ending at a date later than the raise date 9500
|
||
|
|
97 C* (i.e. those projects potentially affected by the salary raises) 9600
|
||
|
|
98 C* generate a report containing the project number, project name, 9700
|
||
|
|
99 C* the count of employees participating in the project and the 9800
|
||
|
|
100 C* total salary cost of the project. 9900
|
||
|
|
101 C* 10000
|
||
|
|
102 C* Write out the header for report 2. 10100
|
||
|
|
103 C* 10200
|
||
|
|
104 C EXCPTRECC 10300
|
||
|
|
105 <span><span>11</span></span> C/EXEC SQL 10400
|
||
|
|
106 C+ DECLARE C2 CURSOR FOR 10500
|
||
|
|
107 C+ SELECT EMPPROJACT.PROJNO, PROJNAME, COUNT(*), 10600
|
||
|
|
108 C+ SUM((DAYS(EMENDATE) - DAYS(EMSTDATE)) * EMPTIME * 10700
|
||
|
|
109 C+ DECIMAL((SALARY/:WRKDAY),8,2)) 10800
|
||
|
|
110 C+ FROM CORPDATA/EMPPROJACT, CORPDATA/PROJECT, CORPDATA/EMPLOYEE 10900
|
||
|
|
111 C+ WHERE EMPPROJACT.PROJNO = PROJECT.PROJNO AND 11000
|
||
|
|
112 C+ EMPPROJACT.EMPNO = EMPLOYEE.EMPNO AND 11100
|
||
|
|
113 C+ PRENDATE > :RDATE 11200
|
||
|
|
114 C+ GROUP BY EMPPROJACT.PROJNO, PROJNAME 11300
|
||
|
|
115 C+ ORDER BY 1 11400
|
||
|
|
116 C/END-EXEC 11500
|
||
|
|
117 C* 11600
|
||
|
|
118 C/EXEC SQL OPEN C2 11700
|
||
|
|
119 C/END-EXEC 11800
|
||
|
|
120 C* 11900
|
||
|
|
121 C* Fetch and write the rows to QPRINT. 12000
|
||
|
|
122 C* 12100
|
||
|
|
123 C/EXEC SQL WHENEVER NOT FOUND GO TO DONE2 12200
|
||
|
|
124 C/END-EXEC 12300</pre><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="example"><div class="fignone"><img src="./delta.gif" alt="Start of change" /><pre>5722ST1 V5R4M0 060210 Create SQL RPG Program RPGEX 08/06/02 12:55:22 Page 4
|
||
|
|
125 C SQLCOD DOUNE0 12400
|
||
|
|
126 C/EXEC SQL 12500
|
||
|
|
127 <span><span>12</span></span> C+ FETCH C2 INTO :RPT2 12600
|
||
|
|
128 C/END-EXEC 12700
|
||
|
|
129 C EXCPTRECD 12800
|
||
|
|
130 C END 12900
|
||
|
|
131 C DONE2 TAG 13000
|
||
|
|
132 C/EXEC SQL CLOSE C2 13100
|
||
|
|
133 C/END-EXEC 13200
|
||
|
|
134 C RETRN 13300
|
||
|
|
135 C* 13400
|
||
|
|
136 C* Error occurred while updating table. Inform user and rollback 13500
|
||
|
|
137 C* changes. 13600
|
||
|
|
138 C* 13700
|
||
|
|
139 C UPDERR TAG 13800
|
||
|
|
140 C EXCPTRECE 13900
|
||
|
|
141 <span><span>13</span></span> C/EXEC SQL WHENEVER SQLERROR CONTINUE 14000
|
||
|
|
142 C/END-EXEC 14100
|
||
|
|
143 C* 14200
|
||
|
|
144 <span><span>14</span></span> C/EXEC SQL 14300
|
||
|
|
145 C+ ROLLBACK 14400
|
||
|
|
146 C/END-EXEC 14500
|
||
|
|
147 C RETRN 14600
|
||
|
|
148 C* 14700
|
||
|
|
149 C* Error occurred while generating reports. Inform user and exit. 14800
|
||
|
|
150 C* 14900
|
||
|
|
151 C RPTERR TAG 15000
|
||
|
|
152 C EXCPTRECF 15100
|
||
|
|
153 C* 15200
|
||
|
|
154 C* All done. 15300
|
||
|
|
155 C* 15400
|
||
|
|
156 C FINISH TAG 15500
|
||
|
|
157 OQPRINT E 0201 RECA 15700
|
||
|
|
158 O 45 'REPORT OF PROJECTS AFFEC' 15800
|
||
|
|
159 O 64 'TED BY EMPLOYEE RAISES' 15900
|
||
|
|
160 O E 01 RECA 16000
|
||
|
|
161 O 7 'PROJECT' 16100
|
||
|
|
162 O 17 'EMPLOYEE' 16200
|
||
|
|
163 O 32 'EMPLOYEE NAME' 16300
|
||
|
|
164 O 60 'SALARY' 16400
|
||
|
|
165 O E 01 RECB 16500
|
||
|
|
166 O PROJNO 6 16600
|
||
|
|
167 O EMPNO 15 16700
|
||
|
|
168 O NAME 50 16800
|
||
|
|
169 O SALARYL 61 16900
|
||
|
|
170 O E 22 RECC 17000
|
||
|
|
171 O 42 'ACCUMULATED STATISTIC' 17100
|
||
|
|
172 O 54 'S BY PROJECT' 17200
|
||
|
|
173 O E 01 RECC 17300
|
||
|
|
174 O 7 'PROJECT' 17400
|
||
|
|
175 O 56 'NUMBER OF' 17500
|
||
|
|
176 O 67 'TOTAL' 17600
|
||
|
|
177 O E 02 RECC 17700
|
||
|
|
178 O 6 'NUMBER' 17800
|
||
|
|
179 O 21 'PROJECT NAME' 17900
|
||
|
|
180 O 56 'EMPLOYEES' 18000
|
||
|
|
181 O 66 'COST' 18100
|
||
|
|
182 O E 01 RECD 18200
|
||
|
|
183 O PRJNUM 6 18300
|
||
|
|
184 O PNAME 45 18400
|
||
|
|
185 O EMPCNTL 54 18500
|
||
|
|
186 O PRCOSTL 70 18600
|
||
|
|
187 O E 01 RECE 18700
|
||
|
|
188 O 28 '*** ERROR Occurred while' 18800
|
||
|
|
189 O 52 ' updating table. SQLCODE' 18900
|
||
|
|
190 O 53 '=' 19000
|
||
|
|
191 O SQLCODL 62 19100
|
||
|
|
192 O E 01 RECF 19200
|
||
|
|
193 O 28 '*** ERROR Occurred while' 19300
|
||
|
|
194 O 52 ' generating reports. SQL' 19400
|
||
|
|
195 O 57 'CODE=' 19500
|
||
|
|
196 O SQLCODL 67 19600
|
||
|
|
* * * * * E N D O F S O U R C E * * * * *</pre><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="example"><div class="fignone"><img src="./delta.gif" alt="Start of change" /><pre>5722ST1 V5R4M0 060210 Create SQL RPG Program RPGEX 08/06/02 12:55:22 Page 5
|
||
|
|
CROSS REFERENCE
|
||
|
|
Data Names Define Reference
|
||
|
|
ACTNO 68 SMALL INTEGER PRECISION(4,0) COLUMN (NOT NULL) IN CORPDATA.EMPPROJACT
|
||
|
|
BIRTHDATE 48 DATE(10) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
BONUS 48 DECIMAL(9,2) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
COMM **** COLUMN
|
||
|
|
48 68
|
||
|
|
COMM 48 DECIMAL(9,2) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
COMMI 31 DECIMAL(7,2)
|
||
|
|
48 68
|
||
|
|
CORPDATA **** COLLECTION
|
||
|
|
48 68 68 105 105 105
|
||
|
|
C1 68 CURSOR
|
||
|
|
77 86 92
|
||
|
|
C2 105 CURSOR
|
||
|
|
118 126 132
|
||
|
|
DEPTNO 8 CHARACTER(3) IN RPT1
|
||
|
|
DEPTNO 105 CHARACTER(3) COLUMN (NOT NULL) IN CORPDATA.PROJECT
|
||
|
|
DONE1 91 LABEL
|
||
|
|
83
|
||
|
|
DONE2 131 LABEL
|
||
|
|
123
|
||
|
|
EDLEVEL 48 SMALL INTEGER PRECISION(4,0) COLUMN (NOT NULL) IN CORPDATA.EMPLOYEE
|
||
|
|
EMENDATE 68 DATE(10) COLUMN IN CORPDATA.EMPPROJACT
|
||
|
|
EMENDATE **** COLUMN
|
||
|
|
105
|
||
|
|
EMPCNT 26 SMALL INTEGER PRECISION(4,0) IN RPT2
|
||
|
|
EMPLOYEE **** TABLE IN CORPDATA
|
||
|
|
48 68 105
|
||
|
|
EMPLOYEE **** TABLE
|
||
|
|
68 105
|
||
|
|
EMPNO 17 CHARACTER(6)
|
||
|
|
86
|
||
|
|
EMPNO 48 CHARACTER(6) COLUMN (NOT NULL) IN CORPDATA.EMPLOYEE
|
||
|
|
EMPNO **** COLUMN IN EMPPROJACT
|
||
|
|
68 68 68 105
|
||
|
|
EMPNO **** COLUMN IN EMPLOYEE
|
||
|
|
68 105
|
||
|
|
EMPNO 68 CHARACTER(6) COLUMN (NOT NULL) IN CORPDATA.EMPPROJACT
|
||
|
|
EMPPROJACT **** TABLE
|
||
|
|
68 68 105 105 105 105
|
||
|
|
EMPPROJACT **** TABLE IN CORPDATA
|
||
|
|
68 105
|
||
|
|
EMPTIME 68 DECIMAL(5,2) COLUMN IN CORPDATA.EMPPROJACT
|
||
|
|
EMPTIME **** COLUMN
|
||
|
|
105
|
||
|
|
EMSTDATE 68 DATE(10) COLUMN IN CORPDATA.EMPPROJACT
|
||
|
|
EMSTDATE **** COLUMN
|
||
|
|
105
|
||
|
|
FINISH 156 LABEL
|
||
|
|
FIRSTNME 48 VARCHAR(12) COLUMN (NOT NULL) IN CORPDATA.EMPLOYEE
|
||
|
|
FIRSTNME **** COLUMN
|
||
|
|
68
|
||
|
|
HIREDATE 48 DATE(10) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
JOB 48 CHARACTER(8) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
LASTNAME 48 VARCHAR(15) COLUMN (NOT NULL) IN CORPDATA.EMPLOYEE
|
||
|
|
LASTNAME **** COLUMN
|
||
|
|
68
|
||
|
|
MAJPRJ 8 CHARACTER(6) IN RPT1
|
||
|
|
MAJPROJ 105 CHARACTER(6) COLUMN IN CORPDATA.PROJECT
|
||
|
|
MIDINIT 48 CHARACTER(1) COLUMN (NOT NULL) IN CORPDATA.EMPLOYEE
|
||
|
|
NAME 18 CHARACTER(30)
|
||
|
|
86
|
||
|
|
PERCNT 33 DECIMAL(7,2)
|
||
|
|
48
|
||
|
|
PHONENO 48 CHARACTER(4) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
PNAME 25 CHARACTER(36) IN RPT2
|
||
|
|
PRCOST 27 DECIMAL(9,2) IN RPT2
|
||
|
|
PREND 8 DATE(10) IN RPT1
|
||
|
|
PRENDATE **** COLUMN
|
||
|
|
105</pre><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="example"><div class="fignone"><img src="./delta.gif" alt="Start of change" /><pre>5722ST1 V5R4M0 060210 Create SQL RPG Program RPGEX 08/06/02 12:55:22 Page 6
|
||
|
|
PRENDATE 105 DATE(10) COLUMN IN CORPDATA.PROJECT
|
||
|
|
PRJNUM 24 CHARACTER(6) IN RPT2
|
||
|
|
CROSS REFERENCE
|
||
|
|
PROJECT **** TABLE IN CORPDATA
|
||
|
|
105
|
||
|
|
PROJECT **** TABLE
|
||
|
|
105
|
||
|
|
PROJNAME **** COLUMN
|
||
|
|
105 105
|
||
|
|
PROJNAME 105 VARCHAR(24) COLUMN (NOT NULL) IN CORPDATA.PROJECT
|
||
|
|
PROJNM 8 VARCHAR(24) IN RPT1
|
||
|
|
PROJNO 8 CHARACTER(6) IN RPT1
|
||
|
|
86
|
||
|
|
PROJNO **** COLUMN
|
||
|
|
68 68
|
||
|
|
PROJNO 68 CHARACTER(6) COLUMN (NOT NULL) IN CORPDATA.EMPPROJACT
|
||
|
|
PROJNO **** COLUMN IN EMPPROJACT
|
||
|
|
105 105 105
|
||
|
|
PROJNO **** COLUMN IN PROJECT
|
||
|
|
105
|
||
|
|
PROJNO 105 CHARACTER(6) COLUMN (NOT NULL) IN CORPDATA.PROJECT
|
||
|
|
PRSTAFF 105 DECIMAL(5,2) COLUMN IN CORPDATA.PROJECT
|
||
|
|
PRSTD 8 DATE(10) IN RPT1
|
||
|
|
PRSTDATE 105 DATE(10) COLUMN IN CORPDATA.PROJECT
|
||
|
|
RDATE 32 CHARACTER(10)
|
||
|
|
105
|
||
|
|
RESEM 8 CHARACTER(6) IN RPT1
|
||
|
|
RESPEMP 105 CHARACTER(6) COLUMN (NOT NULL) IN CORPDATA.PROJECT
|
||
|
|
RPTERR 151 LABEL
|
||
|
|
59
|
||
|
|
RPT1 8 STRUCTURE
|
||
|
|
RPT2 23 STRUCTURE
|
||
|
|
126
|
||
|
|
SALARY 19 DECIMAL(9,2)
|
||
|
|
86
|
||
|
|
SALARY **** COLUMN
|
||
|
|
48 48 68 105
|
||
|
|
SALARY 48 DECIMAL(9,2) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
SEX 48 CHARACTER(1) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
STAFF 8 DECIMAL(5,2) IN RPT1
|
||
|
|
UPDERR 139 LABEL
|
||
|
|
45
|
||
|
|
WORKDEPT 48 CHARACTER(3) COLUMN IN CORPDATA.EMPLOYEE
|
||
|
|
WRKDAY 30 SMALL INTEGER PRECISION(4,0)
|
||
|
|
105
|
||
|
|
No errors found in source
|
||
|
|
196 Source records processed
|
||
|
|
* * * * * E N D O F L I S T I N G * * * * *</pre><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div>
|
||
|
|
<div class="familylinks">
|
||
|
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="rzajpsamprog.htm" title="This topic contains a sample application showing how to code SQL statements in each of the languages supported by the DB2 UDB for iSeries system.">Sample programs using DB2 UDB for iSeries statements</a></div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</body>
|
||
|
|
</html>
|