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**: 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
