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
 
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 PLI %IF statements Pedro PL/I & Assembler 1 Tue Sep 19, 2017 12:06 am
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts INREC PARSING and dictionary items migusd SYNCSORT 6 Fri Jun 02, 2017 8:02 pm
No new posts Symbolic Parameters in SYSIN DD state... madishpa DFSORT/ICETOOL 3 Mon Jun 27, 2016 6:23 pm

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