Mainframes JCL Grabar transposición usando SORT

Quiero hacer la siguiente transposición de registros a la columna usando SORT (snycsort o DFSORT). Debe ser escalable a cualquier número de registros. ¿Es esto posible?

DE001XYX   A 
CD100000 B
CD200000 C
DE001KKK A
CD100000 B
DE003ZZZ A
DE001XYX A
CD100000 B
CD200000 C
DE001KKK A
CD100000 B
........

Transponer

DE001XYX   CD100000   CD200000   
DE001KKK   CD100000   
DE003ZZZ   
DE001XYX   CD100000   CD200000   
DE001KKK   CD100000   
.....

Respuestas a la pregunta(1)

Su respuesta a la pregunta