Changing hex value for a VB file

aaleya · New User Joined: 10 Apr 2008 Posts: 11 Location: chennai

Could someone please help me in converting a hex value say '0D' to '40' for VB file using JCL. I am aware of ALTSEQ but i have used it for FB file. I have used the following code :

OPTION COPY
ALTSEQ CODE=(0D40)
OUTREC FIELDS=(1,25296,TRAN=ALTSEQ)

But my input file was FB then. But now i need to do the same thing with a VB file.

guptae · Posted: Mon Sep 15, 2008 1:49 pm

Hello Aayelya,

You can use following sort card for Vb file so first four bytes will contain RDW. here i assume the max record length for this file is 25300

OPTION COPY
ALTSEQ CODE=(0D40)
OUTREC FIELDS=(5,25296,TRAN=ALTSEQ)

aaleya · New User Joined: 10 Apr 2008 Posts: 11 Location: chennai

Thanks Ekta!

But when I am trying to use the above code my job is abending saying 'RDW NOT INCLUDED'. Could you please help me with it.

karthikr44 · Posted: Mon Sep 15, 2008 4:20 pm

Hi,

Please try the following,

aaleya · New User Joined: 10 Apr 2008 Posts: 11 Location: chennai

Hi,

The job is still abending with the same error.

Thank!
Aaleya

karthikr44 · Posted: Mon Sep 15, 2008 4:50 pm

Hi,

Can u post the entire JCL using code option, RECFM and LRECL.

Regards
R KARTHIK

karthikr44 · Posted: Mon Sep 15, 2008 4:56 pm

HI,

Please try the follwing

aaleya · New User Joined: 10 Apr 2008 Posts: 11 Location: chennai

Hi Karthik...

Thanks a lot for your code. My job went fine with this :

OPTION COPY
ALTSEQ CODE=(0D40)
OUTREC FIELDS=(1,4,5,TRAN=ALTSEQ)

Thanks!
Aaleya

karthikr44 · Posted: Mon Sep 15, 2008 5:34 pm

Nice to hear that job went fine...

Cheers
R KARTHIK

Frank Yaeger · Posted: Wed Sep 17, 2008 2:47 am

aaleya,

If you have z/OS DFSORT V1R5 PTF UK90013 (July, 2008), you can use the new FINDREP function to do this kind of thing quite easily for both FB and VB files like this: