Ü  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-2016. Copyright notice