MVSFORUMS.com

mickeygoo,

Use this

//STEP05 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD *
Black & Decker Hello World!!!
Spic & Span CleanrsHow U Doin?!

//DD01O DD SYSOUT= ...

kanitha-mvs,

You can use the below JCL to get the desired result. However there are many examples of dealing with duplicates in this forum.

//STEP01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=* ...

apiyan,
use if MATCHED feature of eazytrieve if the first input file has no duplicate on keys. Otherwise store the second file in an internal table(array). The read the first file and search the reco ...

rkarthik,

send me a sample input file and expected output file data. As far as I can understand from the above you can achieve your result by having the below modified code in else part

IF INPFI ...

Hi Rkarthik,

Why dont you want to use MATCHED feature of easytrieve. It will make the above code much easier. Here is the code that you can use

FILE INPFIL1 FB (313 27857)
EMP-NO-INP1 ...

Kalidsav.

In sorting concatenate as follows

//SORTIN DD DSN=300 FB FILE,DISP=SHR
DD DSN=200 FB FILE,DISP=SHR
//SORTOUT DD DSN=300 NEW FB OUTPUT FILE,DISP=OLD
//S ...

Thanks Kolusu, We are using MS2003 so was not aware of 2007 features. I would say that the removal of size limitation in 2007 would be a great relief as I myself have to send big files in xcel format ...

How many records are there in the file. Xcel file has the restriction of 65536 rows.

MF,

Try this Sort jcl
//STEP04 EXEC PGM=ICETOOL
//IN1 DD DSN=Input dataset1,DISP=SHR
//IN2 DD DSN=Input dataset2,DISP=SHR
//IN3 DD DSN=Input dataset3,DISP=SHR
//OUT1 ...

Hi Siva,

I guess your input and output file is a VB file. In this case the SORT becomes a bit different. Use
OPTION VLSHRT
as your first statement in SYSIN. Then code the usual copy and include s ...

Here is the exact code. Assuming data starts at column 1

//STEP05 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0NONVSAM ------- UUS0002.PCCOM.COMAT.US0002.DDF28.D080101
IN-CAT - ...

Hi Siva,
Use the sort card as below(UNTESTED)
SORT FIELDS=(52,6,ZD,D) Assuming your date startes at col 52
OMIT COND=(7,5,CH,EQ,C'IN-CAT')
OUTREC FILEDS=(19,30) Assuming your dataset UUSS002 ...

nbdtrjk1,

I think matching in Easytrieve works like this.
You read the first record of your Filein2. Based on that first record you start reading the records of filein1 till the key of filein2 &l ...

I too would wonder why 3 ACCEPT is required. If there are 3 numerics to be picked up from SYSIn then define a working storage like this
ws-sysin.
ws-num1 pic x(80).
ws-num2 pic x(80).
...

Geetha001,
Are you picking up the load from the correct load library. See the proclib from where you are picking the test program if it is having the test load library mentioned or not.