So müßte es auch klappen:
Code:
D DATETIME        S               Z                                    
D DATE1           S               D   DATFMT(*ISO)                     
D TIME1           S               T   TIMFMT(*HMS)                     
D DATETIME2       DS                                                   
D DATE2                          8A                                    
D TIME2                          6A                                    
D**********************************************************************
C                   TIME                    DATETIME                   
C                   MOVE      DATETIME      DATE1                      
C                   MOVEL     DATETIME      TIME1                      
C     *ISO0         MOVE      DATE1         DATE2                      
C     *HMS0         MOVE      TIME1         TIME2                      
C**********************************************************************
C                   MOVE      *ON           *INLR
Hier gibt es eine aktuelle ILE RPG Referenz.