31 lines
710 B
Rexx
31 lines
710 B
Rexx
/* testing getvtoc */
|
|
cmdline = 'RX ' || QUOTE('SYS2.EXEC(GETVTOC)') || ' ' || ARG(1);
|
|
ADDRESS TSO cmdline;
|
|
|
|
IF rc \= 0 THEN EXIT;
|
|
|
|
'EXECIO * DISKR STEMTMP (STEM vtoc.'
|
|
|
|
SAY LEFT('Dataset',20) ,
|
|
LEFT('DSORG',5) ,
|
|
LEFT('RECFM',5) ,
|
|
LEFT('BLKSZ',5) ,
|
|
LEFT('LRECL',5) ,
|
|
LEFT('TRKAL',5) ,
|
|
LEFT('MEM',3) ,
|
|
LEFT('DIRSZ',5);
|
|
|
|
DO ix=1 BY 1 TO vtoc.0
|
|
PARSE VAR vtoc.ix WITH dsn'~'dsorg'~'recfm'~'blksize'~'lrecl'~'trkal'~'members
|
|
SAY LEFT(dsn,20) ,
|
|
CENTER(dsorg,5) ,
|
|
CENTER(recfm,5) ,
|
|
RIGHT(blksize,5) ,
|
|
RIGHT(lrecl,5) ,
|
|
RIGHT(trkal,5) ,
|
|
RIGHT(members,3),
|
|
RIGHT(dirblks,5);
|
|
END;
|
|
|
|
ADDRESS TSO 'RX SYS2.EXEC(DSTEMTMP)'
|