155. RPGの中で文字列を SORT するには ?
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 コンボ ---------------------------------------------------------------------------------------------
