Re: FW: paradox ?

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

Modules have states.  UPDPGM and UPDSRVPGM fail with CPD5CF7 if user state
tries to bind with system state.  On level 30 a user state can reference
the system domain, like the following RPGLE that still displays a
workstation's  first "Read MDT Fields" input buffer.  The external
parameter is a signed-on workstation name in the same subsystem that runs
this program.

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

     D Pco             PR              *   extproc( '_PCOPTR' )

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

     D Setsppo         PR              *   extproc( 'setsppo' )
     D   Pointer                       *   value
     D   Offset                      10U 0 value

     D Work            DS                  based( Work@ )
     D   Forward                     10U 0 overlay( Work :   1 )
     D   Buffer@                       *   overlay( Work :  65 )
     D   Request@                    16A   overlay( Work :  97 )
     D   ODP@                          *   overlay( Work : 129 )
     D   Table@                        *   overlay( Work : 225 )

     C     *entry        plist
     C                   parm                    Display          10

     C                   eval      *INLR = *on
     C                   if        %Parms >= 1
     C                   eval      Work@ = Pco
     C                   eval      Work@ = Table@
     C                   eval      Work@ = Setsppo( Work@ : 128 )
     C                   dou       Forward = 0
     C                   if        Display = %subst( Work : 7 : 10 )
     C                   if        ODP@ <> *null
     C                   eval      Work@ = ODP@
     C                   eval      Work@ = Setsppfp( Request@ )
     C                   eval      Work@ = Buffer@
     C                   eval      UPass = %subst( Work : 7 : 26 )
     C                   dsply                   UPass            26
     C                   endif
     C                   leave
     C                   endif
     C                   eval      Work@ = Setsppo( Work@ : Forward )
     C                   enddo
     C                   endif


+---
| 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
+---