The GDG is nothing but a sequential kind of file.You can just use the SORT to copy the GDG from a PS file.

Krishy

Both are nothing but flat files. You can use PGM SORT in EXEC statement and in sysin you can use sort fields copy. For example.

//JOBNAME ....

//STEP1 EXEC PGM SORT

//SYSPRINT DD SYSOUT *

//SORTIN DD DSN A.B.C(0) DISP SHR ---> GDG FILE

//SORTOUT DD DSN A1.B1.C1 DISP SHR ---> FLAT FILE(PS FILE)

//SYSIN DD *

SORT FIELDS COPY

/*

//

Sorry in the above post i have mentioned DISP SHR for SORTOUT. But it should be DISP (NEW CATLG DELETE) instead of DISP SHR

Thanks & RegardS

Karthikkumar.P