ADDPARTC.cbl

       PROCESS NODYNAM,RENT,APOST,CICS,TRUNC(OPT)
      
      *****************************************************************
      * Licensed Materials - Property of IBM
      *
      * SAMPLE
      *
      * Copyright IBM Corp. 2017 All Rights Reserved
      *
      * Government Users Restricted Rights - Use, duplication or
      * disclosure restricted by GSA ADP Schedule Contract with
      * IBM Corp.
      *
      *****************************************************************
      *
      * Simple program used to receive a record in a container and
      * write it out to a VSAM file. This program is the non-Java
      * part of the LinkChannelResource example.
      *
      * To simplify the code, this program has minimal error-handling
      * logic.
      *
      *****************************************************************
      
       IDENTIFICATION DIVISION.
       PROGRAM-ID.              ADDPARTC.
       DATE-WRITTEN.            May 2017.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
      *
       WORKING-STORAGE SECTION.
      *
      *    STOCK-PART copybook
           COPY STOKPART REPLACING STOCK-PART BY WS-STOCK-PART.
      *
      *    Name of the CICS file to use
       77  FILE-NAME            PIC X(8) VALUE 'SMPLXMPL'.
      *
      *    Name of the container to use
       77  CONTAINER-NAME       PIC X(16) VALUE 'STOKPART'.
      *
       LINKAGE SECTION.
      *
       PROCEDURE DIVISION USING DFHEIBLK DFHCOMMAREA.
      *
       MAIN-PROCESSING SECTION.
      *
      *    Get the container from the current channel
           EXEC CICS GET CONTAINER(CONTAINER-NAME)
                     INTO(WS-STOCK-PART)
                     END-EXEC.
      *
      *    Write to the file using CICS file control services
           EXEC CICS WRITE FILE(FILE-NAME)
                     FROM(WS-STOCK-PART)
                     RIDFLD(PART-ID of WS-STOCK-PART)
                     END-EXEC.
      *
      *    Update the description to prove we can pass data back in
      *    a container to Java
           MOVE '<ADDED>' TO DESCRIPTION OF WS-STOCK-PART(1:7).
      *
      *    Update the container
           EXEC CICS PUT CONTAINER(CONTAINER-NAME)
                     FROM(WS-STOCK-PART)
                     END-EXEC.
      *
      *    Back to CICS
           EXEC CICS RETURN END-EXEC.
      *
           GOBACK.