How to define date in RMOGRW?
We are defining char as /DEFINE RID CHAR(12)
We are defining BIN as /DEFINE I BIN
Similarly how do we define HRDATE as below .?
/DEFINE DEPT CHAR(20)
/SET DEPT = SUBSTR(A2,21,20)
In RMOGRW, a field to which you can move a Date field to would have to be defined, like:
. /DEFINE HRDATEST DATE
As HRDATE is defined within RMOGRW itself, it does not require any further definition in a RMOGRW program.
Though the below would apply to all Date fields, here are some sample statements using HRDATE:
. / IF ((HRDATE => 04001 & HRDATE <= 04365) . / IF HRDATE NE HRDATEST . / PRINT EDIT(HRDATE,'MM/DD/YY') 'DATE' COL(35)