      ************************************************************************
      * Copyright (C) 1986-1999 Micro Focus International Ltd.
      * All rights reserved.
      *  
      * This demonstration program 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.
      ************************************************************************
      *
      * Start of source module cobsub2.cbl
      *
      ************************************************************************
       copy "cmain1.cpy".
       IDENTIFICATION DIVISION.
       PROGRAM-ID. cobsub2.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.

       WORKING-STORAGE SECTION.
        01 www pic 99.99 value 10.34.
        01 xxx pic 99.99.
	01 yyy pic x.
	01 zzz char redefines yyy.

       LINKAGE SECTION.
	01 param param1.
	01 paramb param2.

       PROCEDURE DIVISION using by reference param.
          display "In cobsub2"
          move 10.5 to a
          move 10 to b
          move 10 to c
          move "a" to yyy
          move zzz to d
          exit program

        entry "cobsub3" using by reference paramb.
          display "In cobsub3"
          display "Process id is ->" p-pid
          move p-status to zzz
          display "Status is ->" yyy
          move p-price to xxx
          display "Price is :" xxx
          if xxx = www and yyy = "a"
              move "b" to yyy
              move zzz to p-status
          end-if
          exit program

          stop run.
