searching data in PS file on the basis of " 037159 " number



Support for NetApp SyncSort for z/OS, Visual SyncSort, SYNCINIT, SYNCLIST and SYNCTOOL

searching data in PS file on the basis of " 037159 " number

Postby rahulj » Tue May 20, 2008 3:03 pm

Hi

I have some questiona regarding SORT...

I have one file Contain 3000 lines of data .( that is not records)

Data looks like below.


ST*857*003478874Ã… <===1st line BHT***037159XXX*20080124Ã… <===2nd line
N1*..... <===3rd line
|.... .
|....
|.... ..n th Line
|.............
...................
SE*51*003478874Ã… <===last line


I am searching data in PS file on the basis of " 037159 " number. Once this number match then data should be copy from
ST* ...To SE*..... in other file.

So, in this condition i cant use SORT . Please let me know any sort card present in SORT ,ICETOOL or any other way for searching.

Note:-My Data is start From ST* TO SE* . In between these two condition some other data is present .


Regards,
Rahul
rahulj
 
Posts: 4
Joined: Mon May 19, 2008 11:22 am
Has thanked: 0 time
Been thanked: 0 time

Re: searching data in PS file on the basis of " 037159 " number

 

Re: understand how ICETOOL

Postby Frank Yaeger » Tue May 20, 2008 8:49 pm

Rahul,

Please start a new separate thread for this new question.

In the new thread, give the RECFM and LRECL of your input file and clarify the following:

I have one file Contain 3000 lines of data .( that is not records)


What do you mean by "not records"? Are there multiple lines in a record? Are line1 and line2 in the same record or in different records?

Do you only have one ST/SE group that you want to extract or can there be multiple ST/SE groups?

Is the situation that ST appears in the first record of the group in positions 1-2, 037159 appears in the second record of the group in positions 7-12 and SE appears in the last record of the group in positions 1-2? If not, what exactly is the situation?
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1080
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 14 times

Re: searching data in PS file on the basis of " 037159 " number

Postby rahulj » Fri May 23, 2008 11:25 am

Hi Frank

Here I have mentioned your last question's answer

Q >Is the situation that ST appears in the first record of the group in positions 1-2,
Ans:-Yes , starting with ST ( Column: 1 to 2 )

Q > 037159 appears in the second record of the group in positions 7-12
Ans :No ,037159 , that is present at Column 13 to 18

Q>SE appears in the last record of the group in positions 1-2? If not, what exactly is the situation?
Ans:- Yes,SE(Column: 1 to 2 )



RECFM=FB and LRECL=80

My Requirement is ..

1 . I have Data It contain multiple lines which is starting with ST ( Column: 1 to 2 )
and End With SE(Column: 1 to 2 )
2. In between ST & SE , BHT line present (Column: 1 to 3)with Sixdigit Number#037159 (Column 13 to 18)
3. I have many numbers like 037159, 037169, 037205 etc,,
4. Base on that numbers i need to check data in my PS file.
5 Above number present in BHT line.
6. If that number found I need to CUT from ST/SE batch and paste in other PS file manually.
7 So is there any JCL SORT card present for minimizing this manual work into JCL programming


Note : We cant guess how many line present in between ST/SE .That may varies in each ST/SE
Please see below INPUT File.

INPUT FILE :-
**********************************************START*****************************************
ST*857*003478874Ã…
BHT*0002*33*037159JAN220870*20080124Ã…
HL*1**S*1Ã…
G05*1*SHÃ…
DTM*011*20080124Ã…
DTM*373*20080122Ã…
N1*SF**FI*820477390Ã…
N4*PHOENIX*AZ*85043Ã…
N1*ST**10*188111Ã…
HL*2*1*O*1Ã…
TDS*3190Ã…
N9*IV*037159JAN220870Ã…
DTM*373*20080122Ã…
TXI*ZZ*1.28Ã…
N1*BT**10*188111Ã…
HL*3*2*I*0Ã…
IT1*1*1*EA*9.16**PL*1*SW*L279823Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*4*2*I*0Ã…
IT1*2*1*EA*5.97**PL*3*SW*L279782Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*5*2*I*0Ã…
IT1*3*1*EA*5.97**PL*4*SW*L279582Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*6*2*I*0Ã…
IT1*4*1*EA*7.38**PL*5*SW*F2VZ01169Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*7*2*I*0Ã…
IT1*5*1*ST*2.14**PL*7*SW*F203513Ã…
IT3*1*STÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
SE*51*003478874Ã…
ST*857*003478884Ã…
BHT*0002*33*037169JAN220889*20080124Ã…
HL*1**S*1Ã…
G05*1*SHÃ…
DTM*011*20080124Ã…
DTM*373*20080122Ã…
N1*SF**FI*820477390Ã…
N4*SALT LAKE CITY*UT*84101Ã…
N1*ST**10*180312Ã…
HL*2*1*O*1Ã…
TDS*28567Ã…
N9*IV*037169JAN220889Ã…
DTM*373*20080122Ã…
N1*BT**10*180312Ã…
HL*3*2*I*0Ã…
IT1*1*2*EA*6.91**PL*2*SW*A5TZ211Ã…
IT3*2*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*4*2*I*0Ã…
IT1*2*2*EA*7.78**PL*3*SW*A5TZ221Ã…
IT3*2*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*5*2*I*0Ã…
IT1*3*2*EA*15**PL*4*SW*A5TZ232Ã…
IT3*2*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*6*2*I*0Ã…
IT1*4*50*RM*3.29**PL*5*SW*P1054901Ã…
IT3*50*RMÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*7*2*I*0Ã…
IT1*5*5*PK*4.67**PL*6*SW*A83710-2CR6Ã…
IT3*5*PKÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*8*2*I*0Ã…
IT1*6*2*DZ*1.37**PL*8*SW*H410002236807Ã…
IT3*2*DZÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*9*2*I*0Ã…
IT1*7*2*DZ*.57**PL*9*SW*H410002828201Ã…
IT3*2*DZÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*10*2*I*0Ã…
IT1*8*36*EA*.37**PL*12*SW*N120009357135Ã…
IT3*36*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*11*2*I*0Ã…
IT1*9*2*DZ*3.32**PL*13*SW*H410002855995Ã…
IT3*2*DZÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
HL*12*2*I*0Ã…
IT1*10*1*DZ*14.6**PL*14*SW*P330011245660Ã…
IT3*1*DZÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014632784Ã…
N9*VN*037169JAN220889Ã…
SE*85*003478884Ã…
ST*857*003478916Ã…
BHT*0002*33*037205JAN220887*20080124Ã…
HL*1**S*1Ã…
G05*1*SHÃ…
DTM*011*20080124Ã…
DTM*373*20080122Ã…
N1*SF**FI*820477390Ã…
N4*KENT*WA*98032Ã…
N1*ST**10*18051VÃ…
HL*2*1*O*1Ã…
TDS*18845Ã…
N9*IV*037205JAN220887Ã…
DTM*373*20080122Ã…
N1*BT**10*18051VÃ…
HL*3*2*I*0Ã…
IT1*1*1*EA*14.98**PL*1*SW*F466454Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*4*2*I*0Ã…
IT1*2*6*PK*1.5**PL*2*SW*F467695Ã…
IT3*6*PKÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*5*2*I*0Ã…
IT1*3*2*BX*12.4**PL*3*SW*F541521/5-VIOÃ…
IT3*2*BXÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*6*2*I*0Ã…
IT1*4*1*BX*12.4**PL*4*SW*F541521/5-BLUÃ…
IT3*1*BXÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*7*2*I*0Ã…
IT1*5*1*BX*12.4**PL*5*SW*F541521/5-YELÃ…
IT3*1*BXÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*8*2*I*0Ã…
IT1*6*1*BX*10.71**PL*6*SW*F541521/5-BURÃ…
IT3*1*BXÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*9*2*I*0Ã…
IT1*7*1*BX*12.4**PL*7*SW*F541521/5-GRAÃ…
IT3*1*BXÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*10*2*I*0Ã…
IT1*8*1*CT*18**PL*8*SW*A78J8Ã…
IT3*1*CTÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*11*2*I*0Ã…
IT1*9*1*CT*44.48**PL*9*SW*A74338SCDXÃ…
IT3*1*CTÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
HL*12*2*I*0Ã…
IT1*10*4*EA*7.32**PL*11*SW*K735250Ã…
IT3*4*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014649768Ã…
N9*VN*037205JAN220887Ã…
SE*85*003478916Ã…

**********************************************END*****************************************

OUTPUT FILE :-


ST*857*003478874Ã…
BHT*0002*33*037159JAN220870*20080124Ã…
HL*1**S*1Ã…
G05*1*SHÃ…
DTM*011*20080124Ã…
DTM*373*20080122Ã…
N1*SF**FI*820477390Ã…
N4*PHOENIX*AZ*85043Ã…
N1*ST**10*188111Ã…
HL*2*1*O*1Ã…
TDS*3190Ã…
N9*IV*037159JAN220870Ã…
DTM*373*20080122Ã…
TXI*ZZ*1.28Ã…
N1*BT**10*188111Ã…
HL*3*2*I*0Ã…
IT1*1*1*EA*9.16**PL*1*SW*L279823Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*4*2*I*0Ã…
IT1*2*1*EA*5.97**PL*3*SW*L279782Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*5*2*I*0Ã…
IT1*3*1*EA*5.97**PL*4*SW*L279582Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*6*2*I*0Ã…
IT1*4*1*EA*7.38**PL*5*SW*F2VZ01169Ã…
IT3*1*EAÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
HL*7*2*I*0Ã…
IT1*5*1*ST*2.14**PL*7*SW*F203513Ã…
IT3*1*STÃ…
N9*CT*089480-00-B-0336Ã…
N9*C7*003Ã…
N9*PO*P00014621587Ã…
N9*VN*037159JAN220870Ã…
SE*51*003478874Ã…

Regards,
Rahul
rahulj
 
Posts: 4
Joined: Mon May 19, 2008 11:22 am
Has thanked: 0 time
Been thanked: 0 time

Re: searching data in PS file on the basis of " 037159 " number

Postby Frank Yaeger » Mon May 26, 2008 9:10 pm

ICETOOL is shipped with DFSORT (has been since 1991). If you can use DFSORT at your shop, then can use ICETOOL. So either your shop doesn't have DFSORT, or your System Programmers installed DFSORT incorrectly or purposely removed ICETOOL for some unknown reason.

Run this plain DFSORT job to see if you have DFSORT and post the messages:

//S1    EXEC  PGM=SORT       
//SYSOUT    DD  SYSOUT=*                                         
//SORTIN DD *                                                     
RECORD 1                                                         
RECORD 2                                                         
//SORTOUT DD DUMMY   
//SYSIN    DD    *                                               
    OPTION COPY                                                     
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1080
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 14 times

Re: searching data in PS file on the basis of " 037159 " number

Postby rahulj » Tue May 27, 2008 11:20 am

Hi Frank

I have posted that JCL program It run successful. (MAXCC=0)
*********************************************************************************************************************************************
00.16.44 JOB01164 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
00.16.44 JOB01164 - INSOR12 S1 00 32 14 .00 .00 .0 182 0 0 0 0 0

IEF142I INSOR12 S1 - STEP WAS EXECUTED - COND CODE 0000

SYSIN :
OPTION COPY 00008000
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 80
WER110I SORTOUT : RECFM=FB ; LRECL= 80; BLKSIZE= 80
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER054I RCD IN 2, OUT 2
WER169I RELEASE 3.7C BATCH 0295 TPF LEVEL 4
WER052I END SYNCSORT - INSOR12,S1,,DIAG=8200,8646,68E0,A886,82F2,8647,68E0
*********************************************************************************************************************************************

Please let me know next step......

Regards,
Rahul
rahulj
 
Posts: 4
Joined: Mon May 19, 2008 11:22 am
Has thanked: 0 time
Been thanked: 0 time

Re: searching data in PS file on the basis of " 037159 " number

Postby Frank Yaeger » Tue May 27, 2008 8:43 pm

The WER messages indicate you're using Syncsort, not DFSORT. I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1080
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 14 times

Re: searching data in PS file on the basis of " 037159 " number

Postby rahulj » Thu May 29, 2008 12:23 pm

Hi All

Anybody can Solve my above query in SYNCSORT Programming??????



Regards,
Rahul
rahulj
 
Posts: 4
Joined: Mon May 19, 2008 11:22 am
Has thanked: 0 time
Been thanked: 0 time


Return to Syncsort/Synctool

 


  • Related topics
    Replies
    Views
    Last post