home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / mtexe / mtarget.cbl next >
Text File  |  1996-06-05  |  2KB  |  43 lines
  1.       *************************************************************
  2.       *                                                           *
  3.       *    Licensed Materials - Property of IBM                   *
  4.       *                                                           *
  5.       *    5622-793 (C) Copyright IBM Corp., 1996                 *
  6.       *    All rights reserved                                    *
  7.       *                                                           *
  8.       *    US Government Users Restricted Rights - Use,           *
  9.       *    duplication, or disclosure restricted by GSA ADP       *
  10.       *    Schedule Contract with IBM Corp.                       *
  11.       *                                                           *
  12.       *************************************************************
  13.  
  14.        IDENTIFICATION DIVISION.
  15.        PROGRAM-ID. "MTARGET".
  16.        DATA DIVISION.
  17.        WORKING-STORAGE SECTION.
  18.        01  STRING-VAR    PIC X(20).
  19.        01  DYNAMICCALL   PIC X(8).
  20.        01  ANYCHAR       PIC X(1).
  21.        01  SLEEPTIME     PIC 9(9) COMP-5.
  22.  
  23.        PROCEDURE DIVISION.
  24.            MOVE " Dynamic Call DLL = " TO STRING-VAR
  25.  
  26.            DISPLAY " ".
  27.  
  28.            MOVE "DYNDLL1" TO DynamicCall
  29.            CALL DYNAMICCALL USING STRING-VAR
  30.  
  31.            MOVE "DYNDLL2" TO DynamicCall
  32.            CALL DYNAMICCALL USING STRING-VAR
  33.  
  34.            MOVE "DYNDLL3" TO DynamicCall
  35.            CALL DYNAMICCALL USING STRING-VAR
  36.  
  37.            MOVE 3000 TO SLEEPTIME
  38.            CALL "DOSSLEEP" USING BY VALUE SLEEPTIME
  39.  
  40.            STOP RUN.
  41.        END PROGRAM "MTARGET".
  42.  
  43.