*-------------------------------------------------* *-------------------------------------------------* *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 *-------------------------------------------------* *-------------------------------------------------* |
Viel Gelaber, nun die Lösung:
Der oben angesprochene Lösungsweg funktioniert zwar, ist jedoch sehr platzaufwendig (die Source läßt sich später schlechter lesen) und obendrein auch sehr unschön anzugucken (besonders beim compilieren ;).
Statt dessen schreibt man:
*-------------------------------------------------* *-------------------------------------------------* *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 *-------------------------------------------------* *-------------------------------------------------* |