1048576 (1 メガバイト) のストレージと FIXED BINARY (31,0) と宣言された戻りコードの RETCODE を使って 80 バイトの レコードを SORTIN から SORTOUT へソートする PLISRTA への呼び出し。
CALL PLISRTA (' SORT FIELDS=(1,80,CH,A) ',
' RECORD TYPE=F,LENGTH=(80) ',
1048576,
RETCODE);