Answer Posted / ch. ranveer singh

//Aaaaaaaa JOB ,'ADC',NOTIFY=&SYSUID
BY CH . RANVEER SINGH GURJAR




//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=WW.W.AHOC.ADC.P1,DISP=SHR
//SORTOF1 DD DSN=WW.W.AHOC.ADC.P2,DISP=SHR
//SORTOF2 DD DSN=WW.W.AHOC.ADC.P3,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FILES=(1,2),SPLITBY=50
/*
//

What are all the divisions of a COBOL program?

1220

---

here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?

7910

---

How you can read the file from bottom?

1162

---

how to move the records from file to array table. give with code example

2683

---

There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.

1449

---

What is the compute verb? How is it used?

1153

---

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

1250

---

How can you get the ksds file records into your cobol program?

1103

---

What are literals?

1149

---

What are the different rules for performing sort operation?

1232

---

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?

1330

---

if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need

1360

---

What is the difference between comp and comp-3?

1194

---

What are the rules of the move verb?

1274

---

IF I mention stop run in CICS what happens?

2385

---