Re: Exit Programs

["Charly Jones" <charly301@xxxxxxxxxxx>]

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
+---