× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2009

Re: Need OCCURS when defining data structures

Adam Glauser wrote:
James Newman, CDP wrote:
I'm on a V5R2 machine and rewriting a program that currently uses 60 element
arrays when processing records. As part of the processing I have to move
element 59 to element 60, 58 to 59, etc and put the newly read record in
element 1.
/free

ds = 'abcdefghijklmnopqrstuvwxyz';
ds = %subst(ds : 2);
array(26) = 'A';

*inlr = *on;
return;
/end-free


Okay, you wanted shift right, not shift left. Not my best day apparently :)

/free

ds = 'abcdefghijklmnopqrstuvwxyz';
%subst(ds : 2 : %len(ds) - 1) = ds;
array(1) = 'Z';

*inlr = *on;
return;
/end-free

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.