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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


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