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 ...