IBM Sort - Printing a record counter in a Detail Register

Question

I\'ve this file: SORTIN01 DD * AAAAAAAA BBBBBBBB CCCCCCCC DDDDDDDD EEEEEEEE

I\'d like use sort to produce a SORTOUT file like this: SORTOUT DD * AAAAAAAA0000000001000