× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Back in 1996, iSeries Network listed a program that acted as an interface
to QLGSORT.  It was named SORTMODS.  Here are the parameters and field
definitions:

      D#Keys            S              3P 0
      D#Ocur            S              5P 0
      DExitEr           S              1A
      Di                S              3P 0
      DKeyAD            S              1A   DIM(MaxKey)
      DKeyDT            S              1A   DIM(MaxKey)
      DKeyLn            S              5P 0 DIM(MaxKey)
      DKeySt            S              5P 0 DIM(MaxKey)
      DLength           S              5P 0
      DMODS             S              1A
      DReturnSize       S              9B 0
      DSizeList         S              9B 0

     C     *ENTRY        PLIST
     C                   PARM                    MODS
     C                   PARM                    #Ocur
     C                   PARM                    Length
     C                   PARM                    #Keys
     C                   PARM                    KeySt
     C                   PARM                    KeyLn
     C                   PARM                    KeyDT
     C                   PARM                    KeyAD
     C                   PARM                    ExitEr

Here's my attempt at a prototype:

     D SortMods        pr                  Extpgm('SORTMODS')
     D  smArrPtr                      1
     D  smCount                       5  0 Const
     D  smElemLen                     5  0 Const
     D  smNumKeys                     3  0 Const
     D  smKeyPos                      5  0 Const
     D  smKeyLen                      5  0 Const
     D  smKeyType                     1    Const
     D  smKeyDir                      1    Const
     D  smExitCd                      1

If the prototype is correct, what would the callp look like?  Here's what
I'm trying:


            CallP SortMods (%Addr(arrDtOrd) : x : %Size(arrDtOrd) :
                    %Size(arrDtOrd) : 1 : 1 : %Size(arrDODte) : 'A' :
                    'A' : cExitCd ) ;

The compiler doesn't like parameter 1.  Since I am feeding different arrays
to SortMods in this program, what is the correct Callp/Prototype to
accomplish this?

Bill



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.