RE: Trigger parameter prototypes

Thanks Tom, that does work, but I'm still confused about the *VarSize.  It
appears that BfrRcd, BfrDS, BufferChr, and BufferAry would still all be
32767 characters long.  So what would be variable about it and is there any
way to have the first parameter only take up the space designated in the
second parameter?

Now in my case, I'm passing the buffer on along to a second level program,
so I suppose I could DIM the BufferAry to the value of BufferLength and then
pass a pointer to that array.  At least then, the second level program would
only deal with the actual size of the data buffer.  Does that sound right?

> -----Original Message-----
> From: Westdorp, Tom [SMTP:Tom.Westdorp@StationCasinos.com]
> Sent: Tuesday, February 19, 2002 7:01 PM
> To:   rpg400-l@midrange.com
> Subject:      RE: Trigger parameter prototypes
>
> This message is in MIME format. Since your mail reader does not understand
> this format, some or all of this message may not be legible.
> --
> [ Picked text/plain from multipart/alternative ]
> I use this for a program named MPGCSPCM which is the trigger on file CSPCM
> and it works:
>
> D MPGCSPCM        PR
> D  BfrRcd                    32767    Options(*VarSize)
> D  BufferLength                 10i 0
>
> D MPGCSPCM        PI
> D  BfrRcd                    32767    Options(*VarSize)
> D  BufferLength                 10i 0
>
> .............
>
> D BfrDS           DS
> D  FileName                     10
> D  Library                      10
> D  MbrName                      10
> D  TrigEvent                     1
> D  TrigTime                      1
> D  CmtLckLvl                     1
> D                                3
> D  CCSID                        10i 0
> D                                8
> D  BfrOffset                    10i 0
> D  BfrLength                    10i 0
> D  BfrNullOff                   10i 0
> D  BfrNullMap                   10i 0
> D  AftOffset                    10i 0
> D  AftLength                    10i 0
> D  AftNullOff                   10i 0
> D  AftNullMap                   10i 0
> D                               16
> D  BufferChr                 32767    Overlay(BfrDS)
> D   BufferAry                    1    Overlay(BufferChr)
> D                                     Dim(%size(BufferChr))
>
> ............
>
> D bfr_CSPCM     E DS                  ExtName(CSPCM) Prefix(bfr_)
> D                                     Based(BfrPtr)
>
> D aft_CSPCM     E DS                  ExtName(CSPCM) Prefix(aft_)
> D                                     Based(AftPtr)
> ............
>
> D BufferSize      c                   Const(%size(BufferChr))
> D BufferLen       s             10i 0
> D BfrPtr          s               *
> D AftPtr          s               *
>
> ............
>
> C                   Eval      Bfrds = %subst(BfrRcd:1:BufferLength)
> C                   Eval      BfrPtr = %addr(BufferAry(BfrOffset + 1))
> C                   Eval      AftPtr = %addr(BufferAry(AftOffset + 1))
>
>
>
> -----Original Message-----
> From: Smith, Nelson [mailto:NSmith@lincare.com]
> Sent: Tuesday, February 19, 2002 2:32 PM
> To: rpg400-l@midrange.com
> Subject: Trigger parameter prototypes
>
>
> I'm having trouble converting my trigger programs over to using prototypes
> rather than a PLIST.
>
> How do you specify the first parameter for a trigger in a prototype?  If I
> use an asterisk for a pointer,  how do I define the datastructure to start
> at that pointer location?   Since the second parameter gives us the size
> of
> the first parameter, can that be used to declare the size of the first
> parameter?
>
> Given D-specs of:
>
> D Buffer      DS
> D BufferLength        S                       10I 0
>
>
> a PLIST of:
>
> C     *ENTRY  PLIST
> C                     PARM            Buffer
> C                     PARM            BufferLength
>
> works just fine, but a prototype and interface of:
>
> D TriggerPgm          PR              EXTPGM('MyTrig')
> D                                *    CONST
> D                             10I O   CONST
>
> D TriggerPgm          PI
> D  Buffer                        *    CONST
> D  BufferLength                       10I O   CONST
>
> doesn't.   Do I have to declare the buffer at the maximum size it could be
> (32,767 bytes) or is there some way to declare it based on the second
> parameter?
>
>
> Nelson Smith, CDP, CCP
> IBM Certified Specialist
> AS400 RPG IV Programmer
> (727) 431-8243
> (800) 284-2006
>
>
>
> **************************************************************************
> **
> **************************************************************************
> **
> ****************************************************
> This message originates from Lincare Holdings Inc. It contains information
> which maybe confidential or privileged and is intended only for the
> individual or entity named above.
> It is prohibited for anyone else to disclose, copy, distribute or use the
> contents of this message.
> All personal messages express views solely of the sender, which are not to
> be attributed to Lincare Holdings Inc., and may not be copied or
> distributed
> without this disclaimer.
> If you received this message in error, please notify us immediately at
> MailAdmin@lincare.com or (800) 284-2006.
> **************************************************************************
> **
> **************************************************************************
> **
> ****************************************************
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.