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 >
Wrap
Text File
|
1996-06-05
|
2KB
|
43 lines
*************************************************************
* *
* Licensed Materials - Property of IBM *
* *
* 5622-793 (C) Copyright IBM Corp., 1996 *
* All rights reserved *
* *
* US Government Users Restricted Rights - Use, *
* duplication, or disclosure restricted by GSA ADP *
* Schedule Contract with IBM Corp. *
* *
*************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. "MTARGET".
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STRING-VAR PIC X(20).
01 DYNAMICCALL PIC X(8).
01 ANYCHAR PIC X(1).
01 SLEEPTIME PIC 9(9) COMP-5.
PROCEDURE DIVISION.
MOVE " Dynamic Call DLL = " TO STRING-VAR
DISPLAY " ".
MOVE "DYNDLL1" TO DynamicCall
CALL DYNAMICCALL USING STRING-VAR
MOVE "DYNDLL2" TO DynamicCall
CALL DYNAMICCALL USING STRING-VAR
MOVE "DYNDLL3" TO DynamicCall
CALL DYNAMICCALL USING STRING-VAR
MOVE 3000 TO SLEEPTIME
CALL "DOSSLEEP" USING BY VALUE SLEEPTIME
STOP RUN.
END PROGRAM "MTARGET".