Ü  SUBDUR (Subtract Duration)

·         SUBDUR operation code is used to perform arithmetic difference of duration in factor-2 from DATE, TIME, or TIMESTAMP value in factor-1. The result is placed in result field.

·         Valid duration codes are *YEARS, *MONTHS, *DAYS, *HOURS, *MINUTES, *SECONDS, *MSECONDS.

·         Abbreviated duration codes can also be used:  *Y, *M, *D, *H, *MN, *S, *MS.

 

Factor 1

OpCode

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

DATE, TIME, or TIMESTAMP value

SUBDUR(E)

Duration value : Duration code

Difference  of factor-1 from factor-2

Error Indicator

 

 

Example


Columns . . . :    6  80              Browse                                  AMINEM/QRPGLESRC
SEU==>                                                                              DATE_TIME2
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ***********************************************************
0001.00 DDATE0            S               D                                             130124
0002.00 DDATE1            S               D                                             130124
0003.00 DDATE2            S               D                                             130124
0004.00 DDATE3            S               D                                             130124
0005.00 DTIME0            S               T                                             130124
0006.00 DTIME1            S               T                                             130124
0007.00 DTIME2            S               T                                             130124
0008.00 DTIME3            S               T                                             130124
0009.00 DTIMESTP0         S               Z                                             130124
0010.00 DTIMESTP1         S               Z                                             130124
0011.00 C                   MOVEL     *DATE         DATE0                               130124
0012.00 C     DATE0         SUBDUR    01:*Y         DATE1                               130124
0013.00 C     DATE0         SUBDUR    01:*M         DATE2                               130124
0014.00 C     DATE0         SUBDUR    01:*D         DATE3                               130124
0015.00 C                   TIME                    TIME0                               130124
0016.00 C     TIME0         SUBDUR    01:*H         TIME1                               130124
0017.00 C     TIME0         SUBDUR    01:*MN        TIME2                               130124
0018.00 C     TIME0         SUBDUR    01:*S         TIME3                               130124
0019.00 C                   TIME                    TIMESTP0                            130124
0020.00 C     TIMESTP0      SUBDUR    11111:*MS     TIMESTP1                            130124
0021.00 C     DATE0         DSPLY                                                       130124
0022.00 C     DATE1         DSPLY                                                       130124
0023.00 C     DATE2         DSPLY                                                       130124
0024.00 C     DATE3         DSPLY                                                       130124
0025.00 C     TIME0         DSPLY                                                       130124
0026.00 C     TIME1         DSPLY                                                       130124
0027.00 C     TIME2         DSPLY                                                       130124
0028.00 C     TIME3         DSPLY                                                       130124
0029.00 C     TIMESTP0      DSPLY                                                       130124
0030.00 C     TIMESTP1      DSPLY                                                       130124
0031.00 C                   SETON                                            LR         130124
     ****************** End of data *********************************************************


OUTPUT

2013-01-24                        
2012-01-24                        
2012-12-24                        
2013-01-23                        
06.42.30                          
05.42.30                          
06.41.30                          
06.42.29                          
2013-01-24-06.42.30.275000        
2013-01-24-06.42.30.263889 

 

 

Ü SUBDUR opcode used to find the no. of duration between two dates.

Factor 1

OpCode

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

DATE, TIME, or TIMESTAMP value

SUBDUR(E)

DATE, TIME, or TIMESTAMP value

Duration: Duration code

Error Indicator

 

 

Example

 


Columns . . . :    6  80                  Browse                              AMITCC/QRPGLESRC
SEU==>                                                                              DATE_TIME5
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ************************************************************
0001.00 DDATE1            S               D   INZ(D'2013-12-11')                        130206
0002.00 DDATE2            S               D                                             130206
0003.00 DTIME1            S               T   INZ(T'12.11.10')                          130206
0004.00 DTIME2            S               T                                             130206
0005.00 DTIMESTP1         S               Z   INZ(Z'2013-12-24-06.42.30.263889')        130206
0006.00 DTIMESTP2         S               Z                                             130206
0007.00 C                   MOVEL     *DATE         DATE2                               130206
0008.00 C     DATE1         SUBDUR    DATE2         DAYSDIFF:*D       5 0               130206
0009.00 C                   TIME                    TIME2                               130206
0010.00 C     TIME1         SUBDUR    TIME2         HOURDIFF:*H       5 0               130206
0011.00 C                   TIME                    TIMESTP2                            130206
0012.00 C     TIMESTP1      SUBDUR    TIMESTP2      MICRODIFF:*MS     5 0               130206
0013.00 C     DATE1         DSPLY                                                       130206
0014.00 C     DATE2         DSPLY                                                       130206
0015.00 C     DAYSDIFF      DSPLY                                                       130206
0016.00 C     TIME1         DSPLY                                                       130206
0017.00 C     TIME2         DSPLY                                                       130206
0018.00 C     HOURDIFF      DSPLY                                                       130206
0019.00 C     TIMESTP1      DSPLY                                                       130206
0020.00 C     TIMESTP2      DSPLY                                                       130206
0021.00 C     MICRODIFF     DSPLY                                                       130206
0022.00 C                   SETON                                            LR         130124
****************** End of data ***************************************************************

 

OUTPUT

2013-12-11                          
2013-02-06                          
  308                               
12.11.10                            
07.52.34                            
    4                               
2013-12-24-06.42.30.263889          
2013-02-06-07.52.34.244000          
19889   












User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy