Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Programming Guide


EXIT compiler option

Use the EXIT option to allow the compiler to accept user-supplied modules in place of SYSIN, SYSLIB (or copy library), and SYSPRINT.

For SYSADATA, the ADEXIT suboption provides a module that will be called for each SYSADATA record immediately after the record has been written out to the file.

Read syntax diagramSkip visual syntax diagram
EXIT option syntax

   .-NOEXIT-----------------------------------.   
>>-+------------------------------------------+----------------><
   |       .------------------------------.   |   
   |       V                              |   |   
   '-EXIT(---+--------------------------+-+-)-'   
             +-INEXIT(-+-------+-mod1)--+         
             |         '-str1,-'        |         
             +-NOINEXIT-----------------+         
             +-LIBEXIT(-+-------+-mod2)-+         
             |          '-str2,-'       |         
             +-NOLIBEXIT----------------+         
             +-PRTEXIT(-+-------+-mod3)-+         
             |          '-str3,-'       |         
             +-NOPRTEXIT----------------+         
             +-ADEXIT(-+-------+-mod4)--+         
             |         '-str4,-'        |         
             '-NOADEXIT-----------------'         

Default is: NOEXIT

Abbreviations are: EX(INX|NOINX, LIBX|NOLIBX, PRTX|NOPRTX, ADX|NOADX)

If you specify the EXIT option without providing at least one suboption, NOEXIT will be in effect. You can specify the suboptions in any order and separate them by either commas or spaces. If you specify both the positive and negative form of a suboption (INEXIT|NOINEXT, LIBEXIT|NOLIBEXIT, PRTEXIT|NOPRTEXIT, or ADEXIT|NOADEXIT), the form specified last takes effect. If you specify the same suboption more than once, the last one specified takes effect.

You can specify the EXIT option only at invocation in the JCL PARM field (under TSO/E, in a command argument) or at installation time. Do not specify the EXIT option in a PROCESS (CBL) statement.

INEXIT(['str1',]mod1)
The compiler reads source code from a user-supplied load module (where mod1 is the module name) instead of SYSIN.
LIBEXIT(['str2',]mod2)
The compiler obtains copybooks from a user-supplied load module (where mod2 is the module name) instead of library-name or SYSLIB. For use with either COPY or BASIS statements.
PRTEXIT(['str3',]mod3)
The compiler passes printer-destined output to the user-supplied load module (where mod3 is the module name) instead of SYSPRINT.
ADEXIT(['str4',]mod4)
The compiler passes the SYSADATA output to the user-supplied load module (where mod4 is the module name).

The module names mod1, mod2, mod3, and mod4 can refer to the same module.

The suboptions str1, str2, str3, and str4 are character strings that are passed to the load module. These strings are optional. They can be up to 64 characters in length, and you must enclose them in single quotation marks. Any character is allowed, but included single quotation marks must be doubled. Lowercase characters are folded to uppercase.

If one of str1, str2, str3, or str4 is specified, the string is passed to the appropriate user-exit module with the following format:

LL string

where LL is a halfword (on a halfword boundary) that contains the length of the string.

Example: INEXIT user exit


Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)