Warning, /frameworks/syntax-highlighting/autotests/reference/qrpg.test.ref is written in an unsupported language. File is not indexed.
0001 <Normal Text> </Normal Text><Comment> * "F" (file) specs define files and other i/o devices</Comment><br/> 0002 <Normal Text> </Normal Text><Keyword>F</Keyword><Normal Text> ARMstF1 IF E K Disk Rename(ARMST:RARMST)</Normal Text><br/> 0003 <Normal Text></Normal Text><br/> 0004 <Normal Text> </Normal Text><Comment> * "D" (data) specs are used to define variables</Comment><br/> 0005 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pCusNo S </Normal Text><Decimal>6</Decimal><Normal Text>p</Normal Text><br/> 0006 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pName S </Normal Text><Decimal>30</Decimal><Normal Text>a</Normal Text><br/> 0007 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pAddr1 S </Normal Text><Decimal>30</Decimal><Normal Text>a</Normal Text><br/> 0008 <Normal Text></Normal Text><br/> 0009 <Normal Text> </Normal Text><Comment> * The "chain" command is used for random access of a keyed file</Comment><br/> 0010 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text>pCusNo </Normal Text><Keyword>chain</Keyword><Normal Text> ARMstF1</Normal Text><br/> 0011 <Normal Text></Normal Text><br/> 0012 <Normal Text> </Normal Text><Comment> * If a record is found, move fields from the file into parameters</Comment><br/> 0013 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> </Normal Text><Biff>%found</Biff><br/> 0014 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>eval</Keyword><Normal Text> pName = ARNm01</Normal Text><br/> 0015 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>eval</Keyword><Normal Text> pAddr1 = ARAd01</Normal Text><br/> 0016 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>eval</Keyword><Normal Text> pAddr2 = ARAd02</Normal Text><br/> 0017 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>eval</Keyword><Normal Text> pCity = ARCy01</Normal Text><br/> 0018 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>endif</Keyword><br/> 0019 <Normal Text></Normal Text><br/> 0020 <Normal Text> </Normal Text><Comment> * RPG makes use of switches. One switch "LR" originally stood for "last record"</Comment><br/> 0021 <Normal Text> </Normal Text><Comment> * LR flags the program and its dataspace as removable from memory</Comment><br/> 0022 <Normal Text></Normal Text><br/> 0023 <Normal Text> </Normal Text><Keyword>C</Keyword><Indicator> </Indicator><Normal Text> </Normal Text><Keyword>eval</Keyword><Normal Text> </Normal Text><Indicator>*InLR</Indicator><Normal Text> = </Normal Text><Constant>*On</Constant><br/> 0024 <Normal Text></Normal Text><br/> 0025 <Normal Text> </Normal Text><Comment> * "F" (file) specs define files and other i/o devices</Comment><br/> 0026 <Normal Text> </Normal Text><Keyword>F</Keyword><Normal Text>ARMstF1 IF E K Disk Rename(ARMST:RARMST)</Normal Text><br/> 0027 <Normal Text></Normal Text><br/> 0028 <Normal Text> </Normal Text><Comment> * "D" (data) specs are used to define variables and parameters</Comment><br/> 0029 <Normal Text> </Normal Text><Comment> * The "prototype" for the program is in a separate file</Comment><br/> 0030 <Normal Text> </Normal Text><Comment> * allowing other programs to call it</Comment><br/> 0031 <Normal Text> </Normal Text><Directive> /copy</Directive><Normal Text> cust_pr</Normal Text><br/> 0032 <Normal Text> </Normal Text><Comment> * The "procedure interface" describes the *ENTRY parameters</Comment><br/> 0033 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> getCustInf PI</Normal Text><br/> 0034 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pCusNo </Normal Text><Decimal>6</Decimal><Normal Text>p </Normal Text><Decimal>0</Decimal><Normal Text> </Normal Text><Keyword>const</Keyword><br/> 0035 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pName </Normal Text><Decimal>30</Decimal><Normal Text>a</Normal Text><br/> 0036 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pAddr1 </Normal Text><Decimal>30</Decimal><Normal Text>a</Normal Text><br/> 0037 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pAddr2 </Normal Text><Decimal>30</Decimal><Normal Text>a</Normal Text><br/> 0038 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pCity </Normal Text><Decimal>25</Decimal><Normal Text>a</Normal Text><br/> 0039 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pState </Normal Text><Decimal>2</Decimal><Normal Text>a</Normal Text><br/> 0040 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> pZip </Normal Text><Decimal>10</Decimal><Normal Text>a</Normal Text><br/> 0041 <Normal Text> </Normal Text><Directive> /free</Directive><br/> 0042 <Normal Text> </Normal Text><Comment>// The "chain" command is used for random access of a keyed file</Comment><br/> 0043 <Normal Text> </Normal Text><Keyword>chain</Keyword><Normal Text> pCusNo ARMstF1;</Normal Text><br/> 0044 <Normal Text></Normal Text><br/> 0045 <Normal Text> </Normal Text><Comment>// If a record is found, move fields from the file into parameters</Comment><br/> 0046 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> </Normal Text><Biff>%found</Biff><Normal Text>;</Normal Text><br/> 0047 <Normal Text> pName = ARNm01;</Normal Text><br/> 0048 <Normal Text> pAddr1 = ARAd01;</Normal Text><br/> 0049 <Normal Text> pAddr2 = ARAd02;</Normal Text><br/> 0050 <Normal Text> pCity = ARCy01;</Normal Text><br/> 0051 <Normal Text> pState = ARSt01;</Normal Text><br/> 0052 <Normal Text> pZip = ARZp15;</Normal Text><br/> 0053 <Normal Text> </Normal Text><Keyword>endif</Keyword><Normal Text>;</Normal Text><br/> 0054 <Normal Text></Normal Text><br/> 0055 <Normal Text> </Normal Text><Comment>// RPG makes use of switches. One switch "LR" originally stood for "last record"</Comment><br/> 0056 <Normal Text> </Normal Text><Comment>// LR actually flags the program and its dataspace as removable from memory.</Comment><br/> 0057 <Normal Text> </Normal Text><Indicator>*InLR</Indicator><Normal Text> = </Normal Text><Constant>*On</Constant><Normal Text>;</Normal Text><br/> 0058 <Normal Text> </Normal Text><Directive> /end-free</Directive><br/> 0059 <Normal Text></Normal Text><br/> 0060 <Normal Text> </Normal Text><Keyword>H</Keyword><Normal Text> main(GetCustInf)</Normal Text><br/> 0061 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> ARMSTF1 E DS</Normal Text><br/> 0062 <Normal Text> </Normal Text><Keyword>P</Keyword><Normal Text> GetCustInf B</Normal Text><br/> 0063 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> GetCustInf PI </Normal Text><Keyword>extpgm</Keyword><Normal Text>(</Normal Text><ConstantChar>'CUS001'</ConstantChar><Normal Text>)</Normal Text><br/> 0064 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> inCusNo </Normal Text><Keyword>like</Keyword><Normal Text>(arCNum) </Normal Text><Keyword>const</Keyword><br/> 0065 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> outName </Normal Text><Keyword>like</Keyword><Normal Text>(arName)</Normal Text><br/> 0066 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> outAddr1 </Normal Text><Keyword>like</Keyword><Normal Text>(arAdd1)</Normal Text><br/> 0067 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> outAddr2 </Normal Text><Keyword>like</Keyword><Normal Text>(arAdd2)</Normal Text><br/> 0068 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> outCity </Normal Text><Keyword>like</Keyword><Normal Text>(arCity)</Normal Text><br/> 0069 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> outState </Normal Text><Keyword>like</Keyword><Normal Text>(arStte)</Normal Text><br/> 0070 <Normal Text> </Normal Text><Keyword>D</Keyword><Normal Text> outZip </Normal Text><Keyword>like</Keyword><Normal Text>(arZip)</Normal Text><br/> 0071 <Normal Text> </Normal Text><Directive> /free</Directive><br/> 0072 <Normal Text> exec sql </Normal Text><Keyword>select</Keyword><Normal Text> arName, arAdd1, arAdd2, arCity, arStte, arZip</Normal Text><br/> 0073 <Normal Text> into :outName, :outAddr1, :outAddr2, :outCity, :outState,</Normal Text><br/> 0074 <Normal Text> :outZip</Normal Text><br/> 0075 <Normal Text> from ARMSTF1</Normal Text><br/> 0076 <Normal Text> where arCNum = :inCusNo</Normal Text><br/> 0077 <Normal Text> fetch first </Normal Text><Decimal>1</Decimal><Normal Text> row only</Normal Text><br/> 0078 <Normal Text> with CS</Normal Text><br/> 0079 <Normal Text> use currently committed;</Normal Text><br/> 0080 <Normal Text> </Normal Text><Directive> /end-free</Directive><br/> 0081 <Normal Text> </Normal Text><Keyword>P</Keyword><Normal Text> GetCustInf E</Normal Text><br/>