IBM Z and LinuxONE Software

  • 1.  DFSORT thru REXX

    Posted Fri April 19, 2024 12:06 PM

    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
    ------------------------------


  • 2.  RE: DFSORT thru REXX

    IBM Champion
    Posted Fri April 19, 2024 02:14 PM

    The first thing I'd look at is do you have the authority to mount a tape dynamically from TSO? This is something your security administrator controls.



    ------------------------------
    Lionel B. Dyck <><
    IBM z Systems Champion
    ------------------------------