RPG で使用する配列の大きさを考えられるだけ大きなサイズで静的に定義したとする。
しかも、かなり大きなサイズが必要である場合だ。
配列に収めるデータが動的に変化するのであれば、最大限の項目数を用意しておいても、
- 配列の項目数をオーバーするかも知れない。指標オーバーは防止できない。
- 少ないデータのときでも 配列の数が大きいためプログラム・サイズも大きくなってしまう。
- プログラム・サイズが大きくなると非効率だけでなく起動時間を要する。
これらの問題をスマートに解決する方法がある。
それは動的配列（ダイナミック・アレイ）を定義することである。
C/400 すなわち C言語であれば malloc によって動的にメモリを確保することができるが
実は ILE-RPGでも ILE-API を使用すれば可能になる。
しかし、C/400を使わずに V3R1M0 から使用できる方法である。
静的な配列を定義した場合と以下の方法を使用した場合のプログラム・サイズをDSPPGM で
比べてみて欲しい。驚くほど減少していることだろう。
なおコンパイルは、
CRTRPGMOD OPTIMIZE(＊FULL) CRTPGM ACTGRP(＊CALLER)
を指定すること。
0001.00 H DFTNAME(DMCARY) DATEDIT(*YMD/)
0002.00 F********** 動的配列の生成 ***************************************
0003.00 F*
0004.00 F*****************************************************************
0005.00 D STB S 1 DIM(5000) BASED(ARYPTR)
0006.00 D
0007.00 D HEAPID S 9B 0
0008.00 D SIZE S 9B 0
0009.00 D FREEBK S 12A
0010.00 C*( 最初の配列項目数を 1000 に設定する。 )
0011.00 C Z-ADD 1000 ARYMAX 5 0
0012.00 C*( MALLOC )
0013.00 C EVAL SIZE = %SIZE(STB) * ARYMAX
0014.00 C*----------------------------------------------------+
0015.00 C CALLB 'CEEGTST'
0016.00 C PARM HEAPID
0017.00 C PARM SIZE
0018.00 C PARM ARYPTR
0019.00 C PARM FREEBK
0020.00 C*----------------------------------------------------+
0021.00 C*( 1000 を超える値として 4500 を配列指標に設定する。 )
0022.00 C Z-ADD 4500 SAVLEN
0023.00 C*( 配列の最大数を拡張する。 )
0024.00 C SETOFF 50
0025.00 C SAVLEN DOWGT ARYMAX
0026.00 C ADD 1000 ARYMAX
0027.00 C EVAL SIZE = %SIZE(STB) * ARYMAX
0027.00 C SETON 50
0028.00 C END
0029.00 C*( REALLOC )- メモリーを再割振りする。
0030.00 C *IN50 IFEQ *ON
0031.00 C*----------------------------------------------------+
0032.00 C CALLB 'CEECZST'
0033.00 C PARM ARYPTR
0034.00 C PARM SIZE
0035.00 C PARM FREEBK
0036.00 C*----------------------------------------------------+
0037.00 C END
0038.00 C*( 4500 番目にＭＯＶＥする。 )
0039.00 C MOVEA 'TESTDTA' STB(SAVLEN)
0040.00 C*( FREE MEMORY )- メモリーを解放する。
0041.00 C*----------------------------------------------------+
0042.00 C CALLB 'CEEFRST'
0043.00 C PARM ARYPTR
0044.00 C PARM FREEBK
0045.00 C*----------------------------------------------------+
0046.00 C SETON LR
0047.00 C RETURN