× 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. MIDRANGE-L
  3. September 2001

Re: Retrieve User Profile

Brad,

Here's a CL example:

/*-- API Error Code parameter:  -------------------------------------*/
     Dcl  &ErrorCode   *Char      8      X'0000000000000000'

/*-- QUSRJOBI API parameters:  --------------------------------------*/
     Dcl  &JiRcvVar    *Char    256
     Dcl  &JiRcvVarLn  *Char      4     x'00000100'
     Dcl  &JiFmtName   *Char      8     'JOBI0600'
     Dcl  &JiJobQ      *Char     26     '*'
     Dcl  &JiJobId     *Char     16

     Dcl  &CurUsrPrf   *Char     10


/*-- Call JOB-information API:  -------------------------------------*/
     Call       QUSRJOBI    ( &JiRcvVar               +
                              &JiRcvVarLn             +
                              &JiFmtName              +
                              &JiJobQ                 +
                              &JiJobId                +
                              &ErrorCode )

     MonMsg     CPF0000       *N       GoTo EndPgm

/*-- Retreive JOB-information:  -------------------------------------*/
     ChgVar     &CurUsrPrf           %SSt( &JiRcvVar  92  10 )

 EndPgm:
     EndPgm

Best regards,
Carsten


----- Original Message -----
From: <midrange-l-admin@midrange.com>
To: <midrange-l@midrange.com>
Sent: Tuesday, September 18, 2001 7:28 PM
Subject: RE: Retrieve User Profile


> CL, please sir.
>
> Brad

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
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.