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;