Re: Exit Programs

John,

Your example has two different CHGJOB statements separated by
two ENDDO statements.  Looks to me like the run priority is
always set to 20.  How is that helpful? <G>

Charly

>From: John Earl <johnearl@400security.com>
>
>Frank Reiss wrote:
>
> >   Could someone explain what Exit Programs are and typical uses, if
> > possible show an example.
>
>An exit program is a program that you register with an existing
>(usually IBM) process.  The existing process detects that the exit
>program exists and calls it to perfrom some additional processing
>(essentially, exiting the IBM process to do your bidding, and then
>continuing with the IBM process).
>
>An example might be where you want all FTP transfers to run at
>RUNPTY(50) (they default to RUNPTY(20).  If you execute the WRKREGINF
>command, you'll see that the IBM FTP server has an exit point called
>QIBM_QTMF_SERVER_REQ.  It's input parameters are defined by a data
>structure called VLRQ0100.  The layout of VLRQ0100 is as follows:
>
>INPUT - Application_identifier    4 0 B
>INPUT - Operation_Identifier      4 0 B
>INPUT - User_Profile                 10 *CHAR
>INPUT - Remote_IP_Address   Var *CHAR
>INPUT - Length_of_IP_Address 4 0 B
>INPUT - Operation_information   Var *CHAR
>INPUT - Length_of_Operation_information   4 0 B
>OUTPUT - Return_Code                 4 0 B
>
>(See QB3ANL03   OS/400 TCP/IP Configuration and Reference V4R4 for
>complete information on the FTP exit points)
>
>While there are similarities, each Exit Point can have different
>paramaters and data contents.  For the FTP Server, you might see the
>following input to the Program:
>
>INPUT - Application_identifier    "1"   (FTP Server)
>INPUT - Operation_Identifier      "6"  (Send File)
>INPUT - User_Profile                 "FRED      "
>INPUT - Remote_IP_Address   "172.168.20.7"
>INPUT - Length_of_IP_Address "12"
>INPUT - Operation_information
>QSYS.LIB/PRODUCTION.LIB/CUSTOMER.CUSTOMER"
>INPUT - Length_of_Operation_information   "41"
>OUTPUT - Return_Code                 Null
>
>
>Your Program could say do like (I know that I've left out a bunch of
>the binary conversion stuff):
>
>If (&App_Id *EQ 1) DO
>If (&Opp_ID *EQ 6) *OR (&OPP_ID *EQ 5) DO
>     CHGJOB RUNPTY(50)
>ENDDO
>ENDDO
>
>CHGJOB RUNPTY(20)
>CHGVAR &ReturnCode 1
>
>This is a very simplistic example, but it should give you an idea of
>how you can use exit programs.  What you actrually do in your exit
>program (we do security) is up to you.
>
>If you're at COMMON in New Orleans this May, check out my session of
>Exit Programs.  I get into much more detail (including the gotcha's)
>there.
>

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---