PLSORT: PROC(TEMP) OPTIONS(FORTRAN);

PLSORT: PROC(TEMP) OPTIONS(FORTRAN);
DCL TEMP FIXED BIN(31,0);
CALL PLISRTA(
' SORT FIELDS=(38,256,CH,A,293,44,CH,A,342,256,CH,A,'||
'597,44,CH,A,646,256,CH,A,901,44,CH,A,10,4,BI,D,6,4,BI,A)',
' RECORD TYPE=V,LENGTH=(1857) ',
95000,TEMP);
RETURN;
END;