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
 

 

What this following INREC statements do

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

New User


Joined: 04 Jan 2007
Posts: 1
Location: chennai

PostPosted: Thu Jan 04, 2007 10:22 pm    Post subject: What this following INREC statements do
Reply with quote

i want to know wht this following inrec statements do

1) inrec fields=(1,10,3Z,11,5,PD,TO=PD,16,65)

2) inrec fields=(1,10,11,5,PD,MUL,+1,TO=PD,16,65)

Input:

01 input.
05 a pic 9(10)
05 b pic s9(09) comp-3
05 filler pic x(65)

I want to know the copybook to match the output of the above two cases.
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: Thu Jan 04, 2007 10:44 pm    Post subject:
Reply with quote

Code:

   INREC FIELDS=(1,10,3Z,11,5,PD,TO=PD,16,65)


This DFSORT statement reformats the INREC records to create output records as follows:

output positions 1-10: input positions 1-10
output positions 11-13: binary zeros
output positions 14-18: the PD value in input positions 11-15 converted to a 5-byte PD value with a C sign for a positive number or a D sign for a negative number
output positions 19-83: input positions 16-80

Code:

   INREC FIELDS=(1,10,11,5,PD,MUL,+1,TO=PD,16,65)


This DFSORT statement reformats the INREC records to create output records as follows:

output positions 1-10: input positions 1-10
output positions 11-15: the PD value in input positions 11-15 multiplied by +1 and converted to a 5-byte PD value with a C sign for a positive number or a D sign for a negative number
output positions 16-80: input positions 16-80
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 Symbolic Parameters in SYSIN DD state... madishpa DFSORT/ICETOOL 3 Mon Jun 27, 2016 6:23 pm
No new posts Extracting Information from DD Statem... Charles Wolters All Other Mainframe Topics 7 Wed Apr 13, 2016 10:21 pm
No new posts What does this INREC do? Lino Pontes DFSORT/ICETOOL 5 Fri Apr 08, 2016 12:17 am
No new posts Parsing JCL SET var=value statements prino CLIST & REXX 0 Sat Dec 26, 2015 4:41 am
No new posts DFSORT control statements in any order ? ronald masters DFSORT/ICETOOL 2 Tue Dec 15, 2015 11:22 pm


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