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

/*ADDRESS TSO */
HLQ = SYSVAR(SYSUID)     /* CHANGE HLQ IF DESIRED */
DSNMLOG =  HLQ || '.HCD.MSGLOG'
DSNDECK =  HLQ || '.IOCDS.PR'
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"(PR)') RECFM(F B) LRECL(80),
BLKSIZE(0) CYL SPACE(2,2) DIR(1) NEW REUSE"
"ALLOC  DD(HCDIODFS) DSN('"IODFDSN"') SHR REUSE"

/* RUN UTILITY */
"IKJEFG00 *(CBDMGHCP) 'CONFIG,PR,"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(PR)')"
  END

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

"FREE DD(HCDIODFS)"
EXIT