0  BEGIN PGM 8285_DE MM 
1  ;NC-Programm, um mit der Funktion FN 16 eine
2  ;Textdatei zu erstellen. Damit bei mehrmaligem
3  ;Programmdurchlauf die Datei nicht
4  ;ueberschrieben oder erweitert wird, kopiert 
5  ;die Steuerung die Datei. Dabei wird ein 
6  ;von Ihnen definierter Name verwendet, dem
7  ;die Steuerung das aktuelle Datum und die
8  ;Uhrzeit hinzufuegt. So entsteht bei jedem  
9  ;Programmdurchlauf eine neue Textdatei.
10 ;Die Steuerung löscht die FN 16-Ausgabedatei
11 ;nach dem Kopiervorgang.
12 ;
13 ;
14 DECLARE STRING QS12 = "Protokoll" ;Text fuer Dateinamen definieren 
15 ;
16 ; Aktuelles Datum auslesen
17 QS10 = SYSSTR( ID10321 NR12 )
18 ;
19 ;Aktuelle Uhrzeit auslesen
20 QS11 = SYSSTR( ID10321 NR15 )
21 ;
22 ;Stunden der Uhrzeit separieren
23 DECLARE STRING QS30 = ":" ;Suchmerkmal definieren
24 ;Uhrzeit nach dem Suchmerkmal durchsuchen
25 Q30 = INSTR( SRC_QS11 SEA_QS30 BEG0 )
26 ;Stunden in separatem String speichern
27 QS20 = SUBSTR( SRC_QS11 BEG0 LENQ30 )
28 ;Minuten der Uhrzeit separieren
29 Q30 = Q30 + 1 ;Position des Suchmerkmals um 1 erhoehen
30 ;Minuten in separaten String speichern
31 QS21 = SUBSTR( SRC_QS11 BEGQ30 LEN2 )
32 ;
33 DECLARE STRING QS13 = "_" ;Textbaustein zum Trennen des Dateinamen definieren
34 DECLARE STRING QS14 = ".a" ;Dateiendung als Textbaustein definieren
35 ;
36 ;Dateinamen, unter dem die Kopierte Datei gespeichert
37 ;werden soll, aus den Textbausteinen zusammensetzen
38 QS1 = QS12 || QS13 || QS10 || QS13 || QS20 || QS13 || QS21 || QS14
39 ;
40 ;
41 ;Maskendatei als Textdatei ausgeben
42 FN 16: F-PRINT 82851_de.a / Protokoll.a
43 ;
44 FUNCTION FILECOPY "Protokoll.a" TO QS1 ;Datei kopieren und unter neuem Namen speichern
45 ;
46 FUNCTION FILEDELETE "Protokoll.a" ;Urspruengliche Protokolldatei loeschen
47 ;
48 M30 ;Programmende
49 END PGM 8285_DE MM