IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Selective copy of VBS file to VBS file


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
wanderer

Active User


Joined: 05 Feb 2007
Posts: 199
Location: Sri Lanka

PostPosted: Thu Aug 21, 2008 6:16 am
Reply with quote

Hi,

I have an SMF file in VBS format. This has information for more than one System. So I am trying to copy records to another VBS file with only a particular system's records. The system name seems to be on col 12

So I tried the following JCL.

Code:
//STEP1   EXEC PGM=SORT                                     
//DFSPARM DD *                                               
 SPANINC=RC4                                                 
/*                                                           
//SORTIN  DD DISP=SHR,DSN=xxxxxxxx.TEST.SMFD1A.ICE           
//SORTOUT  DD DSN=xxxxxxxx.TEST.SMFD1A.ICE1,                 
//            DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,           
//            SPACE=(CYL,(200,200),RLSE)                     
//SYSOUT  DD SYSOUT=*                                       
//SYSIN   DD   *                                             
   INCLUDE COND=(16,2,CH,EQ,C'A0')                           
   OPTION COPY,VLSHRT   


here 'A0' is the records I am looking for. But somehow my output is empty.

ICE054I 0 RECORDS - IN: 251434, OUT: 0
ICE173I 0 NO RECORDS FOR THE SORTOUT DATA SET - RC=0

What am I missing here?

Thanks for any suggesstions!
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 21, 2008 7:13 am
Reply with quote

Hello,

It may help if you browse the file and post the first 30 bytes of some of the "A0" records in hex.
Back to top
View user's profile Send private message
wanderer

Active User


Joined: 05 Feb 2007
Posts: 199
Location: Sri Lanka

PostPosted: Thu Aug 21, 2008 7:29 am
Reply with quote

Since i couldn't browse the VBS file, when copied to SYSOUT using ICEGENER it shows as below.

Code:
    ꬠ   A0                                                                   
    ÍÞ    A0                                                                   
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       O m     ¯       ¦ H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     
ú  ïU     A0  STC      ^       O ½     þ ç     O       ú m             Ê H     


After copying to an FB file, here is the HEX view of a few records.

Code:
1  ꬠ A0                                                           
F1000550023CF44444444444444444444444444444444444444444444444444444444444
1E2052F183F1000000000000000000000000000000000000000000000000000000000000
-----------------------------------------------------------------------
   ÍÞ  A0                                                           
410007A0023CF44444444444444444444444444444444444444444444444444444444444
0E2005E183F1000000000000000000000000000000000000000000000000000000000000
-----------------------------------------------------------------------
 ú  ïU  A0  STC   ^  O ½  þ ç  O  ú m 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D090000000000000
0EE074E183F10002330020000060100060801001E080100160801001E040100000000002
-----------------------------------------------------------------------
 ú  ïU  A0  STC   ^  O ½  þ ç  O  O m  ¯ 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D0900000B0000000
0EE074E183F10002330060000060100060801001E08010016000000160401003C0000002
 ú  ïU  A0  STC   ^  O ½  þ ç  O  O m  ¯ 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D0900000B0000000
0EE074E183F10002330060000060100060801001E08010016000000160401003C0000002
-----------------------------------------------------------------------
 ú  ïU  A0  STC   ^  O ½  þ ç  O  O m  ¯ 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D0900000B0000000
0EE074E183F10002330060000060100060801001E08010016000000160401003C0000002
-----------------------------------------------------------------------
 ú  ïU  A0  STC   ^  O ½  þ ç  O  O m  ¯ 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D0900000B0000000
0EE074E183F10002330060000060100060801001E08010016000000160401003C0000002
-----------------------------------------------------------------------
 ú  ïU  A0  STC   ^  O ½  þ ç  O  O m  ¯ 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D0900000B0000000
0EE074E183F10002330060000060100060801001E08010016000000160401003C0000002
-----------------------------------------------------------------------
 ú  ïU  A0  STC   ^  O ½  þ ç  O  O m  ¯ 
4D105E00022CF44EEC400000B0200000D0B0000080400000D0000000D0900000B0000000
0EE074E183F10002330060000060100060801001E08010016000000160401003C0000002
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 21, 2008 7:44 am
Reply with quote

Hello,

You might want to try pos 12 rather than 16. . .
Back to top
View user's profile Send private message
wanderer

Active User


Joined: 05 Feb 2007
Posts: 199
Location: Sri Lanka

PostPosted: Thu Aug 21, 2008 7:45 am
Reply with quote

This made me realise that the A0 actually starts from col 11. So making the 16 to 15 made it work perfectly fine! Sorry about that. Thanks Dick for replying.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 21, 2008 8:22 am
Reply with quote

You're welcome - good to hear it is working now icon_smile.gif

Thanks for posting your explanation.

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top