explain with example?

Read Best Answer

Editorial / Best Answer

jjtharappel  

 Profile Answers by jjtharappel Questions by jjtharappel

• Member Since Nov-2011 | Nov 24th, 2011

---

Run a JCL with the below sort step

Code
//STEP1    EXEC PGM=SORT                             
//SORTIN   DD DSN=input-file-name,DISP=SHR          
//SORTOF01 DD DSN=output-file-name-1,          
//            DISP=(NEW,CATLG,DELETE),               
//            SPACE=... 
//            LRECL=...,RECFM=FB     
//SORTOF02 DD DSN=output-file-name-2,          
//            DISP=(NEW,CATLG,DELETE),               
//            SPACE=... 
//            LRECL=...,RECFM=FB                     
//SORTOF03 DD DSN=output-file-name-3,          
//            DISP=(NEW,CATLG,DELETE),               
//            SPACE=... 
//            LRECL=...,RECFM=FB                        
//SYSOUT   DD SYSOUT=*                               
//SYSIN    DD *                                      
  SORT FIELDS=COPY                                        
  OUTFIL FNAMES=SORTOF01,                                 
   INCLUDE=(cond for file 1)  
  OUTFIL FNAMES=SORTOF02,                                 
   INCLUDE=(cond for file 2)  
  OUTFIL FNAMES=SORTOF03,                                 
   INCLUDE=(cond for file 3)
/*
//*
 

Haribabu

• Oct 15th, 2019

SORT FIELDS=COPY
OUTFIL FILES=OUT1,ENDREC=10000
OUTFIL FILES=02,STARTREC=10001,ENDREC=20000 OUTFIL FILES=03,STARTREC=20001,ENDREC=30000

also possible for OUTFIL FNAMES=(OUT1,OUT2,OUT3),SPLIT=10000

Rishu

• Jul 31st, 2014

In addition to the above solution, we can use SPLIT BY in SORT. But it will depend on condition of split.

Improve Answer

jjtharappel

 Profile Answers by jjtharappel Questions by jjtharappel

• Nov 24th, 2011

The one I posted on Nov23 will not sork. A slight modification. Below is the working code "cobol ACCEPT WS-SYSIN-DATA FROM SYSIN IF WS-SYSIN-NUM IS NUMERIC C...

jjtharappel

 Profile Answers by jjtharappel Questions by jjtharappel

• Nov 23rd, 2011

I = N / 10
J = I * 10
K = N - J
min_num = K

If I > 10
Do while I < 10
N = I
I = N / 10
j = I * 10
K = N - J
if K < min_num
min_num = K
end-if
end-do

Prinf "Minimum number is " min_num
Return

Answer Question  Select Best Answer

Read Best Answer

Editorial / Best Answer

Answered by: David Rachutin

• Dec 27th, 2006

---

use the following method:

mark the missing number as M and the duplicated as D

1) compute the sum of regular list of numbers from 1 to N call it RegularSum

2) compute the sum of your array (the one with M and D) call it MySum

now you know that MySum-M+D=RegularSum

this is one equation.

the second one uses multiplication:

3) compute the multiplication of numbers of regular list of numbers from 1 to N call it RegularMultiplication

4) compute the multiplication of numbers of your list  (the one with M and D) call it MyMultiplication

now you know that MyMultiplication=RegularMultiplication*D/M

at this point you have two equations with two parameters, solve and rule!

Gaurav.khurana

 Profile Answers by Gaurav.khurana Questions by Gaurav.khurana

• Apr 25th, 2015

@vandita Just a minor correction i think we should go till n-1 only so the in for loop it should be and should use i+1 since nbrs are starting from 1 and not 0

Code
for (int i=0 ; i<n ; i++)
{
  swap(a[i],a[a[i]-1]
}
//since 1 is stored at 0th position

bakesh

• Mar 16th, 2015

9

Improve Answer