#PROLOG
#==========================================================================================
cubStats = 'Process Statistics' ;
dimTimestamp = 'Timestamps' ;

sDelim = CHAR( 124 ) ;
proProcess = GETPROCESSNAME ;
nStart = NOW;
sStart = TIMST( nStart , '\Y-\m-\d \H:\i:\s \p' ) ;
sDate = TIMST( nStart , '\Y-\m-\d' ) ;

sSource = ‘SOURCECUBE’ ;
sTarget = ‘TARGETCUBE' ;

nRecordCount = 0 ;
nRecordProcess = 0 ;
nRecordSkip = 0 ;

 sTimestamp = NUMBERTOSTRING( nStart );
DIMENSIONELEMENTINSERTDIRECT( dimTimestamp , '' , sTimestamp , 'N' ) ;
DIMENSIONELEMENTCOMPONENTADDDIRECT( dimTimestamp , 'All Timestamps' , sTimestamp , 1 ) ;

sUser = TM1USER ;

IF( SUBST( sUser , 1 , 2 ) @<> 'R*' ) ;
  sUser = ATTRS ( '}Clients' , sUser , '}TM1_DefaultDisplayValue' ) ;
ENDIF ;

sParam = 'pPeriod :' | pPeriod | ' pSourceRun : ' | pSourceRun;

CELLPUTS( sUser , cubStats , proProcess , sTimestamp , 'User' ) ;
CELLPUTS( sParam , cubStats , proProcess , sTimestamp , 'Parameters' ) ;
CELLPUTS( sStart , cubStats , proProcess , sTimestamp , 'Start' ) ;
CELLPUTS( 'Did not End' , cubStats , proProcess , sTimestamp , 'End' ) ;
CELLPUTN( nRecordCount , cubStats , proProcess , sTimestamp , 'Record Count' ) ;
CELLPUTN( nRecordProcess , cubStats , proProcess , sTimestamp , 'Records Loaded' ) ;
CELLPUTN( nRecordSkip , cubStats , proProcess , sTimestamp , 'Records Skipped' ) ;
CELLPUTS( '' , cubStats , proProcess , sTimestamp , 'Error Reason' ) ;
# Info
CELLPUTS( sDescription , cubStats , proProcess , 'All Timestamps' , 'Description' ) ;
CELLPUTS( sSource , cubStats , proProcess , 'All Timestamps' , 'Source' ) ;
CELLPUTS( sTarget , cubStats , proProcess , 'All Timestamps' , 'Target' ) ;
CELLPUTS( sUpdate , cubStats , proProcess , 'All Timestamps' , 'Last Updated' ) ;
#==========================================================================================





#EPILOG
# Process Statistics
#==========================================================================================
CELLPUTN( nRecordCount , cubStats , proProcess, sTimestamp , 'Record Count' ) ;
CELLPUTN( nRecordProcess , cubStats , proProcess , sTimestamp , 'Records Loaded' ) ;
CELLPUTN( nRecordSkip , cubStats , proProcess , sTimestamp , 'Records Skipped' ) ;

nEnd = NOW ;
sEnd = TIMST( nEnd , '\Y-\m-\d \H:\i:\s \p' ) ;

CELLPUTS( sEnd , cubStats , proProcess , sTimestamp , 'End' ) ;

nElapsed = nEnd - nStart ;
nElapsedSeconds = ROUNDP( (nElapsed * 60 * 60 * 24) , 2 )  ;
sElapsedSeconds = NUMBERTOSTRING( nElapsedSeconds ) ;
sElapsed = TIMST( nElapsed , '\h:\i:\s' ) ;

CELLPUTN( nElapsedSeconds , cubStats , proProcess , sTimestamp , 'Elapsed (S)' ) ;
CELLPUTS( sElapsed , cubStats , proProcess , sTimestamp , 'Elapsed Time' ) ;
#==========================================================================================