A call to PLISRTA sorting 80-byte records from SORTIN to SORTOUT using 1048576 (1 megabyte) of storage, and a return code, RETCODE, declared as FIXED BINARY (31,0).
CALL PLISRTA (' SORT FIELDS=(1,80,CH,A) ',
' RECORD TYPE=F,LENGTH=(80) ',
1048576,
RETCODE);