summaryrefslogtreecommitdiff
path: root/macros/text1/texix/plsort.pliopt
blob: b644a4206cceb7c82f6e9569819c68c9e9f15325 (plain)
1
2
3
4
5
6
7
8
9
 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;