Tx. I am familiar with the vtoc command. My code goes from catalog wualifier(s) to dataset information. I don't need to know where the dataset resides in order to retrieve the information I look for.
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and IBM I **| * *|* *Email**: [email protected] **|* *Mob**: +972 522 986404 **|* *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* בתאריך יום א׳, 19 באוק׳ 2025 ב-12:29 מאת David Spiegel < [email protected]>: > Hi ITschak, > The VTOC Command Processor can filter out uncataloged Datasets. > If you want sample JCL for this, please email me at > [email protected] > > Regards, > David > > On 2025-10-19 04:31, Itschak Mugzach wrote: > > Vtoc is not a possible solution as I am looking for datasets by catalog > and > > qualifier(s). Specifically, I created jobs to allocate the files, but the > > information is available to any need. This is my solution: > > > > /* Rexx */ > > AllocInfo.Config: > > xIndx = 0 /* Jcl line indec */ > > xHlq = 'QIF' /* Dsname Mask */ > > xUnit = 'SYSDA' /* Work file loc */ > > xDirBlk = 100 /* Dflt Dir size */ > > JobCard = '//'UserID()'ALC (X51,,X),MSGCLASS=W,REGION=0M,', > > 'TYPRUN=HOLD,NOTIFY='UserID() > > /* ============================================================ */ > > AllocInfo.Main: > > xIndx = xIndx +1 > > Alloc.xIndx = JobCard > > xIndx = xIndx +1 > > Alloc.xIndx = 'ALLOC EXEC PGM=IEFBR14' > > Prof nopref nomsg > > Queue 'S01' > > Queue 'ADIMUG54' > > Queue "cd '"xHlq"'" > > Queue 'dir' > > Queue 'quit' > > > > "FREE F(OUTPUT) " > > "DELETE" UserID()".DSNATTR.LIST" > > "ALLOC F(OUTPUT) UNIT("xUnit") DSORG(PS) RECFM(F B) LRECL(160)", > > "BLKSIZE(16000)", > > "DSNAME("UserID()".DSNATTR.LIST) NEW CATALOG" > > > > "ftp 10.100.102.211" > > "ExecIO * DiskR OUTPUT (Stem Dir." > > > > Do i = 1 to Dir.0 /* Ingore DIR header */ > > > > If (Word(Dir.i,1) /= 'EZA2284I') Then Do > > Iterate > > End > > > > Dir.i = SubWord(Dir.i,2) > > $Volume = Substr(Dir.i,001,06) > > $Unit = Substr(Dir.i,008,04) > > $CrDate = Substr(Dir.i,015,10) > > $Space = Strip(Substr(Dir.i,030,05)) > > $RecFM = Strip(Substr(Dir.i,035,04)) > > $LrecL = Strip(Substr(Dir.i,040,05)) > > $BlkSz = Strip(Substr(Dir.i,046,05)) > > $DsOrg = Strip(Substr(Dir.i,053,04)) > > $DsName = Strip(Substr(Dir.i,057)) > > > > If (Word(Dir.i,2) = 'Error') Then Do > > say ignored.. > > Iterate > > End > > Say 'dataset' xHlq'.$Dsname 'is' ... > > Say ' Unit ' $Unit > > ..... > > Say ' Otganization' $DsOrg > > End > > > > > > *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > > Platform* *|* *Information Security Continuous Monitoring for Z/OS, > zLinux > > and IBM I **| * > > > > *|* *Email**: [email protected] **|* *Mob**: +972 522 986404 > **|* > > *Skype**: ItschakMugzach **|* *Web**: http://www.securiteam.co.il/ **|* > > > > > > > > > > > > On Sun, Oct 19, 2025 at 3:29 AM David Spiegel < > > [email protected]> wrote: > > > >> Hi ITschak AMV"SH, > >> שבוע טוב/גוט וואך > >> Have you looked at the VTOC Command Processor (CBT File 112)? > >> > >> Regards, > >> David > >> > >> On 2025-10-18 02:44, Itschak Mugzach wrote: > >>> Charles, > >>> > >>> This is a complex migration to a yet unknown. Look at the program > (rexx) > >> as > >>> a way to get multiple datasets attributes without accessing each of > them > >> to > >>> get the attributes. > >>> > >>> The problem we try to solve is not the issue. I migrated clients data > >>> between platforms many times but this is not the problem we are trying > to > >>> solve. > >>> > >>> ITschak > >>> > >>> *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > >>> Platform* *|* *Information Security Continuous Monitoring for Z/OS, > >> zLinux > >>> and IBM I **| * > >>> > >>> *|* *Email**: [email protected] **|* *Mob**: +972 522 986404 > >> **|* > >>> *Skype**: ItschakMugzach **|* *Web**: http://www.securiteam.co.il/ > **|* > >>> > >>> > >>> > >>> > >>> > >>> בתאריך שבת, 18 באוק׳ 2025 ב-1:03 מאת Charles Mills <[email protected]>: > >>> > >>>> I guess I don't understand the question. I fail to see how collecting > >> data > >>>> set attributes solves an insufficiently sized CPU. > >>>> > >>>> I thought the problem was re-creating "PC" backed-up datasets with the > >>>> correct "mainframe" attributes (RECFM, LRECL, VB boundaries, etc.). > >>>> > >>>> DFSMSDSS restore does that. > >>>> > >>>> TERSE makes the records FB so they can survive to/from PC FTP. > >>>> > >>>> Charles > >>>> > >>>> On Fri, 17 Oct 2025 21:45:01 +0300, Itschak Mugzach < > >>>> [email protected]> wrote: > >>>> > >>>>> Migration it self is not an issue. The problem is the disk space and > >> cpu > >>>>> sized that are insufficient. So we plan for click and set an > >> environment > >>>>> that might not exist in next IPL (even on same day). > >>>> ---------------------------------------------------------------------- > >>>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>>> send email to [email protected] with the message: INFO > IBM-MAIN > >>>> > >>> ---------------------------------------------------------------------- > >>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>> send email to [email protected] with the message: INFO IBM-MAIN > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to [email protected] with the message: INFO IBM-MAIN > >> > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
