Answer Posted / supreethi

Code:
//*******************************************************
//STEP001 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
AAAAAAAAA
VVVVVVVVV
GGGGGGGG
AAAAAAAAA
HHHHHHHHH
AAAAAAAAA
GGGGGGGG
VVVVVVVVV
/*
//TMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA
//OCCUR1 DD SYSOUT=*
//OCCUR2 DD SYSOUT=*
//OCCUR3 DD SYSOUT=*
//TOOLIN DD *
OCCUR FROM(IN1) LIST(OCCUR1) EQUAL(1)-
ON(1,9,CH) ON(VALCNT,N04)
OCCUR FROM(IN1) LIST(OCCUR2) EQUAL(2)-
ON(1,9,CH) ON(VALCNT,N04)
OCCUR FROM(IN1) LIST(OCCUR3) EQUAL(3)-
ON(1,9,CH) ON(VALCNT,N04)
/*


OCCUR1 contains:

Code:
---+----1----+----2----+
(1,9,CH) VALUE COUNT
HHHHHHHHH 1

OCCUR2 contains:

Code:
---+----1----+----2----+
(1,9,CH) VALUE COUNT
GGGGGGGG 2
VVVVVVVVV 2

OCCUR3 conatains:

Code:
---+----1----+----2----+
(1,9,CH) VALUE COUNT
AAAAAAAAA 3

Describe the cobol database components?

1125

---

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

1316

---

how do you reference the variable unblock file formats from cobol programs

1279

---

What is the default value(s) for an initialize? What keyword will allow for an override of the default?

1061

---

How do you get the data to code the BMS macro?

1920

---

how do you reference the variable block file formats from cobol programs

1182

---

Name the sections present in data division.

1175

---

What is amode(31)

1109

---

What are various search techniques in cobol? Explain.

1026

---

i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?

1263

---

How to traceback if I am getting SOC7 or SOC4 abend? List down the steps

5316

---

How to use the same COBOL program in Batch and CICS on lines? explain with an example

2327

---

Difference between cobol and cobol-ii?

1194

---

What are INPUT PROCEDURE and OUTPUT PROCEDURE?

1222

---

What is the utilization of copybook in cobol? Could we utilize a similar copybook?

1175

---