This page (revision-4) was last changed on 26-Nov-2021 10:22 by JMyers

This page was created on 26-Nov-2021 10:22 by JMyers

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
4 26-Nov-2021 10:22 1 KB JMyers to previous
3 26-Nov-2021 10:22 907 bytes JMyers to previous | to last
2 26-Nov-2021 10:22 795 bytes JMyers to previous | to last
1 26-Nov-2021 10:22 782 bytes JMyers to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 1 changed one line
DATE - Convert to a Date
!!DATE - Convert to a Date
At line 3 changed 11 lines
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).
Line CMD OT Operand 1 OPER OT Operand2 OT Operand3 If 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
;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).
||Line||CMD||OT||Operand 1||OPER||OT||Operand2||OT||Operand3||If 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|Edit:Internal.DATE_OPERATOR]
[{InsertPage page='Internal.DATE_OPERATOR' default='Click to create a new notes page'}]