Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Inserting Value 500 in the Binary format using OUTREC

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Hima1985

New User


Joined: 17 Apr 2009
Posts: 70
Location: India

PostPosted: Tue Jun 08, 2010 8:42 pm    Post subject: Inserting Value 500 in the Binary format using OUTREC
Reply with quote

Hi ..
Could you please let me know how to insert value 500 (in a 4byte binary field) using SORT OUTREC.

Scenario -

Input file - FB/LRECL-30
Output File(FB/LRECL-45) format should be

1 30BYTESFROMINPUTFILE50011111111



Here the field where value 500 should be inserted is defined as binary with length 4 (S9(09) COMP.).

Please help.
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Jun 08, 2010 9:27 pm    Post subject:
Reply with quote

Is this your input?
Code:
000000000111111111122222222223
123456789012345678901234567890
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Where 'x' is some data.
And is this your expected output?
Code:
000000000111111111122222222223333333333444444
123456789012345678901234567890123456789012345
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx9999bbbbbbbbbbb
Where 9999 is a 4 byte binary field with a value of 500 and 'b' is blank/space filler.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Jun 08, 2010 9:29 pm    Post subject: Reply to: Inserting Value 500 in the Binary format using OUT
Reply with quote

Hima1985,


Use the following control cards

Code:

//SYSIN    DD *                                 
  SORT FIELDS=COPY                               
  OUTREC BUILD=(1,30,33:+500,TO=BI,LENGTH=4,45:X)
//*
Back to top
View user's profile Send private message
Hima1985

New User


Joined: 17 Apr 2009
Posts: 70
Location: India

PostPosted: Tue Jun 08, 2010 9:34 pm    Post subject:
Reply with quote

Thanks a lottttt .. It worked icon_smile.gif
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 OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm
No new posts Format Last Record differently from r... Learncoholic DFSORT/ICETOOL 5 Tue Oct 24, 2017 12:01 pm
No new posts Format issues using XMITIP MSGDD ssdjp1 CLIST & REXX 5 Mon Oct 23, 2017 8:47 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us