******************************************************************* *-----------------------------------------------------------------* * * * Copyright(c) by Bernd Riemke * * Riemke-IT Solutions * * An den Ruschen 27a * * D-28816 Stuhr * * * *-----------------------------------------------------------------* $SET Ans85 * * * SCHLAFEN.CBL Das Programm schaut alle X Minuten * ------------ wie spät es ist !? * ---------------------------------- * * * LETZTE ÄNDERUNG: * ================ * 01.01.2017 Bernd Riemke * - Angelegt * * * *================================================================= IDENTIFICATION DIVISION. PROGRAM-ID. SCHLAFEN. AUTHOR. BERND RIEMKE. INSTALLATION. BERND RIEMKE. DATE-WRITTEN. 01-Januar-2017. DATE-COMPILED. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. CALL-CONVENTION 74 IS WINAPI DECIMAL-POINT IS COMMA. SOURCE-COMPUTER. IBM-PC-COMP. OBJECT-COMPUTER. IBM-PC-COMP. * INPUT-OUTPUT SECTION. *--------------------- * FILE-CONTROL. *------------- * DATA DIVISION. *============== * FILE SECTION. *------------- * WORKING-STORAGE SECTION. *------------------------ * 01 MY-FLAGS PIC 9(8) COMP-5. 01 MY-RETCODE PIC 9(8) COMP-5. 01 SLEEP-TIME PIC 9(8) COMP-5. 01 SLEEP-OK PIC 9(8) COMP-5. 78 ISTRUE VALUE 1. 78 ISFALSE VALUE 0. * * LINKAGE SECTION. *---------------- * 01 KREISEL-LINKAGE. 02 KREISEL-MINUTEN PIC 9(04). * ******************************************************************* PROCEDURE DIVISION USING KREISEL-LINKAGE. * HAUPTPROGRAMM SECTION. * * BEISPIEL: * ========= * INITIALIZE KREISEL-LINKAGE. * MOVE 1 TO KREISEL-MINUTEN. *>MAX 3333 * * CALL "SCHLAFEN" USING KREISEL-LINKAGE * END-CALL. * CALL "COB32API.DLL". IF KREISEL-MINUTEN < 3334 PERFORM EIN-SCHLAFEN END-IF. * * HAUPTPROGRAMM-E. * EXIT PROGRAM. STOP RUN. * ****************************************************************** EIN-SCHLAFEN SECTION. *------------------ MOVE ZEROES TO SLEEP-TIME. COMPUTE SLEEP-TIME = KREISEL-MINUTEN * 60000 CALL WINAPI "SleepEx" USING BY VALUE SLEEP-TIME BY VALUE ISFALSE SIZE 4 RETURNING SLEEP-OK END-CALL. EIN-SCHLAFEN-EE. EXIT. ****************************************************************** ****************************************************************** ****************************************************************** ****************************************************************** ******************************************************************