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