[MI400] TSTBTS

[Bobby.Hicks@xxxxxxxxxxxxxxxx]

Hi,

I am getting an error when I try to create a MI program.  The error is
caused by a TSTBTS instruction.  I do not know why?  Please help.  Here is
a portion of the code:

/*--User profile authority information.                              */
  DCL  SPCPTR .AUT-INFO INIT(AUT-INFO);
  DCL  DD AUT-INFO CHAR(144);
    DCL DD INFO-BYTES-PROVIDED    BIN(   4) DEF(AUT-INFO) POS( 1)
INIT(144);
    DCL DD INFO-BYTES-AVAILABLE   BIN(   4) DEF(AUT-INFO) POS( 5);
    DCL DD INFO-PRV-INSTR-BITS    CHAR(  4) DEF(AUT-INFO) POS( 97);
    DCL DD INFO-SPC-AUT-BITS      CHAR(  4) DEF(AUT-INFO) POS(101);
      DCL DD INFO-SPC-BITS-1      CHAR(  1) DEF(INFO-SPC-AUT-BITS) POS(1);
      DCL DD INFO-SPC-BITS-2      CHAR(  1) DEF(INFO-SPC-AUT-BITS) POS(2);
      DCL DD INFO-SPC-BITS-3      CHAR(  1) DEF(INFO-SPC-AUT-BITS) POS(3);
      DCL DD INFO-SPC-BITS-4      CHAR(  1) DEF(INFO-SPC-AUT-BITS) POS(4);


/*--Get authority flags.
  MATUP           .AUT-INFO,.ProfileDfn;
  TSTBTS(B)        INFO-SPC-BITS-1,0/ZER(=+2);
  CPYBLA           WORK-ALL-OBJ-AUT,'Y';

  TSTBTS(B)        INFO-SPC-BITS-1,1/ZER(=+2);
  CPYBLA           WORK-SAV-SYS-AUT,'Y';

  TSTBTS(B)        INFO-SPC-BITS-1,2/ZER(=+2);
  CPYBLA           WORK-SAV-SYS-AUT,'Y';

  TSTBTS(B)        INFO-SPC-BITS-1,3/ZER(=+2);
  CPYBLA           WORK-SAV-SYS-AUT,'Y';

  TSTBTS(B)        INFO-SPC-BITS-1,4/ZER(=+2);
  CPYBLA           WORK-JOB-CTL-AUT,'Y';
...


If i comment out the second and subsequent TSTBTS operation codes the
program compiles normally..



Bobby.

Robert Hicks
Combinatorics Consulting Company
Tel.: (248) 347 - 7222, ext. 222
Fax: (248) 347 - 7227
Email:  Robert.Hicks@ccc-michigan.com