Re: setsppfp bug

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

Thanks David, you found it, the setsppfp prototype must be
16A VALUE instead of *.  So here is an ILE RPG way to sniff the
most recently entered sign-on buffer on a level 30 machine.

     H dftactgrp( *no ) bnddir( 'QC2LE' )

     D UserId          S             10A
     D Password        S             10A

     D Work            DS                  based( Work@ )
     D   Buffer@                       *   overlay( Work :  17 )
     D   UFCB@                         *   overlay( Work : 433 )
     D   SubSystem                   16A   overlay( Work : 529 )

     D PCO@            PR              *   extproc( '_PCOPTR' )

     D setsppfp        PR              *   extproc( 'setsppfp' )
     D   Object                      16A   value

     C                   eval      Work@ = PCO@
     C                   eval      Work@ = setsppfp( SubSystem )
     C                   eval      Work@ = UFCB@
     C                   eval      Work@ = Buffer@
     C                   eval      UserId   = %subst( Work :  1 : 10 )
     C                   eval      Password = %subst( Work : 11 : 10 )
     C                   eval      *INLR = *on


+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---