Answer / kk

Hi,

Using sort Utilities,
some fields=None,xsum
//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TEST.XSUM.INPUT,DISP=SHR
//SORTOUT DD DSN=TEST.XSUM.OUTPUT,DISP=SHR
//SORTXSUM DD DSN=TEST.XSUM.OUTPUT.XSUM,DISP=SHR
//SYSIN DD *
SORT FIELDS=(2,10,CH,A)
SUM FIELDS=NONE,XSUM

Answer / tv

The question is want to retain duplicates. So sum
fields=none shouldn't be used in SORTing.

Answer / sow

in Sysin dd*

sortfields=copy
sumfields=none,xsum

record length in spool?

2 Answers   Infosys,

---

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?

0 Answers  

---

wht do u mean by (*,intrdr) wht is * used for ?

2 Answers  

---

How many sections are there in data division?.

10 Answers   Amdocs, TCS,

---

What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?

7 Answers   T systems,

---

can we declare occurs in 01 level?

2 Answers   Temenos,

---

What is a SSRANGE and NOSSRANGE?

0 Answers  

---

What is the different between index and subscript?

3 Answers  

---

Study the DATA DIVISION entries and the three PROCEDURE DIVISION entries given below: 01 END-OF-FILE-SWITCH PIC XXX. 88 NO-MORE-RECS VALUE "YES". 88 MORE-RECS VALUE "NO". (i) READ SAMPLE-FILE AT END MOVE "YES" TO NO-MORE-RECS. (ii) IF NO-MORE-RECS = "YES" GO TO LAST-PARA. (iii) IF NO-MORE-RECS GO TO LAST-PARA. Which are wrong? (a) (i) and (ii) (b) (ii) and (iii) (c) (i) and (iii) (d) all

5 Answers   TCS,

---

Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

0 Answers  

---

diffrence between renames and redifnes with examples

3 Answers   IBM,

---

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

0 Answers  

---