19 lines
1.1 KiB
Rexx
19 lines
1.1 KiB
Rexx
|
|
/* testing dasducb */
|
|
|
|
ADDRESS TSO 'RX SYS2.EXEC(DASDUCB)'; /* retrieve dasd information */
|
|
|
|
'EXECIO * DISKR STEMTMP (STEM cuu.'
|
|
|
|
DO ix=1 BY 1 TO cuu.0
|
|
PARSE VAR cuu.ix WITH cuu_addr'~'cuu_volser'~'cuu_type'~'cuu_class'~';
|
|
SAY 'CUU: ' cuu_addr ,
|
|
'Volume:' cuu_volser ,
|
|
'Type: ' cuu_type ,
|
|
'Class: ' cuu_class;
|
|
END;
|
|
|
|
ADDRESS TSO 'RX SYS2.EXEC(DSTEMTMP)'
|
|
|
|
EXIT;
|