Answer Posted / kishore

01 DATE-FIELD
05 DATE-YYYY PIC 9(04).
05 FILLER PIC X(1).
05 DATE-MM PIC 9(02).
05 FILLER PIC X(1).
05 DATE-DD PIC 9(02).
01 DATE-CONT
05 DATE-MM-CONT PIC 9(02).
05 DATE-DD-CONT PIC 9(02).
05 DATE-YYYY-CONT PIC 9(04).

ACCEPT DATE-FIELD

MOVE DATE-DD TO DATE-DD-CONT
MOVE DATE-MM TO DATE-MM-CONT
MOVE DATE-YYYY TO DATE-YYYY-CONT

DISPLAY DATE-CONT

I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks

2060

---

Explain how to update data area in cobol 400 program?

568

---

What is the syntax of sort?

534

---

Define perform? And its types?

501

---

What is sort?

531

---

---

What are fillers?

525

---

Define redefine?

553

---

Explain the syntax of redefine?

516

---

How to detect record is locked in cobol/400?

534

---

What is perform?

533

---

What is output procedure?

537

---

How to detect record is locked in cobol/400? What is the solution for that?

521

---

Explain the difference between search and searchall?

508

---

What are the types of perform?

566

---

Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?

640

---