RPG演算命令の中で分類 SORT するには SORTA によって昇順に分類することができる。
SORTA の使い方はやさしいので多くの人がご存知ではあると思うが
基本のひとつとして紹介する。
---------------------------------------------------------------------------------------------
0001.00 H DFTNAME(TESTSORT) DATEDIT(*YMD/)
0002.00 F********** ＳＯＲＴのサンプル ****************************************
0003.00 F*
0004.00 F*****************************************************************
0005.00 D CDR S 4 DIM(3) CTDATA PERRCD(1) 見出し
0006.00 D NMR S 14 DIM(3) CTDATA PERRCD(1) 見出し
0007.00 D STR S 18 DIM(3) 見出し
0008.00 C MOVEL CDR STR
0009.00 C MOVE NMR STR
0010.00 C* SORT 前のデータの表示
0011.00 C 1 DO 3 N 4 0
0012.00 C STR(N) DSPLY
0013.00 C END
0014.00 C '*END OF DATA'DSPLY ANS 1
0015.00 C*
0016.00 C* SORTA によって昇順に並べる
0017.00 C SORTA STR
0018.00 C*
0019.00 C 1 DO 3 N 4 0
0020.00 C STR(N) DSPLY
0021.00 C END
0022.00 C '*END OF SORT'DSPLY ANS 1
0023.00 C SETON LR
0024.00 ** CDR
0025.00 0002
0026.00 0001
0027.00 0003
0028.00 ** NMR
0029.00 ビデオデッキ
0030.00 カラーＴＶ
0031.00 コンボ
---------------------------------------------------------------------------------------------