Ü  DATE

 

·         This keyword is used at field level to show the date at specified position in output mode.

·         The syntax of this keyword is:

o   DATE(*SYS or *JOB  |  *Y or *YY)

·         By default the job date is displayed, if we mention *SYS parameter then the system date is displayed.

·         If we use the parameter *Y then year is displayed in 2 digit format and if we use *YY then the year is displayed in 4 digit year format.

·         We can use EDTCDE to change the date formatting.

·         We can also use DATSEP to insert different date separator like ‘/’, ‘-‘, ‘.’ Etc.

 

 

 

Example

The following example shows how to specify the DATE keyword.

 


Columns . . . :    1 100                   Browse                       IROBO1/QRPGLESRC
 SEU==>                                                                             DSP6
 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
        *************** Beginning of data **********************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R DETAIL001
0006.00      A            FLD01          2Y 0B  9 15COMP(GT 5)
0007.00      A                                  2  2
0008.00      A                                      DATE
0009.00      A                                  3  2
0010.00      A                                      DATE EDTCDE(Y)
0011.00      A                                  4  2
0012.00      A                                      DATE(*JOB *Y)
0013.00      A                                  5  2
0014.00      A                                      DATE(*JOB) EDTCDE(Y)
0015.00      A                                  6  2
0016.00      A                                      DATE(*SYS)
0017.00      A                                  7  2
0018.00      A                                      DATE(*SYS *YY) EDTCDE(Y)
        ****************** End of data **************************************************

 

 

 

 

 

 

OUTPUT

 

041313     

 4/13/13   

041313     

 4/13/13   

041313     

 4/13/2013 





User Comments:





Copyright © Go4as400.com, 2013-2017. Copyright notice