× 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.


  1.  Home
  2. MI400
  3. March 2005

Re: 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".

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.