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
