mi access to a dtaara

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

People of the mi,

 

I can set a sysptr to a dtaara object ( object type x'190A' ).  But I get MCH6801 when I SETSPPFP on this sysptr.  ( security level 40, v4r4 )

    DCL SYSPTR pSysDataArea AUTO ;

    DCL SPCPTR pSpcDataArea AUTO ;

    SETSPPFP pSpcDataArea, pSysDataArea ;

    /* boom.  mch6801 */

 

But, the pco has a sysptr to the *lda in pos(561) and when I SETSPPFP to the *Lda sysptr, a useable spcptr is returned.

    DCL SYSPTR pSysLda BASPCO POS(561) ;

    DCL SPCPTR pSpcLda AUTO ;

    DCL DD cLda CHAR(512) ADDR(*BAS pSpcLda) POS(97) ;

    DCL DD cCopyOfLda CHAR(512) AUTO ;

    SETSPPFP  pSpcLda, pSysLda ;

    /* no boom */

    CPYBLA  cCopyOfLda, cLda ;

 

The subject as400 is running at security level 40, release v4r4.

 

Any comments on why the *lda is accessible with a spcptr?

 

Do you think this access will be permitted in future releases?

 

thanks,

Steve Richter