using _pcoptr proc. was: Attention Users of *SYSTEM State

How does this code that Gene posted run without getting a storage protection
violation (MCH6801) ?

-Steve

** ---------------------- PcoPtr --------------------------
dPcoPtr           pr              *   extproc('_PCOPTR')

** -------------------------  test31 ----------------------
d test31          pi

d pPco            s               *
d pco             ds                  qualified based(pPco)
d  Function                     11a   overlay( pco: 1017 )
 /free
      pPco        = PcoPtr( ) ;
      pco.Function  = 'P' + 'TelCasMgmt' ;

-----Original Message-----
From: mi400-bounces@xxxxxxxxxxxx [mailto:mi400-bounces@xxxxxxxxxxxx]On
Behalf Of Gene_Gaunt@xxxxxxxxxxxxxxx
Sent: Thursday, March 10, 2005 8:54 AM
To: mi400@xxxxxxxxxxxx
Subject: Re: [MI400] RE: Attention Users of *SYSTEM State


> Why not just start discussions on what new APIs etc. are needed?

We'd like a legitimate API that will, for the current job, update
the job's 10-letter function in WRKACTJOB's "Function" column.

Here is our hack to do it now without API:

D PCOPTR          PR              *   extproc( '_PCOPTR' )

D Pco             DS                  based( Pco@ ) qualified
D   Function                    11A   overlay( Pco: 1017)

 /free
  Pco@ = PCOPTR();
  Pco.Function = 'P' + 'TelCasMgmt';
 /end-free

This example will make the current job's function in WRKACTJOB's
"Function" column show "PGM-TelCasMgmt".

_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.