|
View previous topic :: View next topic
|
| Author |
Message |
smakkena
New User
Joined: 04 May 2005
Posts: 8
|
|
|
|
HI,
How to declare TImestamp in cobol program
whether we will declare in group variable or individual variable?
thanks in advanse |
|
| Back to top |
|
 |
Deepa.m
New User
Joined: 28 Apr 2005
Posts: 99
|
|
|
|
IT IS 26 BYTE LENGTH .first for setting it should be individual variable
01 WS-DB2-CURRENT-TS PIC X(26) VALUE SPACES.
EXEC SQL
SET :WS-DB2-CURRENT-TS = CURRENT_TIMESTAMP
END-EXEC
FURTHER you can move it to group variable
01 5 WS-CURRENT-TIMESTAMP.
10 WS-CURR-TS-CCYY PIC X(04) VALUE SPACE.
10 FILLER PIC X(01) VALUE '-'.
10 WS-CURR-TS-MM PIC X(02) VALUE SPACE.
10 FILLER PIC X(01) VALUE '-'.
10 WS-CURR-TS-DD PIC X(02) VALUE SPACE.
10 FILLER PIC X(01) VALUE '-'.
10 WS-CURR-TS-HH PIC X(02) VALUE SPACE.
10 FILLER PIC X(01) VALUE '.'.
10 WS-CURR-TS-MINS PIC X(02) VALUE SPACE.
10 FILLER PIC X(01) VALUE '.'.
10 WS-CURR-TS-SS PIC X(02) VALUE SPACE.
10 FILLER PIC X(01) VALUE '.'.
10 WS-CURR-TS-MILLISECS PIC X(06) VALUE SPACE. PIC X(26) VALUE SPACES.
MOVE WS-DB2-CURRENT-TS TO WS-CURRENT-TIMESTAMP. |
|
| Back to top |
|
|
sudheer648
New User
Joined: 23 May 2005
Posts: 97
Location: Chennai
|
|
|
|
hi smakkena,
The Work-storage varaible can be anything it can be a group/elementary.
What deepa said is absolutely correct.
Things group she was doing for display purpose.it is optional to you. |
|
| Back to top |
|
|
|
|
