PARM FORMAT="E"
##  DF.XEQ - RUNS DISCFREE IN VARIOUS FORMATS
##           * REQUIRES DFA.XEQ! *
##  TIM ERICSON (DF.XEQ ONLY)
IF "!FORMAT" = "5"
  RUN DF5.PUB.SYS
  RETURN
ENDIF
## Z GIVES DETAIL; Y PRODUCES SUMMARY
IF UPS("!FORMAT") = "Y" OR UPS("!FORMAT") = "Z"
  RUN DISCFREE.PUB.SYS;INFO="C,,MPEXL_SYSTEM_VOLUME_SET" > DF1
  AWK.HPBIN.SYS "-f /SYS/USE/DFA -v f=![UPS('!FORMAT')]" <DF1
# -> CALL THE 'AWK' PROGRAM AGAIN FOR THE OTHER VOLUME SETS:
# RUN DISCFREE.PUB.SYS;INFO="C,,USER_SET" >  DF1
# AWK.HPBIN.SYS "-f /SYS/USE/DFA -v f=![UPS('!FORMAT')]" <DF1
  PURGE DF1,TEMP
  RETURN
ENDIF
DISCFREE !FORMAT