Arrays: Difference between revisions
Content added Content deleted
imported>Arakov |
Jmarkmurphy (talk | contribs) |
||
Line 7,867: | Line 7,867: | ||
/end-free |
/end-free |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
{{works with|ILE RPG v7.1+}} |
|||
<nowiki>**</nowiki>free |
|||
//-Static array |
|||
//--def of 10 el array of integers, initialised to zeros |
|||
dcl-s array int(10) dim(10) inz; |
|||
//--def an el |
|||
dcl-s el_1 int(10) inz(0); |
|||
//-assign first el |
|||
//--first element of RPG array is indexed with 1 |
|||
array(1) = 111; |
|||
//-get first el of array |
|||
el_1 = array(1); |
|||
//--display it |
|||
dsply ('First el of array='+%char(el_1)); |
|||
//--displays: First el of array=111 |
|||
//---or shorter, without "el_1" |
|||
dsply ('First el of array='+%char(array(1))); |
|||
//--displays: First el of array=111 |
|||
=={{header|RPL}}== |
=={{header|RPL}}== |