IBM MAINFRAME HELP & SUPPORT FORUMS

wanderer · Joined: 05 Feb 2007 Posts: 158 Location: Sri Lanka

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!

dick scherrer · Joined: 23 Nov 2006 Posts: 8591 Location: 221 B Baker St

Hello,

It may help if you browse the file and post the first 30 bytes of some of the "A0" records in hex.

wanderer · Joined: 05 Feb 2007 Posts: 158 Location: Sri Lanka

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

dick scherrer · Joined: 23 Nov 2006 Posts: 8591 Location: 221 B Baker St

Hello,

You might want to try pos 12 rather than 16. . .

wanderer · Joined: 05 Feb 2007 Posts: 158 Location: Sri Lanka

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.

dick scherrer · Joined: 23 Nov 2006 Posts: 8591 Location: 221 B Baker St

You're welcome - good to hear it is working now :)

Thanks for posting your explanation.

d