| View previous topic :: View next topic |
| Author |
Message |
saraswathi
Beginner
Joined: 08 Dec 2006
Posts: 14
Topics: 8
|
 Posted: Tue Mar 13, 2007 12:52 am Post subject: System date in Easytrieve |
 |
|
hi,
how to get a system date in easttrieve? |
|
| Back to top |
|
 |
Nic Clouston
Advanced
Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
|
| Posted: Tue Mar 13, 2007 3:47 am Post subject: |
|
|
Form the manual (link above)
| Code: |
DEFINE GETDATE-DATE W 8 A
DEFINE GETDATE-FIRST6 GETDATE-DATE 6 N
DEFINE GETDATE-LAST5 GETDATE-DATE +3 5 A
DEFINE GETDATE-LAST6 GETDATE-DATE +2 6 A
DEFINE GETDATE-LAST3 GETDATE-DATE +5 3 A
DEFINE GETDATE-LAST2 GETDATE-DATE +6 2 A
GETDATE-DATE = SYSDATE . * MOVE ALL 8
GETDATE-LAST3 = GETDATE-LAST2 . * SHIFT LEFT OVER NEXT /
GETDATE-LAST6 = GETDATE-LAST5 . * SHIFT LEFT OVER FIRST /
&USER-DATE = GETDATE-FIRST6 . * MOVE TO USER FIELD
|
looks like SYSDATE is the key thing here. there was a whole lot more - I just took the first example
_________________
Utility and Program control cards are NOT, repeat NOT, JCL. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Tue Mar 13, 2007 6:27 am Post subject: |
|
|
saraswati,
Look up sysdate and sysdate-long in the manual.
| Code: |
CURRENT-DATE W 10 A
CURRENT-MM CURRENT-DATE 02 A
CURRENT-DD CURRENT-DATE +3 02 A
CURRENT-YY CURRENT-DATE +6 04 A
CURRENT-TIME W 08 A
CURRENT-HH CURRENT-TIME 02 A
CURRENT-MI CURRENT-TIME +3 02 A
CURRENT-SS CURRENT-TIME +6 02 A
JOB INPUT NULL
CURRENT-DATE = SYSDATE-LONG
CURRENT-TIME = SYSTIME
DISPLAY CURRENT-DATE ' ' CURRENT TIME
STOP
|
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
