Try this 

//STEP1    EXEC  PGM=ADRDSSU
//SYSPRINT DD    SYSOUT=A
//DASD     DD    UNIT=3380,VOL=(PRIVATE,SER=111111),DISP=OLD
//SYSIN    DD    *
 PRINT  TRACKS(1,0,1,5) INDDNAME(DASD)
/*

From
https://www.ibm.com/docs/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.adru000/dgt3u2128.
htm


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are.”   - - - John Wooden

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Binyamin Dissen
Sent: Thursday, March 23, 2023 12:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IBM utility to print an arbitrary block/track on a volume

I am sure that such a utility exists, but not finding it.

I hope I don't have to do STARTIO coding for this.

--
Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to