RE: setsppfp bug

["Bale, Dan" <DBale@xxxxxxxx>]

Status report:  We tried the program below on a V4R3 box at security level
30 and did not get a user ID and password.  The user ID consisted of a
2-digit number followed by the system name and the password contained the
name of one of our subsystems.  Did a dump of the Work DS and found no other
recognizable user ID strings.

Any ideas?

> -----Original Message-----
> From: Gene_Gaunt/ReviewWorks@reviewworks.com
> [SMTP:Gene_Gaunt/ReviewWorks@reviewworks.com]
> Sent: Thursday, June 08, 2000 8:47 AM
> To:   MI400@midrange.com
> Subject:      Re: setsppfp bug
> 
> 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
+---