Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
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