DATE - Convert to a Date #

Convert Operand 2 into a date formatted as specified in Operand 3, store result in Operand 1

Statement
Create the new date from the day and month of the hire date and the year of the seniority date (a character string that has been built).

LineCMDOTOperand 1OPEROTOperand2OTOperand3If Goto Else GoTo
00010 LET V DAY DAY DB EEM.HIRE_DATE 00020
00020 LET V MONTH MTH DB EEM.HIRE_DATE 00030
00030 LET V YEAR YRS DB EEM.SENIORITY_DATE 00040
00040 LET V ALPHA DATE EQ V DAY A 00050
00050 LET V ALPHA DATE EQ V ALPHA DATE V MONTH 00060
00060 LET V ALPHA DATE EQ V ALPHA DATE A 00070
00070 LET V ALPHA DATE EQ V ALPHA DATE V YEAR 00100
00100 LET V NEW DATE DATE V ALPHA DATE A DD-MON-YYYY 99999
99999 EXIT 99999


Notes #

Click to create a new notes page