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
 

 

Changing hex value for a VB file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
aaleya

New User


Joined: 10 Apr 2008
Posts: 11
Location: chennai

PostPosted: Mon Sep 15, 2008 1:15 pm    Post subject: Changing hex value for a VB file
Reply with quote

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.
Back to top
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Sep 15, 2008 1:49 pm    Post subject:
Reply with quote

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)
Back to top
View user's profile Send private message
aaleya

New User


Joined: 10 Apr 2008
Posts: 11
Location: chennai

PostPosted: Mon Sep 15, 2008 3:46 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Mon Sep 15, 2008 4:20 pm    Post subject: Reply to: Changing hex value for a VB file
Reply with quote

Hi,

Please try the following,

Code:

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


Regards
R KARTHIK
Back to top
View user's profile Send private message
aaleya

New User


Joined: 10 Apr 2008
Posts: 11
Location: chennai

PostPosted: Mon Sep 15, 2008 4:25 pm    Post subject:
Reply with quote

Hi,

The job is still abending with the same error.

Thank!
Aaleya
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Mon Sep 15, 2008 4:50 pm    Post subject: Reply to: Changing hex value for a VB file
Reply with quote

Hi,

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

Regards
R KARTHIK
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Mon Sep 15, 2008 4:56 pm    Post subject: Reply to: Changing hex value for a VB file
Reply with quote

HI,

Please try the follwing

Code:

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


and

Code:

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



Regards
R KARTHIK
Back to top
View user's profile Send private message
aaleya

New User


Joined: 10 Apr 2008
Posts: 11
Location: chennai

PostPosted: Mon Sep 15, 2008 5:31 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Mon Sep 15, 2008 5:34 pm    Post subject: Reply to: Changing hex value for a VB file
Reply with quote

Nice to hear that job went fine...

Cheers
R KARTHIK
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Sep 17, 2008 2:47 am    Post subject:
Reply with quote

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:

Code:

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN DD *
  OPTION COPY
  INREC FINDREP=(IN=X'0D',OUT=X'40')
/*


For complete details on all of the new functions available with the July, 2008 DFSORT PTF, see:

http://www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


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