0  BEGIN PGM 8175_NL MM 
1  ;NC-programma waarbij vanuit het programma
2  ;een protocolbestand wordt gemaakt. Omdat
3  ;in het protocol ook de looptijd van het
4  ;programma is vastgelegd, begint het
5  ;programma met het automatisch uitlezen van
6  ;de huidige systeemtijd in seconden.
7  ;Vervolgens schrijft de besturing de inhoud
8  ;van een maskerbestand in het protocol.
9  ;In dit voorbeeld bevat dit de actuele datum,
10 ;de tijd bij de programmastart en de
11 ;programmanaam inclusief het bestandspad.
12 ;De besturing bepaalt deze informatie
13 ;automatisch door middel van de syntaxis die
14 ;in het maskerbestand is gedefinieerd.
15 ;Nu vindt de bewerking plaats. Deze is in het
16 ;voorbeeld door een stilstandtijd gesimuleerd.
17 ;Vóór het programma-einde roept de besturing
18 ;een subprogramma op voor de berekening van de
19 ;programmalooptijd. Hierin leest de besturing
20 ;opnieuw de huidige systeemtijd in seconden
21 ;uit. Op basis van deze en de aan het begin
22 ;van het programma uitgelezen tijd berekent
23 ;de besturing de tijdens de programmaloop
24 ;verstreken tijd in seconden. Vervolgens
25 ;rekent de besturing deze in uren, minuten
26 ;en seconden om.
27 ;De zo bepaalde waarden schrijft de besturing,
28 ;met behulp van een ander maskerbestand, ook
29 ;in het protocol.
30 ;Als operator hoeft u alleen maar de paden
31 ;van de maskerbestanden en de naam van het te
32 ;maken protocolbestand aan te passen.
33 ;BELANGRIJK! Indien u het programma meerdere
34 ;keren start zonder het protocolbestand te
35 ;wissen of dit te hernoemen, worden de nieuwe
36 ;gegevens aan het al aanwezige protocol
37 ;toegevoegd. Ook programmaruns in de
38 ;programmatest worden in het protocol
39 ;vastgelegd. Daarbij wordt echter
40 ;geen rekening gehouden met een stilstandtijd.
41 ;
42 ;
43 ;Begin van programma
44 FN 18: SYSREAD Q10 = ID320 NR1 IDX0 ;Actuele systeemtijd in seconden uitlezen
45 ;Masker 81751_nl.a in het protocol schrijven
46 ;Hier moet u het pad van het maskerbestand en
47 ;de protocolnaam definiëren!
48 FN 16: F-PRINT 81751_nl.a / Protokoll_8175.txt
49 ;
50 ;Bewerking, hier met een stilstandtijd gesimuleerd
51 CYCL DEF 9.0 STILSTANDSTIJD
52 CYCL DEF 9.1 STTIJD999
53 ;
54 ;Subprogramma voor berekening van de
55 ;programmalooptijd oproepen
56 CALL LBL 1
57 ;Masker 81752_nl.a met de berekende programmalooptijd
58 ;in het protocol schrijven.
59 ;Hier moet u het pad van het maskerbestand en de
60 ;protocolnaam definiëren!
61 FN 16: F-PRINT 81752_nl.a / Protokoll_8175.txt
62 ;
63 ;Einde van programma
64 M30
65 ;
66 ;Subprogramma voor berekening van de
67 ;programmalooptijd
68 LBL 1
69 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Actuele systeemtijd in seconden uitlezen
70 FN 2: Q12 =+Q11 - +Q10 ;Start systeemtijd van einde systeemtijd aftrekken in seconden
71 Q13 = Q12 / 3600 ;Berekening van de uren
72 Q20 = INT Q13 ;Cijfers na de komma van de uren afbreken
73 Q14 = Q20 * 3600 ;Uren in seconden omrekenen
74 Q15 = Q12 - Q14 ;Berekening van de resterende seconden
75 Q16 = Q15 / 60 ;Berekening van de minuten
76 Q21 = INT Q16 ;Cijfers na de komma van de minuten afbreken
77 Q17 = Q21 * 60 ;Minuten in seconden omrekenen
78 Q22 = Q15 - Q17 ;Berekening van de resterende seconden
79 LBL 0
80 ;
81 END PGM 8175_NL MM