The IDCAMS printing utility

You can use IDCAMS to print the contents of a program object in a z/OS® UNIX file, or the unformatted contents of a program object in an MVS™ data set.

An example of the IDCAMS JCL follows:
//DUMPMOD  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INPUT2 DD DSN=PDSE1.APPS(APP1),DISP=SHR
//SYSIN DD *
 PRINT INFILE(INPUT2)
/*