mi access to a dtaara -- MI400

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.