IDCAMS

//IDCAMS JOB
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1 DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),DISP=SHR
//SYSIN DD *
PRINT -
INFILE ( DD1 ) -
CHAR
/*