sycalout.cpy

Here is the code from sycalout.cpy:

sycalout.cpy

            *
      *    IMS Callout Sample copybook
      *
      *********************************************************************/
      *                                                                   */
      * (c) Copyright IBM Corp. 2008                                      */
      * All Rights Reserved                                               */
      * Licensed Materials - Property of IBM                              */
      *                                                                   */
      * DISCLAIMER OF WARRANTIES.                                         */
      *                                                                   */
      * The following (enclosed) code is provided to you solely for the   */
      * purpose of assisting you in the development of your applications. */
      * The code is provided "AS IS." IBM MAKES NO WARRANTIES, EXPRESS OR */
      * IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF   */
      * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING   */
      * THE FUNCTION OR PERFORMANCE OF THIS CODE.                         */
      * IBM shall not be liable for any damages arising out of your use   */
      * of the generated code, even if they have been advised of the      */
      * possibility of such damages.                                      */
      *                                                                   */
      * DISTRIBUTION.                                                     */
      *                                                                   */
      * This generated code can be freely distributed, copied, altered,   */
      * and incorporated into other software, provided that:              */
      *   - It bears the above Copyright notice and DISCLAIMER intact     */
      *   - The software is not for resale                                */
      *                                                                   */
      *********************************************************************/

        01  CALLOUT-REQUEST.
            05  CALLOUT-REQUEST-STR      PIC X(50).

        01  CALLOUT-RESPONSE.
            05  CALLOUT-RESPONSE-STR     PIC X(50).
.