Prototyping SortMods

["Bill" <billzbubb@xxxxxxxxxx>]

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