/* REXX */
/* NEWERA SOFTWARE, INC. - 01.10.09 - IODPLCY - TEST REXX EXECT */

ADDRESS TSO
"ALLOC DD(HCDTRACE) SYSOUT RECFM(F B) LRECL(133),
 BLKSIZE(0) DSORG(PS) REUSE"
HLQ = SYSVAR(SYSUID)     /* CHANGE HLQ IF DESIRED */
DSNMLOG =  HLQ || '.HCD.MSGLOGO'
DSNDECK =  HLQ || '.IOCDS.OS'
X = MSG("OFF")
"DELETE '"DSNMLOG"'"
"DELETE '"DSNDECK"'"
X = MSG("ON")

/* SUPPLY IODFDSN  */
IODFDSN = 'SYS1.IODF65'  /* IODFDSN NAME */
CNFGID = '*'       /* CONFIG PROCESSOR ID */

/* ALLOCATE MESSAGE AND OUTPUT DATASETS */
ADDRESS TSO
"ALLOC DD(HCDMLOG) DA('"DSNMLOG"') RECFM(F B) LRECL(133),
BLKSIZE(0) CYL SPACE(2,2) DSORG(PS) NEW REUSE"

"ALLOC DD(HCDDECK) DA('"DSNDECK"(OS)') RECFM(F B) LRECL(80),
BLKSIZE(0) CYL SPACE(2,2) DIR(15) NEW"
"FREE DD(HCDDECK)"
"ALLOC DD(HCDDECK) DA('"DSNDECK"(OS)') SHR"
"ALLOC  DD(HCDIODFS) DSN('"IODFDSN"') SHR REUSE"

/* RUN UTILITY */
"IKJEFG00 *(CBDMGHCP) 'CONFIG,OS,"CNFGID"'"

/* SHOW RESULTS ON SCREEN */
IF RC > 0 THEN
  SAY 'IT FAILED; RC = ' RC
ELSE
  DO
    /* DISPLAY HCDDECK IN ISPF BROWSE */
    "ISPEXEC BROWSE DATASET('&DSNDECK(OS)')"
  END

/* DELETE DSNMLOG & DSNDECK, FREE HCDIODFS HCDDECK HCDMLOG */

"FREE DD(HCDIODFS)"
"FREE DD(HCDDECK)"
"FREE DD(HCDMLOG)"
EXIT