mainframegurukul.com

Posted: **Mon Feb 27, 2012 7:47 pm**

Hi,

I've been banging my head on this. It would be great if anyone could help. Note - I have to use ICETOOL/DFSORT to get the below result.

I have 2 files -

F1 - LRECL=100,RECFM=FB with date field in the form of YYYY-MM-DD(10 bytes) starting at position 15 (15-24).
F2 - LRECL=80,RECFM=FB. This is a date file with only one record. First 10 bytes being the current batch date and the enxte 10 bytes (11-20) being the previous batch date. Format of dates - YYYY-MM-DD.

I want to retrieve the first 14 bytes from all the records in F1 where the date (15-24) is less than or equal to the previous date in F2(11-20).

It would be great if anyone could help me on an urgent basis.

Let me know if any more details are required.

Thanks
Rajat Kharbanda

Posted: **Tue Feb 28, 2012 12:48 am**

You can use a DFSORT job like the following to do what you asked for:

Code: Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file2 &#40;FB/80&#41;
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=&#40;TRK,&#40;1,1&#41;&#41;,DISP=&#40;,PASS&#41;
//SYSIN DD *
  OPTION COPY
  INREC BUILD=&#40;C'PREVDATE,''',11,10,C'''',80&#58;X&#41;
/*
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=&#40;OLD,PASS&#41;
//SORTIN DD DSN=...  input file1 &#40;FB/100&#41;
//SORTOUT DD DSN=...  output file &#40;FB/14&#41;
//SYSIN DD *
  OPTION COPY
  INCLUDE COND=&#40;15,10,CH,LE,PREVDATE&#41;
  OUTREC BUILD=&#40;1,14&#41;
/*

Posted: **Tue Feb 28, 2012 3:06 pm**

Brilliant. I knew I could do it with SYMNAMES but just missed on how to go about it. Thanks Frank.

Posted: **Tue Feb 28, 2012 10:18 pm**

frank why you gave that 80:x in jcl. if i didnt gave that its not working...

Posted: **Tue Feb 28, 2012 11:41 pm**

The SYMNAMES data set has to have RECFM=FB and LRECL=80. The 80:X ensures that the Symbol statement is padded with blanks on the right, and that the LRECL of the SYMNAMES data set is set to 80 automatically.

Posted: **Wed Feb 29, 2012 8:18 pm**

but while creating the dataset i gave lrecl=80,then is that necessary we need to give 80:x

Posted: **Wed Feb 29, 2012 11:23 pm**

Using 80:X ensures that the SYMNAMES record is padded on the right with blanks. If you don't use 80:X, you'll get binary zero padding on the right which can result in a syntax error. If you specify LRECL=80 for the SYMNAMES data set, you could probably get away with using:

Code: Select all

    INREC BUILD=&#40;C'PREVDATE,''',11,10,C'''',X&#41;

so you get one blank after the SYMNAMES statement. But what's the problem with specifying 80:X?

mainframegurukul.com

Comparing 2 files on the basis of Date

Comparing 2 files on the basis of Date