IEBPTPCH Utility

//IEBPTPCH JOB
// EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),DISP=SHR
//SYSUT2 DD DSN=KC03H09.$MARIST$.LIBRARY(LAB2),DISP=SHR
//SYSIN DD *
PRINT TYPORG=PS
/*
//SYSPRINT DD SYSOUT=*
//