Hi,
I am trying to use the following REXX to invoke DFORT to create a backup to tape (copy to disk works) with a name that is managed by the application:
/* REXX */
PARSE ARG HLQ GEN .
HIST = HLQ||'.HIST.QAFFMQXX.GC'||GEN
BKUP = HLQ||'.BKUP.QAFFMQXX.GC'||GEN
"ALLOC FI(HIST) DA('"HIST"') NEW CATALOG REUSE " ,
"UNIT(TAPE) RETPD(0) STORCLAS(TAPE) MGMTCLAS (TAPEDC) DATACLAS (VTSDCA)"
"ALLOC FI(BKUP) DA('"BKUP"') NEW CATALOG REUSE " ,
"UNIT(TAPE) RETPD(0) STORCLAS(TAPE) MGMTCLAS (TAPEDC) DATACLAS (VTSDCA)"
ADDRESS LINKMVS ICEMAN
But I am receiving the following messages, and the tape files are not generated:
READY
TEMP2 TSTBT.I2AA 1627
IKJ56221I DATA SET TSTBT.I2AA.HIST.QAFFMQXX.GC1627 NOT ALLOCATED, VOLUME NOT AVAILABLE+
IKJ56221I VOLUME NECESSARY TO SATISFY YOUR REQUEST NOT ON SYSTEM, AND CANNOT BE MOUNTED
IKJ56221I DATA SET TSTBT.I2AA.BKUP.QAFFMQXX.GC1627 NOT ALLOCATED, VOLUME NOT AVAILABLE+
IKJ56221I VOLUME NECESSARY TO SATISFY YOUR REQUEST NOT ON SYSTEM, AND CANNOT BE MOUNTED
IRX0251E User abend code 0016, reason code 00000016.
IRX0255E Abend in host command ICEMAN or address environment routine LINKMVS.
10 *-* ADDRESS LINKMVS ICEMAN
+++ RC(16) +++
READY
END
Deeply appreciate any assistance with this matter.
------------------------------
Girish Sajja
------------------------------