119 lines
6.5 KiB
HTML
119 lines
6.5 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="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> |