IDCAMS

//IDCAMS JOB
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1 DD DSN=KC03H0E.MCA2.PDS(A),DISP=SHR
//SYSIN DD *
  PRINT -
  INFILE ( DD1 ) -
  CHAR
/*