Answer / sharath

Normal program
--------------
WORKING-STORAGE SECTION..
01 WS-DATE PIC X(6).
01 CURDATE.
05 WS-DATE-20 PIC X(2) VALUE '20'.
05 WS-DATE-YR PIC X(2).
05 FILLER PIC X(1) VALUE '/'.
05 WS-DATE-MT PIC X(2).
05 FILLER PIC X(1) VALUE '/'.
05 WS-DATE-DT PIC X(2).
PROCEDURE DIVISON..
ACCEPT WS-DATE FROM DATE
MOVE WS-DATE(1:2) TO WS-DATE-YR
MOVE WS-DATE(3:2) TO WS-DATE-MT
MOVE WS-DATE(5:2) TO WS-DATE-DT
DISPLAY CURDATE

Cobol-DB2
--------

Just writing the query..

Select CURRENT DATE into
:ws-date
from SYSIBM.SYSDUMMY

Answer / v@m$i

Mr sharath small suggestion.
u r logic is correct.
but use current date instead of date in normal program.

Answer / adithya

procedure division.

accept a from date.

accept b from date

accept c from day-of-week

What do you understand by passing by reference and passing by content?

1 Answers  

---

Please let me know how the Eject verb works for page break.. I want to know the code, how it is used.

3 Answers  

---

What will happen if a variable is declared as below.. Explain with an example? Working storage section:- 01 WS-VARX PIC X(10) VALUE 'ABCDEFGHIJ'. 01 WS-VARN REDEFINES WS-VARX PIC 9(5) VALUE '12345'. What will happen I am going to Display the WS-VARX and WS- VARN?

6 Answers   Xansa,

---

When is inspect verb is used in cobol?

0 Answers  

---

What happens when we move a comp-3 field to an edited (say z (9). Zz-)?

0 Answers  

---

can we redefine 77 level item is it possible

4 Answers   HCL,

---

there is a file whose ORGANISATION is INDEXED.you want to read the records from the file in RANDOM fashion as well as sequentially.then which of the access mode would you specify? a.SEQUENTIAL b.RANDOM c.DYNAMIC D.ACCESS MODE has nothing to do with it

3 Answers   TCS,

---

Why we should use cursor ?

3 Answers  

---

How are the next sentence and continue different from each other?

0 Answers  

---

how will you define vsam file in select clause?

3 Answers   Patni,

---

COMP field occupy ?

2 Answers  

---

Why we need to use redefine clause when we can define the variable seperately... what is actual need....

5 Answers   Accenture,

---