babjee talluri

• Jul 26th, 2011

 

but we know the length of the field, if we know the length, if it's wrong let you tell me asap, i am fresher

perform until 1000 times
read file1rec
move(1:10) to a(1:10)
move(30:10) to a(12:10)
move(50:10) to a(24:10)
move(70:10) to a(36:10)
display a
end-perform.

sandeep

• Nov 24th, 2011

 

Using sort in jcl we can get the required fields in output file like,

Code
in sort jcl,


//sysin dd *


  sort fields=copy


  outrec fields=(starting position in o/p file:starting field in i/p file,length,starting position in o/p file:starting field in i/p file,length,..........)


/*


//


e.g. assume i have 8 fields in one rec of i/p file each field length 5 bytes, as he ask i want 1,3,5,7 fields only, see


//sysin dd *


  sort fields=copy


  outrec fields=(1:1,5,6:11,15,11:21,25,16:31,35)


/*


//