RE: command to check if write protect is set for loaded tape?

Thank You Bryan. Looking at the parms for the command I was a bit confused

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of bryan dietz
Sent: Wednesday, January 31, 2007 2:36 PM
To: Midrange Systems Technical Discussion
Subject: Re: command to check if write protect is set for loaded tape?

Here is a quicky example:

pgm    parm(&devd)
/*      Just a quick throw together to see how it works   */
/*      This works for "standard tape devices"            */
/*      but not on *TAPMLB devices                        */
/*                      Bryan Dietz                       */
                   /*  written on V5R4      */
/*               http://publib.boulder.ibm.com/             +
                 infocenter/iseries/v5r4/                   +
                 index.jsp?topic=/apis/qtardsts.htm       */


 DCL        VAR(&RCV) TYPE(*CHAR) LEN(1000)
 DCL        VAR(&RCVL) TYPE(*INT) LEN(4  ) VALUE(1000)
 DCL        VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE(RDST0100)
 DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10)
 DCL        VAR(&RSC) TYPE(*CHAR) LEN(10)
 DCL        VAR(&ERR) TYPE(*CHAR) LEN(8) VALUE(X'00000000')
 DCL        VAR(&OFFSET) TYPE(*INT) LEN(4)
 DCL        VAR(&NUMENT) TYPE(*INT) LEN(4)
 DCL        VAR(&CHAR4) TYPE(*CHAR) LEN(4)
 DCL        VAR(&volid ) TYPE(*INT) LEN(4) /*offset to data */
 DCL        VAR(&cartid) TYPE(*INT) LEN(4) /*offset to data */
 DCL        VAR(&densit) TYPE(*INT) LEN(4) /*offset to data */
 DCL        VAR(&wp) TYPE(*INT) LEN(4)     /*offset to data */
             CHKTAP     DEV(&TAPDEV)
             CALL       PGM(QTARDSTS) PARM(&RCV &RCVL &FMT &DEVD +
                          &RSC &ERR)
/* get to the data we want to see                         */
             CHGVAR     VAR(&CHAR4) VALUE(%SST(&RCV 9 4))
             CHGVAR     VAR(&OFFSET) VALUE(%BIN(&CHAR4))
             CHGVAR     VAR(&CHAR4) VALUE(%SST(&RCV 13 4))
             CHGVAR     VAR(&NUMENT) VALUE(%BIN(&CHAR4))
/* get the offsets to the Current cartridge information   */
             CHGVAR     VAR(&VOLID) VALUE(&OFFSET + 1)
             CHGVAR     VAR(&CARTID) VALUE(&VOLID + 6)
             CHGVAR     VAR(&DENSIT) VALUE(&CARTID + 6)
             CHGVAR     VAR(&WP) VALUE(&DENSIT + 10)
/* show it                                                     */
             SNDPGMMSG  MSG('Tape device=' *CAT &DEVD *TCAT '. +
                          VolID=' *CAT %SST(&RCV &VOLID 6) *TCAT '. +
                         CartID=' *CAT %SST(&RCV &CARTID 6) *TCAT +
                         '. Density=' *CAT %SST(&RCV &DENSIT 10) +
                         *TCAT '. WP=' *CAT %SST(&RCV &WP 1))


  end:
      endpgm
----------------------

Bryan Dietz


On 1/31/07, John Candidi <jacandidi@xxxxxxxxxxxxxxxxxxxx> wrote:

Could I get an example of how to code the call to that api?