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 one line
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).
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).
At line 5 changed 9 lines
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
|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 |