Previous Topic Next topic Print topic


Subsystem Exit Interface Block (mfjdsxit.cpy)

This section presents a listing of the mfjdsxit.cpy copybook used by SXIT.

For the most up-to-date information refer to the source for this copybook in your product installation.

 *>==============================================================
      *> Copyright ©) 1997-2008 Micro Focus (IP) Ltd.
      *>   All rights reserved.
      *>
      *> This sample source code is provided for use by users of
      *> Micro Focus products (the "Software") and may be used,
      *> modified and distributed as part of your application provided
      *> that you properly acknowledge the copyright of Micro Focus in
      *> this material.
      *>
      *> All conditions, warranties and undertakings, express or implied,
      *> statutory or otherwise, on the part of Micro Focus are excluded,
      *> including without limitation those of merchantability or fitness
      *> for purpose. This shall not, however, purport to exclude or
      *> restrict the liability of Micro Focus to any extent not
      *> permitted by law.
      *>
      *> IN NO EVENT WILL MICRO FOCUS BE LIABLE FOR ANY INDIRECT,
      *> INCIDENTAL, SPECIAL, CONSEQUENTIAL OR OTHER DAMAGES ARISING OUT
      *> OF THE USE OF THE DEMONSTRATION PROGRAM DISTRIBUTED WITH THE
      *> SOFTWARE, WHETHER OR NOT INFORMED OF THE POSSIBILITIES OF
      *> DAMAGES IN ADVANCE.  THESE LIMITATIONS APPLY TO ALL CAUSES OF
      *> ACTION, INCLUDING BREACH OF CONTRACT, BREACH OF WARRANTY, STRICT
      *> LIABILITY, AND ANY ACTIONS IN TORTS.
      *>==============================================================

      *>==============================================================
      *> mfjdsxit - Micro Focus Subsystem user exit parameter block
      *>   Contains interface information and is passed as a parameter
      *>   to the subsystem exit which is ivoked as:
      *>      call  subsys-exit using sxit
      *>
      *> Notes:
      *>   1. It should be included as follows (e.g.)
      *>        copy mfjdsxit replacing ==()== by ==sxit==.
      *>   2. Fields beginning with sxit-I- ( ()-I- ) are Input
      *>      to the subsystem exit and must not be modified
      *>      e.g. sxit-I-size
      *>   3. Fields beginning with sxit-U- ( ()-U- ) are Input and
      *>      Output. On entry to the subsystem exit, they are set as
      *>      appropriate and may be changed by the subsystem exit to
      *>      an acceptable value upon return.
      *>      e.g. ()-U-ds-type
      *>   4. All data is ASCII(ANSI). Null values are those appropriate
      *>      for the data type. i.e. blanks for character data,
      *>      zeros for numeric and binary data
      *>==============================================================
         1 ().
           3 ()-header.
             5 ()-I-size           pic x(2) comp-x. *>Size of this blk
             5 ()-I-event          pic x(2) comp-x. *> event code
                  *> this event occurs before DD is allocated
               78 ()-I-event-dd-alloc-pre        value  1.
             5 ()-U-action         pic x(2) comp-x. *>action requested
               *> The system should continue as if the exit were
               *> never invoked. Do not modify any data.
               78 ()-U-action-continue            value 0.
               *> The system should use updated data and continue.
               78 ()-U-action-use-updated-data    value 4.
               *> Others - TBD
             5                     pic x(2) comp-x.
           3 ()-data.
             5 ()-I-jseb-ptr       pointer.
             5 ()-U-ds-name-ptr    pointer.
             5 ()-U-ds-type        pic x(1).
               78 ()-U-ds-type-perm     value x'00'.
               78 ()-U-ds-type-temp     value x'80'.
               78 ()-U-ds-type-dummy    value x'40'.
               78 ()-U-ds-type-sysout   value x'20'.
               78 ()-U-ds-type-terminal value x'10'.
               78 ()-U-ds-type-pc       value x'08'.
             5                     pic x(3).
               *>  DD statement SUBSYS= value length
             5 ()-U-subsys-len     pic x(4) comp-x.
               *> if SUBSYS= value length (previous field) is non-zero,
               *> a ptr to entire (including subsystem name, the 1st
               *> subparameter) DD SUBSYS= string
             5 ()-U-subsys-ptr     pointer.
             5                     pic x(20).
      *>==============================================================

Previous Topic Next topic Print topic