to write to a file
Posted: Fri Dec 10, 2010 1:21 pm
I need to get all the datasets from the qualifier abc. I've wriiten rexx code for that. now I need to write all these datasets + creation date+volume occupied to a file.pls help me in the code
DSLEVEL = 'abc.*'
"ALLOC F(INPUT) SHR DS(Q5O100.DATA.LIST)"
ADDRESS 'ISPEXEC'
"LMDINIT LISTID(LISTID) LEVEL("DSLEVEL")"
IF RC > 0 THEN RETURN 0
"LMDLIST LISTID("LISTID") DATASET(DSNAME) STATS(YES)
OPTION(LIST)"
DO WHILE RC = 0
SAY DSNAME ZDLCDATE ZDLVOL ZDLSPACU
PARSE VAR DSNAME ZDLCDATE ZDLVOL ZDLSPACU TEST.
"EXECIO * DISKW INPUT (FINIS TEST."
"LMDLIST LISTID("LISTID") DATASET(DSNAME) STATS(YES) OPTION(LIST
END
"ALLOC F(INPUT) SHR DS(Q5O100.DATA.LIST)"
ADDRESS 'ISPEXEC'
"LMDINIT LISTID(LISTID) LEVEL("DSLEVEL")"
IF RC > 0 THEN RETURN 0
"LMDLIST LISTID("LISTID") DATASET(DSNAME) STATS(YES)
OPTION(LIST)"
DO WHILE RC = 0
SAY DSNAME ZDLCDATE ZDLVOL ZDLSPACU
PARSE VAR DSNAME ZDLCDATE ZDLVOL ZDLSPACU TEST.
"EXECIO * DISKW INPUT (FINIS TEST."
"LMDLIST LISTID("LISTID") DATASET(DSNAME) STATS(YES) OPTION(LIST
END