Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Selective copy of VBS file to VBS file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: Selective copy of VBS file to VBS file
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

Site Director


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

PostPosted: Thu Aug 21, 2008 7:13 am    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Aug 21, 2008 7:44 am    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Aug 21, 2008 8:22 am    Post subject: Reply to: Selective copy of VBS file to VBS file
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 0 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us