<?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="Precompiler listing" />
<meta name="DC.Relation" scheme="URI" content="rbal1list.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="rbal1precompilerlist" />
<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>Precompiler listing</title>
</head>
<body id="rbal1precompilerlist"><a name="rbal1precompilerlist"><!-- --></a>
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
<h1 class="topictitle1">Precompiler listing</h1>
<div><div class="example"> <div class="fignone" id="rbal1precompilerlist__rbal1precmpl"><a name="rbal1precompilerlist__rbal1precmpl"><!-- --></a><span class="figcap">Figure 1. Listing from a precompiler</span><pre>5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 1
Source type...............C
Object name...............TST/UPDATEPGM
Source file...............*LIBL/QCSRC
Member....................*OBJ
Options...................*XREF
Listing option............*PRINT
Target release............*CURRENT
INCLUDE file..............*LIBL/*SRCFILE
Commit....................*CHG
Allow copy of data........*YES
Close SQL cursor..........*ENDACTGRP
Allow blocking............*READ
Delay PREPARE.............*NO
Generation level..........10
Margins...................*SRCFILE
Printer file..............*LIBL/QSYSPRT
Date format...............*JOB
Date separator............*JOB
Time format...............*HMS
Time separator ...........*JOB
Replace...................*YES
Relational database.......RCHASLKM
User .....................*CURRENT
RDB connect method........*DUW
Default Collection........*NONE
Package name..............*OBJLIB/*OBJ
Created object type.......*PGM
Debugging view............*NONE
Dynamic User Profile......*USER
Sort Sequence.............*JOB
Language ID...............*JOB
IBM SQL flagging..........*NOFLAG
ANS flagging..............*NONE
Text......................*SRCMBRTXT
Source file CCSID.........37
Job CCSID.................65535
Source member changed on 02/10/06 14:25:33
5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 2
Record*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 SEQNBR Last change
1 /********************************************************************/ 100
2 /* This program is called to update the DEPTCODE of file RWDS/DPT1 */ 200
3 /* to NULL. This is run once a month to clear out the old */ 300
4 /* data. */ 400
5 /* */ 500
6 /* NOTE: Because this program was compiled with an RDB name, it is */ 600
7 /* not necessary to do a connect, as an implicit connect will take */ 700
8 /* place when the program is called. */ 800
9 /********************************************************************/ 900
10 #include <stdio.h> 1000
11 #include <stdlib.h> 1100
12 exec sql include sqlca; 1200
13 1300
14 main() 1400
15 { 1500
16 /* Just update RWDS/DPT1, setting deptcode = NULL */ 1600
17 exec sql update RWDS/DPT1 1700
18 set deptcode = NULL; 1800
19 } 1900
* * * * * E N D O F S O U R C E * * * * *</pre>
</div>
<div class="fignone" id="rbal1precompilerlist__rbal1precoml2"><a name="rbal1precompilerlist__rbal1precoml2"><!-- --></a><span class="figcap">Figure 2. Listing from a precompiler (continued)</span></div>
<pre>5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 3
CROSS REFERENCE
Data Names Define Reference
DEPTCODE **** COLUMN
18
DPT1 **** TABLE IN RWDS
17
RWDS **** COLLECTION
17
5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 4
DIAGNOSTIC MESSAGES
MSG ID SEV RECORD TEXT
SQL0088 0 17 Position 15 UPDATE applies to entire table.
SQL1103 10 17 Field definitions for file DPT1 in RWDS not found.
Message Summary
Total Info Warning Error Severe Terminal
2 1 1 0 0 0
10 level severity errors found in source
19 Source records processed
* * * * * E N D O F L I S T I N G * * * * *</pre>
</div>
</div>
<div>
<div class="familylinks">
<div class="parentlink"><strong>Parent topic:</strong> <a href="rbal1list.htm" title="The listing from the Create SQL program (CRTSQLxxx) command provides these kinds of information.">Listings</a></div>
</div>
</div>
</body>
</html>