Я хочу создать некоторый код Rexx, который позволяет мне распределять новые наборы данных в любом формате, таком как PDS, Sequential и т. д., путем чтения информации о наборе данных существующего набора данных, а затем применения этих параметров к новому распределению.
Например, когда я ввожу имя набора данных в 3.2 и нажимаю Enter, мне предоставляется следующая информация:
Data Set Name . . . . : HLQ.ETE.CNTL
General Data Current Allocation
Management class . . : MC000101 Allocated blocks . : 6
Storage class . . . : SC002020 Allocated extents . : 1
Volume serial . . . : VOL007 Maximum dir. blocks : 11
Device type . . . . : 3390
Data class . . . . . : None
Organization . . . : PO Current Utilization
Record format . . . : FB Used blocks . . . . : 5
Record length . . . : 80 Used extents . . . : 1
Block size . . . . : 27920 Used dir. blocks . : 6
1st extent blocks . : 6 Number of members . : 35
Secondary blocks . : 2
Data set name type : PDS Dates
Creation date . . . : 2014/04/02
Referenced date . . : 2014/07/01
Expiration date . . : ***None***
Итак, в моем Rexx я хотел бы сделать две вещи:
Чтение существующих параметров распределения наборов данных, подобных показанным выше.
Выделите новый набор данных, используя считанные параметры
Я бы запустил этот Rexx как часть пакетного задания JCL.
Я был бы признателен за любую помощь в этом, поскольку я исследовал в течение нескольких дней и не вижу способа сделать это.