IBM Mainframe Forum

Hi

I have a requirement like ..in a file there are many records which are of different fileds and values .But all the records have field , Trans-id but at different positions.Now i need to get all the records which are having same trans-id(which is not uniq....like for that perticular transaction ID so many records will get created with different information)

Input file:
LRECL:4096
Record format:VB



Like this there will be so many record with different ID's(few records having same Ids but at different positions)
Now in o/p file ,if I specify one ID ...I shuold get all the records having that perticulat ID.
I cannot go for SORT because there will be so many records having same ID at different positions.I cannot give all the positions IN OR condition.

I heard we can do so in REXX.
Please help me if u have any idea on this.

Thank U

If I understand you correctly, you want to look for a specific value on each record and, if found, copy that record to the output. Correct?

If so, you CAN easily do that with SORT (using the SS function), but using REXX you can try the POS function:

Read a record.
Use the POS (Position) function to find the field:

...
Parse Pull rec
fnd = POS('id1',rec)
If fnd <> 0 Then
Do
... write the record
End

I would go for the SORT option as REXX is probably one of the most inefficient methods for I/O with a large record volume.

Can u pls let me know what is SORT (using the SS function)?

ThankYou

This worked for me with DFSORT:

Hi

Thank you for your reply .

I will try this ..n let know if I still find any issues

Hi MrSpock

Sory for my late reply.
I tried the JCL n its working fine.

The Id that I need to search will be in packed form in the input file .So we give X'id' in search criteria.
But when am trying to give multiple Ids..am getting an error.
I read that we can give multiple Ids like this:

INCLUDE COND=(106,5,SS,EQ,C'BIOL ,HIST ,BUSIN,PSYCH')
from
http://publibz.boulder.ibm.com/cgi-bin/ ... 0223112358

So i have tried giving like this:

INREC OVERLAY=(4097:X)
OPTION COPY
OUTFIL INCLUDE=(5,4090,SS,EQ,X'id1,id2')
BUILD=(1,4,5,4092),VLTRIM=X'40'


But am getting an eror:

SYSIN :
INREC OVERLAY=(4097:X)
OPTION COPY
OUTFIL INCLUDE=(5,4090,SS,EQ,X'233ADB25,233DE01D')
*
BUILD=(1,4,5,4092),VLTRIM=X'40'
*
WER251A INCLUDE/OMIT INVALID SELF DEF TERM
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE


Please correct me if the way that I understood is wrong and pls help me in how to give mutiple ids in search.


Thank You

Unfortunately you are using Syncsort so I would check the manual for that product and see what you can find out. Although SYCSORT and DFSORT are more or less compatible in function and syntax they can differ and this may be one of those occasions when they differ.

Hello,

Unfortunately you are using Syncsort. . .

We do not want editorial comments. . .

One cannot "make up" syntax. . .

I'm not able to test this, but you might try:

If this does not work for you, you can always specify the 2 values in 2 INCLUDEs with an OR between them. . .

We do not want editorial comments. . .

Sorry Dick - you mis-read my comment - maybe 'misunderstood' is a better word. I have never used SYSNCSORT and have no opinion about it. What I was saying was that the answer that had previously been given was presumably for DFSORT as DFSORT had already been mentioned but the error messages indicated that OP was using SYNCSORT. No editorialising was meant or intended.