/* 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)'