Perusing our source for the venerable ZAP command, I find these lines: TM FLAGS3,FULLVOLF FULL-VOLUME ZAP? BO FORCVTOC YES CLC =C'FORMAT4.DSCB',DSNAME VTOC? BNE NOTVTOC3
MVC DSNAMEL(2),=H'44' MVI DSNAME,X'04' YES, CHANGE DSN MVC DSNAME+1(43),DSNAME TO 44X'04' MVC DISPDSN,BLANKS RESET FIELD MVC DISPDSN(8),=C'VTOC FOR' SHOW SOMETHING GOOD MVC DISPDSN+9(6),VOLSER MOVE IN VOLUME NAME OI FLAGS2,SENSF+LOGF MARK AS SENSITIVE CLI ALLOCDSN,C' ' ALLOCDSN GIVEN? BNE VTOCOK YES - VOLSER IS IMPLIED CLI VOLSER,C' ' CATALOG FOR VTOC? BE BADDSN YES, WHAT DOES THAT MEAN? . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Tony Harminc Sent: Thursday, June 13, 2019 9:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: VTOC reading On Thu, 13 Jun 2019 at 11:48, John McKown <john.archie.mck...@gmail.com> wrote: > On Thu, Jun 13, 2019 at 10:44 AM Bill Ogden <og...@us.ibm.com> wrote: > > > My old memory is failing in too many areas. Long ago, I seem to > > recall, there was an easy way to read a VTOC with simple JCL using a "magic" > > DSNAME ----- obviously not 040404... for JCL, but some other name. > > Is my memory correct? What is the DSNAME? While playing with > > google I cannot find anything, but I might be using the wrong search words. > > Try: DSN=FORMAT4.DSCB,DISP=OLD,UNIT=SYSDA,VOL=SER=volser > I'm almost certain this is a kluge/feature implemented only by AMASPZAP, and not some JCL magic that works for just any program. FORMAT4.DSCB is documented in the "SPZAP: Modify data in programs and VTOCs" chapter of the "MVS Diagnosis: Tools and Service Aids" book. Whether you can Dynalloc the VTOC using the true name (44 bytes of 04) is another question. For that matter, does JCL reject it (it would have to be quoted, of course)? Tony H. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
