1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>qrpg.test</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (ILERPG) - Theme (Breeze Dark)"/>
</head><body style="background-color:#232629;color:#cfcfc2"><pre>
<span style="color:#7a7c7d"> * "F" (file) specs define files and other i/o devices</span>
<span style="font-weight:bold">F</span> ARMstF1 IF E K Disk Rename(ARMST:RARMST)
<span style="color:#7a7c7d"> * "D" (data) specs are used to define variables</span>
<span style="font-weight:bold">D</span> pCusNo S <span style="color:#f67400">6</span>p
<span style="font-weight:bold">D</span> pName S <span style="color:#f67400">30</span>a
<span style="font-weight:bold">D</span> pAddr1 S <span style="color:#f67400">30</span>a
<span style="color:#7a7c7d"> * The "chain" command is used for random access of a keyed file</span>
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span>pCusNo <span style="font-weight:bold">chain</span> ARMstF1
<span style="color:#7a7c7d"> * If a record is found, move fields from the file into parameters</span>
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">if</span> <span style="font-weight:bold">%found</span>
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">eval</span> pName = ARNm01
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">eval</span> pAddr1 = ARAd01
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">eval</span> pAddr2 = ARAd02
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">eval</span> pCity = ARCy01
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">endif</span>
<span style="color:#7a7c7d"> * RPG makes use of switches. One switch "LR" originally stood for "last record"</span>
<span style="color:#7a7c7d"> * LR flags the program and its dataspace as removable from memory</span>
<span style="font-weight:bold">C</span><span style="color:#cc0000"> </span> <span style="font-weight:bold">eval</span> <span style="color:#cc0000">*InLR</span> = <span style="color:#cc2222">*On</span>
<span style="color:#7a7c7d"> * "F" (file) specs define files and other i/o devices</span>
<span style="font-weight:bold">F</span>ARMstF1 IF E K Disk Rename(ARMST:RARMST)
<span style="color:#7a7c7d"> * "D" (data) specs are used to define variables and parameters</span>
<span style="color:#7a7c7d"> * The "prototype" for the program is in a separate file</span>
<span style="color:#7a7c7d"> * allowing other programs to call it</span>
<span style="color:#27ae60"> /copy</span> cust_pr
<span style="color:#7a7c7d"> * The "procedure interface" describes the *ENTRY parameters</span>
<span style="font-weight:bold">D</span> getCustInf PI
<span style="font-weight:bold">D</span> pCusNo <span style="color:#f67400">6</span>p <span style="color:#f67400">0</span> <span style="font-weight:bold">const</span>
<span style="font-weight:bold">D</span> pName <span style="color:#f67400">30</span>a
<span style="font-weight:bold">D</span> pAddr1 <span style="color:#f67400">30</span>a
<span style="font-weight:bold">D</span> pAddr2 <span style="color:#f67400">30</span>a
<span style="font-weight:bold">D</span> pCity <span style="color:#f67400">25</span>a
<span style="font-weight:bold">D</span> pState <span style="color:#f67400">2</span>a
<span style="font-weight:bold">D</span> pZip <span style="color:#f67400">10</span>a
<span style="color:#27ae60"> /free</span>
<span style="color:#7a7c7d">// The "chain" command is used for random access of a keyed file</span>
<span style="font-weight:bold">chain</span> pCusNo ARMstF1;
<span style="color:#7a7c7d">// If a record is found, move fields from the file into parameters</span>
<span style="font-weight:bold">if</span> <span style="font-weight:bold">%found</span>;
pName = ARNm01;
pAddr1 = ARAd01;
pAddr2 = ARAd02;
pCity = ARCy01;
pState = ARSt01;
pZip = ARZp15;
<span style="font-weight:bold">endif</span>;
<span style="color:#7a7c7d">// RPG makes use of switches. One switch "LR" originally stood for "last record"</span>
<span style="color:#7a7c7d">// LR actually flags the program and its dataspace as removable from memory.</span>
<span style="color:#cc0000">*InLR</span> = <span style="color:#cc2222">*On</span>;
<span style="color:#27ae60"> /end-free</span>
<span style="font-weight:bold">H</span> main(GetCustInf)
<span style="font-weight:bold">D</span> ARMSTF1 E DS
<span style="font-weight:bold">P</span> GetCustInf B
<span style="font-weight:bold">D</span> GetCustInf PI <span style="font-weight:bold">extpgm</span>(<span style="color:#dd0022">'CUS001'</span>)
<span style="font-weight:bold">D</span> inCusNo <span style="font-weight:bold">like</span>(arCNum) <span style="font-weight:bold">const</span>
<span style="font-weight:bold">D</span> outName <span style="font-weight:bold">like</span>(arName)
<span style="font-weight:bold">D</span> outAddr1 <span style="font-weight:bold">like</span>(arAdd1)
<span style="font-weight:bold">D</span> outAddr2 <span style="font-weight:bold">like</span>(arAdd2)
<span style="font-weight:bold">D</span> outCity <span style="font-weight:bold">like</span>(arCity)
<span style="font-weight:bold">D</span> outState <span style="font-weight:bold">like</span>(arStte)
<span style="font-weight:bold">D</span> outZip <span style="font-weight:bold">like</span>(arZip)
<span style="color:#27ae60"> /free</span>
exec sql <span style="font-weight:bold">select</span> arName, arAdd1, arAdd2, arCity, arStte, arZip
into :outName, :outAddr1, :outAddr2, :outCity, :outState,
:outZip
from ARMSTF1
where arCNum = :inCusNo
fetch first <span style="color:#f67400">1</span> row only
with CS
use currently committed;
<span style="color:#27ae60"> /end-free</span>
<span style="font-weight:bold">P</span> GetCustInf E
</pre></body></html>
|
