You are on page 1of 292

AS/400e IBM

Query/400 D9C
f> 4
AS/400e IBM

Query/400 D9C
f> 4
© Copyright International Business Machines Corporation 2000. All rights reserved.
?<
XZ0Query/400 D9C1 . . . . . . vii 4( Query/400 i/D<GBn . . . . . . . 32
-&DA0Query/400 D9C1;i . . . . . . vii * Query/400 !qD~"G<MVN . . . . . 32
4( Query/400 i/D(iNq3r . . . . . 33
Z1?V Query/400 i\ . . . . . . . 1
Z4B * Query/400 i/8("!qD~ 35
* Query/400 i/8(D~!q . . . . . . .
Z1B 24G Query/400? . . . . . . . 3 35
* Query/400 i/!qD~ . . . . . . . . 36
Query/400 y>*X . . . . . . . . . . . . 3
* Query/400 i/!qb . . . . . . . . . 36
Query/400 PDD~"VNMG<q= . . . . . 3
* Query/400 i/!qI1rG<q= . . . . 37
Query/400 (e . . . . . . . . . . . . 5
* Query/400 i/!q`vD~ . . . . . . 37
Query/400 PDb . . . . . . . . . . . . 6
T Query/400 i/7O!n . . . . . . . . 38
Query/400 Dw*&\ . . . . . . . . . . . 6
&m Query/40008(D~!q1A;ODms . . 39
+ Query/400 }]O"=V&mD5P . . . . . 7
Z Query/4000!qD~1A;O!qD~ . . . . 39
(}1SO"+ Query/400 }]O"=V&mD5
Z Query/4000!qI11A;O!qD~I1 . . . 41
P . . . . . . . . . . . . . . . . . 9
Z Query/4000!qG<q=1A;O!qG<q= 42
(}PmO"+ Query/400 }]O"=V&mD5
T>Z Query/4000T>D~!q1A;O!qD+?
P . . . . . . . . . . . . . . . . . 9
D~ . . . . . . . . . . . . . . . . . 43
(}`1>O"+ Query/400 }]O"=V&mD
Z Query/400 i/P,SD~ . . . . . . . . 44
5P . . . . . . . . . . . . . . . . 9
Query/400 i/PD,S`M . . . . . . . . 45
(}PmO"M`1>O"DiO+ Query/400 }
Z Query/400 i/PgN,SD~ . . . . . . 45
]O"=V&mD5P . . . . . . . . . . 10
Query/400 i/P,SD~Dfr . . . . . . 46
Query/400 i/P,SD~D>} . . . . . .
Z2B Query/400 D;cYwE" . . . . 11 49
Z Query/400 i/P*w,SErND~ . . . 52
709C Query/400 . . . . . . . . . . . . 11
Z Query/400 i/PT>yP,SbT . . . . . 55
t/ Query/400 . . . . . . . . . . . . . 11
Z Query/400 i/P&m*'DVN . . . . . . 56
1zjI9C Query/400 1 . . . . . . . . 11
Z Query/400 i/DD~!q}LZd&m*'D
f_ Query/400 zk*24 . . . . . . . . . 12
VN . . . . . . . . . . . . . . . . 57
Z Query/400 P9Ca>M1!5 . . . . . . 12
Z*<|DrT> Query/400 i/1&m*'DV
9C Query/400 &\| . . . . . . . . . 12
N . . . . . . . . . . . . . . . . 57
Z Query/400 P9CPm . . . . . . . . . 14
9C Query/400 |n . . . . . . . . . . . 15
Z5B Z Query/400 P(ea{VN . . 59
9C Query/400 K% . . . . . . . . . . . 15
Z Query/400 P4(a{VN . . . . . . . . 59
9C Query/400 D09Ci/1A; . . . . . . 17
Query/400 a{VN{ . . . . . . . . . . 60
!q%vD Query/400 Nq . . . . . . . . 17
Query/400 mo= . . . . . . . . . . . 61
!q`v Query/400 Nq . . . . . . . . . 18
Query/400 }Vmo= . . . . . . . . . . 62
9C Query/400 i/Pm . . . . . . . . . 19
Query/400 V{mo= . . . . . . . . . . 62
* Query/400 i/!qb . . . . . . . . . 21
Query/400 V{/} . . . . . . . . . . . 64
Z Query/400 PT>#?q= . . . . . . . . 22
Query/400 PDUZ"1dM1dAGmo= . . 68
Query/400 r*mE" . . . . . . . . . . . 23
Z Query/400 PT>#?q= . . . . . . . 71
&m Query/400 E"Mms . . . . . . . . . 24
Query/400 PDUZ"1dM1dAGcuKc . . . 72
|D Query/400 i/ . . . . . . . . . . 24
Query/400 PDUZcuKc . . . . . . . . 73
Query/400 PD1dcuKc . . . . . . . . 75
Z2?V (eM9C Query/400 i/ Query/400 PDVx1d . . . . . . . . . 76
(e. . . . . . . . . . . . . . . . 25 Query/400 PDUZ"1dM1dAG/} . . . . 76
CHAR Query/400 /} . . . . . . . . . . 77
Z3B 4( Query/400 i/(e . . . . 29 DATE Query/400 /} . . . . . . . . . . 77
t/ Query/400 i/(e . . . . . . . . . . 29 DAY Query/400 /} . . . . . . . . . . 78
Z(e Query/400 i/1!q(e=h . . . . . 30 DAYS Query/400 /} . . . . . . . . . . 79
* Query/400 i/(e!q!n . . . . . . 31 HOUR Query/400 /} . . . . . . . . . . 79
Z Query/400 (eA;.dF/ . . . . . . 32 MICROSECOND Query/400 /} . . . . . . 80
5XA Query/4000(ei/1A;1 . . . . . 32 MINUTE Query/400 /} . . . . . . . . . 80

© Copyright IBM Corp. 2000 iii


MONTH Query/400 /} . . . . . . . . . 81 `- Query/400 (fPD}VVN . . . . . . 128
SECOND Query/400 /} . . . . . . . . . 81 (e Query/400 (fPD}VVN`- . . . . 128
TIME Query/400 /} . . . . . . . . . . 82 hv Query/400 (fPD}VVN`- . . . . 130
TIMESTAMP Query/400 /} . . . . . . . 82 hv Query/400 (fPDUZ/1dVN`-T
YEAR Query/400 /} . . . . . . . . . . 83 > . . . . . . . . . . . . . . . . 134
Query/400 PDd{UZ"1dM1dAG/} . . 83 8( Query/400 (fPD`-k . . . . . . 135
Z Query/400 P*;UZq= . . . . . . . . 84 8(`-V . . . . . . . . . . . . . 138
Z Query/400 P*;}]bD~dvDUZ . . . 84
Z Query/400 P*;A;rr!zdvDUZ . . 84 Z11B 8( Query/400 (fPD(fc
Z Query/400 P4(mo=D;c<GBn . . . . 86 \/} . . . . . . . . . . . . . . 141
Query/400 PDPjb . . . . . . . . . . . 88 Query/400 (fPc\/}D`M . . . . . . . 141
Query/400 PD$HM!};} . . . . . . . . 88 c\ Query/400 (fPDP . . . . . . . . . 143
Z Query/400 P(ea{VND>} . . . . . 89 Query/400 (fPPc\5D;C . . . . . . . 143
Z Query/400 PmSr}%a{VN . . . . . . 89
Z12B (e Query/400 (f8V . . . 145
Z6B Z Query/400 P!q"ErVN 91 (e Query/400 (f8V . . . . . . . . . 145
C Query/400 !q"ErVN . . . . . . . . 91 (e Query/400 (fPD(f8Vq= . . . . . 149
Z Query/400 P!qVN"8(d3r . . . . . 91 Z Query/400 (fPxAB3 . . . . . . . 149
Z Query/400 (fPVFc\ . . . . . . . 149
Z7B Z Query/400 P!qG< . . . . 95 Query/400 (fPD8VD> . . . . . . . 150
C Query/400 !qG< . . . . . . . . . .
95
Z Query/400 P!qh*DG< . . . . . . .
95 Z13B Z Query/400 (fP!qdv`
Query/400 PDHOVN . . . . . . . . .
96 MMdvq= . . . . . . . . . . . . 151
Query/400 PDHO5 . . . . . . . . . .
97 !q#{CZ Query/400 (fDdv`MMq= . . 151
Query/400 PDHObT . . . . . . . . .
99 Query/400 (fDdvq= . . . . . . . . 152
Z Query/400 P9C`vHObT . . . . . 105 Query/400 (fPDPFX . . . . . . . . 152
Z Query/400 PmSM}%HO . . . . . . 107 Query/400 (fPDFXmH . . . . . . . 153
Z Query/400 P!q OfficeVision X*PmDG< 108 Query/400 (fP;3ODG< . . . . . . 153
>}:Query/400 PDX*PmO" . . . . . 108 | T> Query/400 (fPDFXmH . . . . . 153
Z Query/400 PxX*PmD`1>DfrM8 (e Query/400 (fPDr!zdv . . . . . 154
O . . . . . . . . . . . . . . . . 110 (e Query/400 (fA}]bD~Ddv . . . 161
Z Query/400 (fP9CVfDdvD~(e 162
Z8B Z Query/400 P!qErVN 111 Z Query/400 (fP9(BDdvD~(e . . 162
C Query/400 *z7(G<Nr . . . . . . . 111 9C Query/400 4(Ddv}]bD~ . . . . 168
Z Query/400 P!qz*9CDErVN . . . . 111
Query/400 PDd{Er<GBn . . . . . . 114 Z14B 8( Query/400 &m!n . . . 169
Query/400 &m!nDC> . . . . . . . . . 169
Z9B Z Query/400 P!q{m3r 117 Z Query/400 &mZdak}VVN5 . . . . . 170
C Query/400 !q{m3r . . . . . . . . . 117 Z Query/400 &mZdvT.xF}]ms . . . 171
Z Query/400 PhC1!{m3r . . . . . 117 Z Query/400 &mZdvTV{f;/f . . . . 171
Query/400 P{m3rDC> . . . . . . . . 117 Z Query/400 &mZdTyPV{HO9C{m
Query/400 PD{m3rk CCSID . . . . . 118 3r . . . . . . . . . . . . . . . 172
{m3rgN0l Query/400 . . . . . . . . 118
!q Query/400 {m3r . . . . . . . . . 119 Z15B KvMKP Query/400 i/ 173
Z Query/400 P9C.yxF{m3r . . . . 119 ax Query/400 i/(e . . . . . . . . . 173
Z Query/400 P9CzyZzDoT{m3r 120 #f Query/400 i/(e . . . . . . . . 174
Z Query/400 PT(e{m3r . . . . . . 121 KP Query/400 i/ . . . . . . . . . . . 176
Z Query/400 P!q*;m . . . . . . . . 122 ZKP Query/400 i/1*}]rD>O"8(
Z Query/400 P!q53Er3r . . . . . 123 O"!n . . . . . . . . . . . . . . 176
ZKP Query/400 i/19C&\| F5 . . . 176
Z10B Z Query/400 P8((fPq= 125 S Query/400 K%KP Query/400 i/ . . . . 176
q=/ Query/400 i/(fP . . . . . . . . 125 S0KvKi/1A;KP Query/400 i/ . . 177
Query/400 (fPDPd` . . . . . . . . 125 S09Ci/1A;KP Query/400 i/ . . . 178
Query/400 (fDPjb . . . . . . . . . 126 9C RUNQRY |nKP Query/400 i/ . . . 179
Query/400 (fPD$HM!}; . . . . . . 126
S Query/400 (fPT%VN . . . . . . . 128 Z16B 9C Query/400 i/(e . . . 181

iv Query/400 D9C V4R5


|D Query/400 i/(e . . . . . . . . . 181 (e Query/400 Di/ . . . . . . . . . . 242
(}4F Query/400 i/(e*<|D . . . . 181 hFr|Di/1D Query/400 T\ . . . . . 242
IT Query/400 i/xPD|D . . . . . . 181 Z Query/400 P(ea{VN . . . . . . . 243
|D Query/400 i/D<GBn . . . . . . 184 Z Query/400 P!q"ErVN . . . . . . 243
4F Query/400 i/(e . . . . . . . . . 185 Z Query/400 P!qG< . . . . . . . . 243
X|{ Query/400 i/(e . . . . . . . . . 187 Z Query/400 P!qErVN . . . . . . . 244
>} Query/400 i/(e . . . . . . . . . 187 Z Query/400 P!q{m3r . . . . . . . 245
T> Query/400 i/(e . . . . . . . . . 188 Z Query/400 P8((fc\/} . . . . . 245
r! Query/400 i/(e . . . . . . . . . 189 Z Query/400 P!qdv`MMdvq= . . . 246
* Query/400 i/(er!DE" . . . . . 189 Z Query/400 P8(&m!n . . . . . . . 246
Query/400 i/(eDr!G<q=E">} . . 190 Z Query/400 P9C,SKc . . . . . . . . 247
Query/400 P,SKcDT\a> . . . . . . 247
Z3?V PX Query/400 D_6E Query/400 Dd{a>M<I . . . . . . . . 248
Query/400 Dz&m . . . . . . .
" . . . . . . . . . . . . . . . . 193
. . . 248
Query/400 T\w{ . . . . . . . . . . 249
Query/400 (F<GBn N A N-1 . . . . . 249
Z17B )Lr1N<Dd{ Query/400
Query/400 4,E" . . . . . . . . . . . 250
E" . . . . . . . . . . . . . . . 195 Query/400 wT==E" . . . . . . . . . . 250
Query/400 P9C;,G<q=DD~ . . . . . 195
Query/400 PDD~2m<GBn . . . . . . . 195 =<D. @9C';%=KP Query/400
Z Query/400 P2G}]bD~ . . . . . . . 195 i/ . . . . . . . . . . . . . . . 251
Z Query/400 P(ea{VN1D DBCS <GBn 195
Z Query/400 P,SD~ . . . . . . . . . 196 =<E. Query/400 PD`kV{/j6
Z Query/400 P9C *ALL . . . . . . . . 196
{ (CCSID) . . . . . . . . . . . . 253
Z Query/400 P9CGErVNDVNxP(f8V 196
Query/400 PD CCSID jG . . . . . . . . 254
Query/400 PDa{VN$HM!};} . . . . 196
Query/400 PD CCSID M{m3r . . . . . . 255
Z Query/400 P&mT>$HM!};}Da> 196
Query/400 oT3r . . . . . . . . . . 256
Query/400 PCZZ?}5FcD$HM!};} 197
Query/400 !nM&\D CCSID *; . . . . . 257
>}:Z Query/400 PvSa{VND!}+H 198
T> Query/400 i/ . . . . . . . . . . 257
Z Query/400 P!qG<(vTVNs!4) 199
|D Query/400 i/ . . . . . . . . . . 257
Z Query/400 PqCPD>DTsPm . . . . 257
Z4?V =<0=tJO . . . . . . 201 (e Query/400 i/ . . . . . . . . . . 258
Z Query/400 P(e{m3r . . . . . . . 258
=<A. Query/400 k Query/36 Dxp 203 Z Query/400 PqCPD>Dq=rI1Pm 258
EnTxp . . . . . . . . . . . . . . 203 #f Query/400 i/(e . . . . . . . . 258
YwTxp . . . . . . . . . . . . . . 203 KP Query/400 i/ . . . . . . . . . . 258
System/36 |n k Query/400 |nD|nxp . . 205 Z Query/400 PKP1!i/ . . . . . . . 259
System/36 k Query/400 (eD(Fxp . . . . 205 KP1Z Query/400 P!qG< . . . . . . 259
Z Query/400 P+}]O"=l+D5 . . . . 259
=<B. 709C Query/400 i/ . . . 207 CCSID M Query/400 i/(en? . . . . . . 259
Query/400 i/70:4( IDDU (e . . . . . 207 Query/400 PD CCSID MD~!q . . . . . 260
Query/400 i/70:4(}]bD~ . . . . . 211 Query/400 PD CCSID M,SbT . . . . . 260
Query/400 i/70:dk}] . . . . . . . 212 Query/400 PD CCSID Ma{VNmo= . . . 260
Query/400 i/70:4(MKPi/ . . . . . 215 Query/400 PD CCSID Ma{VNPjb . . . 260
Query/400 i/70:4(i/ . . . . . . 215 Query/400 PD CCSID MErVN . . . . . 260
Query/400 i/70:|Di/ . . . . . . . 219 Query/400 PD CCSID MG<!qbT. . . . 260
Query/400 i/70:4(_6i/ . . . . . . 224 Query/400 PD CCSID Mc\/} . . . . . 261
Query/400 PD CCSID MPq=k`-. . . . 261
=<C. Query/400 T\a>k<I . . . 239 Query/400 PD CCSID M(f8V . . . . . 261
Query/400 i/&mi\ . . . . . . . . . . 239 Query/400 PD CCSID M8VknUD> . . . 261
Query/400 PD|X3rf!76 . . . . . . 239 Query/400 PD CCSID Mbf3"3<M3E 261
Z Query/400 P!q/T%f!76 . . . . . 240 Query/400 PD CCSID f]T<GBn. . . . . 261
Query/400 PDf!F. . . . . . . . . . 240
Query/400 PDD~(eM}] . . . . . . . 241 DW?<. . . . . . . . . . . . . . 265
Query/400 PDD~(e . . . . . . . . . 241
Query/400 DD~}]<GBn . . . . . . 242 w} . . . . . . . . . . . . . . . 267

?< v
vi Query/400 D9C V4R5
XZ0Query/400 D9C1
Query/400 Gvv_'V5CLr,zIC4S AS/400 }]bPq!E"#>ihv
gN9C Query/400 !q"EPMVvf"Z;vr`v}]bD~PDE",Tzz
(fMd{}]D~#

PXX(wbD|`X(E",I\h*N<d{ IBM i.#

PX>i`XDvfoPm,N{:i?a*;#

-&DA0Query/400 D9C1;i
>ifrG)Z AS/400 53O4(i/(fM\m}]DK1#

Z9C>i.0,Xkl$PX9C AS/400 53Di\TJO#z;XKbgN9C


_6LrhFoT,cIT9C Query/400#

© Copyright IBM Corp. 2000 vii


viii Query/400 D9C V4R5
Z1?V Query/400 i\
Z1B 24G Query/400? . . . . . . . . . 3
Query/400 y>*X . . . . . . . . . . . . 3
Query/400 PDD~"VNMG<q= . . . . . 3
Query/400 PD+VZV{/ (DBCS) VN . . 4
Query/400 PD UCS2 6p 1 V{/'V. . . 4
Query/400 PD}](eoTM5CLr'V . . 5
Query/400 (e . . . . . . . . . . . . 5
Query/400 PDb . . . . . . . . . . . . 6
Query/400 Dw*&\ . . . . . . . . . . . 6
+ Query/400 }]O"=V&mD5P . . . . . 7
(}1SO"+ Query/400 }]O"=V&mD5
P . . . . . . . . . . . . . . . . . 9
(}PmO"+ Query/400 }]O"=V&mD5
P . . . . . . . . . . . . . . . . . 9
(}`1>O"+ Query/400 }]O"=V&mD
5P . . . . . . . . . . . . . . . . 9
(}PmO"M`1>O"DiO+ Query/400 }
]O"=V&mD5P . . . . . . . . . . 10

Z2B Query/400 D;cYwE". . . . . . . 11


709C Query/400 . . . . . . . . . . . . 11
t/ Query/400 . . . . . . . . . . . . . 11
1zjI9C Query/400 1 . . . . . . . . 11
f_ Query/400 zk*24 . . . . . . . . . 12
Z Query/400 P9Ca>M1!5 . . . . . . 12
9C Query/400 &\| . . . . . . . . . 12
Zr! Query/400 (f.0lia{ . . . . 12
r!zZ Query/400 A;P4=DZ] . . . 14
Z Query/400 P9CPm . . . . . . . . . 14
T> Query/400 Pm . . . . . . . . . 14
Z Query/400 PmP!qn . . . . . . . 14
Query/400 PDXbb{ . . . . . . . . 15
9C Query/400 |n . . . . . . . . . . . 15
9C Query/400 K% . . . . . . . . . . . 15
9C Query/400 D09Ci/1A; . . . . . . 17
!q%vD Query/400 Nq . . . . . . . . 17
*}]rD>O"!q Query/400 Nq . . . 18
8( Query/400 i/M|Db . . . . . . 18
!q`v Query/400 Nq . . . . . . . . . 18
9C Query/400 i/Pm . . . . . . . . . 19
SPmP!q Query/400 i/{ . . . . . 20
9C Query/400 PmS/ . . . . . . . . 20
(; Query/400 i/Pm . . . . . . . . 20
9C F11 T>PX Query/400 i/Dd{E" 21
* Query/400 i/!qb . . . . . . . . . 21
1zT<iRr9CX( Query/400 i/1D
d{<GBn . . . . . . . . . . . . 22
Z Query/400 PT>#?q= . . . . . . . . 22
Query/400 r*mE" . . . . . . . . . . . 23
&m Query/400 E"Mms . . . . . . . . . 24
|D Query/400 i/ . . . . . . . . . . 24

© Copyright IBM Corp. 2000 1


2 Query/400 D9C V4R5
Z1B 24G Query/400?
Query/400 G IBM XmLrMv_'V5CLr,IC4S AS/400* (AS/400*) }]
bq!E"#|ITSZ53O9C Operating System /400* (OS/400*) }]hv5w
(DDS)"OS/400 ;%=}](e5CLr (IDDU) r IBM* Structured Query
Language/400 (DB2 UDB AS/400 f*) Lr(eDNN}]bD~Pq!E"#

I9C Query !q"EPMVvf"Z;vr`v}]bD~PDE"(}]),Tc


zz(fMd{}]D~#IT4(T:Di/(e,;sKP|G,ITKP;G
z4(DVfi/,uAITTX(}]bD~KP1!i/(9C4|{Di/)#
IT7(i/*lwD}]"(fq=,T0G+dT>"r!9G"M=m;v}
]bD~#

IT9C Query S%vD~riODn` 32 vD~Pq!E"#IT!qyPVNr


;)VN,"4U#{|GZ!qDdv`MPvVD3rEP|G#IT9CG<
!qbT+D~PDyPG<|,ZdvP,2IT;!q;)G<4|,#b)&
\Md{&\ZsfBZP+j8hv#

>BSi\ Query y>E"*<,;si\9C Query ITjIDyPw*Nq(g


4("T>rKPi/),|( IBM OfficeVision*"DisplayWrite* 4 M DisplayWrite
5 C'IT9CD}]/D>O"!n#

Query/400 y>*X
53OP8v*XC4i/Mf"E"r}],TczMd{53C'IT9C|4
q!h*Da{#BPwbi\b)*X,rz5wb)*XT0|GkzM Query D
X5,"8<zN<d{vfoTq!|`E"#

Query/400 PDD~"VNMG<q=
E"r}]TwVN=i/"f"Z53O,w*f"Z}]bD~((#F.*D
~)P#D~|,tIvvpE"%*,F*G<,?vG<|,`XD}],N#
G<PD?NE"F*VN,VNDa9ZG<q=(;c;F.*q=)P(e#

1zKPi/zz(f1,Query 9CD~"VNMG<q=S}]bPq!zk*D
E"(TG<m>),"9Cb)G<zzi/(f#

}g,{* NAMEADDR D1${FMX7D~I\|,;iG<,?vG<j6;v1


$(N{Z43D<1)#?vG<P8vVN,|G|,1$D{FMX7#?vG<
PDVNI\P`F NAME"STREETADDR"CITY"STATE M ZIPCODE b){F#VNN
rIZ2F* NAMEADDR DG<q=P8(#

© Copyright IBM Corp. 2000 3


NAME STREETADDR CITY STATE ZIPCODE

Susan P Gantner 907 Abbey Hwy Mushroom Manor OR 67891

Perry C Swenson 19821 Metro Hwy. St. Paul OR 67891

Matt F Thomas 961 S 19th Ave Piney Island OR 67890

< 1. NAMEADDR D~PD}vG<(9CG<q= NAMEADDR)

IT*D~(em;vF* ZIPADDRESS DG<q=,CD~fr;Cx(e,;|,


ZIPCODE"STATE"CITY M STREETADDR VN,"TC3rEP(N{<2)
#

ZIPCODE STATE CITY STREETADDR

67891 OR Mushroom Manor 907 Abbey Hwy

67891 OR St. Paul 19821 Metro Hwy.

67890 OR Piney Island 961 S 19th Ave

< 2. NAMEADDR D~PD}vG<(9CG<q= ZIPADDRESS)

Query S!qDD~Plwzk*D}]#|9CG)D~PD3)VN(MG<q=)
Tzk*DN=!q"Er"FcMc\C}]#|2zz|,C}]Di/(f#

Query/400 PD+VZV{/ (DBCS) VN

;)zR9Cd8oPDsNDVr{EV{#TZb)}],Xk9C DBCS VN#


;c-rG,g{zDzRoT9C%VZV{/ (SBCS) V{,zDD~M;*|,
DBCS }]#ITvTNN}C DBCS }]D*zozE"#
":
1. *}7T> DBCS }],h*;v'V DBCS DA;#
2. Z Query P,T DBCS }]9CTB|{<(:
v V{}]G8 SBCS M DBCS V{}]#
v DBCS }]G8NN`MD DBCS }],|((!D DBCS M<N DBCS }]
`M#
v (!D DBCS G8*E= DBCS"q;= DBCS r(;= DBCS }]`M#

Query/400 PD UCS2 6p 1 V{/'V

UCS2 6p 1 G 16 ;<NV{`k#Z&m+rLq1,zh*\;dkM&m`v
zRoTD}]#}g,M'{FPmI\|,XkZ,;(h8O,1r!rT>
DBo"#0o""oM)zoV{#

Query/400 +<N UCS2 }]1w GRAPHIC r VARGRAPHIC }]&m#<N UCS2


VNGC UCS2 CCSID jGD<N DBCS VN#

VARCHAR M VARGRAPHIC /}ozz`4|( UCS2 }]Di/#

4 Query/400 D9C V4R5


Query/400 PD}](eoTM5CLr'V
Query ITi/9C;,D}](eoTrz74(DD~PD}]#!\TOxvD
5wJCZ53PDyPD~,+IT9CD{FrEn!vZCZ(eD~DLr
hFoTrz7(g IDDU"DDS M DB2 UDB AS/400 f)#

g{z;GLr1+k4(;vITS Query r OfficeVision i/DD~,IT9C


IDDU 4(CD~#g{3vLr1IT*z4(CD~,{I\9C IDDU"DDS M
XFoT (CL) r DB2 UDB AS/400 fLr4(CD~#<GBPBn:
v IDDU GK%}/5CLr,C4(eD~"VNMG<q=,+yPb)(ef"
Z;v}]?<P,;s4(ITC4f"}]DD~#9C IDDU (eDD~IT
P`Vq=#PX IDDU Dji,N{ IDDU Use ;i#
v }]D~5CLr (DFU) C4mS"|DM>}}]bD~PD}]#IT1S9
C DFU,r_IT(} IDDU09C}]bD~1A;PD0dk}]1!n9C|
D;)&\#PX DFU Dji,N{ ADTS/400: Data File Utility ;i#
v CL M DDS 9Ck IDDU `,DuoM5w,+9a)TD~D=S'V#9C
DDS M CL |n,IT(eM4(omD~M_-D~T5wD~PDVNa9#
omD~|,}]VNw*G<,x_-D~;|,#;vomD~nY|,;v
G<q=#omD~PDVNNr7(G<Dq=#
_-D~Tf"Z;vr`vomD~PD}]a)Km;vS<#_-D~ ;|
,}]#2MG5,_-D~Jmz4G<5JfZD==i4f"ZomD~P
DG<E"#^hZC_-S<P4F"f"53PD}]MITi4(rK,|
{* _-D~)#_-D~IT9C;vomD~PDVNS/,r8vomD~P
DyPr?VVNDiO,uA4TomD~Md{_-D~DVNDlO#,S
_-D~;\P;vG<q=,+G,S_-D~ITP`vG<q=#
| PXomD~"_-D~"CL M DDS Dji,N< CL Programming ;i#
v DB2 UDB AS/400 fLr9CX5}]#M;4yP}]ZmP<;S*VfD#Z
AS/400 53O,4( DB2 UDB AS/400 fTs"w* AS/400 TsxP,$#B
| mT> AS/400 uok DB2 UDB AS/400 fX5}]buo.dDX5:

|| AS/400 uo DB2 UDB AS/400 fuo

| b /O#Ib"U>"U>SULr"}]JdM DB2 UDB AS/400 f?<


| iI#/O+`XTsVi"JmC'4{FiRTs#
| omD~ m#I;iPMPiI#
| G< P#I;i3rPiIDmD.=?V#
| VN P#mP_P,;}]`MD91?V#
| _-D~ S<#;vr`vmDPMPDS/#

| Query/400 (e
I9Ci/S}]bD~Pq!E"Tzz(f#i/C4q!E"D;vr`vD
~T0gN&mCE"Zi/(eP(eMf"#i/(eG`M* *QRYDFN DT
s,||, Query Tz8(D==iRM9CD~T0zzz#{Da{yh*DyP
8Z#

*4(i/(e,4U;5PA;p=jI(eM#fi/(eD}L#;)(eK
i/(uA1z}Z(ei/1),4IKP|(w*i/)4zzzh*D(f#

Z1B 24G Query/400? 5


Query/400 PDb
bG53OC4f"TsD;vUd,|(zZ Query/400 P9CDi/(eMD~#
rK,1z9Ci/MD~1,I\h*8(f"i/rD~Db#

Query/400 Dw*&\
=vw0i/1A;:0i/1K%M09Ci/1A;,Gz9C Query 4Pw*N
qDpc#(N{Z73D<3#)m;vX*A;G0(ei/1A;,SboIT*
<i/(ePDyPNq#
v 0i/1K%Jmz*<9Ci/"KPi/r>}i/#9Jmz*<9CD~
r9Cl+RNq#
v 09Ci/1A;Jmz9C;vr`vi/4PX(Nq#IT4("|D"T
>"4F">}rKPi/"r!i/(er+i/}]O"(4iO)=V&m
D5P#

6 Query/400 D9C V4R5


Query menu

Files
Work with
Queries
display OfficeVision/400
tasks

Create Change Display Copy Delete Run query Print definition

Define the Query definition


Query Specify file selections
display Define result fields
Select and sequence fields
Select records
Select sort fields
Query definition Select collating sequence
Specify processing options

Report definition and output


Report definition 1. Report format characteristics
and output Format report columns
Specify report summary functions
Define report breaks and format
End the definition 2. Report output characteristics
Displayed output
Printed output
Database file output

End the definition


Run the query
Database Save the query

Displayed Printed Filed RV2N402-0

< 3. 0i/1K%M09Ci/1A;PDw*Nq

+ Query/400 }]O"=V&mD5P
g{ OfficeVision"DisplayWrite 4"DisplayWrite 5 LrICRJmz9Cb)Lr.
;,G4zIT9CCLrM Query +i/}]O"=V&mD5P#IT9CBP}
V=(+i/}]O"=D5P:
v 1SO"(OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lr)
v PmO"(vJCZ OfficeVision)
v `1>O"(vJCZ OfficeVision)

<5 T>ITC4+i/}]O"=D5PD}V=(#Z83D<4 T>yCD09C


i/1A;#

Z1B 24G Query/400? 7


9Ci/

dk!n,404P1|#

!n . . . . . . . _ 1=4( 2=|D 3=4F 4=>}


5=T> 6=1SO"
7=PmO" 8=`1>O"
i/ . . . . . . . __________ {F"4 F4 qCPm

b . . . . . QGPL______ {F"*LIBL"4 F4 qCPm

< 4. 09Ci/1A;(}]/DVO",yPq=)

OfficeVision/400
or DisplayWrite

Work with
Queries

Copy Delete

Create Change Display Direct Column list Multicopy


merge merge merge

Define the
Query
Return to
display
OfficeVision/400
or DisplayWrite

Query definition

Report layout
definition

Exit
Data/Text
Merge
display

RV2N401-0

< 5. (}1SO""PmO"r`1>O"+i/}]O"=V&mD5P

8 Query/400 D9C V4R5


(}1SO"+ Query/400 }]O"=V&mD5P
1SO""4T}]b4Pi/Tq!Zi/P(eDE",gBy>:
v TZ OfficeVision,a{i/(ff,D5;pT>ZV&mVn`-A;P#;s
zIT1S+(f(jbM}])4Fxz}9CDD5#
v TZ DisplayWrite 4 M DisplayWrite 5 Lr,1S+a{i/(f4FxD5PD
5D10Nj;C#

*9C OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lr1S+i/}]O"=z


}9CDD5P,xk Query PD09Ci/1A;r0Kv}]/D>O"1A;,
!q!n 6(1SO"),;s8(i/{Mb{#Query "4KPi/(;9C}]
VN5w),"+i/(f5X=zDD5#(f+|,yCi/(e7(D}]b
D~PD10}]#("4T}]bD~4Pi/,x;GTsr!D514Pi
/#)PX1SO"Dji,N{ Using OfficeVision/400 Word Processing ;i#

(}PmO"+ Query/400 }]O"=V&mD5P


PmO"Si/(ePq!!qDE","4(;iPm}]VN5w,b)5w+
5X= OfficeVision "T>ZVn`-A;P#(*!qCZi/(ePD?vVN4
(;v}]VN5w#);s+b)5w4FxD5P#

zIT<8;v*Z OfficeVision P9CDD5,TSUPmq=Di/}],b(}


xk Query PD09Ci/1r0Kv}]/D>O"1A;,!q!n 7(PmO
"),;s8(i/{Mb{45V#Z4B04P1|1,Query 9Ci/{iRV
fDi/(e,"y]i/P!qDVN4(X*D}]VN5w#1b)5wT>
(Z OfficeVision sf)1,I+|G4FxzDD5P#

Ts,1*Kr!&mD51,b)5wt/;vTi/(eP8(D}]bD~D
i/,"+a{i/(fTPmq=O"=D5P#bVO"}]D==+4T;v
i/DyPG<TPmq=fEZ;vD5P(k9C1SO"!n1"44PDY
w`,) #PXPmO"Dji,N{ Using OfficeVision/400 Word Processing ;iM
Z1083D:Z Query/400 P!q OfficeVision X*PmDG<;#
":
1. PmO";JCZ+}]O"= DisplayWrite 4 r DisplayWrite 5 D5P#
2. ;\9C Query DV&mC'ITK$4(S}]bq!}]h*D}]VN5w#
PXK$4(b)5wDE",N{ Using OfficeVision/400 Word Processing ;i
PD :Combining Information to Create Documents; wb#

(}`1>O"+ Query/400 }]O"=V&mD5P


`1>O"Si/(ePq!!qDE","4(;i`E/}]VN5w,b)5
w+5X= OfficeVision "T>ZVn`-A;P#(*!qCZi/(ePD?vV
N4(;v}]VN5w#);sIT+b)5w4FxD5P#

zIT<8;v*Z OfficeVision P9CDD5,TSU%vG<q=Di/}],b


(}xk Query PD09Ci/1r0Kv}]/D>O"1A;,!q!n 8(`1
>O"),;s8(i/{Mb{45V#Z4B04P1|1,Query 9Ci/{i
RVfDi/(e,"y]i/P!qDVN4(X*D}]VN5w#15wT>
(Z OfficeVision sf)1,IT+|G4FxzDD5P#

Z1B 24G Query/400? 9


Ts,1*Kr!&mD51,b)5wt/;vTi/(eP8(D}]bD~D
i/,"r!D5D`v(F1>(r`vE/rj))#*i/!qD?vG<r!
;]D51>,R?vG<|,Zi/(eP!qDyPVND10E"#PX`1
>O"Dji,N{ Using OfficeVision/400 Word Processing ;i#
":
1. `1>O";JCZ+}]O"= DisplayWrite 4 r DisplayWrite 5 D5P#
2. ;\9C Query DV&mC'ITK$4(S}]bq!}]h*D}]VN5w#
PXK$4(b)5wDE",N{ Using OfficeVision/400 Word Processing ;i
PD :Combining Information to Create Documents;#

(}PmO"M`1>O"DiO+ Query/400 }]O"=V&m


D5P
2IaOPmO"M`1>O"zz(FD5#4,I9C`1>O"zz8v;,
D(FD51>,;sTPmO"DN=+(;D}]|,Z?v1>P#bVO"
F*StPmO"#PXiOO"Dji,N{ Using OfficeVision/400 Word Processing
;iMZ1083D:Z Query/400 P!q OfficeVision X*PmDG<;#

10 Query/400 D9C V4R5


Z2B Query/400 D;cYwE"
>Bhv Query D;cYwE",gt/ Query"9Ca>MPm"gNZi/(ej
I0li|"gN9C&\|MvmV4}L#

709C Query/400
=<B. 709C Query/400 i/a)K70>},TclYl$ Query#

t/ Query/400
ICwV=(CJ Query#*9C Query,I4PBPdP;nYw:
v (}dk WRKQRY "404P1|9C09Ci/1(WRKQRY) |n#b+<BT
>09Ci/1A;#
v Z0l+RNq1(OFCTSK) K%P!q!n 3(v_'V)
#S0v_'V1A;!
q!n 2(i/)#b+<BT>0i/1K%#
v Z0l+RNq1(OFCTSK) K%P!q!n 8(v_'V)
#S0v_'V1A;!
q!n 2(i/)#b+<BT>0i/1K%#
v (}dk STRQRY "404P1|9C0t/i/1(STRQRY) |n#b+<BT>
0i/1K%#dk GO QUERY "404P1|'{`,#
v 19C OfficeVision 1,Z`-A;O4 F17,;s!q!n 1(i/)#(bZ
OfficeVision *zE"M Using OfficeVision/400 ;iPPbM)#b+<BT>09
Ci/1A;#
v 19C DisplayWrite 4 Lr1,Z`-A;O4 Ctrl + F6#!q!n 2(0q!i
/D~1!n) #bZ DisplayWrite 4 r DisplayWrite 5 ozE"PPj8DbM#
b+<BT>09Ci/1A;#

zITS0i/1K%!q9Ci/"KPi/">}i/"9CD~r4Pkl+
PXDNq#

S09Ci/1A;,zIT:
v 4("|D"4F">}"T>"r!rKPi/,g{z4T0i/1K%r
WRKQRY |n#
v 4("|D"4F">}rT>i/(e,r_IT4P1SO""PmO"r`
1>O",g{z4T OfficeVision#
v 4("|D"4F">}rT>i/(e,r_IT4P1SO",g{z4T
DisplayWrite 4 r DisplayWrite 5 Lr#

1zjI9C Query/400 1
1zjI9C Query 1,ITS09Ci/1A;4 F3(Kv)r F12(!{)Kv#

g{zS DisplayWrite 4"DisplayWrite 5 r OfficeVision LrCJ Query,IT4U


BP=(Kv Query:

© Copyright IBM Corp. 2000 11


v S09Ci/1A;4 F3(Kv)r F12(!{),r!qO"!n,;s404
P1|Kv#
v S0Kv}]/D>O"1A;!qO"!n,;s404P1|Kv

f_ Query/400 zk*24
1z9Ci/1,Query rzT>;5PA;,/J(ra>)z:
v z#{ Query S;vr`vD~Pq!NVE"
v z#{CE"Gw*(fr!rT>,9Gw*}]dv=m;vD~P
v z#{(f*NVq=

Query SzZA;OdkDD~PU/yPbVE"#

Z Query/400 P9Ca>M1!5
a>G53rz/J|h**@DE"TjIzDksD;V=(#z;h*:nd
UW;#;civB,a>uAP>yPI\D}7!n,rKz;h*dk{Oz
y4PDNqD!q#g{^(7(z&Za>&a)NVE",IT+bjF=a
>,;s40oz1|#

xR,1;vA;vV1,?Va>Q-ndC#b)5F*1!5—b)5GZz
;P8(NN5153h(D5#zITT1!5;wNN|D,g{k*xP|
D,I+bjF=a>&,;sdkm;v5!z1!5#

9C Query/400 &\|
ZNNi/A;OIf19C&\|,g04P1|"0oz1M0r!1#;x,"
;GyPD&\|(g F3"F4 M F11)<JCZyPA;#?vA;ZA;W?T>
CA;#CD&\|(I\;PT>yPICD|)#g{zk*@yPICD&\|
gNCZX(A;,+bjF=CA;PD&\|x,40oz1|#

Zr! Query/400 (f.0lia{

&\| F5((f)M F13(<V)IC4lii/(e}LP`v1dcD$wa{#


4Zi/(e}LP,IT9Cb)|i4zGqqCZ{Ddva{#g{Gb
y,rITPEDXLx(e;qr,ZLxxPB;=(e.0ITvvNNX*
D|DTq!zk*DE"#Z3)ivB,i4<VI\Hi4(f|PC;xZ
d{ivB,i4(fI\Hi4<V|PC(}g,1i/9CDD~P;PNN
}]1,IT9C F13) #

Zr!i/(f.0,G!:
v F5((f)9Cyq*9ZC(e=hMH0D(e=hP(eDyPE"4KP
i/"T>a{#a{Z0T>(f1A;PT(fq=T>#

": g{Zi/KP1 Query "V}VVNvm,I\aT>vmE",r_VN5


I\ZdvPT>*SE (++++)#SE2CZ8>;c}Mgv(1SD~Pa
!}]1"zgv)#IT8( Query vTNN}VVNms—PXji,N{
Z1713D

12 Query/400 D9C V4R5


Z1713D:Z Query/400 &mZdvT.xF}]ms;#g{Z08((f
Pq=1A;P+VN$HM/r!};}|DC+!,TB;\T>C5,
rT>GE (*****)#

1KPi/1,g{ Query "VIZ`kV{/j6{ (CCSID) ZUZ"1d


r1dAVNPrV{VNP"z*;ms,rZdvPT>SE (++++)#g{
}];OJrgv,2T>SE#

VN"8VD>"ns5"n!5"=y5M\F5IT*U5,ZA;PCF[
E (-) m>#
v F13(<V)9Cyq*9(eDyPE"T>PjbMVN<V,x;5JKP(
f#

Z0T>(f<V1A;O,X T> SBCS V{}],9 T>}V}]#10UZ"


1dr1dAGT>UZ"1dr1dA}]D;C#

g{T>!cVN:
v ;. 9 M 0,sz E +029,m>%+H}]#
v ;. 9 M 0,sz E +229,m>++H}]#
v g{}]!Z Query !qDs!($H* 4,!};* 2),G4TZ!cVNI\
2a4= 1.00#

g{9C'V DBCS DA;,Rg{T> DBCS VN,I\4=:


v ;.+VZ J,m>(;= DBCS }]#(;= DBCS VNv|, DBCS }]#
v ;.+VZ O,m>*E= DBCS(lO)}]#*E= DBCS(lO)VN|,
DBCS }]"SBCS }]rb=V}]DlO#
v ;.+VZ E,m>q;= DBCS }]#q;= DBCS VN|,+ SBCS }]r
+ DBCS }],+Z,;VN;\|,b=V}]#
v ;.+VZ G,m><N DBCS }]#<N DBCS VNv|,<N DBCS }]#

DBCS V{<CDUdG SBCS V{<CUdD=6#xR,FvV{;Z DBCS }


].0,FkV{;Z}].s#FvMFkV{F* DBCS =(EV{#<N DBCS
}];x=(EV{f"Z}]bP;+G,ZT>rr!<N DBCS }]1,T>=
(EV{#

!\zXk9C DBCS A;dkrA!|,Z DBCS VNPD}],+;X9C


DBCS A;T>9C DBCS VND(f<V#;x,<VI\;\A!#

zITi4T>Da{,7(Pd`"?vVND$HMPjbGqzzzk*Da
{#

": T>D(fr(f<V|,yq*9zy("DyPnryvD|D,|,Z4 F5
r F13 .0dkDG)Z]#

Z2B Query/400 D;cYwE" 13


r!zZ Query/400 A;P4=DZ]

zITf19C0r!1|r!;]zZNN Query A;P4=DZ]#Zi/(e}


LPzI\"Vb\PC,}g,1zZ3vA;(g0(ea{VN1A;r0!
qG<1A;)ODVNPdkm`51,za"V|DC&#ZkT>>X*Dr
!zOr!;]T>E"#

X*1,2I9C0r!1|r!&\| F5((f)M F13(<V)DT>dv#+;


\r!ZA;OT>DZ]#g{zD(fr<VHA;m,xRz;P8(9C;
P,(fnR_DZ]+;XOR;r!v4#ZbVivB,zIT9CO5&\
|+D>PF=R_,;sYN40r!1|Tq!(f`B?V(rI\T`;
c)Dr!dv#

Z Query/400 P9CPm
Query *m`A;a)KIC4jIa>Dn?Pm#b)n?I\|(:
v Z(z9CDb
v Z(z9CDi/
v Z(z9CDD~
v 8(D~DG<q=
v 8(D~DI1
v ITCZi/DVN
v *;m

Pm9z;XGd{F,2uYKI\D<kms}#

T> Query/400 Pm

IT+bjF=a>&,;s4 F4(a>)T>Pm,Sxq!3nDPm(}g,D
~PmrbPm)#"b;\ZA;OT>NNnDPm;PPmDnIa>TD;v
"b8w,5wzIT9C F4 q!Pm#

2ITZa>&dk`t{rXbb{,;s4 F4,q!n?PmDX(S/# (PX


Xbb{Dji,N{Z153D:Query/400 PDXbb{;#) ZJm`t{Da>
Pdk`t{(g ABC*)I^FPmPDn,4;!qTG)V{ (ABC) *7Dn#

ZA;Pm?VPT>Dn}Gd/D,!vZPmq=MA;a>?V9CDUd
s!#P1vV;vBA;,T>CPm# g{A;;\T>PmPyPDn,IT9
C-3|4Xv/Pm#

Z Query/400 PmP!qn

(}4PBPdP;nYw,zITSPmP!qn:
v ZPmPDZ;v;Cdk{FM!nEk#
v ZPmPn?{Tdk;vEk,1SSPmP!qCn#(}Zn?{TdkE
k1SSPmP!qn?,z-#IT!q`vn,SxZ!s?1d,R;X<
k#

14 Query/400 D9C V4R5


zITZPmPT>PXD~"G<q="D~I1rVND$"M#$"MITa
)PXZ]Ds?E"#g{*D~"G<q="D~I1rVN(eK$"M,z
IT+bjF=d{F&,;s4 F23 T>$"M#

": g{VNGa{VN,r(ea{VND{vmo=T>*$"M#

Query/400 PDXbb{

zIT*i/(e"D~r*;m8(BPNN;vXbb{TQwX*Db:
Xbb{ 5w
*CURLIB CZw5D10b#|G(;QwDb#g{;PR=NN10b,
rQw QGPL#
*LIBL w5bPmPDyPb#4U|GP>D3rQw|G#
*USRLIBL ;Zw5bPmDC'?VPDyPC'b#4U|GP>D3rQ
w|G#
*ALLUSR 53OzP(9CDyPC'b,T0zP(9CD"d{FTV8 Q
*7Dd{b#*ALLUSR ;P>T # V{*7DX( System/36 b#
4UV8NrQwb)b#
*ALL 53OzP(9CDyPb#4UV8NrQwb)b#
GENERIC* QwTGE.0DV{*7"RzP(9CDyPb#}g,zIT
8( STA* 4QwT STA *7DyPb#

g{zZba>P8( *CURLIB,Query +Q||D*10Zw5P9CDb{#T>


Cb{T!z *CURLIB#

": z;\9CTd_PXh(^DG)b#g{8(DXbb{|,z;_P(^
Db,z+;\4=CPmPz_P(^DG)bPDi/#

9C Query/400 |n
|nGC4ks53&\Dod#bb6Ez;hG!8vV{$D|n,x;XG
!yPvp5wr(Q1d9C;5PK%#

Query PDv|n,ISNN|nPdk:
v STRQRY t/0i/1K%#
v WRKQRY t/09Ci/1A;#
v 0KPi/1(RUNQRY) KPVfDi/,rzIT9C|KP1!i/#C|n2
IT6k= CL LrP,TczIT,}g,{mKP8vi/#
v 0>}i/1(DLTQRY) >};vr8vi/(e#

PXgN9Cb)|nDji,N{;i#

9C Query/400 K%
0i/5CLr1K%Jmz*9Ci/"KPH0(eDi/">}i/(er9
CD~!q Query Nq#

Z2B Query/400 D;cYwE" 15


QUERY i/5CLr

!qBPdP;n:

Query/400
1. 9Ci/
2. KPVfDi/
3. >}i/

SQL/400
10. t/ SQL/400 i/\mw

i/\m
20. 9Ci/\mm
21. 9Ci/\mi/
22. t/i/
23. Vv Query/400 (e
PP...
!qr|n
===>

F3=Kv F4=a> F9=lw F12=!{ F13=C''V


F16=AS/400 wK%
(C) COPYRIGHT IBM CORP. 1980, 1991.

g{z!q!n 1(9Ci/)"404P1|,rT>09Ci/1A;#ZCA;
O,IT8(zk*9CDi/M=(#ZZ173D:9C Query/400 D09Ci/1
A;;Pi\K9CCA;ITt/DNq,|(KPM>}i/Dd{=(#

g{zZ0i/5CLr1K%O!q!n 2(KPVfDi/),rT>0KPi/1
(RUNQRY) |nDa>A;#zIT9CK|nKPi/,"TS;vr`v}]bD
~P!qD}]zIi/(f#zIT9CK|nKPVfDi/(Z53Oy]{
F(eMf"Di/)rKP:1!;i/(4|{Rn#9C53a)D5Di
/) #g{;*@i/{rb{,9C!n 1(9Ci/)ITq!i/MbDPm#

g{zZ0i/5CLr1K%O!q!n 3(>}i/),rT>0>}i/1
(DLTQRY) |nDa>A;#IT9CK|n>}i/(e#g{;*@i/{rb
{,9C!n 1(9Ci/)ITq!i/MbDPm#

| z9IT4Pd{;tZ Query +I\k|PXrIT=cXS0i/5CLr1K%


Pf!DNq:
v g{!q!n 30 9CD~,rT>0D~1(FILE) K%#SCK%P,IT4Pk
D~`XDNq(T>"4F">}"#f"4-r`-),rIT9Ckm;v
D~`XD5CLr(g IDDU r DFU)rXmLr(g DB2 UDB AS/400 fL
r)#}g,zIT9C IDDU 4(eM4(D~,IT9C IDDU r DFU +}
]dk=D~P#
v g{!q!n 31 4Pkl+PXDNq,rT>0l+RNq1(OFCTSK) K%#
SCK%P,zIT!q9CD5rD~P"l+R2+T"OfficeVision r Client
Access#

16 Query/400 D9C V4R5


9C Query/400 D09Ci/1A;
09Ci/1A;G,19C;vr`vi/Dw*pc#9CKA;,IT!q
(rKt/)BP;vr`vw*Nq:
v 4(BDi/(e#
v |D"4F"T>r>}VfDi/(e#
v r!i/(e#
v KPi/,TcSD~P!q}]"9CC}]zI(f#
v +i/}](r}]VN5w)O"= OfficeVision"DisplayWrite 4 r DisplayWrite
5 V&mD5P#

g{z;GS OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lrxk Query D,


rzIT4PKPmP0DnyP>DyPNq#IT4("|D"4F">}rK
P;vr`vi/,rr!|GD(e#(ZZ193D<6PDA;OT>Kb)!
n#)

;x,g{Z9C OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lr1xk Query,


r;\KPi/#;\O"i/#;\r!i/(e,+ITq!(ri/)}]"
+C}]O"=V&mD5P#(ZZ83D<4PT>KICZV&mD!n,"ZZ
73D:+ Query/400 }]O"=V&mD5P;PTb)!nxPKhv#)

>iZ~?VhvKb)w*D Query Nq#Z 3 BAZ 14 BhvgN4(i/(


e,Z 15 BhvgNKPi/,Z 16 Bhvd`Nq(|D"4F"T>"r!M
>}i/(e) #

!q%vD Query/400 Nq
*9Ci/,zh*7(zk*9CDi/,"h*!qzk*4PDNq#*!q
Nq,ITZ09Ci/1A;PD!na>Pdkzk4PDNqE,r_g{T
>Ki/{Pm,ITZ Opt PPdkNqE(gZ193D<6Py>)
#IT!qTB
Nq:
i/Nq Nq5w
1=4( 4(((e)BDi/#1&mK!n1,T>0(ei/1A;,
TcIT*<(ei/#
2=|D |DVfDi/(e#K!n2T>0(ei/1A;#
3=4F 4FVfDi/(e#T>04Fi/1A;#
4=>} >}VfDi/(e#T>07O>}i/1A;#
5=T> T>i/(e,+;\|D|#
(*|Di/,!q!n 2#
)T>0(
ei/1A;#
6=r!(e r!i/(e#PXji,N{Z1893D:r! Query/400 i/(
e;#(g{zS OfficeVision"DisplayWrite 4 r DisplayWrite 5 L
rxk Query,K!n;IC#)
8=z&mKP z&mKPi/,uYKIZ;%=KPi/}pDJ4{D#(g{
zS OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lrxk Query,
rz&mKP!n;IC#)

Z2B Query/400 D;cYwE" 17


9=KP KPi/#Query T>(f"r!(fr+}]CZ}]bD~P,!
vZZi/(eP8(DZ]#PXKPi/DE",N{Z 15 B#
(g{zS OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lrxk
Query,KP!n;IC# )

*}]rD>O"!q Query/400 Nq
g{zS OfficeVision"DisplayWrite 4 r DisplayWrite 5 Lrxk09Ci/1A;,
!na>D!qG;,D,T'VIT9C Query 44PD}V}]/D>O"#gZ
83D<4Py>,TZ OfficeVision LrxT,b)V&m!n* 6(1SO")"7
(PmO")M 8(`1>O") #TZ DisplayWrite 4 r DisplayWrite 5 LrxT,
ICDV&m!n* 6(1SO")#T>O"!n,x;T>TV&mC';ICD
0r!(e1M0KP1!n(6 M 9) #PX}]/D>O"!nD5w,N{Z73
D:+ Query/400 }]O"=V&mD5P;#

8( Query/400 i/M|Db
*j6zk9CDi/,ITZi/a>Pdki/{,Zba>Pdk+*f"i
/(rQ-f"i/)Db{#r_,zITi4i/{rb{DPm,;s!qz
k*D{F—N{:!q`v Query/400 Nq;#

g{z8(Ki/{,Query Yh|QfZ,"Zba>8(DbPQw|#g{z8
(KXbb{(g *LIBL)r`tb{(g ABC*),r9Cy]8({FR=DZ;v
i/;4UV8NrQwb(*LIBL M *USRLIBL }b)
#

g{z}Z4(i/,;X|{|,}Gzk#f|)Ts9C#PX4(i/Dj
i,N{Z3B 4( Query/400 i/(e#

!q`v Query/400 Nq
g{+bjCZi/a>&,"4 F4(a>)TT>Pm,CPm+|,Zba>8>
DbPDyPi/{#;T>zTd_PXh(^DG)i/Mb#TBA;T>;
)y>i/{#

18 Query/400 D9C V4R5


9Ci/

b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm


S/ . . . . . . . . . __________ {F"`t*
(; . . . . . . . . . __________ p<V{

dk!n(Mi/),404P1|#
1=4( 2=|D 3=4F 4=>} 5=T> 6=r!
8=z&mKP 9=KP

Opt i/ Opt i/
_ __________
_ ACCTPAYFEB _ PAYROLLMAR
_ ACCTPAYMAR
_ ACCTRECFEB
_ ACCTRECMAR
_ INTFEB
_ INTMAR
_ INVFEB
_ INVMAR
_ PAYROLLFEB

F3=Kv F4=a> F5="B F11=T>D>


F12=!{ F19=B;i

< 6. 9Ci/A;(`PPm)

zITZkSPmP!qD?vi/{TdkNN!nE(1 }b) #g{!qK`vi


/,zIT4Uh*4PD$w`M!q"lO!n(1}]O"!n 6"7 M 8 IC
1,+|G}b)#}g,g{zh*KP;vi/">}m;vi/M4FZ}vi
/,IT/@PmTiRi/{,,1ZCA;O!qyP}v!n#2ITZPm
%?;Cdk!nE(|( 1)Mi/{# (g{zS OfficeVision"DisplayWrite 4 r
DisplayWrite 5 Lrxk Query,rO"!n 6"7 M 8 ;\kNNd{!n;p9C;
;N;\!qdP.;#)

zITSPmP!q 30 vi/,9ITZCA;DZ;vPm;C&dki/{M!
n#Query 4UksZPmPvVDNr&mks,WH&mZZ;vPm;C(Z!
nMi/PDdkVN)PdkD!nMi/#

1z!q`v!nRPm;|,`v{FP1(g<6Py>),PD&mNr*SO
=B,Ss=R#4 Query WH&mZns_PPyP!qDi/,;s&mZ~P,
@K`F#(;x,g{!qD!n|,+4Fr>}Di/,1R=_PG)!n.
;DZ;vi/1+T>04Fi/1r07O>}i/1A;#;s Query +_P`
,!nDyPd{i/4bVi,TcZzi$zk4PDNq# )

9C Query/400 i/Pm
1z9CPm(Zbo8i/Pm)1,Query a)8v&\ozz#TBG;)I\
T:
v *i4;,brbiPDyPi/,ITZ|Dba>PD5"ZS/a>Pdk
UWrGE (*) s404P1|#z+4=ZCbrbiPfZ"RzP(9CDy
Pi/#((}Zba>P8(b{"Xbb{ [g *LIBL]"`tb{ [9Cq=
ABC*] 8>*liD)b#
)
v *i4i/{DX(S/(O!Di),ITZS/a>Pdk`t{(9Cq=
ABC*)"404P1|#g{zAY*@}ZiRD{FD*78vV{,K&\
ITuYiRyhD1d#

Z2B Query/400 D;cYwE" 19


v *i4GqP`vb|,X(i/{,ITZS/a>PdkCi/{,"Zba
>Pdk *ALL,;s404P1|#z+4=zP(9CD"_PC{FDyPi
/#
v *+Pm(;=;vX({F,Z (;= a>PdkC{F(r{F*78vV
{),;s404P1|#K&\2ITuYiRyhD1d#
v z9IT,19Cb)nDiO#}g,zITZba>P8(;,Db{"`t
b{rXbb{,ZS/a>P8((i/{)S/5,Z(;=a>P8(X(
i/{ri/{*78vV{,;s404P1|T>Z{Di/{S/Pm#

BPwbhvKb)&\#

SPmP!q Query/400 i/{

g{z}9Ci/Pm,IT9CBP=(.;!qi/:
v IT9CPmD%?;Cdkzk4(r9CDi/{(Mb{,g{T>bP)#
(*!qVfDi/,|XkIC—N{Z223D:1zT<iRr9CX(
Query/400 i/1Dd{<GBn;#)
g{z}Z4(i/,ZdkB{F.0ITliPmTi4Q-9CKD){
F#;s,ZZ;vPm;C(ZddkVNP)dkBD{F"Z{FTdk 1#
v IT(}Zi/Tdk!n9CPmPDi/#(*!qi/,|XkIC—N{Z
223D:1zT<iRr9CX( Query/400 i/1Dd{<GBn;#
)

9C Query/400 PmS/

zIT9CS/a>i4|!Di/{Di(S/)#*K,dkj6zk*T>Di
/iD*78vV{(q=* ABC*),;s404P1|#T>;Z8(brbiPd
{FTG)V{*7DyPi/#}g,g{zZS/a>Pdk IN*,rzIT4{
ng INTEREST"INTFEB"INTMARCH"INVENTORY"INVFEB"INVMARCH Hi/{Pm#
(?
vbDi/TV83rT>#)

z2ITZS/a>P8(j{D{F(;x *) #Lx0;v>},g{zki4D;
vb|,{* INVENTORY Di/,ZS/a>Pdkj{Di/{#

g{zk5X=H0T>Dj{Pm,>}S/5(rdk * w*S/5),;sYN
404P1|#

(; Query/400 i/Pm

1i/{PmT>1,|G4V8NrT>Z?vbP#

zIT9CXb5 *TOP r *BOT (;=PmD%?rW?#g{Pm+$,ITF


/Pm(Dd;C),9PmTX(i/{*<#*K,ITZ(;=a>PdkB
PdP.;:
v Vfi/{D+?V{
v {F*7;vr`vV{

1z404P1|1,Query F/PmTc8(Dj{{F(rZX(bDPmP,_
P8(p<V{DZ;v{F)T>ZPm%?#

20 Query/400 D9C V4R5


g{;PT>bP,RPmP;Pi/{TG)V{*7,r Query +PmF/=C{
Fm&yZD;C0f"nS|D{F&#;},g{T> bP,+;Pi/{k(
;=a>PD5j+%d,r;XB(;Pm#

9P=V=(ITC4/@$i/Pm:
v IT9CO3|MB3|4X/@Pm#
v IT9C F19(B;i)xAB;vbDi/{Pm*7#

9C F11 T>PX Query/400 i/Dd{E"

1T>Pm1,zIT9C F11(T>D>)Z;T>n?{Pm(gi/"VNH)
MHT>n?{PmVT>hv?;nDD>.dP;#14 F11 1,PmP?;n?
{T+T>D>—g{Z4(r|Dn?18(KNND>#2ITT>d{E";
}g,1zT>i/PmDD>1,,1T>?vi/4(rns|DDUZ#

TBG;v>},5w19C F11 109Ci/1A;I\gNT>#

9Ci/

b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm


S/ . . . . . . . . . __________ {F"`t*
(; . . . . . . . . . __________ p<V{

dk!n(Mi/),404P1|#
1=4( 2=|D 3=4F 4=>} 5=T> 6=r!
8=z&mKP 9=KP

Opt i/ D> |D1d


_ __________
_ ACCTPAYFEB ~B]&6Jn 02-29-88
_ ACCTPAYMAR }B]&6Jn 03-31-88
_ ACCTRECFEB ~B]&UJn 02-29-88
_ ACCTRECMAR }B]&UJn 03-31-88
_ INTFEB M'J'[}{" - ~B] 02-29-88
_ INTMAR M'J'[}{" - }B] 03-31-88
_ INVFEB ~B]axbf 02-29-88
_ INVMAR }B]axbf 03-31-88
_ PAYROLLFEB ~B]\$J%(TlF) 02-29-88
PP
F3=Kv F4=a> F5="B F11=;T>{F
F12=!{ F19=B;i

4 F11 .s,yP9C F11 D Query A;ODyPPmyTz!qDq=T>,1


=zYN4 F11#

* Query/400 i/!qb
b{8>zkZDof"BDi/rVfDi/Q-f"ZDo#(g{z}Z4(i
/,;X8(b{,}GzF.#fi/#)xR,g{zZTsi/(e}LPv(
75k*#fi/,Z(eax1z9P;Nza8((i/{M)b{#

g{bGzZ;N9C Query,r+10bw*b{a)#g{z;P10b,9C
QGPL#1z8(;,Db{"Xbb{r`tb{1,Query ZzBN9CKA;1a
)C{F#?NIT9C`,D5,r_IT+||D*d{Dbrbi#(PXj
i,N{Z233D:Query/400 r*mE";#)

*i4r9Cm;vbrbPm,4PBPdP;nYw:

Z2B Query/400 D;cYwE" 21


v Zba>Pdkb{"`tb{rXbb{,;s404P1|#MaT>Cbr
biPzP(9CDyPi/DPm#g{P`vb,rZ?vbZ4V8NrP
>i/#g{8(K *ALL"*ALLUSR r`tb{,r4V8NrT>b)b>m#g
{8(K *LIBL r *USRLIBL,r4bZbPmPP>DNrT>b#
g{8(K;|,i/(e(rzTd;P9C(^)Db{rXb5,+T>;
uE",8>;PNNi/#
g{i/Pm;*U+iPP;vb};9CrF5,+T>;uE",8>Pm
I\;j{#
v +bjF= ba>P,+a>#t*UW,rdk`t{rXbb{,;s4 F4 P
>b)b#+T>zP(9CDbPm#

1zT<iRr9CX( Query/400 i/1Dd{<GBn


1zT<iRr9CX(i/1z&Kbd{<GBn#*9Ci/:
v zXk_P9CCi/(eyhD(^#zI\h*ki/yP_"\m1r#2
w\xhzXhD(^`M#PX(^`MDji,N{Z1753D:3hd{KT
zD Query/400 i/D(^;#
v zXk_P9C|,i/(eDbyhD(^#
v i/(rb);\T;\2mD==9C#}g,g{yP_}ZTi/(exP
|D,rg{53Yw1}#f|,Ci/Db,zI\h*H};ayEIT9
Ci/#g{ZT>D>Di/PmPD>M|D1dP*UW,mwi/};9
C#

Z Query/400 PT>#?q=
g{*4(r|Di/,"T AS/400 q=8(1drUZ#?r8(x!}Vt{D
}V#?,Cq=Xk{OZ0T>#?q=1A;OT>Dq=5wrVt{#*
lizXk9CNV AS/400 q=rVt{,S0!qG<1A;r0(ea{VN1
A;P4 F17#

": g{*Z9C:Ew*!}Vt{DzR.d"Mi/,rZng SUBSTR r


VALUE D/}PVtTd?D?v:EsS;Uq#

22 Query/400 D9C V4R5


T>#?q=

i/ . . . . . . : QRY1 !n . . . . . . : CHANGE
b . . . . . . : QGPL CCSID . . . . . . : 65535

9C SAA q=dkUZr1d#?,r
9CBP5hvDq=#

9CT>D!}Vt{#

i/(e5
UZq= . . . . . : *MDY
UZVt{ . . . . : /
1dq= . . . . . : *HMS
1dVt{ . . . . : :
!}Vt{ . . . . : .

404P1|Lx#

F12=!{

1z4PBPYw1vV0T>#?q=1A;:
v S09Ci/1A;|Di/,"Z AS/400 q=(;G*zDw58(DUZr1
dq=)Di/(eP8(KAY;vUZr1d#?#
v S09Ci/1A;T>i/,RUZr1dDw5q=ki/(eP8(D AS/400
UZr1dq=#?;,#
v 9C RUNQRY |nDKPZG<!q!n,RUZr1dDw5q=ki/(eP
8(D AS/400 UZr1dq=#?;,#
v Z QRYRUN }LP9CKPZG<!q!n,RUZr1dDw5q=ki/(e
P8(D AS/400 UZr1dq=#?;,#
v S09Ci/1A;|DrT>i/,r9C RUNQRY |nDKPZG<!q!
n,Ri/GC}V#?(eD,ki/;p#fD!}Vt{k10!}Vt{
;%d#
v S0!qG<1A;P4 F17#
v S0(ea{VN1A;4 F17#

AS/400 UZq=P MDY"YMD"DMY M JUL#P'D AS/400 1dq=*


HHMMSS#

Query/400 r*mE"
Query *?vC'4(M,$i/r*m#1zWN9C0i/5CLr11aT/4
(r*m,xR;)z8(KX(5r4KX(D|,aT/|Br*mD5# z;
X#D4(r|DKr*m#

zI\"b=A;WNT>1,3)A;OD;)a>Q-n4C#b)5I\GS
r*mPq!D,r* Query ZJ1D1r9Cr*ma)3)E"Tr/(eNq#

f"Z Query r*mPD5gB:


v ONZ09Ci/1A;O9CDb

Z2B Query/400 D;cYwE" 23


v ONZ08(D~!q1A;OC48(Z;vD~!qDb
v ONC48(}]bD~dvf".&Db
v Pm==(A;GT>{FMD>9G;T>{F)
v (f/<VT>mH(80 r 132)
v 10{m3r!n
v {m3rM`kV{/j6{ (CCSID)
v {m3rmMb{

&m Query/400 E"Mms


z;&#D9C Query 1vm#Query *4a>zxPXhDdk,*4"vvmE
"#zITTNN;Vivwvl&T@}ms#g{zkq! Query rz"vDNN
E"Doz,+bjF=E"P"40oz1|r F1#

I\vmD;)B~gB:
v 8(K;v4w*I\!nPvD5#
v 4;Z(9Cz8(Di/"D~rm,rD~10};9C#
v dk5.s|DKwb#

|D Query/400 i/
^[Gr*zdkKmsD5,9GzO*P;v|CD=(4q!zk*DE",
xrKZdk5sDdK"b,za"VZ Query P|DhC\]W#

g{zTZ4(r|Di/,9C F12 IT5X=0;A#g{zZA;P4 F12,r


vTCA;OyPBnryvD|D#ZA;O4 F10 +#fyPBnr|D,"rz
T>0;A#z2IT5X=0(ei/1A;"!qzk|DrmSD!n#

g{zZ"b=a{;Gzk*Da{.0(e"#fKi/,;kZ09Ci/1
A;O!q!n 2(|D)"|Di/#|Di/1,;!qh*|DD!n,;sZ
T>J1DA;1;kdkBD!qr|DmsD!q#H0(eDd{NNhCT
;P';;XXB(e{vi/#

g{z;kKv,4 F3(Kv)xk0KvKi/1A;#Z0KvKi/1A;O,
8vzGk*#fi/9GKPi/(r=_<4P),;s404P1|#.s,
g{z;P!qd{!n,rT>09Ci/1A;#4 F3 Kv Query#

24 Query/400 D9C V4R5


Z2?V (eM9C Query/400 i/(e
Z3B 4( Query/400 i/(e . . . . . . . 29 Query/400 "CKc . . . . . . . . . . 63
t/ Query/400 i/(e . . . . . . . . . . 29 Query/400 V{/} . . . . . . . . . . . 64
Z(e Query/400 i/1!q(e=h . . . . . 30 SUBSTR Query/400 /} . . . . . . . . 64
* Query/400 i/(e!q!n . . . . . . 31 DIGITS Query/400 /} . . . . . . . . 65
Z Query/400 (eA;.dF/ . . . . . . 32 VALUE Query/400 /} . . . . . . . . 65
5XA Query/4000(ei/1A;1 . . . . . 32 VARCHAR Query/400 /} . . . . . . . 66
4( Query/400 i/D<GBn . . . . . . . 32 VARGRAPHIC Query/400 /} . . . . . . 67
* Query/400 !qD~"G<MVN . . . . . 32 Query/400 PDUZ"1dM1dAGmo= . . 68
4( Query/400 i/D(iNq3r . . . . . 33 Query/400 UZ . . . . . . . . . . . 69
Query/400 1d . . . . . . . . . . . 70
Z4B * Query/400 i/8("!qD~ . . . . 35 Query/400 1dAG . . . . . . . . . . 71
* Query/400 i/8(D~!q . . . . . . . 35 Z Query/400 PT>#?q= . . . . . . . 71
* Query/400 i/!qD~ . . . . . . . . 36 Query/400 PDUZ"1dM1dAGcuKc . . . 72
* Query/400 i/!qb . . . . . . . . . 36 Query/400 PDUZcuKc . . . . . . . . 73
* Query/400 i/!qI1rG<q= . . . . 37 Z Query/400 Pu%UZ . . . . . . . . 73
* Query/400 i/!q`vD~ . . . . . . 37 Z Query/400 PvSMu!UZ . . . . . 73
T Query/400 i/9CD~ ID . . . . . . 38 Z Query/400 P+}VVN*;*UZVN . . 74
T Query/400 i/7O!n . . . . . . . . 38 Z Query/400 P9C}VUZ . . . . . . 74
}% Query/400 i/D!n . . . . . . . 38 Query/400 PD1dcuKc . . . . . . . . 75
&m Query/40008(D~!q1A;ODms . . 39 Z Query/400 PvSMu!1d . . . . . 75
Z Query/4000!qD~1A;O!qD~ . . . . 39 Query/400 PD1dAGcuKc . . . . . 75
Z Query/4000!qI11A;O!qD~I1 . . . 41 Query/400 PDVx1d . . . . . . . . . 76
Z Query/4000!qG<q=1A;O!qG<q= 42 Query/400 PDjGVx1d . . . . . . . 76
T>Z Query/4000T>D~!q1A;O!qD+? Query/400 PDUZVx1d . . . . . . . 76
D~ . . . . . . . . . . . . . . . . . 43 Query/400 PD1dVx1d . . . . . . . 76
Z Query/400 i/P,SD~ . . . . . . . . 44 Query/400 PD1dAGVx1d . . . . . 76
Query/400 i/PD,S`M . . . . . . . . 45 Query/400 PDUZ"1dM1dAG/} . . . . 76
Z Query/400 i/PgN,SD~ . . . . . . 45 CHAR Query/400 /} . . . . . . . . . . 77
Query/400 i/P,SD~Dfr . . . . . . 46 DATE Query/400 /} . . . . . . . . . . 77
Query/400 i/P,SD~D>} . . . . . . 49 DAY Query/400 /} . . . . . . . . . . 78
>}:S Query/400 i/DyP!(D~P! DAYS Query/400 /} . . . . . . . . . . 79
q%dDG< . . . . . . . . . . . . 49 HOUR Query/400 /} . . . . . . . . . . 79
>}:Z Query/400 i/P9CwD~!q% MICROSECOND Query/400 /} . . . . . . 80
dDG< . . . . . . . . . . . . . 50 MINUTE Query/400 /} . . . . . . . . . 80
>}:Z Query/400 i/P!q;%dDwD MONTH Query/400 /} . . . . . . . . . 81
~G< . . . . . . . . . . . . . . 51 SECOND Query/400 /} . . . . . . . . . 81
Z Query/400 i/P*w,SErND~ . . . 52 TIME Query/400 /} . . . . . . . . . . 82
>}:Z Query/400 i/PErND~ . . . 52 TIMESTAMP Query/400 /} . . . . . . . 82
Z Query/400 i/PT>yP,SbT . . . . . 55 YEAR Query/400 /} . . . . . . . . . . 83
Z Query/400 i/P&m*'DVN . . . . . . 56 Query/400 PDd{UZ"1dM1dAG/} . . 83
Z Query/400 i/DD~!q}LZd&m*'D Z Query/400 P*;UZq= . . . . . . . . 84
VN . . . . . . . . . . . . . . . . 57 Z Query/400 P*;}]bD~dvDUZ . . . 84
Z*<|DrT> Query/400 i/1&m*'DV Z Query/400 P*;A;rr!zdvDUZ . . 84
N . . . . . . . . . . . . . . . . 57 >} 1—Z Query/400 PS MMDDYY *;*
YYDDD q= . . . . . . . . . . . . 84
Z5B Z Query/400 P(ea{VN . . . . . 59 >} 2—Z Query/400 PS MMDDYY *;*
Z Query/400 P4(a{VN . . . . . . . . 59 YYDDD q= . . . . . . . . . . . . 84
Query/400 a{VN{ . . . . . . . . . . 60 >} 3—Z Query/400 PS YYDDD *;*
Query/400 mo= . . . . . . . . . . . 61 MMDDYY q= . . . . . . . . . . . 85
Query/400 }Vmo= . . . . . . . . . . 62 >} 4—Z Query/400 PS MMDDYY *;*
Query/400 V{mo= . . . . . . . . . . 62 YYDD q= . . . . . . . . . . . . 85

© Copyright IBM Corp. 2000 25


Z Query/400 P4(mo=D;c<GBn . . . . 86 Z Query/400 P!q53Er3r . . . . . 123
Query/400 PDPjb . . . . . . . . . . . 88
Query/400 PD$HM!};} . . . . . . . . 88 Z10B Z Query/400 P8((fPq= . . . . 125
Z Query/400 P(ea{VND>} . . . . . 89 q=/ Query/400 i/(fP . . . . . . . . 125
Z Query/400 PmSr}%a{VN . . . . . . 89 Query/400 (fPDPd` . . . . . . . . 125
Query/400 (fDPjb . . . . . . . . . 126
Z6B Z Query/400 P!q"ErVN . . . . . 91 Query/400 (fPD$HM!}; . . . . . . 126
C Query/400 !q"ErVN . . . . . . . . 91 S Query/400 (fPT%VN . . . . . . . 128
Z Query/400 P!qVN"8(d3r . . . . . 91 `- Query/400 (fPD}VVN . . . . . . 128
(e Query/400 (fPD}VVN`- . . . . 128
Z7B Z Query/400 P!qG< . . . . . . . 95 hv Query/400 (fPD}VVN`- . . . . 130
C Query/400 !qG< . . . . . . . . . . 95 Query/400 (fPD!}c . . . . . . . 131
Z Query/400 P!qh*DG< . . . . . . . 95 Query/400 (fPD';Vt{ . . . . . 131
Query/400 PDHOVN . . . . . . . . . 96 T> Query/400 (fPD:E . . . . . . 131
Query/400 PDHO5 . . . . . . . . . . 97 Query/400 (fPDs:E . . . . . . . 132
Query/400 Pw*5DVN . . . . . . . 98 Query/400 (fPDR:E . . . . . . . 132
Query/400 Pw*5DV{#? . . . . . . 98 T> Query/400 (fPDuR{E . . . . 132
Query/400 Pw*5D}V#? . . . . . . 99 Query/400 (fPDsuR{E . . . . . 132
Query/400 Pw*5DUZ"1d"1dAG# Query/400 (fPDRuR{E . . . . . 133
? . . . . . . . . . . . . . . . 99 r! Query/400 (fPDc5 . . . . . . 133
Query/400 PDU5 . . . . . . . . . . 99 f; Query/400 (fPD0<c . . . . . 133
Query/400 PDHObT . . . . . . . . . 99 Query/400 (fPDf;*!n . . . . . 133
Query/400 PDUZ"1dr1dAGHO 100 Query/400 (fPD%v0<c . . . . . 134
Z Query/400 PbTHZ (EQ) M;HZ hv Query/400 (fPDUZ/1dVN`-T
(NE) . . . . . . . . . . . . . . 100 > . . . . . . . . . . . . . . . . 134
Z Query/400 PbT IS Null (IS) M ISNOT Query/400 (fPDUZ/1dVt{ . . . 135
Null (ISNOT) . . . . . . . . . . . 100 8( Query/400 (fPD`-k . . . . . . 135
Z Query/400 PbTsZ(GT r GE)"! Query/400 (fPD`-k . . . . . . . 136
Z(LT r LE)M6' (RANGE). . . . . 100 Query/400 (fPI!D`-k^N{ . . . 137
Z Query/400 PbTPmPD5 (LIST 8(`-V . . . . . . . . . . . . . 138
NLIST) . . . . . . . . . . . . . 101 Query/400 (fPD`-V . . . . . . . 138
Z Query/400 PbT`F5 (LIKE NLIKE) 103 Query/400 (fPc\\FD`-V . . . . 140
Z Query/400 PbT DBCS LIKE(`F)M
NLIKE(;`F) . . . . . . . . . . 104 Z11B 8( Query/400 (fPD(fc\/} 141
Z Query/400 P9C`vHObT . . . . . 105 Query/400 (fPc\/}D`M . . . . . . . 141
Z Query/400 PmSM}%HO . . . . . . 107 c\ Query/400 (fPDP . . . . . . . . . 143
Z Query/400 P!q OfficeVision X*PmDG< 108 Query/400 (fPPc\5D;C . . . . . . . 143
>}:Query/400 PDX*PmO" . . . . . 108
Z Query/400 PxX*PmD`1>DfrM8 Z12B (e Query/400 (f8V . . . . . . 145
O . . . . . . . . . . . . . . . . 110 (e Query/400 (f8V . . . . . . . . . 145
(e Query/400 (fPD(f8Vq= . . . . . 149
Z8B Z Query/400 P!qErVN . . . . . 111 Z Query/400 (fPxAB3 . . . . . . . 149
C Query/400 *z7(G<Nr . . . . . . . 111 Z Query/400 (fPVFc\ . . . . . . . 149
Z Query/400 P!qz*9CDErVN . . . . 111 Query/400 (fPD8VD> . . . . . . . 150
Query/400 PDd{Er<GBn . . . . . . 114
Z13B Z Query/400 (fP!qdv`MMdv
Z9B Z Query/400 P!q{m3r . . . . . 117 q= . . . . . . . . . . . . . . . . 151
C Query/400 !q{m3r . . . . . . . . . 117 !q#{CZ Query/400 (fDdv`MMq= . . 151
Z Query/400 PhC1!{m3r . . . . . 117 Query/400 (fDdvq= . . . . . . . . 152
Query/400 P{m3rDC> . . . . . . . . 117 Query/400 (fPDPFX . . . . . . . . 152
Query/400 PD{m3rk CCSID . . . . . 118 Query/400 (fPDFXmH . . . . . . . 153
{m3rgN0l Query/400 . . . . . . . . 118 Query/400 (fP;3ODG< . . . . . . 153
!q Query/400 {m3r . . . . . . . . . 119 | T> Query/400 (fPDFXmH . . . . . 153
Z Query/400 P9C.yxF{m3r . . . . 119 (e Query/400 (fPDr!zdv . . . . . 154
Z Query/400 P9CzyZzDoT{m3r 120 Query/400 (fPDr!zh8 . . . . . 155
Z Query/400 PT(e{m3r . . . . . . 121 Query/400 (fPD=Es! . . . . . . 155
Z Query/400 P!q*;m . . . . . . . . 122 Query/400 (fPDp<P . . . . . . . 156

26 Query/400 D9C V4R5


Query/400 (fPDU9P . . . . . . . 156
Query/400 (fPDP` . . . . . . . . 156
r! Query/400 (fPD(e . . . . . . 156
8( Query/400 (fPDYQzdv2G . . 156
(e Query/400 (fDr!dvbf3 . . . 158
(e Query/400 (fPD3<M3E . . . . 159
(e Query/400 (fA}]bD~Ddv . . . 161
Z Query/400 (fP9CVfDdvD~(e 162
Z Query/400 (fP9(BDdvD~(e . . 162
8( Query/400 (fDdv}]bD~ . . . 163
Query/400 (fA}]bD~Dvc\dv 166
9C Query/400 4(Ddv}]bD~ . . . . 168

Z14B 8( Query/400 &m!n . . . . . . 169


Query/400 &m!nDC> . . . . . . . . . 169
Z Query/400 &mZdak}VVN5 . . . . . 170
Z Query/400 &mZdvT.xF}]ms . . . 171
Z Query/400 &mZdvTV{f;/f . . . . 171
Z Query/400 &mZdTyPV{HO9C{m
3r . . . . . . . . . . . . . . . 172

Z15B KvMKP Query/400 i/ . . . . . 173


ax Query/400 i/(e . . . . . . . . . 173
#f Query/400 i/(e . . . . . . . . 174
f" Query/400 i/(e . . . . . . . 174
hv Query/400 i/(e . . . . . . . 174
3hd{KTzD Query/400 i/D(^ . . 175
#f Query/400 i/1}]rD>O"i/<
GBn. . . . . . . . . . . . . . 175
KP Query/400 i/ . . . . . . . . . . . 176
ZKP Query/400 i/1*}]rD>O"8(
O"!n . . . . . . . . . . . . . . 176
ZKP Query/400 i/19C&\| F5 . . . 176
S Query/400 K%KP Query/400 i/ . . . . 176
S0KvKi/1A;KP Query/400 i/ . . 177
S09Ci/1A;KP Query/400 i/ . . . 178
9C RUNQRY |nKP Query/400 i/ . . . 179

Z16B 9C Query/400 i/(e . . . . . . 181


|D Query/400 i/(e . . . . . . . . . 181
(}4F Query/400 i/(e*<|D . . . . 181
IT Query/400 i/xPD|D . . . . . . 181
|D Query/400 i/D<GBn . . . . . . 184
|D Query/400 i/D{m3r . . . . . 184
4F Query/400 i/(e . . . . . . . . . 185
X|{ Query/400 i/(e . . . . . . . . . 187
>} Query/400 i/(e . . . . . . . . . 187
T> Query/400 i/(e . . . . . . . . . 188
r! Query/400 i/(e . . . . . . . . . 189
* Query/400 i/(er!DE" . . . . . 189
Query/400 i/(eDr!G<q=E">} . . 190

Z2?V (eM9C Query/400 i/(e 27


28 Query/400 D9C V4R5
Z3B 4( Query/400 i/(e
>Bhv4(i/(4(ei/(eTs)D}L,Ki/ICZZ AS/400 }]bP
i/;vr`vD~#>BSZ09Ci/1A;O!q!n 1(4()*<,;si
\0(ei/1A;M 11 vI\D(e=h,I9Cb)=h4(ei/r_TVf
i/(eD;?VxP|D#?v(e=hD8ZZsfZ 4 BAZ 14 Bhv#d{
?vw*NqD8ZZZ 15 M 16 Bhv#

t/ Query/400 i/(e
(}Z09Ci/1A;O!q!n 1(4(),"I!q8(#{4(Di/{4t
/i/(e#

*8(i/{,Idk#{(eDi/D{F( i/a>P),"RI8(f"Ci
/DbD{F(ba>)#r_,Ii4i/{rb{DPm,T!q#{9CDi/
{Mb{#

}g,I+ CUSNAMQRY 8(*+CZi/ CUSTNAME D~Di/(eD{F#g{;P


8(b{,r+i/f"Zba>j6DbP(Z>>}P* QGPL b)#

9Ci/

dk!n,404P1|#

!n . . . . . . . . _ 1=4( 2=|D 3=4F 4=>}


5=T> 6=r!(e
8=z&mKP,9=KP
i/ . . . . . . . . __________ {F"4 F4 qCPm
b . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{

g{*4(i/((e),;X|{|,}G#{+d#f)Ts9C#(;PZ#f
i/s,|EZ53Ow*i/TsfZ#)g{z75*|{|,9C|{TsD}
#fr,|q-:

i/{XkTV8(A A Z"$"# r @)*<,dsIzn`EvV8V{(A A


Z"0 A 9"$"#"[@0000]". r _)#

": *Z`oT73P9CKi/,9C A-Z r 1-9#

© Copyright IBM Corp. 2000 29


r* AS/400 53O53a)Ds`}TsT Q *7,yTzDi/{;&T Q *
7#

g{+bjEZi/a>O"4 F4(a>)T>Pm,|+|,Iba>8>DbPy
Pi/D{F#IZi/a>Pdk`t{,;s4 F4 TC=O!DPm#T>Pm
1,`t{T>ZS/a>P#

4(i/1,!qB{F.0IliKPmi4Q-9CK24{F#ZZ;vPm
;C(ZddkVNP)dkB{F,"Z|T_dk 1#

PXZ09Ci/1A;O9CPmDji,N{Z193D:9C Query/400 i/P


m;#

Z(e Query/400 i/1!q(e=h


Z09Ci/1A;O8(!n 1(4()1,rzT>0(ei/1A;(m;vX
|A;),ZCA;OI!q(ei/yhD 11 v(e=h(!n)PD;v"8v
r+?#

zh*!qD(;(e=hG 8(D~!q#;X!qyPb)(e=h—v9Cz
h*DG)#s`}=h;X4X(3r44P(d;Zh*9Cs`}=h1(i
9CT>D3r)#z!qD?v=h<G@"D}L,|ZX*1rzT>;vr`
vA;#

(ei/

i/ . . . . . . : !n . . . . . . : 4(
b . . . . . . . : QGPL CCSID . . . . . : 37

dk!n,404P1|#4 F21 +!#


1=!q

Opt i/(e!n
1 8(D~!q
_ (ea{VN
_ !q"ErVN
_ !qG<
_ !qErVN
_ !q{m3r
_ 8((fPq=
_ !q(fc\/}
_ (e(f8V
_ !qdv`MMdvq=
_ 8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!

0(ei/1A;G*<(ei/DwA;#

ISKA;!q(e!n,;c45;vj{Di/(eIDvw*?ViI:
v 0yv!n(ei/>m,|(*i/DD~"CZ?vD~PDVNM*!qD
G<#
v SB4D}v!n(e(fDb[,|(*TD)Pc\T0N1(9C(f8
V)c\#
v 9}Z~v!n(e(fdv?DX,T0Z+|"MA?DX1*9C245#

30 Query/400 D9C V4R5


v nsD!n(egN&m}VFca{,T0ZV{VN*;ZdGqJmf;V
{#

* Query/400 i/(e!q!n
*SZi/(e!nPPPvDG)!nP!qz#{9CD!n,Z?v!nTD Opt
(!n)PPdk 1,;s404P1|#;sp;T>z!qDG)!nDA;,T
cI4(i/(eDG)?V#

TBG?v(e=hDrLhv#
8(D~!q
K!nGXhD,|CZ8(z#{i/SPqCE"D;vr`vD~#g
{8(`vD~,rT>;)A;,Zb)A;O8(z#{gN,SD~#
(ea{VN
9CK!n(eD~P;fZ+#{Zi/P9CDVN#}g,z!qDD
~|,m>GZ}DVN,+|;|,m>l}DVN,xz4#{(fT>
l}x;GGZ}#zI(e#fFca{Da{VN,|9CGZ}47(
l}#
!q"ErVN
9CK!n(S!qDD~Ma{VN)!q#{vVZ(fPDVN#98
(#{|GT24NrvV#
!qG<
g{#{Z(fPv|(X(G<,9CK!nS;vr`v!qDD~P!
qG<#
!qErVN
9CK!n8(y]D)VNEr,TcTX(NrT>dvG<(g4V8
m3r"5rr}r)#
!q{m3r
9CK!n*i/!q{m3r#z!qD{m3rI0li/Pm`;,D
hC,|(G<!qMErG<1DG<3r#C{m3r(#kzDzRo
TPX#9I*X(Di/8(;,DoT#IZ(eZ;vi/1hC{m
3r1!5,SKTs;XYN|D{m3r#
8((fPq=
9CK!n|D(fPvVDVNDPjb"Pd`"}V`-"$HM!}
;}#
!q(fc\/}
9CK!n*(fPD?vVN8(;vr`v(r+?)`MDc\/}:
\F"=y5"n!5"ns5MF}#
(e(f8V
9CK!n8(gN+(f8V*G<i#
!qdv`MMdvq=
9CK!n8(GT>9Gr!dv,rG+d"MA}]bD~#g{#{
r!dv,9*8(r!ztT#99CK!n8(G*j8dv9Gvc\
dv#

Z3B 4( Query/400 i/(e 31


8(&m!n
9CK!n8(G#{XO9Gaki/FcDa{"Gq#{vT.xF}
]ms,r_Gq#{vT*;ZdDV{f;/f#

I8(;v"8vr+?T>D!n#*!q+?,4 F21#

Z Query/400 (eA;.dF/
TZ?v!qD!n,Query +*zT>C=hD(eA;#
(Z0(ei/1A;OT
?v!nT>DDVkTC(e=hT>DZ;vA;Djb%d#)ZA;O8((
e5s,404P1|+d|(xi/(eP"43rxkB;vA;#Zh*43
rsK1,4 F10(&m/0;A)#fZA;OdkDZ],;sT>0;vA;,
r4 F12(!{)vTZA;OdkDZ],;sT>0;A;#

Z/@jyPh*D!n.s,404P1|5XA0(ei/1A;#;sI!q
|`D!n"|D!qr_axKi/D(e#

5XA Query/4000(ei/1A;1
5XAKA;1,Query +Z_Pk53a)D(1!)5;,D10(e5DyPG
)(e=hTT>;v > {E#g{z*|DrT>Vf(e,iv2Gby#

mb,g{z4(r|D(e,rT>;uE",a>z4 F3(Kv)T#fi/|D
M/rZK1KPCi/#4 F3 1,T>0KvKi/1A;,byI8(=v!n#
(g{#{Hi4r|D`v(e=h,Is0fGyZ?v!nT_dk 1,;s4
04P1|#)

g{z9CD!nPPNN(ems,Zz5XAKA;1+4`vAb)!n;Z
9C0Kv1|0&|}b)ms#

4( Query/400 i/D<GBn
TBG4(i/Da>n"a>M<I#

* Query/400 !qD~"G<MVN
Query I9CC IDDU"DDS r DB2 UDB AS/400 fLr4(DD~#PXD~i
| /D5w,N{ IDDU Use ;i#

4(i/1,g{;P!q"Eri/*(fDVN,Query +!qTBn?:
v TZ(f,BPn?D0 500 v:
– Z0!qErVN1A;O!wErVNDVN,4|GZCA;OvVD3r
– a{VN,4Z0(ea{VN1A;O(e|GD3r
– ZG<q=P Query I9CDVN,4|GZb)G<q=PvVD3r(WH
GZ;vD~!qPDG)VN,SEGZ~vPDG)VN,@K`F)
v TZ}]bdv:
– G<q=PD+?}]
– Z0(ea{VN1A;O(eDa{VN

32 Query/400 D9C V4R5


| TZ}]bdv,nsG<$H^F* 32 766 VZ(g{d$r'VU5DVNGC
| G<D;?V,r* 32 740 VZ)
#Z3)ivB,nsG<$H+!Zb)^F5#

4( Query/400 i/D(iNq3r
TBG4(i/D(iNq3r:
1. Z!q"ErVN.0(ea{VN#
2. Z!q"ErVN.08(CZ!qG<DHO#
3. !q"ErVN,"ZXBq=/P.08(ErVN#
4. Z(e(f8V.0!qErVN#
5. ZXBq=/P.00.s4 F5 i4i/a{,"4 F13 i4(f<V#

I9Ci/T}]D~PDG<lYEr#vk!qErVN,!q}]bw*dv
h8,"8(dv}]b{#

Z3B 4( Query/400 i/(e 33


34 Query/400 D9C V4R5
Z4B * Query/400 i/8("!qD~
>BhvgN!q"9C;vr`vCZi/E"D}]bD~#8(D~!q
(0(ei/1A;ODZ;v!n)GICZ(ei/D 11 v=hPZ;v#K=
h|(8((r|D)#{*i/!q24D~"i4Q-!qK24D~T0Z!
q`vD~18(,SXT#K=h9JmzZX*1!qb)D~DD~I1MG
<q=#
":
1. d;>Bw*kT4(i/(eNqV[K=h,+dPs`}E"2JCZ|D
rT>Vf(eDNq#
2. g{4(i/,r53Q-*0(ei/1A;OD8(D~!q!na)K 1,R
;\+|}%#bGZ4(i/1XkZ(e}LP!qD(;!n#
3. g{|DK=hPDNND~!q5,Query +T<#tC(ePT;P'DNN?
V#}g,g{*S(eP}%DD~VN2fZZ*mSDD~(w*f;)
P,+#tCVNZ(eDd{?V(gEr(e?V)PD9C#(+G,z&
7(f;D~PDCVNGq|,zh*DGVE"# )

kD~!q}LPXDA;|(:
v D~!qA;(CZ;vr`vD~):
– 8(D~!q
– !qb(I!)
– !qD~(I!)
– !qI1(I!)
– !qG<q=(I!)
v D~,SA;(vCZ`vD~):
– 8(,S`M
– 8(gN,SD~

* Query/400 i/8(D~!q
D~!q}L|(!qi/+SdP!C}]D?vD~,T08(|,D~"D~
I1MG<q=Db(r_9CCA;Z;NvV1I Query a)D5)
#g{!q`
vD~,C}L9|(8(D~,SXT#

Z0(ei/1A;O!qK(e=h"404P1|r F21(+!).s,z4=D
Z;vA;G08(D~!q1A;#

© Copyright IBM Corp. 2000 35


8(D~!q

dk!n,404P1|#4 F9 8(=SD
D~!q#

D~ . . . . . . . . . . __________ {F"4 F4 qCPm


b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm

W?
F3=Kv F4=a> F5=(f F9=mSD~
F12=!{ F13=<V F24=d{|

08(D~!q1A;CZ8(#{i/D;vr`v}]bD~,TqC(fPh
*D}]#zI8(T`o 32 vD~xPi/,"RI*?vD~8(;v(;D 3
vV{j6{#(g{h*+D~kTm,S,2I8(,;vD~=N;g{by
v,Zi/(eP+dw*=vD~4Fc#}g,zI\8(,;D~=N,+9
C=V;,DG<q=#)

g{z*4(r|Di/(e,&jI;vD~!qyhD+?E"E\*<B;v
D~!q#Query +y]zdkD5M4D|T>zh*DA;#?vD~!qPDa
>3r*:D~"b"I1MG<q=#(g{4jID~!qPDyPE",G4Z
za)XhDE"0P8v F |;apwC# )

?vD~!qiZZ;NT>1,+Z|Da>PT>BPXb5:*FIRST(CZI
1MG<q=)M *ID(g{T>D0,rCZD~ ID )
#1z404P1|1+|D
b)5Md{zI8(D5(g,TZbI8( *LIBL);|G|D*KPi/1+9
CD5J5#I1{DXb5;d#

ZZ;vD~!qiD ba>PT>Du<5GZ0;i/(eDD~!q=hP9
CD5#TZd`DD~!q,u<5kZZ;iP9CD5`,#

* Query/400 i/!qD~
*!qD~,+bjFAD~a>"dkD~{#

g{#{SD~{Pm!qD~,I4 F4(,1+bjEZD~a>P)
#T>0!q
D~1A;,IZKA;O*i/!q;vr`vD~#

": g{Z4 F4 .0D~a>*UW,IS0!qD~1A;!q`vD~;g{|


;GUW,;\!q;vD~#

* Query/400 i/!qb
r*z*!qDD~I\Z;,DbP,I*?vD~!q8(;,Db{"`tb
{r_Xbb{#

36 Query/400 D9C V4R5


v g{ZKa>Pdk`tb{(9Cq= ABC*)r_Xbb{"404P1|,+Z
CbiPQwD~a>P|{DD~#g{ZdP;vbPR=CD~,CbD{
F+f;Xbb{r`tb{#
v g{dk`tb{(9C ABC* q=)rXbb{,;s+bjEZKa>P4 F4,
Z0!qb1A;O+T>8(Db{Pm#ZSPmP!qyhDb"404
P1|s,5XAKA;,xR!qD{FQn4C#PXb)Xbb{DbM,
N{Z153D:Query/400 PDXbb{;#

g{kT;vD~!q8( *CURLIB w*b{+;P10b,QGPL +f; *CURLIB


5#

* Query/400 i/!qI1rG<q=
`FX,TZ?vD~!q,g{#{SI1rG<q=PmxP!q,+bjFA
Ca>&"4 F4 i4`XDA;,!q#{CZCD~DI1{(rq={) #;sZ
z5XA08(D~!q1A;1,+Za>PT>C{F#g{;P!qI1{,
Query +ZI1a>Pa) *FIRST#g{;P!qq={,Query +bvXbD1!5
"Zq=a>Pa)Z;vq={#

* Query/400 i/!q`vD~
g{#{*i/|(=SD~,?Nh*m;vD~!q14 F9(mSD~)
#g{*
Ki/jIK0;D~!q,rT>BD;ia>)zn4;D~a>*UW,xd
(+G,g{;PT3vD~!qndD~{,4 F9 +
{a>T>zI|DD1!5#
bjFAUWDD~a>&x;Gxza);vBDD~!q#)

8(D~!q

dk!n,404P1|#4 F9 8(=SD
D~!q#

D~ . . . . . . . . . . EXAMPFILE {F"4 F4 qCPm


b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
D~ ID . . . . . . . . T01 A-Z99"*ID

D~ . . . . . . . . . . __________ {F"4 F4 qCPm


b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
D~ ID . . . . . . . . *ID A-Z99"*ID
W?

F3=Kv F4=a> F5=(f F9=mSD~


F12=!{ F13=<V F24=d{|

g{ZKA;O9C`vD~,I9C-3|ZD~!qPmP0sF/#g{4 F18
(D~),2IT;,Dq=i4KE"#F18 +zxA0T>D~!q1A;,"T
>10ZKi/(eP(eDyPD~DD~{"b"D~I1"G<q=MD~ ID#

Z4B * Query/400 i/8("!qD~ 37


g{Z8(gN,S`vD~.0T<Kv08(D~!q1A;,Query +Yh,S
`M* 1(%dDG<),"T>08(gN,SD~1A;TczI8(X*D,S
bT5w#

T Query/400 i/9CD~ ID

!q`vD~1+9CD~ ID#d; Query *?vD~!q8(D~ ID 5,+zI


8(T:Dj6{#

": 4(i/1,;TZ;vD~!qT>D~ ID a>#+G,g{!q`vD~,


+a4= Query Q8(5 T01 w*Z;vD~DD~ ID#g{*8(zT:DD
~ ID 5,XksK"|DCD~ ID#

D~ ID Jmz(;j6_P`,{F+Z;,D~PDVN#I8(;A}vV{;
Z;vV{XkGV8"$"# r @,ns=vV{ITGV8"}Vr_ $"# r
@#P'j6{D>}*:A"B"B03"AEX M $99#

": g{*4(V"Ad{53r_CZ`oT73PDi/,v9C A-Z M 1-9#

g{;P8(D~ ID(4;P|DD~ ID a>PD5 *ID),Query +Q5 *ID b


v*D~!qDEk,g{49CD0,rbv*Z6' Tnn PICDn!I\5,d
P nn G;vS 1 A 32 D5#

d;Z08(D~!q1A;O*?vD~8(KD~ ID,+;XZi/(eDd{?
VP9C|G,}Gzh*ZCi/D`vD~P9C_P`,{FDVN#TZ`
,DVN{,?NXk9CD~ ID,T7#9CKb)D~PD}7VN#TZyPd
{VN{,(4vZCi/(eD;vD~PvVDG)VN{),;X9CD~ ID#

g{v(|DD~ ID,Query +#tQ*VN!q"ErVN!qH8(DNN(e


5#(g{9CK ID,XkT,SbT"a{VNmo="G<!q5M8VD>|D
)+G,g{+D~ ID F/Am;v!qi,yPz8(D(e5<+*',
C ID#
49Z4M?jD~!qPDyP{Fj+`,2;}b#

T Query/400 i/7O!n
Z4(i/(e1,za4=;uE",*szi$U(eD5#KE"Z(eD~
!q5s404P1|1vV#&i$=K*9!qD!n,;sLx!qD~r_
Z7O!q.saxD~!q}L#*axD~!q,YN404P1|#

1|DVfDi/(e1,404P1|sa4=;,DE","4`T>z|DD
5#&YNi$|D,;sZ~N404P1|TcZ(eP5J|D|G#g{;
PxP|Dr_g{v|DI1{,;X4=N04P1|#

}% Query/400 i/D!n

;\G4(9G|D(e,g{zv(;#{Z(eP#tdP;vD~,I>}D
~a>}%|#Zz404P1|r_ F5"F10 r F13 1,+}%CD~!q#

}%D~!qI\aZ(ePd{X=<Bms#g{z}%DD~CZ,SbTr
_}%DD~PD3vVNCZ(ea{VN,ra"zbViv#

38 Query/400 D9C V4R5


&m Query/40008(D~!q1A;ODms
ZBPivB,404P1|"F5"F10 r F13 s+T>vmE"#
v g{;PdkD~{
v g{dkKD~{,++CD~Db"I1rq=a>PDNN;v#t*UW
v g{zdkD3v5PJb

+bjEZUWa>r_vmDa>O,vVDE"hvPXCa>Dms#}g,
zI\dkKz^(9CDD~{#

g{P`vms,Z|}Z;v.s+a4=B;vms#

Z Query/4000!qD~1A;O!qD~
0!qD~1A;T>D~Pm,SCPmI!q;vr`vD~T)zDi/q!
}],r_I!q;vD~TSUi/Ddv#g{+bjEZA;DD~a>O,
;s4 F4(a>),rT>KA;#
(KA;vZz4(r|Di/(e1vV#
)TB
G0!qD~1A;gNT>D>}#

!qD~

D~ ID . . . . : T01

b . . . . . . . . . CUSTINV {F"*LIBL"4 F4 qCPm


S/ . . . . . . . . __________ {F"`t*
(;= . . . . . . . __________ p<V{

dk!n(MD~),404P1|#
1=!q

Opt D~
_ FILE1
_ CUSTMAST_1
_ CUSTMAST_2
_ CUSTMAST_3
_ EXAMPFILE1
_ EXAMPFILE2
_ INVMAST
_ TESTFILE_A
_ TESTFILE_B

F4=a> F11=T>D> F12=!{ F24=d{|


W?

ZCA;D%?,I\vVr_;vV{*D~ ID DVN#v1zS08(D~!q1
A;xkK&"ZGUWDD~a>P4 F4(a>)1,ET>D~ ID VN#g{T
>D~ ID,r|GZ0;A;ObjyZDD~!qiDD~ ID#

g{D~a>*UWRZ08(D~!q1A;O4K F4,G4KA;O+;T>D~
ID VN,xzIZK&!q`vD~#g{D~a>P;vD~{r_PIq!SPm
D`t{,"RZ08(D~!q1A;O4K F4,G4D~ ID VNZKA;OT>
* Tnn,Rz;\!q;vD~#

g{S0(e}]bD~dv1A;r08(St5^({1A;xk,ZKA;O
;\!q;vD~#

Z4B * Query/400 i/8("!qD~ 39


KA;ODPm|(T>ZA;%?DbPD+?D~(zh*Tb)D~PX*D
(^)#g{S08(D~!q1A;xk,CbGZ4 F4 P>KPm1bjyZDD
~a>BDba>P8>DGvb#g{Z08(D~!q1A;O+;v`tD~
{(9Cq= ABC*)8(*D~{,ZKA;O+dCwS/5,x;PTG)`tV
{*7DD~{E|(ZCPmP#(IZKA;O8(m;vS/5T|DT>DS
/#)

I9Cba>i4fZZm;vbrbiPDD~#

g{#{SbPmP!qX(b,+bjEZba>P4 F4#T>DPmv|,zP(
9CDb#
v g{Za>|,b{"*LIBL rUW14 F4,+4=Z *LIBL bmPDb#
v g{Za>|,`tb{rNNd{Xbb{14 F4,z+4=C5m>Dbi#

g{;#{r;h*i4bPm,dkb{"`tb{(9Cq= ABC*)r_TBXb
b{.;:*CURLIB"*LIBL"*USRLIBL"*ALLUSR r *ALL#

": g{dk *CURLIB R;P10b,r9C QGPL#

ZA;%?D b a>Pdk5s,404P1|rT>CbPzP(9CDD~P
m#

g{dkK`tb{rXbb{,+ZA;OT> bP,TcI7(X(D~$tZ
DvbP#

!qD~

b . . . . . . . . . CUST* {F"*LIBL"4 F4 qCPm


S/ . . . . . . . . __________ {F"`t*
(;= . . . . . . . __________ p<V{

dk!n(MD~kb),404P1|#
1=!q

Opt D~ b Opt D~ b
_ __________ __________
_ CUSTMAST_1 CUSTINV _ CUSTRELFEB CUSTREL
_ CUSTMAST_2 CUSTINV _ CUSTRELJAN CUSTREL
_ CUSTMAST_3 CUSTINV _ CUSTRELMAR CUSTREL
_ EXAMPFILE1 CUSTINV
_ EXAMPFILE2 CUSTINV
_ INVMAST CUSTINV
_ TESTFILE_A CUSTINV
_ TESTFILE_B CUSTINV

W?
F4=a> F11=T>D> F12=!{ F24=d{|

g{T>KbP,IZba>P8(b{"`tb{MXbb{,|GkdkD!n
EMD~{;pjI;vD~!q#g{Zba>PdkK`t{rXbb{,|+
;bv*Z8(DbiP|,_PC{FDD~DZ;vb{#

*i4!;cDD~{i,+bjFAS/a>,dk*7DV{,szGE (*) Tj
6#{i4Di,;s404P1|#+T>Z8(bPD~{TG)V{*7Dy
PD~#(g{;P9C *,vT>_P8({FDD~#)

*5XAD~{Dj{Pm,>}Ka>(rZdPdk;v *)"404P1|#

40 Query/400 D9C V4R5


*F/((;)D~{PmTc|SX(D{F*<,+bjFA(;=a>,"d
kZ{D~{PD+?V{r_;vr`vp<V{,;s404P1|#(;*ZK
)g{Zba>P9CKX(Db{,Query +F/CP
a>PDp<V{.smS *#
mTcT>DZ;v;C|,TzdkDV{*7DZ;vD~{#

g{PmP;PTG)V{*7DD~{,Query +F/PmAC{F&vVD;C.
0nS|D{F&#g{Zba>P9CKXbb{r`tb{,v1(;=a>5
j+k{vD~{%d1EXB(;Pm#

9C F11 ZvT>D~{Pmk,1T>D~{MhvD~DD>DPm.dP;#

R=h*DD~.s,Z?vD~{(g{Jm`vD~{D0)T_dk 1,|(Z
Pm%?;CDD~{#g{*!q`vD~,n`I!q 32 vD~,|(G)H0
Q*Ki/!qDD~#"bg{9CK,S_-D~,;\!qYZ 32 vD~,r
*CZ,S_-D~PD?vD~<w* 32 vD~PD;v4F}#}g,g{+}
vomD~,Sx;v,S_-D~P,r+K,S_-D~1w}vD~x;G;
vD~4F}#

xPD~!q.s,404P1|5XA08(D~!q1A;#z!qDyPD~
<mS=H0Q-fZDD~!qP(g{PD0)#(WHndNNQ>}DD~!
q,"y]h*ZsfmSBDD~!q#)b)D~4U|GZ0!qD~1A;O
y_PD`,3rmS,?vD~<PT:D;iD~!qa>#2*|G8(D~ ID
T%dD~!qEk,r_g{CEkQ;<C,r*|G8(Z6' T01 A T32 P
ICDn!I\5,K52I|D(g{#{D0)#

Z Query/4000!qI11A;O!qD~I1
+bjEZA;DI1a>O"4 F4(a>)1+T>0!qI11A;#0!qI
11A;T>;vI1Pm,"Jmz!q;vI1)i/SPq!}],r_!q
;vI1TSUi/Ddv#KA;vZz4(r|Di/(e1vV#

Z4B * Query/400 i/8("!qD~ 41


!qI1

D~ ID . . . . . : T01
D~ . . . . . . . : EXAMPFILE1
b . . . . . . . : CUSTINV

dk!n(MI1),404P1|#
1=!q

Opt I1
_ __________
_ EXAMPMBR1
_ EXAMPMBR2
_ EXAMPMBR3

W?

F11=T>D> F12=!{

g{S08(D~!q1A;r08(St5^({1A;xk,I8(#{i/S
DvI1q!}]#g{S0(e}]bD~dv1A;xk,I8(#{+i/}
]ExDvI1P#

g{S08(D~!q1A;xkK&,rZA;D%?T>D~ ID VN#D~ ID G
ZD~VNPT>DGvD~DD~j6{#KD~Gz#{*d!qI1DGvD
~#bVNT>f"CD~Db#

10fZZA;%?yT>D~PDI1D{FT>ZI1PP#IZI1s_D Opt
PPdk 1,r_ZPmDZ;v;CPdkI1{("Z|T_D Opt PPdk
1),4!qI1#g{Z%?;CP8(;vI1{,CI1K12XkfZ#g{
8( *FIRST r *LAST,Z0;A;ODI1{+|D*C5#by,Zi/KP1f
ZZCD~PDZ;vrns;vI1MG9CDI1#g{S0(e}]bD~d
v1A;xk,2IZCPmDZ;v;CP8( *FILE#

I9C F11 ZvT>I1{Pmk,1T>I1{MhvI1DD>DPm.dP;#

Z0!qI11A;O404P1|1,z8(DI1+T>Zz5XADA;OD
I1a>P#g{;P!qr8({Fx5XA0;A;,T0DI1{r5#V;
d#

Z Query/4000!qG<q=1A;O!qG<q=
+bjEZ08(D~!q1A;Dq=a>O"4 F4(a>)1+T>0!qG<q
=1A;#0!qG<q=1A;T>;vG<q=Pm,SCPmI!qz#{i
/+dCZ!(D~I1DG<q=#KA;vZz4(r|D(e1vV#

42 Query/400 D9C V4R5


!qG<q=

D~ ID . . . . . : T01
D~ . . . . . . . : EXAMPFILE1
b . . . . . . . : CUSTINV

dk!n(Mq=),404P1|#
1=!q

Opt q=
_ __________
_ EXAMPFMT1
_ EXAMPFMT2
_ EXAMPFMT3

W?

F11=T>D> F12=!{ F23=$"M

ZCA;D%?,D~ ID VNT>vVZD~VNPDD~DD~ ID#KD~Gz#


{*d!qG<q=DGvD~#bVNT>f"CD~Db#

I*T>ZCA;%?DD~!qDG<q=D{FT>Zq=PP#IZG<q=
s_D Opt PPdk 1,r_ZPmDZ;v;CPdkG<q={("Z|T_D
Opt PPdk 1),4!qG<q=#

g{Z%?;CP8(;vG<q={,CG<q=K12XkfZ#g{8(
*FIRST,Z0;A;ODq={+|D*CD~PZ;vG<q=D5J{F#PI
\3)G<q=;\CZX(DD~I1,+Z&m08(D~!q1A;.0;\
7(bc#

I9C F11 ZvT>G<q={Pmk,1T>G<q={MhvG<q=DD>DP


m.dP;#

Z404P1|1,z5XA08(D~!q1A;,z!qDq={T>ZxkK
&y4TDq=a>P#g{;P!qr8({Fx5XA0;A;,T0DG<q
={r5#V;d#

T>Z Query/4000T>D~!q1A;O!qD+?D~
1zZA;O4 F18(D~)(F18 P>ZA;W?)1+vV0T>D~!q1A;#
0T>D~!q1A;T>z!qCZi/DyPD~#TZ?vD~,KA;T>
D~ ID"|,CD~DbM+*9CDD~I1MG<q=#KA;ODE"vwN
<;;\ZK&TdxP|D#

Z4B * Query/400 i/8("!qD~ 43


T>D~!q

ID D~ b I1 q=
T01 EXAMPFILE1 CUSTINV *FIRST EXAMPFILE1
T02 EXAMPFILE2 CUSTINV *FIRST EXAMPFILE2

W?
404P1|T>,SbT#

F12=!{

g{T>`vD~!q,I404P1|T>,S`MMb)`,D~D+?,Sb
T#+G,g{zS08(D~!q1"0|DD~!q1"08(,S`M1r
08(gN,SD~1A;xkKA;,404P1|+5XA0;A;#F12 M04
P1|(;G F18)ICZZ0T>,SbT1A;MKA;.dP;#

Z Query/400 i/P,SD~
9C08(D~!q1A;!q#{CZi/DyPD~.s,g{!qK`vD
~,Xkf* Query Z9Cb)D~SdVNPq!}]1gN,S|G#9CTB=
vA;*zDi/8(yP,S5w:
v 08(,SD~`M1A;Jmz8(#{9CD,S`M#P}V=(IC4,
SD~,Tc!qh*DG<#
v 08(gN,SD~1A;Jmz8>CZ,SD~DVN#8(*9CD)V
N,T0gN+|Gkd{D~PDVNxPHO#

TZ*!qDG<, yPb)D~D,S5wCZ7(Zi/,SD?vD~PGq
fZ%dDG<#TZ?v8(DD~,1!q4HODVNZ]kZ08(gN,
SD~1A;Oa)DbTu~%d1,mwfZ%d#!vZGqfZ%dT0Z
KA;O8(D,S`M,!qG<"+dCZdvP,bIZ08(gN,SD
~1A;OxvDd{,S5wMZ0!qG<1A;OxvDG<!q5w7(#

1 Query 7(S8(DD~P!qG<1,|+9CyPVNPD}]M*Ci/!q
DD~4zI;vdvG<#KdvG<|(Zi/(frdv}]bD~.P#

44 Query/400 D9C V4R5


Query/400 i/PD,S`M
8(,S`M

dk!n,404P1|#

,S`M . . . . . . . . . . 1 1=%dDG<
2=9CwD~D%dG<
3=9CwD~D;%dG<

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

P}V`MD,S,r_P}V=(IS8(DD~!q%dDr;%dDG<#z
IT:
v v!qZyP8(DD~PP%dG<DG<#
v !q+?wG<,,1|(yP%dDNG<#wG<fZZwD~P#wD~G
Z08(D~!q1A;O!qDZ;vD~#NG<fZZND~P#ND~G
Z08(D~!q1A;OZwD~.s!qDyPD~#jI,S.s,&CG
<!qbT(g{PD0)T7(!qD)G<#
v v!q_P;vr`v;%dDNG<DwG<,,1|(yP%dDNG<#

yP}V`MD,S<9CZ08(gN,SD~1A;O8(D`,,SVNM,
SbT#|G2+T`,D=(9Ci/(ePDd{5w4!qG<"zIdv#

g{#{9CwD~PD?vG<,9CZ~v,S`M(`M 2),x;\|ZND
~PGqP%dG<#

g{#{i4wD~PDD)G<ZND~P;P%dG<,9CZ}v,S`M
(`M 3)#

Z Query/400 i/PgN,SD~
9C08(gN,SD~1A;8(Z*i/!qK`vD~1yhD,SbT#9
CKA;8(tIvVNTMbT5,f* Query gN,S(iO)D~MG<q=;
?vbT58> Query Z!qG<0XkgNHOG)VN#TZyxPDG<!qb
T,,S5wP?vbTDa{Xk*f,?vD~P%dDG<EI,S*;vG
<#

HOV{51,XkTf]D CCSID jGyP5#HO SBCS V{51,XkTf]


D CCSID 4jGyP5MNN+&CD{m3r#

Z4B * Query/400 i/8("!qD~ 45


": PX CCSID gN0l,S!qDE",N{Z2603D:Query/400 PD CCSID M
,SbT;#

8(gN,SD~

dkHOTT>D~!qGgNX*D,404P1|#
bT:EQ"NE"LE"GE"LT"GT

VN bT VN
______________ _____ ______________
______________ _____ ______________
______________ _____ ______________
______________ _____ ______________
______________ _____ ______________
W?
________________________________________________________________________

VN VN
A.NBR B.NAME
A.NAME B.PHONE
A.ADDR B.SERIAL#
A.ZIP
B.NBR
W?
F3=Kv F5=(f F10=&m/0;A F11=T>D>
F12=!{ F13=<V F18=D~ F24=d{|

TZ?vbT,8(=v*bTDVNM*9CDbT5#Z;vD~PiRVN,
CVN|,IZd{D~DVNPR=D`,(r`F)DE",g{Frj6E#
ZbT5DNN;`8(VN{(g{h*,|(|GDD~j6{)#

}g,g{Z=vVN.d8( EQ(`H)bT5,1b=vVN|,`,D51b
Ta{*f#(8u\G9C EQ 5#)
VN bT VN
A.NAME EQ B.NAME

Z>>}P,=vVN<|{* NAME,rKVN{P|,D~j6{(A M B)#

Query/400 i/P,SD~Dfr
": *8>;#{8(,SbT,9C *ALL ,S#+;vD~PDyPG<kND~
PDyPG<,S,;xPNN;V!q#

,SbTDfr*:
v TZ*P!qX,SD=vD~,|GXkAY_P;v+2VN#("b_P+2
VN";mwVN{`,#)TZ_-}]bD~2Gby,49|GI\yZom
D~(ZK.O4(_-D~)P;,{FDVN#
v g{Z08(,S`M1A;O!q!n 2(9CwD~D%dG<)r!n 3(9
CwD~D;%dG<),rZ,SbTP9CDVNDiO$HXk!ZrHZ
2000 VZ#TZ DBCS VN,?v DBCS V{F*=vVZ#g{VN|,(!
D DBCS }],2+F;V{Fk$HP#
v ;\9C EQ bT5+NN!qDD~,SA,S_-D~#
v ?v,SbTPDVNXk4T;,DD~#
v IT;Tx(DD~9C`vbT#g{Z08(,S`M1A;OD,S`Ma
>P8(!n 2 r 3(<9CwD~),G4ZCD~TP9CDyPbTDbT5
Xk`,#

46 Query/400 D9C V4R5


v g{;vVN{CZ*i/!qD`vD~,XkZCVN{0fSO 1 A 3 vV
{DD~j6{#
v I8(n` 100 v,SbT#
v TZ%dG<D,S,g{,SbTPD;vr=vVN*U5,r;,SG<#
v ,SbTD=vVNPD}]Xkt,;`M(}g,<GV{M),}bivG
UZ"1dr1dAGVNIk|,}7DUZ"1dr1dAGm>D SBCS V
{"q;= DBCS r*E= DBCS VNHO#V{VNPDUZXk9Ci/DU
Zq=r SAA q=—(i9C SAA q=#ZVNPmD Dec PP,UZ"1d
M1dAGVNVpI L"T r Z j6#

": +UZ"1dr1dAGVNk SBCS"q;= DBCS r*E= DBCS V{V


NHO1,9C?v5<I6p* SAA q=DUZ"1dr1dAGDV{V
N#g{CV{VN|,UZ"1dr1dAGD}7m>,+;G SAA q=,
zI\aC=bbDa{#1KPDi/9CG SAA q=4m>V{VNPD
UZ"1dr1dAG5,RCi/;PG SAA DVUZ5DhC,9C
CHGJOB |n7#zDw5UZq=MVt{kV{VN5PDq=MVt{`
%d#

g{3)VN|,(!D+VZV{,I+b) DBCS VNCwb=vVN,r_+


SBCS V{VNCw;vVN,x+q;= DBCS r*E= DBCS VNCwm;v
VN#(!D DBCS VNIVNPmD Dec PP J"O r E j6#g{10;P
T>Dec P#4 F11 i4#

<N DBCS VN;\km;v<N DBCS VNHO#<N DBCS VNI Dec P


PD G j6#{m3r;JCZZ,SHOP9CD<N DBCS VN#

,SbTDP'HO*:
– }VVNk}VVN
– SBCS V{VNk:
- SBCS V{
- UZ
- 1d
- 1dAG
- q;= DBCS
- *E= DBCS
– UZVNk:
- UZ
- SBCS V{
- q;= DBCS
- *E= DBCS
– 1dVNk:
- 1d
- SBCS V{
- q;= DBCS
- *E= DBCS

Z4B * Query/400 i/8("!qD~ 47


– 1dAGVNk:
- 1dAG
- SBCS V{
- q;= DBCS
- *E= DBCS
– q;= DBCS VNk:
- SBCS V{
- UZ
- 1d
- 1dAG
- q;= DBCS
- *E= DBCS
- (;= DBCS
– *E= DBCS VNk:
- SBCS V{
- UZ
- 1d
- 1dAG
- q;= DBCS
- *E= DBCS
- (;= DBCS
– (;= DBCS VNk:
- q;= DBCS
- *E= DBCS
- (;= DBCS
– <N DBCS VNk:
- <N DBCS
– <N UCS2 VNk:
- <N UCS2
v ;+Z?vD~D,S5wP8(D}]VNCZ,SD~#*K,SD~,vT
D~PDd{VN#
v I,S;,$HDV{VN#
v ($V{VNIkd$V{VNHO#d$VNIVNPmD Dec PPD V j6#
v g{Z08(,S`M1A;O8(!n 1(%dDG<),IZs_VND0Dv
UqPdk *ALL,+vZZ;vVN{;C,x;G8(NN,SbT#g{9C
*ALL,r+Z;vD~PD?vG<kd{D~PD?vG<,S#}g,g{9
C *ALL + 2000 vG<DD~,SA 3000 vG<DD~,a{G 6000000 vG
<D,SD~#9C *ALL aTx5Mi/DT\#g{;Z?vD~.d8(,S
bT,G49C *ALL =(+,SG);PbTDD~#

48 Query/400 D9C V4R5


": CZ,SD~DVN;XCZ!qG<r_|(Zi/(fP#IZi/(eP
Td{=(9CG)`,DVN,gCZG<!qrCwi/dvD;?V#

Query/400 i/P,SD~D>}
<G;v>},ZK>}Pz*+{* RESIDENTS Dw{FMX7D~,SA{*
PHONELIST D{FMg0EkD~#

Z08(gN,SD~1A;O9C,SbTM!nD;,iO1,zIS;vD~
,SqC8v;,Da{#

TBGzI\gN9C}V;,`MD,SD8v>}#yP>}YhQZ08(g
N,SD~1A;O8(K A.NAME EQ B.NAME#

>}:S Query/400 i/DyP!(D~P!q%dDG<

g{#{S?vD~!qG<,Rv1|GZ?vd{!qDD~PAYP;vG<
%d1,dk 1#2MG,TZ*!qDG<,yPD~XkP%dDG<,bI,S
5w7(#TZi/P9CD?vD~,d!qCZHODVNDZ]kZ08(g
N,SD~1A;Oa)DbTu~%d1,r"z%d#(K`M(!n 1);PwD
~rND~;+,HT}yPD~# )

Z>>}P,g{9C!n 1(%dDG<),SD~ A M B,i/(f+|,TBG


<#(K&(fVNM<V";X*#)

Z4B * Query/400 i/8("!qD~ 49


>}:Z Query/400 i/P9CwD~!q%dDG<

g{#{Zi/dvP|(wD~PD?vG<MyPd{(N)D~PDyP%d
G<(;*b)G<fZ),dk 2#!qwD~PD?vG<,x;\|GqfZ%
d#(wD~\GZi/(ePWH!qDGvD~#)}biv:g{CZ,SbT
DwD~DVN*U,r;!qwG<#

Z>>}P,RESIDENTS D~GwD~,rK|DyPG<(`E* 1 A 6)<|(Z


i/G<P,YhyPG<<{O0!qG<1A;OD!qbT#PHONELIST D~G

50 Query/400 D9C V4R5


(;9CDND~,|*?v%dDwG<a)g0Ek;NAME VNCw=vD~DH
ObTVN#9&"b(fP|,G< 4 =N,r* Richard A Klein ZND~PP
=vG<,?v<P;,Dg0Ek#

g{ND~;PkwD~G<D,S5w%dDG<,UW(CZV{VN)"c
(CZ}VVN)r January 1, 0001(CZUZVN)+CwND~D!qVND}
]#g{+b)VN|(*i/(fPDdvVN,rZC(fP9Cf;DV{r
5#Z>>}P,PHONE VNT>UW,r*|;w*V{VN`k#ZVNIUDi
vB,8(D1!5+CwCND~D!qVND}]#g{;P8(1!5,U5
+T>*F[E (-)#

": g{ND~G9C DDS (eD,Z DFT X|V*NNVN(e1!51,I9


CUW"c5M January 1, 0001 .bD5#g{ DFT X|V*i/(fP9C
DVN8(1!5,ZND~;P%dG<1af;(fPD1!5#

>}:Z Query/400 i/P!q;%dDwD~G<

g{#{ZwD~Pv!qZAY;vND~P1Y%dDG<,dk 3#2MG,z
#{!qZ +?ND~P;P%dG<D?vwG<#}g,g{,SDvD~,x
}vND~P;P=vP%dG<,G4|,wD~M=v%dDND~P!(E"
(M;%dDND~D1!}],g{PD0)DG<+w*%vG<|(Zi/d
vP#

K,S`M(#CZP>Z;vr`vND~P*'DG<#

ZRGD>}P,RESIDENTS D~9GwD~,rK;+d;P%dDNG<DG<|
(Zi/(fP#PHONELIST D~P=vbV;%dDG<;ZG< 2 M 6 Pj6D
!';Pg0Ek,rKZND~P;P{GDG<# (NAME VNYNCw=vD~D
HObTVN#)

}g0;V,S`M,UW(CZV{VN)rc(CZ}VVN)CwND~D!
qVNP*'G<D}]#r_,g{ DDS DFT X|VCZ(e1!5,rDCG)
1!5# (ZRGD>}P,PHONE VNT>UW,r*|;w*V{VN`k,;P*
PHONE VN(e DFT 5#)

Z4B * Query/400 i/8("!qD~ 51


Z Query/400 i/P*w,SErND~
TZ3),S,Z08(D~!q1A;O8(ND~D3rG\X*D#

XpGZTBiv+?*f1,ND~D3rM|X*:
v ,S`M* 2(kw%d)r 3(kw;%d)
#=V`M<P;vwD~,szND
~#
v i/8(+?}vr|`vD~#
v ;vr`vND~;P+d,SAwD~D,SbT#

g{zDi/{OTO8c,rq-ND~Erfr:

9C,SbT+?vND~kZ08(D~!q1A;OCND~.OP>D;vD
~,S#

}g,Z,SDvD~1,9C,SbT+Z~vD~,SAZ;vD~,9Cm;
vbT+Z}vD~,SAZ;vrZ~vD~#I+ZDvD~,SANN;vd
{DD~#

>}:Z Query/400 i/PErND~

*mwND~ErfrgN7#Z,S=vTODD~1qCZ{Da{,TB>}
T=V=(9C}vD~,dP;v}7,m;v;}7#Z;V=((}7D=
()Z,SD~1zIevG<#;}7D=(zI 15 vG<#=V=((;D;,
GZ~vMZ}vD~DNrDdK#TZw,S,Query TZ08(D~!q1A;
O8>D3r,SD~,x;GT,SbT8>D3r#

+,S{* CUSTOMER"PURCHASE M ITEM D}vD~,TczI;v(f,C(fP


>?vM'D{FMGP":rDL7(Z(fP?P;~L7)MCL7D5w#
(}g,g{ Monique Pottier rK}~L7,}ZC(f&P}P,?PP>}DU
{"GP";~L7ML75w#)g{M';P:rNN+w,G4(fDPm&|
(CM';N,+L7M5wVN*UW#

}7D=(:

Z08(D~!q1A;O,WHdk CUSTOMER D~,;sdk PURCHASE D~,n


sdk ITEM D~#Vp8(D~ ID A"B M C#,S`M* 2(9CwD~D%d
G<)#,SbT*:
A.NAME EQ B.NAME
B.ITEM EQ C.ITEM

52 Query/400 D9C V4R5


Query V=v=h4PD~,S:

=h 1:,S0=vD~ A M B#

Query TPvD3r,SD~,SD~ A (CUSTOMER) MD~ B (PURCHASE) *<#Query


+D~ A PD?vG<,SAD~ B Pd NAME VNk A PD NAME VN`HDN
NG<#r*Ki/G,S`M 2(kw%d),yT+wD~ A PD?vG<<|(
Z,SP#g{D~ A PD;vG<(g Martinez)Z B P;P%d,Query +Q|
,SAD~ B D1!G<,CG<DVN5*UW#ZRGD>}P=h 1 Da{G
;vF* AB DD~#("b AB GCZ9((fPh*D,SD~D$wD~#z4;
=D~ AB# )

=h 2:+D~ AB ,SAD~ C#

Query +D~ AB PD?vG<,SA ITEM D~ C P{O B.ITEM HZ C.ITEM u


~D?vG<#g{ AB PD;vG<(g Martinez)ZD~ C P;P%d,Query +
d,SAD~ C D1!G<,CG<2*UW#byMjIK,SKc#wD~ A P
D?vG<ZevG<Pm>K;Nr`N#

;}7D=(:

Z08(D~!q1A;O,WHdk CUSTOMER D~,"+D~ ID 8(* A#;s


dk ITEM D~(D~ C),nsdk PURCHASE D~(D~ B),d3rM}7=(

Z4B * Query/400 i/8("!qD~ 53


D`4#"b?vD~_Pk0f`,DD~ ID#M0f;y8(,S`MM,Sb
T#K=(;qXND~Erfr,r*;C,SbT+D~ C ,SAPZ|OfDG
vD~ (A)#

Query V=v=h4PD~,S:

54 Query/400 D9C V4R5


=h 1:,S0=vD~ A M C#

Query TPvD3r,SD~,SD~ A (CUSTOMER) MD~ C (ITEM) *<#+;P+


A PDVNk C PDVNxPHOD,SbT#Query +D~ A PD?vG<(?N
;vG<),SAD~ C PD?vG<#r*Z A PP}vG<,Z C PPevG
<,yTa{* 15 vG<#ZK=hP;9C,SbT#bN=h 1 Da{GF* AC
D$wD~#

=h 2:+D~ AC ,SA B#

Query +D~ AC PD?vG<,SA PURCHASE D~ B P{O A.NAME HZ B.NAME


R B.ITEM HZ C.ITEM Du~D?vG<#g{ AC PD;vG<(g Martinez)Z
B P;P%d,Query +d,SAD~ B D1!G<,CG<*UW#byMjIK,
SKc#

;}7D=(zI 15 vG<,`vK 10 v#?vM'PevG<,Vpm>?vL


75w,49CM';P:oNN+w#"bg{ ITEM D~P 1000 vx;G 5 v
G<,}7D=(T!qevG<,+;}7D=(+!q 3000 vG<#mb,
Martinez D ITEM M DESCRIPT 5;*UW(x|G&C*UW)#

\.,KJb;0l9C,S`M 1(%dD)Di/";P=vD~Di/r_Z?
v,SbTP9CwD~Di/#Z>>}P,8(D~D_-NrG CUSTOMER"
PURCHASE M ITEM,+ PURCHASE EZPd,r*|G CUSTOMER M ITEM D~.dD
,S#bv_-Nr2G}7DNr#

Z Query/400 i/PT>yP,SbT
Z0T>D~!q1A;O404P1|1(N{ Z433D:T>Z Query/4000T>
D~!q1A;O!qD+?D~;),+T>0T>,SbT1A;#KA;OD
E"v)N<;K&;\|DdPNN;n#(BfDA;T>3)y>E"#)

T>,SbT

,S`M . . . . . . . . : %dDG<

VN bT VN
A.NAME EQ B.NAME

W?
404P1|Lx#

F12=!{

0T>,SbT1A;T>:

Z4B * Query/400 i/8("!qD~ 55


v Zi/PCZ,SyPD~D,S`M#I8(}v,S`MPD;v:
– %dDG<
– 9CwD~D%dG<
– 9CwD~D;%dG<
wD~(CZns=V`M)GZ0T>D~!q1A;OPvDZ;vD~#P
Xji,4 F11(Qww}),dk,SD~w*w}QwV,;s404P1|#
v CZ,SD~D,SbT#
VNPT>CZ,SD~DVN#?vVN{P=?V:VNDD~ ID M5J{
F,TdcV*#}g,g{{* CUSTNUM DVNfZZCZKi/DD~ T01 M
T02 P,|G+T>* T01.CUSTNUM M T02.CUSTNUM#*iRkb)D~ ID(g
T01)X*DD~,4 F12 T>0T>D~!q1A;#
bTPT>7(gN,SD~DbT5#

Z Query/400 i/P&m*'DVN
1i/9CDD~!qPD(fVN(4(fP9CDVN)SCD~!qP*'
1,+T>0SD~(e*'DVN1A;#Si/P-4!qDD~P*'DVN
a<BZKPi/1vmr_a)msDa{#}g,}*dv!qK|G.b,I
\Q+dCZ(ea{VNrCZ!qrErG<#

SD~(e*'DVN

i/ . . . . . . : QRY1 !n . . . . . . : |D
b . . . . . . : LIB1
D~ . . . . . . : FILEA
b . . . . . . : LIBA
q= . . . . . . : FMT1
D~ ID . . . . : T01

TBVNI\QCZi/P,R$F
ZKD~(eP,+;PR=#

VN
NAME
ADDR
PHONE
SERIAL#

404P1|LxV4i/(e#

F12=!{

TZfZ*'VND?vD~!q,KA;AYT>;N#Zb6=*'VN.s,
zI\*4 F12(!{)T\b4=*'VND=SA;#r_,g{z#{i4d{
D~!qPDvI\P*'DVN,9C04P1|p;i4?vA;#zI\9#
{5XA0;A;"4 F5((f)KPi/,i4*'DVNgN0l(f#

r_Si/(eP9C.&}%b)VN,r_Xk!q|,G)VND;,D~r
q=#r_,IKv Query,lib)D~rq=>m#ZzZ;N*<|DrT>i
/1g{vVKA;,mwTi/4(r_ON|DT4I\|DKb)D~rq=
PD3)Z]#}g,I\SG<q=(eP>}K;vr`vVN,r_I\+ IDDU
(eDD~4SAK3vJd(e,xVZQO*4Sr_4SA;,D(e#

56 Query/400 D9C V4R5


I<BKA;vVDivgB:
v 18(;,DD~!q1#Zz|Di/r(eQ-8(KD~!qDBi/1I
\"zKiv#
v 1z*<|DrT>VfDi/(e1#

Z Query/400 i/DD~!q}LZd&m*'DVN
Z|Di/,r(eQ-8(KD~!qDBi/1,Z0(ei/1A;O!qK
8(D~!q!n#;s,Z08(D~!q1A;O,z!qK;vD~rq=,
|;PZ;v!qy|,D+?(fVN#rK,KA;T>v*'DVN#

TZbViv,Z4 F12 r04P1|1,z5XA08(D~!q1A;x;0l0


fDD~(Mq=)!q#5XAC&s:TI(}404P1|7OD~!q"L
x(49 Query "VZ10D~!qP*'VN);IZCA;O8(;,DD~,;
s404P1|;r_I4 F12 #tD~!q;d,;sKv Query TD~(rq=)
(exP3)Yw#

g{!qZ5XA08(D~!q1A;1404P1|,T7O#{9C10DD
~!q,Query +TVZZKi/PDD~!q!I\`X9CdD~"q=MVNE
"#|S 3)(e=h(g!q"ErVNM!qErVN)Di/(eP}%yP
*'DVN#Z!qCZ Query r DB2 UDB AS/400 fLrD_-D~x;8(N
NErVN1,I\"z;I$bDa{#}g,zI\U;=omD~D_-S
<#

g{i/9C`vD~RfZI*'DVN}pDms,Z Query jIyP|y\vD


Yws,|+T>08(gN,SD~1A;;qr,|+LxZ0(ei/1A;
O!qD(e=h,r_|5XA0(ei/1A;#Z0(ei/1A;O,+4
`T>\*'DVN0lDd{kVNPXD(e=h#Xk!qb)(e=hD?
;v,g (ea{VNM!qG<,"|}I*'DVN}pDJb#Z\0lD=
hD(eA;O,vAT>9CVZ*'DVNDmo=r!qbT#

Z*<|DrT> Query/400 i/1&m*'DVN


Zz*<|DrT>VfDi/((}Z09Ci/1A;O8(!n 2 r 5)1,+
"zTBdP;Viv:
v Query 7(;vr`v(fVN;YZIi/9CDD~rq=P;T(ei/rO
N|Di/TsQ}%KG)VN#
v Query R=;ICDD~(}g,i/I\GSm;v53(Fx4,+|,G)V
NDD~r;G),"Z0|DD~!q1A;OT>CD~#ZCA;O,z!
qKm;vD~4|}CJb,+|DG<q=;_PzDZ;v!qy|,D+
?VN#

TZb=Viv,ZT>0SD~(e*'DVN11,zI4 F12 r404P1|:


v g{z!q404P1|,G4Zbvrm;vD~9Pd{*'VN*T>1,
zI\YN4=0SD~(e*'DVN1A;#g{;P,Query +TVZZKi
/PDD~!q!I\`X9CdD~"q=MVNE"#|S3)(e=h(g
!q"ErVNM!qErVN=h)Di/(eP}%yP*'DVN#1!q

Z4B * Query/400 i/8("!qD~ 57


CZ Query r DB2 UDB AS/400 fLrD_-D~x;8(NNErVN1,I
\"z;I$bDa{#}g,zI\U;=omD~D_-S<#
Z Query jIyP|y\jIDYw.s,|+T>0(ei/1A;#ZCA;
O,+4`T>\*'DVN0lDd{kVNPXD(e=h#Xk!qb)(
e=hD?;v,g8(D~!q"(ea{VNM!qG<,"|}I*'DV
N}pDJb#9Xk#$;PdPNN;vVNCZ0q=(f8V1A;OD
8VbT5P#Z\0lD=hD(eA;O,vAT>9CVZ*'DVNDm
o=r!qbT#
v g{4 F12(!{),z+5XA09Ci/1A;x;0l0fDD~(MVN)
!q#I404P1|YN(Yhzx-x}CA;)xk0|DD~!q1A;
"!qm;vD~#r_I4 F3(Kv)#99Ci/,Kv Query,;s9CG)
D~rq=#

58 Query/400 D9C V4R5


Z5B Z Query/400 P(ea{VN
>BhvgN(ea{VN#g{#{T>Z(fPDE";Gw*VNfZZ!q
DD~P,Mh*Zi/P(eb)VN#}g,z#{(fT>l},+}]bD
~4vP|,GZ}DVN#zIT(}4(;v4PGZ}FcDmo=4(e|
,l}Da{VN#

Z(eKa{VNs,ITsfZZ!(D~PDNNd{VN;y9C|#IT+
a{VN|,ZdvP,IT9C|4(em;va{VN,IT+|w*ErVN
9C,HH#

Z(ea{VN1,A;B_DPm(}T>*i/!(DD~PDVN{4oz
z#g{zkNDXZ?vVNDd{E",ghvD>"$HM!};},I9C
F11 |(T>D>)Z`PPmM%PPm.dP;#1zZ7(a{VN{r4(m
o=1,KE"GG#PCD#3|+T>yPICDVN,;NT>DvVN#P
X9C F11 |Dji,N{Z213D:9C F11 T>PX Query/400 i/Dd{E
";#

Zs`}ivB,z(eDa{VNaT>Zi/dvP,+!q|Gw*dvGI
!D,r*P;)a{VNvh*w*qCnsa{DPd=h#}g,zI\v*
!qG<x(e;va{VN,x;#{Ca{VNvVZ(fP#

Z Query/400 P4(a{VN
g{zZ0(ei/1A;D(ea{VN!nTdk 1,+vV0(ea{VN1A
;#9C0(ea{VN1A;I4(i/yhDa{VN#(BfDA;ZW?P>
K;)y>VN#)

© Copyright IBM Corp. 2000 59


(ea{VN

9CVN{r#?MKc{dk(e,404P1|#
Kc{:+"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


__________ _________________________________ ____________________ _____ __
_________________________________ ____________________
_________________________________ ____________________

__________ _________________________________ ____________________ _____ __


_________________________________ ____________________
_________________________________ ____________________
W?
_________________________________________________________________________
VN VN VN VN
ACCTNUMBER STREETADDR TELENUMBER DATELASTPD
LASTNAME CITY CRLIMIT
INIT STATE BALDUE
COMPANY ZIPCODE PASTDUE
W?
F3=Kv F5=(f F9=ek F11=T>D>
F12=!{ F13=<V F20=Xi F24=d{|

*(ea{VN,Z0(ea{VN1A;DVNPPdk;v{F,*a{VN8
((;D{F#;\8(Z!(D~PfZDVN{—ZA;B_DPmT>Kb)
VN{#*/@VNPm,+bjCZA;DPm?V"9C-3|#(P;v%V8
>{\GvVZPmDRB=,|f_zZPmPy&D;C#PP...Db<GZ10
yT>DnDs_,2I\G0_,9Pd{n# W? Db<GzQ=KPmDn
s,+Z10T>DG)n.0I\9Pd{n# )9C F19 |(B;i)+Pm(;
=B;v_-VNiD*<(19C F19 1bjI&ZNN;C) (Z;iG!(DV
#
N,g{PD0;Z~iGErVN,g{PD0#g{^!(VN,rVN(}D
~Vi,Z?vD~iP,4UVNZD~(ePvVDNr4P>VN# )

zIT(}ZKA;Ond Len M Dec a>4*}Va{VN8($HM!};},


r_ITCb)a>#t*UW,C Query 7($HM!};}#

zIT*NN;va{VN8(;vPjb#g{+a>#t*UW,r+a{VN
{Cwa{VN(eDPjb#

Query/400 a{VN{
IZ Query Da{VN{k}]bVN{`F,ITy]BP8>44(|G:
v {FDWV{Xk*V8V{(A A Z"$"# r @),"T#`DV{9C;`Z
9 vDV8}VV{(A A Z"0 A 9"$"#"[@0000] r _)#{FP;\9C
Uq#

": g{Ki/*"M=d{53rZ`oT73B9C,Mv9C A-Z r 1-9#


v ;*9CA;BfPmPDNN{Frd{a{VND{F#

dk;v*a{VN4(Z{5Dmo=#

60 Query/400 D9C V4R5


Query/400 mo=
Z Query/400 P,mo=G;v5D;Vm>,IVN{"#?"/}rX|ViI,
I\|(Kc{,2I\;|(#|IT*}V"V{(SBCS r DBCS)"UZ"1
dr1dAGmo=:
v }Vmo=8(}5rT}54PKc(Fc)#}Vmo=IT|,BPKc{:
+(S()
−(u()
*(K()
/(}()
v V{mo=8(V{rTV{4PKc#V{mo=IT|,BPKc{r/}:
||("CKc{)
SUBSTR(S./})
VALUE(}5/})
DIGITS(}V/})

": N{ Z2603D:Query/400 PD CCSID Ma{VNmo=;,KbgNT"


C{E&m CCSID#
v UZmo=TUZ4PKc#UZmo=IT|,BPKc{r/}:
+(S()
−(u()
CHAR
DATE
DAY
DAYS
MONTH
YEAR
v 1dmo=T1d4PKc#1dmo=IT|,BPKc{r/}:
+(S()
−(u()
CHAR
TIME
HOUR
MINUTE
SECOND
MICROSECOND
v 1dAGmo=T1dAG4PKc#1dAGmo=IT|,BPKc{r/
}:
+(S()
−(u()
CHAR
TIMESTAMP

Z5B Z Query/400 P(ea{VN 61


g{NNTd?IT*U5,ra{VN2IT*U5#g{NNTd?*U5,r
a{*U5#

Query/400 }Vmo=
**i/(e}Va{VN(4,|,}VDa{VN),h*q-4(}Vmo=
Dfr#a{VND}Vmo=I%@|,BPwnrb)nDiO:
v }VVN{(|,}VDVND{F)#I9CA;B_PvD}VVN{(}VV
NZ Len M Dec PPT>}V)T0H0(eD}Va{VND{F#}g,I+
=v}VVN`K,+\FEZa{VN AMOUNT P:
AMOUNT = QUANTITY * PRICE
v }V#?(NN}V,g 4 r −12.5)#9C}V#?DfrgB:
– \$H;\,} 31 ;#
(TZ%+H!c#?,\$H;\,} 9 ;#TZ++
H!c#?,\$H;\,} 17 ;#
)b|(.xF!}csR=_D};,+
;|(.xF!}c#yP};<ITZ.xF!}cR_#
– 9C}7D!}Vt{#4 F17 T>Xk9CD!}Vt{(N{ Z223D:Z
Query/400 PT>#?q=;)#
– ;*9CuR{E(Hg $5000),2;*9C';Vt{(Hg 5,000)#
v }V/}#VALUE /}5XGUDZ;v5#N{ Z653D:VALUE Query/400 /
};#

VN AMOUNT Dd{}Vmo=>}gB:
QUANTITY
5
5 + 6
5 + QUANTITY

Z;v}Vmo=P4P`NFc1,9C2(Ef_ Query 424Nr4Pb)F


c,9mo=|WZmb#g{9C6WD2(E,}g,60 * (A − (B + C)),WH
Fcno_2(EZDmo=(Z>>}P,* B + C),;s4SZrbDNr@N
Fc#g{;9C2(E,Query WHSsrR4PK},;sSsrR4PSu#}
g,(5 + 4) * 2 HZ 18,+ 5 + 4 * 2 HZ 13#

k"b}Vmo=Da{,HdG|,K}KcD}Vmo=,I\;XOrak,
b!vZzZ08(&m!n1A;O8(DZ](N{Z14B 8( Query/400 &m
!n)#g{;c},i/r;\KP#

Query/400 V{mo=
**i/(eV{a{VN(4,|, SBCS r DBCS V{Da{VN),h*q-
4(V{mo=Dfr#a{VNDV{mo=I%@|,BPwnrb)nDi
O:
v V{VN{(|, SBCS r DBCS V{DVN{)#zIT9CZA;B_PvD
SBCS r DBCS V{VND{F(Z Dec PP,SBCS V{VN_PUWr V(g
{Gd$),(;= DBCS VN_P J,*E= DBCS VN_P O,q;= DBCS
VN_P E,x<N DBCS VN_P G)T0H0(eD SBCS r DBCS V{a
{VND{F#

62 Query/400 D9C V4R5


v V{#?(C2E}p4D SBCS r DBCS V{,g 'ABCdef123' r 'KD>|
(UqMXbV{ **$$')#9CV{#?DfrgB:
– V{#?XkC2E}p4#
– IT9CV8"}VrXbV{(}g,$ r #)DNb;ViO#
– g{Z;vV{.Z9C=v2E,ZdvPb=v2EdI%v2E#}g,
'October's Profits' dI October's Profits#
– _Ps!4V8DV{.*j+4UdkDq=9C#
– g{V{#?m>P'DUZ"1dr1dAG,RCZUZ"1dr1dAG
VN,r+KV{#?S*UZ"1dr1dAG#?#
– DBCS V{#?Xk|( DBCS FvMFkV{, DBCS FvMFkV{IV
{ < M > m>,gTB>}y>:'<D1D2D3>'#<N DBCS V{#?XkTs
4r!4D G *7,}g,G'<D1D2D3>'#
v V{Kc{M/}(;vr`v"CKcMV{/} SUBSTR"DIGITS M VALUE—
N{ Z643D:Query/400 V{/};)
#

Query/400 "CKc

V{mo=I|(;vr`v"CKc#"CKcXkCTBq=8(:
ÊÊ value-1 || value-2 ÊÍ

v Value-1 M Value-2 G*"CDV{VNrV{#?#I9C SBCS M DBCS V{


VN{(|(V{a{VN)MV{#?(|(*E= DBCS"(;= DBCS M<
N DBCS #?)#<N DBCS VN;\km;v<N DBCS VNr#?"C#
v =v_- OR {E (||) 9I"CKc{,CZ,S=v5#(N{ Z2603D
:Query/400 PD CCSID Ma{VNmo=;,TKbgNT"C{E&m
CCSID#)
}g,g{V{#? 'Dr. ' M|,5 Smith DV{VN LASTNAME "C,a{*|
,5 Dr. Smith DVN#d{V{mo=>}gB:
NAME
'Mr.'
'Mr.' || NAME
FIRSTINIT || MIDINIT

g{NNVNIU,a{VN2IU#g{"CP9CDNNVN*U5,a{mo
=2*U5#

}=vy**E= DBCS VNDivb,g{yP"CD5*($VNr#?,ra{


*($VN#=v*E= DBCS VND"Czz;v*E= DBCS VN,Jm"C*
E= DBCS VNDa{*d$#g{NNVN*d$,ra{*d$VN#

<N UCS2 VN;\km;v<N UCS2 VN"C#

a{D CCSID gBy>:


v g{NNVNr#?_P CCSID 65535,ra{ CCSID * CCSID 65535#
v g{NNVN_PlOD CCSID,ra{ CCSID *lO CCSID#
v D~VND CCSID EHZa{VNr#?#
v a{VND CCSID EHZ#?#

Z5B Z Query/400 P(ea{VN 63


v g{=v"CD5yGD~PDVN,r_=vyGa{VN,r3ha{D CCSID
+G=v5PZ;v5D CCSID#
v g{w5 CCSID G^`X DBCS CCSID D%VZ CCSID,r+ CCSID 65535 3
h<N DBCS #?#

Query/400 V{/}
V{mo=I|(V{/} SUBSTR"DIGITS M VALUE#

SUBSTR Query/400 /}

SUBSTR /}5XV{5D;?V#q=gB:
ÊÊ SUBSTR ( value , offset ) ÊÍ
,length

v Value GV{VN(|(Q(eDa{VN)"V{mo=rV{#?D{F#|I
TG SBCS r DBCS VN"SBCS #?"*E= DBCS #?"(;= DBCS #?
r<N DBCS #?#Z(;= DBCS rq;= DBCS VNOD SUBSTR Kcz
z SBCS V{}]`M#Z*E= DBCS VNOD SUBSTR Kczz*E= DBCS
}]`M#Z<N DBCS VNOD SUBSTR Kczz<N DBCS }]`M#g{
Value GVN,ra{D CCSID *CVND CCSID#g{ Value G#?,ra{
D CCSID *4(i/DC'(r_|Di/DC',g{-< CCSID G 65535)
Dw5`X CCSID#
v Offset GVNrV{#?ZDp<V{;C#;F2ICmo=m>#
v Length G9IS.DV{}#$HICmo=m>#;h*8($H#g{48(,
a{S.GS Offset =axD{vVNrV{#?#
ZS.*X.dXk9C:E;:EsJmPUq#g{Z9C:Ew*.xF!}
cDzR.d"Mi/,*Z:EsS;UqTV*;FM$H#

V{VNS.D>}:g{|,5 ABCDEFGHI DV{VN ALPHA CZ


SUBSTR(ALPHA,4,3) P,ra{*|, DEF DV{VN#g{;P* Length 8(5,
ra{* DEFGHI#

g{ Offset M Length 59S.,vVNRK,+U=vmE"#g{NNTd?IT


*U5,ra{VN2IT*U5#g{NNTd?*U5,ra{*U5#

g{d$VNCZ Value,ra{*d$VN#g{ Offset r Length *mo=,ra


{*d$VN#

TZ SBCS"*E= DBCS"(;= DBCS Mq;= DBCS VN,Offset M Length


G8VZ,|(FvMFkV{#}g,g{ FIELD1 |,V{. <A1B1C1D1E1F1>,
rKc SUBSTR(FIELD1,2,3) zI|, A1B DV{VN#

TZ<N DBCS VN,Offset M Length G8+VZV{}#vT<N#?PDFvM


FkV{#}g,Kc SUBSTR(G’<A1B1C1D1E1F1>’,2,3) zz|, B1C1D1 D<NVN#

64 Query/400 D9C V4R5


DIGITS Query/400 /}

DIGITS /}5X}5DV{m>#q=gB:
ÊÊ DIGITS ( expression ) ÊÍ

Td?XkG{}r!}5#K/}Da{G($V{.#V{.D CCSID G&CL


r~qwOD1! SBCS CCSID#g{Td?IT*U5,ra{VN2IT*U5#
g{Td?*U5,ra{*U5#

a{G}VV{.,m>Td?DxT5,kdjH^X#a{;|({Er.xF
!}c#a{|(NNXhD0<c,9V{.D$Ho=:
v 5,g{Td?*;x!};D!~xF5#
v 10,g{Td?*;x!};Ds~xF5#
v Td?D$H,g{5Gx!};D9u"x;r~xFVN#

>}:
DIGITS(JOBCODE)

VALUE Query/400 /}

VALUE /}ICZNN`MDmo=P:V{"}V"UZ"1dr1dAG#
VALUE /} VALUE(x,y) 5XGUDZ;vTd?#Td?48(DNrs5#Td
?XkGf]D;V{.Td?k}V;f]#X GVN,Y ITGVN"5r;.V
Nr5#X ITGNN}]`M,"RI\GH0(eDa{VNrNND~VN#

v1yPTd?yIT*U51,a{EITGU5;v1yPTd?*U51,a
{EGU5#;li X 547(|Iq*U#

>}:
VALUE(commission, 0)

g{ commission *U5,ra{G 0#

": g{Z9C:Ew*.xF!}cDzR.d"Mi/,*Z?v:EsS;U
qTV*;.}5PD?v5#

g{h*,!(DTd?a*;*a{DtT#a{DtT4gBy>7(:
v g{Td?GUZ,ra{*UZ#g{Td?G1d,ra{*1d#g{Td
?G1dAG,ra{*1dAG#
v g{Td?G#?,ra{D CCSID *Td?"Cs&zzD CCSID#
v g{yPTd?<G($,ra{*($ n,dP n Gn$DTd?D$H#
v g{PNN;vTd?Gd$,a{*_P$HtT n Dd$,dP n G_Pns
$HtTDTd?D$HtT#
v g{Td?G}V,ra{D}]`M*Td?`Ss&zzD}]`M#
v g{yPTd?y*(;= DBCS,ra{*(;= DBCS#
v g{Td?G(!D DBCS DNN;ViO,ra{**E= DBCS#
v g{Td?G<N DBCS,ra{*<N DBCS#

Z5B Z Query/400 P(ea{VN 65


g{ X G<N DBCS VN,r Y VNM#?Xk+G<N DBCS#g{ X ;G<
N DBCS VN,r Y VNr#?<;\G<N DBCS#

a{D CCSID gBy>:


v g{NNVNr#?_P CCSID 65535,ra{ CCSID * CCSID 65535#
v g{NNVN_PlOD CCSID,ra{ CCSID *lO CCSID#
v D~VND CCSID EHZa{VNr#?D CCSID#
v a{VND CCSID EHZ#?D CCSID#
v g{=v"CD5yGD~PDVN,r_=vyGa{VN,r3ha{D CCSID
+G=v5PZ;v5D CCSID#
v g{w5 CCSID G^`X DBCS CCSID D%VZ CCSID,r+ CCSID 65535 3
h<N DBCS #?#

VARCHAR Query/400 /}

VARCHAR /}5XV{.Dd$V{.m>#

ÊÊ VARCHAR ( expression ) ÊÍ
, length
DEFAULT , ccsid

Z;vTd?XkGV{.mo=;|;\G<N DBCS }]#

Z~vTd?g{8(* length,r*a{d$V{.D$HtT#g{Z;vTd?
;IU,Z~vTd?XkG 1 A 32740 .dD;v{#};g{Z;vTd?IU,
Z~vTd?XkG 1 A 32739 .dD;v{#}#g{Z;vTd?GlO}],
rZ~vTd?;\!Z 4#g{48(Z~vTd?r8(K DEFAULT,4gBy
>7(a{$H,dP n GZ;vTd?D$HtT#
v g{Z;vTd?G SBCS rlO}],ra{$H* n#
v g{Z;vTd?G UCS2 <N}]Ra{G SBCS }],ra{$H* n#
v g{Z;vTd?G UCS2 <N}]Ra{GlO}],ra{$H* (2.5*(n-1)) +
4#

Z}vTd?(g{8(D0)XkGP'D SBCS rlO CCSID#g{|G SBCS


CCSID,Z;vTd?;\Gq;= DBCS r(;= DBCS V{.#

K/}Da{G+V{.mo=3h_P$HtT n(dP n Ga{D$HtT)Dd


$wd?1&zzDV{.#g{Td?D$HtTsZa{D$HtT,r4PX
OR;5X/f#

a{}]`MG VARCHAR#

g{48( ccsid(Z}vTd?):
v g{Z;vTd?G SBCS V{,ra{* SBCS V{#a{D CCSID kZ;v
Td?D CCSID `,#
v g{Z;vTd?GlOM(*E= DBCS)"(;= DBCS rq;= DBCS,r
a{GlOM#a{D CCSID kZ;vTd?D CCSID `,#

66 Query/400 D9C V4R5


v g{Z;vTd?GG UCS2 <N,ra{*lOM#a{D CCSID G DBCS
CCSID D`XlO CCSID#
v g{Z;vTd?G UCS2,ra{D CCSID *w5 CCSID#g{w5 CCSID G
lOM,a{`M2GlOM#g{w5 CCSID G SBCS,ra{* SBCS V{#

g{8(K ccsid:
v a{k8(D CCSID `X#g{ ccsid G SBCS CCSID,ra{`MG SBCS V
{#g{ ccsid GlOD CCSID,ra{`MGlOV{#
v a{D CCSID G ccsid#

g{Z;vTd?IT*U5,ra{2IT*U5;g{Z;vTd?*U5,r
a{*U5#

VARGRAPHIC Query/400 /}

VARGRAPHIC j?/}a)xPTB*;D=(:
v V{}](SBCS MlO)*;*<N DBCS#
v V{}](SBCS MlO)*;*<N UCS2#
v <N UCS2 *;*<N UCS2#
v <N DBCS *;*<N UCS2#

ÊÊ VARGRAPHIC ( expression ) ÊÍ
,
length DEFAULT ,ccsid

VARGRAPHIC /}5XV{.mo=D<NV{.m>#

Z;vTd?XkGV{.mo=,;\G;}]#

Z~vTd?g{8(* length,r*a{D$HtT,xRg{Z;vTd?;IU,
Z~vTd?XkG 1 A 16370 .dD;v{#};g{Z;vTd?IU,Z~v
Td?XkG 1 A 16369 .dD;v{#}#

g{48(Z~vTd?r8(K DEFAULT,ra{D$HtTkZ;vTd?D$
HtT`,#

ZBPfrP,S m>BPdP;n:
v g{V{.mo=Gb?`k#=P|,}]Dwd?,r S GZ>z`k#=P*
;}]sDmo=Da{#
v g{V{.mo=G>z`k#=PD}],r S GCV{.mo=#

g{8(Z}vTd?,ra{D CCSID *Z}vTd?#|XkG DBCS r UCS2


CCSID#K CCSID ;\G 65535#

g{48(Z}vTd?,ra{D CCSID IlO CCSID 7(,C M m>lO


CCSID#M 4gBy>7(:
v g{ S D CCSID *lO CCSID,M MGC CCSID#
v g{ S D CCSID * SBCS CCSID:

Z5B Z Query/400 P(ea{VN 67


– g{ S D CCSID P`XDlO CCSID,M MGC CCSID#
– qr,;JmxPKKc#

M a{ CCSID 5w DBCS f;V{


930 300 Uo EBCDIC X’FEFE’
933 834 +zo EBCDIC X’FEFE’
935 837 rePD EBCDIC X’FEFE’
937 835 1ePD EBCDIC X’FEFE’
939 300 Uo EBCDIC X’FEFE’
5026 4396 Uo EBCDIC X’FEFE’
5035 4396 Uo EBCDIC X’FEFE’

K/}Da{Gd$<NV{.#g{mo=IT*U5,ra{2IT*U5#g
{mo=*U5,ra{*U5#g{mo=GUV{.rG EBCDIC V{.
X’0E0F’,ra{*UV{.#

a{D5J$H!vZTd?PDV{}#Td?D?vV{7(a{D;vV{#
^[ CCSID gN,Td?PD?v+VZzkc;S*;v DBCS V{,Td?PD
?v%VZzkc;S*;v SBCS V{,EBCDIC lO}]F;k X’0E’ M X’0F’
}b#
v g{Td?PZ n vV{G DBCS V{,ra{PDZ n vV{MGC DBCS V
{#
v g{Td?PZ n vV{G_PH' DBCS V{D SBCS V{,ra{PDZ n
vV{MGCH'D DBCS V{#
v g{Td?PZ n vV{G;PH' DBCS V{D SBCS V{,ra{PDZ n
vV{MG DBCS fzV{#

SBCS M DBCS V{DH'T!vZ M#

g{a{G UCS2,G4Td?D?vV{7(a{D;vV{#a{PDZ n vV{


GTd?PZ n vV{D UCS2 H'V{#

Query/400 PDUZ"1dM1dAGmo=
I+UZ"1dM1dAG}]`MM53ha{VN#a{VNDUZ"1dr1
dAGmo=I%@|,BPwnrb)nDiO:
v UZ"1dr1dAGVN{(|,UZ"1dr1dAG5DVND{F)
v V{#?(C2E}p4D SBCS r DBCS V{ — N{Z623D:Query/400 V
{mo=;BD>}Mfr#)
v UZ"1dM1dAG/}MKc(BPdP;vr`v/}McuKc):
+ (S()
−(u()
CHAR
CURRENT
VALUE
DATE
DAY
DAYS

68 Query/400 D9C V4R5


MONTH
YEAR
TIME
HOUR
MINUTE
SECOND
MICROSECOND
TIMESTAMP
v Vx1d(;N1d,IjGDVx1d"UZVx1d"1dVx1dr1dA
GVx1dm> — N{Z763D:Query/400 PDVx1d;#)

V{#?CZUZ"1dr1dAGVNr/}P1ITm>UZ"1dr1dAG
5#|GITCZmo=P,"1wUZ"1dr1dAG4&m#}g,ISUZ
VNu%;vUZ#?#

a{VNDUZ"1dr1dAGmo=I%@|,BPwnrb)nDiO:

Query/400 UZ

UZmo=G;v}?V5(j"BMU),8(qo_oUzBD1dc,Kz(
;O*GT+* 01 jpz'#1j]6'G 0001 = 9999#B]6'G 1 A 12#U
6'G 1 A x,dP x G 28"29"30 r 31,!vZB]#

UZT;v}V*<,$HAY* 6 vV{#I|(2?Uq#ISBMU?VPT%
0<c#JmDP'UZq=P>Zm1P#?vq=I{Fj6,|(`XDu4
(I CHAR /}9C)MC(>}#

m 1. UZ}]`MDm>q=
q={ u4 UZq= >}
zJj</i/ ISO yyyy-mm-dd 1987-10-12
IBM USA j< USA mm/dd/yyyy 10/12/1987
IBM 7^j< EUR dd.mm.yyyy 12.10.1987
U>$5j<+* JIS yyyy-mm-dd 1987-10-12
AS/400 q= DMY DD/MM/YY 12/10/87
YMD YY/MM/DD 87/12/10
MDY MM/DD/YY 12/10/87
JUL YYDDD 87/344
YYYYDDD 1987/344
UZVt{ITGdc (.)"
1\ (/)":E (,)"F[E
(-),TZ AS/400 UZq=
}]`M,2ITGU
q#

1. z7UZ;G<Uq-qo_oUz#Z 1582-10-04 M 1582-10-15 .dDUZ!\Zqo_oUzP;fZ,+S\|G*P'DU


Z#

Z5B Z Query/400 P(ea{VN 69


PX9C SAA UZq=D"bBn: *@9l}UZ5,1Z`oT73P8(UZ
#?1ri/I;,DKT>r|D1,9C
053&Ce5a91(SAA) UZq=
(ISO"USA"EUR r JIS)#

g{9C AS/400 =;}Dj]q=,rUZ6'* 1940 A 2039#S 40 = 99 D


NN;j<O*d@M* 19#S 00 = 39 DNN;j<O*d@M* 20#g{Z=
;}j]q=DVNP|,,vC6'D;v5,C5Z(fO+T>*;. +#ZC
VNO9C CHAR /}8( SAA UZq=,;s!q(fDa{VN#

Query/400 1d

1dmo=G;v}?V5(!1"VSMk),9C 24 !11Sq=8(Uz1d#
!1D6'G 0 A 24,xVSMkD6'G 0 A 59#g{!1G 24,rVSMk
D5w<*c#

1d}]`MT;v}V*<,$HAY* 4 vV{#I|(2?Uq;IS1dD!
1?VPT%0<c,"I{vT%k#g{!qT%k,rO*G 0 k#rK,13.30
`1Z 13.30.00#

1dDP'q=P>Zm2P#?vq=I{Fj6,|(`XDu4(I CHAR /}
9C)MC(>}#

m 2. 1d}]`MDm>q=
q={ u4 1dq= >}
zJj</i/ ISO hh.mm.ss 13.30.05
IBM USA j< USA hh:mm am r pm 1:30 pm
IBM 7^j< EUR hh.mm.ss 13.30.05
U>$5j<+* JIS hh:mm:ss 13:30:05
AS/400 q= - HMS 13:30:05

": 1dVt{ITGdc (.)"1\ (/)":E (,)"F[E (-) rUq#9C CHGJOB


|n|D AS/400 UZr1dq=Vt{#

Z USA 1dq=P,!1;\sZ 12 R;\G 0,}GG 00:00 AM bVXbiv#


9C 24 !11SD0zJj</i/1(ISO) q=,Z USA q=M 24 !11S.
dDT&X5gBy>:
USA q=
24 !11S
12:01 am = 12:59 am
00.01.00 = 00.59.00
01:00 am = 11:59 am
01.00.00 = 11.59.00
12:00 pm(}g)= 11:59 pm
12.00.00 = 23.59.00
12:00 am(g9)
24.00.00

70 Query/400 D9C V4R5


00:00 am(g9)
00.00.00

53<U9C 00.00.00#;PC'EIdk 24.00.00#

Query/400 1dAG

1dAGmo=G;v_?V5(j"B"U"!1"VS"kM"k),8(0f
(eDUZM1d#1d?V|("kD!}5w#

1dAG}]`MT;v}V*<,$HAY* 16 vV{#1dAGDj{m>q=
* yyyy-mm-dd-hh.mm.ss.nnnnnn#I|(2?Uq#IS1dAGDB"UM!1?VP
T%0<c#IS"kPXO2?cr{vT%b)c#;X8("k#1dAG
yyy-mm-dd-hh.mm.ss GITS\D#g{!qT%"k?VDNN}V,rO*;T%
D?V* 0#rK,1990-3-2-8.30.00.10 `1Z 1990-03-02-08.30.00.100000#

ITS\1d5* 24.00.00.000000 D1dAGmo=#

Z Query/400 PT>#?q=
0T>#?q=1A;T>g{8(UZr1d#?R;9C SAA q=,yXk9C
DUZr1dq=#

T>#?q=

i/ . . . . . . : QRY1 !n . . . . . . : CHANGE
b . . . . . . : QGPL CCSID . . . . . . : 65535

9C SAA q=dkUZr1d#?,r9CBP5
hvDq=#

9CT>D!}Vt{#

i/(e5
UZq= . . . . . : *MDY
UZVt{ . . . . : /
1dq= . . . . . : *HMS
1dVt{ . . . . : :
!}Vt{ . . . . : .

404P1|Lx#

F12=!{

1z4PBPYw1vV0T>#?q=1A;:
v S09Ci/1A;|Di/,"Z AS/400 q=(;G*zDw58(DUZr1
dq=)Di/(eP8(KAY;vUZr1d#?#
v S09Ci/1A;T>i/,RUZr1dDw5q=ki/(eP8(D AS/400
UZr1dq=#?;,#
v 9C RUNQRY |nDKPZG<!q!n,RUZr1dDw5q=ki/(eP
8(D AS/400 UZr1dq=#?;,#
v Z QRYRUN }LP9CKPZG<!q!n,RUZr1dDw5q=ki/(e
P8(D AS/400 UZr1dq=#?;,#

Z5B Z Query/400 P(ea{VN 71


v S0!qG<1A;4 F17#
v S0(ea{VN1A;4 F17#

AS/400 UZq=P MDY"YMD"DMY M JUL#P'D AS/400 1dq=*


HHMMSS#

Query/400 PDUZ"1dM1dAGcuKc
ITUZ"1dM1dAG54PS(Mu(Kc,T7(a{VN5#

": g{S(Yw}GUZ"1dr1dAG5,m;vYw}XkGVx1d#

BPfrJCZUZ"1dM1dAGS(:
v g{;vYw}GUZ,m;vYw}XkGUZVx1drj"BrUDjGV
x1d#
v g{;vYw}G1d,m;vYw}XkG1dVx1dr!1"VSrkDj
GVx1d#
v g{;vYw}G1dAG,m;vYw}XkGVx1d#NNVx1d`M<
GP'D#

u(frkS(fr;,,r*;\SVx1dPu%UZ"1dr1dAG5#x
R,+=vUZ"1dr1dAG5`ukSUZ"1dr1dAG5Pu%Vx1
d;,#

BPfrJCZUZ"1dM1dAGu(:
v g{Z;vYw}GUZ,Z~vYw}XkG:
– UZ
– UZVx1d
– UZDV{m>
– j"BrUDjGVx1d
v g{Z~vYw}GUZ,Z;vYw}XkG:
– UZ
– UZDV{m>
v g{Z;vYw}G1d,Z~vYw}XkG:
– 1d
– 1dVx1d
– 1dDV{m>
– !1"VSrkDjGVx1d
v g{Z~vYw}G1d,Z;vYw}XkG:
– 1d
– 1dDV{m>
v g{Z;vYw}G1dAG,Z~vYw}XkG:
– 1dAG
– 1dAGDV{m>

72 Query/400 D9C V4R5


– Vx1d
v g{Z~vYw}G1dAG,Z;vYw}XkG:
– 1dAG
– 1dAGDV{m>

Query/400 PDUZcuKc
Iu%UZ"vSru!UZ#

Z Query/400 Pu%UZ
S;vUZ (DATE1) Pu%m;vUZ (DATE2) Da{GUZVx1d,|8(=
vUZ.dDj"BMUD}?#a{D}]`M*9u.xF}V#g{ DATE1 s
ZrHZ DATE2,rS DATE1 Pu% DATE2#+G,g{ DATE1 !Z DATE2,
rS DATE2 Pu% DATE1,a{D{E*:#TBLr5whvZKc RESULT =
DATE1 - DATE2 Pf0D=h#
If DAY(DATE2) < = DAY(DATE1)
then DAY(RESULT) = DAY(DATE1) - DAY(DATE2).

If DAY(DATE2) > DAY(DATE1)


then DAY(RESULT) = N + DAY(DATE1) - DAY(DATE2)
where N = the last day of MONTH(DATE2).
MONTH(DATE2) is then incremented by 1.

If MONTH(DATE2) < = MONTH(DATE1)


then MONTH(RESULT) = MONTH(DATE1) - MONTH(DATE2).

If MONTH(DATE2) > MONTH(DATE1)


then MONTH(RESULT) = 12 + MONTH(DATE1) - MONTH(DATE2).
YEAR(DATE2) is then incremented by 1.

YEAR(RESULT) = YEAR(DATE1) - YEAR(DATE2).

}g,DATE(’3/15/2000’) - ’12/31/1999’ Da{G 215,4Vx1d* 0 j 2 vB 15


l#

Z Query/400 PvSMu!UZ

+Vx1dkUZ`SrSUZPu%Vx1dDa{TGUZ#|XkZ 0001 j 1
B 1 U= 9999 j 12 B 31 U.d,R|(b=U#g{SOru%jVx1d,
;0lUZPDj?V#

g{SOru%BVx1d,;0lBMj#U?V;d,}Ga{^'(}g,9 B
31 U)#

SOru%UVx1d0lU?V,2I\0lBMj#

UZVx1d(}}r:})IkUZ`SrSUZPu%#a{GvSru!K8
(Dj"BMU}?DUZ#

1+Vx1dmSAUZ1,mS;vB=8(UZ,da{G;vBsD`,U
Z, }G CUZ;fZ#TZbViv,+CUZhC*B;vBDns;l#}
g, 1 B 28 US;vB4C 2 B 28 U#+ 1 B 29"30 r 31 US;vBC= 2
B 28 UrrjD 2 B 29 U#

Z5B Z Query/400 P(ea{VN 73


": g{+;vBr8vBmSA8(UZ,;sSa{Pu%`,}?DB],n
sUZ;;(MG-4DUZ#

Z Query/400 P+}VVN*;*UZVN

TBG+|,UZD}VVN*;*UZ}]`MVND;V==#

ZK>}P,w5UZq=* YMD,w5UZVt{* /#;vD~|,}VUZVN


NUMDATE,d$H* 6,CVN|, MDY(BUj)q=DUZ#NUMDATE PD
Z;v5* 011392#

4(BPa{VN:

CHARDATE DIGITS(NUMDATE)
CHARDAT2 SUBSTR(CHARDATE,5,2)||'/'||
SUBSTR(CHARDATE,1,2)||'/'||
SUBSTR(CHARDATE,3,2)
NEWDATE DATE(CHARDAT2)

NEWDATE |, 1992 j 01 B 13 UDZ?m>#g{(fOT>KUZ,|+T>


* 92/01/13#

": g{a{UZ5,v 1940 A 2039 D6',|Z(fO+T>*;. +#9C


CHAR /}i4}7D5#

Z Query/400 P9C}VUZ

g{9C}VVNm>UZ,G4I9CcuKc4Y]UZx;X9C Query UZ/


}#>} 1 T>+|,UZD}VVNS MMDDYY q=*;* YYMMDD q=D
;V=(#>} 2 T>`4D*;:S YYMMDD q=*;* MMDDYY q=#

>} 1:Z Query/400 P9C}VUZ: TBi/(eS MMDDYY }VVN=


YYMMDD }VVND*;,s;V`MDVN|JOZTX(j"BMU5DErM
!q#jGP (*) DPGXhD,fsGy>(f#g{h*T(fPDVNxPak
(x;GXO),I+?vPdmo=u% 0.5,gBy>:MM = (MMDDYY/10000)-0.5#
>} 1

5728QU1 R03 M00 900824 IBM AS/400 Query 10/04/90 14:17:45 Z 1 3


i/ . . . . . . . . . . . . . . . . . YYMMDD02
b . . . . . . . . . . . . . . . . . CRP
i/D> . . . . . . . . . . . . . . . MMDDYY = YYMMDD
{m3r . . . . . . . . . . . . . . . .yxF
&m!n
* 9Cak . . . . . . . . . . . . . . q
vT.xF}]ms . . . . . . . . . q(1!5)

!(DD~
ID D~ b I1 G<q=
T01 MMDDYY QTEMP MMDDYY MMDDYY
a{VN
{F mo= Pjb Len Dec
* MM (mmddyy/10000) 2 0
* DD (mmddyy/100 - (mm * 100)) 2 0
* YY (mmddyy - (mm*10000 + dd*100)) 2 0
* YYMMDD (yy*10000)+(mm*100)+dd 6 0

* * * * * * * * * * i/r!ax * * * * * * * * * *

74 Query/400 D9C V4R5


MM DD YY YYMMDD MMDDYY
08 31 90 900831 083190
* * * * * * (fax * * * * * *

>} 2:Z Query/400 P9C}VUZ: >>}T>`4Dq=/}L — +}V


YYMMDD *;* MMDDYY#jGP (*) DPGXhD,fsGy>(f#
>} 2

i/ . . . . . . . . . . . . . . . . . YYMMDD01
b . . . . . . . . . . . . . . . . . CRP
i/D> . . . . . . . . . . . . . . . YYMMDD = MMDDYY
{m3r . . . . . . . . . . . . . . . EBCDIC
&m!n
* 9Cak . . . . . . . . . . . . . . q
vT.xF}]ms . . . . . . . . . q(1!5)
Xbiv
*** Z1!ivB!qyPG< ***

!(DD~
ID D~ b I1 G<q=
T01 YYMMDD QGPL JUNK YYMMDD
a{VN
{F mo= Pjb Len Dec
* YY (yymmdd/10000) 2 0
* MM (yymmdd/100 - (yy * 100)) 2 0
* DD (yymmdd - (yy*10000 + mm*100)) 2 0
* MMDDYY (mm*10000)+(dd*100)+yy 6 0

* * * * * * * * * * i/r!ax * * * * * * * * * *

MM DD YY MMDDYY YYMMDD
08 31 90 083190 900831
* * * * * * (fax * * * * * *

Query/400 PD1dcuKc
ITu%1d"vSru!1d#S;v1d (TIME1) Pu%m;v1d (TIME2) D
a{G1dVx1d,|8(=v1d.dD!1"VSMkD}?#

}g,TIME('11:02:26') − ('10:32:56') Da{G 2930,4Vx1d 0 !1 29 V


S 30 k#

Z Query/400 PvSMu!1d

+Vx1dk1d`SrS1dPu%Vx1dDa{TG1d#g{SOru%!
1Vx1d,;0l1dPD!1?V#VSMk#V;d#g{SOru%VSV
x1d,Zh*0lDivB;0lVSM!1#SOru%kVx1d0lk?
V,2I\0lVSM!1#

Query/400 PD1dAGcuKc

ITu%1dAG"vSru!1dAG#+Vx1dk1dAG`SrS1dAG
Pu%Vx1dDa{TG1dAG#UZM1dcukH0(eD`,,;,DG
!1DOgrBgax;=a{DUZ?VP#

Z5B Z Query/400 P(ea{VN 75


Query/400 PDVx1d
Vx1dm>;N1d#PDV`M:jGD"UZ"1dM1dAG#

Query/400 PDjGVx1d
jGVx1d_PX(D1d%;,m>*;v}V,szBPdP;vVx1dX
|V:
YEAR, YEARS
MONTH, MONTHS
DAY, DAYS
HOUR, HOURS
MINUTE, MINUTES
SECOND, SECONDS
MICROSECOND, MICROSECONDS

v1m;vYw}D`M*UZ"1dr1dAG1,EI9CjGVx1dw*Y
w}#}g:
HIREDATE + 2 MONTHS + 14 DAYS

GP'Dmo=#
HIREDATE + (2 MONTHS + 14 DAYS)

;GP'Dmo=#Zb=vmo=P,jGVx1d* 2 MONTHS M 14 DAYS#

Query/400 PDUZVx1d

| UZVx1dm>j"BMU,m>*}V DECIMAL (8,0)#*KC=}7bM,K}


| VDq=Xk* yyyymmdd,dP yyyy m>j},mm m>B},x dd m>l}#S
| ;vUZ5Pu%m;vUZ5Da{*UZVx1d,gmo= HIREDATE —
| BIRTHDATE#>}:
| HIREDATE - BIRTHDATE

| Query/400 PD1dVx1d

1dVx1dm>!1"VSMk,m>*}V DECIMAL (6,0)#*KC=}7bM,


| K}VDq=Xk* hhmmss,dP hh m>!1},mm m>VS},x ss m>k
}#S;v1d5Pu%m;v1d5Da{*1dVx1d#

Query/400 PD1dAGVx1d

1dAGVx1dm>j"B"U"!1"VS"kM"kD}?,m>*}V
DECIMAL (20, 6)#*KC=}7bM,K}VDq=Xk* yyyymmddhhMMsszzzzzz,
dP yyyy"mm"dd"hh" MM"ss M zzzzzz Vpm>j"B"U"!1"VS"kM
"kD}?#S;v1dAG5Pu%m;v1dAG5Da{*1dAGVx1
d#

Query/400 PDUZ"1dM1dAG/}
ITUZ"1dM1dAG54PBP/}:

76 Query/400 D9C V4R5


CHAR Query/400 /}
CHAR /}5XUZ"1dr1dAG5DV{m>#I!DZ~vTd?7(a{V
{.D SAA q=#Z;vTd?XkGUZ"1dr1dAG# Z~vTd?(g{
9CD0)GV{q=D{F#q=gB:
ÊÊ CHAR ( expression ) ÊÍ
,ISO
,USA
,EUR
,JIS

K/}Da{G($V{#?#g{Z;vTd?IT*U5,ra{2IT*U
5#g{Z;vTd?*U5,ra{*U5#d{fr!vZZ;vTd?D}]
`M,gBy>:
v g{Z;vTd?GUZ:
– &8(q=,HdGZTBivB:
- i/+I;,DC'9C#
- i/+"M=m;(zw#
- UZ_P=;}Dj]q=tT,d5I\;Z6' 1940 A 2039 Z#9CK
/}i4D;} SAA j]q=DUZ#
– g{T%Z~vTd?,V{.q=*w5q=#
– a{*Z~vTd?8(Dq=m>DUZDV{.m>#
– g{8(q=,a{$H* 10;g{;P8(q=,a{$H* 8#
v g{Z;vTd?G1d:
– g{T%Z~vTd?,V{.q=*w5q=#
– a{*Z~vTd?8(Dq=m>D1dDV{.m>#
– a{$H* 8#
v g{Z;vTd?G1dAG:
– Z~vTd?;JC,R;\8(#
– a{*1dAGDV{.m>#
– a{$H* 26#

>}:
CHAR(HIREDATE,USA)

DATE Query/400 /}
DATE /}S;v55XUZ#q=gB:
ÊÊ DATE ( expression ) ÊÍ

Td?XkG:
v 1dAG
v UZ
v !Z 3 652 059 D}}rmo=

Z5B Z Query/400 P(ea{VN 77


v UZDP'V{m>
v $H* 7 DV{m>

g{Td?G$H* 7 DV{m>,|Xkm>q=* yyyynnn DP'UZ,dP yyyy


m>j],nnn m> 001 M 366 .dD}V,8(G;jPD;l#

K/}Da{GUZ#g{Td?IT*U5,ra{2IT*U5#g{Td?*
U5,ra{*U5#
v g{Td?G1dAG,ra{*1dAGDUZ?V#
v g{Td?GUZ,ra{*CUZ#
v g{Td?G}V,ra{* 0001 j 1 B 1 U.sD n−1 lDUZ#
v g{Td?GV{5,ra{*V{.m>DUZ#

": g{9C AS/400 =;}Dj]q=,rUZ6'* 1940 A 2039#S 40 = 99


DNN;jD@M;S* 19#S 00 = 39 DNN;jD@M;S* 20#g{Z
=;}j]q=DVNP|,,vC6'D;v5,C5Z(fO+T>*;. +#
ZCVNO9C CHAR /}8( SAA UZq=,;s!q(fDa{VN#

>}:
DATE(STRDATE)

DAY Query/400 /}
DAY /}5X;v5DU?V#q=gB:
ÊÊ DAY ( expression ) ÊÍ

Td?XkG:
v UZ
v 1dAG
v UZVx1d
v 1dAGVx1d

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?GUZr1dAG,ra{*C5DU?V,|G5Z 1 M 31 .dD~x
FVN#

g{Td?GUZVx1dr1dAGVx1d,ra{*C5DU?V,|G5Z -99
M 99 .dD~xFVN#Gca{kTd?_P`,D{E#

>}:
RESULT(DAY) = DAY(HIREDATE)

RESULT(DAY) +HZ 1 M 31 .dD;v5#

78 Query/400 D9C V4R5


DAYS Query/400 /}
DAYS /}5XUZD}Vm>#q=gB:
ÊÊ DAYS ( expression ) ÊÍ

Td?XkG:
v UZ
v 1dAG
v UZDP'V{m>

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

a{GS 0001 j 1 B 1 U= D Dl}S 1,dP D G+ DATE /}&CZTd


?yqCDUZ#

>}:
RESULT(DAY) = DAYS(CURRDATE) - DAYS(HIREDATE)

RESULT(DAY) HZ;v},|m>b=vUZ.dDl}#

HOUR Query/400 /}
HOUR /}5X;v5D!1?V#q=gB:
ÊÊ HOUR ( expression ) ÊÍ

Td?XkG:
v 1d
v 1dAG
v 1dVx1d
v 1dAGVx1d

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?G1dr1dAG,ra{*C5D!1?V,|G5Z 0 M 24 .dD~
xFVN#

g{Td?G1dVx1dr1dAGVx1d,ra{*C5D!1?V,|G5
Z -99 M 99 .dD~xFVN#Gca{kTd?_P`,D{E#

>}:
HOUR(TIME) where time = 12:11:22

HOUR Da{5HZ 12#

Z5B Z Query/400 P(ea{VN 79


MICROSECOND Query/400 /}
MICROSECOND /}5X;v5D"k?V#q=gB:
ÊÊ MICROSECOND ( expression ) ÊÍ

Td?XkG:
v 1dAG
v 1dAGVx1d
v 1dAGDP'V{m>

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?G1dAG,ra{*C1dAGD"k?V,|G5Z 0 M 999999 .d
D~xFVN#

g{Td?G1dAGVx1d,ra{*C1dAGVx1dD"k?V,|G5
Z -999999 M 999999 .dD~xFVN#

>}:
MICROSECOND(TIMESTAMP) where TIMESTAMP = 1991-10-22-12.15.23.123456

MICROSECOND Da{5HZ 123456#

MINUTE Query/400 /}
MINUTE /}5X;v5DVS?V#q=gB:
ÊÊ MINUTE ( expression ) ÊÍ

Td?XkG:
v 1d
v 1dAG
v 1dVx1d
v 1dAGVx1d

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?G1dVx1dr1dAGVx1d,ra{*C5DVS?V,|G5
Z -99 M 99 .dD~xFVN#Gca{kTd?_P`,D{E#

>}:
MINUTE(TIMESTAMP) where TIMESTAMP = 1991-10-22-12.15.23.123456

MINUTE Da{5HZ 15#

80 Query/400 D9C V4R5


MONTH Query/400 /}
MONTH /}5X;v5DB?V#q=gB:
ÊÊ MONTH ( expression ) ÊÍ

Td?XkG:
v UZ
v 1dAG
v UZVx1d
v 1dAGVx1d

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?GUZVx1dr1dAGVx1d,ra{*C5DB?V,|G5Z -99
M 99 .dD~xFVN#Gca{kTd?_P`,D{E#

>}:
MONTH(TIMESTAMP) where TIMESTAMP = 1991-10-22-12.15.23.123456

MONTH Da{5HZ 10#

SECOND Query/400 /}
SECOND /}5X;v5Dk?V#q=gB:
ÊÊ SECOND ( expression ) ÊÍ

Td?XkG:
v 1d
v 1dAG
v 1dVx1d
v 1dAGVx1d

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?G1dr1dAG,ra{*C5Dk?V,|G5Z 0 M 59 .dD~x
FVN#

g{Td?G1dVx1dr1dAGVx1d,ra{*C5Dk?V,|G5Z -99
M 99 .dD~xFVN#Gca{kTd?_P`,D{E#

>}:
SECOND(TIMESTAMP) where TIMESTAMP = 1991-10-22-12.15.23.123456

SECOND Da{5HZ 23#

Z5B Z Query/400 P(ea{VN 81


TIME Query/400 /}
TIME /}S;v55X1d#q=gB:
ÊÊ TIME ( expression ) ÊÍ

Td?XkG:
v 1d
v 1dAG
v 1dDP'V{m>

K/}Da{G1d5#g{Td?IT*U5,ra{2IT*U5#g{Td?
*U5,ra{*U5#
v g{Td?G1dAG,ra{*1dAGD1d?V#
v g{Td?G1d,ra{*C1d#
v g{Td?GV{.,ra{*V{.m>D1d#

>}:
TIME(TIMESTAMP) where TIMESTAMP = 1991-10-22-12.15.23.123456

TIME Da{5HZ 12.15.23#

TIMESTAMP Query/400 /}
TIMESTAMP /}S;v5r;T55X1dAG#q=gB:
ÊÊ TIMESTAMP ( expression ) ÊÍ
expression

Td?Dfr!vZGq8(Z~vTd?#
v g{v8(;vTd?,|XkG:
– 1dAG
– 1dAGDP'V{m>
– $H* 14 DV{.

": $H 14 DV{.XkG}VV{.,|m>q=* yyyyMMddhhmmss DP'


UZM1d,dP yyyy Gj,MM GB,dd GU,hh G!1,mm GVS,
x ss Gk#
v g{8(=vTd?,Z;vTd?XkGUZrUZDP'V{m>#Z~vT
d?XkG1dr1dDP'V{m>#

K/}Da{G1dAG#g{NN;vTd?IT*U5,ra{2IT*U5#
g{NN;vTd?*U5,ra{*U5#

g{8(=vTd?,ra{*1dAG,|DUZIZ;vTd?8(,1dIZ
~vTd?8(#1dAGD"k?V*c#

82 Query/400 D9C V4R5


g{v8(;vTd?RCTd?G1dAG,ra{GC1dAG#g{v8(;
vTd?RCTd?GV{.,ra{GCV{.m>D1dAG#I$H 14 DV{
.m>D1dAGD"k?V*c#

>}:
RESULT(x) = TIMESTAMP(DATEFRNK,TIMEFRNK)

YEAR Query/400 /}
YEAR /}5X;v5Dj?VD}Vm>#q=gB:
ÊÊ YEAR ( expression ) ÊÍ

Td?XkG:
v UZ
v 1dAG
v UZVx1d
v 1dAGVx1d

K/}Da{G~xFVN#g{Td?IT*U5,ra{2IT*U5#g{T
d?*U5,ra{*U5#

g{Td?GUZr1dAG,ra{*C5Dj?V,|G5Z 1 M 9999 .dD~


xFVN#

g{Td?GUZVx1dr1dAGVx1d,ra{*C5Dj?V,|G5Z
-9999 M 9999 .dD~xFVN#Gca{kTd?_P`,D{E#

>}:
YEAR(TIMESTAMP) where TIMESTAMP = 1991-10-22-12.15.23.123456

YEAR Da{5G}5 1,991#

Query/400 PDd{UZ"1dM1dAG/}
yZ531S,k DATE"TIME"TIMESTAMP r TIMEZONE ;p9CD CURRENT
/}5Xk9CD/}T&D10535#9C TIMEZONE /}I+>X1d5aW
X*;*qV~Nj<1d (GMT),4S>X1d5Pu% CURRENT(TIMEZONE)#

": g{Z;v Query (eP`N9Cb)/},G4+?D5<yZ%v1SA}#

g{zDw5UZq=ki/P9CDq=;,,Query/400 +9Cw5UZq=#g
{9C CURRENT(DATE) w*8VVN,1w5Mi/UZq=;,1I\qCbb
Da{#

>}:
CURDAT = CURRENT(DATE)
CURTSP = CURRENT(TIMESTAMP)

Z5B Z Query/400 P(ea{VN 83


Z Query/400 P*;UZq=
P1zI\v=bViv,zkzI;v(f,dUZq=;G4(D~1(eDq
=#

Z Query/400 P*;}]bD~dvDUZ
*+UZVN*;*kdkD~;,Dq=,Xk9C DDS b?(edvD~,*d
vUZVN8(UZq=#K*;T/xP#

Z Query/400 P*;A;rr!zdvDUZ
zIT9CUZ/}+dkUZVN*;*m;Vq=#>} 1 M 2 T>+UZVN
S MMDDYY q=*;* YYDDD q=D=V=(#>} 3 M 4 T>S YYDDD
= MMDDYY q=D4r*;#

": *cZDA,+`vAfS<O"*%vA;<s#

>} 1—Z Query/400 PS MMDDYY *;* YYDDD q=


TB0(ea{VN1Af(eS MMDDYY = YYDDD DUZ*;#*;+?ZC
AfZ4P#

(ea{VN

9CVN{"#?MKc{dk(e,404P1|#
Kc{:+"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


YY________ SUBSTR(CHAR(MMDDYY),7,2)_________ ____________________ _____ __
_________________________________ ____________________
_________________________________ ____________________

CHARJAN01_ '01/01/' || YY___________________ ____________________ _____ __


_________________________________ ____________________
_________________________________ ____________________

JAN01_____ DATE(CHARJAN01)__________________ ____________________ _____ __


_________________________________ ____________________
_________________________________ ____________________

DDD_______ SUBSTR(DIGITS(DAYS(MMDDYY)-DAYS(J ____________________ _____ __


AN01)+1),10,3)___________________ ____________________
_________________________________ ____________________

YYDDD_____
YY_||_'/'_||_DDD_________________ ____________________ _____ __
_________________________________ ____________________
_________________________________ ____________________
_______________________________________________________________________________
VN D> Len Dec
MMDDYY MMDDYY q=DUZVN 8 L

W?
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

>} 2—Z Query/400 PS MMDDYY *;* YYDDD q=


>>}T>>} 1 Py4PD`,*;Dm;v=(#*;+?ZCAfZ4P#K=
(*sXk+10w5DUZq=hC* YYDDD#fZbViv1,DATE /}T/
4PC*;#

84 Query/400 D9C V4R5


(ea{VN

9CVN{"#?MKc{dk(e,404P1|#
Kc{:+"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


YYDDD_____ DATE(MMDDYY)_____________________ ____________________ _____ __
_________________________________ ____________________
_________________________________ ____________________

__________ _________________________________ ____________________ _____ __


_________________________________ ____________________
_________________________________ ____________________

W?
_______________________________________________________________________________
VN D> Len Dec
MMDDYY MMDDYY q=DUZVN 8 L

W?
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

Z>} 3 PKPi/D|n*:
CHGJOB DATFMT(*JUL)
RUNQRY QRY(YYDDD)

>} 3—Z Query/400 PS YYDDD *;* MMDDYY q=


TB0(ea{VN1Af(eS YYDDD = MMDDYY DUZ*;#*;+?ZC
AfZ4P#

(ea{VN

9CVN{"#?MKc{dk(e,404P1|#
Kc{:+"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


YY________ SUBSTR(DIGITS(YEAR(YYDDD)),9,2)__ ____________________ _____ __
_________________________________ ____________________
_________________________________ ____________________

MM________ SUBSTR(DIGITS(MONTH(YYDDD)),9,2)_ ____________________ _____ __


_________________________________ ____________________
_________________________________ ____________________

DD________ SUBSTR(DIGITS(DAY(YYDDD)),9,2)___ ____________________ _____ __


_________________________________ ____________________
_________________________________ ____________________

MMDDYY____ MM_||_'/'_||_DD_||_'/'_||_YY_____ ____________________ _____ __


_______________________________________________________________________________
VN D> Len Dec
YYDDD YYDDD q=DUZVN 6 L

W?
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

>} 4—Z Query/400 PS MMDDYY *;* YYDD q=


| >>}T>>} 3 Py4PD`,*;Dm;v=(#*;+?ZCAfZ4P#K=
| (*sXk+10w5DUZq=hC* MMDDYY#fZbViv1,DATE /}T
| /4PC*;#

Z5B Z Query/400 P(ea{VN 85


| (ea{VN
|
| 9CVN{"#?MKc{dk(e,404P1|#
| Kc{:+"-"*"/"SUBSTR"||"DATE...
|
| VN mo= Pjb Len Dec
| MMYYDD_____ DATE(YYDDD)_____________________ ____________________ _____ __
| _________________________________ ____________________
| _________________________________ ____________________
|
| __________ _________________________________ ____________________ _____ __
| _________________________________ ____________________
| _________________________________ ____________________
|
| W?
| _______________________________________________________________________________
| VN D> Len Dec
| YYDDD YYDDD q=DUZVN 6 L
|
| W?
| F3=Kv F5=(f F9=ek F11=vT>{F
| F12=!{ F13=<V F20=Xi F24=d{|
|
|

| Z>} 4 PKPi/D|n*:
CHGJOB DATFMT(*MDY)
RUNQRY QRY(MMDDYY)

Z Query/400 P4(mo=D;c<GBn
TBG1z4(mo=1&9CD;);cfr:
v m>UZDV{#?9Ci/(ePf"DUZq=4s5#
v zDmo=ITP%v5,|2ITy]h*9C`vYw}MKc{,T<C
0(ea{VN1A;Oa)D}PUdP#
v g{a{VNI\P;c}rgvDa{,;*Z!qG<bTP9C|r+|C
wErVN#
v I4PBPdP;nYw4\b;c}:
– Z!qG<1,^[G(}!q/T%_-D~9G(}yZGa{VNDVN
DG<!qbT,;!q;a}p;c}DG<#
– g{a{VN(ePD;}}+\G*c,"TTmo=xPBP|D:
-<mo= ---> FIELD = P / X

^DDmo= ---> S = .00001

FIELD = P / (X + S)

": Zmo= S P,1 .0Dc}?&H-<mo=D!}+H`=;#


– g{a{VN(ePD;}};*cx}}*c,Tmo=xPBP|DI@9
gviv#
-<mo= ---> FIELD = P / X

^DDmo= ---> S = .00001

FIELD = (P*X) / ((X*X) + S)

86 Query/400 D9C V4R5


– g{zDmo=4P}(Kc,G4ZTa{VN4P}(Kc.0+V8(e
*a{VN,I\b;c}#by,TZG<!qDyP_- OR Vi,mS;
v_- AND bT,9V8;\HZc#
| v Za)D}PP,ITZ;PDP2+VN{"}V#?rV{.V*,;sZB
| ;PPWLx#1z+VN{r}V#?V*1, ;*ZZ;PP2rB;PPW
| SUq,r* Query a+|S*=vVN{r}V#?#V{#?(4,C2E}p
| 4DV{)ITZNN;CV*#DBCS V{#?IT(}ZO;PDns;PS;
| vFkV{"ZB;PDZ;PS;vFvV{4V*#
v 19CVNxP}(Kc1,9Xk!q;HZcDVNw*Z;v!q,;sY
&mNNd{VN,gBy>:
v
1. AND/OR VN bT 5
2. ODQYSD NE 0
3. AND OMCRMM EQ 0
4. AND OMSTAT EQ ’50’
5. AND ODSTAT NE ’99’
6. AND PCT LT 90
7. AND PCT LT 90
8. AND OMUSOR LIST ’DT’ ’ET’ ’SR’ ’RT’
v *9mo=WZmb,IZVN{MKc{.d9CUq#
v I4(n` 100 va{VN#
v ZUZ"1d"1dAGr}VVNP;JmS.M"CKc#*\bbViv,
TUZ"1dr1dAGVN9C CHAR /},T}VVN9C DIGITS /}#

Query y]BP-r7(a{VND}]`M:
g{mo=PDZ;v5G}VVN{"}V#?(Hg}V 7 r −3.14)r5X
}5D/},ra{VN*}V#
g{9C SUBSTR /},G4g{5* SBCS"(;= DBCS rq;= DBCS,
ra{VN* SBCS V{VN#g{5**E= DBCS,ra{VN**E= DBCS
VN#g{5*<N DBCS,ra{VN*<N DBCS VN#($VNDS.IT
Gd$VNr($VN,b!vZzgN(e$HM;F#
g{mo=G#?"VNr/},ra{VND}]`M*#?"VNr/}5X
D5D}]`M#
g{9C"CKcR*"CDyP5<G(;= DBCS,ra{VNG(;=
DBCS#
g{9C"CKcR*"CDyP5<G<N DBCS,ra{VNG<N DBCS#
g{9C"CKcR*"CD;v5Gq;= DBCS,r_g{mo=|, SBCS M
(!D DBCS VNr#?DlON=,ra{VNG*E= DBCS#
g{+d$VNk($rd$VN"C,ra{Gd$VN#
g{"C=vr|`v($VN,ra{G($VN#
g{"C=v($ DBCS VN,ra{Gd$VN#

Z5B Z Query/400 P(ea{VN 87


Query/400 PDPjb
g{zk8(*CZa{VNDPjb,rZA;Oka{VNT&DG}P(?P
n` 20 vV{)Odkh*Djb#jb+j+4UzZG}POdkDq=T>Z
i/dvP#

g{;#{3va{VNPNNjb,ZCVNZ;PD0 5 PPdk *NONE#


(Xk
+?9Cs4V8,G;PDd`?VMBf=PXk*UW#)g{;8(jbr
*NONE,Query +9Ca{VN{w*Pjb#

Query/400 PD$HM!};}
TZV{(SBCS M DBCS)"UZ"1dM1dAGa{VN,Xk+ Len M Dec
5#t*UW#g{Z(ea{VN14Z Len M Dec PP8(NNZ],Query +
7(a{VND$H#1 Query 7(b)51,Z|Dmo=1z*<GDBiM|
Y#g{k*@a{VND$H,4 F13 i4(f<V"Fc 9(}VVN)M X
(SBCS V{VN)D}?#g{9CJm DBCS DA;RP DBCS }],r4TB
`pF}:
+VZ J,m>(;= DBCS }]
+VZ O,m>*E= DBCS(lO)}]
+VZ E,m>q;= DBCS }]
+VZ G,m><N DBCS }]

TZUZ"1dr1dAGVN,i4a{VNP10UZ"1dr1dAGD$
H#

TZ}Va{VN,$HGVNPD\};#||(.xF!}csR=_D};,
+;|(.xF!}c#!}G.xF!}cR_D!};}#g{kT$Hdkz
T:D5,*@9bba{,&WHDAZ1263D:Query/400 (fPD$HM!}
;;MZ1963D:Query/400 PDa{VN$HM!};};#xR,&q-BPf
r:
v g{* Len 8(5,9Xk* Dec(!};})8(5#
v g{vSru! Dec PD5,G4 Len PD5&vSru!`,D?#xR,g{
z|D}Vmo=,TszI\h*|Db)5#
v g{+ Len M Dec #t*UW,Zmo=|D1 Query +|DK5#

g{z9CK}Kc4(a{VN,ZD~PD5J}];h* Query ("DnsVN


s!1I\ITu!$H5#}g,bfwD~;cP PRICE VNM QUANTITY VN#
b=vVNXkPc;D$H,EIT&mI\Dns5#1b=vVN`K44(
a{VN AMOUNT 1,ns$H+Gb=vVNs!D\M#r*_[L7(#f"D
}?;`,by AMOUNT DnsVNs!I\}sx;JC(}g,Z(fP) #

": g{ku!VN$H,r*z;h*(fOT>DX(P},G4;&|D0(
ea{VN1A;ODVN$H#IT|D08((fPq=1A;ODVN$
H#g{zZ0(ea{VN1A;O8(VN$H,r}Vmo=Da{I\
;XOrak,b!vZzZ08(&m!n1A;O8(DZ]#

88 Query/400 D9C V4R5


Z Query/400 P(ea{VND>}
TBA;T>;v>},5wgN9Cmo= WEEKS * 7 M(fPjb\l}44(}
Va{VN DAYS#Z~vdkxT>gN(eV{a{VN GREETING,d5* ‘Have
a nice day‘ R;PPjb#

(ea{VN
9CVN{"#?MKc{dk(e,404P1|#
Kc{:+"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


DAYS WEEKS * 7 \ _____ __
l}

GREETING 'Have a nice day' *NONE _____ __

W?
_________________________________________________________________________
VN
MONTHS
WEEKS
YEAR

W?
F3=Kv F5=(f F9=ek F11=T>D>
F12=!{ F13=<V F20=Xi F24=d{|

": PX CCSID gN0la{VNDE",N{Z2603D:Query/400 PD CCSID M


a{VNmo=;#

Z Query/400 PmSr}%a{VN
+a{VNmSAi/(e,*s+bj(;ZA;DOk?V,"9C F9 ek;i
UWDa{VN(eP#1zdk(eBDa{VNh*DE"s,b)E"ekZ
4 F9 1bjyZD;Cs#"bXkH(ea{VN,;sEI+|Cw4(m;v
a{VNDmo=D;?V#

;)+bj(;ZA;DOk?V,4B3|ILxT>Bf=vVN(e,1=z
=oPmPDnsGUW(e#4O3|T>0f=v(e,1=z=oPmW#

*}%3a{VN,>}0(ea{VN1A;OTCVNDyP}C0d(e#X
kSi/P}%yPd{X=vVDCVN,x Query axzAd{mo=ri/(e
Dd{?VPvVDCa{VN#

Z5B Z Query/400 P(ea{VN 89


90 Query/400 D9C V4R5
Z6B Z Query/400 P!q"ErVN
>BhvgN!qz*|(Zi/dvPDVNT0gN8>VNT>D3r#b)
VNy]z*?vVNdkDrESsART>Zi/(fP#Query 9zPzaSi
/(eDyP!(D~MyPa{VNP!qVN#

C Query/400 !q"ErVN
g{z4Z0(ei/1A;D0!q"ErVN1!nTdk 1,Query +Ti/P
a)Dn`0 500 vVN!q"Er#g{z!qDD~v|,;)\]WEk 132 P
(r!dvDj<mH)D!VN,Rz;ZudvD3r,C Query *z!q"Er
VNM\Pbe,9ITZ!1d#+GZi/Pv!(zh*DVNI\aZi/
KP1DxT\#

Zi/(eZd,g{zZ0(ei/1A;D!q"ErVN!nTdk 1,+T>
0!q"ErVN1A;#g{zDdKwb,VZ#{ Query *z!q"ErVN,
I4 F12(!{)5X=0;A;#(zZA;OydkD;P<;vT#)

Z Query/400 P!qVN"8(d3r
BfT>0!q"ErVN1A;,Z|DVNPPT>KM'wD~D;)y>V
N#

!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


404P1|#

rE VN rE VN
____ ACCTNUMBER ____ PASTDUE
____ COMPANY ____ DATELASTPD
____ FIRSTNAME ____ CURRENTDAT
____ MIDDLEINIT ____ YEAR
____ LASTNAME ____ MONTH
____ STREETADDR
____ CITY
____ STATE
____ ZIPCODE
____ TELENUMBER
____ CRLIMIT
____ BALDUE
W?

F3=Kv F5=(f F11=T>D> F12=!{


F13=<V F20=XB`E F21=+! F24=d{|

Zzk*!qD?vVN08( 0 A 9999 .dD;vrExP!q#4}r9Cr


E#nM`EVN;ZdvDns_(rG}]bD~PDZ;vVN)#g{zTy
!qDVNDdKwb,IT}%ZVN0f8(D`E4SdvP>}|#*|D
y!VND3r,;k|DEk#

© Copyright IBM Corp. 2000 91


ZxPB!qr|DI!qs,404P1|ZA;OTB3rXB+|GEr#;
sIT4 F20 CBrE(v?* 10,g 10"20"30 H)XB+|G`E#XB`E
IT9TsZCrPPmSVN|]W#

;Pyq*9z!qDG)VNvVZdvP#g{z#{d`VN(s_^`ED
#Query +PmE
G)VN)vVZdvPRz;XpZb|GDEP,4 F21(+!)
P*TzQ-!(DVN*7,;s|*yP#`DVNT|GZPmPvVD3r
a)rE#(F21 v1z4(r|Di/(e1EIC#)

1zxP!qr|D3r"4K04P1|s,Query XBEPVNTkz8(D3r
`{O"T>E"0404P1|7O#1#g{zT!qM3rP=zb,YN4
04P1|axVN!q#g{zZ404P1|.0xPKNND|D,+YNT
>KE",zXkYN404P1|Lx#

b)VNZA;OTBPNrT>:
1. ZKA;O!qDyPVNT8(D3rT>#g{;P!qVN,!qw*Ki
/ErVNDVN(g{P)4|GZ0!qErVN1A;Oy3hDEH63
rWHPv#
(N{Z8B Z Query/400 P!qErVN#)
2. *Ki/(e+4!qDNNa{VN#
3. yPd{VNT|GZy!D~DG<q=(ePfZD3rT>#WHPv4S
Z;vD~P!qDVN,sz4SZ~vD~P!qDVN,@K`F#

TBG;vgN!q"ErVND>},|9CTM'wD~Di/zzv;vT>
DZ]M3r* COMPANY"ACCTNUMBER M PASTDUE D(f#

!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


404P1|#

rE VN rE VN
2 ACCTNUMBER 3 PASTDUE
1 COMPANY ____ DATELASTPD
____ FIRSTNAME ____ CURRENTDAT
____ MIDDLEINIT ____ YEAR
____ LASTNAME ____ MONTH
____ STREETADDR
____ CITY
____ STATE
____ ZIPCODE
____ TELENUMBER
____ CRLIMIT
____ BALDUE
W?

F3=Kv F5=(f F11=T>D> F12=!{


F13=<V F20=XB`E F21=+! F24=d{|

g{SEz4K04P1|,Query +XBEPVN,9C COMPANY d*PmPDW


;,ACCTNUMBER &ZZ~;,PASTDUE &ZZ};#z2IT4 F20,by!qDVN
+4v? 10 XB`E#

92 Query/400 D9C V4R5


!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


404P1|#

rE VN rE VN
10 COMPANY ____ BALDUE
20 ACCTNUMBER ____ DATELASTPD
30 PASTDUE ____ CURRENTDAT
____ FIRSTNAME ____ YEAR
____ MIDDLEINIT ____ MONTH
____ LASTNAME
____ STREETADDR
____ CITY
____ STATE
____ ZIPCODE
____ TELENUMBER
____ CRLIMIT
W?

F3=Kv F5=(f F11=T>D> F12=!{


F13=<V F20=XB`E F21=+! F24=d{|

;sIT4 F21(+!)*(fDdv!qd`VN#Query ;s*d`VNT|GZ


PmPvVD3r!q"a)rE#

!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


404P1|#

rE VN rE VN
10 COMPANY 130 BALDUE
20 ACCTNUMBER 140 DATELASTPD
30 PASTDUE 150 CURRENTDAT
40 FIRSTNAME 160 YEAR
50 MIDDLEINIT 170 MONTH
60 LASTNAME
70 STREETADDR
80 CITY
90 STATE
100 ZIPCODE
110 TELENUMBER
120 CRLIMIT
W?

F3=Kv F5=(f F11=T>D> F12=!{


F13=<V F20=XB`E F21=+! F24=d{|

xP!qDm;V=(GWH*z*!qDyPVN8(`,DrE(}g 1) #404
P1|,Query +yPG)VN<-=Pm%?#;szIT8(BDrE,4zyk
*D(fPvVDNrEPVN#1VN}`,^(T>Z%vA;O1,b;cM
XpPC#

Query ITZA;DPmxT>b)VNDd{E"#g{ZPmPvT>VN{Rz
4K F11,z+4=b)VNDhvD>"$HM!};}#PX9C F11 Dji,N
{Z213D:9C F11 T>PX Query/400 i/Dd{E";#2I+bjFA;v
VN"4 F23 4T>CVND$"M(g{PD0)(rT>(ea{VNDmo=) #

Z6B Z Query/400 P!q"ErVN 93


1z;T3r!qxPNN|D,YN404P1|7Ozy*DVN.s,Query M
jIKK=h"5X=0(ei/1A;,byzITLx4Pd{Di/Nq#g
{H0Z0(ei/1A;O!qK|`D!n,Query +T>B;v!nDZ;vA
;#

94 Query/400 D9C V4R5


Z7B Z Query/400 P!qG<
>BhvgN4PG<!qbTT9i/dvv|,!qDG<,gVN5HZ8(
5DG<#}g,zk*S1$wD~qCyPjdHZrsZ 21 D1$DE"#I
9CX(bTSD~Pv!qb)G<(byE}K!Z 21 D1$)#

K!q}Lf0=4( Query C4!qZ{G<DHObT#zIT8(;vbTr`


A 100 vbT#g{bTDa{r8vbTDiOa{*f,r!qybTDG<"+
||(=i/dvP#

C Query/400 !qG<
g{z4Z0(ei/1A;D!qG<!nTdk 1,Zi/dvP+|(y!D~
PDyPG<#

Zi/(eZd,g{zZ0(ei/1A;D!qG<!nTdk 1,+T>0!q
G<1A;#g{zDdKwb,VZ#{ZdvP|(yPG<,IT4 F12(!
{)5X=0;A;#(zZKA;OydkD;P<;vT#
)

Z Query/400 P!qh*DG<
(#(f<GyZ_P3)+2cDG<,gvP>bfP1uDG)L7D(f#
(}4(HObT!qG<,9zIT8(G<Xk|,(r;|,)X(DE"—
T1uDbfL7*},zk*Z(fPv|(G)VP}?MZX(6pDL7#
K`(f(#H|,D~PyPG<D(f|Pbe"|WZ9C#

*!qG<,+;vr`vVN(|(a{VN)DZ]k;vr`v8(D5HO
4i4;vu~r_bTGq*f#}g,z*ZdvPT>yPU (LASTNAM) HZ
'Clarke' DK#
bT
|
VN | 5
| | |
| | |
LASTNAM EQ 'Clarke'

0!qG<1A;P>zIT9CDVN(|(a{VN)"*sz8(HO#KA
;T>ZBf,Z|DVNPPT>KM'wD~P;)Dy>VN#

© Copyright IBM Corp. 2000 95


!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
W?
________________________________________________________________________
VN VN VN VN
ACCTNUMBER STREETADDR CRLIMIT YEAR
COMPANY CITY BALDUE MONTH
FIRSTNAME STATE PASTDUE
MIDDLEINIT ZIPCODE DATEPAID
LASTNAME TELENUMBER CURRENTDAT
W?
F3=Kv F5=(f F9=ek F11=T>D>
F12=!{ F13=<V F20=Xi F24=d{|

": 5;\dkA;PDP$H^F#g{*C=|`Ud,LxAB;P#XkC
UqV*yP5#g{;v5;ZP2Rz*LxAB;P,XkZB;PC5
0fS;vUq#(}ZO;PD)2S;v DBCS FkV{"ZB;PDp<S
;v DBCS FvV{,IT+DBCS V{#?p*#

HO_8TByPn:
v *HODVN
v bT
v ;vr`v*kVNHOD5

zIT8(n` 100 vHO#?vHO<ITy]h*9CNb`P(?Pn` 30 v


V{),yPHOD\P}n` 100 P#

0!qG<1A;;Na) 6 vdkP,TczdkHO#g{zh*|`DP,4B
3|qC|`DUWdkP#g{bj;ZNNdkPO(^[zGqdkKH
O),IT9C-3|4i4dkDyPHO#

Query/400 PDHOVN
*KxPbT,VNXk*BPdP;n:
v fZZy!D~PDVN#|ITGNNVN,|(4;z!q|,ZdvPDV
N#
v *Ki/(eDa{VN#

1zZHOP8(VN1,Xk4D~j6{"dc"ZPmD`v!(D~PvV
DNNVN{DNrhC#}g,g{VN ACCTNUMBER fZZ_PD~ ID T01 M T02
D=v!(D~P,rXk8( T01.ACCTNUMBER r T02.ACCTNUMBER#g{4|(D~
j6{,Query +^(*@SND~qCHObTyhDJE#IT4 F18(D~)i
4y!D~DPmMk?vD~`XDD~ ID#

96 Query/400 D9C V4R5


Query/400 PDHO5
*kVNHOD5P:
v m;vVN
v }V#?
v V{#?(SBCS r DBCS)
v UZ#?
v 1d#?
v 1dAG#?

VNMz*HOD5XkGf]D}]`M#BPGG<!qbTDP'HO:
v SBCS V{VNk:
SBCS V{
q;= DBCS
*E= DBCS
v q;= DBCS VNk:
SBCS V{
q;= DBCS
*E= DBCS
(;= DBCS
v *E= DBCS VNk:
SBCS V{
q;= DBCS
*E= DBCS
(;= DBCS
v (;= DBCS VNk:
q;= DBCS
*E= DBCS
(;= DBCS
v <N DBCS VNk:
<N DBCS
v <N UCS2 VNk:
<N UCS2
v }VVNk}VVN
v UZVNk:
SBCS V{
UZ
q;= DBCS
*E= DBCS
v 1dVNk:
SBCS V{

Z7B Z Query/400 P!qG< 97


1d
q;= DBCS
*E= DBCS
v 1dAGVNk:
SBCS V{
1dAG
q;= DBCS
*E= DBCS
v NNVN<IT9C IS r ISNOT bTkX|V NULL wHO47(VN5Gq
*U5#

": +UZ"1dr1dAGVNk SBCS"q;= DBCS r*E= DBCS V{VN


HO1,9C?v5<I6p* SAA q=DUZ"1dr1dAGDV{VN#
g{CV{VN|,UZ"1dr1dAGD}7m>,+;G SAA q=,zI
\aC=bbDa{#1KPDi/9CG SAA q=4m>V{VNPDUZ"
1dr1dAG5,RCi/;PG SAA DVUZ5DhC,9C CHGJOB |
n7#zDw5UZq=MVt{kV{VN5PDq=MVt{`%d#

(#*?vHOv8(;v5#l#ivZZ993D:Query/400 PDHObT;PV
[#

Query/400 Pw*5DVN

g{+;VNw*59C(4A;OD5P),CVNIT*A;B_PmPDNN
VN#

9CVNw*5D;v>}G,g{z;kSM'wD~q!=Z`n(Z{* BALDUE
DVNP)sZdECnH(Z{* CRLIMIT DVNP)DG<#Z>>}P,zCV
N (BALDUE) k,y2GVND5 (CRLIMIT) HO#

HOVN;X_P`,$H,}VVN;X_P`,!};}#

Query/400 Pw*5DV{#?

V{#?;;}GC2E}p4DV{(}g,'xxx') #2E\X*,r* Query O*


NN;C2E}pDV{i<GVN{#Z DBCS V{#?P,FvMFkV{Xk|
'2EZD DBCS }]#<N DBCS V{#?XkTs4r!4D G *7#

}g,g{zv* Jan Alison DG<,+ NAME VNk 'Jan Alison' HO#"*"


bg{z;9C2E,Query +f_z:bTvJm;v5#

#?PDV{ITGV8"}5rXbV{(g *"?"#"$"[@0000],Z;bVNP
I\R=b)V{)DNNiO#Xk9C2E}pV{#?,49|v|,}5#
9Xkj+4z#{Dq=4dks!4V8#XbV{B._ (_) MYVE (%) Z
CZ LIKE bT1_PX(D,e#

g{8(DV{#?|,2E,Xk+|dk*=v2E,by Query ;aO*|Q=


oC#?Da2#}g,g{ziRV@X7* Granger’s Circle DG<,rdk#
? 'Granger's Circle'#Query +#?ZD=v2E1I%v2E4F}#

98 Query/400 D9C V4R5


Query/400 Pw*5D}V#?

;\+}V#?C2E}p4#}V#?IT$o 1 A 31 ;#

;*Z}V#?Z9CuR{E(8>uR5)r';Vt{(8>}'"}Yr
H)#

": g{Z9C:Ew*!}Vt{DzR.d"Mi/,*Z?v:EsS;Uq
TVt SUBSTR /}PD;FM$H,"Z VALUE /}PPmZDw}5.d
2S;Uq#4 F17 T>Zi/P9CDV!}Vt{(N{Z223D:Z
Query/400 PT>#?q=;)#

Query/400 Pw*5DUZ"1d"1dAG#?

UZ"1dr1dAG#?kZ0(ea{VN1A;Oy9CD#?`,#N{Z6
83D:Query/400 PDUZ"1dM1dAGmo=;#4 F17 Ii4 AS/400 UZ
M1dq=kVt{JmD)n(N{Z223D:Z Query/400 PT>#?q=;)#

Query/400 PDU5

U5TZG<!qODyP}]`M<G;vP'5#IS M ISNOT GX|V NULL D


P'bT#

Query/400 PDHObT
zIT8(BPHObT:
bT 5w
EQ HZ#9CKbT7(VNDZ]Gqk5`H#
NE ;HZ#9CKbT7(VNDZ]Gqk5;`H#
GT sZ#9CKbT7(VNDZ]GqsZ5#
LT !Z#9CKbT7(VNDZ]Gq!Z5#
GE sZrHZ#9CKbT7(VNDZ]GqsZrHZ5#
LE !ZrHZ#9CKbT7(VNDZ]Gq!ZrHZ5#
RANGE
6'#9CKbT7(VNDZ]GqZz*58(D6'.Z#
LIST Pm#9CKbT7(VNDZ]GqHZPmPD;v5#
NLIST GPm#9CKbT7(VNDZ]Gq;HZPmPDNN5#
LIKE `F#9CKbT7(VNDZ]GqPk5`FD#=#
NLIKE ;`F#9CKbT7(VNDZ]GqPk5;`FD#=#
IS G#9CKbT7(VNGq*U5#(;P'D5G NULL r null#
ISNOT
;G#9CKbT7(VNDZ]Gq;GU5#

TZ} LIKE"NLIKE"IS M ISNOT .bDyPd{bT,V{VNM#?<Gpv


V{HO#

Z7B Z Query/400 P!qG< 99


v g{;HOD=vVNrVNk#?D$H;H,Query +OLDVN1wda2P
c;`DUq,9C=vVNP`,D$H#
v {m3r7(sZM!Zu~(CZ GT"GE"LT"LE M RANGE HO)
#PX{
m3rDji,N{Z9B Z Query/400 P!q{m3r#

Query/400 PDUZ"1dr1dAGHO

UZ"1dr1dAG5ITk`,}]`MDm;v5rkC}]`MDV{m>
HO#yPDHO<G4jzNrxPD#1dck 0001 j 1 B 1 U=6,C1d
cD5M=s#

1d5k1d5DV{m>DHO\G|(k#g{V{m>vTKk,MY(*c
k#|, 24:00:00 D1dr1dAG5k 00:00:00 G;`,D#

Z Query/400 PbTHZ (EQ) M;HZ (NE)

9CHZM;HZbT47(VNDZ]kz8(D5G`H9G;H#

g{bTG EQ,v1VN|,k8(D5j+`,D}]1E!qG<#}g,g{
(;DHOG:
INTRAT EQ 18

v1}VVN NTRAT |,HZ 18 D51E!qG<#}g,INTRAT I\|, 18."


18.00"00018 H#

g{bTG NE,v1VN|,k8(D5;`,D}]1E!qG<#}g,g{z
*!qVN NAME ;|,5 SMITH DG<,8(:
NAME NE 'SMITH'

g{VN NAME ;(e*,}evV{,bT Query 45;P24xp#Query iRy


Pk SMITH ;j+%dDG<#SMITHSON"Smith M NEISMITH <+w*;k SMITH
`HD{Fx;!(#

Z Query/400 PbT IS Null (IS) M ISNOT Null (ISNOT)

9C IS M ISNOT bT47(NNVNDZ]Gq*U5#NNVN<IT9C IS r
ISNOT bT4kU5HO#IS M ISNOT D;)>}gB:
NAME IS NULL

g{VN NAME |,U5,M!qG<#


NAME ISNOT NULL

g{VN NAME ;|,U5,M!qG<#

Z Query/400 PbTsZ(GT r GE)"!Z(LT r LE)M6'


(RANGE)

9CsZM!ZbT47(VNDZ]GsZ"sZHZ"!Z"9G!ZHZ8(
D5#9C6'bT47(VNDZ];Z8(D5D6'.Z#}K9Cb)4b
T}5}]b,9ITbTV{}]#

100 Query/400 D9C V4R5


sZM!ZbTD;)>}gB:
v NAME GT 'SMITH'
g{VN NAME |,{m3rsZ SMITH D5,G<M;!(#
v INTRAT GE 18
g{VN INTRAT |,sZrHZ 18 D5,G<M;!(#
v BALDUE LT CRLIMIT
g{ZVN BALDUE PD}]!ZVN CRLIMIT PD}],G<M;!(#
v BALDUE LE CRLIMIT
g{ZVN BALDUE PD}]!ZrHZVN CRLIMIT PD}],G<M;!(#

1zxP RANGE bT1,VNDZ]Xk;Z=v5D6'.Z(sZrHZZ;v


5,+!ZrHZZ~v5),E!qCG<#Z0!qG<1A;O,XkZ5P
P8(=v5,RzXk+|GCUqV*#g{G<DZ;v5sZZ~v5,+
;!qCG<#

}g,z*!qvZ~BAKB.dDG<#{* MONTH DVNG}VVN,||,m


>;BD 1"m>~BD 2"m>}BD 3,@K`F#Z0!qG<1A;O,z*
8(:

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


MONTH_________ RANGE 2 8___________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________

*T SBCS V{VNM59C GT"GE"LT"LE M RANGE bT,I\h*Kb{


m3r#{m3r7(D)V{sZr!Zd{V{#g{;!qd{{m3r,M
9C.yxF{m3r"R:
v s`}XbV{!ZV8#
v !4V8!Zs4V8#
v V8!Z}5#

}g,V{ A"8"& M b SM=_Er,gBy>:


&
b
A
8

PX!qr(e{m3rDji,N{Z9B Z Query/400 P!q{m3r#

Z Query/400 PbTPmPD5 (LIST NLIST)

9C LIST"NLIST bT47(VNDZ]GqkZ0!qG<1A;OD5PPyP
vD;v5`H#

": PX CCSID M|GgN0l0!qG<1A;DE",N{Z2603D:Query/400


PD CCSID MG<!qbT;#

Z7B Z Query/400 P!qG< 101


+VNkPmHO1,g{VNDZ]k8(D;v5j+%d,G<M;!(#z
ZPmP8(D5:
v XkG}V#?,g{+}VVNkdHO#
v XkG SBCS V{#?,g{+ SBCS V{VNkdHO#
v XkG SBCS"(;= DBCS r*E= DBCS V{#?,g{+(!D DBCS V
NkdHO# (g{;bTDVN*(;= DBCS VN,#?;\*(;= DBCS #
?#)
v XkG<N DBCS V{#?,g{+<N DBCS V{VNkdHO#
v XkCUqV*#
v ;\*VN{#
v XkGUZ#?,g{kUZVNHO#g{Pm|,UZD}7m>+9CD;
G SAA q=,zI\aC=bbDa{#*@9zzbba{,Pm&9C SAA q
=#
v XkG1d#?,g{k1dVNHO#g{Pm|,1dD}7m>+9CD;
G SAA q=,zI\aC=bbDa{#*@9zzbba{,Pm&9C SAA q
=#
v XkG1dAG#?,g{k1dAGVNHO#

zDPmXk|,AY=v5,|G^h4X(DNr#XkC2E+?vV{#?
}p4,1V{#?>m|,2E19C=v2E(N{:>} 2:Z Query/400 Pb
TPmPD5 (LIST NLIST);PD{F O’Grady)#

g{PmPDyP5Z;PE;B,;kZ5BfDB;POLx#g{;v5ax
Z3PD)2R9*ZB;POLxdkpD5,rXkZB;PD50fS;vU
q#DBCS V{#?IT(}ZO;Pns;PS;v DBCS FkV{"ZB;PZ
;PS;v DBCS FvV{4V*#

>} 1:Z Query/400 PbTPmPD5 (LIST NLIST): g{;k!q ITEMNO V


ND5* 04567"00976 M 85432 DG<,8(:

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, NLIST, LIKE, NLIKE, IS,ISNOT

AND/OR VN bT 5(VN"}Vr 'V{')


ITEMNO LIST 04567 00976 85432
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________

>} 2:Z Query/400 PbTPmPD5 (LIST NLIST): TBbTVN LASTNAME


DZ]Gqk`v;,DU.;`H:

102 Query/400 D9C V4R5


!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


LASTNAME LIST 'Staples' 'Thorson' 'Smith' 'J
____ ______________ _____ ones' 'Alison' 'O'Grady'
____ ______________ _____ ______________________________

Z Query/400 PbT`F5 (LIKE NLIKE)

9C LIKE bT47(VNGq_Pk8(DbT#=`FD#=#9C NLIKE bT


47(VNGqk8(DbT#=;`F#ITT SBCS M DBCS V{VN9C LIKE
HO,+TNNd{VN`M8( LIKE r NLIKE HO+a<BvmE"#

1z9C LIKE bT1,g{VND3;?V_Pkz*HO58(DbT#=`,D


V{,G<M;!(#}g,g{z*!qUD*7V8* A DyPG<,M*9C
LIKE bT#

Xk+bT#=C2E}p4;1bT#=>m|,;v2E1M9C=v2E#g
{bT#=I=v%@D2E (') iI,M+|1IGUV{.#

IT9C;)XbV{4m>VNPz;XDD;);C:
v B._V{ (_) m>x}C;CDV{,;bTCV{#?vB._V{!zVNP
D;vV{#
v YVH{E (%) m>x}yhDNb`V{T=oVN)2rB;v8(DV{#?
v % !zVNPDcvr|`vV{# (rK,z^hvvr*VNP 32 vV{$
x`4P 32 vV{$DbT#=#)

bT#=ITo=5JVND$H,+;\,}|#li#=$H1,Query ;+ % w
*V{F},x+Z#?ZD=v2E1I*;vV{#

}g,g{zbT LASTNAME VNDZ;PGq* A,"Rg{:


v VN$HG 1,zIT8( ‘A’
v VN$HG 3,zIT8( ‘A__’
v VN$HAY* 1,zIT8( ‘A%’

ZA;O4gBy>dk|G:

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


LASTNAME LIKE 'A%'
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________

g{zbTVNns;PGq* A,IT8( ‘%A’#+*"bg{ 8 V{VN|,


'ANNA ',LIKE bT+'\,r*VNDns;PGUq#

g{z*bT E sz=P.sD A,RVN$HAY* 3,IT8(:


'%E_A%'

Z7B Z Query/400 P!qG< 103


"bg{ 8 V{VN|,BP.;,LIKE bT+*f:
'ANNE A. ' 'EVAN E. ' 'ANNE EVA'

": LIKE"NLIKE bT;\CZUZ"1dr1dAGVN#LIKE"NLIKE vJmV


{#?#*\bbViv,4(;va{VN,TUZ"1dr1dAGVN9
C CHAR /}#;sZ0!qG<1A;O9Ca{VN#

Z Query/400 PbT DBCS LIKE(`F)M NLIKE(;`F)

DBCS LIKE r NLIKE bTITCZ0!qG<1A;D5PP4!qG<#BP`


MD LIKE #=ICZ}bTD DBCS VN:j< SBCS V{#?"(;= DBCS V
{#?"*E= DBCS V{#?M<N DBCS V{#?#

Query/400 PDG DBCS V{ LIKE"NLIKE(;`F)#=: |,G DBCS }]


DbV#=ICZbTq;= DBCS M*E= DBCS VN#9C % {Ex}Nb`
vV{rcvV{#9CB._V{ (_) m>NN%v SBCS V{#d; LIKE #=
v|, SBCS V{,+|ITbT|, DBCS }]M SBCS }]D*E= DBCS V
N,r* % {EICZx}b=V}]#

Query/400 PD(;= DBCS LIKE"NLIKE(;`F)#=: v|,+VZV{D


bV#=ICZNN(!D DBCS VN,+;\CZ<N DBCS VN#CFvV{*
<C#=,CFkV{ax|#9C DBCS YVH{E (%%) x}Nb`vV{rc
vV{#9C DBCS B._V{ (__) 8>ZC;CS\NN+VZV{#d; LIKE
#=v|,+VZV{,+|ITbT|,+VZV{}]MV8}V}]D*E=
DBCS VN,r* %% {EIx}b=V}]#

Query/400 PD*E= DBCS LIKE"NLIKE(;`F)#=: |, DBCS M SBCS


V{}]DbV#=vICZ*E= DBCS VN#
v YVH{E (%) Ix}Nb`v SBCS V{r+VZV{,rcvV{#|vTF
vMFkV{#
v DBCS YVH{E (%%) kj<YVH{E (%) wC`,#
v B._V{ (_) m>%v SBCS V{#|;m>+VZ"FvrFkV{#
v DBCS B._V{ (__) m>%v+VZV{#|;\CZm>V8}VV{"Fv
rFkV{#

Query/400 PD<N DBCS LIKE"NLIKE(;`F)#=: v|,+VZV{Db


V#=;\CZ<N DBCS VN#<N DBCS bT#=XkZ2E0P;vs4r!
4D G#Z=v2EZ,#=XkCFvV{*<#=,CFkV{ax#9C DBCS
YVH{E (%%) x}Nb`vV{rcvV{#9C DBCS B._V{ (__) 8>
ZC;CS\NN+VZV{#

>}:ZTB>}P,%% m> DBCS YVH{E,__ m> DBCS B._V{,s/o


m>FvV{,s/i m>FkV{,;T`,D SBCS V{,g DD,m>%v DBCS
V{#
>} 1: DBCSFLD1 LIKE 's/o__DD__%%HH%%s/i'

>} 1 v!qG)ZVN DBCSFLD1 PZ~vV{* DD,Z;vMZ}vV{*NN


+VZV{,RZDv=ns;vV{AYP;vG HH DG<#KbTICZNNA
Y.vV{$D(!D DBCS VN#KbT(}+V8 G S=bT#=0,2ICZ
<N DBCS VN:

104 Query/400 D9C V4R5


G's/o__DD__%%HH%%s/i'

g{ DBCSFLD1 **E= DBCS VN,KbTI!qPV8}VV{D}],g


‘s/oXXDDMMs/iAnns/oGGHHs/i’,DBCS YVH{E+x}+VZV{MV8}VV{,
1==o HH#
>} 2: DBCSFLD2 LIKE 's/o%%__%%s/i'

>} 2 v!qVN DBCSFLD2 |,AY;v+VZV{DG<#DBCS B._V{ (__)


ITm>+VZV{,+;m>V8}VV{#m;v5 ‘%_%’ !qPAY;vV8}
VV{DG<#5 ‘s/o__________s/i’ !q.V{$DVN+*+VZV{DG)G
<#
>} 3: DBCSFLD3 LIKE 's/oYY%%s/i A_o'

>} 3 !qVN DBCSFLD3 T+VZV{ YY *7"TV8}VV{axDyPG<,


xRV8}VV{DZ;v*Uq,Z~v* A,ZDv* o#KbT!qg ‘s/oYYs/i
Amo’;‘s/oYYZZXXs/iMary Abo’;r ‘s/oYYs/iABCs/oTTWWs/iM Aro’ DVN#Z5D
+VZV{MV8}V?V.dDYVE* DBCS YVEbc";X*;BP=v5k
y9CDbv5GH[D: ‘s/oYY%s/i A_o’ M ‘s/oYY%%s/i% A_o’#

g{bT#=I=v%@D2E('' r G'')iI,r=v2Ev|' DBCS FvM


FkV{( 's/os/i' r G's/os/i'),rKbT#=;1wUV{.#b)#=+!
qVN|,UV{.DG<#

Z Query/400 P9C`vHObT
1z9C`vHO1,h*Z AND/OR Pdk,S4f_ Query gN,S|G#=V
,S`M*:
v AND ,S
v OR ,S

g{zZ AND/OR P;8(NNHO.dD,S,Query +Y(* AND#*9G<;


CHOi!(,I AND ,SDyPHOXk*f#

}g,*!qU* 'Clarke' R!Z Arizona (‘AZ’) DyPM'DG<,h*;v AND


,S:

Z7B Z Query/400 P!qG< 105


!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


LASTNAME EQ 'Clarke'
AND STATE EQ 'AZ'
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
W?
________________________________________________________________________
ACCTNUMBER STREETADDR CRLIMIT YEAR
COMPANY CITY BALDUE MONTH
FIRSTNAME STATE PASTDUE
MIDDLEINIT ZIPCODE DATEPAID
LASTNAME TELENUMBER CURRENTDAT
W?

F3=Kv F5=(f F9=ek F11=T>D>


F12=!{ F13=<V F20=Xi F24=d{|

d;K>}T>Z AND/OR PPdkD AND,+|;GXhD#(g{+ AND/OR P


#t*UW,Query +Y(* AND ,S#
)C;vr`v AND ,SDHO;O*G
;iHO#

m;VZHO.dD,SG OR;2MG,*9G<;!(,;vr`vHO(rHO
i)Xk*f#

r* Query }G;f*mb`MD,S,|<Y(* AND ,S,yT?1z*xP


OR ,S1,MXkZ AND/OR P8( OR#

}g,*!qU* Kingsbury r_ECnHsZrHZ $5,000 DG<,Mh* OR ,


S:

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


LASTNAME EQ 'Kingsbury'
OR CRLIMIT GE 5000
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________

IT,19C AND M OR ,S,|_eX!q(fP*|(DG<#TB>}!qS


1986 j 11 B= 1987 j 1 BdB})%DM'DG<#"bTB]9CK}V#?#

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


MONTH LIST 11 12
AND YEAR EQ 86
OR MONTH EQ 1
AND YEAR EQ 87

g{4v4,TO>}`FZgBy>:

106 Query/400 D9C V4R5


(MONTH LIST 11,12 AND YEAR EQ 86) OR
(MONTH EQ 1 AND YEAR EQ 87)

r*9C AND M OR ,SDiOI\acl,IT9C F5 i4(f,7#HOg


zyZ{D==xP#

g{ AND M OR ,SDiO4p4Xp4S,zI\&1P8Xi4HOTKbGq
zIT9C|YD,S44P`,DG<!q#}g,TBG!qZ 1986 OR 1987 Z
dd=Z`nZ $900 A $1000 .dD Rhode Island (‘RI’) M'G<D=V=(#

Z;V=(9C AND M OR ,SDiO#

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


BALDUE RANGE 900 1000
AND STATE EQ 'RI'
AND YEAR EQ 86
OR BALDUE RANGE 900 1000
AND STATE EQ 'RI'
AND YEAR EQ 87
____ ______________ _____ ______________________________

4v4,K>}`FZgBy>:
(BALDUE RANGE 900,1000, AND STATE EQ 'RI' AND YEAR EQ 86)
OR
(BALDUE RANGE 900,1000 AND STATE EQ 'RI' AND YEAR EQ 87)

9C LIST bTM AND ,SDZ~V=(!q`,DG<,+;h*|YDP}R|


cZDA:

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT:EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


BALDUE RANGE 900 1000
AND STATE EQ 'RI'
AND YEAR LIST 86 87
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
W?

4v4,K>}`FZgBy>:
(BALDUE RANGE 900,1000 AND STATE EQ 'RI' AND YEAR LIST 86,87)

": CCSID IT0lgN!qG<#PX CCSID M|GgN0lG<!qDE",N


{Z2603D:Query/400 PD CCSID MG<!qbT;#

Z Query/400 PmSM}%HO
0!qG<1A;Da>?V;N;IT>yvHO#Zdkns;Ps,IT4B
3|4qCUWdkP#18(K`ZyvDHO1,IT4O3|i40;A;#

Z7B Z Query/400 P!qG< 107


g{*ZQ-dkD=vHO.dmSm;vHO,IT4 F9 Zh*D;Cek;U
WPT\bXBdk#1z4 F9 1,MaZbjy&G;PDBfmS;BP#2I
TC F9 zfB3|,ZzdkHO1mSP#

g{zT;HO|DKwb,k*SiP+|>},;h9CUq|r;P|+|>
}#g{zDdKwb,k*++?HO>},4 F12(!{)
#zZ0!qG<1A;
ydkDNNZ]<;vT#

g{z>}K;=PODZ],VZ;Zns;vICDUPORh*|`DP,I
T4 F20 XiUd#Query +QUWPF=HOa2#ZA;OI4=0yvHOP,
Xk4B3|=oUWPr=z*ekPD;C#g{CjKUdR^UWPITF
/,XkXBhFHOT9|G\nk=n` 100 PP#

Z Query/400 P!q OfficeVision X*PmDG<


X*i/CZ}]/D>O",Z OfficeVision WCE/P|+Pm?Vk`1>?V
X*#byDi/v\CZbVXb/C>;;\9CX*i/T>rr!(f#

Z:>}:Query/400 PDX*PmO";P,X*i/CZr!xM'DWCE/,
P>{GZCjHDI:iv#X*i/DXb?VGd0!qG<1A;#A;O
D;vr`v5ZdVN{0P0E,gBy>:
CUSNAME EQ :NAME

0E8>Ci/*X*i/#|28>F* NAME DVNX*5GZm;vi/rD~


P(b9CCi/kd{i/rD~X* )#1Z0!qG<1A;OPbyD0E
1,404P1|+T>08(X*5^({1A;#ZKA;O,z*8w|,X
*5DD~ri/D{F"f"D~ri/Db,"R1X*5ZD~P1DI1
{#

N{Using OfficeVision/400 Word Processing;i,TqCPXgN4(D5D`]1>


MgN9CPmO"D|`E"#

>}:Query/400 PDX*PmO"
3+>*"ME/xG)ECnHsZ $500 DM'#?bE/<|,;]M'yI:
DL70[qDe%#D5T :To:; *7,szM'{VND`1>5w#{FVN
NAME !Tb CUST PDi/ QRY1#(QRY1 yZECE"D~ CUS89#QRY1 v!qE
CnH5sZ $500 DG<# )

ZED}DPP;P4=:b)GzDI:n:;,CPBfG=vVNDPm5w,
;vGL75w,m;vG[q#=v5w<8r QRY2,|2Zb CUST P#Zd0!
qG<1A;O,QRY2 T>KHO CUSNAME EQ :NAME#CUSNAME GCZ QRY2 DI:
D~D{FVN#Zd08(X*5^({1A;O,QRY2 8>VN NAME Zi/ QRY1
P,|2Zb CUST P#

* QRY1 !qD?vG<,2MGECnHsZ $500 D?vM',zI;bE#KE


/G"xCG<D NAME VNPya=DM'#g{li%bEDX*5'{,Hg5
lix J. S. Alison DE,M\]WwWC'{#TZKE/,CUSNAME EQ :NAME H
O5J* CUSNAME EQ 'J. S. Alison'#TZZI:D~P CUSNAME 5* ‘J. S.
Alison’ D?vG<,+dL75wM[qfkKE/P#

108 Query/400 D9C V4R5


X(E/I\PvtIvL7M[q#g{M'4wNNI:,xCM'DE/M;
r!v4#

1E/r!v4s,|4p4gBy>:

TBGK>}D@@:
v `1>8n ¬&NAME MX*5 NAME(!Tb CUST PD QRY1)}C,;vi/
QRY1#

Z7B Z Query/400 P!qG< 109


v X*5CZHO=vD~:ECD~MI:D~D{FVN#;civB,VN{
IT;,(NAME M CUSNAME)r`,#+VN>mXk\GIHOD#g{;{FV
NT{*7xm;vTU*7,zM;\HO|G#
v VN NAME CZ`1>(`bE/)D>8n"w*X*5D;?V#b;GXhD#
}g,X*HOITHOM'Ek,xG{F#
v g{E/GxI:D~ CUS89 PD?vM',NAME D`1>(`bE/)8n+}
CD~ CUS89,xGi/ QRY1,RX*HO+G CUSNAME EQ :NAME#ZKivB,
Th* QRY2,+^h QRY1#
v QRY1 ITw*i/KP,+ QRY2 ;\,r*|PX*5#

Z Query/400 PxX*PmD`1>DfrM8O
TBGxX*PmD`1>DfrM8OP>:
v AY;)Pm8nXk}C|,X*5Di/#
v Z`,DD5P,Pm8n;\}C|,X*5D`vi/#
v ZyPX*Pm8n0XkECAY;v`1>8n#
v i/PDX*5Xk}C`1>8ny}CD`,D~ri/#
v |,X*Pm8nDD52IT|,L(}]MU(Pm8n(2MG4-(FD
Pm8n)#
v ZX*5P|{Di/>m;\|,X*5#
v ;\TD5PDPmD>8n9CxX*5Di/#Z09Ci/1r0Kv}]
/D>O"1A;P,vTxX*5Di/!q!n 7(Pm);;*!q!n 6 r
8#
v Xk#fxX*5Di/,Tc+4T OfficeVision D59CCi/#4&m9CC
}]DD5,M;\KPi/#d;bb6Ez;\4 F5 i4(f,+zIT4
F13 4i4<V#
v 1z9CX*51,&P8liZ0!qG<1A;OD5PPdkD{F,r*
#fDi/Z; OfficeVision 9CT0G"V;KmsD#

110 Query/400 D9C V4R5


Z8B Z Query/400 P!qErVN
>BhvgN!qErVN4XFi/dvP}]DEP#TZ Query xT,ErVN
G8dVNZ]CZ+dvG<TX(NrErDVN#}g,g{z*9CM'w
D~4qCyPM'D;vPm,zI\k+G)M'TX(DNrP>,g4UD
V83r"4]DV83r,rH4]s4UDV83r#ZbVivB,h*8(
;vr`vErVN47#dv4zZ{DNrEP#

C Query/400 *z7(G<Nr
| zITC Query 1SS}]bPlw}],"+d|(Zi/Px;xPNNEr#g
| {Zz(fP}]D3r";X*,zM^h<G!qErVN#1KP;v48(
| ErVNDi/1,P;lwvDNrM;P#$#g{Nr\X*,z&Zi/P
| (eErVN#g{z*$bdvD3r,h*+fKb}]bEn,|(D~`M
| Mf!76#

| ": 1!qCZ Query r DB2 UDB AS/400 fLrD_-D~x;8(NNErVN


| 1,I\"z;I$bDa{#}g,zI\U;=omD~D_-S<#

| 1z9Ci/(e1,g{4Z0(ei/1A;OD !qErVN!nTdk 1,M


;aT>0!qErVN1A;,1zKPi/12;T}]Er#

Zi/(eZd,g{Z0(ei/1A;OD!qErVN!nTdkK 1,rT>
0!qErVN1A;#g{zDdKwbx;k!qNNErVN,4 F12(!{)
5X=0;A;#(zZA;OydkD;P<;vT#)

Z Query/400 P!qz*9CDErVN
ZgBy>D0!qErVN1A;O,ZErEH6PdkErEH6E4!qz
y*DErVN#zITSPmP!qn` 32 vErVN# (KA;ODPmvT>G
)Z0!q"ErVN1A;O!qDVN;g{;P!qVN,PmMT>yPV
)yPErVND\$H;\sZ 10 000 vV{(2MG,g{z+ErVND$
N#
H`S,\$H;\,} 10 000 vV{)#

y]zT!*ErVND?vVNydkDEk,Query +(";vErEH6#IT
9CS 0 A 999 DNN`E—Tn_EH6ErVN9CnM`E#g{9Cg 10"
20"30 H`E,TsIT\]WXmSm;vErVN#

2ITZ A/D Pdk A(}r)r D(5r),48(z#{ErVNG4}r(S


nM5=n_5)9G5r(Sn_5=nM5)EP# (g{+VND A/D P#t*
UW,CVN+4}rEr# )

© Copyright IBM Corp. 2000 111


!qErVN

*`o 32 vVND{FdkErEH6 (0-999) T0 A(}r)


r D(5r),;s404P1|#

Er
EH A/D VN
___ _ ACCTNUMBER
30 _ INIT
20 _ LASTNAME
___ _ STREETADDR
___ _ STATE
___ _ CITY
___ _ ZIPCODE
10 D CRLIMIT

W?

F3=Kv F5=(f F11=T>D> F12=!{


F13=<V F18=D~ F20=XB`E F24=d{|

1zdkErEH6Es404P1|1,Query TBPNrXBEPA;ODVN:
v g{Z0!q"ErVN1A;O!qKVN,|G4gBNrP>:
1. T0ZKA;!qDyPVN(g{P)48(DNrP>#
2. *i/!qDVN,+4!*ErVN#b)VN4dZ0!q"ErVN1A
;y8(DNrP>#
v g{Z0!q"ErVN1A;O 4 !qVN,ZKA;ODVN4TBNrT
>:
1. T0ZKA;!qDyPVN(g{P)48(DNrP>#
2. *Ki/(eDNNa{VN#
3. yPd{VN4|GZy!D~DG<q=(ePfZDNrP>#WHPvZ
;vD~PDVN,SEPvZ~vD~PDVN,@K`F#

Query ;sT>E"0404P1|7O#1,byzMPZ~Nza44iErVN
"Zh*1TdxP|D#

*SzD!qP}%ErVN,>}CVN{0fD`E#;h*XB`Ed{V
N#*|DErVNDEH6,;k|D`E#

g{zwKNN|D,YN404P1|#VN{PmMaXBEP,ErVNTz
y8(DErEH6WHT>,sz*dv!qD#`VN#g{*Tv?
10(10"20"30,HH)XB+VN`E,4 F20#

1zO*ErVN!q}7s,ns;N404P1|4axErVN!q#

TBGgN8(ErEH6D;v>}#

YhzG;RgzJ:+>@zV?DEC-m,zh*;]gBq=DM'{Fk
X7(f:
v _Pn_ECnHDM'&WHT>,;sGZ~vn_D,@K`F#

112 Query/400 D9C V4R5


v g{4T`,]D=vr|`M'_8`,DECnH,b)M'&1T]4V
i#
v b)]MT?v]P>DM'&14V83rT>#

*qCzy*DNr,Z;vErVNGECnH (CRLIMIT),45r(Sn_=nM)
EP;Z~vErVNG] (STATE);Z}vErVNGU (LASTNAME);ns;vEr
VNG{ (INIT)#

4gBy>jI0!qErVN1A;:

!qErVN

*`o 32 vVND{FdkErEH6 (0-999) T0 A(}r)


r D(5r),;s404P1|#

Er
EH A/D VN D> Len Dec
___ _ ACCTNUMBER JE 6
40 _ INIT M'{MPd{u4 2
30 _ LASTNAME M'U 20
___ _ STREETADDR V@X7 20
___ _ CITY GP 15
20 _ STATE ]u4 2
___ _ ZIPCODE J]xE 5
10 D CRLIMIT ECnH 7 2

W?

F3=Kv F5=(f F11=vT>{F F12=!{


F13=<V F18=D~ F20=XB`E F24=d{|

"bZ CRLIMIT VND A/D PPdkK D#STATE"LASTNAME M INIT VN+T}r


(|Gzy*DNr)4Er#

2*"bKA;*?vVNT>K=SE",|(D>"$HM!};}#1z!q
ErVN1,IT4 F11 ZvT>VN{M,1T>VN{kVND=SE".dP
;#PX9C F11 Dji,N{Z213D:9C F11 T>PX Query/400 i/Dd{
E";#

404P1|s,0!qErVN1A;YNvV,+bNx(EH6DVNT8(
DNrWHP>,x4;CwErVNDVN;F=KPmDW?:

Z8B Z Query/400 P!qErVN 113


!qErVN

*`o 32 vVND{FdkErEH6 (0-999) T0 A(}r)


r D(5r),;s404P1|#

Er
EH A/D VN D> Len Dec
10 D CRLIMIT ECnH 7 2
20 A STATE ]u4 2
30 A LASTNAME M'U 20
40 A INIT M'{MPd{u4 2
___ _ ACCTNUMBER JE 6
___ _ STREETADDR V@X7 20
___ _ CITY GP 15
___ _ ZIPCODE J]xE 5

W?

F3=Kv F5=(f F11=vT>{F F12=!{


F13=<V F18=D~ F20=XB`E

"b,r*z48( STATE"LASTNAME M INIT VND A/D P,Query +C A zf


UWmw9C}r#

ZK>}PDEra)K;vgBy>D(f:

V@ J] EC
JE { U X7 GP ] xE nH
------- ---- -------------- -------------- ---------- ----- ----- -------

938485 CA Johnson 101 2nd St. Montvale GA 30545 9999.00


583990 GF Abraham 20 Vineview Elk River MN 55330 9999.00
693829 NO Thomas 8256 1st Ave. Twostone WY 82609 9999.00
846283 JS Alison 20749 73rd St. Ottawa MN 56342 5000.00
938472 EJ Henning 1 Oil Lane Oiltown TX 75217 5000.00
029384 MA Brown 904 38th St. New York NY 12201 1000.00
397267 OS Tyron 1039 20th Ave. Falls NY 14841 1000.00
475938 MA Doe P.O. Box 90834 Reading CA 95685 700.00
930484 BJ Hubbard 10 Colusa Junction CA 91722 700.00
192837 CE Lee 98 Elm St. Falls NY 14841 700.00
392859 LL Vine 18940 Main St. Tombstone VT 05046 700.00
389572 RS Stevens 38 Yale Blvd. Deer Falls CO 80226 400.00
839283 AC Jones 1984 5th Ave. New York NY 13041 400.00
493264 JS Jones P.O. Box 8910 New York NY 13088 400.00

WHP>n_ECnH (9999.00),szB;vn_D#Z?iECnHP,G<4]{
V83rP>#Z?iD]P,M'4UDV83rP>(g New York PD Brown M
Tyron,Z California PD Doe M Hubbard)
#g{_P`,UOD=vr|`vM'
!Z,;v]"RP`,DECnH,rKG<DNr4{MPd{DV83r7(
(gZ New York D AC Jones M JS Jones) #

Query/400 PDd{Er<GBn
}VVN(}cu5Er#

114 Query/400 D9C V4R5


Z SBCS"*E= DBCS Mq;= DBCS VNPD SBCS V{}]G4V{D.y
xFm>NrrI!(D{m3r(eDNr4ErD#PX{m3rDji,N{
Z9B Z Query/400 P!q{m3r#

ZV{VNPD DBCS }]4K}]D.yxFm>Er#K{m3r;JCZ DBCS


V{VNPD DBCS }]#

<N UCS2 }]4K}]D.yxFm>Er#K{m3r;JCZ<N UCS2 VN


PD<N UCS2 }]#

UZ"1dM1dAGVN4jzNrEr#

TZyP}]`M,g{G4}rEr,r+U5ErZns"CF[E (-) m>#}


g,TZBP}]:
VN 1 5
G<
1 B
3 A
2 U5
4 U5

ErCD(fgBy>:
A
B
-
-

Z8B Z Query/400 P!qErVN 115


116 Query/400 D9C V4R5
Z9B Z Query/400 P!q{m3r
>BhvgN*i/!q{m3r#{m3rCZf0Z SBCS"*E= DBCS Mq;
= DBCS V{VNPD SBCS V{}]DX(Yw(gEr"HOMs5)
#{m3r
+;(53h?vV8}VV{MXbV{,9 Query *@gNTV{VNM#?4P
Yw#

{m3rvCZZ SBCS"*E= DBCS Mq;= DBCS VNPD SBCS V{}]#


|;CZ}5"UZ"1d"1dAG"(;= DBCS"<N DBCS r <N UCS2 }
]#

": *a)k}]PV{D.yxFm>^XD$Z'{,M*+`kV{/j6{
(CCSID) M{m3r;p#f#PX CCSID gN0ly9CD{m3rDji,
N{Z2553D:Query/400 PD CCSID M{m3r;#

C Query/400 !q{m3r
g{z4Z0(ei/1A;OD!q{m3rTdk 1,Query/400 M9C1!{m
3r#g{zS4#f}{m3r1!5,Bi/D{m3rM4.yxF3r#

Z Query/400 PhC1!{m3r
;civB,TyPi/9C`,D{m3r#TZs`}C',(;h*D{m3
rGoT{m3r(Zs`}53O<a))#g{zZ4(r|Di/1KZ0(e
i/1A;O!qK0!q{m3r1!n,"+dw*1!5#f=i/r*m
P,ryPi/<IT9CK`,D{m3r!n,x^hZ?vi/(eP8(
|#(b";b6EzXkTyPi/(e9CK`,D{m3r#|;Gb6Eg{
z+{m3r!nw*1!5#f,zM;X*4(D?vi/!q0!q{m3
r1!n;v1z4(Di/h*;v;,D{m3r1E!q|#)

1zZ0!q{m3r1A;O!qKzy*D{m3r!ns,1zTZi4A;
1IT4 F23(mf*1!5),+zD!nw*1!5#f=i/C'r*mP#

g{zv(*T(e{m3r(Z0!q{m3r1A;OD!n 3),2ITZTZ
i40(e{m3r1A;14 F23 4+zD{m3r(w*1!5)#fp4#C3
rD`kV{/j6{ (CCSID)(Yh4Tzw5D CCSID )kr*m;p#f#

Query/400 P{m3rDC>
{m3r7(1*BPC>TV{VN4PYw1DV{3r:
v !qG<
v ,SD~
v ErG<
v FcVNDn!5Mns5
v 7(N1"z(f8V

© Copyright IBM Corp. 2000 117


{mDb<G+n?T}7D3rECrlin?GqT}7D3rEP#TZ
Query/400,{m3rJCZZ SBCS"*E= DBCS rq;= DBCS VNPD SBCS
V{}],x;CZ}V"UZ"1d"1dAG"(;= DBCS r<N DBCS V
N#IT9CD{m3rgB:
v Query/400 *zDzRoTa)D{m3r#
v z(eD{m3r#
v I CRTTBL(4(m)|n4(D*;m,|fZZ;vbP#
v k53;pa)DEr3r.;#TZ?V\'VDoT,53<a);vyPV
{_P(;(5Dm,M3)V{_P2m(5DZ~vm#

}Gz!q{m3r,qrCZ{mDj<3rkCZm>V{D.yxF5D}5
3r`,#

Query/400 PD{m3rk CCSID


IT(}xT>PmPD?vV{8(;vrE4(e{m3r#ZXBT 10 Dv?
S 64 (’40’X) *<`Es,*?vV{8(D`EM;#f=%VZDmnP,Kmn
D;FkCV{D.yxFm>D}5T&#TsI9CC.yxFm>lwCZV
{}]HOD{m(5#

CCSID k{m3r;p#f,byI*;{m3rTCZ;,zk3D}]#{m3r
D*;MGXBEPZmPD`E,Tc*?vV{R=!1D{m(5#

{m3rgN0l Query/400
1KPi/1,Query/400 PD8v(e=h9C!qD{m3r47(nsa{#{
m3rCZTB!O:
v 1z9CBPbT+;vD~PD SBCS"*E= DBCS rq;= DBCS V{VN
km;vD~PDV{VNHOT+D~,S=;p1:
– EQ(HZ)
– NE(;HZ)
– GT(sZ)
– LT(!Z)
– GE(sZrHZ)
– LE(!ZrHZ)
v 1z9C EQ"NE"GT"LT"GE"LE"LIKE"NLIKE"LIST"NLIST M RANGE
HHObT4!qyZ SBCS"*E= DBCS rq;= DBCS V{VN5DG<1

": 1Z08(&m!n1A;ODTyPV{HO9C{m3r!n;h* NO 1
(TgZf> 2 "Pf 3 D"PfPDi/45G1!hC),Query/400 ;
T EQ"NE"LIST"NLIST"LIKE M NLIKE HO9C{m3r,2;+d&
CZ DBCS VNM#?PD SBCS V{#
v 1z*ErG<!q SBCS"*E= DBCS rq;= DBCS V{VN1
v 1z* SBCS"*E= DBCS rq;= DBCS V{VN(en!5Mns5c\/
}1

118 Query/400 D9C V4R5


v 1zZ SBCS"*E= DBCS rq;= DBCS V{VNO(e(f8V1

!q Query/400 {m3r
*!q{m3r,XkKb}]TNV==fZZD~P#}g,g{s4M!4 SBCS
V{,1fZZV{VNP,zXkv(Gq+s4M!4V{,HT}#xPKV
vs,zMIT!q\zzZ{a{D{m3r,rITT(e{m3r#

!q{m3r

1Er"!qG<",SD~"iRn!5Mns5T07(XF8V
N1"z1,TV{VN9C!qD{m3r#

dk!q,404P1|#

{m3r
!n . . . . . . . . 1 1=.yxF
2=Query/400 "o
3=(e3r
4=*;m
5=53Er3r

TZ!n04=9C*;m1:
m . . . . . . . . . . __________ {F"4 F4 qCPm
b . . . . . . . . . __________ {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5=(f F10=&m/0;A


F12=!{ F13=<V F17=w53r F24=d{|

Z Query/400 P9C.yxF{m3r
j<{m3r*.yxF{m3r#TNNx(D CCSID,yPV{/V{(V8}V
MXbD)<;3h;v.yxF5#b)V{kdX*D.yxF5F*zk3#
zk3T>*;v 16 X 16 DXs,gm3Py>#

m 3. zkmgN$wD>}. ZsPPD5G.yxF5D0k?V#?PnOfD5G.yx
F5Dsk?V#KmP!4D a ;Z ’81’X,s4D A ;Z ’C1’X#b;G;v>},5J
Dm|,yPV8}VV{MXbV{#
0 1 2 3 4 5 6 7 8 9 A B C D E F
0
1
2
3
4
5
6
7
8 a
9
A

Z9B Z Query/400 P!q{m3r 119


m 3. zkmgN$wD>} (x). ZsPPD5G.yxF5D0k?V#?PnOfD5G
.yxF5Dsk?V#KmP!4D a ;Z ’81’X,s4D A ;Z ’C1’X#b;G;v>
},5JDm|,yPV8}VV{MXbV{#
0 1 2 3 4 5 6 7 8 9 A B C D E F
B
C A
D
E
F

1z9C.yxF{m3r1,ZzkmPDV{T.yxF5D}r(r#.yx
F{mDC&G|xVs!4V8#

TZw*"o531!5D CCSID 37,.yxF{m3r*:


Uq
d{V{,g . + & % )
a A r
(x)
s A z
{
A A I
}
J A R
\
S A Z
0 A 9

*i4.yxF{m3r,Z0!q{m3r1A;O!q!n 3((e{m3r)"
404P1|#0(e{m3r1A;MvVK#4 F14(.yxF3r)#Query/400
T.yxF{m3rT>V{kdrE#

d.yxF5Z6' ’40’X = ’FE’X .dD?vV{<P>v4#zI9C3|4/


@V{Pm#4 F11 Z.yxFPBT>?vV{D.yxF5#9C F12 5X=0!
q{m3r1A;#

g{!qK.yxF{m,"M=}]bD~Dvc\dvPy#fDn!5Mns
5I\;,ZZr!rT>(fPD`&5,499C`,Dw5 CCSID KPi/#
v1n!5rns5VND5*;*w5 CCSID Tcr!rT>1,E"zKiN#

Z Query/400 P9CzyZzDoT{m3r
zI\*!q Query/400 *zyZza)D{m3r,9V{}]\4;VTzyCD
oT|P'DNr4xPEr#Z"@=z,a)D{m3r(}.yxFb)G
Query/400 "o#bV3rks`} Query/400 oT3r;y,?;Ts!4V8(g
A k a)ErZ;p,r*|G2mkd{V8(5;,D{m(5#

120 Query/400 D9C V4R5


oT{m3r;#fZi/(eP#g{z#fKi/R|;CZ9Cm;VoTD
53O,M9CG;VoTD{m3r#1zh*#fCZ{mDoT1,Z0!q
{m3r1A;O9C!n 3((e3r)"4 F15#

Z Query/400 PT(e{m3r
zI\k*(eT:D{m3rT9V{}]y]zDX(h*4Er#

}g,zP;v=;}VDM'JEVN,|,}Kdns5 99,ZKVNP 99 Ts
Dn*V8M—A1"A2 H#zk*+V8nEZ}Vnsf#IT(eT:D{m3
r,TcTKX(i/V8}]zZ}V}]sf#

*(ezT:D{m3r,Z0!q{m3r1A;OD{m3r!na>Pdk 3 "
404P1|#

!q{m3r

1Er"!qG<",SD~"iRn!5Mns5T07(XF8V
N1"z1,TV{VN9C!qD{m3r#

dk!n,404P1|#

{m3r
!n . . . . . . . . 3 1=.yxF
2=Query/400 "o
3=(e3r
4=*;m
5=53Er3r

z+4=B;vA;:0(e{m3r1A;#

(e{m3r

CCSID. . . . . . . . . . . . . . : 37

(;= . . . . . . . . . . . . . . _ V{

*?vV{dkrE (0-9999),404P1|#
(9C`,DrE+V{{mZ;viP# )

3r V{ .yxF 3r V{ .yxF 3r V{ .yxF


10 40 90 c 83 140 h 88
20 41 90 C C3 140 H C8
30 E1 100 d 84 150 i 89
40 - 60 100 D C4 150 I C9
50 ' 7D 110 e 85 160 J D1
60 - CA 110 E C5 160 j 91
70 a 81 120 f 86 170 K D2
70 A C1 120 F C6 170 k 92
80 b 82 130 g 87 180 L D3
80 B C2 130 G C7 180 l 93
PP...
F3=Kv F11=vV{ F12=!{ F14=.yxF
F15=oT3r F16=9C1!5 F20=XB`E F24=d{|
CzRoT3ru</D{m3r

C3rD CCSID T>Z%?,|\GzDw5 CCSID#g{{m3r CCSID kzD


w5 CCSID ;%d,ZdT>Z0(e{m3r1A;O.0**;T08(Dr1
!D3r#PX CCSID gN0l{m3r.ji,N{Z2553D:Query/400 PD
CCSID M{m3r;#

Z9B Z Query/400 P!q{m3r 121


z\4=V{Pm,T08(x?vV{DrE#*V{8(DrET 10 *<,"4
v? 10 ]}#ZA;W?T>;uE",8>y9CD{m3r#IT+TB3rw
*(ezT:D{m3rDy!:
v .yxF3r
v Query/400 oT3r
v *zDC' ID #fD1!3r
v 533r

*K,4 F14(.yxF3r)"F15(oT3r)"F16(9C1!5)r F17(53


3r)#

9C3|/@V{Pm#P)V{;\T>Z3)UKO;rK,;)rET_I\
;T>V{#4 F11 MI4=?vV{D.yxF5,49V{;\T>ZzDUK
O#zIT9C(;=a>ZPmPlYiR=X(DV{#(g{z*@V{D.y
xF5RzD|L'VC&\,MITdkV{D.yxF5rdkV{>m# )

*T(e{m3r,IZk*|D3rDG)V{T|DrE#?vV{XkP;v
rE#zIT*=vr|`vV{8(`,DrE—Tb)V{4PYw1,+,H
T}|G#

1z4zy*D3rXB`EV{s,404P1|#V{DPmMaTzy8(D
3rT>#7#UWV{ (’40’X) T;ZZ;;#*XB+b)V{Tv? 10 DB3
r`E,4 F20#9C F20 XB`EIT9Z+48(B3rdC|]W#XkYN4
04P1|47ObGz*9CD3r#1zKvKA;1,V{MTv? 10 XB`
E#

1zTZi4KA;1,2IT4 F23 +zD{m3rw*1!5#fp4#

Z Query/400 P!q*;m
g{zDi/h*D3r4ZIC{m3rPa),R4(C'(eD{m3r;\
zzZ{Da{,zI\"V9C*;m+IT*zDi/4(}7D3r#*;m
(kC'(eD{m3r`F)4(4CZ*;}]#Zf> 2 "Pf 3 .0D"P
fP4(DNN*;mD CCSID <* 65535#

g{z*9C*;m,Z0!q{m3r1A;O!q!n 4#dkm{M|,zy*
DmDb#g{z*C Query/400 *zP>VfDm,+bjCZma>"4 F4#T
BG0!q*;m1A;>}:

122 Query/400 D9C V4R5


!q*;m

b{ . . . . . . . . *LIBL {F"*LIBL"4 F4 qCPm


S/ . . . . . . . . __________ {F"`t*
(;= . . . . . . . . __________ p<V{

dk!n(Mmkb),404P1|#
1=!q

Opt m b D>
_ __________ _________
_ QASCII QSYS EBCDIC A ASCII *;m
_ QEBCDIC QSYS ASCII A EBCDIC *;m
_ QLA10025S QSYS LATIN1 CCSID 37 2mS(
_ QLA10025U QSYS LATIN1 CCSID 37 (;S(
_ QRMASCII QSYS EBCDIC A ASCII D RM/COBOL *;m
_ QRMEDCDI QSYS ASCII A EBCDIC D RM/COBOL *;m
_ QSYSTRNTBL QSYS !4As4*;m
_ QA3BA69A3R QUSRSYS CHRID(*N 1009) A CHRID(1150 1025) *;

PP...
F4=a> F11=vT>{F F12=!{
F19=B;i

PX9CPmDji,N{Z143D:Z Query/400 P9CPm;#

Z Query/400 P!q53Er3r
zIT8(i/9CkX(oT`XD53a)DEr3r#?VoTP=vEr3
r:
v ;vGZmPD?vV{<P(;(5D3r#
v m;vG`vV{_P2m(5D3r#

": 53Zb QSYS Pa)53Er3rw**;m#2IT9CZ0!q{m3r1


A;OD!n 4(*;m)4{F!q|G#

53Er3rk Query/400 oT3r(Z0!q{m3r1A;OD!n 2)G;,


D#Query/400 oT3r;Gb?/Ts,|;\k Query/400 (eTs;p9C#"
R,;VoTD Query/400 3r;azIkCVoTDNN;v53Er3r`,Da
{#TZzoTPD;,c,li3rm#;,c(#GZ}VV{;ErD;C#

*T>0!q53Er3r1A;,Z0!q{m3r1A;O!q!n 5 "404
P1|#

": }K 2((;D)M 3(2mD).b,9IT9C SRTSEQ N}*zDw58


( *HEX rX(Dm#

Z9B Z Query/400 P!q{m3r 123


!q53Er3r

dk!n,404P1|#

Er3r. . . . . . . . 1 1=w5KP
2=(;D
3=2mD

oTj6{. . . . . . . *JOBRUN *JOBRUN"oTj6{"4 F4 qCPm

F3=Kv F4=a> F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~ F23=mf*1!5

1KPi/1,SC'Dw5P+w5KPM *JOBRUN bvIEr3r(SRTSEQ X


|V)MoT ID(LANGID X|V)
#g{;PEr3rMoT ID #fZi/C'r
*mP,b)G{m3r!n 5 D1!5#

ZBPiv1;9CoT ID:
v z!qw5KPw*Er3r!n,R
v ZKPZw5DEr3rG *HEX r|{D*;m#

(;G8?vV{<P(;(5#2mG8;)V{2m`,D(5#}g,Z"o
D2m3rP,V8Ds!4T2m`,D(5#

": g{z(}!n 4 r 5 !qD*;mrEr3r|DK,|DsDf>MI*B


Nz|DrT>i/1CZi/Df>#g{z+!qFY=KPZ,29C|
D}Dm#g{k+X(D*;mrEr3r@CXkzDi/X*,Xk9C
Z0!q{m3r1A;OD!n 3#+zw5D SRTSEQ N}hC*Z{Dm,
;st/;v Query/400 T044(r|DzDi/,9C!n 3 4hC0(e
{m3r1A;"4 F17#IT9C F23 +mkyPzB(Di/@CX`X*#

124 Query/400 D9C V4R5


Z10B Z Query/400 P8((fPq=
>BDZ;?VhvgNXFi/dvDq=#zI|D(fP0fDd`"PO=
DjbM(fVN$H#

>BDZ~?Vhv`-}VVNDDV=(#r*E"D}VVN4Sjcf"Z
}]bD~P,zITdxP`-Tc|GvVZi/(frA;P1cZDA#

q=/ Query/400 i/(fP


": Z;N!q08((fPq=1!n1,ZA;OT>DPjb"VN$HM!
};E"GSVN(eMa{VN(eP!CD#g{*VN(eKPjb,r
T>|;qr,+VN{CwPjb#

zI8(TBPXZr!MT>D(fPgNT>PDE":
v ?Ps_DUq}
v PO=jbDkG
v PPVNDs!

Query +vTZzr}]bD~"Mj8Ddv1y8(DNNPq=#+G,g{z
Ts9CCi/4zI(f,r9Cz8(DPq=#

Query 9CZzr}]bD~"Mvc\dv1*i/8(DPjb(v8VVN)"
`-MVNs!#vc\dv+ZZ13B Z Query/400 (fP!qdv`MMdvq
=Phv#

Query/400 (fPDPd`
g{#{|DVNDPd`,dk 0 A 99 .dD;v}5,T8>#{vVZCVN
PDs_DUq}#

}G|DKVNDPd`,qr Query ;Z(fDZ;P0ENNUq,xZyPd{


P0E=vUq#Z8(NN50,z&l$NN|DDI\'{#}g,g{z*
s Query Z`vVN0E8vUq,dvDBmHI\a,vr!zOr!PDmH,
dvI\a;XO(2MG5,|D;?VI\*')#g{"zbViv,I8(|
!DPd`,r_IZ0!qdv`MMdvq=1A;OTPFX8( Y(G)(N
{Z13B Z Query/400 (fP!qdv`MMdvq=)#

": g{Z09Ci/1A;O9C1SO"!n4+i/}]O"=V&mD5,
OfficeVision/400 `-wI\a|DZ;PDd`#g{z*(fDZ;vVN8(
YZ 5 vUqDPd`,C`-w+vTz8(Dd`,"ZO"Di/DZ;P
s_ek=vUq#

© Copyright IBM Corp. 2000 125


Query/400 (fDPjb
TZZVN(eP(gZ IDDU VN(eP)(eKPjbD?vVN,Query +9C
CE",}GzwK|D#TZa{VN,Query 29CZ0(ea{VN1A;O8
(DNNPjb#TZ;P(ejbDVN,+VN{Cwjb(ZjbP 1 P),}
GZjbP 1 P8(K *NONE#g{8( *NONE,|XkSZ;vjbPDZ;P*<
RXk+?Gs4V8#jbDd`?VXk*UW#

?vPjbj+4UzdkDN=vVZ(fP#?vjbI$o}P(?P 20 vV
{),RI9CZ{DNNV{(N{TBA;O INIT VNDjb)#

8((fPq=

dkE",404P1|#
Pjb: *NONE"TkDD>P

P
VN d` Pjb Len Dec `-
LASTNAME 0 U 30

INIT 2 {0 2
Pd{
u4

STARTTIME 2 6 *
p<
1d

W?
F3=Kv F5=(f F10=&m/0;A F12=!{
F13=<V F16=`- F18=D~ F23=$"M

g{#{yPPjb<knBfDjbPTk,rXkTbV==ZA;Odk?v
jb#

g{|DKjb,+Vv(9C-4Djb,r>}zdkDjb#Z(fP9C-
4D(1!D)jb,|ZzBN5XAKA;1T>#g{#{|Da{VNDj
b,IZ0(ea{VN1A;O|D|,gZ5B Z Query/400 P(ea{VNPy
v#

Query/400 (fPD$HM!};
D~P?vVNZ;NT>D$HGVN(eP(eD$H#?va{VNZ;NT
>D$HG Query *zFcD$H,r_GzZ0(ea{VN1A;OD Len PP
dkD5#?v}]`MD$H<P;,D,e:
v TZ SBCS V{VN,$HGCVNPDV{\}#
v TZ(;= DBCS"*E= DBCS rq;= DBCS VN,$HGCVNPDVZ\
},|(FvMFkV{#
v TZ<N DBCS VN,$HGCVNPD DBCS V{\}#ZT>rr!CVN1
9CDFvMFkV{;|(Z Len 5.P#
v TZ}VVN,$HG!}csR=_D;},+;|(!}crNNd{`-V
{(guR{E)
#

126 Query/400 D9C V4R5


v TZUZ"1dM1dAGVN,$HGq=/5PDV{},|(Vt{MCq
=h*Dd{NNV{(g 12:15 am)
#1dAG\G 26 vV{$#

|DKA;OD Len 5v0lVNZKi/PDT>#;|DVN(ePD5J$H,


5J$HCZyPI Query 4PDd{VN&m(gEr"(f8VH)
#g{#{|
Da{VND5J$H,&Z0(ea{VN1A;OxP|Dx;*Zq=/Zd
|D#

g{8($H,P'D$H5*:
v TZ SBCS V{VN,* 0 A 32 766
v TZ9u"x;r~xFN=D}VVN,* 0 A 31
v TZ!cVN,* 0 A 9(%+H)r 0 A 17(++H)

TZUZ"1d"1dAGM DBCS VN,;\+$H|D* 0,b+S(fP%tC


VN#

TZ}VVN,g{vSru! Dec PD5,2&Z Len PvSru!`,D}?#


g{z|DK Len r Dec PD5,+Vv(9C-4DVN(e5,r>}zdkD
}5#g{,;VND Len r Dec PPP5,2Xk>}|#g{>}Kb)5,r
Z(fP9C-4D$HM!}5#

D~P?v}VVNZ;NT>D$HM !};}kZCVN(ePy(eD`,#
?va{VNZ;NT>D$HM!};}G Query *zFcD5,r_GzZ0(e
a{VN1A;OD Len M Dec PPdkD5#

TZ}VVN,Dec PPD}58>!}cR_D;}#

TZG}VVN,VN`MT>Z Dec PPR;\|D:


v +UD Dec Pj6($ SBCS V{VN
v V m>d$
v J m>(;= DBCS
v O m>*E= DBCS(lOM)
v E m>q;= DBCS
v G m><N DBCS
v L m>UZ
v T m>1d
v Z m>1dAG

|D Dec 5v0lCVNZi/(fPDT>#;|DVN(ePD5J5#g{#{
|Da{VND5J!};},&Z0(ea{VN1A;OxP|Dx;&K1|
D#

TZ}VVN,IT!};}dkT:D5(0 A 31),+;\dksZCVN$HD
Dec 5#

Z10B Z Query/400 P8((fPq= 127


S Query/400 (fPT%VN
Z!q"ErVN1!qzI\#{|(D+?I\DVN,44(,;vy>i/
dvD;,f>,;sZq=/&mZdZ08((fPq=1A;Odkc$HT
T%3)VN#?;vf><Iw*%@Di/#fB4"KP#

zI\2#{+;vVNCZErr(f8V,+;#{|vVZi/(fP#g{
Z08((fPq=1A;O+VN$H(Len a>)|D*c,G4Z"MA}]b
D~Dc\dvP+;r!"T>r9CCVN#CVNTCZEr"G<!q"(
f8VM8VD>ek(PXji,N{`&DBZ)#

g{Z Len PPdkK 0,x,;VND Dec PPP;v}5,rXk2T Dec P


dk 0#

": Zq=/}LZd;\|D(fOVNDNr#g{z7(h*|DdvPVN
DNr,rXk5XA0(ei/1A;"!q!q"ErVN!n(N{Z6B Z
Query/400 P!q"ErVN)#

`- Query/400 (fPD}VVN
z&<GDZ;V`-}VVND=(G;*dkNN`-!n,C Query *zwvv
(#+G,g{K=(;\a)zh*Ddva{,I9C>BPV[DDV`-!
nPD;V#

Query 9C0!q(fPq=1A;OD`-P48>GqQ*i/PDNN}VVN
(eKNN}VVN`-#g{TVNT>GE (*),mwZCVNDi/(eP8(K
`-2G5;+9CG)5Z(fP`-CVN5#TZv9C1!5`-DV{V
NM}VVN,KPGUWD# (1!5r-<5I\ZD~(eP,rZI Query 9
CD53a)D1!5P) #

g{#{`-}VVN — 2MG,8(+Cwi/(e;?VD}VVN`-5,+
bj(;=CVN"4 F16(`-)xk0(e}VVN`-1A;#!vZzZKA
;wvD!q,Query +T>J1DA;Tczhv`-(eDd`?V#Z;P*i
/(ePD3VN#f}5`-2G51,5JCZCVND`-WH4T-<VN
(e(ZD~(eP)rns4T53a)D1!5#

": g{#{}%X(VNDyP2G`-(QZi/P(e),ZK&4 F16 xk


0(e}VVN`-1A;,;sZCA;PY4 F16(CA;P F16 G}%`
-)#Z4 F16 }%`-1,2+}%*CVN(eD+?Dv`-!nDyP`
-(e#

(e Query/400 (fPD}VVN`-
0(e}VVN`-1A;Jmz`-NN}VVN(?N`-;vVN)#+;\`
-!cVN#

128 Query/400 D9C V4R5


(e}VVN`-

VN . . . . . . . :
D> . . . . . . . :
jb 1 . . . . . . :
jb 2 . . . . . . :
jb 3 . . . . . . :
$H . . . . . . . :
!} . . . . . . . :
y> . . . . . . . : -9,999.99_____________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
_________________________________________

dk!n,404P1|#

`-!n . . . . . . 1 1=}V`-!n
2=UZr1d`-!n
3=`-k
4=`-V

F3=Kv F5=(f F10=&m/0;A F11=|Dy>


F12=!{ F13=<V F16=}%`- F18=D~

0(e}VVN`-1A;Jmz8(#{CZ`-}VVND`-`M#`-7(
VND5gNZi/(fPT>#bGCZ(e`-D=vA;PDZ;v;T>D
Z~vA;DZ]!vZZZ;vA;O!qDv`-!n(1 A 4)
#}g,g{!q
!n 2,+xkJmz8(#{ZUZVNP9CDVtV{`M#

0(e}VVN`-1A;OT>DG*`-D}VVND{F"CVNk(fPX
DE"T0CVND`-y>5,C5+k10*|(eD`-5;pvVZ(f
P#CVNG4 F16(`-)1Z08((fPq=1A;ObjyZDGvVN#

?v`-!nhvgB:
1=}V`-!n
T>0hv}VVN`-1A;,ZCA;OzIhvCVND8v`-tT#I
!q*Cw!}c"';Vt{":EMuR{EDV{,"I8(gN&mc5
M0<c#
2=UZr1d`-!n
T>0hvUZ/1dVN`-1A;,ZCA;OI!qCZUZr1d5DV
tV{#
3=`-k
T>08(`-k1A;,ZCA;OI!qCZ`-VND`-kM^N{(g
{PD0)#
4=`-V
T>08(`-V1A;,ZCA;OI(eT:DCZCVND`-V(5)
#

g{Z08((fPq=1A;OD`-PPT>GE (*),mwQ-ZKi/P*CV
N(eK`-2G5#g{C&T>GE,rCVN10`-D5Ja{T>ZKA
;ODy>VNP,R`-D`MI10Z`-!na>P8(D`-!n8w#g
{C&;PT>GE,ry]ZVN(erZ Query Y(D53a)D1!5P8(D
`-4ZK&`-y>VN#

Z10B Z Query/400 P8((fPq= 129


g{4 F11,rI|DZQ`-Dy>PT>D5#?N4 F11 1,I4=nsD}}
(+?* 9)"c (0) r: 1 (−1)#I|D`-!n,,14 F11 4i4?i`-2
Gr1!5D'{#mb,g{z|DK`-!nEk"404P1|,rxkC!
nD(eA;,ZCA;PIi4r|DC!nD`-D(e=(#Z4 F10(&m/
0;A)5X1,Q`-Dy>+T>C!nD`-5a{#

g{#{i4c\\FD`-(g{PD0),9C F5((f)r F13(<V)#

ZZ;Nxk0(e}VVN`-1A;&mNN}VVN1:
v ZD>A!}VNPTC}VVNT>D5kZ08((fPq=1A;OTK,
;}VVNT>D5`,#
v y>T>CVND10`-(e,T>CVNy\]IDns}5(+?* 9)
#g{
y>Gy]10!qD}VVN(e`-D(Z `-!n a>P8(D!n 1 A
4),Cy>9T>gNT>K}5#
v g{Z`-VNPD}51"zms,r9C J `-k`-Cy>,RZT>`-D
y>D,1T>vmE"#
v `-!n5GZi/(ePns8(D5"kD~(ePDVN(e`XD5(g
{bGD~PD;vVN)r_G 1(g{0f=n<48>5)#

(#,ZZ;Nxkd{Dv}VVN`-A;(Z0(e}VVN`-1A;D`
-!na>Pj6)1,T>D5GSi/(ePH0#fD5"D~PDVN(e
T053a)D1!5(4K3r)P!CD#Query 9C`-k J w*`-!n 3 D
1!5,9CU`-Vw*`-!n 4 D1!5#

hv Query/400 (fPD}VVN`-
g{7(C Query *zxP`-;\a)yhDa{,I8(T:D`-tT#IZ
0hv}VVN`-1A;O8(#

hv}VVN`-

VN . . . . . . :

dk!n,404P1|#

!}c . . . . . . . . . . . _ 1=. 2=, 3=: 4=$ 5=^


';Vt{ . . . . . . . . . _ 1=. 2=, 3=' 4=UW 5=^
T>:E . . . . . . . . . . _ Y=G, N=q
s:E . . . . . . . . . . ______
R:E . . . . . . . . . . ______
T>uR{E . . . . . . . . _ Y=G, N=q
suR{E . . . . . . . . ______
RuR{E . . . . . . . . ______
r!c5 . . . . . . . . . . _ Y=G, N=q
f;0<c . . . . . . . . . _ Y=G, N=q
f;* . . . . . . . . . . _ 1=Uq
2=GE
3=!/uR{E
%v0<c . . . . . . . . _ Y=G, N=q

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F16=}%`- F18=D~

KA;Jmz8(#{CZ}VVND`-XT#`-7(CVND5Zi/(fP
gNT>(g{ZCVND`-!n* 1 1KP(f)
#zI!q*Cw!}c"';

130 Query/400 D9C V4R5


Vt{":EMuR{EDV{#I*VN}]5DNN;`8(%@D:EV{M
%@DuR{EV{#9I8(Gqr!c50gN&m0<c#

KA;T>*`-D}VVN{T0+Z(fP9CD}VVN`-2G5M1!
5#T>D`-5I\4T IDDU r53a)D`-5w#

g{z>}KA;ODa>PDyP5"404P1|,+?5+;hC* Query Y(
D53a)D1!5#b)5kZ;N(ea{VN1yCD1!5`,;rK,9
CbV=(,I*D~PDVN8(ka{VNyCD`,`MD`-,TcZ(f
Pa);BD`-#

*}%K}VVNDyP`-2G,4 F16(}%`-)#S08((fPq=1A;O
D`-PP}%GE (*),"SVN(er53a)D1!5P!C+CZi/(fPK
VND`-5#

Query/400 (fPD!}c

dk#{CwKVNPD!}cDV{!nE#!nEMV{T>gB,,1T>}
5 245.87 D`-a{>}:
!n >} !n,e
1= . 245.87 !}cGdc
2= , 245,87 !}cG:E
3= : 245:87 !}cG0E
4= $ 245$87 !}cG@*{E
5= ^ 24587 ;9C!}c

Query/400 (fPD';Vt{

dk#{CwKVNPD';Vt{DV{!nE#!nEMV{T>gB,,1T
>}5 1515109 D`-a{>}:
!n >} !n,e
1= . 1.515.109 Vt{Gdc
2= , 1,515,109 Vt{G:E
3= ' 1'515'109 Vt{G2E
4=Uq 1 515 109 Vt{GUq
5=^ 1515109 ;9CVt{

T> Query/400 (fPD:E

dk Y r N 48>KVNGq9C:E#
Y=G
ZVNPD5*:1T>:E#K{EIZ}5Ds_rR_(r=_),RIV
pT?_w;,(e#(fPyP:E<<CUd#9CBf=va>4(e:E
D 1 A 6 vV{#
(I+;va>#t*UW#g{byv,ZVNDG;`;T
>{ER;<C(fPDUd#
N=q
ZVNPD}5*:1;T>:E#g{TB=va>|,:E(e,|G+#f
ZKi/P+;9C#

Z10B Z Query/400 P8((fPq= 131


Query/400 (fPDs:E
dk#{vVZKVNP:5s`Cw:ED 1 A 6 vV{#I9CNNIr!rT
>DV{#ZKV{.PI9CUqrB._ (_),+g{#{Uq;Zm>:EDV{
.RK,Xk9CB._#

27.03 D:5s:ED;)>}gB:
{E `-D:5
- -27.03
CRAMT CRAMT27.03
CR AMT CR AMT27.03
CRDT:_ CRDT: 27.03

ns;v>}D`kXk|,B._,r*s:EV{DRKPUq#

s:ED;C!vZZ*f;0<c1Zf;*!nP8(D5#
v g{z8(!n 1(UW)r!n 2(GE),r:EGL(D;|\GT>ZVN
Dns_,Zf;+?0<cDyPGEDs_#}g,Z;vPK;$HDVN
P,27.03 D`-5+G -****27.03 r − 27.03#
v g{8(!n 3(!/uR{E),r:EF/(r!/),!vZ|f;`Yv0
<c,Tc|tZ}5PZ;vP'}VDs_(g −27.03),r_tZsuR{E
Ds_(g −$27.03)#

Query/400 (fPDR:E
dk#{vVZKVNP:5R`Cw:ED 1 A 6 vV{#I9CNNIr!rT
>DV{#ZV{.PI9CUqrB._ (_),+g{#{Uq;Zm>:EDV{.
RK,Xk9CB._#R:ED>}* 27.03−"27.03CR AMT M 27.03 CRDT#

T> Query/400 (fPDuR{E

dk Y r N 8>KVNGq9CuR{E#
Y=G
ZVNPuR{Ek}5;pT>#C{EIZ}5Ds_rR_(rZ=_),
RIVpT?_w;,(e#g{;PZTBDf;*a>(0<cD)P8(!
n 3(!/uR{E),rsuR{E(g{9CD0)vVZCVNPD;vL
(;C#+G,g{9C!n 3,NN8(DsuR{E<+G!/{E,!vZ
|f;`Yv0<c#9CBf=va>4(euR{ED 1 = 6 vV{#
N=q
ZVNPuR{E;k}5;pT>#g{Bf=va>|,uR{E(e,|G
+#fZKi/P+;9C#

Query/400 (fPDsuR{E
dk#{vVZKVNP}5s`CwuR{ED 1 A 6 vV{#I9CNNIr!
rT>DV{,+;&9CGE (*)"crNN!}c(gdc)#V{.PI9CUq
rB._ (_),+Gg{#{Uq;Zm>C{EDV{.RK,Xk9CB._#

I\k}5 45.5 ;p9CDsuR{ED;)>}gB:


{E `-a{ I\DC(
L. L.45.5 bs{
Kr Kr45.5 2~
$ $45.5 @z
THOUS_ THOUS 45.5 @z

132 Query/400 D9C V4R5


KV{.D;Ckzdk1`,,}Gz!qC!/uR{Ef;0<c#ZbVi
vB,KV{.F/(!/)AtZZ;vP'}VDs`#

Query/400 (fPDRuR{E
dk#{vVZKVNP:5R`CwuR{ED 1 A 6 vV{#I9CNNIr!
rT>DV{,+;&9CGE (*)"crNN!}c(gdc)#V{.PI9CUq
rB._ (_),+Gg{#{Uq;Zm>C{EDV{.RK,Xk9CB._#

I\k}5 123.45 ;p9CDRuR{ED;)>}gB:


{E `-a{ I\DC(
_BF 123,45 BF H{1
F 123,45 F (z
$ 123.45$ @z
THOUS 123.45THOUS @z
ø 123.45ø @z

RuR{E\&Z;vL(D;C#

r! Query/400 (fPDc5
ZKVN|,c51,dk Y r N 48>GT>c9G#t*UW#
Y=G
v=}5 0 1+T> 0#
N=q
+}5 0 +?T>*UW;KVNP;T> 0#

f; Query/400 (fPD0<c

ZKVN|,0<c1,dk Y r N 48>GqC;,DV{+df;#0<cGv
VZ}5PZ;vP';(1 A 9)s`,r_vVZ!}cs_(g{C}5!Z 1
D0)DG)c#}g,ZK;}VN 000027.03 PPDv0<c,xZK;}VN
000000.03 PPyv0<c#
Y=G
Cd{V{(UqrGE)rC!/uR{E4f;0<c#
N=q
T>yP0<c#(g{f;0<cMf;*a>|,}5,r+d#fZKi/
P+;9C#
)

Query/400 (fPDf;*!n
g{Zf;0<ca>PdkK Y,rdk#{C4f;KVN5PNN0<cDV{
r{ED!nE#
1=UW
9CUq4f;0<c( 27.03 M .03)#
2=GE
9CGE (*) 4f;0<c(****27.03 M ******.03)
#
3=!/uR{E
9CuR{E4f;0<c#C{E!/TcvVZ}5PZ;vP';s`(}
g,$27.03 M $.03)#

Z10B Z Query/400 P8((fPq= 133


Query/400 (fPD%v0<c
ZKVNPD}5!Z 1 1,dk Y r N 48>GqZ!}cs_T>;v0<c#
v1ZTf;0<ca>8( Y 1E9CKa>5#
Y=G
Z}5!Z 1 1,Z!}cs_EC;v0<c,Y(d$HsZ!};}(}
g,3/100 Da{G 0.03)#
N=q
Z}5!Z 1 1,!}cs_;T>c(}g,3/100 Da{G .03)#

hv Query/400 (fPDUZ/1dVN`-T>
g{*|,UZr1d5Di/!qK}VVN,Query +a);vrcD=(48(
r|DCZC`-}LPDVtV{#

0hvUZ/1dVN`-1A;Jmz8(#{CZ|,UZr1d5D}VVN
DVtV{`M#`-57(UZr1dVND5Zi/(fPgNT>(g{9C
!n 2 w*KVND`-!n)#

hvUZ/1dVN`-

VN . . . . . . :

dk!n,404P1|#

UZ/1dVt{. . . . . . . _ 1=. 2=/ 3=: 4=- 5=,

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F16=}%`- F18=D~

Z;Ni4KA;1,T>D`-5GH0#fZi/PD5"D~5wDVN(e
PD5r_G53a)D1!5#

zI|DT>D`-5r>}|#g{>}C5,r9C53a)D1!Vt{5
(f"Z QDATSEP 535P),g{z5XAKA;+T>|#*9CKUZ/1d
`-54`-CVN,XkZ0(e}VVN`-1A;O8(`-!n 2#

| TZ?v1YD;(c5d*UW),NN;cy;D}<+Zs_*';vUZ/
| 1d;#g{s_D0<}VGc,rCUqf;|(}g,g{zDUZ/1dV
| t{G1\,r5 000829 d* 0/08/29)
#*T>;PXO0<cDUZ,T0<cr
| GE9C`-V!n#

134 Query/400 D9C V4R5


| Z9CUZ/1d`-1,vT>}VVNDnsy;(}g,g{zDUZ/1d
| Vt{G1\,r}5 19631001 d* 63/10/01)
#*T>D;}Dj],9C`-V
| !n#

Query/400 (fPDUZ/1dVt{

dk#{ZKVNPCwUZr1dVt{DV{D!nE#!nEMV{T>g
B,,1T>}5 100863 D`-a{>}:
!n >} !n,e
1= . 10.08.63 Vt{Gdc
2= / 10/08/63 Vt{G1\
3= : 10:08:63 Vt{GVE
4= - 10-08-63 Vt{G,V{
5= , 10,08,63 Vt{G:E

*}%K}VVNDyPi/(eD`-5(TZK`-!nMyPd{!n),4
F16(}%`-)#

8( Query/400 (fPD`-k
08(`-k1A;Jmz8(#{9CDv`-krC'(eD`-5w4`-}
VVNPD?v5#z!qD`-kr`-5w7(Zi/(fPgNT>8(VN
D5(g{ZCVND`-!n* 3 1KP(f)
#TZ3)`-k,9I8(^N{
Cw`-D;?V#

ICDzkk RPG/400* Lr1ICDzk`F#

*}%K}VVNDyPi/(eD`-5(TZK`-!n MyPd{!n),4
F16(}%`-)#

Z10B Z Query/400 P8((fPq= 135


| 8(`-k
|
| VN . . . . . . . . :
|
| dk!n,404P1|#
|
| `-k . . . . . . . _ 1-4"A-D"J-Q"W-Z"C'(eD 5-9
|
| I!D`-k
| ^N{ . . . . . . _ 1=GEnd
| 2=!/uR{E
|
|
|
|
|
|
|
|
|
|
| F3=Kv F5=(f F10=&m/0;A F12=!{
| F13=<V F16=}%`- F18=D~
|

Query/400 (fPD`-k

| T#{CZ`-KVNP5D`-kr`-5wdkj6|GDV{#zI*`-z
| k8(TB}VrV8PDNN;v:1 A 4"A A D"J A Q r W A Z#r_I
8(NN;vC'(eD`-5w:5 A 9#

| s`}`-kT>ZBmP#d{`-k(W"X"Y M Z)T0C'(eD`-5w
| (5 A 9)PZ<ms#
| -- QDECFMT 535PD5:--
| `- r! :E UW I J
| k :E 5 5 5
| 1 G ^ .00 r 0 ,00 r 0 0,00 r 0
| 2 G ^ UW UW UW
| 3 q ^ .00 r 0 ,00 r 0 0,00 r 0
| 4 q ^ UW UW UW
| A G CR .00 r 0 ,00 r 0 0,00 r 0
| B G CR UW UW UW
| C q CR .00 r 0 ,00 r 0 0,00 r 0
| D q CR UW UW UW
| J G - .00 r 0 ,00 r 0 0,00 r 0
| K G - UW UW UW
| L q - .00 r 0 ,00 r 0 0,00 r 0
| M q - UW UW UW
| N G - .00 r 0 ,00 r 0 0,00 r 0
| O G - UW UW UW
| P q - .00 r 0 ,00 r 0 0,00 r 0
| Q q - UW UW UW

| ": TZyPb)`-k,\GT>!}c,"R\GVF0<c#

| Z}VVN`-Zd"zms1r;Pd{`-5IC1,Query + J `-kCw1!
`-k#g{"zms,rT>vmE"09C J zkzID`-a{#

TZ(eP;P8(`-kDVN,ZzZ;Ni4KA;ODCVN1,`-k J T
>*1!5#

d{`-kM`-5wgB:

136 Query/400 D9C V4R5


| v `-k W VFyAK;$DUZVNns_D}vc,"RVFe;$DUZVN
ns_Dc#|2Zj"BMU.dek1\ (/)#1\D;C!vZVNPD;}:
nn/nnn"nnnn/nn"nnnn/nnn M nnnn/nn/nn#
v `-k X T4`-Dq=T>}5#}g,}5 −12 T>* 1K#zI+4`-D
q=4wGiIC}5Dx;.xFm>D.yxFV{.DV{m>#m4T>x
;"9uM~xFq=}5D4`-m>q=MZ?m>#

m 4. `-k X >}
Z?m>(gN
q= $H/!};} 5J5 4`-Dm> f")
x; 7 549134 0549134 X’F0F5F4F9F1F3F4’
9u 7 549134 0549134 X’0549134F’
~xF 7 549134 0549134 X’008610E’
x; 5/2 -319.34 3194N X’F3F1F9F4D5’
9u 5/2 -319.34 3194N X’31945D’
~xF 5/2 -319.34 3194N X’000F8337’
| v `-k Y VF}Ay;$rK;$UZVNDns_Dc,"RVF_;$UZV
NDns_=vc#|2ZB"UMj.dek1\ (/)#1\D;C!vZVNPD
;}:nn/n"nn/nn"nn/nn/n"nn/nn/nn"nnn/nn/nn M nn/nn/nnnn#
v `-k Z S}VVN}%yPSuE"VF0<c#
v `-5w 5 A 9 GC'(eD`-k#I(e|GT9Cd{V{rV{iO4`
-}VVN#

TZ`-k N A Q,:EZ}5Ds_;TZd{D`-kM`-5w,:EZ}5
DR_#

(}g,IZ`
XkZK&8(`-k,r4 F12 5XA0(e}VVN`-1A;#
-!nP8(!n 4 ,SEZ08(`-V1A;O(ezT:D`-V#)
v Ikb)`-kPNN;v;p9CD(;uR{EGZ53a)D535
QCURSYM P(eDGvuR{E#
| v g{*VN8(KUZ/1d`-k Y,CVNXkG}AK;$#
| v g{|DK`-kD(e(Z Query b?jI),b)|D+43Z9CC`-kD
| yPi/(fP#

Query/400 (fPI!D`-k^N{

| *8(D`-kdk#{CwI!^N{DV{#g{zZ`-ka>P8(K`-
| k W A Z PD;vr`-5w 5 A 9 PD;v,r;\ZKa>P8(I!^N
| {#
| 1=GEnd
| +GE (*) CwndV{4f;KVND0<c;}g,****27.03#
| 2=!/uR{E
| Z QCURSYM 535P8(DuR{E+CwKVND`-k^N{#}g
| $27.03 PD@*{E ($)#

Z10B Z Query/400 P8((fPq= 137


| 8(`-V
8(r4(`-VG(e}V`-Dm;V=(#10}V=(^(zIzy#{D
a{1&<GbV=(#

08(`-V1A;Jmz8(r|D#{CZ`-}VVND`-V#`-V7(
Zi/(fPgNT>8(VNDyP5(g{ZKVND`-!n* 4 1KP(f)
#

I9C;v`-V4`-CVNDyPj85,"Rg{*CVN8(K\Fc\/
},rI9Cm;v`-V4`-CVNDc\\F5#

TZ;PZ(eP8(`-VDVN,}Z2EPDUWV{.+T>*dj85`
-VD1!5#

*;}%CZKVNDc\\FD`-V,>}c\\FD`-Va>#g{z#{
}%*KVN(eD=v`-V,4 F16(}%`-)
#"b F16 +}%ZyPDv`
-!nP(eD+?`-5,x;vvGK!nPD`-5#

TZ`-Va>,Xk8(`-V,r_Xk4 F12 5XA0(e}VVN`-1A


;#;\C`-Va>t*UW#

g{Z Query `-VN1"zms,rC J `-k`-CVN,"RZT>msE"


D,1T`-Dq=T>CVN5#

Query/400 (fPD`-V

| dk#{CwKVN`-VDV{.#CV{.XkC}E}p4R`-V|,DU
| q}XkHZCVNPD;},bIA;OT>D$HVNv(#ekcrGEw*
| `-VDZ;vV{T@9XO0<c#

}g,g{zD`-V*
'0 / / '

r5 01251960 d* 01/25/1960#;P0<crGE1,01251960 +T>* 1/25/1960#


*Z(fa{P8(Uq,9C (&) {E#

138 Query/400 D9C V4R5


8(`-V

VN . . . . . : jb 1 . . . . . :
$H . . . . . : jb 2 . . . . . :
!} . . . . . : jb 3 . . . . . :

dkE",404P1|#
(+`-VC}E}p4# )
(?vUqI;;}Vf;,?v '&' I;vUqf;#)

`-V . . . . . . ' , , 0. -'

(b)vGy>;;G1!5#
)

c\\FD
`-V . . . . . ' , , , 0. -'

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F16=}%`- F18=D~

}g,g{*(e;v|,.;;"^!};DVND`-V,R*+:ECw';
Vt{"C CR m>:5,zD`-V&G ' , , , &CR',R(fPD5+T>*
27,345,838,789 CR(g{|G:5)#

TZQZ08((fPq=1A;Oq=/*.;r.;;D.;g0Ek,I(e '0(
)& - ' w*d`-V#

.;Ek 5079876543 +T>* (507) 987-6543#

TZE;ga2+Ek,`-VITG ' - - ',g '123-45-6789'#

Z(e`-V1<GTBBn#9C(e`-VyCDw5D CCSID 4jG?v`-


V,byI+|*;TcZ9C;,D CCSID Dw5P9C#PX CCSID gN0l
`-VDE",kN<Z2613D:Query/400 PD CCSID MPq=k`-;#
v g{Q-r+*Z0!q(fc\/}1A;O8(!n 1(\F)4q!VNDc
\\F,"Rg{;PZc\\FD`-Va>P(e`-V,r9C J `-V4`
-CVN#
v c\/}\FD`-V(g{9CD0)D$HXkHVN$H8wD`}vU
;,+d$H;\,} 31 ;#}g,|,:Ew';Vt{r|,dcw!}cD
`-;MI\,}ns5 31#
v 9C`-V1,Z7(Z(fPTCVN9CDPm1 Query +<Gd$H#}g,
g{(eKc\\F`-V,+;P*KVN(ec\\F,rZ7(j8dvD
Pm1+vTc\\F`-VD$H#
v g{(e"9CK=v`-V,rY(|Gk?vV{.Pns;vV{RTk#
g{;PTk,IC (&) {ErdP;v`-VV{.mSUqT9|GTk#
v g{*9CDnm`-VHPjb9-,rPjb;Z`-V.ODPd;C#q
r,PjbnR_Pk`-VnR_PTk#
v g{#{Z`-a{PvV%}E,Z`-VP9C=v%}E (')#
v TZVNPD?v!};,`-V ;;(*P!};(!}cR_);;P\$H
EGP'D#Query ;lib=v`-V44|GD!};}Gq;y#

Z10B Z Query/400 P8((fPq= 139


v ;P53(eDuR{E(f"Z QCURSYM 535P)E\Cw!/uR{E#
8(DNNd{{E;\!/;|+L(Z;v;C#
| v g{VN$Hrd!};5|DK,`-VI\;YG}7D#ZbVivB,X
| *1 Query +9C J `-k4`-CVN5#

Query/400 (fPc\\FD`-V
g{Z0!q(fc\/}1A;O8(K!n 1(\F)4!CKVNDc\\F,
Xkdk#{CwKVNDc\\F`-VDV{.#CV{.XkC}E}p4,
RTCVNPD?v};Xk<P;vU;,SOHZA;%?T>DVN$H`v
D}vUq,n`* 31 ;#*Z(fa{P8(Uq,9C (&) {E#

}g,g{z#{*^!};D 8 ;VN\5(e;vc;$D`-V,R#{+:E
Cw';Vt{,CR m>:5,rzD`-V&G ' , , , &CR',(fPD5+T>
* 27,345,838,789 CR(g{|G:5D0)
#

g{zZK&;P8(`-V,xZ0!q(fc\/}1A;O8(\FCVN,
r9C J `-k4`-CVNDc\\F#

140 Query/400 D9C V4R5


Z11B 8( Query/400 (fPD(fc\/}
>BhvgN*i/dvP?v!qDVN8(c\/}#!vZVND`M,zI
*(fPD?vVN8(;vr`v(r+?)`MDc\/}:\F"=y5"n
!5"ns5MF}#yPb)/}<ICZ}VVN, }\FM=y5.bDyP
/}<ICZV{(SBCS M DBCS)"UZ"1dM1dAGVN#

TZ8(c\/}D?vVN,Query +Fcc\5"+d|(x(fP#Query ZK
i/(eD?v(f8V&(8V6p 1 A 6)T0Z(fax&(8V6p 0)Fc
b)c\5#?V`MDc\Z(fPT%@;PT>,hvTu4T>Zc\5s
_(N{Z12B (e Query/400 (f8V)#

}g,YhzDi/9Cmo= QUANTITY * ITEMCOST(=v}VVN`K)(eK;


v{* ITEMTOT D}Va{VN#b=vVNCZFcZ ITEM VNPPvD?~L7
DI>#zI*b)VN(eTBc\/}:* ITEM VN(eF},* QUANTITY V
N(e\FMns5,* ITEMCOST VN(ens5,* ITEMTOT VN(e\FMns
5#TB>}T> Z Z Smith M'D;v(f,N:

ITEM QUANTITY ITEMCOST ITEMTOT

]( 12 .10 1.20
8S 2 8.50 17.00
1_ 1 2.00 2.00
]$ 6 .05 .30

Z Z Smith 3F}]
TOTAL 21 20.50
MAX 12 8.50 17.00
COUNT 4

Z?v(eD(f8V&Fc?vVN(P)D?vc\/}a{,"+dT>*c
\5(`FZ!F),Z(fax&+dT>*nsDc\(nU\F)#(+9C
0(e(f8V1A;Iq=/X(D8V6pTVFc\E"#ZbVivB,x
P8V1,+9CUWPMI\|(8V5D8VD>(g{(eD0)#)

c\/}a{(g{(eD0)IC+?}Vdv`M(T>"r!M}]b)M=
Vdvq=(j8Mc\)T>,;P;v}b:g{(fGTj8q="M=}]
bD~,r;\|(b)c\a{#

Query/400 (fPc\/}D`M
Z0!q(fc\/}1A;O,IdkBP;vr`v!nDEkT8(+CZV
NDc\/}`M#g{!nTVND`MP',Ifb*Nb`vVN8(Nb`
v!n#g{*T;vVNdk`v!n,IT4NNNrdk#+G,b)c\Z
(fPvVDNrkK&PvD`,,R;\|D:
1=\F
TK8V6r{vP(vJCZ}VVN)T>VNP}5D\M#vTU5,}
GyP5<GU5,rK1\F*U5#

© Copyright IBM Corp. 2000 141


2==y5
TK8V6r{vP(vJCZ}VVN)T>VNP}5D=y5#=y5G\
F}TF}(CZ7(\FDGU5v})#g{\F*U5,r=y52*U
5#
3=n!5
TK8V6r{vPT>VNPn!DV{r}5#UZ"1dr1dAG5Dn
!54jBUNr7(#vTU5,}GyP5<GU5,rKn!5*U5#
4=ns5
TK8V6r{vPT>VNPnsDV{r}5#UZ"1dr1dAG5Dn
s54jBUNr7(#vTU5,}GyP5<GU5,rns5*U5#
5=F}
T?v8V6r{v(fT>VNPGU}5D\}#

ZT\F"=y5"n!5Mns5c\/}Fcc\51,+9C-<D$HM!
};5(VN(ePD)xPVNFc,x;9CZ08((fPq=1A;D Len M
Dec PP*CVN8(D}5(g{PD0)
#mb,Zb)FcPICakrXO,b
!vZzZ08(&m!n1A;O8(DZ](N{Z14B 8( Query/400 &m!
n) #

!q(fc\/}

dk!n,404P1|#
1=\F 2==y5 3=n!5 4=ns5 5=F}

----!n----- VN
5 _ _ _ _ ITEM
1 4 _ _ _ QUANTITY
4 _ _ _ _ ITEMCOST
1 4 _ _ _ ITEMTOT

W?

F3=Kv F5=(f F10=&m/0;A F11=T>D>


F12=!{ F13=<V F18=D~ F23=$"M

KA;T>ICZ(fDyPVN(|(a{VN)#b)VN+4Z(fPT>D3
rPv:
v g{Z0!q"ErVN1A;O!qKb)VN,|G+T8(DNrP>ZA
;O(|(a{VN)#
v g{;PZ0!q"ErVN1A;O!qVN,Ci/PDyPVN+4TBN
rT>:
1. yPErVN(g{PD0)4dErEH6Nr#
2. ;P!qw*ErVNDNNa{VN#
3. yPd{VN,4|GZ!(D~9CDG<q=(ePfZDNr#WHPv
Z;vD~PDVN,SEPvZ~vD~PDVN,@K`F#

142 Query/400 D9C V4R5


Ifb*Nb`vb)VN8(c\/},;*/}D`MTCVND`MP'#

c\ Query/400 (fPDP
*i/!qD{m3r(N{Z9B Z Query/400 P!q{m3r)a0li/(eD
;,?V#g{*i/PD;vr`v SBCS"*E= DBCS Mq;= DBCS V{V
N!qn!5rns5!n,r9C!qD{m3r("Z(fOT>D}5#Z3
)ivB,UWGn!5rns5(g{G<;|,}]+ZCVNPPUW)"C
Zi/dv#

+;v CCSID k{m3r`X*#;,D CCSID CZ MINIMUM M MAXIMUM &


m1aC=;,Da{#PX CCSID gN0lc\/}DE",N{Z2613D
:Query/400 PD CCSID Mc\/};#

Query/400 (fPPc\5D;C
ZPvi/Dj8E"D(fP,Z(fax1M/r?v(f8Vs,c\51S
T>Z8(DPBf#ZvPvc\E"D(fP,Z(f8VD8VVNDNNP
.s,c\51ST>ZPjbBf#ZZ13B Z Query/400 (fP!qdv`MM
dvq=PhvK8(Gh*j8E"9Gc\E"#

?V`MDc\T>Z%@DPO#?vc\DhvTu4
(TOTAL"AVG"MIN"MAX r COUNT);Zc\5Ds_,"IAY;vUqk
C}5t*# (;\|DKE"D<Vrb)c\5T>DNr# )

}g,g{zP;va{VN TOTDUE,#{Z(fOT>d\FMns5,"R#{Z
(fPP>yPG<DF},r(fq=&`FZ:

&UJc\

NAME TOTAL DUE

Jones B D 5.00
Kagy R L 25.39
Vine S S .00
Johnson J A 140.28
Alison J S 36.36
Henning G K 1,900.50
Stevens K L 6.90
Wilson T N 15.00
Doe J W .00

FINAL TOTALS
TOTAL 2,129.43
MAX 1,900.50
COUNT 9

?v AVG"MIN M MAX 59CyZDPD`,==`-#

Z11B 8( Query/400 (fPD(fc\/} 143


144 Query/400 D9C V4R5
Z12B (e Query/400 (f8V
>BhvgNZi/(fP(ez#{"zD(f8V#(f8VCZ?N(f8V
VNPD5|D1+(f.V*G<(rP)i#>BDZ~?VhvTZ?v(f
8V,gNXF(f8Vq="(e8VD>E"#

(e(f8VDw*-rG* Query a);vy!(,,!qDErVN;p),Tc


*dvPD?vG<_-i4(;5P!F#;vG<_-iD>}G;v1$D+
?1dG<#m;v>}G{v?ED+?1$G<#Z}v>}*;vbfn?D
+?z[n/G<#

g{fZ?v1$D?U1dG<,Z"=Zax1IC Query &m+?G<"4(=


`ir!F#*K,zXk(e=v(f8VVN(}g,DEPTNO M EMPNO),"!q
b=v`,DVNw*ErVN#g{+ErEH6 10 8(x DEPTNO,+ErEH6
20 8(x EMPNO,Query +QG<Vi,TcZ(fO4?EEBD1$EkT>(S
Z;vrnMD?EEPnMD1$EkDG<*<,;sT]}3rT>yPd{
Z]) #

g{9+8V6p 1 (e* DEPTNO,+8V6p 2 (e* EMPNO,Query +4(i


r6p8V,"y]z*0(fc\1/}8(DZ]*?vir!rT>!F(P
Xji,N{Z11B 8( Query/400 (fPD(fc\/})
#g{;#{Z(fax
&C=nU\F,G4ZK>}P;X(eNN(f8V#

ZTi/!qD?iG<xP(f8V1,8VD>(g{PD0)+T>Z;vU
P.s#TZi/P9CD?V`MDc\/},8VD>s<T>%@;P#Z?
vc\/}PPT>DG/}{,T0Z(f8V&9CC/}TyPVNFcD+
?c\5#

(e Query/400 (f8V
Z0(e(f8V1A;O,!q#{Cw8VVND?vVN,"*d8(C4X
FD8V6p#I(e`oyv8V6p(`E* 1 A 6),"I8(`v8VVN4
XFNN8V6p,;G;\*yP9CD8V6p8(,}Ev8VVN#

}g,zIT:*(e*8VVNDyPEvVNv8(;v8V6p;*}v8V
VND?;v<(e}v8V6p;r_(en`yv8V6p,;vVNCwev
6pD8VVN,x+DvVNCZ;v6p#

g{*,;8V6p(eK`v8VVN,NN;v8VVND|D+<B8(D8
V6pEkzzBD8V(ri|D)6p#K8V6p|D<B Query ZdvP|(
!1Dc\5#

Z;v6pD8V+T/<BZyP|M8V6pD8V(nMD6p_Pn_DE
k) #}g,g{(eK+?yv8V6p,Z6p 4 "zDXF8V2a?FZ6p
5 M 6 xP8V,RG}v6p(6 A 4)P?;6pD8VD>Mc\5+|(Z(
fDG;&#

© Copyright IBM Corp. 2000 145


(e(f8V

*n` 9 vVN{dk8V6p (1-6),"404P1|#


(T?v8V6p9Cyh}?DVN# )

8V Er
6p EH6 VN
1 1 COMPANY
2 2 DIVISION
3 3 REGION
4 4 DEPARTMENT
5 5 EMPLOYEE

W?

F3=Kv F5=(f F10=&m/0;A F11=T>D>


F12=!{ F13=<V F18=D~ F23=$"M

}g,g{z*4+>"V+>"Xx"?EPD1$4T;i=J1dG<Er,
b1I\Mh*(eev(f8V6p#ZbVivB&8(TBD8V6p:
v 8V6p 1 = +>
v 8V6p 2 = V+>
v 8V6p 3 = Xx
v 8V6p 4 = ?E
v 8V6p 5 = 1$

I9CPmPT>DNNVN4(e(f8V;+Zs`}ivB,;&+ErVN
Cw8VVN#(#,8V6p&k8(xVNDErEH6D3r`,#2MG,
&+I8(Dn_8V6p(6p 1)8(x_DErEH6E(dP 1 2Gn_
D),&+8V6p 2 8(xM;cDEH6E,&+yCDnM8V6p8(x|M
DErEH6E#

g{8(3vVN*8VVN,xCVN2;GErVN,r(fPI\avVnb
D(f8V,r*g{CVN;GEr=hD;?V,&ik,;iDG<I\;P
Vi=;p,Sx<BnbD8V#

&mA}]bD~Dj8dv1vT8V(e#PX8V(eMc\/}gNCZA
}]bD~Dvc\dvDji,kN<Z1623D:Z Query/400 (fP9(BDd
vD~(e;#

TZr!rT>Dvc\dv,+T>;P8V5x;G8ViD8ZP#TZr!
rT>Dj8rvc\dv,Z?v(f8V&vVTB;nr`n:
v +c\E"kP}]V*D;PUWP#
v *C8V6p(eDNN8VD>,|(ZCD>P(eDNN8V5#
v Z0!q(fc\/}1A;O8(DNNc\(\F"=y5"n!5Mns
5"F})#!T;PT>8V5rc\5DP#
v m;vUWP,r_g{r!(f,ITNN8V6p8(r!c\E".s*<
B3#

146 Query/400 D9C V4R5


v g{;P!q8VVN,r;!qc\/}"VFnUc\#;zIb)G<D;
vF}#

}g,Z{FMX7D~P,zI\+=v{* CITY M STATE DVN8(*8VV


N#g{+ STATE (e*8V6p 1 D8VVN,+ CITY (e*8V6p 2 D8
VVN,xRZd`&6D8VD>PQ+b=vVN8(*8V5,rTBDy>
(f8VM8VD>I\vVZTBG<D(fP:
D~PDG<: | (fPDP:
|
LNAME CITY STATE | STATE CITY LNAME
Brown Rochester MN | MN Rochester Brown
Jones Rochester MN | Jones
Smith Rochester MN | Smith
. . . |
. . . | Users in Rochester MN
. . . | Count 3
. . . |
Adams St Paul MN | St Paul Adams
. . . |
. . . | Users in St Paul MN
. . . | Count 1
. . . | All Users in MN
. . . | Count 4
. . . |
. . . |
Calva Rochester NY | NY Rochester Calva
Doe Rochester NY | Doe
Smith Rochester NY | Smith
. . . |
. . . | Users in Rochester NY
. . . | Count 3
. . . | All Users in NY
. . . | Count 3

g{;P8((f8V,Query +Z(fPp;r!rT>+?G<,R;SNNUq
rD>#

8V6p 0 GI Query a)DzIT9CDm;v6p#bv8V6pvvVZ(f


ax&,|CZZ(fax&r!yP8(c\/}DnUc\5#

8V6p 0 _P1!8VD> (FINAL TOTALS),+g{;h*NNnU\F5wr5,


I|D|rCUqnd#

vTZr!dv,Query VFr!(e*8VVNDVNZ`,DVNE"#2MG5,
Z;iG<P8VVNDZ]`,1,r;r!CiZ;vG<PDCVN#CiP
yPd{G<;r!CVNDX4Z]#

N{0fD{FkX7D~>}#49?vG<<|, STATE VND5,ZC5|D1


vZdPPT> STATE D5#

+G,TZ?3%?DZ;vG<,<YNr!+?(fVNPD yPE"TcZD
A#

Query Yhzh*ZNNc\.sSOUWP,}Gz8(BD3#g{vT>CE"
x;r!,Query +vTB3ks#

IZPq=D(fP;T>8VVN,TZ(fD8VD>P9Cd5#2MG5,
g{Z08((fPq=/1A;O3vVND Len PP8( 0,rZ(fP;vVC

Z12B (e Query/400 (f8V 147


VND}]P#+9I8(+CVNCw8VVN,TcZ(f8V"z1+d5|
(Z*C6pD(f8V(eD8VD>P#

TBGPXxP(f8VD=S<GBn:
v TZ SBCS"*E= DBCS"q;= DBCS V{VNPD SBCS }],49VNP
DV{I\;,,2I\;axP(f8V#}g,g{{m3r+?vs4V8
M!4V84w_P`,D5(Aa"Bb"Cc H),G4g{VNPD(;|DGS A
|D* a,r;a"z(f8V#(;T DBCS VNPD DBCS V{}]9C{m
3r#)
v TZ}VVN,VNPD5J}]CZ7((f8V,x;GC}]D`-q=#
v TZUZ"1dM1dAGVN,jzH'57((f8V#
v TZV{M}VVN,?vVND-<(es!CZ7((f8V,x;GI\Q
Z08((fPq=1A;O8(DNNQ|DDs!#
v g{R=U5,+dVi=;p#

TBGT>U5Dy>(f8V:

m 5. y>D~}]
VN 1 VN 2
1 AZ
1 AZ
2 XY
2 U5
3 U5
U5 AB

g{T0VN 118(ErM(f8V,T0VN 218( MIN M MAX,rT>T


BDvc\(f:

m 6. xU5Dvc\(f
VN 1 VN 2
1
MIN AZ
MAX AZ
2
MIN XY
MAX XY
3
MIN –
MAX –

MIN AB
MAX AB

FINAL TOTALS
MIN AB
MAX XY

148 Query/400 D9C V4R5


(e Query/400 (fPD(f8Vq=
0q=/(f8V1A;CZq=/Z0(e(f8V1A;O(eD?v8V6p
(1 A 6)#TZ*i/(eD?v8V6pT>;NKA;#2IT8V6p 0 8(
3)q=/XT,C8V6pGI Query a)D0nU\F18V6p#I+8V6p
0 O*G|(yP!qDG<Di#KA;ODq=E"v0l=r!zMA;Ddv#

TZ}8V6p 0 TbDyP8V6p,I8(C(fZX((f8V"zsGqxA
B3#TZ?v8V6p(1 A 6),2I8(Gq*VFc\/}5#9I8(kN
Nc\E";pT>rf;c\E"D8VD>(g{PD0)#8VD>vVZP}
].s"NNc\5.0D;PO#

q=/(f8V

8V6p . . . . . . . . . : 1

dk!n,404P1|#
(+ &field ExD>PTek8V5#)

xAB3 . . . . . . . . . N Y=G,N=q

VFc\ . . . . . . . . . N Y=G,N=q

8VD> . . . . . . . . . +>

6p VN 6p VN
1 COMPANY 4 DEPARTMENT
2 DIVISION 5 EMPLOYEE
3 REGION

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F18=D~ F23=$"M

Z Query/400 (fPxAB3
dk Y r N 4*K8V6p8(ZK8V6pD(f8V"z.sGqSB3*<r
!#ZxAB;3.0,r!K8V6pDc\E"r8VD>(g{PD0)#

Ka>vJCZr!D(f,TZT>D(frvT|#TZ8V6p 0,;T>Ka
>#
Y=G
TZK8V6p"zD?v(f8V,Z103Or!NNc\5.s,Query +
xAB3#
N=q
K8V6pD(f8V"z1,Query ;xAB3#xGx}Z0(er!zdv1
A;O8(DP}SO;v=SP(N{Z13B Z Query/400 (fP!qdv`M
Mdvq=)#

Z Query/400 (fPVFc\
dk Y r N *K8V6p8(GqVFc\5(g{!qKNNc\/}D0)
#g{
;h*6p 0(nU\F)Dc\5,I\*E}b)5#

Z12B (e Query/400 (f8V 149


N=q
;VFNNc\5#Z?N"zK8V6pD(f8V1<|(b)5#
Y=G
VFyPc\5#;TK8V6p|(b)5#

Query/400 (fPD8VD>
dk#{ZK8V6pD?v(f8V&vVDNND>#CD>I$o 40 vV{#
CD>vVZK(f8VDNNc\P.0#

g{ZD>P|( &XXXXXX(dP XXXXXX Gi/PNN;v!qDVN),CVND


105+T>Z(fDD>P,!z &XXXXXX#}g,g{dkK8VD>:
Totals for &CITY &STATE

I\aC=:
Totals for Glendale CA

g{dkK8VD>:
&FINIT&MINIT &LNAME

I\aC=:
JY Clarke

"bVN{s&z;vUq#}bDivG;vVN{.sIzZ~vVN{#gZ
~v>}Py>,Pd{u4VN &MINIT zZ{Vu4VN &FINIT .s,Pd;P
Uq#V{ /"- r : 2IzZVN{.s#2IZVN{01SdkV{#

VN{ITGs4"!4rlON=:&LNAME"&lname r &Lname#%tVN5(g
Glendale)a2DUq#2%tVN50DUq#

": 9CZ08((fPq=1A;O8(DNN|DD$H(0 }b)


#+G,g{T
VN8( 0(SPq=(fPE}CVN),rZ8VD>P9C-H(eD$H
M!};5#

4Z(fPPvVD==T>ekD5#
v &C*}VVN8(DNN`-rq=#
v U5T>*F[E (-)#
v f;V{CZ8>ms4,#

g{r!(f;;m,Query +vr!CD>D;?V#+G,8VD>PDVN5f
;G+?|(r+?E}#g{;Pc;Udr!{v5,r;r!C5#

*VF8V6p 0 Dc\"h9 FINAL TOTALS PvVZ(fP,XkTVFc\a>


Xp Y(G)RXk>}8V6p 0 Da>PDD>#

150 Query/400 D9C V4R5


Z13B Z Query/400 (fP!qdv`MMdvq=
>BhvgN!qi/dvD?DX,T0#{i/dv9CDq=#IT>"r!
dv,r_+dEx}]bD~P#9I8(dvG9Cj8q=(|(+?!qD
G<)9G9Cc\q=(v|((f8V}],gZ12B (e Query/400 (f8V
Pyv)#

g{(ei/1;P9CK(e=h,Query zIDdv+T>ZA;O"9Cj8q
=#

g{8(*r!dvr+df"Z}]bD~P,Query +T>=SA;TczI(e
r!zr}]bD~XT#

!q#{CZ Query/400 (fDdv`MMq=


(}dkTB!n.;,I!qi/Ddvh8:
1=A;
i/Ddv+T>ZA;O,RICj8rc\q=4T>#KdvkZi/(e
ZdI F5((f)zID;y#PXgN9C0T>(f1A;DE",IZT>
i/dv140oz1|#

": g{Tz&m==KPi/,r+dv"MAr!z,498(KA;dv`
M#
2=r!z
r!i/Ddv,RICj8rc\q=4r!#g{!qK!n,rZ404
P1|1T>0(er!zdv1A;#ZCA;O,I8(*9CDr!zMr
!dvDd{XT#9T>kr!dv`XDd{A;#

": g{Tz&mN=KPi/,I\+dv"MAkzy8(D;,Dr!z,
b!vZz&mD1!r!z5w#
3=}]bD~
+i/DdvEx}]bD~#g{!qK!n,rZ404P1|1T>0(e
}]bD~dv1A;#ZCA;O,I8(*CZf"dvDD~{MI1{,
T0G+CdvmSAD~rI19Gf;CD~rI1PDVf}]#
}]bD~dvDj8Mc\q=<kT>rr!Ddv;,:
v TZA}]bDj8dv,+vT(f8VMc\/}dv(g{Zi/P(
eD0);xv+!qDG<Ex}]bD~#mb,g{8(+dvEx}
]bD~,rvTPFXa>PD5;;aFX}]bdvG<#vT(fP
q=#
v TZA}]bDc\dv,Query +T?v(eD(f8VzI;vG<,|(
8V6pc (0) D;vG<#9C\FVNOD`-5#

© Copyright IBM Corp. 2000 151


"b}]bdv;|,CZT>rr!(fD3)(fXT:Pjb"Pd`"P
FX"(f8Vq=rr!zdv(eE"#g{;P!qVN,Query +T}]
bD~zI+?VN#a{VNEZns,x;sZr!rT>DdvPGEZn
0#
49IZi/P(eb)XT,2;9C|G,}Gdv`M!n8(T>rr!
dv#(r*i/(eI,1|,+?}Vdv`MD(e,yTzITinXT
`v`MD!n9C,;i/#zh*vD+?$wMG|DC!n"YNKPi
/#)

!qdv`MMdvq=

dk!n,404P1|#

dv`M . . . . . . . . 1 1=A;
2=r!z
3=}]bD~

dvq= . . . . . . . . 1 1=j8
2=vc\

PFX . . . . . . . . . N Y=G,N=q
FXmH . . . . . . . ___ Uq,1-378
;3ODG< . . . . . _ Y=G,N=q

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

Query/400 (fDdvq=
dkTB;v!nDEkT!q#{CZi/Ddvq=#I8(GTj8q=9G
c\q=4zI(fDdv#j8q=|(Zi/P!qD+?G<MQ(eDNN
c\E"#c\E"I(f8V"\F"=y5"ns5"n!5rF}iI#
1=j8
TZT>Mr!Ddv,(f,1|,!qD}]G<M+?c\E"#TZ}]
bD~dv,v+!qDG<ExD~P;;|(c\E"#
2=vc\
(f+v|,Z(f8VM(fax(nU\F)&a)Dc\E"#

Query/400 (fPDPFX
dk Y r N 8>ZdvG<PDyPVN;\EZ(fPD;PO1GqFX(fD
P#PFX5CZT>Mr!Ddv;1dv"MA}]bD~rO"= OfficeVision r
DisplayWrite 4 D>D5xPr!1,vTb)5#
Y=G
ZdvG<$H,}(fDmH1+FX?vdvG<D}](Z(fDB;PO
Lx)#g{3vVN;\EkP2,r+{vVN,,|sfDd{VN;p*
AB;P#g{T*FVNq=/DP+,}FXmH,rS(fPOzCVN,
}G|GV{VN,R+CPZFXmH&XOs+T>d5DAY;vV{(;
v SBCS VZrDv DBCS VZ)#

152 Query/400 D9C V4R5


"zPFX1,Query 2FXVNjb#(fODa{G;P(r`P)VNjb,
sz;P(r`P)VN}]#
N=q
dvG<D$H,}(fPDmH1,;FX?vdvG<D}]#xGOz?v
G<RKDNNnbVN#g{8(K N,rvTBf=va>#

Query/400 (fPDFXmH
vTZT>rr!Ddv,I8(;v8>(fPPDnsmHD5#dk 1 A 378 .
dD;v}5,r_#tKa>*UW#

": TZ<N DBCS VN,Query ZT>rr!D(fPT>VN.0+mS DBCS


FvMFkV{#d$ DBCS 5)9A{vVN$H#

g{dvG<D+?VN;\Ex(fD;v8(mHDPP,r,}8(mHDV
NSB;P*<#g{+Ka>#t*UW,Zo=8(DA;rr!zDnsmH
1xPFX#

g{8(DmH+!,3)Pjb"VNrc\/}5I\;XOrS(fPOz#
g{"zbyDJb,IZK&xP|D,r_Z08((fPq=1A;OT Pd
`rPjba>xP|D#*i4I\"zKJbDVN,4 F13(<V)
#T?vvm
DVNT>vmE"#

Query/400 (fP;3ODG<
1I\"zPFX1,I8(Gq#{h9Zr!D(fPg3r!G<#dk Y r N
8>Gq#{+?vG<+?EZ(fPD,;3O#
Y=G
+?vG<D+?VN;pEZ,;3O#g{103O;Pc;D#`Ud4]
I|D+?VN,rZB;3OT>rr!{vG<#
N=q
ZS|;3Da2&*<DG<+4h*V*,"ZB;3D%?Lx#ZIEk
{3Dns;vj{VN.sV*,CG<Pd{VNLxZB;3Or!#

| T> Query/400 (fPDFXmH


| I9C F13(<V)T>wVFXmHD'{#g{4K F13,za4=FX";GZ
| o=FXmH1?vq=/D(fPLxZB;PT>byr%:
| v 3"8VMnsDD>P;FX,RZFXmH+!1;"v/fM+dXO#
| v +Pjbw*;iTkDPFX,x;GvpxP#
| v 9CZ08((fPq=1A;OTdvPZ;vVN8(DPd`54ux?v
| FXDP#
| v Pd`5I\2I\;a*FAB;P,gBfD>}y>#g{3vVN;\0
| x;PD)2,+{vVN,,|sfDNNVN;p*AB;P#FXVND
| 0Pd`15I\T>*0;POCVNsDUW"FXVN0fDUWrTO=
| _DiO#
| TB>}T>-<(f,T0+FXmHhC* 15 1"zFXD(f#

Z13B Z Query/400 (fP!qdv`MMdvq= 153


| -<(f:
|
| (;=P . . . . . . . . . F;=P . . . . . . .
| P ....+....1....+....2....+....3....+....4....+....5....+..
| INTEGER CHAR DECIMAL NUMERIC
| 000001 1,000,000,001 aaaaaaaaaa 11,111,111.01 11,111,111.01
|
|
| T>FXmH 15 D(f:
|
| (;=P . . . . . . . . . F;=P . . . . . . .
| P ....+....1....+
| INTEGER
| CHAR
| DECIMAL
| NUMERIC
| 000001 1,000,000,001
| 000002 aaaaaaaaaa
| 000003 11,111,111.01
| 000004 11,111,111.01
|

| K>}PFXVNDTkG;yHD,r*d; CHAR D0Pd`15* 2,+Z


| Z;PO INTEGER jbMVN.svV;vUq,Z~POD CHAR jbMVN
| .0vV;vUq#DECIMAL D0Pd`152G 2,+ZZ~PO CHAR .s
| vV=vUq,xZ}PO DECIMAL .0r;PUq#
| v T?vFXDc\P9Cc\/}jb#b)jb;9CuxUq#b)jbDq
| =I\zznbd`(*CPODP8(Dd`TbD)#
| v g{FXmH+!,Query I\aXOrOzvVZPPDE"(gPjbrF}c
| \),r_uAOz(fPD{vP#S;?VT>}V"UZ"1dr1dAG
| VND5#S(fPOz;vP,x;G+|T>*UW#

| ": PXXOMOzE"D{"vVZT>D(fBf,r_g{4 F13 T><Vr


| T>CE"#Tr!(fDXOrOzE";P/f#

| (e Query/400 (fPDr!zdv
0(er!zdv1A;G8vr!zdv(eA;PDZ;v,IC4(eZDo
T0C24==r!(f#KA;CZj6r!zMr!zP9CDr!=(=E)
D3)r!XT,|(r!=D$HMmH"?3ODp<MU9r!P,T0?v
r!DG<.dDPd`#

154 Query/400 D9C V4R5


(er!zdv

dk!n,404P1|#

r!zh8 . . . . . . *PRINT *PRINT,{F

r!=s!
$H . . . . . . . . ___ UW,1-255
mH . . . . . . . . 132 UW,1-378

p<P . . . . . . . . ___ UW,1-255

U9P . . . . . . . . ___ UW,1-255

P` . . . . . . . . . 1 1,2,3

r!(e . . . . . . . N Y=G,N=q

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

9I8(r!(f1Gqr!i/(e#g{*r!,ZKA;O8(D5+JCZ
i/(fMi/(eDr!#

g{C09Ci/1A;OD!n 6(vr!(e)4r!(e,r_g{,18(}
]bdvMr!(e(+(fExD~P"r!(e),b)5M;JC#

Query/400 (fPDr!zh8
8(CZr!i/(fDr!zh8#g{ZKa>Pdk *PRINT,r9C108(x
w5Dr!zr!(f#g{#{Z;,Dr!zOr!(f,dk*9CDGvr
!zh8D{F#

": g{Tz&mN=KPi/,I\+dv"MAkz8(D;,Dr!z,b!
vZz&mD1!r!z5w#

Query/400 (fPD=Es!
bia>8(CZr!i/(fDr!zC=D$HMmH#g{+b)a>#t*
UW,y9CD$HMmH5GZ QPQUPRFIL r!zh8D~(|G Query 9CD
(;Dr!zh8D~)P8(DG)5#;\Cm;vh8D~2GKD~#
r!=$H
dk;v 1 A 255 .dD}5,T8>*9CDr!zC=OICD?3P},
r_#tKa>*UW#K$H&Gr!=>mD$H#
r!=mH
dk;v 1 A 378 .dD}5,T8>*9CDr!zC=OICD?Pr!P
(V{)},r_#tKa>*UW#g{8(K;vHr!=|mDmH,
Query T+zI(f,++Z(fRKXONN,}r!=mHDVN#g{8(
D5sZ 132,Query +Z4(DYQzD~P?F?"gV{} (CPI) 5* 15,
r!zVe5* *CPI#
b;a0l0T>(f1A;OT>D(fmH#
g{#{vS(fDs_`(s_X;ZZ 1 r!P),rxk08((fPq
=1A;,"Z*Z(fPT>DZ;vVNDPd`a>Pdk;v|sD5#

Z13B Z Query/400 (fP!qdv`MMdvq= 155


": TZ<N DBCS VN,ZT>rr!D(fPT>VN.0,Query +mS DBCS
FvMFkV{#d$ DBCS 5)9A{vVN$H#

Query/400 (fPDp<P
dk;v 1 A 255 .dD}5,8>*Z(fD?3Or!DZ;P#!vZZKi
/(ePd{X=(eDZ],3jb"PjbrB;vG<DZ;P+r!Zp<
PO#

g{#tKa>*UW,p<P*Z 6 P#g{8(Kp<PE,C5;\sZU9P
5,R!ZrHZr!=$H5#

Query/400 (fPDU9P
dk;v 1 A 255 .dD}5,8>*Z(fD?3Or!Dns;P#32rG<
(rG<D;?V,g{G<FXD0)+r!ZKU9PO,b!vZZKi/(
ePd{X=(eDZ]#g{8(KU9PE,C5XksZp<P5,R!Zr
HZr!=$H5#g{U9PsZr!=$H,Query +9CHZCr!=$H5D
U954r!(f#

g{+Ka>#t*UW,Z Query 9CDr!zh8D~({* QPQUPRFIL)P8


(D57(U9PE#

Query/400 (fPDP`
dk;v}5(1"2 r 3),8>#{CZ(fDG<dDP``M#K5XF}FX
PTbyPP.dDdt?(UP}),FXP\G%6P`#g{PFXGn/D
RGXhD,9C}5 2 r 3 I9(f|WZDA#Yh1!5* 1,"r!%6P
`D(f#
1 C%6P`r!(Pd;PUWP)
2 C+6P`r!(PdP;vUWP)
3 C}6P`r!(PdP=vUWP)

r! Query/400 (fPD(e
dk Y r N 8>Zr!i/(f1Gq#{r!;]i/(e#N(q)*1!5#
Y=G
ki/(f;pr!;]i/(e#Zr!(f.0r!K(e#
N=q
r!(f1;r!i/(e#

8( Query/400 (fPDYQzdv2G

0(eYQzdv1A;Gm;vCZLx(ei/(fr!XTDr!zdv(e
A;#I8(CZr!zDr!=(=E)`MM*r!D(f]}#9I8(YQ
zXT:GqYQzdv,T0Gq+dRpZdvSPOTsYr!#

g{8(K*r!i/(fMi/(e,KA;OD5JCZb=_#

jIKA;;a<Bi/"4KPRr!(f#9Xk9C0KvKi/1A;(N
{Z15B KvMKP Query/400 i/)
#

156 Query/400 D9C V4R5


g{QYQzi/dv,Rg{PX*9CCYQzdv,IC09CYQzD~1
A;#(IZNNK%D|nPOdk09CYQzD~1(WRKSPLF) |nxkCA
;# )PXYQzdvD~Mr!zh8D~Dji,N{ Printer Device Programming
;i#PXK&a=DKA;PD5DE",N{;iP04(r!zD~1
(CRTPRTF) |nN}D5w#

(eYQzdv

dk!n,404P1|#

YQzdv . . . . . . _ UW,Y=G,N=q

r!=`M . . . . . . __________ UW,{F,*STD

]} . . . . . . . . . 1 UW,1-255

Rp . . . . . . . . . _ UW,Y=G,N=q

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

YQz Query/400 (fPDdv: g{*8(Gq+(f(w*YQzr!zD~)


YQzAdvSP,dk Y r N#g{YQzdv,IwH(fTc|P'Xr!r_
I\+dSYATs3v1d#g{+Ka>#t*UW,rZ Query 9CDr!zh
8D~({* QPQUPRFIL)P8(D57GqYQzdv#

KPi/1,|+4((f"+dw*YQzr!zD~"MAdvSP#I8(;
*IwHrr!dv,r_+dRpZdvSPO1=Ts3v1d+dME#
Y=G
YQz(fDdv"+d"MAdvSP#N1r!(fIZr!zh8D~
QPQUPRFIL P8(DwH57(#}g,Z CRTPRTF(4(r!zD~)|nD
SCHEDULE N}O8(wH5#
N=q
;YQz(fDdv;Z?vdvG<IC11S+d"MAr!zxPr!#;
(i9CK!n(N=q);g{ZKP1r!z;IC,K!nI\a<Bm
s#

Query/400 (fPDr!=`M: \I\;h*8(K54r!i/#g{+Ka>


#t*UW,rZ Query 9CDr!zh8D~({* QPQUPRFIL)P8(D57(
+9CDVr!=4r!(f#g{#{+(fr!ZX(`MDr!=O,dkr
!=D{FrdkXb5 *STD#
v g{dkr!=D{F,|XkGZ53OQ(eDr!={F#i/KPs,Z
<8r!dv1,XF(O+vV;vE",f_Yw1+X*Dr!zPDr!
=|D*C{F8(Dr!=`M#
v g{dk *STD,53Yhr!zPQ0kj<r!=,x;r53Yw1"ME"#

Z13B Z Query/400 (fP!qdv`MMdvq= 157


Query/400 (fD]}: dk;v 1 A 255 .dD}5,8>#{r!D(f]}#
g{+Ka>#t*UW,rZ Query 9CDr!zh8D~({* QPQUPRFIL)P
8(D57*r!D]}#

Z Query/400 (fPRp: dk Y r N 8>G"4r!(f,9G+dRpTsr


!#+G,g{ZYQzdva>P8(rY(D5G N,rvTKa>PD5#g{
+Ka>#t*UW,ZKr!z9CDr!zh8D~P8(D57(GqRp(
f#

g{8(Zi/KP1YQzi/Ddv,r+(f4(*YQzr!zD~"+d
"MAdvSP#I8(;*IwHrr!YQzD~,r_8(+d RpZdvS
PO1=Ts3v1d+dMExPr!#
Y=G
+(fDdvw*YQzr!zD~RpZdvSPO#1=TsMEKYQzD
~xPr!1,Er!(f#
N=q
;Rp(fDdv;;*IwH14r!#

(e Query/400 (fDr!dvbf3

08(bf31A;Gm;vCZLx(ei/(fr!XTDr!zdv(eA
;#ZKA;O,I8(Gq*(fr!bf3,"I8(Zbf3Or!A`DP
D>#

8(bf3

dk!n,404P1|#

r!bf3 . . . . . . Y Y=G,N=q

bf3jb
_____________________________________________________________________________
_____________________________________________________________________________
_____________________________________________________________________________
_____________________________________________________________________________

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

r! Query/400 (fDbf3: dk Y r N 8>GqZ(f*<&r!bf3#


Y=G
r!bf3#|+|,Zbf3jba>O8(DNND>"r!DUZM1dM
PXi/DE"(i/D{F"b{"!qDD~,T0hvi/DD>(g{P
D0))#

158 Query/400 D9C V4R5


N=q
;T(fr!bf3#g{Z bf3jb a>O8(D>,+d#fT8+49
C#

Query/400 (fDbf3jb: dk+Z(fOw*bf3r!DjbrjbD>#


Idk`oD{PDD>,D>9CZ0(er!zdv1A;O8(Dr!zIr
!DyPV{(|(s4V8M!4V8)#

g{4 F5((f)r F13(<V)4T>(frd<V,r;T>Kjb#

(e Query/400 (fPD3<M3E

08(3<M3E1A;GCZ(ei/(fr!XTDns;vr!zdv(eA
;#ZKA;O,I8(GqZ(fDyP3(}bf3b)Or!3<M3E#9
I8(Gr! Query 9CD3<E"j<f>,9Gvr!zT:D3<r_,1r!
b=_#j<3<vCZ?3DZ 1 vjbPO;||,53UZM1d"103kM
ZK&*Z;vjbP8(DNND>#

g{8(T:D3<D>r3ED>,IZ3<M/r3EP9C}vXbzk,b
)zk+953UZ"531dM10D(f3k<7Xr!ZD>Pz#{D;
C#a)b)zkTcI9C|Gzfj<D3<,"4zDh*xPq=/#
&date 53UZ,Tw5Dj<UZq=r!#
&time 531d,Tw5Dj<1dq=r!#
&page
(fD103k,;r!jb(I8(T:Djb)#CUqf;0<c,r
! 1 A 9999 D5(;r!';Vt{)#+G,r*3fVNv*D;,y
T 9999 3TsDyP3<T>0<c(T8>Zb 4 vr!};0fP;v
1 ;Pr!;Z 10 000 3T>* 0000,Z 10 001 3T>* 0001,@K`
F)#

IZ3<M3ED>P#{DNN;C9Cb)zk,"RI`N9C#

Z13B Z Query/400 (fP!qdv`MMdvq= 159


8(3<M3E

dk!n,404P1|#
(dk &date"&time M &page,r!qj<3<#)

r!j<
3< . . . . . . . . Y Y=G,N=q

3<
_____________________________________________________________________________
_____________________________________________________________________________
_____________________________________________________________________________

3E
_____________________________________________________________________________

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

Z Query/400 (fPr!j<3<: dk Y r N 8>Gq+53Dj<3<r!Z


(fD?;3O(}bf3b)#g{;#{r!j<3<,Xk8( N;9CXbU
Z"1dM3k;XFj<E"Dr!#

9Cj<3<1,|+T/q=/"R:
v ZsO=T>(r!D)1053UZM1d
v ZRO=T>(103D)3jbM3k

g{TKa>dk Y,R98(T:D3<D>,Query +ZZ;POD,;;Cr!


j<E","!?|(3<D>DZ;P#zDD>SZj<E".P,g{;\+
?9CrZRKXO#d{=v3<P(g{PD0)2SP,"r!ZZ;PB
f#

"bm=v3<P;ZZ 2 PMZ 3 PPd,kZ 1 POD3<D>^X#Z 2 P


MZ 3 PPn$DG;PZT:DPOSP,OLDG;PZn$P*<D,;;C*
<#^(0kK=PPDNND>+;XO#
Y=G
Z?3Or!j<3<E"#2r!zD3<D>(g{PD0)
#
N=q
;r!j<3<E"#vr!zD3<D>(g{PD0)#g{;PZ3<a>
P8(NN3<D>,r;r!3<E"#

Query/400 (fPD3<: dk#{Z}bf3bDyP(f3%?r!D3<D>


(g{PD0)#Idk`o}{PDD>,b)D>9C0(er!zdv1A;O
8(Dr!zIr!DyPV{(|(s4V8M!4V8)#2IZ3<D>P#{
DNNX=9CXbzk &date"&time M &page#

g{4 F5((f)r F13(<V)T>(frd<V,r;T>K3<#

Query/400 (fPD3E: dk#{Z}bf3bDyP(f3W?r!D3ED>


(g{PD0)#Idk;{PD>,b)D>9C0(er!zdv1A;O8(D

160 Query/400 D9C V4R5


r!zIr!DyPV{(|(s4V8M!4V8)#2IZ3ED>P#{DNN
X=9CXbzk &date"&time M &page#

g{4 F5((f)r F13(<V)4T>(frd<V,r;T>K3E#

(e Query/400 (fA}]bD~Ddv
0(e}]bD~dv1A;CZ8(9CDv}]bD~4f"zDi/dv#r
*Z0!qdv`MMdvq=1A;O8(K!n 3(}]bD~),yTT>KA
;#ZKA;O,I8(D~MD~I1D{F,"8>i/dvG4(BDD~r
I1,9G+dmSAVfDI1,r_f;VfDD~rI1#

*f"DdvITGi/!qDG<(g{8(KdvDj8q=),2ITGZi
/P(eD(f8VMc\/}5zIDc\E"#9I8(f"i/dv1Gq*
r!i/(e#

TZ}]bD~dv,+vT3)(fXT(!\I\QZKi/(eP(eK|
G)#g{TsZ0!qdv`MMdvq=1A;O|Ddv`Mrdvq=,IT
4-48(D9Cb)(eDXT#

i/zID}]4UZi/P8(VND3r#fZ}]bD~P#g{ksKj8
dv,+;P*i/!qVN,r+!(G<DyPVNEx}]bD~P,szN
NQ(eDa{VN#

(e}]bD~dv

dk!n,404P1|#
(r!D(eT>dvD~G<<V#)

D~ . . . . . . . . . QQRYOUT {F"4 F4 qCPm


b . . . . . . . . . QGPL {F"4 F4 qCPm
I1 . . . . . . . . . *FILE {F"*FIRST"*FILE"4 F4 qCPm

D~PD}] . . . . . 1 1=B(D~,2=f;D~
3=B(I1,4=f;I1
5=mSAI1

TZBD~:
(^ . . . . . . . . *LIBCRTAUT *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{
D> . . . . . . . . ______________________________________________

r!(e . . . . . . . N Y=G,N=q

F3=Kv F4=a> F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

Z(ei/T+ddvEx}]bD~P1,k<GBPBn:
v }G9CPmxP!q,qrK1;liZKA;O8(DD~{Mb{Gqf
Z,r_zGqP(9C|G#ZKPi/1lib)n?#2liCD~T7#
|G}]bD~#
v ZKPS3vD~q!}]Di/1,Query/400 ;\+}]ExCD~#d;I8
(;vQ!qw*Ki/DdkD~DD~,+g{;9CD~!q2Gr;\K
PCi/#

Z13B Z Query/400 (fP!qdv`MMdvq= 161


v g{9Cvc\dv,RZ}VVNDc\P"zgvms,+ZCVNPEx;
. 9 !z}]#g{CVN|,!c}],9C 0 zf#g{CVN|,UZr1
dAG}],9CnPI\DjBUNr5#TZNN8Vrc\VN,Z}]g
v1gv8>wPP;vGE (*)#
v g{v|Dba>PD5,Z(ei/1+;#f0(e}]bD~dv1A;O
DE"#g{Z;P*KA;(eNNE"DivBKPi/,CZdvDb+G
r*m5#|Dba>D1!5+|BCa>D Query/400 C'r*m5#
v g{*4(rf;}]bD~,Query/400 +9(;vki/}]DtT%dDBD
~(e#g{*4("f;rmSD~I1,r;|DVfDdvD~(e,RZ
+i/}]ExCD~1I\a*;C}]#

Z Query/400 (fP9CVfDdvD~(e
I+IUVND5Ex;IUVNP#v=DZ;vU5+<BaxdvDms#

I+UZ"1dr1dAGVNPD5ExNN`,}]`MDVNP,x;X#D
q=rVt{D;,#

": g{+ 1940 A 2039 6'.bDUZ5Ek_P=;}j]q=DD~VNP,


I\<BbbDa{#Z(fPC5+T>*SE (++++++)#*\bbVa{,Z
i/}]19C CHAR /}i4D;}j]q=D}],r_+D~VNDtT|
D*D;}j]q=#

Zi/(ensr!DG<q=T>VfdvD~DVNXT#

Z Query/400 (fP9(BDdvD~(e
dkD~(ePD;)q=MVN(eE"4-y4F,;)ZCZ(e?Vdv(
eDc(P9C,;)r;vT#

49zDi/vT;vD~PDG<xPErr!q,+Z4(rf;D~1 Query/400
y4(DdvD~(e\I\kdkD~(e;`,#Query/400 v4(omD~,R
Z9(q=(e1";9C?vdkVN(ePDyPZ]#}g,;S}CDVN
*F$"M#

49a{VNDmo=G;vD~PDVN{,*Ca{VN(eDdvVN2k;
}CVND;,#ZCZIza{(eDc(P+<G}]`M"s!"|L;5
(DBCS S`M)MIU\&#;*FPjb"D>"`-"U51!5H#

#fZi/(ePDq=2GCZvc\dv(e#*(ea{VNx8(DPj
b"s!Mmo=CZj8dv(eT0(Z;;2G1)c\dv(ePD8VV
N#

Query/400 4(I\bX4"43Zc\dvPyC/}TJDVN{#

y]dkVN{MI*;Dc\/}jb4(c\/}VNDD>MPjb#8(D
CCSID !vZ{F"TDX=#i/(e CCSID CZa{VN,!1DD~q=(e
CCSID CZD~VN#

TZa{VNMc\/}VN,tTD8(f0\`Z],x;vGS`XDdkD
~VN4FE",j8M8VVNDs`}tT4Gby#

162 Query/400 D9C V4R5


Z&m(e1,I7(*a{VN8(D3)tT(`M"s!"`-)M*dkD
~VN(eDtT,r*b)tTT>ZVNPmPrT>*u<1!5#

g{zG!* F13 T>D<Vm>T>rr!dvDXw,G4K<VI\aTzPo


z:T>rr!DdvZ;P!qNNVN1WH(x;Gns)T>a{VN,;
Pc\/}5D%@P,"+q=2G&CZj8dvMc\dv#

*!n 6(r!(e)r!DG<q=T>=SE",g`kV{/j6{ (CCSID)"


IU\&M}VVNDX(}]`M#}g,TZc\dv,49y>VNG~xF
r9uVN,TI4=X(VN(\F"=y5"F}"G!c}V8V"n!5M
ns5)Gx;.xFVN#

i4gN4(D~x;5JKP$i/D;V=(G9C;a<BmSG<DG<!
q44(|#;sIT>BD~Dq=(e,Ti4|Gq{O*sr|D*_Pz
#{DtT#T>q=(eG7(3)8(tT(g*d$VNVdD$H)D(;
=(#|Dq=(eG8(X(tT(gU5DW!1!5)D(;=(#

8( Query/400 (fDdv}]bD~
D~: *8(f"i/dvD}]bD~,IdkD~{"9CQ-T>D{Fr4 F4
(a>)4i4VfD~{Pm#g{*9CVfDD~,IST>DPmP!qz
k*DG;v#g{*4( B D~,8(DD~{Z#{f"BD~DbP;&f
Z#PXji,N{=<A. Query/400 k Query/36 Dxp#

4PBPdP;nYw:
v dk*|,i/dvD}]bD~D{F#
v #tT>DD~{#+G,g{CD~{G QQRYOUT,zI\*|D|;r*
QQRYOUT Gd{KIT9CDD~#{GI\9CKD~"f;zD}],r_z
I\f;{GD}]#
v +bjEZD~a>P,Z0!qD~1A;O4 F4(a>)i4Z8(DbrbP
mPzP(9CD+?D~DPm#
g{*9CVfDD~,ISCPmP!qzk*DG;v#
g{*4(BD~:
– &i$z*9CDD~{;ZCPmP#(+G,k"bzv4=P(9CDD
~,MVZuAP4fZDICD~{8(DD~,Z5JKPKi/.0I4
(CD~#G1,g{IC{F8(DD~fZZz8(DbP,z+aC=;
vvmE",xzXk|DKi/(erf;VfDD~#
)
– D~{XkTV8V{(A A Z"$"# r @)*<,RdsIzn`EvV8}
VV{(A A Z"0 A 9"$"#"[@0000]"."r _);}g,NAMEADDR r
INVEN_12#
r* AS/400 53Os`}53a)DTsT Q *7,yTzDD~{;&T Q
*7#mb,g{zP53;Z9Cd{oTDzR,zI\;k9C $"# r
@,r*|GI\G;I*;DV{#

Query/400 (fPDb: T>|,r+|,*9CD}]bD~Db{#Ka>PT


>Du<b5G:ONZKA;O9CD5"10bD{F(g{8(D0)r_
QGPL(g{zS4;P9C}KA;R;P10bD0) #

Z13B Z Query/400 (fP!qdv`MMdvq= 163


g{#{9CkT>Db;,Db,Idkm;vb{r4 F4(a>)i4b{Pm#
4PBPdP;nYw:
v dk|,r+|,i/dvDD~Db{#
v g{dk;v`tb{(9Cq= ABC*)rXbb{(*LIBL"*USRLIBL"*ALL r
*ALLUSR),;s+bjEZKa>P4 F4,8(Db{Pm+T>Z0!qb1A
;O#SCPm!qZ{Db"404P1|s,+5X=KA;"nO!qD{
F#

Query/400 (fPDI1: dk#{CZf"dvD8(}]bD~PDI1{#2


I8( *FILE(1!5)"*FIRST r *LAST;g{9CKdP;v,rZi/KP1C
5|D*5JDI1{#

r_,+bjEZKa>P,4 F4 PvD~PDI1,"SPmP!q;v;+G,
g{*4(BI1,&9CPmP;PT>D{F#

g{ZKa>P8( *FILE"*FIRST r *LAST,G4Z4(rf;D~rD~;PI1


1,CD~{44(I1#

g{+ *FIRST r *LAST CZ;vksT+dvEx|,I1DVfD~DBI1P,


Query/400 +"MvmE"#h*!{Cksrf;E"Pa=DGvI1#

Query/400 (fPDD~}]: dkTB!nP3v!nDEk,Tf_ Query(Z


|KPzDi/1)gN9CZD~MI1a>P8(DD~MI1:
1=B(D~
CD~a>P8(D{F4(BD~,"CI1a>P8>D{F4(I1#KP
i/1,g{ Query Zba>8(DbPR=IC{F8(DD~,+T>;uE
"#Idk C(!{)T!{KPi/,rdk G(xP)TLxKP,Sx8>
+Ci/}]f;CD~#
2=f;D~
Ci/D}]f;ZD~a>P|{DVfD~#+>}CD~MCD~DyPI
1,"+zD}]ExCI1a>P8(D{F|{DBI1P#
3=B(I1
CI1a>P8(D{F4(BI1#KPi/1,g{ Query ZD~a>8(D
D~PR=IC{F8(DI1r *FIRST r *LAST I1,+T>;uE"#Id
k C(!{)T!{KPi/,rdk G(xP)TLxKP,Sx8>+Ci/
}]4f;CI1#
4=f;I1
Ci/D}]f;ZI1a>P|{DVfI1#>}CI1PD+?}],"m
SzD}]#g{C{FDI1;fZ,r4(CI1"+}]ExdP#
5=mSAI1
+i/zID}]mS=I1a>P|{DVfI1PD}]ax&#g{C{F
DI1;fZ,r4(CI1"+}]ExdP#

+i/}]ExVfD~Px;xPf;1,Ci/}]Dq=XkkVf}]bD
~DG<q=(ef]#*f],TBu~Xk*f:
v b=Vq=XkP`,DVN}#

164 Query/400 D9C V4R5


v b=Vq=P43rT&DVN(2MG,Z;"Z~"Z}vVN,@K`F)
Xk_P`,}]`MDVN(e,R}UZ"1dM1dAG}]`M.b,X
k_P`,D$H"jH"+HM|L;5#UZ"1dr1dAGVNvh*P
`,D}]`M — }g,=v<GUZVN#

TZf;VfD~rI1P}]DNN!n,TBiv2XFGqIf;C}]#g
{"zTBiv,r;\f;D~rI1PD}]:
v d{D~!vZKD~D(e#}g,;\f;d{_-}]bTd*y!Dom
}]bD~PD}]#I9C0T>}]bX51(DSPDBR) |ni43vD~kd
{D~DX5#
v T*f;DD~,z;PXhD(^#
v CD~;GomD~r_|P`vq=(e#
v dvD~{rI1{kZi/P9CDNN!(D~{rI1{`,#

TZyP!n,g{D~;fZZ8(DbP,Query +T<4(CD~#

Query/400 (fPD(^: dkTs(^`MD5,T8(z#{xhd{C'Tz


D}]bD~D(^# (v1i/4(BD~1E9CK(^5#)zI8(D5*:
*LIBCRTAUT
b4((^C*ZdP4(CTsDbPD4((^ (CRTAUT) 58((^#C(
^ITG *ALL"*CHANGE"*EXCLUDE"*USE rZ(m{#9CCD~D\&
!vZ8(D(^#
*CHANGE
|D(^Jmd{C'TCTs4PyPYw,+G)v^ZyP_rITsfZ
(^MTs\m(^XFDYw}b#C'ICNN=(|Dr9CD~,+;
\:f;rmSBI1">}D~r+d*CxBDyP_#
*ALL
+?(^Jmd{C'TCTs4PyPYw,+G)v^ZyP_rIZ(m\
m({XFDYw}b#C'ITD~4PNNYw(|(+d>}),+;\+
d*CxBDyP_#
*EXCLUDE
E}(^h9d{C'TCD~xPNNYw#}GxhX(D(^`M,qr;
PD~D5P_E\9CD~#
*USE
9C(^Jmd{C'ACD~PDG<#
Z(m{
g{8(Z(m{,+9Cd(^4XFC'9CCD~D\&#PXji,N{
Security - Reference ;i#

BmT>TZ?v$(eD(^`M,ITD~4P24Yw:
(^ ' 4( f; mSB mSA f;
`M ' BD~ D~ I1 I1 I1
--------- ' -------- -------- ------- ------ -------
*ALL ' G G G G G
*CHANGE ' G q q G q
*USE ' G q q q q
*EXCLUDE ' G q q q q

Z13B Z Query/400 (fP!qdv`MMdvq= 165


": g{z8(D(^G *LIBCRTAUT,+9C4(Ts18(D5#

Query/400 (fPDD>: IZKa>Pdkn` 50 vV{(|( 50 vV{Di


v)D"b(D>),ThvKi/KP1 Query/400 4(rf;DD~#TsZD~
PmPT>CD~1,"b+a>zCD~P24C>#}g,Z0!qD~1A;
OT>D>P1+T>C"b#

r! Query/400 (fPD(e: dk Y r N 8>Gq#{Z+i/dvf"x}]


bD~1r!;]i/(e#N(q)*1!5#
Y=G
Z+i/dvf"xD~1+r!;]i/(e(0dv}]bD~(e)
#
N=q
i/KP1;r!i/(e#

Query/400 (fA}]bD~Dvc\dv

Z!qKvc\dv1,"MA}]bD~D}]GBPdP;V:
v g{;P!qc\/}M(f8V,dvG|,i/!qDG<F}D%vG<#
v g{!qKc\/}x;P!q(f8V,dvG|,c\/}5D%vG<#
v g{!qK(f8Vx;P!qc\/},dvG|,?v(f8VD(f8V5
DG<#
v g{!qKc\/}M(f8V,dvG|,?v(f8VMnU\FD(f8V
5Mc\/}5DG<#

*|CXmbA}]bD~Dvc\dv,+c\}]bD~dvk,;i/Dr!
(f`HO#zID}]G`,D(g{;PVFc\),+}]D<V;,#g{
r!;vi/Di/(e,1+dv"MA}]bD~,r|(G<q=<V#

?vdvA}]bD~Dvc\G<PDE"_PTBq=:
v ?vG<DZ;P|,8V6pEk#
v ?vG<DZ~P|,gv8>w#
v ?vG<DZ}P*<5J}]#

8V6pG;v 0 A 6 .dD}5,|j6dvAG<D;,(f8V6p#0 j6
nU\F(c\)G<#Ek 1 A 6 j6(f8V,"T&ZkC(f8VX*D6
pEk#

gv8>w8>}]N1Z>G<D;vr`vVNPgv#g{;P"zgv,8
>w;C*UW#g{NNFcDVNgv,rT>GE (*)#gvDVNC_PC`M
Ms!DVNDns5nd(Zr!rT>D(fP,C5T>*;.GE *****)#

4VN+dv}]Vi,(f8V5szCVNDNNc\/}5#+EH6H10
8V6pMD8VVND}]1wGU5#g{dvD~PDT&VN;IU,
Query/400 +9CU51!5(gTZV{}]*Uq)#4TB3rT>rr!c\}
]:\F"=y5"n!5"ns5MF}#g{TVNxP\F,Query +rVN$
HmS 3 ;T]I\F(n` 31 ;) #F}c\5G 7 vV{$,"RGx;.x

166 Query/400 D9C V4R5


F#Z+9u}]M~xF}]D8V5Mc\5#fZ}]bD~P1,+|G*
;*x;.xFq=#UZ"1dM1dAG}]TZ?q=#f#;xFvMFk
V{#f<N DBCS }]#

}g,YhzP;vdkD~,||,yP]D1$K1E"#z*hC;vi/,
ks?vXMPD1$D\F$J"=y$JM1$}#Ci/+y]=vVN:
CITY M COUNTY Er#*b)VN(e(f8V,"T?vXD0$J1VNs\F"
=y5MF}#

g{QKPKi/"!qKvc\dv,TB_uG<+"MA}]bD~:
2 Los Angeles Arcadia 00007000000 03500000 0000002
2 Los Angeles Glendale 00009000000 04500000 0000002
1 Los Angeles ......... 00016000000 04000000 0000004
2 Orange Costa Mesa 00006000000 03000000 0000002
2 Orange Irvine 00008000000 04000000 0000002
1 Orange ......... 00014000000 03500000 0000004
0 ......... ......... 00030000000 03750000 0000008
| | | | | | |
Break level ID (1) | | | |
| | | | | |
Overflow indicator (1) Total salary (11.2) |
| | | |
County (11) | Average salary (8.2)
| |
City (10) Count (7.0)

VN5ws2(EPD}5GdvVN$HM!};}#UW8V5T>*;.d
c#"bgv8>wP*UW,8>yP}]<OJ#

": =y5DXOrak;O*Ggv#

CITY D(f8V(8V6p 2),1_P COUNTY M CITY D8V5#COUNTY D(f


8V(8V6p 1)vP COUNTY D8V5#nsDG<(8V6p 0)|,c\/}
DnU\FR;P8V5#VNdT>DUqvCZ>}?D;5JD}]bD~d
vVN.d;PUq#

ZOfD>}P,i/,18(Kc\/}M(f8V#g{Ki/H;P8(c\
/}V;P8((f8V,dv+aG|,i/!(G<DF}D%vG<(8V6
p 0)#}g:
0 0000008

g{Ki/8(Kc\/}x;P8((f8V,dv+aG|,i/!(G<Dc
\/}5D%vG<(8V6p 0)#}g:
0 00030000000 03750000 0000008

g{Ki/8(K(f8Vx;P8(c\/},dv+aG?v8(D(f8VD
G<#ZOfZ;v>}P,|G;Pc\/}D0yvG<#}g:
2 Los Angeles Arcadia
2 Los Angeles Glendale
1 Los Angeles ........
2 Orange Costa Mesa
2 Orange Irvine
1 Orange ........

Z13B Z Query/400 (fP!qdv`MMdvq= 167


9C Query/400 4(Ddv}]bD~
zIsZ53O9Cd{NND~;y9C|,i/}]DD~#rK,IZ08(
D~!q1A;O*m;vi/!qKD~,byI\avSBi/KPDYH,r
*CD~VZI\:
v |,|YDG<M}]VN
v 4Uz#{D==Er
v ;h*kd{C'2m

168 Query/400 D9C V4R5


Z14B 8( Query/400 &m!n
>BhvgN8(&m!n4KPi/#I8(D&m!n*:
v Gak9G%t(XO)*i/4PD}VVNFcrVN$H|DDa{#
v GqvTZ}VVNP"VDmsMmsD}]#
v GqvTZ CCSID *;Zdv=DPXV{f;D/f#
v GTyPV{HO9GvTZ Query/400 DH0"PfP4PDG)HO9C{m3
r#

Query/400 &m!nDC>
08(&m!n1A;OICD}V&m!nozzXFi/dvD+HM<7T#
P1zI\*szDi/dvG#+7,}g,g{z*Fc'6xM'DE{{
"#P1zI\;XDzDa{Gq.V+7,}g,g{zDi/Fc%j:rz
+>z7[5,} $10,000 DM'D|FYVH#

g{zZby;v73P$w,ZC73PPX*xP CCSID *;,RI\af0V


{f;,rI!qvTri4V{f;/f,b!vZzyhD}]M(f#

I!qGq#{TyPV{HO9C!qD{m3r#Query/400 f> 2 "Pf 3 9


{m3rTyP SBCS V{HOIC#ZT0D"PfP,
EQ"NE"LIST"NLIST"LIKE M NLIKE bT9CV{5,x;G9C{m(#
(GT"GE"LT M LE bTZI&C1\G9C{m(# )mbZT0D"PfP,{
m3rvJCZ SBCS VNPD SBCS V{M#?#

© Copyright IBM Corp. 2000 169


8(&m!n

dk!n,404P1|#

9Cak . . . . . . . . . . . . . UW,Y=G,N=q

vT!}
}]ms . . . . . . . . . . . UW,Y=G,N=q

vTV{
f;/f. . . . . . . . . . . . Y Y=G,N=q

TyPV{HO
9C{m3r. . . . . . . . . . Y Y=G,N=q

F3=Kv F5=(f F10=&m/0;A


F12=!{ F13=<V F18=D~

Z Query/400 &mZdak}VVN5
IXFZi/KP1Gak9GXO}VVNFcrVN$H|DDa{#g{Z
08(&m!n1A;ODaka>Pdk Y,rZi/KP1+akyP}VVNF
ca{(g{PX*D0)#g{ZCa>Pdk N,ri/KP1+XOyP}VVN
Fca{(tPX*)#

": g{i/GZ AS/400 53O4(D,UWw*1!5T>#g{ Query 7(i/


GS System/36 (FD,9C N TcI4Z System/36 OD==&mCi/#

Gq!qak}VVNFc!vZz*sa{+7=24LH#*<,h*7(ak
rXO+gN0la{#g{zDi/9C8vK(r}(Kc,}VVNFcDa
{I\fz!qaka{9GXOa{xwT;,#bGr*ZxPFc1VNI\
"z`NakrXO#}g,M'Da7pnKT{"JaC=by;va{,|D
!};Hzh*rJmPD9`#g{PX*,ITa{xPakrXO,byaZ
a{P}k;v !ms#YhY+Ka{S=d{M'D`FFcP#yPD!ms
*<~S*OsDms#KmsI\HOOXr;+OX,!vZz!qKak9G
XO,a{I\`nOs#

": g{*}Vmo=4(Da{VN+!^(]Ia{D{}?V(!}cs_D
}5),r;\FcCa{""z.xF}]ms#49Zaka>P8( N,"
ZvT.xF}]msa>P8( Y,g{v=.xF}]ms,Query +#9&
m#ak!nMvT.xF}]ms!n&\vJCZIFcD}V}]#PX
vT.xF}]ms!nD|j!5w,N{Z2463D:Z Query/400 P8(&m
!n;#

";vvTa{VN4PakMXO,9T0!q(fc\/}1A;OD=y5M
\Fc\/}4PakMXO,"Z08((fPq=1A;OXh}VVN$H
(gSev!};|D*}v!};)14PakMXO#

170 Query/400 D9C V4R5


IC Query v(i/KP1Gak9GXO}VVNFcrVN$H|DDa{#g{
+08(&m!n1A;ODaka>#t*UW,Query +y]i/KPyZD73
v(Gak9GXOFca{#g{i/Z AS/400 73PKP,raka{#g{i
/Z System/36 73PKP,rXOa{#

Z Query/400 &mZdvT.xF}]ms
(}ZvT.xF}]msa>sdk Y r N,I8>Zi/KP1Gq#{ Query v
T|Z}VVNPR=DNNms#}g,x;r9u.xF}VVNPD A(.yx
F C1)G;vms#g{!qKvT}VVNPDms,r+ A |D* 1(.yxF
F1)#g{!qK;vT}VVNPDms,+T>vmE"rZdvP+CVN5T
>*SE(++++)
#zC=Dms!vZCVNGgN9CD#

II Query v(ZKPi/1GqvT|Z}VVNPR=DNNms#g{+08(
&m!n1A;ODvT.xF}]msa>#t*UW,Query +y]Ci/KPy
ZD737(GqvT.xF}]ms#g{Z AS/400 73PKPi/,;vTms#
g{Z System/36 73PKPi/,vTms#

Gq!qvT.xF}]ms!vZzD}]Gq|,a<B.xF}]msD}
5#g{i/yCD~PDx;r9u}VVN|,4}#bM*x;r9u}]D
}],zI\#{(ei/vT.xF}]ms#}g,ZC'+a>#t*UW
1,3)&CLr+UW4xx;VN#mb,3)1SD~+yPG<hC*.y
xFD 40#

vT.xF}]msaa_T\I>,g{D~;|,bV}]r&\bbyv#g
{(ei/;vT.xF}]ms,|IKPC|l#

": g{i/GZ AS/400 53O4(D,UWT>*1!5#g{ Query 7(zDi


/GS System/36 (FD,r9C Y TcI4Z System/36 OD==&mCi/#
vTV{f;/f#

Z Query/400 &mZdvTV{f;/f
0vTV{f;1a>Jmz8(Z+}]r{m3rS;v CCSID *;*m;v1
Gq&vTV{f;/f#

?vV{VN"DVM{m3r<k;v CCSID X*#b9CPI\+VNMDV5


*;*;,D`km>(,"*;{m3rTCZ;,`km>(D}]#V{*;
(PX*1)GT/xPD,RTC'G8wD#CCSID *;(#ZC'Z`oT73
PKP1"z#TZZ4zkm>(P;Pk?jzkm>(%dDNNV{,ZV
{*;ZdI\af;I(;V{#
Y=G
vTV{f;,R;"vvmE"#g{zD53|,DyPD~9C,;
CCSID,r#t1!5 Y#g{zPwoTMNoT(gw`@oM"o),I\
axPV{*;#g{;I\xPf;,r_g{;XDGq"zf;,#t1!
5 Y#g{zDD~P;,D CCSID,RvTV{f;,rI\:
v 4=dvPDf;V{#
v v=bbD%d(f;;,V{1)
#

Z14B 8( Query/400 &m!n 171


N=q
g{ZS;v CCSID *;*m;v1"zrI\"zV{f;,r"vvmE",
}Z&mDksax,<Bdv;j{#

Z Query/400 &mZdTyPV{HO9C{m3r
TyPV{HO9C{m3ra>Cz8(Gq&!{^F!({m3rD9C#
Y=G
TyPV{HO9C!qD{m3r#!qK!n1,A HZ a,g{|G2mk
bTr}]`M^XD3rP3v{m(#
N=q
;T EQ"NE"LIST"NLIST"LIKE M NLIKE bTr DBCS VNPD SBCS }
]r#?9C!qD{m3r#TZSf> 2 "Pf 3 T0D"Pf4-Di/
rS System/36 *;4Di/,bG1!5#

172 Query/400 D9C V4R5


Z15B KvMKP Query/400 i/
>BhvgNKvi/(eT0KPi/D;,==#

ax Query/400 i/(e
ZjI4(i/"ZdP;v(eA;O4K F3(Kv)1,+T>TBP>D=vA
;.;#g{4xS OfficeVision r DisplayWrite 4 Lrxk Query,rT>0Kv
Ki/1A;#

KvKi/

dk!n,404P1|#

#f(e . . . . . . . Y Y=G,N=q

KP!n . . . . . . . 1 1=;%=KP
2=z&mKP
3=;KP

TZQ#fD(e:
i/ . . . . . . . . __________ {F
b . . . . . . . . QGPL {F"4 F4 qCPm

D> . . . . . . . ____________________________________________

(^ . . . . . . . . *LIBCRTAUT *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F12=!{ F13=<V


F14=(ei/

g{S OfficeVision r DisplayWrite 4 Lrxk Query,"RZ4(r|Di/,r


T>0Kv}]/D>O"1A;#

© Copyright IBM Corp. 2000 173


Kv}]/D>O"

dk!n,404P1|#

#f(e . . . . . . . Y Y=G,N=q

O"!n . . . . . . . 1 1=9C;,Di/
6=}]1SO"
7=Pm}]5w
8=`1>}]5w
TZQ#fD(e:
i/ . . . . . . . . __________ {F
b . . . . . . . . QGPL {F"4 F4 qCPm

D> . . . . . . . _________________________________________

(^ . . . . . . . . *LIBCRTAUT *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F12=!{ F13=<V


F14=(ei/

": g{zS DisplayWrite 4 Lrxk,r;T>!n 7(Pm}]5w)M!n 8(`


1>}]5w)#

ISTO;vA;#fB4(Di/rTH0#fDi/D|D#

#f Query/400 i/(e
Z#fi/(e1,,1#f(eDyP5#+|#fZz8(DbP,"+dmf
* *QRYDFN `MDi/(eTs#g{bGBTs,zMGd5P_,"RzI8(
d{D)C'IC24==9CzDi/#sd{Ts;y,I9C0T>Ts5
w1(DSPOBJD) |n4T>PXi/(eDE"#

f" Query/400 i/(e


Query *0KvKi/1M0Kv}]/D>O"1A;OD#f(ea>a) Y,r
*s`}1rz<#{#fB4(Di/r#fTH0#fDi/D|D#;X#f
i/;+G,g{;#f|,G4Z!q"4KPi/1z+*'BDi/(er|
D#

*#fB4(Di/,dki/{( i/a>)Mb{(ba>)(g{P4Z09
Ci/1A;O4PKYwD0)#*T>bPm,+bjEZba>O"4 F4(a
>)
#

g{*#fTH0#fDi/D|D,^ha)i/{rb{;b){F&CQ-Z
CA;O#g{*|Di/{rb,rCC{FMb4(BDi/,x-HDi/#
V;d#

hv Query/400 i/(e
2IdkPXi/D;)hvD>#1KD>T>Zi/PmPrr!Z(fDbf
3O1,|+a>zCi/P24C>#}g,^[N1T>D>P,D><T>Z
09Ci/1A;O#

174 Query/400 D9C V4R5


3hd{KTzD Query/400 i/D(^

I8(z#{3hd{C'TKi/(eTsD(^`M#Z0KvKi/1A;r
0Kv}]/D>O"1A;O8(DZ]7(d{C'gN9CCi/#Z4(i
/s#f|1,0KvKi/1A;M0Kv}]/D>O"1A;OD1!(^*
*LIBCRTAUT#

zI8(D5*:
*LIBCRTAUT
b4((^y]*4(CTsDbPD CRTAUT 58((^#C(^ITG
*ALL"*CHANGE"*EXCLUDE"*USE rZ(m{#d{C'9CCi/D~D
\&!vZ8(D(^#
*CHANGE
|D(^Jmd{C'TCTs4PyPYw,+G)v^ZyP_rITsfZ
(^MTs\m(^XFDYw}b#C'ICNN=(|Dr9CCi/(e,
+;\T|xP4F">}r#fT|D|D#
*ALL
+?(^Jmd{C'TCTs4PyPYw,+G)v^ZyP_rIZ(m\
m({XFDYw}b#C'ITCi/4PNNYw(|(>}|),+;\+
d*CxBDyP_r_|D(^`M#
*EXCLUDE
E}(^h9d{C'TCi/(e4PNNYw#}Ga)KX(D(^`M,
qr;PCi/D5P_E\9CCi/(e#
*USE
9C(^Jmd{C'KPCi/r_T>rr!i/(e#C';\4FCi/
(e,2;\#fTC(eD|D#I!qCi/xP|D"T;,D{F#f#
Z(m{
g{8(Z(m{,d(^+CZXFC'TCi/Df!(#Z|Di/1,
Query +T>+C(^Xb5x;GZ(m{#Z4(i/1I8(Z(m;+;
\TVfi/hCZ(m#PXji,N{ Security - Reference ;i#

TZ?v$(eD(^`M,BmT>ITCi/4P24Yw#
(^ ' |D 4F >} T> r!i/ KP |D
`M ' i/ i/ i/ i/ (e i/ (^
--------- ' ------ ----- ------ ------- ---------- ----- ---------
*ALL ' G G G G G G q
*CHANGE ' q q q G G G q
*USE ' q q q G G G q
*EXCLUDE ' q q q q q q q

": g{z8(D(^G *LIBCRTAUT,+9C4(CTs18(D5#

#f Query/400 i/1}]rD>O"i/<GBn
g{;P#fCZ+}]rD>O"x OfficeVision r DisplayWrite 4 D5Di/,
k<GTBBn:
v g{Z0KvD>/}]O"1A;OTO"!na>8( 6,ra*'BDi/(
er|D#
v ;\ZO"!na>P8( 7 r 8 4+X}]VN5w#

Z15B KvMKP Query/400 i/ 175


KP Query/400 i/
KPi/|(f_ Query/400 9CCi/(eS!qDD~q!yhD}],+}]i
/I;V(fq=,;sT>"r!(fr+df"x}]bD~P#

*KPi/,zI4PBPN;Yw:
v Z4("T>r|Di/14 F5((f)#b+KPCi/"T>(f#
v Z0i/1K%O!q!n 2(KPVfi/)#
v Z0KvKi/1A;ODKP!na>Pdk 1(;%=KP)r 2(z&mK
P)#
v Z09Ci/1A;OD!na>Pdk 8(z&mKP)r 9(KP)#
v 9C0KPi/1(RUNQRY) |n#

ZKP Query/400 i/1*}]rD>O"8(O"!n


g{S OfficeVision r DisplayWrite 4 Lrxk Query,r;\S09Ci/1A;
r0Kv}]/D>O"1A;KPi/#(g{Zi/DG<!qbTP;P9CX
*5,I9C F5((f)) #+G,I*0Kv}]/D>O"1A;ODO"!na
>a);v!n#O"!n8(z*gN+i/}]k OfficeVision r DisplayWrite 4
D>D5O"#

": g{z!qK;#fi/,r;\ZO"!na>P8( 7 r 8 4+X}]VN


5w#

dkZKvKi/(e1#{ Query &mD!nDEk#g{K1;#{O"NN}


],8(!n 1#|+9z5XA09Ci/1A;,TczI9C*CZD5Dm;
vi/r_Kv Query#!n 6 KPi/"4(i/(f,"+(f5XA OfficeVision
r DisplayWrite 4 LrP#;szI+(f4F=z}&mDGvD5P#!n 7 M
8 *O"4(}]VN5w,"+5w5XA OfficeVision#byzI+5w4F=}
&mDGvD5P#

PX+i/}]O"= OfficeVision D5PDE",N{ OfficeVision *zE"M Using


OfficeVision/400 Word Processing ;i#PX+i/}]O"= DisplayWrite 4 D5P
DE",N{ DisplayWrite 4 oz&\?~#

ZKP Query/400 i/19C&\| F5


g{ZG<!qbT1;9CX*5,IZ4("|DrT>i/1f14 F5((f)
4KPi/#zDi/"4KP,"T>(f,xRI4=(fDb[0yvD|D
gN0l|#

S Query/400 K%KP Query/400 i/


IZ0i/1K%O!q!n 2(KPVfDi/)4KPVfDi/#b+<BT>
RUNQRY(KPi/)|nozA;#PX9C RUNQRY |nDji,N{;iM>
iDZ1793D:9C RUNQRY |nKP Query/400 i/;#

176 Query/400 D9C V4R5


S0KvKi/1A;KP Query/400 i/
jI4(i/r|Di/s,T>0KvKi/1A;#

KvKi/

dk!n,404P1|#

#f(e . . . . . . . Y Y=G,N=q

KP!n . . . . . . . 1 1=;%=KP
2=z&mKP
3=;KP

TZQ#fD(e:
i/ . . . . . . . . __________ {F
b . . . . . . . . QGPL {F"4 F4 qCPm

D> . . . . . . . _______________________________________

(^ . . . . . . . . *LIBCRTAUT *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F12=!{ F13=<V


F14=(ei/

Query Yhz#{#fi/,rK|(#a) Y(G)4l&#f(ea>#KP!n


Gr*m!n,zONKvi/1!qD5*1!5,1=z!q;,D5*9#+
ZTB=VivB,Query +TKP!na>a) 3(;KP):
v i/Pms#
v zDi/ZG<!qbTP_PX*5#v19C OfficeVision +}]O"xD>1
EI9CKi/#PX+}]O"xD>Dji,N{ OfficeVision *zE"#

v1;%=KP1,E\;#fi/(exKPi/"qC(f#(Xk#fi/E\
Tz&m==KP|#)+G:
v g{*4(i/"!q;#f|,r|vKP;N,;s*'#*#fi/,h*
TbMi/a>a)}5#i/{ZCbPXkG(;Di/{#g{;G,Query
+"v;vE",/JGq#{f;VfDi/#
v g{*Tz&m==KPi/,ZKPi/0Xk+d#fZG QTEMP DbP#
v g{*|Di/"!q;#f|,G4|+;#fG)|D,Rv1"4KPi/
1E9CB|DDrBdkD5#2MG5,g{|DKVfD(e,(f+vT
>;Nb)|DDa{#g{YNKP(f,+y]-4D(ezza{#
*#fB|DDi/,^ha)b{Mi/{;g{a)K,-4Di/#V;
d,"CzyvD|D4(Bi/#dkCZ#fi/Db{#;\Tba>8(
5Jb{r *CURLIB#+G,g{z#{Hi4bPmTcSP!q;vb,4PT
BYw:+bjFAKa>,dk;vXbb{(g *LIBL)r`tb{(9Cq=
ABC*),;s4 F4(a>)#

g{!q;%=KPi/,ZKP!na>Pdk 1(;%=KP)"404P1|#
Query ZA;OT>(f"Zr!zOr!(fr_+i/D}]Ex}]bD~P#
PX!qdvh8Dji,N{Z13B Z Query/400 (fP!qdv`MMdvq=#

Z15B KvMKP Query/400 i/ 177


g{!qa;i/xPz&m,ZKP!na>Pdk 2(z&mKP)"404P1
|#Ci/r;a;=ZzDC'r*mDw55wP8(Dw5SP#

I*;|,NN}]DD~I14(i/#g{KPi/,r(fP;T>NN}
],2;Z}]bD~PExNN}]#+G,IZ0KvKi/1A;O4 F13(<
V)4liz(fD<V#

S09Ci/1A;KP Query/400 i/
S09Ci/1A;,;\KPH0#f}Di/#i/j+4U(eKP#g{#
{|DPXdvh8DNNhC,XkWH|Di/,;sKP|#

": g{Z9C OfficeVision r DisplayWrite 4 Lr1xkKA;,;\9Cr!(e


MKP!n#

*S09Ci/1A;KPi/:
1. !q!n 8(z&mKP)+i/a;=zDC'r*mDw55wP8(Dw5S
P#
2. !q!n 9(KP);%=KPi/#
3. dki/D{F#g{;*@i/D{F,Z203D:SPmP!q Query/400 i
/{;+f_zgNi4i/{Pm#
4. dkf"i/DbD{F#Query Yh|f"ZON Query $wT0yCDbPr
10bP#g{;P10b,Query Yh|f"Z QGPL P#I|DYhDb{#
g{;*@b{,Z213D:* Query/400 i/!qb;+f_zgNT>b{P
m#
5. 404P1|#

9Ci/

dk!n,404P1|#

!n . . . . . . . . _ 1=4( 2=|D 3=4F 4=>}


5=T> 6=r!(e
8=z&mKP 9=KP
i/ . . . . . . . . __________ {F"4 F4 qCPm
b . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{

Query T>(f"r!(fr+}]Ex}]bD~P,b!vZZ0!qdv`MM
dvq=1A;O8(DZ]#PX!qdvh8Dji,N{Z13B Z Query/400 (
fP!qdv`MMdvq=#

178 Query/400 D9C V4R5


Query Z?NKPi/19C10D}]#}g,g{CD~PM'DX7|D,BD
X7+vVZKPi/1zID}]P#+G,g{}]D(eTi/4(rON|
DT4|D},ICi/4(D(fI\^(T>b)|D#}g,Yhz*KP;
P8(PjbDi/#G4Ci/9CI IDDU (eDPjb#g{Ti/4(rON
|DT4|DK IDDU Pjb,Ci/I\;9CBDjb#

|Di/1,Query +C10D IDDU (e4|Bi/#g{#fi/,2,1#fN


N IDDU |D#rK,Z#{S09Ci/1A;!q!n 2(|D)x;G!n 9
(KP)4KPi/1,I7#z5PnBD(e#;sI(}4PTBYw#fi
/x;vNN5JD|D:
v Z0(ei/1A;O4 F3#
v Z0KvKi/1A;O!q#f(e "KPi/#

Z IDDU *zE"PbMK IDDU (e#

9C RUNQRY |nKP Query/400 i/


I9C RUNQRY |nKPi/#IT>"r!dv,r+df"Zm;v}]bD~
P#g{i/|,X*5,Xk9C8(KPZG<!qD!n,"a)(#4Tm
;vD~ri/PDG<D5#

IP}V;,D==9C RUNQRY |n:KPVfDi/(Q-4(Di/),KP


VfDi/(|D3)(e5;zZK|nO8(D5|D),r_KP1!i/
(vyZZK|nO8(DN}5) (Ia)N}5Tc* Query a)|yhDE",
#
gi/{"f"i/Db"+dv"MAN&H# )

PX RUNQRY |n"dN}"gN9C|M3)>}Dji,N{;i#

TBG9C RUNQRY |nD;)(i:


v g{#{9CVfDi/x;|D*i/DD~,v8(i/Mb{(;8(dk
D~{)
#+j+4U(eKPi/#
v g{#{T;vD~KP1!i/,v8(dkD~{#b+zI;v(f,T>
|,Z?vG<D0 500 vVNPDE"#
v g{#{KPVfi/D|Df,8(i/{M!1DN},+(e|D*zh*
DN=#ZK|nO8(DN}52GVfi/(eP`&D5,+;Z&mC|
n1Eby(2MG5,Ti/(eD|D;G@CD)#
v g{8(i/{MdkD~{,IdkD~{N}8(DD~+2GZi/(eP
8(DD~{#rK,g{Zi/(eP(eK`vD~(MI1),xz#{|
DdP;vr=v,XkT;|DDD~!q8( *SAME,"T#{2GDD~8(
}5#

ZKP#fDi/1,zI\C;=Z{Da{#TBPmPDn?I/,0lgN
KPi/r_gNq=/}]:
v w5DoT ID rEr3r(g{i/S10w5q!|GD0)k(ei/1;
,#
v w5UZDq=#
v CoT}V`-D1!5#
v 53!};&m5#

Z15B KvMKP Query/400 i/ 179


v 53uR{E#
v D~2GI\Qz'#
v w5 CCSID#
v 20D Query/400 oT(g{i/Z0!q{m!n1A;O8(!n 2)#
v r!zD~(e#
v CZT>(fD$w>DtT#

180 Query/400 D9C V4R5


Z16B 9C Query/400 i/(e
>BhvZQ4(i/"+d#fZbP.s9Ci/DwV=(#}KKPi/.
b:
v (}Ti/(exP|D,I|Di/dvDa{#
v I+i/(e4FA,;vbrm;vbP#zI\*4PKYw,Tcd{C'
IPT:D1>9C#
v I>};vr`v;Yh*Di/(e#
v Z4Fi/1I9CB{F4X|{i/#;sI>}Ii/#
v IT>i/D(ex;\TdxPNN|D#
v Ir!i/(e#g{zh*;vr!D1>w*D5,I\*4PKYw#

|D Query/400 i/(e
IZ09Ci/1A;O9C!n 2(|D)4|DH0#fDi/#IZCA;Oa
)i/Mb{,r_ISPmP!qi/#(PX9CPmDji,N{Z143D:Z
Query/400 P9CPm;#)

|Di/k4(i/8uG,;}L#Z0(ei/1A;O!qz#{|Ddi/
(e5D(e=h#T>(e=hA;1,Q-n4KG)a>#*|Di/,zh
*vD+?$wMG|Dr>}a>PD5#

jI|Di/1,IKP|"#f|"KP"#f|,HH#

(}4F Query/400 i/(e*<|D


za"V|Di/.0Z09Ci/1A;O9C!n 3(4F)\PC#g{4Fz
*|DDi/,-4Di/;\zyvD|D0l#;s,g{zv(*#t-H(
eDi/,r;X+NNZ]|DX%#I>}Q|DDi/(g>BTs5w),
x#t-4Di/#

+G,g{ZKPMbT|DDi/sv(#t|D,I>}-44|DDi/#

IT Query/400 i/xPD|D
(#,ITi/xP=V|D#I|D:
v (fD}],(}|DG<M/rVN!q
v (f(rdv)DXT,(}|Dq="c\r(f8V

?V|DI\<*sZ0(ei/1A;OD Opt PP#{|DD(e=hTdk 1 4


!q8v(e=h#

© Copyright IBM Corp. 2000 181


(ei/

i/ . . . . . . : QRY1 !n . . . . . . . :|D
b . . . . . . . : QGPL CCSID . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
> 8(D~!q
_ (ea{VN
_ > !q"ErVN
_ !qG<
_ !qErVN
_ !q{m3r
_ > 8((fPq=
_ !q(fc\/}
_ (e(f8V
_ !qdv`MMdvq=
_ 8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!

10*i/(eD!ns_aT>;v >#I|Db)!n"(e=SD!n#ISK
A;4h*!qNb`v!n#dP?v!n0d`XDA;QZ0fDBZPhv
}#

?v!n<P|T:DT&A;,Zb)A;OIxPX(D|D#y!!nDA;
4|GZ0(ei/1A;OvVDNrT>#

g{v(;h*Q-(eD!n,4PBPYw:
1. Z0(ei/1A;O!qC!n#
2. >}TC!nA;jIDNNa>#

g{Zzi4!nA;sv(;|DdODNNZ],vh404P1|x;|DN
NZ]"Lx#g{|DKCA;,Vv(Cd#t-4,4 F12(!{)#

4 F12 ;\0!{14 F23(mf*1!5)Da{#mb,w*404P1|(r


F10 r F3)xkm;vA;Da{, Query Xk#fD|D;\ZTs(}4 F12 !
{#zvDyPd{|DI(}4 F12 !{#KfrDTB}bivJmz!{n|T
{v(e!nyvD+?|D,b(}SKa>A;5XA|X*Dwa>A;s4
F12 45V:
v ,SbTkD~!q;p!{#
v X*5^({kG<!qbT;p!{#
v `-|DkPq=|D;p!{#
v 8V6pq=|Dk8VVN!q(6p(e);p!{#

g{v(;k#fT0;A;yvD|D,4 F3 ax^)"T0KvKi/1A;O
D#f(ea>dk N(q)#

1zZA;O$w1,I40oz1|i4*zozE",CE"rLhvgN*C
!n8(!n#9I4 F5 r F13 i4b)|DgN0li/zzD(f#

182 Query/400 D9C V4R5


|DjyP#{|DDA;.s,Query 5XA0(ei/1A;,ZCA;O;v >
{ET>ZVZ*i/(eD!ns_#I!q`v!nxP`n|D,r_I4 F3 a
x|Di/D}L#

S0KvKi/1A;,I4PBfdP;nr=nYw:
v #fi/(e0zyvD|D#
v 9CyvD|DKPi/#

KvKi/

dk!n,404P1|#

#f(e . . . . . . . Y Y=G,N=q

KP!n . . . . . . . 1 1=;%=KP
2=z&mKP
3=;KP
TZQ#fD(e:
i/ . . . . . . . . __________ {F
b . . . . . . . . ________ {F"4 F4 qCPm

D> . . . . __________________________________________
(^ . . . . . . . . *LIBCRTAUT *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F13=<V F14=(ei/

I|Di/"bMD>a>DNNiO#g{#fi/(e,b)|DPTB'{:

i/{M/r i/{M
b{|D b{;d

Vfi/;d Vfi/|D
CB{FM/rZ;,DbP4(KBi/ Bi/(ef;Vf(e
D>M(^JCZBi/ D>M(^JCZi/DB(e

g{*f;i/,;\8(Z(m{(^;Xk9CdP;vXb{F(*CHANGE"
*ALL"*EXCLUDE r *USE)rUW(;|D)#

g{!q;#fi/(e,TBPa>D|DPTB'{:

|DDa> '{

i/{ ^
b{ ^
D> g{!qKPi/Rr!zG!qDdvh8,D>+r!Z
bf3O#
(^ ^

Z16B 9C Query/400 i/(e 183


|D Query/400 i/D<GBn
*Ti/xP|D,Z0(ei/1A;O!q}7D!n#PXgNdkyh(e
DE"M<GBn,N<>8OPDPXBZr=<#?vi/M;v CCSID ;p#
f#g{zDw5 CCSID ki/ CCSID(dP;v CCSID G 65535 r|G`,)
;f],r;\|Di/#

": PX CCSID gN0l&mi/Dji,N{Z2573D:|D Query/400 i/;#

|D Query/400 i/D{m3r

{m3rPD|DI0l,SbT"G<!qbT"f0 SBCS"*E= DBCS"q;


= DBCS V{VNPD SBCS }]DEr#0l6'!vZbT#

|D09C{m3r1&m!nDhCI|DzDa{#g{+C&m!nhC*
0G1,r EQ"NE"LIST"NLIST"LIKE M NLIKE bT+HOV{{m5#g{
+C!nhC*0q1,b)bT+HO.yxFV{`k#

": +{m3rhC* *HEX 1,09C{m3r1!n;0lzDdv#

LT"LE"GT"GE M RANGE bTHO{m3r5x;<GgNhCC&m!n#T


{m3rD|DI|Db)bT!qDG<#T{m3rD|D2I0lzDi/D
n!Mnsc\5"(f8VD;CM!(G<DNr(g{9C|, SBCS V{}]
DVN4Er) #

}g,zP=v{m3r#Z;v{m3rP,V{ E DrEH e _,xZm;vP,


b=vV{_P`HD(2m)rE#Z;vG<P,VN NAME1 _P5 LEE,VN
NAME2 _P5 Lee#m7 Mm8 T>9CwVbTHOV{.(NAME1 M NAME2)
Da{,bGkT_PTBivD{m3rxPD:
v ZyPbTP9C(;(
v ZyPbTP9C2m(
v Z EQ M NE bTP;9C(;(
v Z EQ M NE bTP;9C2m(

yP}]G SBCS 1,m7JC#3)r+?}]G DBCS 1,m8JC#

m 7. {m3rM&m!nT!qD0l. NAME1 M NAME2 <G SBCS }]#0G1m>!


q}ZbTDG<#0q1m>;!q|#
ColSeq=YES ( ColSeq=YES 2 ColSeq=NO ( ColSeq=NO 2
bT ;( m( ;( m(
NAME1 EQ q G q q
NAME2
NAME1 GE G G G G
NAME2
NAME1 GT G q G q
NAME2
NAME1 NE G q G G
NAME2

184 Query/400 D9C V4R5


m 7. {m3rM&m!nT!qD0l (x). NAME1 M NAME2 <G SBCS }]#0G1m
>!q}ZbTDG<#0q1m>;!q|#
ColSeq=YES ( ColSeq=YES 2 ColSeq=NO ( ColSeq=NO 2
bT ;( m( ;( m(
NAME1 LE q G q G
NAME2
NAME1 LT q q q q
NAME2

m 8. {m3rM&m!nT!qD0l. NAME1 M/r NAME2 G DBCS }]#0G1m>


!q}ZbTDG<#0q1m>;!q|#
ColSeq=YES ( ColSeq=YES 2 ColSeq=NO ( ColSeq=NO 2
bT ;( m( ;( m(
NAME1 EQ q G q q
NAME2
NAME1 GE G G G G
NAME2
NAME1 GT G q G G
NAME2
NAME1 NE G q G G
NAME2
NAME1 LE q G q q
NAME2
NAME1 LT q q q q
NAME2

4F Query/400 i/(e
P\`-r*4Fi/#TBG3)n#{D4F:
v SpKDbP+i/4FAzDb#
v 4Fz#fZbTbPDi/,TC;,D~"G<q=Mi/&\?~xPT
i#1zP;v#{9CDi/1,I+d4FxzDbP,"+-4DGv#t
ZbTbP)x;=Ti#
v 4Fi/,TcITdxP|Dx;XDd-4Di/#
v (}+i/4FAd{b,;sS-4DbP>}Ci/,4X|{i/r+i/
FAm;vb#

IZ09Ci/1A;O9C!n 3(4F)44FH0#fDi/#IZCA;Od
ki/D{F(M|Db{),r_ISi/PmPZ#{4FDi/Tdk 3#(PX
9CPmDji,N{Z143D:Z Query/400 P9CPm;#)

404P1|s,vV04Fi/1A;#(ZTBA;PdkK3)y>E"#)

Z16B 9C Query/400 i/(e 185


4Fi/

4b . . . . . . . . . . : TESTLIB

dk!n,404P1|#

?jb . . . . . . . . . __________ {F"4 F4 qCPm


f;i/ . . . . . . . . N Y=G,N=q

*X|{4FDi/,|D0?ji/1{F#
4i/ ?ji/
ACCTRECFEB __________
INVENTFEB __________
MAILADDR __________
PAYROLLFEB __________

F3=Kv F4=a> F9=4; F12=!{


F20=!{vmD4F

*+1>Ex;|,-<i/DbP,Z?jba>Pdk;,Db{#g{;*@
&SU1>Db{,I9C F4(a>)SPmP!q;vb#

*+1>Exk-~`,DbP,;*Z?jba>PdkNNZ]#

;sZf;i/a>P!q;v!n:
v g{#{C1>f;bP,{Di/,dk Y#
v g{#{vZbP;fZ,{Dd{i/1E+i/4F=bP,Za>P#t N#

*X|{i/,Z ?ji/PPdkB{F#g{+1>Ex-4i/yZDbP,
XkdkC1>DB{F#g{+1>EZ;,DbP,IX|{|,r_9C-4
Di/{#

jIZ04Fi/1A;OdkE"s,404P1|#g{ Query Z4Fi/1;P


"Vms,r4F+?i/#g{;PZ09Ci/1A;P!qNNd{!n(g
|D">}"T>HH),+5XA09Ci/1A;#g{SX(bDi/PmP
!qK*4FDi/,x;P+b)i/4FA;,Db,G4-4Di/M4FD
i/{F<|(ZCPmP#

g{ Query Z4Fi/1"Vms,rT>}Z4FDi/DPm,"ZA;DW?T
>vmE"#vmDi/avA"T>ZPm%?#ZPmPCi/.0D+?i/
Q-4F#I4PTBdP;nYw:
v 4 F9(4;),;C404P1|#!{+?#`i/(|(vmDi/)D4F}
L#
v 4 F20(!{vmD4F),;C404P1|#;4FvmDi/#*Lx4F#
`Di/,404P1|#g{4Fd`3vi/1"Vms,rT>m;vms
E","YNT>Pm,+Ci/vAT>PZZ;;#

186 Query/400 D9C V4R5


X|{ Query/400 i/(e
g{#{X|{i/,4PTBYw:
1. 4Fi/,"x4FDi/a);vB{F#
2. >}-4Di/#

b)NqG09Ci/1A;OD!n,Z>BDd{!ZPxPKhv#

>} Query/400 i/(e


Z;Yh*3vi/1,ISbP>}(}%)|#>}i/s,;\Y!X|,r
KZ>}.0nClii/(e#g{S09Ci/1A;>}i/,I9C F11 4T
>PXCi/DD>#g{;PD>,r_||,DE";cTozz,IT>rr
!i/(e#b)NqZ>BTsBZhv#

I(}TB=(>}H0#fDi/:
v 9C0>}i/1(DLTQRY) |n#PX9C DLTQRY |nDji,N{;i#
v Z0i/1K%O!q!n 3(>}i/) #|+T> DLTQRY(>}i/)|no
zA;#PX9C DLTQRY |nDji,N{;i#
v Z09Ci/1A;O9C!n 4(>}) #IZA;Odki/{(M|Db{),
r_ISi/PmPZ#{>}Di/Tdk 4# (PX9CPmDji,N{Z143
D:Z Query/400 P9CPm;#
);s404P1|#vV07O>}i/1A;#

7O>}i/

4b . . . . . . . . : MYLIB

404P1|7O!q04=>}1 #
4 F12 5XT|DzD!n#

i/
ACCTRECJAN
INVENTJAN
MAILADDR
PAYROLLJAN
TESTQUERY1
TESTQUERY2

F9=4; F12=!{ F20=!{vmD>}

KA;T>z!q>}Di/{#(OfDA;T>3)y>E"#)P8liG)
{F#

g{7O*>}PvDi/,404P1|#>}b)i/#g{Si/Pm!q
K*>}Di/,Z5XA09Ci/1A;1;Y|(Q>}Di/{#

g{zv(;#{>}dP;vT>Di/,4 F12(!{);>}NNi/5XA
09Ci/1A;#TT>i/Pm,RI|DzD!q#

Z16B 9C Query/400 i/(e 187


g{ Query Z>}i/1"Vms,rT>}Z>}Di/Pm,"ZA;W?T>v
mE"#vmDi/vA"T>ZPm%?#ZPmPCi/.0D+?i/Q-I
&>}#I4PTBdP;nYw:
v 4 F9(4;),;C404P1|#!{+?#`i/(|(vmDi/)D>}}
L#
v 4 F20(!{vmD>}),;C404P1|#;>}vmDi/,+>}}LL
x>}d`Di/#g{>}d`3vi/1"Vms,rT>m;vmsE",
"YNT>Pm,+Ci/vAT>PZZ;;#

T> Query/400 i/(e


T>i/1,Query ;JmzxPNN|D#?vi/M;v CCSID ;p#f#g{
zDw5 CCSID ki/D CCSID ;f],r;\T>i/#g{;v CCSID G
65535,r_w5Mi/D CCSID `,,r_;vI*;*m;v,mw|GGf]
D#

": PX CCSID M|GgN0l&mi/Dji,N{Z2573D:T> Query/400 i


/;#

g{T>i/"v(*|D|,Xk5XA09Ci/1A;"9C!n 2(|D)#I
r!ZT>i/14=DE",49CE"Dq=;,2Ir!#N{Z1893D:r
! Query/400 i/(e;#I\Ir!;\|DrT>Di/D(e#

IZ09Ci/1A;O9C!n 5(T>)4T>H0#fDi/#IZCA;Od
ki/{(M|Db{),r_ISi/PmPZ#{T>Di/Tdk 5#(PX9C
PmDji,N{Z143D:Z Query/400 P9CPm;#)

404P1|s,vV0(ei/1A;#*i/(eDyP!nDs_T>;v >#
*i4b)!nGgN(eD,zI4PBPN;Yw:
1. 9C F21 i4yP!n(uAG);P*Ki/(eD!n)DA;#
2. Zz*i4D!nTD Opt PPdk 1#

ZT>i/1,I4 F5 4i4g{KPCi/T0T>rr!(f1,(faG24
y#

": PI\Z4 F5 14=DA;kZi/}#KPZd4=DA;;,#}g,g{


T#fi/T4|DK*!n 4 !qD{mm,r F5 A;+T>|D,x
RUNQRY A;4;T>#

1i4j;v!nDA;"<8i4B;v!nDA;1,404P1|#i4Ky
P!qD!nA;s,5XA0(ei/1A;#IYNi4b)`,D!n,r!
qT>;,D!n#17(T>jKi/(e1,zI4PBPN;Yw:
1. y]h*4tIN F12 5XA09Ci/1A;#
2. g{S09Ci/1A;ODPmP!qK`vi/,I4 F3 9Cd`Di/#g
{9CjZCA;O!qDyPi/,z+5XA09Ci/1A;#

": g{TON9CrT>i/T4|DKD~(e,rI\^(T>i/#|Di
/rD~(eI\T>Ci/#ZT>12I\;\9C3v|nM&\|,r
*|G;Z4(r|Di/1EIC#

188 Query/400 D9C V4R5


r! Query/400 i/(e
Ir!i/(e#r!dvf_zi/+9C24E"4<8(fr4(D~#(}
Z09Ci/1A;O!q!n 5(T>),IZA;O4=`,DE",+CE"+
T;,Dq=4T>#

I9CTBNN;V=(r!i/(e:
v Z09Ci/1A;O9C!n 6(r!(e) #IZCA;Odki/{(M|Db
{),r_ISi/PmPZ#{r!d(eDi/{Tdk 6# (PX9CPmDj
i,N{Z143D:Z Query/400 P9CPm;#)
v Z0(er!zdv1A;rZ0(e}]bD~dv1A;O8(r!(e,;
sKPi/#b)A;ZZ 13 BPhv#
v Z9C0KPi/1(RUNQRY) |nKPi/18(r!(e#PX RUNQRY |
nDji,N{Z1793D:9C RUNQRY |nKP Query/400 i/;#

Z09Ci/1A;O!q!n 6(r!(e)"404P1|1,"4r!i/(e#

* Query/400 i/(er!DE"
r!dv|(BPE":
v ?3%?Djb#KjbP>yC53DE"T0(eDr!1d#
v i/{M CCSID#
v b{#
v PXi/DNND>#
v #?tT(!}cVt{"UZq=MVt{"1dq=MVt{)
#
v &m!n#
v {m3rE"#
v wV/f#
v D~j6{#TZ?vD~j6{,r!dv|(BPZ]:
– D~{
– b{
– D~I1{
– *D~!qDG<q=
v g{9CK`vD~,9CD,SbTM,S`M#
v NNa{VN"|GDmo="$Hk!};MPjb#
v G<!qbT#
v !qDVN"|GD3r"ErEH6kEr`MMNND>#
v Pq=Mc\#
v NN(f8V#
v !qDdv`M:
– g{*r!(f,rT>r!zE"#
– g{*+dvEx}]bD~P,rT>}]bD~E"MVN<V#
v !qDdvq=:j8rvc\,T0FX5w#

Z16B 9C Query/400 i/(e 189


g{Z09Ci/1A;O9C!n 6(r!(e)4r!(e,r!dv|(PX*
i/!qDNNdv`MDE"#}g,g{Z4(i/1!qK}]bD~dv,
s4|DKi/Tcr!Cdv,G4i/(eDr!dv+|(}]bD~Mr!
zE"#g{9C}!n 6 .bDNN=(r!(e,rvr!10E"#

g{9C RUNQRY |n1((}8( PRTDFN(YES) N})r!i/(e,Zr!


(ePDE"+439C RUNQRY N}r!n(Query/400 ZKP1bvD)8(D
yPY1|D#}g,I8(dkD~{"TG<!qbTxP|D"8(;,Dd
v`M,r_(ei/T9CKPw5DEr3r#k!n 6 P>Z]HO1,I\a
P*'DE",r* Query/400 ;h*9C+?!qDVN4KPi/#

}PXi/(eDE".b,g{i/zIA}]bD~Ddv,9+r!G<q=
<VD5w#

Query/400 i/(eDr!G<q=E">}
BfGKPi/1Ir!Di/(e(}]bdvD~DG<q=<V)D;vX(
?VD>}#v1Z*}]bD~dv(ei/,RrKCi/rC}]bD~"M
vc\dv1,Er!TBT>DE"#

IBM Query/400 92-01-15 10:36:31


dvD~G<q=
dvG<$H . . . . . . . . . . . . . 128
dv CCSID 5 . . . . . . . . . . . . . 37
VNPm:
VN *< Len Dec U5 }]`M D>
BREAKLVL 1 1 V{ 8V6p
OVERFLOW 2 1 V{ gvj>
TM1USA 3 8 T 1d 53q=
DT1EUR 6 10 L UZ 53q=
TS1 10 26 Z 1dAG 53q=
PK2 20 8 2 x;.xF
ZD3 28 8 2 x;.xF
ID1 36 3 V{ ID VN
VC1 39 8 V Y IdV{ ' UV{.
C1 49 10 Y V{ CHAR DFT *NULL
DBCSOPEN 59 8 O 'V DBCS *E= DBCS
DBCSEITH 67 8 E 'V DBCS q;= DBCS
DBCSONLY 75 8 J 'V DBCS (;= DBCS
DBCSGRPH 83 8 G <N <N DBCS
DBCVOPEN 89 8 OV Id DBCS *E= DBCS
DBCVEITH 99 8 EV Id DBCS q;= DBCS d?
DBCVONLY 109 8 JV Id DBCS (;= DBCS d?
DBCVGRPH 119 8 GV Id<N <N DBCS

v dv CCSID 5G{vi/D CCSID#g{ CCSID * 65535 r;r!KP#g{


i/|,`v CCSID,r CCSID PT>?vVND CCSID#
v VNPT>dvG<PfZDVN#G<dvPD?v}]VN;3h|Zi/(
ePy_PD`,VN{#g{G<dvP=vr`vVNP`,DVN{(g{
*VN8(;vr`vc\/}r_Z,SD~1,E"zKiv),r9CVN
{D0yvV{SOT&Zc\/}D=;}5(01= \F,02= =y5,03= n!
5,04= ns50 05= F})
#

190 Query/400 D9C V4R5


}g,g{Zi/(eP* FMT VN8(n!5Mns5c\/},r{* FMT03 M
FMT04 D=vVN+vVZG<dvP;|G|, FMT VN (FMT03) Dn!5M FMT
VN (FMT04) Dns5#bV|{=(;PZbVr%DivBEG}7D#5JD
|{fi/D;,xd/#
v *<PT>G<PVNDp<VZ#}g,{* ZD3 DVNSZ 28 VZ*<#
v Len M Dec PT>?vVND$HM!};#}g,{* PK2 DVN$H* 8 R
P=v!};#

": (fOyT>DGq=/.sr!Ddv$H,x;GZ?}]bVN$H#
+C$HSO*<;C;\C=B;VND*<;C#
v TZG}VVN,Dec PT>|,ZCPPD}]`M:
UWm>($V{
V m>d$V{(SBCS r DBCS)
J m>(;= DBCS
O m>*E= DBCS(lOM)
E m>q;= DBCS
G m><N DBCS
L m>UZ
T m>1d
Z m>1dAG
v U5PT>VNGIU (Y) 9G;\(UW)#
v }]`MPT>?vVND}]`M#
v D>PT>?vVND"b(g{PD0)#g{CVNCZc\/},T>DD>
r*VN{(;PNNmSDEk),szc\/}D`M#
v CCSID P(g{T>D0)Zm>`v CCSID 1T>,"T>?vVND CCSID#

Z16B 9C Query/400 i/(e 191


192 Query/400 D9C V4R5
Z3?V PX Query/400 D_6E"
Z17B )Lr1N<Dd{ Query/400 E" . . 195
Query/400 P9C;,G<q=DD~ . . . . . 195
Query/400 PDD~2m<GBn . . . . . . . 195
Z Query/400 P2G}]bD~ . . . . . . . 195
Z Query/400 P(ea{VN1D DBCS <GBn 195
Z Query/400 P,SD~ . . . . . . . . . 196
Z Query/400 P9C *ALL . . . . . . . . 196
Z Query/400 P9CGErVNDVNxP(f8V 196
Query/400 PDa{VN$HM!};} . . . . 196
Z Query/400 P&mT>$HM!};}Da> 196
Query/400 PCZZ?}5FcD$HM!};} 197
Query/400 PDS(Mu( . . . . . . . 197
Query/400 PDK( . . . . . . . . . 197
Query/400 PD}( . . . . . . . . . 198
>}:Z Query/400 PvSa{VND!}+H 198
Z Query/400 P!qG<(vTVNs!4) 199

© Copyright IBM Corp. 2000 193


194 Query/400 D9C V4R5
Z17B )Lr1N<Dd{ Query/400 E"
>Ba)Lr1I\PK$Dd{E"#

Query/400 P9C;,G<q=DD~
I9CP`VG<q=DD~;+G,?N;\9C;VG<q=#g{z*hFD
&CLr*s,1&m,;D~PD;,G<q=,&<G9C RPG/400 r
COBOL/400* LrhFoT#

}g,g{M'{9C;VG<q=,x?vM'&6pn9C,;D~PDm;V
G<q=,%vi/r;\r!&6pn,} $500 D+?M'D{F#*KC Query
S=VG<q=P!qG<,!q5 — M'{FM&6pn — XkfZZ;VG<
q=P(2MG5,omELG<Xk,143M'{FM&6pnVN)#

": I(}+D~M|T:,S,Z%vi/P5Vbc#+G,b)G<q=Xk
+<|,;v+2VN#PX,SD~Dji,N{Z443D:Z Query/400 i/
P,SD~;

Query/400 PDD~2m<GBn
Z Query S;vD~4((f1,d{&CLrIA!"|BCD~,xR=vr|`
v Query (eI,1}C,;D~#

Z Query/400 P2G}]bD~
g{9C0C}]bD~2G1(OVRDBF) |n2G}]bD~,r;\$bzDi/
KPa{#Query Jmz9C OVRDBF |n,+I\a"zJb,r**;2GD~
!qDG<q=MD~I1I\^(kBD~T&#

Z Query/400 P(ea{VN1D DBCS <GBn


g{Z(;= DBCS rq;= DBCS VNP9C SUBSTR /},ra{VNG SBCS
V{VN#g{Z<N DBCS VNP9C SUBSTR /},ra{VNG<N DBCS V
N#TZ*E= DBCS VN,a{G*E= DBCS VN#

g{"C(;= DBCS VNr(;= DBCS #?(r,1"C=_),ra{VNG


d$(;= DBCS VN#

g{"C*E= DBCS VN,ra{VNGd$*E= DBCS VN#

g{+(;= DBCS"*E= DBCS rq;= DBCS VNr#?(rb=_)k SBCS


V{VNr#?"C,ra{VNGd$*E= DBCS VN#

© Copyright IBM Corp. 2000 195


g{Z"CYwP9C<N DBCS VNr#?,ryPVNM#?Xk<G<N
DBCS#

g{Z"CYwP9C<N UCS2 VN,ryPVNXk<G<N UCS2#

Z Query/400 P,SD~
TZ,SDD~(,SD`M):
v `M 1 ,Sk Query/36(Z System/36 O)D`,#
v `M 2 ,S!qwD~PD+?G<MND~PkwG<%dDG<#
(|!q%d
n#)
v `M 3 ,Sv!qwD~PkND~;P%dnDG<#
(|!q}bn#)

PX?v,S`MDj{5wM>},N<Z443D:Z Query/400 i/P,SD


~;#

Z Query/400 P9C *ALL


&!D9C *ALL ,S,r*|I\5Xs?DG<#PXji,N<>8OPDZ4
43D:Z Query/400 i/P,SD~;#g{*C%G<ndDD~4(_PVN)
9D}]bD~,r_*,SDNND~PDG<\YR#{iOyPDq=,IT
zD,S9C *ALL#

Z Query/400 P9CGErVNDVNxP(f8V
CZErDVNZ(fPI\G;PbeD,rKzI\#{9C;GErVNDV
Nw*8VVN#}g,|,J~j)M'{F?VDVNICw8VVN,x+N
b8(D(2G(;D)M' ID CZEr#r*M'{G8VVN,yTI+|ek
8VD>rExvc\}]bD~P#

Query/400 PDa{VN$HM!};}
Query Z(fP4(a{VN1,+7(|DT>$HM!};}#b)5{Os`}
C'D*s#TB8Z(iC'&ZN10gN8($HM!};#PXx;=DE
",N{Z1263D:Query/400 (fPD$HM!};;MZ883D:Query/400 PD
$HM!};};#

Z Query/400 P&mT>$HM!};}Da>
Z3)ivB,Query *a{VN7(D$HHh*Ds#}g,TZa{VN
RESULT10:
a{VN -------- 5MYw} -------- <V

RESULT10 9 + 9 + 9 + 9 + 9 999999

Query *a{VN RESULT10 8($H 6#r* RESULT10 PDa{G 45,yTvh


*$H 2#IZ0(ea{VN1A;O,*Ka{VNZ Len PP8( 2,Z Dec
PP8( 0#

196 Query/400 D9C V4R5


`FX,TZa{VN RESULT11:
a{VN -------- 5MYw} -------- <V

RESULT11 N1 + N2 + N3 + N5 + N5 99999

g{VN N1 A N5 ?v<P$H 1,r Query * RESULT11 8($H 5,+$H 2


Q-c;#

Zf0m`sVNDFcP,(}+mo=V*8?V,??Vw*%@Da{VN
Fc,I|CXXFa{#;sIZmo=P9Cb)a{VN4Fcz*Da{V
N#I8(Pda{VND$HM!};4+nUa{VND$Hu=n!#

}g:
X12 = (1.2998 − P − Q)/((R + S) * (T − U)) + 6

*;sOfGyZ;v=hP(ea{VN X12,IZTB}v=hPjI|:
X12PART1 = 1.2998 − P − Q

X12PART2 = (R + S) * (T − U)

X12 = X12PART1/X12PART2 + 6

}g,g{C'*@ X12PART1 \G;viZ 0 M 1.2998 .dD},C'I*


X12PART1 T Len 8( 5,"* Dec 8( 4(Z0(ea{VN1A;O)#b+u!
X12 D$H#

Query/400 PCZZ?}5FcD$HM!};}
BP+=(e Query ZT}Va{VNxP!}Fc1Z?9CDns$HM!};
}#ns$HM!};};Xk Query 8(DT>$HM!};}T&#{E p M d
m>Z;vYw}D$HM!};}#{E p1 M d1 m>Z~vYw}D$HM!}
;}#

Query/400 PDS(Mu(
a{VNDns$H:

min(31,max(p-d,p1-d1)+max(d,d1)+1)#

ns!};}:

max(d,d1)#

Query/400 PDK(
a{VNDns$H:

min(31,p+p1)

ns!};}:

min(31,d+d1)#

Z17B )Lr1N<Dd{ Query/400 E" 197


Query/400 PD}(
a{VNDns$H:

31

ns!};}:

31-p+d-d1#

>}:Z Query/400 PvSa{VND!}+H


<7P;va{VN,|_P10ns+H:$H 31,!};} 2#!}+HGSFc
31-29+9-9 P<vD#

(ea{VN

9CVN{"#?MKc{dk(e,404P1|#
Kc{: +"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


RESULTA___ PRN299A/PRN299B__________________ ____________________ __ __
_________________________________ ____________________
_________________________________ ____________________

__________ _________________________________ ____________________ __ __


_________________________________ ____________________
_________________________________ ____________________

__________ _________________________________ ____________________ __ __


_________________________________ ____________________
_________________________________ ____________________
W?
_______________________________________________________________________________
VN D> Len Dec
PRN299A +H* 29,9 DVN 29 9
PRN299B +H* 29,9 DVN 29 9
W?
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

< 7. 9C1!5D!}+H

": RESULTA DT>$H+G 31,9#I40F13= <V1i4|#

*vSa{VN (RESULTA) D!}+H:


1. 1Sra{VN8(?vdkVN (PRN299A, PRN299B)#
2. CBDa{VN (RESULT269, RESULT295) f;CZ-<a{VNmo=PDdk
VN#
3. |DBDa{VNDT&$H (Len) M!};} (Dec),TcdVa_-<a{VN
(RESULTA) D!}+H(N{0fPvD+=)#

ZZ1993D<8P,RESULTA !}+HS 2 |D* 9#BD!}+HSFc 31-26+9-5


P<v#

198 Query/400 D9C V4R5


(ea{VN

9CVN{"#?MKc{dk(e,404P1|#
Kc{: +"-"*"/"SUBSTR"||"DATE...

VN mo= Pjb Len Dec


RESULT269_ PRN299A__________________________ ____________________ 26 _9
_________________________________ ____________________
_________________________________ ____________________

RESULT295_ PRN299B__________________________ ____________________ 29 _5


_________________________________ ____________________
_________________________________ ____________________

RESULTA___ RESULT269/RESULT295______________ ____________________ __ __


_________________________________ ____________________
_________________________________ ____________________
W?
_______________________________________________________________________________
VN D> Len Dec
PRN299A +H* 29,9 DVN 29 9
PRN299B +H* 29,9 DVN 29 9
W?
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

< 8. |D!}+H

Z Query/400 P!qG<(vTVNs!4)
*vTs!4!qG<,4PTBYw:
v T(e{m3r,T9s4V8M!4V8P`,D(#
v T2m{m(9C53Er3r#

9XkZ0!q&m!n1A;P+TyPV{HO9C{m3r!nhC* YES#g
{r*3)-r;\hCK!n,Xk9C EQ(HZ)bTfzng RANGE r LE
(!ZrHZ)M GE(sZrHZ)DiO#(b;PZ;f0 DBCS }]1EP
'#)

": |D{m3r+0lEr"n!5"ns5M(f8V#PX CCSID gN0lE


r"n!5"ns5M(f8VDji,N{Z2573D:Query/400 !nM&\D
CCSID *;;#

Z17B )Lr1N<Dd{ Query/400 E" 199


200 Query/400 D9C V4R5
Z4?V =<0=tJO

© Copyright IBM Corp. 2000 201


202 Query/400 D9C V4R5
=<A. Query/400 k Query/36 Dxp
>=<hv Query/400 k Query/36 Dxp#>=<PyvD Query/400 xpv^Zg
{zZ9C Query/400 .0;*@D0,I\}p3);cDG)xp#>=<+b)
xpi`*:
v EnT
v YwT
v |n
v (F

EnTxp
TBPmj6K System/36 k AS/400 53;,DEn,"TyPEnD;,xPKb
M:
S}L Z System/36 Oi/GbPDS}LI1#Z AS/400 53O,i/G;vb
Zf"DF*i/(e (*QRYDFN) D(;Ts`M#mbbVd/\X*,
r*9CS}LD3) System/36 |nZ AS/400 53OI\^(9C#
D~ Z AS/400 53OD~f"ZbP,rKh** Query/400 8(b{TciR
D~#x System/36 ;ZbPf"D~#

YwTxp
TBPmj6K System/36 k AS/400 53;,DYw,"TyP?nDYwxpxP
KbM:
4SD~
g{;P4SS System/36 (FD IDDU (eDD~,zTITKD~KPi
/#;},CD~+T>*%VND~(4,g{kTKD~KP1!i/,
KD~4p4MsGyPVN;pKP) #
D~ ID
Z Query/36 P,D~ ID GS A = E D;vV8#g{ Query/36 i/(
F= AS/400 53,G4*Ci/!qDD~DyPD~ ID #V;d#Z
Query/400 O*i/!qDyPD~_Pz8(D 1 = 3 vV{DD~ ID,
r_|1!* Tnn,dP nn Z 01 = 32 .d#
,SD~
Z Query/36 P,zIn`,SevD~,"R;Jm;V`MDD~,S(%
dDG<) #Z Query/400 P,zIn`,S 32 vD~,"RJm}V`MD
D~,S:
v %dDG<
v 9CwD~D%dG<
v 9CwD~D;%dG<

© Copyright IBM Corp. 2000 203


Z Query/36 P,CZ,SD~DV{VNDnsiO$HG 120;Z Query/400
P,ns$HG 2000#
(f8V
r!ksD(f8VI\Zd`OPy;,#Z Query/36 P,g{v=(f8
V,(fax};P,}G(e*xAB3r(e*9C+d`r}d`#Z
Query/400 P,g{v=(f8V,(f+x};=SP,}G+|(e*xA
B3#bb6EZXF8VsDZ;v8ZPk8V0Dns;v8ZP.d
+ar!;=SUWP#
V{VN
Z Query/36 P,Z IDDU P(eD$H,} 256 VZDV{VNZ 256 V
Z&XO#Query/400 'Vn$ 32 766 VZDV{VN#9Cb)VNDG<
!qbTVZ+9C{vVNxPHO,x;G;HO0 256 VZ#
Er3r
g{Zi/P48(Er,(fPr!G<DNrI\;,ZZ Query/36 Pr
!|GDNr#xR,g{8(KErx*ErDVNZ`vG<P|,`,
D5,rb)G<DT>NrI\k Query/36 ;,#
a{VN
Z Query/400 P9CK}KcDa{VNDnR_!};k Query/36 `HI
\TP;,#bGr*Z Query/400 PK(M}(Ix;=|_D+H#
Fca{
K(KcDa{y]S System/36 (FDi/DVN$H;XO#TZ9C
Query/400 (eDi/,zI8(K}KcDa{GXO9Gak#
dv=D~
1i/Ddv"M=D~1,Query/400 +KD~9(*x(eD}]bD~#
;Yh*9( IDDU (e"+C(e4S=D~(Z Query/36 OGh*D),
}G9C QRY r QRYRUN }LKPi/#
vc\dv
19C Query/400 "Mvc\dv=D~1,8V6pEsZ4(KG<yC
D8V6D?v(f8VVN+TV{VN|,Uq,T}VVN|,c#Z
System/36 O,b)VN|,~xFc#AS/400 53byYwT\b+;}7
D}]Ek}VVN#
b1!5
Z08(D~!q1A;ODdkD~M0(e}]bD~dv1A;ODd
vD~Db1!5GZdC1* System/36 73D~hCDb#
.xF}]
Z Query/36 P,]m.xF}]ms#19C Query/400 KPi/1,Gq
]m.xF}]ms!vZZ0&m!n1A;O8(D5#TZ1!i/M
;P8(D&m!n5Di/, Query Z System/36 73P]m.xF}]m
s,xZ AS/400 73P;]mbyDms#PXji,N{Z14B 8(
Query/400 &m!n#
E"l&
Z System/36 O,C'IhCT/l&D~4&m Query/36 E"#bVT/l
&D~;&m Query/400 E"#

204 Query/400 D9C V4R5


r! YQzhC* N=NO Dr!Z AS/400 OkZ System/36 ODYwG;,D#
PXji,N{ Printer Device Programming ;i#

System/36 |n k Query/400 |nD|nxp


BmP> System/36 Query |nMH'D AS/400 53|n(g{!1D0),T09
Ci/D3)53|n:
System/36 AS/400 53
QRY WRKQRY
QRYRUN RUNQRY
REMOVE DLTQRY
FROMLIBR SAVOBJ
HELP QUERY
STRQRY
LIBRLIBR CRTDUPOBJ
TOLIBR RSTOBJ

System/36 k Query/400 (eD(Fxp


Query/400 (e;\(F= System/36#

=<A. Query/400 k Query/36 Dxp 205


206 Query/400 D9C V4R5
=<B. 709C Query/400 i/
*70gN9Ci/,XkWHC;)}]hC;vD~#Z5J4(i/.0,>
708<zl$BP=h:
v 4( IDDU (e
v 4(}]bD~
v dk}]

g{53OQP;vD~|,I9CD}],zIT1Sx=4(i/b;Z#g{
z;XD9CD}]`M,I4(9C QGPL bP}]Di/#>=<ns;ZZ224
3D:Query/400 i/70:4(_6i/;hvKK70#

Query/400 i/70:4( IDDU (e


ZTB>}P,T>gN4({FkX7D~D(e#4(b)(e,TcCZzZ
ADTS/400: Data File Utility ;ihvD}]D~5CLrNqPI4PD$wP#
1. IZNN|nPOdk STRIDD(m>0t/ IDDU1|n) #r_IS0D~1K
%r0v_'V1K%P!q IDDU !n,*A IDDU wK%#g{zZ0AS/400
wK%1O!q!n 2(OfficeVision Nq),;sZ0OfficeVision Nq1K%O
!q!n 3(v_'V),+vV0v_'V1K%#
2. Z IDDU K%O!q!n 2(9C}]Jd),;s404P1|,I4(}]J
d#(g{ZbPfZI9CDJd,r^h4(#g{fZI9CD}]Jd,
*A=h 6# )
3. !qA;OD!n 1(4(),dk+|,JdDb{,;s404P1|#
g{zT<4(}]Jdx|{Db;fZ,rT>;uE"0b4R=#4
04P1|4(#1#g{4B04P1|,z+4=04(b1A;#SCA
;,zI4(+|,}]JdDb#1jI4(b1,xk04(}]Jd1A
;#
4. Z04(}]Jd1A;O,b{T>*Jd{#Z>70sf?V,RG+9
CJd{ SYSDIC;zICm;vJd{f; SYSDIC#
5. zIS\53a)D5"404P1|#2IZ D>a>Pdkr%D5w,;
s!qdk$"M#g{Z$"Ma>Pdk 1(!q),rT>0`-$"M1
A;,zIZdPdkPXJdDj8E"#1zax$w"ZCA;O404
P1|1,M4(KJd#
AS/400 53h*;)1d44(Jd#1JdQ4(1,|T>;uE"#;sZ
09C}]Jd1A;O4 F12(!{),5X= IDDU wK%#
6. Z IDDU wK%O!q!n 1(9C}](e),

© Copyright IBM Corp. 2000 207


IDDU ;%=}](e5CLr (IDDU)

!qBPdP;n:

1. 9C}](e

;s404P1|#
7. WH|{D~(e,yT!q!n 3(D~)
#({F SYSDIC vVZTBA;OD
}]Jda>P;zZA;O4=DGUU4(D}]JdD{F,rGzON
9CD}]Jd{#I|D}]Jd#)

!q(e`M

dk!n,404P1|#

(e`M . . . . . . . . . . 3 1=VN
2=G<q=
3=D~

}]Jd . . . . . . . . . . SYSDIC {F"4 F4 qCPm

;s404P1|#
8. 14=09CD~(e1A;1,!q!n 1(4()"|{BD~(e#
(RGQ
9C NAMEADDR w*D~(e{D>}#)

9CD~(e

Jd . . . . . . . . . : SYSDIC

(;= . . . . . . . . . _____________ p<V{

dk!n(MD~(e),404P1|#
1=4( 2=|D 3=4F 4=>}
6=r! 7=X|{ 8=T>9C.&

D~
Opt (e

;s404P1|#
9. 1z4=04(D~(e1A;1,!q!n 2(4(%;q=)"S\53a)
#IZD>a>Pd
DG<q={(539CD~(e{"+V8 R mS=a2)
kr*hvE",gA;y>#;*Z$"Ma>P8(NNZ]#

208 Query/400 D9C V4R5


4(D~(e

(e . . . . . . . . . . : NAMEADDR Jd . . . . . . . . : SYSDIC

dk!n,404P1|#

G<q=
!n . . . . . . . . . 2 1=4(M/r!qq=
2=4(1!q=
"!qVN

TZ0!n 2=4(1!q=1:
q= . . . . . . . . default____ {F

!qX|VVN
3r . . . . . . . . N Y=G,N=q

$"M . . . . . . . . _ 1=!q,4=}%

D> . . . . . . . . . 70 DFU M Query D(e

;s404P1|#
10. VZzIT4(VN(e,|G+IzUU|{DG<q=(e9C#ZVNa
>Pdk LASTNAME,|{Z;vVN(e#9CA;OQa)DrE 10#]1;
*404P1|#

4(M!qVN(e

(e . . . . . . . . : NAMEADDRR Jd . . . . . . . . : SYSDIC

(;= . . . . . . . . . __________ VN,3r (0-99999)

dkrE (0-99999),(MVN),404P1|#
dkVN,4 F6 4(#

rE VN ax rE VN ax rE VN ax

10 LASTNAME

VZ4 F6#ZB;vA;P,z+jI LASTNAME VN(eD5w(T0|{Mh


vVN(eDd`?V) #
11. y]TBT>Dm,jI LASTNAME VN5w,|(8(d`M"s!MNNd{
hv{#SE|{"hvVN(eDd`?V#

VN{ VN`M s! D>


LASTNAME V{ 15 U
FIRSTNAME V{ 10 {
ADDRESS1 V{ 20 X7DZ 1 P
ADDRESS2 V{ 20 X7DZ 2 P
CITY V{ 15 GP
STATE V{ 2 ]
ZIP V{ 9 J~`k
AMOUNT }V,2 v!}; 6 pn

=<B. 709C Query/400 i/ 209


4(VN(e

dkE",404P1|4(#
VN`M(s!). . . : 1=V{ (1-32766)
2=}V(1-31,!}; 0-31)
3=DBCS(4-32766,lO;1-16383,<N)
4=UZ/1d(^s!)
d{!n . . . . . . : Y=G

-------VN--------- !} d{
{F `M s! ; !n D>

LASTNAME 1 15 __ _ U
FIRSTNAME 1 10 __ _ {
ADDRESS1 1 20 __ _ X7DZ 1 P
ADDRESS2 1 20 __ _ X7DZ 2 P
CITY 1 15 __ _ GP
STATE 1 2 __ _ ]
ZIP 1 9 __ _ J~`k
AMOUNT 2 6 2 _ pn

12. 1zQjI8(VNXT1,404P1|#YNT>04(VN(e1A;,
K1zDVNQ4(#

4(VN(e

dkE",404P1|4(#
VN`M(s!). . . : 1=V{ (1-32766)
2=}V(1-31,!}; 0-31)
3=DBCS(4-32766,lO;1-16383,<N)
4=UZ/1d(^s!)
d{!n . . . . . . : Y=G

-------VN--------- !} d{
{F `M s! ; !n D>

__________ _ _____ __ _ _____________________________________________


__________ _ _____ __ _ _____________________________________________
__________ _ _____ __ _ _____________________________________________

;TA;xPNN|D,404P1|#
13. 1z4=04(M!qVN(e1A;1,

210 Query/400 D9C V4R5


4(M!qVN(e

(e..................: NAMEADDRR Jd.................: SYSDIC

(;= . . . . . . . . . __________ VN,3r (0-99999)

dkrE (0-99999),(MVN),404P1|#
dkVN,4 F6 4(#

rE VN ax rE VN ax rE VN ax

rE VN ax
10 LASTNAME 15
10 FIRSTNAME 25
10 ADDRESS1 45
10 ADDRESS2 65
10 CITY 80
10 STATE 82
10 ZIP 91
10 AMOUNT 95

i$VN{T}7D3rEP#(1rE`,1,ZA;ODVN{DEP7(Z
G<P9CD3r#)g{VND3r;}7,dkXhDrET8>}7DE
P,;s404P1|#1VN4}7D3rEP1,;TA;xPNN|D,
404P1|#
14. SEz+4=09CD~(e1A;,

9CD~(e

Jd . . . . . . . . . : SYSDIC

(;= . . . . . . . . . _____________ p<V{

dk!n(MD~(e),404P1|#
1=4( 2=|D 3=4F 4=>}
6=r! 7=X|{ 8=T>9C.&

D~
Opt (e

;TA;xPNN|D,4 F3(Kv)
#

VZjIK4(hv}]bD~D(e#PX4(D~"+}]dk=D~PD
5wZBf8Zhv#

Query/400 i/70:4(}]bD~
jI4(XhDD~(es,zIC09C}]bD~1A;4(}]bD~#IS
w IDDU K%rdk0C IDDU 9C}]bD~1(WRKDBFIDD) |n,xkKA;#

?N5X=KA;1dk;vBD~{,MI4(h*DNb`D~#b)D~{I
\PH03h|G((^VP_)D(^6#b0lzI8(D(^#

*4(}]bD~,4PTBYw:
1. S IDDU K%!q!n 3(9C}]bD~),rZ|nPOdk WRKDBFIDD#

=<B. 709C Query/400 i/ 211


2. Z09C}]bD~1A;O,!q!n 1(4(),|{BD~"8(+|,KD
~Db#

9C}]bD~

b . . . . . . . . . default___ {F"4 F4 qCPm


(;= . . . . . . . __________ p<V{

dk!n(M}]bD~),404P1|#
1=4( 2=dk}]

}]b }]b }]b }]b


Opt D~ Opt D~ Opt D~ Opt D~

3. 404P1|#T>,BD~{0db{D04(}]bD~1A;#
ZKA;O,*D~(e8( NAMEADDR,*Jd8( SYSDIC(rzZ>=<0;Z
P4(DJd{),"*d{KTKD~_PD(^8( *CHANGE#

4(}]bD~

D~ . . . : NAMEADDR b . . . . . . : YOURLIB

dk!n,404P1|#

`X(eE":

D~(e . . . . . . . . . . NAMEADDR {F, 4 F4 qCPm

Jd . . . . . . . . . . . . SYSDIC {F"4 F4 qCPm

(^ . . . . . . . . . . . . *CHANGE *LIBCRTAUT"*ALL"*CHANGE
*USE"*EXCLUDE
Z(m{

4. 404P1|4(KD~#KD~4(s,53T/+KD~4S=|DD~(
e#
4 F3(Kv)5X= IDDU K%#

Query/400 i/70:dk}]
*+}]dkD~,4PTBYw:
1. S IDDU K%!q!n 3(9C}]bD~),rZ|nPOdk WRKDBFIDD#
2. Z09C}]bD~1A;O,8(!n 2(dk}]),*D~{8( NAMEADDR,
*b{8(zDb#

9C}]bD~

b . . . . . . . . . default___ {F"4 F4 qCPm


(;= . . . . . . . __________ p<V{

dk!n(M}]bD~),404P1|#
1=4( 2=dk}]

}]b }]b }]b }]b


Opt D~ Opt D~ Opt D~ Opt D~

3. 404P1|#T>09CD~PD}]1A;#

212 Query/400 D9C V4R5


9CD~PD}] == . . . . : ENTRY
q= . . . . . : NAMEADDR D~ . . . . : NAMEADDR

LASTNAME:
FIRSTNAME:
ADDRESS1:
ADDRESS2:
CITY:
STATE:
ZIP:
AMOUNT:

F3=Kv F5="B F6=!qq=


F9=ek F10=dk F11=|D

4. dkZTBA;OT>DE",+;*404P1|#Zdkpn.s,WH4
0;P1|,;s404P1|#

9CD~PD}] == . . . . : ENTRY
q= . . . . . : NAMEADDR D~ . . . . : NAMEADDR

LASTNAME: SIMPSON
FIRSTNAME: FRANK
ADDRESS1: 1722 ORANGE STREET
ADDRESS2:
CITY: RIDGEWAY
STATE: CA
ZIP: 72430
AMOUNT: 9998

F3=Kv F5="B F6=!qq=


F9=ek F10=dk F11=|D

5. YNT>09CD~PD}]1A;,+GVN*UW,zILxmS|`}]#
6. Lx+TB}]mS=09CD~PD}]1A;:

LASTNAME FIRSTNAME ADDRESS1 ADDRESS2 CITY STATE ZIP AMOUNT

Daye Ben 1312 Elm Apt C Marshill AK 77901 456


Street
Patterson Tammy 4 Ridgeview Marshill AK 77901 501
Court
Barker Rick 1432 Le Emmerson LA 71282 938
Grand Blvd
Sedgewick Lillian 200 Park Emmerson LA 71282 25
Lane

=<B. 709C Query/400 i/ 213


LASTNAME FIRSTNAME ADDRESS1 ADDRESS2 CITY STATE ZIP AMOUNT

Skoggen Linda Circle Court Truman NC 57432 764


NE
Golinero Sebastin 7196 Thomas Highpoint MN 55909 00
Street
Lien Sue 469 Jackson Ridgeway CA 72430 00
Street
Sedgewick Leona 21st Cannery Apt 43 Emmerson LA 71282 45
Row
Skoggen Charles 401 Abbey Truman NC 57432 629
Road
7. ZzmSyP}]"vVPUWVND09CD~PD}]1A;.s,4 F3(K
v)#T>0ax}]dk1A;#

ax}]dk

&mDG<}

mS}? . . . . : 10
|D}? . . . . : 0
>}}? . . . . : 0

dk!n,404P1|#

ax}]dk . . . . . . . . Y Y=G,N=q

^hZKA;OvNN|D#404P1|#
8. T>09C}]bD~1A;#

9C}]bD~

b . . . . . . . . . default__ {F"4 F4 qCPm


(;= . . . . . . . __________ p<V{

dk!n(M}]bD~),404P1|#
1=4( 2=dk}]

}]b }]b }]b }]b


Opt D~ Opt D~ Opt D~ Opt D~

F3=Kv F4=a> F5="B F11=T>D>


F12=!{ F21=9C(e F22=9C}]Jd
YOURLIB PD~ NAMEADDR D}]Q|D#

A;W?DE"f_zD~PD}]Q|D#
9. 4 F3(Kv),z+4=t/K%#
T/r!siG<,T>zdkDyP}]#

214 Query/400 D9C V4R5


Query/400 i/70:4(MKPi/
ZTB70P,z4("|D;vi/,Ci/zz;v(f,P>D~ NAMEADDR P
rI\ZzD53OQfZDNNd{D~PDyPE"#NAMEADDR GZH0>}P9
C IDDU 4(DD~(e#

NAMEADDR |,{FkX7"|(TBE":
v U
v {
v X7 1
v X7 2
v GP
v ]
v J~`k
v pn

Zz4("#fi/.s,1|fZ1KP|,;s|Di/"YNKP|#

Query/400 i/70:4(i/
Z>70P,z4(;vi/,Ci/ZA;O4E"ZD~PfZDNrP>
NAMEADDR D~PDyPE"#

>70*sz+4(Di/#fZbP#zI\#{9CT:Db#g{z;Pbr
;*@gN4(b,I/:p53bDK1#
1. ZNN|nPOdk WRKQRY,xk09Ci/1A;#
2. Z09Ci/1A;O,T!na>dk 1(4(),Ti/a>dk xxxQRY(9
CzDU{u4x;G xxx),Tba>dkzDb{#

9Ci/

dk!n,404P1|#

!n . . . . . . . . 1 1=4(,2=|D,3=4F,4=>}
5=T>,6=r!(e
8=z&mKP,9=KP
i/ . . . . . . . . KJOQRY {F"4 F4 qCPm
b . . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{

3. 404P1|#T>0(ei/1A;#

=<B. 709C Query/400 i/ 215


(ei/

i/ . . . . . . : KJOQRY !n . . . . . . : CREATE
b . . . . . . . : YOURLIB CCSID . . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
1 8(D~!q
_ (ea{VN
_ !q"ErVN
_ !qG<
_ !qErVN
_ !q{m3r
_ !q(fPq=
_ !q(fc\/}
_ (e(f8V
_ !qdv`MMdvq=
_ 8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!

"b Query Q*KA;OD8(D~!qa)K;v 1#bGr*^[N14(i


/,zXk8(;vD~,+G;XZKA;O!qNNd{!n#
4. 404P1|,T>08(D~!q1A;#

8(D~!q

dk!n,404P1|#4 F9 8(=SDD~!q#

D~ . . . . . . . . . . __________ {F"4 F4 qCPm


b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm

W?
F3=Kv F4=a> F5=(f F9=mSD~
F12=!{ F13=<V F24=d{|

ZKA;,zf_ Query #{i/D)}]bD~4R=(fPD}]#


5. TD~a>dk NAMEADDR,Tba>dk|,D~Db{,#tq=MI1a>;
d#

216 Query/400 D9C V4R5


8(D~!q

dk!n,404P1|#4 F9 8(=SDD~!q#

D~ . . . . . . . . . . NAMEADDR {F"4 F4 qCPm


b . . . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . NAMEADDRR {F"*FIRST"4 F4 qCPm

F3=Kv F4=a> F5=(f F9=mSD~


F12=!{ F13=<V F24=d{|

6. 404P1|#08(D~!q1A;YNT>,"ZA;W?T>E"0!q
D~,r404P1|7O#1#

8(D~!q

dk!q,404P1|#4 F9 8(=SDD~!q#

D~ . . . . . . . . . . NAMEADDR {F"4 F4 qCPm


b . . . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . NAMEADDRR {F"*FIRST"4 F4 qCPm

F3=Kv F4=a> F5=(f F9=mSD~


F12=!{ F13=<V F24=d{|
!qD~,r404P1|7O#

7. 404P1|#vV0(ei/1A;,"ZA;W?T>E"0!q!n,r
4 F3 #frKPi/#1#

=<B. 709C Query/400 i/ 217


(ei/

i/ . . . . . . : KJOQRY !n . . . . . . : CREATE
b . . . . . . . : YOURLIB CCSID . . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
_ > 8(D~!q
_ (ea{VN
_ !q"ErVN
_ !qG<
_ !qErVN
_ !q{m3r
_ !q(fPq=
_ !q(fc\/}
_ (e(f8V
_ !qdv`MMdvq=
_ 8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!
!q!n,r4 F3 #frKPi/#

08(D~!q1!nZ Opt PPT> >,8>|GH0(eD!n#


8. 4 F3(Kv)#T>0KvKi/1A;#
Query Z#f(ea>Pxv Y(G),ZKP!na>Pxv 1(;%=KP),
r*|Yhz#{#fi/(eTs"KPKi/#Z=va>P#t1!5#
9. TD>a>dkP>M'{FMX7#
10. T(^a>dk *CHANGE#

KvKi/

dk!n,404P1|#

#f(e . . . . . . Y Y=G,N=q

KP!n . . . . . . . 1 1=;%=KP
2=z&mKP
3=;KP

TZ#fD(e:
i/ . . . . . . . . KJOQRY {F
b . . . . . . . YOURLIB {F"4 F4 qCPm

D> . . . . P>M'{FMX7

(^ . . . . . . . . *CHANGE *LIBCRTAUT"*ALL"*CHANGE"
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F13=<V F14=(ei/

11. 404P1|#fi/(eTs"KPi/#
i/zID(fT>ZzDA;O:

218 Query/400 D9C V4R5


T>(f
i/ . . . : YOURLIB/KJOQRY (fmH . . . . . . . : 117
(;=(P) . . . . . . . ______ F;=P . . . . . . . . . . _____
P ....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
LASTNAME FIRSTNAME ADDRESS1 ADDRESS2
000001 SIMPSON FRANK 1722 ORANGE STREET
000002 DAYE BEN 1312 ELM STREET APT C
000003 SEDGEWICK LILLIAN 200 PARK LANE
000004 LIEN SUE 469 JACKSON STREET
000005 PATTERSON TAMMY 4 RIDGEVIEW COURT
000006 SKOGGEN LINDA CIRCLE COURT NE
000007 SEDGEWICK LEONA 21ST CANNERY ROW APT 43
000008 BARKER RICK 1432 LE GRAND BLVD
000009 GOLINERO SEBASTIN 7196 THOMAS STREET
000010 SKOGGEN CHARLES 401 ABBEY ROAD
****** ******** (fax ********

W?
F3=Kv F12=!{ F19=rs F20=rR F21=Vn F22=mH

(fP>D~ NAMEADDR PDyPE"#K}](|(Pjb)G9C IDDU (e


=53D#

4 F20(R)i4(fDR`#
12. 4 F3(Kv)#T>09Ci/1A;#
;uE"T>ZA;W?,7OQI&&mKi/#

9Ci/

dk!n,404P1|#

!n . . . . . . . . _ 1=4(,2=|D,3=4F,4=>}
5=T>,6=r!(e
8=z&mKP 9=KP
i/ . . . . . . . . KJOQRY {F"4 F4 qCPm
b . . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{


i/!n&mI&jI#

Query/400 i/70:|Di/
g{z#{(f;|(S!Z7W92G]DM',h*|Di/TcvP>G;]
DM'#
1. Z09Ci/1A;OT!na>dk 2(|D)
#

=<B. 709C Query/400 i/ 219


2. g{ xxxQRY ;PT>*i/{,Ti/a>dk xxxQRY(dP xxx GzDU{
u4)#
3. g{b{;GQT>Db{,Tba>dkzZH070P9CDb{#

9Ci/

dk!n,404P1|#

!n . . . . . . . . 2 1=4(,2=|D,3=4F,4=>}
5=T>,6=r!(e
8=z&mKP 9=KP
i/ . . . . . . . . KJOQRY {F"4 F4 qCPm
b . . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{


i/!n&mI&jI#

4. 404P1|#T>0(ei/1A;#
5. T!qG<a>dk 1#

(ei/

i/ . . . . . . : KJOQRY !n . . . . . . : CHANGE
b . . . . . . . : YOURLIB CCSID . . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
> 8(D~!q
_ (ea{VN
_ !q"ErVN
_ !qG<
_ !qErVN
_ !q{m3r
_ !q(fPq=
_ !q(fc\/}
_ (e(f8V
_ !qdv`MMdvq=
_ 8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!

6. 404P1|#T>0!qG<1A;#

220 Query/400 D9C V4R5


!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
W?

VN D> Len Dec


LASTNAME U 15
FIRSTNAME { 10
ADDRESS1 X7DZ 1 P 20
ADDRESS2 X7DZ 2 P 20
CITY GP 15

F3=Kv F5=(f F9=ek F11=vT>{F


F12=!{ F13=<V F20=Xi F24=d{|

D~ NAMEADDR PDVNP>ZKA;DW?# (g{zDA;;G%PPmq=,


4;T>D>"Len M Dec a>,r4 F11#
)I+bjF=PmPDNN;C,
"40B31|i4|`VN{#
7. jIA;ODVN"bTM5P,gBy>:

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


STATE EQ 'LA'
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
____ ______________ _____ ______________________________
W?

VN D> Len Dec


LASTNAME U 15
FIRSTNAME { 10
ADDRESS1 X7DZ 1 P 20
ADDRESS2 X7DZ 2 P 20
CITY GP 15
PP...
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

bf_ Query/400 bT?vG<P STATE VND5Gq* LA#;P|,C5DG


<E|(ZzD(fP# (g{zZ9C(;S(53Er3rmr *HEX,7#+
|dk* 'LA',r*2Ef_KLr LA GCVN|,DZ]x;GVN{#9X
kT+s4V8dkK5,r*bGZVNP8(|D==#g{zT}]bP
}]Ds!4PIJ,&9C2mS(m#)
8. 4 F5((f)KPi/"T>(f#F5 ICzZ5J#f|D.0,i4i/|
DT(fD0l#
(fvT>Z7W92G]DM'(TBA;;T>(fD s_?V):

=<B. 709C Query/400 i/ 221


T>(f
(fmH . . . . . : 117
(;=P . . . . . . . . . ______ F;=P . . . . . . . . _____
P ....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
LASTNAME FIRSTNAME ADDRESS1 ADDRESS2
000001 SEDGEWICK LILLIAN 200 PARK LANE
000002 SEDGEWICK LEONA 21ST CANNERY ROW APT 43
000003 BARKER RICK 1432 LE GRAND BLVD
****** ******** (fax ********

W?
F3=Kv F12=!{ F19=rs F20=rR F21=Vn F22=mH 80

9. 4 F20 T>(fDR_?V#

T>(f
(fmH . . . . . : 117
(;=P . . . . . . . . . ______ F;=P . . . . . . . . _____
P ....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
ADDRESS2 CITY STATE ZIP AMOUNT
000001 EMMERSON LA 71282 .25
000002 APT 43 EMMERSON LA 71282 .45
000003 VD EMMERSON LA 71282 9.38
****** ******** (fax ********

W?
F3=Kv F12=!{ F19=rs F20=rR F21=Vn F22=mH 80
(fDns;P#

10. 4 F3(Kv),F12(!{)r404P1|5X=0!qG<1A;#;s4 F3
(Kv) #T>0KvKi/1A;#

222 Query/400 D9C V4R5


KvKi/

dk!n,404P1|#

#f(e . . . . . . Y Y=G,N=q

KP!n . . . . . . . 1 1=;%=KP
2=z&mKP
3=;KP

TZ#fD(e:

i/ . . . . . . . . KJOQRY {F
b . . . . . . . YOURLIB {F"4 F4 qCPm

D> . . . . . . P>M'{FMX7

(^ . . . . . . . . *CHANGE *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F13=<V F14=(ei/

I9CKA;KPzQvK|DDi/#2I!q9i/|DI*@CTDrv
Tb;NP'#r*zI\;Yh*vP>7W92G]M'D(f,2mz^
hv@C|D#xRr*zQ9C F5 KPKi/"4=(f,z;#{YNKP
Ki/#
11. nd0KvKi/1A;,gBy>:

KvKi/

dk!n,404P1|#

#f(e . . . . . . N Y=G,N=q

KP!n . . . . . . . 3 1=;%=KP
2=z&mKP
3=;KP

TZ#fD(e:

i/ . . . . . . . CEBQRY {F
b . . . . . . . YOURLIB {F"4 F4 qCPm

D> . . . . . P>M'{FMX7

(^ . . . . . . . . *CHANGE *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F13=<V F14=(ei/

12. 404P1|#T>09Ci/1A;#

=<B. 709C Query/400 i/ 223


9Ci/

dk!n,404P1|#

!n . . . . . . . 1=4(,2=|D,3=4F,4=>}
5=T>,6=r!(e
8=z&mKP 9=KP
i/ . . . . . . . CEBQRY {F"4 F4 qCPm
b . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{


i/!n&mI&jI#

*"z53r*G Query Dm~9C|,4 F3(Kv)5X=!q9C Query D


p<K%#

Query/400 i/70:4(_6i/
ZTB>}P,9C0T>Ts5w1(DSPOBJD) |n4({* QRYFILE DD~#K
D~|,10$tZ QGPL bPDyPTsD5w#;s,9C8v Query D(e=
h!n,4(;vS QRYFILE qCE""4(T>CE"D(fDi/(e#

": K>};bM DSPOBJD |n0dN}#PXd{E",N{;i#


1. Z0AS/400 wK%1D|nPO,4TBA;y>dk DSPOBJD |n,;s4
04P1|#b+4({* QRYFILE DD~"+|Ek QGPL bP#

": 1* OBJTYPE N}dk *ALL 1,XkZ *ALL .st;vUq,qr+U


=vmE"#Xkj+4UTBA;T>Dq=dk{v|n#

224 Query/400 D9C V4R5


wK% AS/400 wK%
53: RCH38342
!qBPdP;n:

1. C'Nq
2. l+RNq
3. ;c53Nq
4. D~"bMD~P
5. LrhF
6. (E
7. (er|D53
8. Jb&m
9. T>K%

90. "z

!qr|n
===> DSPOBJD OBJ(QGPL/*ALL) OBJTYPE(*ALL ) OUTPUT(*OUTFILE) OUTFILE(QGPL/QRYFIL
E)
F3=Kv F4=a> F9=lw F12=!{ F13=C''V
F23=hCu<K%
(C) COPYRIGHT IBM CORP. 1980, 1991.

2. Z|nPOdk WRKQRY,;s404P1|#

wK% AS/400 wK%


53: RCH38342
!qBPdP;n:

1. C'Nq
2. l+RNq
3. ;c53Nq
4. D~"bMD~P
5. LrhF
6. (E
7. (er|D53
8. Jb&m
9. T>K%

90. "z

!qr|n
===> WRKQRY

F3=Kv F4=a> F9=lw F12=!{ F13=C''V


F23=hCu<K%

#;sZi/a>Pdk;
3. T>09Ci/1A;#ZCA;O!q!n 1(4()
v{F,"Zba>Pdk;v{F,8(f"zDi/Db#404P1|#

=<B. 709C Query/400 i/ 225


9Ci/

dk!n,404P1|#

!n . . . . . . . . 1 1=4(,2=|D,3=4F,4=>}
5=T>,6=r!(e
8=z&mKP 9=KP

i/ . . . . . . . . QNAME {F"4 F4 qCPm


b . . . . . . . YOURLIB {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{


(C) COPYRIGHT IBM CORP. 1988, 1991

4. Z0(ei/1A;O,(}Z?v(e=hsfdk 1,!q(e=h:!q"
ErVN"!qG<"!qErVN"8((fPq="!q(fc\/}M(
e(f8V#("b8(D~!qQ-*z!(#)404P1|#

(ei/

i/ . . . . . . : QNAME !n . . . . . . : CREATE
b . . . . . . : YOURLIB CCSID . . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
1 8(D~!q
(ea{VN
1 !q"ErVN
1 !qG<
1 !qErVN
!q{m3r
1 8((fPq=
1 !q(fc\/}
1 (e(f8V
!qdv`MMdvq=
8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!

i/+4UA;PZ0(ei/1A;PDNrT>!qD(e=hA;#
5. Z08(D~!q1A;40(ei/1A;sT>DZ;vA;O,ZD~a
>Pdk QRYFILE,"Zba>Pdk QGPL#I1Mq=a>Q-nC#404
P1|#

226 Query/400 D9C V4R5


8(D~!q

dk!n,404P1|#4 F9 8(=SDD~!q#

D~ . . . . . . . . . . QRYFILE {F"4 F4 qCPm


b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm

F3=Kv F4=a> F5=(f F9=mSD~


F12=!{ F13=<V F24=d{|

vVE"0!qD~,r404P1|7O#1#

8(D~!q

dk!n,404P1|#4 F9 ImS#

D~ . . . . . . . . . . QRYFILE {F"4 F4 qCPm


b . . . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm
I1 . . . . . . . . . . *FIRST {F"*FIRST"4 F4 qCPm
q= . . . . . . . . . . QLIDOBJD {F"*FIRST"4 F4 qCPm

F3=Kv F4=a> F5=(f F9=mSD~


F12=!{ F13=<V F24=d{|
!qD~,r404P1|7O#

YN404P1|#
6. B;vT>DA;G0!q"ErVN1A;#

=<B. 709C Query/400 i/ 227


!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


;s404P1|#

rE VN rE VN rE VN
ODDCEN ODCCEN ODSV02
ODDDAT ODCDAT ODSV03
ODDTIM ODCTIM ODSV04
ODLBNM ODOBOW ODSV05
ODOBNM ODSCEN ODSV06
ODOBTP ODSDAT ODSV07
ODOBAT ODSTIM ODSV08
ODOBFR ODSCMD ODSV09
ODOBSZ ODSSZE ODSV10
ODOBTX ODSSLT ODSVMR
ODOBLK ODSDEV ODRCEN
ODOBDM ODSV01 ODRDAT
PP...

F3=Kv F5=(f F11=T>D> F12=!{


F13=<V F20=XB`E F21=+! F24=d{|

g{zDA;G`Pq=(4,g{D>"Len M Dec P;T>),r4 F11(T


>D>)4T>PXPmPVND3)d{E"#Z?vVNsfdk}V 1 A
5,!qVN ODLBNM"ODOBTP"ODOBAT"ODOBSZ M ODOBTX,gBy>#z!qD
VN+4U8(DNrZi/(fPvV(ODLBNM WHvV,SEG ODOBPT,@
K`F)#

": Xk!qEr+@]DVN#

!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


;s404P1|#

rE VN D> Len Dec


ODDCEN T>@M 1
ODDDAT T>UZ: q=- MMDDYY 6 x
ODDTIM T>1d 6
1 ODLBNM b 10
ODOBNM Ts 10
2 ODOBTP Ts`M 8
3 ODOBAT TstT 10
ODOBFR f"wME:0-4ME,1-QME 1
4 ODOBSZ Tss! 10 0
5 ODOBTX D>5w 50
ODOBLK Tsx(:0-4x(,1-Qx( 1
ODOBDM Tsp5:0-4p5,1-p5 1
PP...

F3=Kv F5=(f F11=vT>{F F12=!{


F13=<V F20=XB`E F21=+! F24=d{|

404P1|#i/XB2EA;ODVN,Tcz!qDVN4z8(DNr
T>ZPmW#9T>0404P1|7O#1E"#

228 Query/400 D9C V4R5


!q"ErVN

**T>Z(fPDn` 500 vVND{FdkrE (0-9999),


404P1|#

rE VN D> Len Dec


1 ODLBNM b 10
2 ODOBTP Ts`M 8
3 ODOBAT TstT 10
4 ODOBSZ Tss! 10 0
5 ODOBTX D>5w 50
ODDCEN T>@M 1
ODDDAT T>UZ:q=- MMDDYY 6
ODDTIM T>1d 6
ODOBNM Ts 10
ODOBFR f"wME:0-4ME,1-QME 1
ODOBLK Tsx(:0-4x(,1-Qx( 1
ODOBDM Tsp5:0-4p5,1-p5 1
PP...

F3=Kv F5=(f F11=vT>{F F12=!{


F13=<V F20=XB`E F21=+! F24=d{|
404P1|7O#

YN404P1|#
7. B;vT>DA;G0!qG<1A;#ZK&8(#{Z(fP|(D)G
<#

!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')

W?

VN D> Len Dec


ODLBNM b 10
ODOBTP Ts`M 8
ODOBAT TstT 10
ODOBSZ Tss! 10 0
ODOBTX D>5w 50
PP...
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

z#{Z(fP|(_P *FILE r *PGM Ts`MDTsDyPG<#ZVN"


bTM5PPdkE",gTBA;y>#]1;*404P1|#

=<B. 709C Query/400 i/ 229


!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


ODOBTP LIST '*FILE' '*PGM'

W?

VN D> Len Dec


ODLBNM b 10
ODOBTP Ts`M 8
ODOBAT TstT 10
ODOBSZ Tss! 10 0
ODOBTX D>5w 50
PP...
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

8. VZ4 F5((f)T>(f#0T>(f1A;vV,T>zDi/(f,|yZ
z=?0*9y(eDi/#(ZA;O4=DE"!vZ10Z53OD QGPL
PDTs#z4=DI\kTBA;PT>D;!`,# )

T>(f
(fmH . . . . . : 100
(;=P . . . . . . . . . F;=P . . . . . . . .
P ....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
b Ts Ts Ts D>5w
`M tT s!
000001 QGPL *PGM CLP 14,336 B & R >} - Z 2 3
000002 QGPL *PGM CLP 16,384 B & R 5} - Z 2 3
000003 QGPL *FILE PF 8,192
000004 QGPL *FILE PF 1,024 1!4}]
000005 QGPL *FILE PF 1,024 1!4}]
000006 QGPL *FILE PF 16,384 1!4}]
000007 QGPL *FILE DKTF 2,560 1!mL}]
000008 QGPL *FILE DKTF 2,560 1!4mL
000009 QGPL *FILE PF 1,024 1!4}]
000010 QGPL *FILE PF 140,288 RSTS36FLR |n
000011 QGPL *FILE PRTF 2,048 1!YQzdv
000012 QGPL *FILE PRTF 2,048 1!YQzr!
000013 QGPL *FILE PRTF 2,048 1!YQzr!
000014 QGPL *FILE PF 38,912 DSPOBJD DdvD~
000015 QGPL *FILE PF 16,384
PP...
F3=Kv F12=!{ F19=rs F20=rR F21=Vn F22=mH 80

ZA;W?DR`,vVPP...E"#bm>(fZ]^(+?T>ZA;O,
rKg{z#{i4(f+?Z],I9C-3|r F20(rR)M F19(rs)
4/@(f(HITSsrR,2ITSO=B)#1i4j(fs,4 F3(K
v)5X=0!qG<1A;#

230 Query/400 D9C V4R5


!qG<

dkHO,404P1|#8( OR Tt/?vBi#
bT: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...

AND/OR VN bT 5(VN"}Vr 'V{')


ODOBTP LIST '*FILE' '*PGM'

W?

VN D> Len Dec


ODLBNM b 10
ODOBTP Ts`M 8
ODOBAT TstT 10
ODOBSZ Tss! 10 0
ODOBTX D>5w 50

PP...
F3=Kv F5=(f F9=ek F11=vT>{F
F12=!{ F13=<V F20=Xi F24=d{|

Z0!qG<1A;O404P1|#
9. B;vT>DA;G0!qErVN1A;#ZK&8(#{ Query 9CD)VN
4+*(f!qDG<Er#g{#{WH4Ts`M,;s4Tss!TG<
Er,rZ ODOBTP Tdk 1,Z ODOBSZ Tdk 2,gBy>#

!qErVN

*`o 32 vVND{FdkErEH6 (0-999) T0 A(}r)


r D(5r),;s404P1|#

Er
EH A/D VN D> Len Dec
ODLBNM b 10
1 ODOBTP Ts`M 8
ODOBAT TstT 10
2 ODOBSZ Tss! 10 0
ODOBTX D>5w 50

W?

F3=Kv F5=(f F11=vT>{F F12=!{


F13=<V F18=D~ F20=XB`E F24=d{|

404P1|#i/XB2EA;ODVN,Tc*Er!qDVN4z8(D
NrT>ZPmW#9T>0404P1|7O#1E"#

=<B. 709C Query/400 i/ 231


!qErVN

*`o 32 vVND{FdkErEH6 (0-999) T0 A(}r)


r D(5r),;s404P1|#

Er
EH A/D VN D> Len Dec
1 A ODOBTP Ts`M 8
2 A ODOBSZ Tss! 10 0
ODLBNM b 10
ODOBAT TstT 10
ODOBTX D>5w 50

W?

F3=Kv F5=(f F11=vT>{F F12=!{


F13=<V F18=D~ F20=XB`E F24=d{|
404P1|7O#

YN404P1|#
10. B;vA;G08((fPq=1A;#ZK&8(Pd`"PjbT0d{(
fq=!n#

8((fPq=

dkE",404P1|#
Pjb: *NONE"TkDD>P

P
VN d` Pjb Len Dec `-
ODLBNM 0 b 10

ODOBTP 2 Ts 8
`M

ODOBAT 2 Ts 10
tT

PP...

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F16=`- F18=D~ F23=$"M

Query *za)\`b`E"#|D ODLBNM VNDPjb,9|T>*b{x;


Gb#

232 Query/400 D9C V4R5


8((fPq=

dkE",404P1|#
Pjb: *NONE"TkDD>P

P
VN d` Pjb Len Dec `-
ODLBNM 0 b{ 10

ODOBTP 2 Ts 8
`M

ODOBAT 2 Ts 10
tT

PP...

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F16=`- F18=D~ F23=$"M

404P1|#
11. z4=DB;vA;G0!q(fc\/}1#(}ZKA;O8(!n,IZ(
fPT!qDVNc\—4TZ!qDVN,zI8(Z(fP|(\F"=y
5"n!5"ns5T0(r)F}#

!q(fc\/}

dk!n,404P1|#
1=\F 2==y5 3=n!5 4=ns5 5=F}

---!n------ VN D> Len Dec


_ _ _ _ _ ODLBNM b 10
_ _ _ _ _ ODOBTP Ts`M 8
_ _ _ _ _ ODOBAT TstT 10
_ _ _ _ _ ODOBSZ Tss! 10 0
_ _ _ _ _ ODOBTX D>5w 50

W?

F3=Kv F5=(f F10=&m/0;A F11=vT>D>


F12=!{ F13=<V F18=D~ F23=$"M

(}ZVNTdk 1 A 5,8(z#{TVN ODOBSZ &CyPc\/}(\


F"=y5"n!5"ns5MF}),gTBA;y>#

=<B. 709C Query/400 i/ 233


!q(fc\/}

dk!n,404P1|#
1=\F 2==y5 3=n!5 4=ns5 5=F}

---!n--- VN D> Len Dec


ODLBNM b 10
ODOBTP Ts`M 8
ODOBAT TstT 10
1 2 3 4 5 ODOBSZ Tss! 10 0
ODOBTX D>5w 50

W?

F3=Kv F5=(f F10=&m/0;A F11=vT>D>


F12=!{ F13=<V F18=D~ F23=$"M

404P1|#
12. B;v*T>DA;G0(e(f8V1A;#ZCA;O8(#{9CD)V
Nw*8VVN#(f8VCZZ?N(f8VVND5|D1+(f.V*8
vG<i#

(e(f8V

*`o 9 vVN{dk8V6 (1-6),;s404P1|#


(T?v8V69Ch*DNb`VN# )

8V Er
6 EH VN D> Len Dec
ODLBNM b 10
10 ODOBTP Ts`M 8
ODOBAT TstT 10
20 ODOBSZ Tss! 10 0
ODOBTX D>5w 50

W?

F3=Kv F5=(f F10=&m/0;A F11=vT>{F


F12=!{ F13=<V F18=D~ F23=$"M

Zs_D8V6PP,*VN ODOBTP dk 1,T8(8V6 1#

234 Query/400 D9C V4R5


(e(f8V

*`o 9 vVN{dk8V6 (1-6),404P1|#


(T?v8V69Ch*DNb`VN# )

8V Er
6 EH VN D> Len Dec
ODLBNM b 10
1 10 ODOBTP Ts`M 8
ODOBAT TstT 10
20 ODOBSZ Tss! 10 0
ODOBTX D>5w 50

W?

F3=Kv F5=(f F10=&m/0;A F11=vT>{F


F12=!{ F13=<V F18=D~ F23=$"M

404P1|#
13. ZB;vA;0q=/(f8V1O,*z(eD(f8V8(Z{Dq=#"
b8V6a>PD5*c#I9C8V6 0 +yP8(Dc\/}DnUc\5r
!Z(fDa2#TZK>},;*ZKA;OvNN|D#;k404P1
|#

q=/(f8V

8V6 . . . . . . . : 0

dk!n,404P1|#
(ZD>Pdk &field Tek8V5#
)

VFc\ . . . . . . . . . N Y=G,N=q

8VD> . . . . . . . . . nU\F

6p VN
1 ODOBTP

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F18=D~ F23=$"M

ZB;vA;O,I4=8V6a>QmO 1#ZK&T8V6 1 q=/(f8


V#Z8VD>a>P,dkTs`MD8VD>#CD>+Z?N"zK8V
6D(f8V1vV#

=<B. 709C Query/400 i/ 235


q=/(f8V

8V6p . . . . . . . : 1

dk!n,404P1|#
(ZD>Pdk &field Tek8V5#
)

xAB3 . . . . . . . . . N Y=G,N=q

VFc\ . . . . . . . . . N Y=G,N=q

8VD> . . . . . . . . . Ts`MD8VD>

6p VN
1 ODOBTP

F3=Kv F5=(f F10=&m/0;A F12=!{


F13=<V F18=D~ F23=$"M

404P1|#

QjIzH0!qDyP(e=h,rK0(ei/1A;YNvV#(zH0!
qD(e=hVZCs`D > {Em>#)

(ei/

i/ . . . . . . : QNAME !n . . . . . . : CREATE
b . . . . . . : YOURLIB CCSID . . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
> 8(D~!q
(ea{VN
> !q"ErVN
> !qG<
> !qErVN
!q{m3r
> 8((fPq=
> !q(fc\/}
> (e(f8V
!qdv`MMdvq=
8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!
!q!n,r4 F3 #frKPi/#

14. VZ4 F5((f)T>(f#0T>(f1A;vV,T>zjIDi/(f#(Z


A;O4=DE"!vZ10Z53OD QGPL PDTs#z4=DI\kTBA
;PT>D;!`,# )

236 Query/400 D9C V4R5


T>(f
(fmH . . . . . . . : 104
(;=P . . . . . . . . . F;=P . . . . . . . . . .
P ....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
Ts Ts Ts Ts D>5w
{ `M tT s!
000001 QGPL *FILE PF 1,024 1!4}]
000002 QGPL *FILE PF 1,024 1!4}]
000003 QGPL *FILE PF 1,024 1!4}]
000004 QGPL *FILE PF 1,024 1!4}]
000005 QGPL *FILE PF 1,024
000006 QGPL *FILE DSPF 1,536
000007 QGPL *FILE PRTF 2,048 1!YQzdv
000008 QGPL *FILE PRTF 2,048 1!YQzr!
000009 QGPL *FILE PRTF 2,048 1!YQzr!
000010 QGPL *FILE TAPF 2,048 1!Ex}]
000011 QGPL *FILE TAPF 2,048 1!4Ex
000012 QGPL *FILE DKTF 2,560 1!mL}]
000013 QGPL *FILE DKTF 2,560 1!4mL
000014 QGPL *FILE PF 8,192
000015 QGPL *FILE PF 8,192
PP...
F3=Kv F12=!{ F19=rs F20=rR F21=Vn F22=mH 80

ZA;W?DR`,vVPP...E"#bb6E(fD+?Z]^(T>ZA;
O#9C-3|r F20(rR)M F19(rs)/@(f(SsrRMSOrBy
I),Ti4(fPD8VMc\#

1i4j(f1,4 F3(Kv)5X=0(ei/1A;#

(ei/

i/ . . . . . . : QNAME !n . . . . . . : CREATE
b . . . . . . : QGPL CCSID . . . . . . : 37

dk!n,404P1|#4 F21 !q+?#


1=!q

Opt i/(e!n
> 8(D~!q
(ea{VN
> !q"ErVN
> !qG<
> !qErVN
!q{m3r
> 8((fPq=
> !q(fc\/}
> (e(f8V
!qdv`MMdvq=
8(&m!n

F3=Kv F5=(f F12=!{


F13=<V F18=D~ F21=+!
!q!n,r4 F3 #frKPi/#

4 F3(Kv)
#
15. T>0KvKi/1A;#g{;#{#fi/rYNKP|,ZKA;O+ #
f(ea>|D* N(q),+KP!na>|D* 3(;*KP)#

=<B. 709C Query/400 i/ 237


KvKi/

dk!n,404P1|#

#f(e . . . . . . . N Y=G,N=q

KP!n . . . . . . . 3 1=;%=KP
2=z&mKP
3=;KP

TZ#fD(e:
i/ . . . . . . . QNAME {F
b . . . . . . . QGPL {F"4 F4 qCPm

D> . . . . . . .

(^ . . . . . . . *CHANGE *LIBCRTAUT"*CHANGE"*ALL
*EXCLUDE"*USE
Z(m{

F4=a> F5=(f F13=<V F14=(ei/

404P1|#
16. 09Ci/1A;vV,T>E"0i/!n&mI&jI1#

9Ci/

dk!n,404P1|#

!n . . . . . . . . 1=4(,2=|D,3=4F,4=>}
5=T>,6=r!(e
8=z&mKP 9=KP
i/ . . . . . . . . QNAME {F"4 F4 qCPm
b . . . . . . . . QGPL {F"*LIBL"4 F4 qCPm

F3=Kv F4=a> F5="B F12=!{


i/!n&mI&jI#

VZI4 F3(Kv)axK>},5X=0AS/400 wK%1


#

238 Query/400 D9C V4R5


=<C. Query/400 T\a>k<I
>=<a)Dx Query/400 z7T\D8O#b)8OPzZz|CXmb Query g
N$wT0ZhFr|Di/1*<GD)X|DT\Jb#

>=<;V[yP`MDi/,x;Ga)PzZKbZ AS/400 53OKPDs`}


i/Da>k<I#h*7(D)a>M<IJCZzT:DX(i/#

>=<PDE"V*BP8Z:
v i/&mi\
v D~(eM}]
v (ei/
v 9C,SKc
v d{a>M<I
v i/4,E"

Query/400 i/&mi\
i/&m|(BPWN:
v i$i/"@@lwksD}]DnQ=(
v TK}]4Pdk/dv (I/O)
v TksDq=T>C}]

i/-#;f4PTOWNTa)I\DnLl&1d#

ZKPi/DZ;WN4E/WNP,Query 7(&mi/Dnl==#zz;vf!
F.,"9C|4Pi/D5J I/O#

E/|(D~s!"!qbTMErbTHrX#;},E/M I/O Dw*T\*XG


Ti/!qDD~9C|X3rf!76#

Query/400 PD|X3rf!76
|X3rf!76hvA!}]bD~PDG<DNr#9C04(_-D~1
(CRTLF) |n"Z}]hv5w (DDS) P8(X|V44(f!76#

ZE/Zd,Query 9CVfD|X3rf!76,TqCi/+5XDs<G<}#
E/>mh*KE"#xR,gPI\,Query 9CVfDf!7644PXhD I/O#
!vZ_eiv,Query I\!q9(Y1f!764jIi/ks#

g{;PVfDf!76,Query XkA!?vD~PD?vG<,7(CG<Gqz
ci/PD5,r_9(;uY1f!76(Yg Query h*D0)
#b)!nI\s
?{D&m%*"I/O Mf"w,"I\<BO$Dl&1d#

© Copyright IBM Corp. 2000 239


": _PVfDf!76\X*,r* Query 4(DY1f!76G;#fD#XkZ
?NKPX(Di/14(|#

Z Query/400 P!q/T%f!76
9C CRTLF |n"Z DDS P8(!q/T%bT44(f!76#

8(!q/T%bT,T9|G%d;vr`vi/PD?Vr+?!qbT#8(
VfDf!76IDxT\,r* Query ;XYiRr9(ICDf!76#

9C!q/T%f!769IZ!(ei/D1d,r*Zf!76P8(D!qM
ErbT;h*Zi/(ePX4#

":

49;PZi/>mD8(D~!q?VPXpa=!q/T%f!76,i/
TI9C|#;},g{!q/T%f!76GC DDS PD0/,!q1
(DYNSLT) X|V4(D,rkG!q/T%f!76`HT\4qDF#

g{!q/T%f!76G!qj<D,/,rI9C|#}g,g{!qj<
8(KYw76 'X GT 45' RfZ;u!q/T%f!76(_-D~),|P!
q 'X GT 40',G4KVfD_-D~I\;E/w!P#

Z Query/400 P4(f!76D<GBn

"GyPf!76<IIyPi/9C,rK&4(-#9CDf!76,y=-#
9CG8IKPs?FcD;vi/9C,r_II2m,;uf!76D8vi/
9C#*7( Query I9CD)f!76T0gN(ei/TDxT\Dd{;ca
>,N{Z2423D:(e Query/400 Di/;#

4(n!}?Df!76\X*,-rgB:
v T}]bPVNDNN|D2+<B|BCVN|XDyPf!76#s?Df!
76+OX0lT\#
v g{s?f!76kD~;p#f,8]k4-1dI\ssvS#

>Z}a)a>.b,9P=v;cT8O,PzZz7(GqITX(D~9Cf
!76:
v g{i/ZD~P!qDG<},}\}D 20%,(#|;TCD~9Cf!76#
|+3rf!G<#;},g{Ci/|,ErbT,I9CVfDf!76,r
4(Y1f!76(49 20% D8>Gf5D)
#E/w;c!q9C3rA!DG
<x;Gf!7645VEr#
v i/;c;T!D~4(M9Cf!76#d;K&y8D:!;(e*Ps< 1000
vG<DD~,+b";Gfr,;G;cT8O#+G,g{i/PfZErb
T,rI9CVfDf!76,r_*CD~4(;uY1f!76#E/w;c
!q9C3rA!DG<x;Gf!7645VEr#

Query/400 PDf!F.
1#fi/(e(^[|GBi/(e9G^D}Di/(e)1,43f!}]D
nQ=(Df!F.+ki/(e;p#f#

240 Query/400 D9C V4R5


?NKP#fDi/1,Query (}liZF.P|{DD~Mf!76GqT;fZ
4i$Cf!F.#

g{Cf!F.P',Query 9CCF.f!}]#bI<BT\syHa_(k;9
Cf"Df!F.xKPi/`H),r*ZKPf"Di/1,Query ;Xi$f!
76#;x,g{Ki$v<&m1dD;!?V,G4TZ3)i/xT,T\D
DFI\;G4wT#

g{Cf!F.^',Query +"TiRCZf!}]DnQf!F.,RT\I\\
=0l#

ZTBivB,;9C#fDf!F.:
v 2G|(UZ"1dr1dAG}]Ddvq=
v 2GSA;=r!zr}]bD~Ddv`M,r`4
v 9CH0"PfDi/
v 2GdkD~(OVRDBF |n)
v 9CKPi/ (RUNQRY) |n2GD~!q
v Z_P;,zRoTD53OKP_PoT3r{mDi/#bJCZ0+{m3
rCZyPV{HO1&m!nhC* NO Div#
v KPS(5|DDi/rZKPZ!qD{m3rD CCSID P|DDi/#bJC
Z0+{m3rCZyPV{HO1&m!nhC* NO Div#
v IZ53Lr|D (PTF),OS/400 ?HxPKX(#

": Z3)ivB,1z404P1|#fi/1,#fi/y(1dI\,}$Z
1d,r*53}Z*Ci/(ef!F.#;},;)*i/(eKf!F
.,vpi/l&1dM53\el&1d<IssuL,XpGi/*-#K
P1|*wT#

Z Query/400 P|Bf!F.

*|BQ#fi/Df!F.,TCi/dk|D!n"YN#f|#(^hvNN|
D#
)bJm Query |Bf!76T43yP|D#g{zPs?Q#fi/,bPz
ZKbD)i/\D)f!76|DD0l#byZT;ur`uf!76|D1,
z;X|DM#fyPi/#

;|BQf"i/Df!F.,443TON#fi/T4>}r4(Df!76#
1 Query i$f!F."XBE/1,|+G<b)|D#!\XBE/IR=f!}
]D|C=(,+Zf!F.P;T/|BbV|CD=(#bb6EBNKPCi
/1,+YNxPXBE/,r*f!F.T43#fi/1!qD-<=(#

Query/400 PDD~(eM}]
>ZPv(eD~MD~PD5J}]D<GBn#

Query/400 PDD~(e
"b AS/400 53OD}]bD~ZD}VVN(eG9Cx;.xFq=9G9u.
xFq=#AS/400 539C9u.xFq=4PcuKc#

=<C. Query/400 T\a>k<I 241


Z9u.xFq=P,=v};f"Z}M;VZbDd{?vVZP#M;VZD
M;D;}|,}VD{E#}g,9u.xFq=m>D +123 D~xFm>* 0001
0010 0011 1111#Zx;.xFq=P,};f"Z?vVZDM;D;P#M;VZ
D_;D;|,{E#yPd{VZD_;D;+* 1 (1111)#}g,x;.xFq=
m>D +123 D~xFm>* 1111 0010 1111 0010 1111 0011#

g{D~|,(e*x;D}VVN(bZS System/36 (FDD~O\#{),


AS/400 53+b)VNSx;VN*;*9uVNxPcuKc,;s1a{55X=
Lr1Y+|G*;Xx;VN#

1Lr* Query 1,bb6EKP|,x;}VVNDi/h*=SD&m%*1d,


xRI\h*|$Dl&1d#tzXDb=fDT\,&<G+D~*;*9C9
uVNx;Gx;VN#;},*!DwKv(,XpGK*;TzDYwPXs0
l1#

Z AS/400 53O4(BD~1,+}VVN(e*9uVN,Rb)VND$Hh*
f}vV{#g{VND$H*<},+;9CVNPZ;vVZD0D;,+53
TlibD;T7#4"zgv#g{VN*f}$H,r;xPKli#1}VV
N*<}$H1,53+9C|`D&m1d#

Query/400 DD~}]<GBn
S System/36 (FDD~I\"z.xF}]ms#System/36 &CLrP1Z}VV
NPEkUqx;G0<c(Z AS/400 53O&m1b)Uq<Bvm) #&j6"#
}.xF}]msTqCnEDi/T\#PXji,N{:(e Query/400 Di
/;#

I9C AS/400 53ICD Programmer’s Tool Kit PRPQ 4j6"#}}VVNms#


CK$_dVvr#}DD~XkGb?hvD}]bD~#7##}KyP&CL
r(XpGS System/36 (FDG)D~),9|G;YLxekxPK`msD}
]#

(e Query/400 Di/
>Za)Z%v}]bD~O(er|Di/Da>M<I#f0`vD~DYwZ
Z2473D:Z Query/400 P9C,SKc;Pv#

>ZPDE"k0(ei/1A;`X#PXji,N{Z303D:Z(e Query/400
i/1!q(e=h;#

hFr|Di/1D Query/400 T\
ZhFr|Di/1,4BP==.;i4i/Da{:
v Z0(ei/1A;O4 F5((f)KPCi/,"T>$(D(fa{#
v Z0(ei/1A;O4 F13(<V)i4<VD>},|(Pjb"y>j8G
<"NN(f8VD>T0*Ci/(eDNNc\/}#

242 Query/400 D9C V4R5


": !?`9C F13 x;G F5,r* F5 h*|`D&m%*1d M I/O,xR;c
H F13 h*|`D&m1d#Z=VivB,Zi4a{1<9Cdv`M!n 1
(T>) #

*K|lXS;vA;P;=B;vA;,!?;*i4xD>DPm#*lw?v
VNDD>,i/+9CnbD&m%*1d,9I\9C3) I/O#Kb,T>?v
VNDD>+9?vA;OIT>DVN}|Y,byh*/@|`A;4lwzh
*i4DVN#i/"D~"I1Mq=Pm2,yfZbViv#

Z Query/400 P(ea{VN
4SsrRDNrSOru%jGDVx1d#bI\<B;,a{#}g,SO 1
MONTH + 1 DAY I\C=kSO 1 DAY + 1 MONTH j+;,Da{,}g:Jan 28 + 1
DAY + 1 MONTH C=Pda{ Jan 29,nUa{ Feb 28# Jan 28 + 1 MONTH +
1 DAY C=Pda{ Feb 28,nUa{ Mar 1#

+}Va{VN(e*f}$HxG<}$H,I5M9Cb)VN1y(D53&
m%*1d#PXji,N{Z2413D:Query/400 PDD~(eM}];#

\b(e9C;c}Da{VN#d;53I&m_PbVivDi/,+?v;c
}Kc<B53xPms&m,b+s?{D&m%*1dM\el&1d#

\b(e<BgvivDa{VN#1VN$Zd8(D$H1,+"zgv#1"
zgv1,Query Z(fOC ‘+’ V{T>b)a{VN#

\b(ed$V{VN#9C}V#?m> SUBSTR /}D;FM$H#

Z Query/400 P!q"ErVN
K!nJmzXFD)VNvVZ(fP,T0vVZ(fG<ZDN&#*@9 Query
xP;X*DEL I/O,v!qyhDVN#xR,nbD;X*VN9(fIATO
n#g{#{9Cs`}VN,9C F21(+!)T>yPVN,;sSG)VNP>
}z;k*DrE#

": g{4!qNNVN,Query/400(w*1!!q)+SCD~Pn`!q0 500 v


VN#&\bK`Yw,r*|zz;X*DEL I/O#

\b9Cd$VNMIUVN#b=VtT<h*=S&m#

(*Z IBM OfficeVision D5P9CxhFDi/GK&Z!J4DOC!q#;Vc


rI\G(eb)i/T5XyPVN,;s!qXhD}]D>M}]VN5w4
XFZD5P9CD)VN#m;Vl(G"T(ei/,Tv!qD59CDG)
VN#,y*KZ!J4,(evc\i/Tv!qEr"8VMc\/}VN#

Z Query/400 P!qG<
9CkVff!76DX|VVN%dDVN8(G<!qbT,r4(k-#9C
DG<!qbT%dDf!76#g{G<!qbTPAYP;?Vk3Vff!7
6DWvX|VVN%d,Query +T<9CCf!76#

=<C. Query/400 T\a>k<I 243


}g,YhP;vD~ X PVN A"B"C M D#KD~P;uf!76,|9CX
|VVN A"B M D("4KNr)#TZxP9CVN A DG<5DNNi/,
Query <G9CKf!76#;},g{G<!q;|,VN A,r;9CKf!7
6#}g,g{G<bT* A EQ 3,I9CKf!76#g{i/|,DG<!qbT
v,PVN B r D(}g,B EQ 5 r D EQ 8),r;\9CKf!76#

g{|`D!qbTk,;f!76PD|`X|VVN%d,T\+C=Dx#b
Jmf!76uY!qDG<}#}g(YN9CD~ X),g{G<bT* A EQ 3
AND B EQ 5 AND D GT 8,I9Cf!76iRkyP}v5%dDG<#

": g{;Pk3)G<!qbT%dDVff!76,Query +;av*!qx9(


f!76#Query A!?vG<"!q{O*sDG)G<#

g{z-#ksX(Di/,<G9CkCi/%dD!q/T%bT4(f!7
6#PXKwbDji,N{Z2403D:Z Query/400 P!q/T%f!76;#

VfDf!76vCZf0Z!qbTP8(D`,VND OR u~#

;VG<!qG9C % {EM LIKE Kc{w*`tQwr(h(2F*(d{(


h)#g{`t(hSVNDZ;P*<(}g %ABC),Query ;\TG<!qDG
?V9CNNVfDf!76#;},g{`t(hGSZ;P.s*<(}g
ABC%),Query ITZK`G<!qP8(DVN9CNN{O*sDf!76#

Z Query/400 P!qErVN
Zs`}ivB,18(ErVN1,Query h*f!764T!qDG<Er#g{
f!76;fZ,Query aZKPZ4(Y1f!76,r9CEr4+G<(r#1
E/w7(Er}PLrIa)|CDT\1,r9CEr}PLr#g{9CKY
1f!76,Zi/QjIKPs+>}|,rKi/D?NKP<h*YN9(f
!76#IZK-r,&<U<GCi/Gqf}h*ErVN#

<G*z-#9CDi/T0f!769(1d,$Di/4(kErbT%dDf
!76#g{i/DyPErVNkf!76D_;X|VVN%d,i/+T<9
CVfDf!76#byzI\b*9CErbTDi/9(}`Df!76#

}g,YhD~ Z PVN A"B"C M D#YYhKD~Pyuf!76,_P4T


BNr8(DBPX|V:
1. f!76 #1 PX|VVN A
2. f!76 #2 PX|VVN A M B
3. f!76 #3 PX|VVN A M C
4. f!76 #4 PX|VVN A"B M C
5. f!76 #5 PX|VVN B"A M C
6. f!76 #6 PX|VVN A"B"C M D

VZg{KP(e*y]X|VVN A"B M C ErDi/,ZE/Zd Query ;


<Gf!76 #4 M #6#;9Cf!76 #1"#2 M #3,r* Query YNA!b)
G<"y]=SX|VErD'J;_#Query 9("9C|,yPErM!qbTD
f!76+|P'J#;<Gf!76 #5 Gr*ErX|VNr;}7#

244 Query/400 D9C V4R5


g{-#ksX(Di/,&<G9CkCi/%dD!q/T%bT44(f!7
6#PXKwbDji,N{Z2403D:Z Query/400 P!q/T%f!76;#

g{P-#9CDErbT,m;v!n(}4(f!76b)G9C Query 4Z{D


Nr+}]bD~PDG<Er#g{i/Z0REr3rkD~P`,D}],r
I;9CErbTTKD~KP Query#*4PK&\,SD~P!qZ{DErVN,
!q}]bw*dvh8(0!qdv`MMdvq=1A;OD!n 3),;s8(
dv}]bD~{,C{FXk;,ZdkD~{r-<D~{#b+zz|,Er
G<DB}]bD~#zzErG<yhD1dI\w;`,,b!vZ Query GqX
k9(f!7644PEr#

4PK`Yw.0*<GBPBn:
v T-<D~DNN|D;aT/43ZErD~P,}Gz{C3V=S,$4x
P#IZK-r,zI\#{+K!nD9Cv^ZG);#|DDD~#
v g{ZErD~PD4ErVNO9(f!76,Query 9CKf!76+<BG<
44ErDNr5X#}GZCD~PDErVNO9(f!76,qr&^FZ
ErD~O9(f!76#

gPI\,\by](eDa{VNEr#KKcI\a5MT\,r* Query Xk9


(f!764zcKVks#

Z Query/400 P!q{m3r
9CK!n8(f;{m3r#}g,zI\#{|Di/,TcyP!4V8EZ
s4V8.0#g{8(f;{m3rxi/|,V{ErX|V,r Query ;\9C
Vff!76,xRXk9(f!7644PEr#

": 9Cf;{m3r;0l}V"(;= DBCS"<N DBCS"UZ"1dr1dA


GErVN#

9Cw5KP{m3r!nIni/(QO$1dKP#

g{;h*{m3r,r;*9C|#g{i/v|,}VVN,+G.yxFD1
!{m3r|D*.yxF#

(;S(Er3rmI\h*H2mS(m|YD&m,r*TZ;f0@@`TN
rDHO,IvT|#

Z Query/400 P8((fc\/}
f!76^zZDxc\/}DT\,rK;Xv*K`M/}x<G4(f!7
6#;},g{Zi/P8(K!qrErbTT0c\/},kb)5%dDf!
76I\PzZDxi/D\eT\#

| g{zl$Z AS/400 53O9C DB2 UDB AS/400 fLr,I<GT Query c\


| /}9C DB2 UDB AS/400 fS<#DB2 UDB AS/400 fLrJmz+c\/}&
| CZD~PDVN44(S<#}g,I9(;v DB2 UDB AS/400 fS<4|,D
| ~PVND\Mk=y5#DB2 UDB AS/400 fS<DT\EcTZ Query c\/}
| G#wT,XpGZuLl&1d=f#*9CS<,8(S<D{Fw**!qD
| D~#

=<C. Query/400 T\a>k<I 245


Z Query/400 P!qdv`MMdvq=
g{zvh*i4c\G<,Z0!qdv`MMdvq=1A;O8(Kn#b+
{}/@j8G<y(D;X*D1d#

g{vTi4i/a{DZ;vA;r0~vA;PK$,I!qi4dv=A;x
;G=r!zr}]bD~Da{#Query !la)}]DZ;vA;,rKS$w>
Oi4;vA;;cHH}i/zIdv=r!zr}]bD~DyPa{*lC
`#

;},g{#{i4D}]ZyQwG<D)2,I\*(H$Z|$D1d4T>
G)G<#g{=S}];ZD~\?sD?V,1rB-3f!|`}]1(49
Z;vA;\lT>)2h*H$Z|$D1d#g{ Query Zlw}].0Xk9(
sDf!76,r*(QO$1dE\4=Z;vA;#

*`1>i/8(dv`M 1(T>)Mdvq= 1(8Z)


#*Pmi/8(dv`M
2(r!z)#

Z Query/400 P8(&m!n
08(&m!n1A;ODX|!nGGqvT.xF}]ms(PX.xF}]m
sD5w,N{Z2413D:Query/400 PDD~(eM}];)#g{vT.xF}]
ms,r Query ;\9CCD~DNNVff!76,xRg{i/h*D0,Xk9
(;uf!76,"Rh*=S&m4&mP.xF}]msDNNVN#

g{;vT.xF}]ms,Query Zv=.xF}]ms1r#9&m#;},g{
Query Z&mZd;Pv=NN.xF}]ms,|I9CVfDf!76"}#KP#

": T.xF}]msDbV&mv0l9C}VVNDi/#v9CV{VNDi
/;\K!n0l#

18(GqvT.xF}]ms1,PTB!n:
v Y(G)m>vT.xF}]ms#
v N(q)m>;vT.xF}]ms#
v 9 vT.xF}]msVNt*UW,m> Query r!q Y r!q N,b!vZz
KPCi/yZD73#
g{i/Z System/36 73PKP,Query 9C Y,"vT.xF}]ms#g{i
/Z System/38 73r AS/400 73BKP,Query 9C N,;vT.xF}]ms#
r*Z System/36 P<UvT.xF}]ms,rK System/36 739C Y#r*Z
System/36 73P9C Y(1!5)1;\9Cf!76,Yg9C1!5,w73
.dDT\nlI\\s#

zI\#{<G{}.xF}]msT7#I9CVfDf!76,"{}&mb)
msyhD=S&m#9C AS/400 53ICD Programmer’s Tool Kit PRPQ#g{
;\{}!}ms,zI\#{!q Y(rZ System/36 73P9C RUNQRY T+ Y
hC*1!5),9i/KPC|l#49PX*9(BDf!76,b2HoO.
xF}]msh*OYD1d#

246 Query/400 D9C V4R5


Z Query/400 P9C,SKc
|(,SKcDi/PkT\`XDXb<GBn#!\ZK.0PvDT\a>I
\JCZ,SZDvpD~,Query Xk<G|,*,SDyPD~DyP5,;sv
(&mCi/DnQ==#

,SDX|En.;GwD~MND~DEn#wD~G,SP9CDZ;vD~,
xND~GG),S=wD~DD~#

(e,Si/1,I!qTB}V,SKc.;:
!n 1—%dDG<
v1k?v8(DND~<%d1,E!qwD~PD;vG<#
!n 2—9CwD~D%dG<
^[GqkNNND~P%d,<!qwD~PD;vG<#wG<D!q!
vZZ0!qG<1A;O8(D!q/T%j<#v!qzcG)j<Dw
G<#TND~8(D!q/T%j<I\<BwD~PDG<;;!q#
!n 3—9CwD~D;%dG<
v1kyPND~<;P%d1,E!qwD~PD;vG<#

TZ!n 2 M!n 3 ,S,DvD~P>*wD~T0DvP>*ND~TZi/z


zDnUa{\X*,r*Tb)D~D;,(rIzz;,Da{#;},T!n 1
xTNr";X*,r*^[D~DNruyzzDa{<`,#

1<G Query gN4P,S1,bVxp\X*#IZZ!n 1 ,SPD~DNr;


X*,KPK`i/I<B Query !qD~D;,(r,TcZKPZqC|QDT
\#}g,g{i/(eD~ A *wD~x(eD~ B *ND~,G4g{D~ B
*Ci/a)D\eT\|C,ZKPZ Query I\5Jv(9CD~ B w*wD~#
;},Z!n 2 M 3 P,Query ^(XB2ED~DNr,r*b+zz;,Da{,
rKwD~MND~<U#Vi/(ePyP>DGy#

": d; Query I!qZKPZT!n 1 ,SXB2ED~Nr,+ Query S;Dd


5JDi/(e#

Query/400 P,SKcDT\a>
TZyP,SKc,Query h*T,SPD?vND~9Cf!76#g{;PICD
f!76fZ,Query Zh*1a9(|G#rK,g{X(D,Si/-#KPr_
8v,Si/9C`,DErr,S!qbT,<G9(kb)5%dDf!76,
by Query ^h?NKPi/1<*9(f!76#

": Query ;h*wD~Df!76,}GSCD~!qKErVN#

9(f!764%dz-#9CD,S!qbTG#X*#f!76&1kSND~
P!qDVN%d#}g,g{,S!qbTG T01.A EQ T02.A,rh* T02.A Df
!76#TZ!n 1 ,S,Query I\v(*;D~DNrxR2Z?*;,S!qD
NrT%dBNr#ZbVivB,I\;9CH04(Df!76#;}TZ!n 2
r!n 3 ,S,Query ;*;D~DNr,rKkND~OD,S!qbT%dDVf
f!76&1TC,SGI9CD#

=<C. Query/400 T\a>k<I 247


TyP*,SDD~9C!I\`DG<!qM,SbT,TuY+S,SKczz
DG<}#b++suYKPi/yhD I/O }?#

gPI\,&^FZ08(gN,SD~1A;O9C *ALL#g{9C *ALL,zz


D,SG<}I\G#s#}g,g{9C *ALL +|, 2000 vG<DD~kP 3000
vG<DD~,S,nUa{+G 6000000 v,SDG<#+h*s?D I/O,<B\
$Dl&1dM\e53T\;(LHD5M#

Z08(gN,SD~1A;O9C :NE; HO;,D~DVN1*!D#bI\<


B!qs?DG<"4Ps?D I/O#

1D~4Sn!=nsEr1,i/KP'Jn_#ZKivB,n!b6ESKD
~P!qnYDG<CZ,S#!\bI\GPnYG<DD~,3)ivB2I\
9C;v\sDD~(YgSCD~;!qK8vG<)#

TZ!n 1 ,S,Query T<4Sn!=nsDNr+D~Er,b!vZS?vD~


P!qDG<}#TZ!n 2 r!n 3 ,S,4KNrP>D~TqC|_'D&m#

TZ!n 2 r!n 3 ,S,9C,SMG<!qbT,!?9WHP>DD~!I\


!#}g,g{,S!qbT* T01.A EQ T02.A AND T02.A GT 100,+||D* T01.A
EQ T02.A AND T01.A GT 100 +|P'#TZ!n 1 ,S,TyPD~&C!I\`
D!qbT,r*z^(7( Query +!qD;vw*wD~#

g{XkS`vD~P*!n 1 ,Sr*!n 2 r!n 3 ,SPDND~8(Er


bT,,19CG<!qbTM,S!qbTdC\X*#!qDG<}=!,*E
r*4F=Y1D~PDG<=Y,rxIZ!&m%*"I/O Ml&1d#

g{Z,SsD~1v=OXDT\Jb,"T\bK`Yw,r9C!qbTTu
Y*,SDG<}#

g{h*,SsD~RI9CG<!qbT,kTh*G<!qD;vr`vD~K
P Query,"+dvEk;v}]bD~(Z0!qdv`MMdvq=1A;OD!
n 3)
#9CKdvD~kd{D~,S#;},K=(I\<B9C:I;}],r*
=}]bD~Ddv=9CKD~D,Si/KP1,I\QI*If>#xR,r
*KdvD~;Pf!76(}G9(|G),g{h*,Query XkZKPZ9(;
v#

Query/400 Dd{a>M<I
>ZPv<Z(zz9C Query Dd{a>M<I#

Query/400 Dz&m
<Ga;G)z;"Lh*da{Di/xPz&m#}g,zITsE9CDr!
(fDi/\JOa;xPz&m#b9zDUKI4Pd{Nqx;XH}i/j
IKP#xR,g{a;;v(#9Cs?J4Di/xPz&mx;G;%=K
P,-}J1w{D53IT|CXZ`vw5.d=b53J4(&m%*1d"
f"w"I/O)#

a;i/xPz&mD=h!vZzKPD73#Z System/36 73P,S QRYRUN


Da>A;4 F6(Ekw5SP)a;i/xPz&m#Z8(r!zrELw*dv

248 Query/400 D9C V4R5


`M"404P1|s,I4K|#g{z;Z System/36 73P,9C0a;w51
(SBMJOB) |na;|,0KPi/1(RUNQRY) |nDz&mw5#S AS/400 5
3,C09Ci/1r0KvKi/1A;a;i/xPz&m#N{Z2513D:=
<D. @9C';%=KP Query/400 i/;#PXb)|nDji,N{;i#

Query/400 T\w{
J1w{D53H49CT\w{D53a)CC`D{eT\#;},ZJ1w{
53zczDh*1,Pm`rX*<G#PXji,N{ Work Management ;i#
Kb,Performance Tools for AS/400 ;i5wKgN`XMKb{e53T\#N<b
)8OIozDx{e53T\#

gPI\,*\b9(;h*Df!76,&^FX(i/D}?#7(D)i/n
#9C,;s*b)i/4(f!76"#fi/(e#bys`}C'IZKL(
Di//ObYw,l&1dM{e53T\<*CZ?vC'<TX(==KPi
/Div#

^F;PKb Query T\"*@gNnCX9C|DG)KE\9C53OD Query z


7#bI\bIOX0ld{C'DDQJ4DX(i/#ZCBC'9C Query .
0,qXC{G(A>8OTKbKz7#

&<GSVCDD~P}%49CD}],+|GEZ%@#fDD~P#b++s
uY Query QwVCD~r*b)D~9(f!76yhD1dMJ4#

7#+yPICDT\ PTF &CZ>53#b;v|(1S&CZ Query D PTF,9


|(I\2JCZ{e53T\Dd{ PTF#

"bZwT==BT>DT\E/E"(KPi/.09C STRDBG)
#b)E"I\
PzZz7(gN|Di/(eT9|KPC|l#

Query/400 (F<GBn N A N-1


1i/4(|(UZ"1d"1dAG"d$rIUVND}]bD~1,hC;;
T8wCD~;\CZf> 2 "Pf 1 ^)f 1 .0D"PfP#1i/4(|(
<N DBCS VND}]bD~1,hC;;T8wCD~;\CZf> 2 "Pf 2 ^
)f 0 .0D"PfP#
":
1. g{ZHZf> 2 "Pf 1 ^)f 1 D"PfOKP|,UZ"1dr1dAG
}]`MDi/,I\"zBP=Viv.;:
v ;P!qNNG<
v a{vm
2. 9C<N DBCS #?Di/+;Zf> 2 "Pf 2 ^)f 0 .0D"PfOK
P#

=<C. Query/400 T\a>k<I 249


Query/400 4,E"
1;%=KPi/1,4,E"I\vVZA;DW?,Cz*@}Z"zDBi#
TZ$1dKPDi/,b)E"Ioz7(i/DD)=h(Qn`KP1d#7
(.s,I\a|]Wv(H0PvDD)a>M<IJC#>ZPvKPi/1I
\T>D4,E"#
i/}ZKP#}Z Y P*D~ X 9(f!76#
KE"8> Query Q7(h*;uf!764KPKi/,;};PVfDf
!76zch*D5#Query 9(f!76"Z9(f!761T>KE"#"
bKE"ZA;OvV`C,T0i/KPyhD\1d#g{i/KP1d
Dxs?VC49(f!76,"T9CH0PvDXZ9Cf!76Da>
M<I#
i/}ZKP#}Z Y PSD~ X 9(f!76#
KE"8> Query }ZSVff!769(f!76#(#,KE"DvV"
G8>PT\Jb,xIS*}fD8>,r* Query }Z9CVff!76
44PKYw#
i/}ZKP#}Z Y P*D~ X 4(1>#
KE"8> Query }Z+i/PD;vD~4F=Y1D~#ZTBivBv
VKE":
v 8(K`q=_-D~
v 9Cki/D,S`M;%dD,S`M8(K,S_-D~
v 8(K4SD SQL S<
g{4gOyv*,S4(KY1D~,"T\bK`Yw#PXKwbDj
i,N{Z2473D:Z Query/400 P9C,SKc;#g{IZErVND\
$HsZ 2000 VZxvVKE",bI\GlIJbD-r#PXji,N{
Z2443D:Z Query/400 P!qErVN;#
i/}ZKP#}Z *N PTD~ *N D1>Er#
1ErVNDiO$H,} 2000 VZ1,r1 Query !q9CEr}PLr
x;G4(f!764qC|QDT\1,vVKE"#b5w Query }ZT
U4(DY1D~4PT:DEr}PLr#

Query/400 wT==E"
1 Query/400 ZwT== (STRDBG) BKP1,"vT\E/E"#ZwT==BK
P1,9IqCngE/E"T0oOj8JO(T43POw5Dms)HE"#

250 Query/400 D9C V4R5


=<D. @9C';%=KP Query/400 i/
53\m1I^FC';%=KPi/#&CK^Fs,C'+^(4PBPYw:
v Z09Ci/1A;O9C!n 9(KP)#
v 4 F5((f)ZA;OT>(f#
v Z0KvKi/1A;O9C!n 1(;%=KP)#
v ;%=KP QRYRUN }L#
v ;%=KP0KPi/1(RUNQRY) |n#

g{C'T<;%=KPi/x;^Fbyv,+vV;uvmE"#

C'ZTBiv1;\;%=KPi/:
v RUNQRY |nD(^|DIC';YTdP(^#bI\0lC'z&mKPD\
&(N{BfPXJm;vr`vC'_P;,KP\&D"M)#
v RUNQRY |nQ|D*;Y'V;%=KP#

*@9C';%=KPi/:
v 9C0|D|n1(CHGCMD) |nS ALLOW(JmKP)N}}% *INTERACT#
Z RUNQRY P;Jm ALLOW(*PGM)#
v |D RUNQRY |nD(^,8wD)C'TK|nP(^#

": *Jm;vr`vC'_P;,Z QSYS P* RUNQRY |n8(D;,KP


\&:
1. 4( RUNQRY |nD4FTs"+|EkG QSYS DbP#
2. xPX*D|DT^FZ QSYS P RUNQRY |nD9C#
3. +|,BD RUNQRY |nDb(4JmC';%=KPDf>)EZh*;
%=KPi/DC'DbPmP QSYS .0#

": g{*mSYw53DB"Pf,I\h*XB(e RUNQRY |nN}#

© Copyright IBM Corp. 2000 251


252 Query/400 D9C V4R5
=<E. Query/400 PD`kV{/j6{ (CCSID)
>=<|,PX`kV{/j6{4 CCSID DE"#KE"+PzZzmb CCSID T
0|G*NT Query/400 \X*#

CCSID G;v=VZ(^{E){},|(;j6`k=8M;Tr`TV{/Mzk
3#I*?vi/(e"}]VNM{m3r8( CCSID#2I*D~G<q=(eP
Dvpn?(gVNDPjb"D>5w"`-Vr$"M)8( CCSID#

I*; CCSID jGD}],9|Z9C`,V{/rV{/,/D;,oTP4p4


G`,D(N{<9)#g{zk3;,,;P*;D}]4p4G;,D#;VoT
D<NV{(T>rr!DV{)D.yxF5I\;,Zm;VoTPH'V{D
5#Jb";PZT>rr!1bv#g{9CS;,zk3PDV{<8D3r4
{m}],r_g{Z;,zk3PD}]4-*;4xPHO,ra{4p4G;
}7D#

DATABASE DATABASE

C1 C2 C3 CCSID 37-99 D9 E5 AA
CONVERSION
(HEX) (HEX)

CCSID-37 CCSID-99
Without CCSID Conversion
CCSID-99

A B C A B C
Q H 9

???

RV2N403-3

< 9. 9CM;9C CCSID *;. ZXhMI\1,I53T/4P*;#

Query/400 6pN1h*}]"{m3rMD>D*;,"4PK*;#g{*;'\,
53+(*z#zI\^(&mi/rKP#fDi/,b!vZyf0D
CCSID#CCSID HOIzzBPDViv:
v |Gj+%d,5w;PX**;#

© Copyright IBM Corp. 2000 253


v |GGf]D,5wj{D*;GI\D#
v |Gkf;5f],5w*;GI\D+GI\*9Cf;V{#f;V{I\z
z;I$bDa{,XpGZErMbTV{VN1,b!vZf;V{ZDov
V#
v |G;f],5w^(*;#

>=<bM CCSID gN0l Query/400 ZX(ivBDP*#PXji,N{ National


Language Support D Query/400 ;Z#

Query/400 PD CCSID jG
BPx?w{DTs|,i/&m9CD CCSID jG#?;nS|,nLPd
CCSID,jGPGED}b#GE8>CTsPdT:D CCSID jG#}GPXp|
D,x?w{Dn?SC'r*mrw5PLPd CCSID#2(EPD}m>"M,b
MgN7(Cn?D CCSID 5#
v i/(e ( 1, 6) *
2GPjb ( 5)
2G`-V ( 5)
mo=PD#? ( 8)
G<!qbT5PD#? ( 8)
a{VN{ ( 5)
"C{E ||
mo=P0 50 P,Cwa{VND> ( 5)
a{VNPjb ( 5)
8VD>
nU\FD>(IZ8V6 0 R=)
bf3D>
3<D>
3ED>
{m3r(C'(eDr*;mD2sr53Er3r) ( 2, 7, 8) *
v *;mM53Er3r
{m3r ( 8 9) *
v Query C'r*m
{m3r(C'(eD1!3r)( 7, 8) *
v |,$dCoT3rD Query LrTs#4,|,0!q{m3r1A;O!n 2 D
3rD#i#
{m3r(TZoT)( 7, 8) *
v w55w ( 8) *
}](Zr!zrT>:exP)
{m3r(w5)*
v D~(e *
– D~G<q= ( 8) *

254 Query/400 D9C V4R5


- PXq=DD> *
- }](I1PD)* ( 3, 5)
- VN
v {F ( 5)
v (-<)Pjb ( 5) *
v (-<)`-V ( 5) *
v PXVNDD> ( 5) *
v $"M *
v U1!5
v }](I1PD)
v * D~DEr3r ( 4, 5, 8) *
– D~I1
- PXI1DD> *
- }](;vr`v CCSID jGZq=(eP)
":
1. i/(eD CCSID T>ZT>i/{DG)A;O,g0(ei/1A;#
2. C'(eD{m3rD CCSID T>Z0(e{m3r1A;O#
3. g{yPV{}]D CCSID <%d(CCSID D%VZrlOVZf>;O*G%
dD),dvD~PV{}]D CCSID T>Zr!Di/(ePG<q=OD;P
P#
4. g{vp CSSID ;%d,dvD~PDV{VND CCSID T>Zr!Di/(e
PG<q=DG;PP#
5. 19CdkD~(ePDD>?V(gPjb"VND>MD~(eD>)44(
dvD~(e1,G)?VD CCSID +xv=dvD~(eP#VND CCSID 2
;pxv#I9C0T>D~VN5w1(DSPFFD) |n7(VND CCSID#I*
"KD~T7(VND>rD~(eD>D CCSID#
6. i/(eD-< CCSID T>Z0(ei/1A;ODN<E"P#g{K CCSID
G 65535 xZA;%?T>D CCSID k.;,,i/(ePDD>M#?+*<
;1wCs;v CCSID jGD&m#
7. CZu</0(e{m3r1A;D{m3rD-< CCSID T>ZPXgNu</
3rDN<E"D~6D>P#g{K CCSID G 65535 xZA;%?T>D
CCSID k.;,,r3r(^[GqT|XBEr)+*<;1wCs;v CCSID
jGD&m#
8. PX CCSID *;JbD3)oOE"T>;f]D CCSID#
9. *10{m!qbvD{m3rD CCSID T>Z0!q{m3r1A;W?DE"
P#

Query/400 PD CCSID M{m3r


Z Query/400 ZzI8(.yxF(1!5)"oT3r"C'(e3r"*;mr5
3Er3r48({m3r#{m3rCZ,SbT"G<!q"Er"(f8VV
i,"7(n!5Mns5#{m3rmvCZ SBCS V{#

=<E. Query/400 PD`kV{/j6{ (CCSID) 255


;v CCSID k Query/400 'VD?v{m3r`X#Query/400 Yh*;mD CCSID
* 65535#C'(eD3r_P(eC'Dw5 CCSID#

": g{z!q.yxF3rr9C CCSID * 65535 D{m3r4TjGD}](


r,zqCDa{I\4p4;;B#}g:
v Er=nM;CD5I\;GT>Drr!DPDn!c\5#r*ZjIE
rHO.s"xPn!5HO.0,g{*;*w5 CCSID,rI\"zbVi
v#
v Z"M=}]bD~Dvc\dvPy#fDn!5Mns5I\kr!Dr
T>D(fPT&5;,,499C`,Dw5 CCSID 4KPi/#v1n!
5rns5VND5*;*w5 CCSID Tcr!rT>1,E"zKiN#

+C'(eD{m3rmf* Query r*mPD1!51,w5 CCSID k|;p#


f#g{z!q#foT!nw*1!5,;PC!n#fZr*mP—;|(oT
3rr CCSID#

": v1S0(e{m3r1A;4 F23 #f3r1,E|Bi/r*m"C'(eD


{m3r1!5M CCSID#

Query/400 oT3r
TBG Query/400 'VDoT3r#

m 9. oTzk3 CCSID
zRrf> zk3 CCSID

H{1I<o 00500 500


H{1(o 00500 500
SCs"o 00037 37
SCs(o 00500 500
$so NLV 00277 277
I<o NLV 00037 37
R<o NLV 00278 278
(o MNCS 00500 500
(o NLV 00297 297
Bo MNCS 00500 500
Bo NLV 00273 273
y:o 00871 871
bs{o MNCS 00500 500
bs{o NLV 00280 280
2~o NLV 00277 277
OQ@o NLV 00037 0037
OQ@o MNCS 00500 500
w`@o MNCS 00500 500
w`@o NLV 00284 284
pdo NLV 00278 278
p?(o MNCS 00500 500
p?Bo MNCS 00500 500
p?bs{o MNCS 00500 500
"="o 00285 285
@="o 00037 37

256 Query/400 D9C V4R5


m 9. oTzk3 CCSID (x)
zRrf> zk3 CCSID

":
1. MNCS m>`zV{/
2. NLV m>zRoTf>

Query/400 !nM&\D CCSID *;


1z!q Query/400 !nr4&\|*sS;v CCSID *;*m;v CCSID 1,I
\qCoOE"rbbDa{#TBE"I\PzZzKbh*D)*;TzcwV
ks,T0bV*;'\1+"zDBi#

T> Query/400 i/
BmT>w5Mi/ CCSID D;,iOgN0lT>i/,T0gN&m#?#g{
xL(w5)CCSID Mi/(e CCSID %d,g{dPNN;vC CCSID 65535 j
G(;*;),r_g{i/(e4jG,rIT>i/(e#Zm10 P,37 G"o
CCSID x 65535 Gh9*;D CCSID#

m 10. CCSID gN0lT>i/


w* CCSID &m"CdjG
w5 CCSID i/ CCSID D#?

37 37 37
65535 37 37
37 65535 65535
65535 ^jG 65535
37 ^jG 65535

|D Query/400 i/
g{xL(w5)CCSID Mi/(e CCSID %d,g{dPNN;vC CCSID 65535
jG(;*;),r_g{i/(e4jG,rI|Di/(e#

m11T>N1I|Di/T0gN&m#?#

m 11. CCSID gN0l|Di/


w* CCSID &m"CdjG
w5 CCSID i/ CCSID D#?

37 37 37
65535 37 37
37 65535 37
65535 ^jG 65535
37 ^jG 37
37 500 ^(|D

Z Query/400 PqCPD>DTsPm
1 Query q!i/"*;m"D~rbDD>5w1,;4P*;,r*b)D>5w
;\C CCSID jG#

g{hvD>4T>ZPmA;P,4 F11#

=<E. Query/400 PD`kV{/j6{ (CCSID) 257


(e Query/400 i/
I\aZz4("|DrT>D(eP4=k CCSID `XDoOE"#PXji,N
{Z2593D:CCSID M Query/400 i/(en?;#

Z Query/400 P(e{m3r
g{{m3r CCSID kzDw5 CCSID ;%dx;P;v CCSID * 65535,Zu
</0(e{m3r1A;.0*+{m3r CCSID *;*zDw5 CCSID#g{*
;m^(*;,r^[ZvTV{f;a>PD!qG24,<;9C|#

g{zZ4(r|D{m3r"Z0!q{m3r1A;O!q!n 3,Query/400 +
Yhz*<&mBD3r#Query/400 i4TBPm,"!q;h**;rI*;*z
Dw5 CCSID(;CV{f;)DZ;vVf3r#
v H0*Ki/(eD3r
v i/C'Dr*mPDC'(e1!3r
v 53DoT3r
v .yxF3r

}g,g{H0;P*i/(e3r,r9CoT3r4u</0(e{m3r1A
;,"*;i/C'Dr*mPD1!3r,bGavVXZf;V{9CD/f#

1^(*;H0*Ki/(eD3r1,Query/400 +Z0!q{m3r1A;O/f
z#(}Z0(e{m3r1A;O4 F15(oT3r)r F16(9C1!5),IK
b*N;P9CoT3rrC'(eD1!3r#

Z Query/400 PqCPD>Dq=rI1Pm
g{I1rq=D>5w^(*;*w5 CCSID,aT>UW#

g{hvD>4T>ZPmA;P,4 F11#

#f Query/400 i/(e
19(f!F.ki/;p#f1,I\h**;#bI\<BH04lb=Df]
TJb,"*sz7O#fPmsDi/(e#

KP Query/400 i/
^(*;*w5rD5 CCSID D?v5D?v;C+r!rT>*;vSE (+)#^
(*;DD>V{.D?v;C+r!rT>*;vc (.)#+vT^(*;D`-V
(DC`-k J)#^[CZKPi/D=(GD;V,<+"zKiv#

": w5 CCSID Gw5D CCSID#I9C|n CHGJOB CCSID() |D|#D5


CCSID Gl+D5D CCSID#Z OfficeVision/400 LrP,I8(;vV{ ID,
;sII|qC`XD CCSID#OfficeVision/400 Lr+D5 CCSID +M=
Query#Z AS/400 f> 2 "Pf 2 ^)f 0 P,OfficeVision/400 Lr\G+
CCSID 65535 +M= Query#

1dv"M=VfD~P1,}]MD>y;*;#g{SU}]DVNP;,D
CCSID,dv&mZmSNNG<.0+#9,"T>;uoOE"#

258 Query/400 D9C V4R5


g{T*dk!qD}]bD~4PK2G,Query/400 +9CBD~E",|( CCSID
jG#bI<B(e1oOvD`,`MDms#

g{44PNNYw4<BX(f!F.(N{Z2403D:Query/400 PDf!F
.;),G4ZD~;f;IDD~q=;h*6pli+_P;,D CCSID XT1,
zI\aU=ms#

Z Query/400 PKP1!i/
ZTD~KP1!i/1,w5rD5 CCSID T0d{*;I\'\#}g,KD~
I\G_-D~,|f0=_P;, CCSID DVND"C,r_zI\Z9CxP;
f]{m3r1!5Di/r*m#

KP1Z Query/400 P!qG<


g{xL(w5)CCSID Mi/(e CCSID `,,g{dPNN;vC CCSID 65535
jG(;*;),r_g{i/(e4jG,rI4PKP1G<!q#

m12T>ZKP1N1I|DG<!qT0gN&m#?#

m 12. CCSID gN0lKP1G<!q


w5 CCSID i/ CCSID w* CCSID &mD#?

37 37 37
65535 37 37
37 65535 37
65535 ^jG 65535
37 ^jG 37
37 500 ;Jm

Z Query/400 P+}]O"=l+D5
9C OfficeVision +}]O"=V&mD5,Z+}]Si/+M= OfficeVision 1;
*;|#

9C DisplayWrite 4 +}]O"=V&mD5,Z+}]Si/+M= DisplayWrite 4


1+}]*;* CCSID 256#

CCSID M Query/400 i/(en?


1z&mi/(e1 Query/400 a/fz;)PX CCSID f]TDJb,+3)Jb
*=i/KP1EoOv4#*Kba{,zh**@:
v gN+ CCSID 8(x#?Mmo=
v 4P*;MHODNr
v liGi4}]9GvG CCSID jG

BPwb(}i/(ena);)b=fDE"#PXX(DjGn?TDE",N
<Z2613D:Query/400 PD CCSID f]T<GBn;#

=<E. Query/400 PD`kV{/j6{ (CCSID) 259


Query/400 PD CCSID MD~!q
g{Z&mi/(e18(Dq=P^(*;*zw5D CCSID DNND>,+4=
;uvmE",f_z!q;,DD~rq=#

g{2GK}]bD~,i/+9CBD~E",|( CCSID jG#bI\<B;c


Z(e1oOvD`,`MDms#

Query/400 PD CCSID M,SbT


g{,SbTPDVNP;,D CCSID,+*;*f]D CCSID#g{=vVN;P
`,D CCSID R^(*;,r_g{*9CDNN{m3r^(*;,+4=vmE
"#

Query/400 PD CCSID Ma{VNmo=


}@zTbDzRD Query/400 C'&Ts4V8dkVN{MX|V(}g,
SUBSTR),T7#}7Da{#a{VND CCSID !vZCZ(ea{DVN#Z
4(1,53Yh#?Cw5 CCSID jG#Z|D1,53Yh#?9C|DC'D
w5 CCSID(g{4(1 CCSID G 65535)#g{8(;vVN,a{VN+_PC
VND CCSID#g{8(_P;, CCSID D5,a{VND CCSID +yZ5DNr
Mmo=D`M#

Xk*;;9Cmo=D CCSID DVNM#?5#g{mo=P9CDVNr#?P


;f]D CCSID,rrC'"M;uE"#

TZ"C{E,Idk:
v =vz_#
v CCSID 37 P=vz_D.yxF5 (’4F4F’X)#
v Zi/D CCSID P_P.yxFm> 4F D=vV{#

Query/400 PD CCSID Ma{VNPjb


1a{VN(ePDPjb+XD5rT>Z(fP1,X*1+|*;*w5rD
5 CCSID#g{*;'\,rT>c (...)#

Query/400 PD CCSID MErVN


g{ErVND CCSID ;,Z{m3r CCSID,*+3r*;*VN CCSID#g{
*;'\,+rC'"MvmE"#

Query/400 PD CCSID MG<!qbT


}@zTbzRD Query/400 C'&Ts4V8dkVN{MX|V(}g,NULL),
T7#}7Da{#

Z4(1,Yh#?9Cw5 CCSID#Z|D1,Yh#?9C|DC'Dw5 CCSID


(g{4(1 CCSID G 65535)#g{9CDVNr#?;Pf]D CCSID,rg{
*9CDNN{m3rm^(*;,+4=vmE"#

260 Query/400 D9C V4R5


Query/400 PD CCSID Mc\/}
h*14P*;,T*V{VN!qDn!5Mns5/}s5#TZT>rr!D
dv,+G<Ers+}]*;*w5rD5 CCSID .sxPs5#T4*;}]4
Pn!5Mns5/}s5,TqC=}]bD~Dc\dv#+a{EkVfD~
yhDNN*;ZTsxP#

g{f0={m3r,h*1+|*;*T}]s5yCD CCSID#g{Z*;{m3
r1"z*;ms,+4=vmE"#v1i/KP1EPvmE"#

Query/400 PD CCSID MPq=k`-


1PjbM`-V+XD5rT>Z(fP1,X*1+|G*;*D5rw5
CCSID#g{*;'\,T>c#TZ`-V,b+zzms,<B9C`-k J#

Query/400 PD CCSID M(f8V


h*14P*;,T*V{VN!qD(f8V/}s5#TZT>rr!Ddv,
+G<ErsZ+}]*;*w5rD5 CCSID .sxPs5#T4*;}]4P(
f8Vs5,TqC=}]bD~Dc\dv#+a{EkVfD~yhDNN*;
ZTsxP#

g{f0={m3r,h*1+|*;*s5}]yCD CCSID#g{Z*;{m3r
1"z*;ms,+4=vmE"#v1i/KP1EPvmE"#

Query/400 PD CCSID M8VknUD>


18VD>+XD5rT>Z(fP1,X*1+|G*;*D5rw5 CCSID#g{
*;'\,T>c#

Query/400 PD CCSID Mbf3"3<M3E


13fD>+XD5rT>Z(fP1,X*1+|G*;*D5rw5 CCSID#g{
*;'\,T>c#

Query/400 PD CCSID f]T<GBn


CCSID jG9CPI\ZT>jGDDOr9CjGDDOvHO.04P*;,+2
IT^FjGn?DwViO9C#BPwmT>1n?TC;,D CCSID(<;G
65535)jG1I\"zDiv#

m13T>g{n? 1 D CCSID ^(*;*n? 2 D CCSID,Z(e1+"zDiv#

m 13. CCSID ;f]Z(e1Ds{


n? 1 n? 2 s{

$"M w5 4 F23 T>oOE"(;G$"M)#


q=D> w5 q=D>Z0!qq=1A;OT>*UW#

=<E. Query/400 PD`kV{/j6{ (CCSID) 261


m 13. CCSID ;f]Z(e1Ds{ (x)
n? 1 n? 2 s{

q=D> w5 ^(*D~!q8(q=#oO=ms"T>
Z08(D~!q1"0|DD~!q1r
0D~!q4,1A;O#
I1D> w5 I1D>Z0!qI11A;OT>*UW#
-<Pjb w5 ^(*D~!q8(q=#
-<`-V w5 ^(*D~!q8(q=#
{m3r w5 ^(9C3r4u</0(e{m3r1A;
(ZKivB,f;V{\Gw*ms&
m)#s{!vZ{m3rD4Mz4PDY
w#
(3r4)
s{

(C'(eD)
/f.s,ZT>==BF}a>

(C'(eD)
/f.s,Z|D==BZ;NT>
1Sd{4u</a>

(oT3r)
\x F15 ks

(C'(eD1!5)
\x F16 ks#
(w53r)
\x F17 ks#

{m3r VN ^(4P,SDHO#oO=ms,"T>Z
08(gN,S1A;O,r8>Z0(ei
/1r0KvKi/1A;O#
VN 2 VN 1 ^(4P,SDHO#oO=ms,"T>Z
08(gN,S1A;O,r8>Z0(ei
/1r0KvKi/1A;O#
VN 2/#? VN 1 ^(Izmo= CCSID#oO=ms,"T
>Z0(ea{VN1A;O,r8>Z0(
ei/1r0KvKi/1A;O# (1
Query (e#?LP|DC'Dw5 CCSID
1I\"z# )1
{m3r #? ^(4PG<!qDHO#oO=ms,"T
>Z0!qG<1A;O,r8>Z0(ei
/1r0KvKi/1A;O# (1 Query (
e#?LP|DC'Dw5 CCSID 1I\"
1
z# )
{m3r VN ^(4PG<!qDHO#oO=ms,"T
>Z0!qG<1A;O,r8>Z0(ei
/1r0KvKi/1A;O# (1 Query (
e#?LP|DC'Dw5 CCSID 1I\"
z# )

262 Query/400 D9C V4R5


m 13. CCSID ;f]Z(e1Ds{ (x)
n? 1 n? 2 s{

VN 2/#? VN 1 ^(4PG<!qDHO#oO=ms,"T
>Z0!qG<1A;O,r8>Z0(ei
/1r0KvKi/1A;O#(1 Query (
e#?LP|DC'Dw5 CCSID 1I\"
1
z#)
VN 2/#? VN 1 19(f!F.1^(FcX|VVNDmo
=#\xK#fks;C'XkYNa;k
s,TkB"VDms;p#f#1
1. 1zZ08(&m!n1A;O8(;vTV{f;/f1,I\"zKiv#

m14T>g{n? 1 D CCSID ^(*;*n? 2 D CCSID,ZKP1+"zDiv#

m 14. CCSID *;JbZKP1Ds{


n? 1 n? 2 s{

VN 2 VN 1 ^(4P,SDHO#Q\xKPks#
VN 2/#? VN 1 ^(4PG<!qDHO#Q\xKPks#
1

VN}] {m3r ^(4Pf0X*5DHO#KPks'\#


;5XPma{#
VN 2/#? VN 1 19(f!F.1^(FcX|VVNDmo
=#KPks'\#1
VN 2 VN 1 ^(+}]*;*SUG<VND CCSID#
KPks'\#(;PG<mS=BD~rB
I1#)1
VN}] w5 ^(T>rr!VN5#KPks'\#1
Pjb w5 PjbPZT>rr!D(fPT>*c#
`-V w5 ZT>rr!D(fP9CK J `-kx;
G`-V#
8VD> w5 D>PNZT>rr!D(fPT>*c#
bf3 w5 bf3ZT>rr!D(fPT>*c#
nUD> w5 D>PNZT>rr!D(fPT>*c#
3< w5 3<D>ZT>rr!D(fPT>*c#
3E w5 3ED>ZT>rr!D(fPT>*c#
{m3r VN ^(kTTBivTVNxP8V"sn!5
rns5:
v "M=}]bDvc\dv
v 9Cw5 CCSID 65535 DC',"M=r!
zrA;

}]brr!zdvDKPks'\#TZT
>Ddv,KPksLx,+yPD5Mc\
yT>*f;V{ (+++)#
{m3r w5 ^(*;m4TVNxP8V"sn!5rn
s5#r!zdvDKPks'\#TZT>
Ddv,KPksLx,+yPD5Mc\y
T>*f;V{ (+++)#
": TZ=A;Ddv,Query 9C%voOE"/fziR;h*DcM*'D`-VD>#
1zr!(f1,;P/f#
1. 1zZ08(&m!n1A;O8(;vTV{f;/f1,I\"zKiv#

=<E. Query/400 PD`kV{/j6{ (CCSID) 263


m15T>1n?Cf]Df; CCSID jG,+n? 1 =n? 2 D CCSID *;*s
T3v59Cf;V{,x;vTV{f;/f1,+"zDiv#

m 15. kf; CCSID f]+*;'\ZKP1Ds{


n? 1 n? 2 s{

VN 2 VN 1 ^(4P,SDHO#KPax(dv4j
1
I)#
VN 2/#? VN 1 ^(4PG<!qDHO#KPax(dv4
jI)#1
VN 2/#? VN 1 ^(FcErDa{VN5#KPax(45
XG<) #1
VN 2/#? VN 1 ^(Fca{VN5,CZG<!q(bTD
VNrbT5I\"zKms) #KPax
(dv4jI) #1
VN 2/#? VN 1 ^(FcdvDa{VN5#TCVND5T
0NNsxD8V"n!5rns5T>rr
!f;V{.#=}]bDdvax(dv4
jI;I\mSK?Vx;GyPG<)#1
VN}] w5 ^(+!qDVN5*;*w5 CCSID,r
K^(T>rr!|#TCVND5T0NN
sxD8V"n!5rns5T>rr!f;
V{.#1
{m3r w5 ^(*T>rr!x*;D5xP8V"sn
!5rns5#r!DKPksax(dv4
jI) #TCVND5T0NNsxD8V"
n!5rns5T>rr!f;V{.#1
{m3r VN ^(T9Cw5 CCSID 65535 DC'DT>
rr!dv,r=}]bDvc\dvxP8
V"sn!5rns5#=r!zr}]bD
dv4jI#TCVND5T0NNsxD8
V"n!5rns5T>rr!f;V{.#
1

1. 1zZ08(&m!n1A;O8(;vTV{f;/f1,I\"zKiv#

m16T>JmxL(w5)Mi/(e CCSID D8ViOD;,!n#s4V8 A M


B zmG 65535 D;,D CCSID#;PjGDi/4TH0"Pf#

m 16. CCSID gN0li/D9C


KP1G<!
w5 CCSID i/ CCSID JmKPi/ Jm|Di/ q JmT>i/

A A G G G G
A 65535 G G1 G1 G1
65535 A G G G G
A B G q1 q1 q1
65535 ^jG G G G G
A ^jG G G1 G1 G1
1. ;"v/frksaxE"#

264 Query/400 D9C V4R5


DW?<
BP AS/400 i.|,zI\h*DE"#PvKb v Performance Tools for AS/400, SC41-5340-00,r
)i.D+{My>)%Ek# Lr1a)PX Performance Tools/400 DEnE
v ADTS/400: Data File Utility, SC09-1773-00,r& ",xvb)$_DEv,"2bgN\m53
CLr1rLr1a)PX9C0&CLr*" T\#
$_1}]D~5CLr (DFU) DE",i\g v Work Management, SC41-5306-03,rLr1a)P
N4(+}]dkD~"|BD~"i/D~D XgN4(M|D$w\m73DE"#
Lr,T0gNKP DFU Lr# v Security - Reference, SC41-5302-04,rLr1(r
v Backup and Recovery, SC41-5304-04,hv AS/400 :p#2w\0pD3K)a)Z53OhC2
53Dy>8]MV4&\?~# +TDj8E"#
v DisplayWrite 4 Reference Guide,74X9317 a)P v Using OfficeVision/400, SH21-0697-00,rl+RC
XgN9C DisplayWrite 4 LrDYw}LE"# 'a)gN9C OfficeVision DE",|(PX&
v DisplayWrite 4 Technical Reference,74X9315 a) mJ~MUzDE"#||,}LE",RIk
PX DisplayWrite 4 LrD<uN<E"# Office *zE";p9C#

v Printer Device Programming, SC41-5713-03,r& v Using OfficeVision/400 Word Processing ,


CLr1M53Yw1a)PXKbMXFr! SH21-0701-00,rl+RC'a)gN9C
DE"# OfficeVision DV&m&\Dj8E"#

v IBM Personal Computer Disk Operating System v IDDU Use, SC41-5704-00,rP~XirLqK1


Reference SC21-8090 rvKFczC'a)PXg a)PXgN9C AS/400 ;%=}](e5CL
NZdvKFczO9C DOS DE"# r (IDDU) Dj8E",i\gNr53hv}]
Jd"D~MG<#*Lr1a)KPXC IDDU
v National Language Support, SC41-5101-01,|,P
9CZd{53O4(DD~D_6E"T0P
X AS/400 ODzRoT'V (NLS) &\DE"#
XmsV4MJb$@DE"#
v Programmer’s Tool Kit PRPQ,5799DAG |,L
r1IC4#} AS/400 53ODVNM}]ms
DE"#
v System/36 Environment Programming,
SC41-4730-00,r&CLr1rLr1a)Z
AS/400 53O6p System/36 73P&CLrx
L;,cDE"#
v CL Programming, SC41-5721-03,r&CLr1r
Lr1a)PX AS/400 LrhFwbDc:V
[,|(TsMb"XFoT (CL) LrhF"X
FwMLrd(E"Z CL LrP9CTsT04
( CL LrD;cV[#
v AS/400 Information Center DLrhF`pBXF
oTE"r&CLr1a)PX AS/400 XFoT
(CL) 0d|nD5w#?v|n5w|(o(<
b"N}"1!5"X|VM>}#I9CKE
"4l$ CL |n,Tcks OS/400 LrMwV
oTM5CLrD&\#

© Copyright IBM Corp. 2000 265


266 Query/400 D9C V4R5
w}
[B] HObT (x)
LT(!Z) 99, 100, 172
`kV{/j6{ (CCSID) (x)
O"}]
#fi/(e 174 NE(;HZ) 99, 100, 172 DisplayWrite 4 259
(f NLIKE(;`F) 99, 103, 172 OfficeVision 259
*'D 56 NLIST(GPm) 99, 101, 172 c\/} 261
c\/} 245 HOM{m3r G<!q 260
`M 141 EQ 118 a{VN 260
8( 141 GE 118 ,SbT 260
Pq= GT 118 Pq= 261
jb 126 LE 118 ErVN 260
d` 125 LIKE 118 D~!q 260
VND$HM!}; 126 LIST 118 8VD> 261
9C F13 T><V 13 LT 118 T>i/ 257
9C F5 T> 12, 176 NE 118 T>q= 22
dv NLIKE 118 3E 261
r!z 151, 154 NLIST 118 3< 261
A; 151 RANGE 118 oTzk3 264
}]bD~ 151, 161 KP1G<!q 259
`-k
8V {m3r 118, 264
}VVN 136 (e 120
(e 145
^N{ 137
(e>} 146 1!5 255
8( 135 .yxF 255
GErVNDVN 196
q= 149 `-}VVN !q 117, 120
6p 145 (e 128 C'(eD 256
xVs!4 148 hv`- oT 256
D> 150 :E 131 *; 256
CCSID(`kV{/j6{) 261 uR{E 132 *;m 256
Query/36 k Query/400 Dxp ';Vt{ 131 DBCS V{VN 255
204 UZ/1dVt{ 135 SBCS V{VN 255
VN 56 UZ/1dVN 134 *;m 122
T% 128 f;0<c 133 *;Df]T 261
;c} (0) !}c 131 0!qG<1A; 102
>} 86 8(`-k 135 DisplayWrite 4 259
8(`-V 138 d$VN
HO 96
bT 96 `-V "Pf^F 249
UZ 100 ;,D CCSID 139 jG
1d 100 }VVN 138 CCSID(`kV{/j6{) 254
1dAG 100 8( 138 jGDVx1d
5 97 `kV{/j6{ (CCSID) S 243
VN 96 (f8V 261 u 243
HObT `-V 139 j6{ (ID)
EQ(HZ) 99, 100, 172 jG 254, 261
D~ 38
GE(sZrHZ) 99, 100, 172 i/
Zi/(eP9C 38
GT(sZ) 99, 100, 172 m 264
Query/36 k Query/400 Dxp 203
IS(G) 99, 100 !nPm 264
jb
ISNOT(;G) 99, 100 KP 264
LE(!ZrHZ) 99, 100, 172 i/T> (fPDP 126
LIKE(`F) 172 m 264 a{VN 88
`F#= 99, 103 (e 253 mo=
DBCS 104 bf3 261 4( 86
LIST(Pm) 99, 101, 172 |Di/ 257 4(1D<GBn 86

© Copyright IBM Corp. 2000 267


mo= (x) i/(e (x) I1
a{VN X|{ 187 *D~!q!q 37, 41
4( 86 4( Vx1d
}V 62 _6>} 224 jGD 75
V{ 62 >} 215 UZ 76
gP 87 09Ci/1A; 29 1d 76
UZ SPmP!q 14 1dAG 76
(e 61 r! 189 X|{i/(e 187
UZ}]`M 71 r!DE" 189 }%
1d (e 5 G<!qbT(HO) 107
(e 61 4F 185 a{VN 89
1dAG |D 32 &m!n
(e 61 bM 181 vT.xF}]ms 171
1dAG}]`M 71 >} 219 ak}VVN5 170
1d}]`M 71 |D04F 181 C> 169
}V |D1D<GBn 184 {m3r 184
(e 61 X* 108 8( 246
V{ |{ 29 V{HO 184
(e 61 |{^F Query/36 k Query/400 Dxp 204
"C 63 `oT73 30 4(
lO DBCS VNM SBCS VN (F^F 205 mo=
a{ 195 >} 187 ;cfr 86
<N DBCS VN 09Ci/1A; 187 i/(e
^F 63 DLTQRY |n 15, 187 _6>} 224
<V Query/40005CLr1K% 16 <GBn 32
T>(f 13 Kv 173 NqD(i3r 33
T> 188 >} 215
!qD~ 35 09Ci/1A; 17, 29
[C] !q!n 31 f!76 240
KP 12 a{VN 59
K%
8((^ 175 >} 211
IDDU(;%=}](e5CLr)
207
0(ei/1A; 30 }]bD~
Query/400 K% 5w 5
Query/400 5CLr 15
>} 16 ND~
bT
T> 55 $H (e 247
bT#= (fPDVN 126 `v,SD~<GBn 52
G DBCS a{VN 88, 196 CZD~,SKc 45
XbV{ 104 $HM!};} ND~Erfr
UV{. 103 CZZ?}5Fc 197 ;}7=(>} 53
yw 103 }7=(>} 52
#?
XbV{ 103 }7,SDfr 52
UZ"1dM1dAG
<N DBCS VN S(fPT%VN 128
G<!qbT 99
UV{. 105 St
}V
DBCS LIKE 104 PmO"
G<!qbT 99
bT,,S (e 10
a{VN 62
zk i\ 9
<N
T> 45 f!F.
(F 249
8( 45 |B 241
V{ 62
L"T r Z 45 5w 240
G<!qbT 98
CCSID(`kV{/j6{) 260 f!76
a{VN 62, 68
i/ 4( 240
DBCS 63
(ea> 242 s!^F 244
$"M
KP 176 !cVN 244
i/&m 9C F23 T> 15
239 |X3r
i/(e LrhF<GBn 195 (e 239
#f 174 Lr1DE",_6 195 !q/T% 240

268 Query/400 D9C V4R5


ms (e (x) &\|
&m 24 a{VN 60 9Ci\ 12
Z}VVNPvT 171 zT:D{m3r 121 F10
08(D~!q1A; 39 >}i/ T>0;A 24
DLTQRY |n 15 F11
CCSID(`kV{/j6{) 253 T>d{E" 21
[D] (e=h F12
5w 31 !{yvD|D 24
r!
Z0(ei/1A;O!q 30
i/(e 17, 189 F13
(eA; CTT>(f<V 13
A; 14
F/ 32
Query/36 k Query/400 Dxp 205 F17
Ts T>UZM1dq= 23, 71
r!z
i/(e 5
(er!dvbf3 158 F21
DB2 UDB AS/400 fLr 5 +! 32
*i/dv!q 151, 154
`1>O"
8(YQzdv2G 156 F23
5w 9 hC1!{m3r 117, 122
8(3<M3E 159
CZX*PmO" 108 CTT>$"M 15
r!| 14
iOPmO" 10
zk F4
`v CTq!Pm 14
`- 136
*i/!qD~ 37
Dec VN F5
E/O" 9 T>(f 176
E 127
Query/400 Nq 18 CTT>(f 12
J 127
`oT73
L 127 2mD~ 195
O 127 a{VN
|{<( 60 X*
T 127
V 127 i/ 108
PmO"
[F]
Z 127
L"T r Z `1> 110
,SbT >} 108
47 5XA0(ei/1A; 32
zk3 !qG< 108
=(EV{
5 108
(e 120 DBCS(+VZV{/) 13
>} 120 bf3 X5}]bD~ 5
%VZV{/ (SBCS) VN 4 *r!dv(e 158 fr
(;=a> 20 CCSID(`kV{/j6{) 261 xX*PmD`1> 110
(e {EV{ /}
mo= 60 DBCS(+VZV{/) 4 "C 63
i/ 184 2G VS 80
#f 174 YQzdv 156 k 81
X|{ 187 }]bD~ 195 j 83
4( 29, 32 :E U 78
4((>}) 215 `-}VVN 131 1d 82
r! 189 1dAG 82
4F
r!DE" 189 }V 64
i/(e 181, 185
4F 185 l} 79
|D 32, 181 "k 80
|D04F 181
|D(>}) 219
[G] !1 79
B] 81
|{ 29 q= 195
5 65
(F^F 205 (fPd` 125
char 77
>} 187 (f8V 149
DATE 77
T> 188 |Di/
SUBSTR(S.)/} 64
!qD~ 35 (e 17
,SD~ 46
KP 12 CCSID(`kV{/j6{) 257
zJj</i/ (ISO)
8((^ 175 |Di/(e 181, 219
DLTQRY |n 187 &\ UZM1d 69
zk3 120 i\ 6

w} 269
[H] /} (x)
SECOND (x)
G< (x)
!qbT (x)
/} Td?fr 81 C AND M OR ,S 105
SUBSTR(S.) 64 DBCS LIKE 104
c\
TIME DBCS NLIKE(;`F) 104
(f 245
o(<b 82 EQ(HZ) 99, 100
(fOD;C 143
Td?fr 82 GE(sZrHZ) 99, 100
c\P 143
TIMESTAMP GT(sZ) 99, 100
F} 141
o(<b 82 IS(G) 99
`M 141
Td?fr 82 ISNOT(;G) 99
=y5 141
VALUE 65 LE(!ZrHZ) 99, 100
T\Fv 245
VARCHAR 66 LIKE(`F) 99, 103
\F 141
VARGRAPHIC 67 LIST(Pm) 99, 101
ns5 141
YEAR LT(!Z) 99, 100
n!5 141
o(<b 83 NE(;HZ) 99, 100
CCSID(`kV{/j6{) 261
Td?fr 83 NLIKE(;`F) 99, 103
F}c\
O" NLIST(GPm) 99
U5 141
i\ 7 RANGE(6') 99, 100
=y5c\
Pd`l# 125 G<q= 195
U5 141
}]/D> 7 r!>} 190
UZ"1dM1dAG5 141
O" Query }] (e 3
S.
V&mD5 7 *D~!q!q
Td?fr 63
vT.xF}]ms 171 0!qG<q=1A; 42
\Fc\
c\/} 08(D~!q1A; 37
U5 141
(f 245 G<!q
UZ"1dM1dAG5 141
c\P 143 CCSID(`kV{/j6{) 260
n!5c\
F} 142 G<!qbT
U5 141
`M 141 (e 239
CHAR
Pc\5 T\Fv 243
o(<b 77
(fOD;C 143 OR u~ 244
Td?fr 77
=y5 142 F}c\/}
DATE
T\Fv 245 U5 142
o(<b 77
\F 141 YQzdv2G 156
Td?fr 77
ns5 142 f]T
DAY
n!5 142 *; 261
o(<b 78
CCSID(`kV{/j6{) 261 lii/a{ 12
Td?fr 78
uR{E r*m
DAYS
o(<b 79 `-D}VVN 132 Query/400 23
Td?fr 79 |
r! 14
[J]
DIGITS
o(<b 64 &\ 12
Td?fr 64 6p,8V 145 |X3rf!76
HOUR G< (e 239
o(<b 79 ;%d 247, 249 +}]O"=l+D5
Td?fr 79 (e 3 CCSID *; 259
MICROSECOND %dD 247 5r
o(<b 80 *i/7(Nr 111 TG<Er 111
Td?fr 80 !q ;%=&m
MINUTE bT 98, 99 ^F 251
o(<b 80 ,S>} 105 ;%=}](e5CLr (IDDU)
Td?fr 80 1! 95 (e 207
MONTH CCSID(`kV{/j6{) 259 i\ 5
o(<b 81 OfficeVision X*Pm 108 >}
Td?fr 81 !qbT 4( IDDU (e 207
SECOND }% 107 }]Jd 5
o(<b 81 mS 107 w(53)K% 207

270 Query/400 D9C V4R5


a{ UVN ,SKc
lii/ 12 `M 13 T\Fv 247
a{VN ,S 47 4SD~
mo= *ALL ,S 46 Query/36 k Query/400 Dxp 203
}V 62 XFoT (CL) 5 70 207
Kc{ 60 4(}]bD~ 5 Query 207
V{ 62 b P
"C (||) Kc 63 SPmP!q 14 (fjb 126
$H 88, 196 SPmP!qn (fDd` 125
}% 89 09Ci/1A; 21 (fd`Dq= 125
4( 59 (e 6 jba{VN 88
(e Xb{F 15 Z(fPc\ 143
(;D{F 60 *D~!q!q 36 Pjb
DBCS 195 b1!5 8( 88
(eD>} 89 S/36 73 204 Pm
`oT73 (!D DBCS }] i/{
|{<( 60 $H^F 46 09Ci/1A; 19
Pjb 88 ,SbTDfr 47 (;
|{ 60 0T>(f<V1A; 13 09Ci/1A; 20
d{}]`M 71 LIKE HObT 104 `t{
UZ 68 LIKE"NLIKE #= CTq!S/Pm 20
1d 68 XbV{ 104 T> 14
1dAG 68 NLIKE(;`F)HObT 104 !qn 21
}V#? 62 i/ 14
}VVN 62 i/{ 14
a>M<I 243 [L] b 20
mS 89 b{ 14
`t{ 14
!}+H 198 gN 14
,S
!}; 88, 196 S/
G<!qbT(AND M OR) 105
V{ 62 09Ci/1A; 20
,SbT
V{#? 62, 68 (LIST)HObT 99
zk
CCSID(`kV{/j6{) 260 NOT LIST HObT 99
L"T r Z 47
Query/36 k Query/400 Dxp 204 PmO"
}]^F 47
SUBSTR(S.)/} 64 St
T> 55
a{VND!}+H 198 (e 10
P'HO 47
axi/(e 173 (e 9
8( 45
vc\dv X*
CCSID(`kV{/j6{) 260
xp 204 `1> 110
,SD~ 44
}]bD~ 151, 166 iO`1>O" 10
ND~Erfr 52
+H Pq=
_6E" 196
a{VN 198 CCSID(`kV{/j6{) 261
fr 46
P>
,S`M 45
b (*LIBL) 15
[K] %dG<,S 45
gN,S 45
c,;}
*E= DBCS VN >} 86
13 9CwD~D;%dG<,S 45
_-D~
LIKE"NLIKE #= 9CwD~D%dG<,S 45
XbV{ 104 (e 5
>}
CZ Query r DB2 UDB AS/400 f
IUVN 9CwD~!q%dDG< 50
Lr 57
"Pf^F 249 *yP!qDD~!q%dDG<
U5 49
G<!qbT
F}c\/} 142
99 *w,SErND~ 52
!q;%dDwD~G< 51
[M]
=y5c\/} 142 5w 45 hv
\Fc\/} 141 Query/36 k Query/400 Dxp 203 }VVN`- 130
ns5c\/} 142 ,S!qbT {F
n!5c\/} 142 (e 239 i/(e 29

w} 271
{F (x) %dG<,S ';Vt{
a{VN 60 9C?vG< 45 }VVN 131
`t 14 (F
=y5c\/}
}VVN 62 N A N-1 249
U5 142
Xbb 15 (Fi/(e
UZ"1dM1dAG5 142
|n ^F 205
i/ A;
0<c
>} 15 4(M!qVN(e (IDDU) 209, 210 f; 133
KP 15 4(D~(e (IDDU) 208
x;.xFVN 241
4(m (CRTTBL) 118 4(VN(e (IDDU) 210
(^
4(}]bD~ 5 SD~(e*'DVN 56
2+T 165
t/i/ (STRQRY) 11, 15 (e(f8V 145
i/}]bD~dvD 165
>}i/ (DLTQRY) 15, 187 (ei/ 30
3hd{KTzDi/ 175
9Ci/ (WRKQRY) 11, 15 (er!zdv 154
1!
C}]bD~2G (OVRDBF) 195 (eYQzdv 157
i/DG<!q 95
KPi/ (RUNQRY) 15, 179 (ea{VN 60
i/DVN!qMEr 91
CRTTBL(4(m) 118 (e}]bD~dv 161
*i/7(G<Nr 111
DLTQRY(>}i/) 15, 187 (e}VVN`- 128
{m3r
OVRDBF(C}]bD~2G) 195 (e{m3r 121
#f 117
Query/36 }LDH'|n 205 4Fi/ 185
1!5 12
RUNQRY(KPi/) 15, 179 q=/(f8V 149
{m3r
STRQRY(t/i/) 11, 15 hvUZ/1dVN`- 134
.yxF 255
WRKQRY(9Ci/) 11, 15 hv}VVN`- 130
7O>}i/ 187 7O!q
|{<(
9C}]bD~ (IDDU) 212 4(r|Di/(e 38
a{VN
`oT73 60 9CD~(e (IDDU) 208, 211
KvKi/ 173, 177
*i/dv!q 151 [R]
[N] 53Er3r 124 U>$5j< (JIS)
T>(f<V 13 UZM1dxin2
Z?}5Fc T>D~!q 44
UZ
$HM!};} 197 !q(fc\/} 142
HO 100
!q"ErVN 91
#?
!qI1 42
[P] !q(e`M (IDDU) 208
G<!qbT 99
q=Vt{ 69
Er !qG< 96
/}
i/ 91 !qG<q= 43
CURRENT(DATE) 83
i/DVN 91 !qErVN 111
Er<GBn 114
,SDND~ 52 !qdv`MMdvq= 152
}]`M 69
3r !qD~ 39
5w 68, 69
Query/36 k Query/400 Dxp !q{m3r 119
cuKc 73
!q*;m 122
204 u! 73
VN 8((fPq= 126
+}V*;*UZ 74
U5 114 8(`-k 135
}VUZ,9C 74
UZ"1d"1dAG 8(`-V 138
114 vS 73
gN9CD>} 112 8(&m!n 169
T>q= 22, 71
*i/!q 111, 244 8(bf3 158
5
T\Fv 244 8(,S`M 45
$H 127
EH6E 111 8(gN,SD~ 46
AS/400 q= 69
{m3r<GBn 114 8(D~!q 35
DATE /} 77
8(}rr5r 111 8(3<M3E 159
EUR 69
CCSID(`kV{/j6{) 260 IDDU w(53)K% 207
ISO 69
Er DBCS V{}] 117 JIS 69
z&m
T\Fv 248
[Q] LOCAL 69
USA 69
!qi/Nq 17 t/ Query 11 UZVx1d 76

272 Query/400 D9C V4R5


UZM1dq= 1d (x) .yxF
AS/400 q= 69 cuKc {m3r 119, 120
EUR 69 u( 75 CCSID 120
ISO 69 u! 75 9C{m3r 172
JIS 69 vS 75 9CwD~D;%dG<,S
LOCAL 69 T>q= 22, 71 wD~P;P%dG<DG< 45
USA 69 5 VN$H^F 46
UZ}] $H 127 9CwD~D%dG<,S 45
0T>(f<V1A; 13 AS/400 q= 69 VN$H^F 46
UZcuKc EUR 69 9C Query 11
S(fr 72 ISO 69 >}
u(fr 72 JIS 69 4(i/(e 215, 224
UZ5 LOCAL 69 4(}]bD~ 211
$H 127 USA 69 zk3 120
cu 72 1dVx1d 76 (ea{VN 89
UZVN 1dAG |Di/(e 219
"Pf^F 249 HO 100 X*PmO" 108
{m3r 118 #? ,SG<!qbT 105
UZVN{ 68 G<!qbT 99 !q"ErVN 92
UZ"1dM1dAG5 /} !qErVN 112
=y5c\/} 142 CURRENT(TIMESTAMP) 83 KPi/ 215
kU5HO 100 Er<GBn 114 IDDU (e 207
\Fc\/} 141 }]`M Z(m{(^ 165, 175
IS"ISNOT bT 100 5w 68, 71 dv
UZ"1dM1dAGVN cuKc r!z 151, 154
(F S(fr 75 =}]bD~
N A N-1 249 u( 72, 75 Query/36 k Query/400 Dxp
{m3r u! 75 204
n!5rns5 118 vS 75 q=
UZ/1dVN 5 !q 151, 246
`- 134 $H 127 vc\
Vt{ 135 1dAGVx1d 76 8( 151
gN,SD~ 45 1dAG}] Query/36 k Query/400 Dxp
0T>(f<V1A; 13 204
[S] 1dAG5 `M
cu 72 !q 151, 246
>}
1dAGVN A; 151
i/(e
"Pf^F 249 }]bD~
0i/1K% 187
{m3r 118 (e 161
09Ci/1A; 17, 187
1dAGVN{ 68 8( 151
DLTQRY |n 187
1d}] j8D 151
Query/400 K% 16
0T>(f<V1A; 13 i?a* 265
i/PDD~!q 38
1dcuKc dk}] 212
ak}VVN5 170
S(fr 72 }]
h(5 12
u(fr 72 dk 212
}r
1d5 }]bD~
TG<Er 111
cu 72 4(
1d
1dVN >} 211
HO 100
#? "Pf^F 249 2G 195
G<!qbT 99 {m3r 118 dv
/} 1dVN`- 134 nsG<$H 33
CURRENT(TIMEZONE) 83 1dVN{ 68 dv=
CURRENT(TIME) 83 .xF}] Query/36 k Query/400 Dxp
Er<GBn 114 Query/36 k Query/400 Dxp 204 204
}]`M .xF}]ms }]b,X5
5w 68, 70 vT 171 (e 5

w} 273
}]`M
UZ 68
+VZV{/ (DBCS)
[W]
=(EV{ 13
1d 68 {EV{ 4 (;= DBCS VN 13
1dAG 68 Ud*s 13 D>,8V 150
Dec P ErV{}] 117 D~
E 191 }]m>( 13
J 191 j6{ (ID)
sNDV 4
L 191 Zi/(eP9C 38
FvV{ 63
O 191 Query/36 k Query/400 Dxp
FkV{ 63
T 191 203
V{#?
V 191 N 45
FvV{ 63
Z 191 Si/P>}D~!q 38
FkV{ 63
}]hv5w (DDS) (e 3
3r 91 `VG<q= 195
i\ 5
}]D~5CLr (DFU) 5 {m 2G 195
Ti/|D 184 2m 195
}]/D>O"
1! 91 X5}]b 5
#fi/1 175
hC1! 117 a9>} 3
`1>O"
.yxF 119 ,S
5w 9
53Er 123 ND~Erfr 52
CZX*PmO" 108
!q*;m 122 9CwD~!q%dDG< 50
X*PmO"
C'(eD 121 *w,SErND~ 52
>} 108
C> 117 !q 49
!qG< 108
oT 120 !q;%dDwD~G< 51
i\ 7
8(,S!q 44
PmO"
Query/36 k Query/400 Dxp
(e 9
8(O"!n 176
[T] 203
4S
1SO" Xbb{ 15
Query/36 k Query/400 Dxp
(e 9
a> 203
09Ci/1A; 9
(;= _- 5
}5
09Ci/1A; 20 _-D 57
Fc
5w 12 dv=}]b
$HM!};} 197
8(i/{ 18 Query/36 k Query/400 Dxp
VN
8(b{ 18 204
$HM!};} 197
S/ }]b
}V
09Ci/1A; 20 4(>} 211
mo= 61
a>k<I *i/dv(e 161
#?
*i/dv!q 151
G<!qbT 99 9C Query 239
*i/mS 37
9Cfr 62 mS *i/!q
Kc{ 61
G<!qbT(HO) 107 0!qD~1A; 39
VN
a{VN 89 08(D~!q1A; 35
`- 128
D~!q 37 om 5
$HM!};} 88
<N DBCS VN 13, 47 T>i/D!q 43
&mZdvTms 171
!qD~I1
hv`- 130 "C
08(D~!q1A; 37
}VUZ,9C 74 ^F 63
w 45
Z&mZdak 170 "Pf^F 249
0!qI11A; 41
Za{VNP9C 62 V{#?
0!qG<q=1A; 42
*;*UZ 74 *s 63
08(D~!q1A; 37
}Vmo= LIKE"NLIKE #=
ID(j6{) 38
a{VN 62 XbV{ 104
Query/36 k Query/400 Dxp 203
}Vq= Kv
D~!q
x;.xF 241 Query/400 11, 173
9u.xF 241 CCSID(`kV{/j6{) 260
}VVN 241, 242 D~ ID(j6{) 38

274 Query/400 D9C V4R5


omD~
(e 5
E"
Query/400 24
[Y]
Query/400 4, 250 9u.xFVN 241
E"l& i$!n
[X] Query/36 k Query/400 Dxp 204 4(r|Di/(e 38
T\ 3E
8V
hFr|Di/ 242 (e 160
6p 145
a>k<I 239 Z(fOr! 159
D>
(e(f8Vq= 150 T\w{ CCSID(`kV{/j6{) 261
Fv 249 3<
CCSID(`kV{/j6{) 261
!n (f 159
8V,(f
!q!n 31 (e 160
(e 145
>} 146 !q CCSID(`kV{/j6{) 261
i/DG< 95 FvV{
Query/36 k Query/400 Dxp 204
i/DErVN 111 DBCS(+VZV{/) 63
53\m18O 251
i/DD~ F/
53Er3r 123
0!qD~1A; 39 Z(eA;.d 32
T>
08(D~!q1A; 35 FkV{
i/ 257
i/DVN 91 DBCS(+VZV{/) 63
i/(e 17, 188
T\Fv 243 C'(eD{m3r 121
i/dv 151
SPmP!qi/ E/
q=
09Ci/1A; 20 (e 239
UZ 22
SPmP!qn 14 oTzk3 CCSID 264
1d 22
G< oT{m3ri/ 120
!}Vt{ 22
OfficeVision X*Pm 108 KPi/ 12
XZPmnDD> 21
%dDG< ;%=
,SbT 55
!qDD~ 49 ^F 251
Pm 14
wD~ 50 9C F5 176
1dq= 71
dv`MMdvq= 151 >} 215
9Ci/ 178
D~!qDI1 C;,DoT 120
9C F13 T>(f<V 13
0!qI11A; 41 8(O"!n
9C F5 (f 12, 176
08(D~!q1A; 37 }]/D>O"i/ 176
*i/!qDD~ 43
D~!qDG<q= 0i/5CLr1K% 16
T>,SbT 55
0!qG<q=1A; 42 09Ci/1A; 18, 178
T>UZq= 71
08(D~!q1A; 37 0KvKi/1A; 177
T>UZM1dq=
D~!qDb 36 Query/400 K% 176
F17 &\| 23, 71
53Er3r 123 RUNQRY(KPi/)|n 179
^F
!n KPi/ (RUNQRY) |n 15
(F(e 205
i/(e 31 KP1G<!q
`XD!"E" 265
j8dv 151 {m3r 117, 119 CCSID(`kV{/j6{) 259
*;m 122 Kc{
sNDV
DBCS(+VZV{/) 4 !q"ErVN "C (||) 63
!} >} 92 U5 63
!qbT }V 61
c`-D}VVN 131
}]ms (e 239
&m 246 G<
S System/36 (F 242 >} 105 [Z]
; OR u~ 244 ZA;Pi4i/ 12
(fPDVN 126 !qG< q;= DBCS VN 13
a{VND 196 ,S>} 105 vS!}+H 198
;C T\Fv 243 {m3r 91, 117, 118, 256
a{VN 88 !q*,SDG< Ti/|D1D<GBn 184
!}Vt{ vTVNs!4 199 TV{HO9C 172
T>q= 22 !q/T%j< 1! 117
!};}M$H wG< 45 UZ"1dr1dAGVN 118
CZZ?}5Fc 197 !q/T%f!76 240 hC1! 117

w} 275
{m3r 91, 117, 118, 256 (x) S}L VN (x)
.yxF 119, 120 Query/36 k Query/400 Dxp 203 1dAG
53Er3r 123 Td?fr mo= 68
T\Fv 245 /} 9Ca{VN 68
!q 117, 119 "C 63 }V
"o1! 119 VS 80 `- 128
0li/ 118, 172 k 81 Za{VNP9C 62
C> 117 j 83 *i/Er 243
oT3r 120 U 78 *i/!q 243
*;m 122 1d 82 !q
T(e 121 1dAG 82 1! 91
CCSID(`kV{/j6{) 120 }V 64 5G<!qbT 98
1!5 255 l} 79 V{
.yxF 255 "k 80 9Ca{VN 62
C'(eD 256 !1 79 Query/36 k Query/400 Dxp
oT 256 B] 81 204
{m3r 264 char 77 DBCS 4, 47
*;m 256 DATE 77 mo= 62
{m3rMHO SUBSTR /} 64 $H(<N) 126
EQ 118 r!DG<q= 190
VN
GE 118 =(E 13
(fPD$HM!}; 126
GT 118 ,SbTDfr 47
HO 96
LE 118 ,SbT(<N)Dfr 47
`-
LIKE 118 (F(<N) 249
(e}V 128
LIST 118 !qG< 97
hv}V 130
LT 118 FvMFkV{ 13
i/DEr 91
NE 118 VN|{<( 4
i/D!q 91
NLIKE 118 0T>(f<V1A; 13
S(fPT% 128
NLIST 118 LIKE HObT 104
SD~(e*'
RANGE 118 NLIKE(;`F)HObT 104
*<|DrT>i/ 57
{m3rgN0l Query/400 118 V{
D~!q}LZd 57
{m3r0l 118 mo=
(e 3
'V a{VN 62
!c 13
UCS2 6p 1 V{/ 4 #? 62
a{
5 G<!qbT 98
4( 59
HO 97 {F 62
(e 60
U5 VN 62
|{ 60
G<!qbT 99 V{HO 172
a>M<I 243
1! 97
!}+H 198 V{#?
5$H
DBCS 195 yw 98
UZ 127 9Cfr 62, 63
Query/36 k Query/400 Dxp
1d 127 FvV{ 62
204
1dAG 127 FkV{ 62
U5 13
1SO" 9
{F V{/'V
wG<
}V 62 UCS2 6p 1 4
!q/T%j< 45
Er V{a{VN
wD~ gN9CD>} 112
4(fr 62
(e 247 *i/!q 111, 244
CZD~,SKc 45 V{}]
T\Fv 244
*;m 0T>(f<V1A; 13
8(}rr5r 111
{m3r!q 122 UZ V{f;/f 171
CCSID(`kV{/j6{) 122 mo= 68 V{VN 255
4,E" 9Ca{VN 68 P'HO 48
Query/400 250 1d S.
S/a> mo= 68 >} 64
09Ci/1A; 20 9Ca{VN 68 Query/36 k Query/400 Dxp 204

276 Query/400 D9C V4R5


V{VN{ 0!q(e`M1(IDDU) A; 208 CCSID(`kV{/j6{) 120 (x)
P'Dn 62 0!qG<q=1A; 43 ErVN 260
value 0!qG<1A; D~!q 260
5w 64 HObT 95 8VD> 261
V,`- HOVN 96 T> 22
}VVN 138 !q/T%j< 45 T>i/ 257
\Fc\/} CCSID(`kV{/j6{) 102 3E 261
U5 141 0!qErVN1A; 111 3< 261
UZ"1dM1dAG5 141 0!qdv`MMdvq=1A; 152 oTzk3 264
nsG<$H 0!qD~1A; 39 KP1G<!q 259
}]bdv 33 0!q53Er3r1A; 124 {m3r 118, 264
ns5c\/} 0!q{m3r1A; 119 (e 120
U5 142 0!q*;m1A; 122 1!5 255
n!5c\/} 0C}]bD~2G1(OVRDBF) |n .yxF 255
U5 142 195 !q 118
0KPi/1(RUNQRY) |n 179 C'(eD 256
08((fPq=1A; 126 oT 256
[XpV{] 08(`-k1A; 135 *; 255, 256
08(`-V1A; 138 *;m 256
04(M!qVN(e1A;
08(&m!n1A; 169 DBCS V{VN 255
(IDDU) 209, 210
08(bf31A; 158 SBCS V{VN 255
04(D~(e1A; (IDDU) 208
08(,S`M1A; 45 *;m 122
04(VN(e1A; (IDDU) 210
08(gN,SD~1A; 46 *;Df]T 261
0SD~(e*'DVN1A; 56
08(D~!q1A; 35 0!qG<1A; 102
0(e(f8V1A; 145
0(ei/1A; 30 08(3<M3E1A; 159 DisplayWrite 4 259
OfficeVision 259
0(er!zdv1A; 154
VALUE /}
0(eYQzdv1A; 157
0(ea{VN1A; 60
A a{ 65
ALL ,S 196 CHAR /}
0(e}]bD~dv1A; 161
AND ,S o(<b 77
0(e}VVN`-1A; 128
G<!qbT 105 Td?fr 77
0(e{m3r1A; 121
CL(XFoT) 5
04Fi/1A; 185
4(}]bD~ 5
0q=/(f8V1A; 149
0vTV{f;1A; 171 C CURRENT /} 83

0hvUZ/1dVN`-1A; 134 CCSID(`kV{/j6{) 120


0hv}VVN`-1A; 130 (f8V 261
D
0t/i/1(STRQRY) |n 11, 15 `-V 139 DATE /}
07O>}i/1A; 187 jG 254, 261 o(<b 77
0>}i/1(DLTQRY) |n 15, 187 "C Td?fr 77
09Ci/1A; a{ 64 DAY /}
i\ 17 i/ o(<b 78
xk 11 m 264 Td?fr 78
P>i/{ 19 !nPm 264 DAYS /}
}]/D>O" 9 KP 264 o(<b 79
KPi/ 178 i/T> Td?fr 79
09Ci/1(WRKQRY) |n 11, 15 m 257 DB2 UDB AS/400 fLr
09C}]bD~1A; (IDDU) 212 (e 253 X5}]buo
09CD~(e1A; (IDDU) 208, 211 bf3 261 D~ 5
0KvKi/1A; 173, 177 |Di/ 257 k AS/400 uoDX5 5
0T>(f<V1A; 13 m 257 DB2 UDB AS/400 fS< 245
0T>(f1A; 12 c\/} 261 DBCS(+VZV{/)
0T>,SbT1A; 55 G<!q 260 (ea{VN
0T>D~!q1A; 44 +}]O"=l+D5 259 <GBn 195
0!q(fc\/}1A; 142 a{VN 260 =(EV{ 13
0!q"ErVN1A; 91 ,SbT 260 {EV{ 4
0!qI11A; 42 Pq= 261 Ud*s 13

w} 277
DBCS(+VZV{/) (x) L"T r Z (x)
,SbTDfr 47
G ,SbT 47
ErV{}] 117 GE(sZrHZ)HObT 99, 100, 172
}]m>( 13 GG(+VZ G) 13
sNDV 4 GT(sZ)HObT 99, 100, 172 M
FvV{
FkV{
63
63
H MICROSECOND /}
o(<b 80
V{#? HOUR /}
Td?fr 80
FvV{ 63 o(<b 79
MINUTE /}
FkV{ 63 Td?fr 79
o(<b 80
0T>(f<V1A; 13
Td?fr 80
LIKE HObT 104
MONTH /}
NLIKE(;`F)HObT 104 I o(<b 81
DDS(}]hv5w) IBM 7^j< (EUR) Td?fr 81
i\ 5 UZM1d 69
Dec P IBM USA j< (USA)

}]`M
UZM1d 69 N
ID(j6{)
E 47, 191 NE(;HZ)HObT 99, 100, 172
D~ 38
G 47 NLIKE(;`F)HObT 99, 103, 172
Zi/(eP9C 38
J 47, 191 NLIST(GPm)HObT 99, 172
Query/36 k Query/400 Dxp 203
L 191
IDDU(;%=}](e5CLr)
O 47, 191
T 191
(e 207 O
i\ 5
V 191 OfficeVision
>}
Z 191 +}]O"=V&mD5P
4( IDDU (e 207
Dec VN `1>O" 9
}]Jd 5
X*PmO" 108
zk w(53)K% 207
i\ 7
E 127 IS(G)HObT 99, 100
PmO" 9
J 127 ISNOT(;G)HObT 99, 100
1SO" 9
L 127 ISO(zJj</i/)
t/ Query/400 11
O 127 UZM1d 69
*X*Pm!qG< 108
T 127
OO(+VZ 0) 13
V 127
OR ,S
Z 127 J G<!qbT 105
DFU(}]D~5CLr) 5
JIS(U>$5j<) OR u~
DIGITS /} UZM1d 69 8(!qbT 244
o(<b 64 JJ(+VZ J) 13 OVRDBF(C}]bD~2G)|n 195
Td?fr 64
DisplayWrite 4
L
O"}] LE(!ZrHZ)HObT 99, 100, 172
Q
i\ 7 LIKE(`F)HObT 172 Query
t/ Query/400 11 `F#= 99, 103 70 207
DBCS 104 Query i\
DisplayWrite 4 M 5
LIKE #= En 3
+}]O"=V&mD5P
G DBCS V{ 104 }]rD>O" 7
1SO" 9
*E= DBCS 104 Query/36 k Query/400 Dxp
DLTQRY(>}i/)|n 15, 187 <N DBCS 104 YwT
(;= DBCS 104 ,SD~ 203
LIST(Pm)HObT 99, 101, 172 I,SDD~} 203
E LOCAL 1dj< ,S`M 203
UZM1d 69 |n 203
EE(+VZ E) 13
LT(!Z)HObT 99, 100, 172 V{VNDns$H 203
EQ(HZ)HObT 99, 100, 172
L"T r Z Query/400
EUR(IBM 7^j<) jGDVx1d K%
UZM1d 69 (e 75 xk 11

278 Query/400 D9C V4R5


Query/400 (x)
9C 15
U
ms 24 UCS2 6p l 'V 4
(e 3
USA(IBM USA j<)
`vi/Nq 18
UZM1d 69
r*m 23
i\
}]rD>O" 7
5w 3
V
|n 15 VALUE /} 65
t/ 11, 15
VARCHAR /} 66
Nq
5w 6 VARGRAPHIC /} 67
<> 6
!q 18
9C 15 W
a>k<I 239
WRKQRY(9Ci/)|n 11, 15
Kv 11, 173
E" 24
k Query/36 Dxp 203
oT3r 256 Y
{m3rgN0l 118
YEAR /}
DisplayWrite 4,t/ 11
o(<b 83
OfficeVision,t/ 11
Td?fr 83
*ALL ,S 46, 196
R *ALL (^ 165, 175
RANGE(6')HObT 99, 100 *ALL Xbb{ 15
RUNQRY(KPi/)|n 15, 179 *ALLUSR Xbb{ 15
*CHANGE (^ 165, 175

S *CURLIB Xbb{ 15
*EXCLUDE (^ 165, 175
SECOND /}
o(<b 81 *LIBCRTAUT (^ 165, 175
Td?fr 81 *LIBL Xbb{ 15
STRQRY(t/i/)|n 11, 15 *QRYDFN(i/(e)
SUBSTR(S.)/}
Ts 5
U5 64
*USE (^ 165, 175
o(<b 64
Td?fr 64 *USRLIBL Xbb{ 15
SUBSTR(S.)Kc{ ||("C)Kc{ 63
U5 64
o(<b 64
Td?fr 64
DBCS VN
a{VN 195

T
TIME /}
o(<b 82
Td?fr 82
TIMESTAMP /}
o(<b 82
Td?fr 82

w} 279
280 Query/400 D9C V4R5
IBM

Printed in China

You might also like