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).
*>==============================================================