*-------------------------------------------------* *-------------------------------------------------* *Eintrag in der WORKING-STORAGE SECTION 01 ZEIT PIC 9(08). 01 STUNDEN PIC 9(02). *-------------------------------------------------* *Eintrag in der POCEDURE-DIVISON ACCEPT ZEIT FROM TIME COMPUTE STUNDEN = ZEIT / 1000000 *-------------------------------------------------* *-------------------------------------------------* |
*-------------------------------------------------* *-------------------------------------------------* *Eintrag in der WORKING-STORAGE SECTION 01 ZEIT PIC 9(08). 01 HUNDERTSTEL-SEKUNDEN PIC 9(02). *-------------------------------------------------* *Eintrag in der POCEDURE-DIVISON ACCEPT ZEIT FROM TIME MOVE ZEIT TO HUNDERTSTEL-SEKUNDEN *-------------------------------------------------* *-------------------------------------------------* |
*-------------------------------------------------* *-------------------------------------------------* *Eintrag in der WORKING-STORAGE SECTION 01 ZEIT PIC 9(08). 01 TIMER. 05 STUNDEN PIC 9(02). 05 MINUTEN PIC 9(02). 05 SEKUNDEN PIC 9(02). 05 HUNDERTSTEL-SEKUNDEN PIC 9(02). *-------------------------------------------------* *Eintrag in der POCEDURE-DIVISON ACCEPT ZEIT FROM TIME MOVE ZEIT TO TIMER *-------------------------------------------------* *-------------------------------------------------* |