summaryrefslogtreecommitdiff
path: root/macros/text1/texix/plsort.pliopt
diff options
context:
space:
mode:
Diffstat (limited to 'macros/text1/texix/plsort.pliopt')
-rw-r--r--macros/text1/texix/plsort.pliopt9
1 files changed, 9 insertions, 0 deletions
diff --git a/macros/text1/texix/plsort.pliopt b/macros/text1/texix/plsort.pliopt
new file mode 100644
index 0000000000..b644a4206c
--- /dev/null
+++ b/macros/text1/texix/plsort.pliopt
@@ -0,0 +1,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;