From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/text1/texix/plsort.pliopt | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 macros/text1/texix/plsort.pliopt (limited to 'macros/text1/texix/plsort.pliopt') 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; -- cgit v1.2.3