Hier ist was "fertiges" :-)

========== START CLP =============
PGM

DCL VAR(&ZEIT1) TYPE(*CHAR) LEN(6)
DCL VAR(&ZEIT2) TYPE(*CHAR) LEN(6)
DCL VAR(&MINUTEN) TYPE(*CHAR) LEN(9)

RTVSYSVAL SYSVAL(QTIME) RTNVAR(&ZEIT1)

/* VARARBEITUNG */

RTVSYSVAL SYSVAL(QTIME) RTNVAR(&ZEIT2)

CALL PGM(TIMEDIF) PARM(&ZEIT1 &ZEIT2 &MINUTEN)

ENDPGM
========== ENDE CLP =============


========== START RPG "TIMEDIF" =============
H DECEDIT('0,') TIMFMT(*HMS) DATFMT(*EUR)
H************************************************* *******************
D VonZeit S T TimFmt(*HMS)
D BisZeit S T TimFmt(*HMS)
D Minuten S 9P 0
D VonZeitA S 6A
D BisZeitA S 6A
D MinutenA S 9A
D
D DsTime DS
D Zeit 1 8
D Std 1 2
D Sep1 3 3 INZ(':')
D Min 4 5
D Sep2 6 6 INZ(':')
D Sek 7 8
C
C *Entry PList
C Parm VonZeitA
C Parm BisZeitA
C Parm MinutenA
C
* Prüfem ob Parameter gültig sind
C 2 SubSt VonZeitA:1 Std
C 2 SubSt VonZeitA:3 Min
C 2 SubSt VonZeitA:5 Sek
C test(T) Zeit 50
C If *in50
C Clear MinutenA
C SetOn LR
C Return
C EndIf
C Move Zeit VonZeit
C
C 2 SubSt BisZeitA:1 Std
C 2 SubSt BisZeitA:3 Min
C 2 SubSt BisZeitA:5 Sek
C test(T) Zeit 50
C If *in50
C Clear MinutenA
C SetOn LR
C Return
C EndIf
C Move Zeit BisZeit
C
C
C BisZeit SubDur VonZeit Minuten:*MN
C Move Minuten MinutenA
C
C SetOn LR
========== ENDE RPG =============

Hmm, kann man nicht wirklich gut lesen. Ich kann dir aber auch gerne einen SavF oder eine Textdatei zuschicken. Mail mich einfach an.

CU
Markus
mail@m3s.de

PS: Fallst du noch kein Ile-RPG Programm erstellt hast, musst du zuerst eine neue Teldatei erstellen mit der Länge 112:

CRTSRCPF FILE(DEINELIB/QRPGLESRC) RCDLEN(112) TEXT('RPGLE-Sourcen')

[Dieser Beitrag wurde von Booley am 04. Dezember 2002 editiert.]