MVSFORUMS.com

[sivafdms]

Hi

I have an input file with FB as recfm & lrecl = 80 in which i need to find the consecutive records and display second one.

[expat]

But all of the records will be consectutive. Please clarify your requirement.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

[sivafdms]

expat,

Yes i need to display only consecutive records like below from the file

[Nic Clouston]

[sivafdms]

Nic Clouston,

Thanks for suggestion .. Actually i am new Rexx so if you could provide me code that would be great ful

Thanks,
Siva

[Nic Clouston]

Well, I shouldn't do it but....
There are provisos:
1 - I do not have mainframe access so this is untested
2 - I did it off the top of my head so I may have missed something
3 - It is not my fault if it screws things up!

[code:1:69ab03d8dd]
/*- Rexx -----------------------------------------------------------*/
/* */
/* Name : DUPS Date: March 2009 */
/* */
/* Function: Display consecutive duplicate records */
/* */
/* Author : Nic Clouston Smoogro Software */
/* */
/* Copyright Smoogro Software 2009 */
/* */
/* Input : Allocated to DDNAME SYSUT1 in JCL run deck - no need */
/* to allocate file in program. */
/* */
/* Output : SYSPRINT */
/* */
/*----------------------------------------------------------- Rexx -*/
Trace 'N'
saved_key = ''
keystart = 1 /* <=== Provide real values here */
keylength = 8 /* <=== and here */
/* Do an EXECIO here to read n records */
/* e.g. */
'EXECIO 100 DIRSKR SYSUT1 (STEM recsin.'
/* recsin.0 should contain number of records read */
Do While rc = 0 /* EXECIO gives rc=200 (I think) at EOF */

Call process_batch
/* Do an EXECIO here to read n records */
'EXECIO 100 DIRSKR SYSUT1 (STEM recsin.'

End

Call process_batch /* process batch that gave rc
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.