RE: [MI400] TSTBTS

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

Bobby,

You need a dummy label before for every stmt that is branched to.  Just :
without a name.

Steve

-----Original Message-----
From: mi400-admin@midrange.com [mailto:mi400-admin@midrange.com]On
Behalf Of Bobby.Hicks@ccc-michigan.com
Sent: Wednesday, July 10, 2002 11:02 AM
To: mI400@midrange.com
Subject: [MI400] TSTBTS


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



_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.