IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Change 2 byte comp-3 value to 6 byte comp-3 value


IBM Mainframe Forums -> DB2
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sridevi2005

New User


Joined: 15 Sep 2005
Posts: 42

PostPosted: Thu Oct 25, 2007 10:09 am
Reply with quote

I want to change 2 byte comp-3 value to 6 byte comp-3 value.

EX:

2 byte comp-3 value -- 001C
6 byte comp-3 value -- 00000000001C

Please provide me that.

Thanks,
Sridevi
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Thu Oct 25, 2007 11:13 am
Reply with quote

Sridevi,

Provided two mehtods. Whichever you feel is easy, use it.

Code:
//SYSIN DD *                           
  OPTION COPY                     
  OUTREC FIELDS=(1,2,PD,TO=PD,LENGTH=6)
/*                                     


Code:
//SYSIN DD *                                           
  OPTION COPY                                     
  OUTREC FIELDS=(1,2,PD,ADD,+0,TO=PD,LENGTH=6)         
/* 


I assumed PD value occurs from col 1 to 2. Change according to your req.

Moderators,

Could you remove my prev post in this topic. Thanks!!!!
Back to top
View user's profile Send private message
sridevi2005

New User


Joined: 15 Sep 2005
Posts: 42

PostPosted: Thu Oct 25, 2007 11:42 am
Reply with quote

Hi Murali,

Thank u very much.

Its working fine.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Thu Oct 25, 2007 12:00 pm
Reply with quote

Sridevi,

You are welcome.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DB2

 


Similar Topics
Topic Forum Replies
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 1
No new posts 3270 personal communications. Can't c... TSO/ISPF 2
No new posts COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
Search our Forums:

Back to Top