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

Explain how to update data area in cobol 400 program?

1031

---

Explain the input procedure and output procedure?

922

---

What is the syntax of redefine?

959

---

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

978

---

Explain what all the conditiones required for using open opcode on a file?

975

---

What is the syntax of sort?

912

---

How to detect record is locked in cobol/400?

984

---

Explain the syntax of redefine?

923

---

Explain the syntax of sort?

983

---

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

1161

---

Explain the types of perform?

1027

---

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

2498

---

What is redefine?

1239

---

Explain the difference between comp & comp-3?

992

---

What is the actual use of fillers?

969

---