TAA Tools
CHGBIT          CHANGE BIT                             TAACLTN

The Change  Bit command  allows one  or more  bits to be  changed in  a
byte to  either *ON ('1') or *OFF  ('0').  The bits are  numbered 1 - 8
with  1 being  the high order  bit.  A  variable must  be specified for
the &RTNBYTE parameter and  all BITn parameters cannot be  specified as
*SAME.

A typical series of commands would be:

            DCL        &RTNBYTE *CHAR LEN(1)
             .
            CHGBIT     BYTE(&BYTE) RTNBYTE(&RTNBYTE) BIT3(*ON)

The &BYTE  value would be moved to  the &RTNBYTE value and  Bit 3 would
be set on.

CHGBIT escape messages you can monitor for
------------------------------------------

None.  Escape messages from based on functions will be re-sent.

CHGBIT Command parameters                             *CMD
-------------------------

   BYTE          A  required  *CHAR LEN(1)  value  for the  byte  to be
                 changed.   A  variable  may  be used.    When  command
                 prompting is  used, you can  expand the length  of the
                 input field by entering & and pressing Enter.

   RTNBYTE       A  required *CHAR LEN(1)  value for  the modified byte
                 to be  returned.    A  variable may  be  used.    When
                 command prompting is  used, you can expand  the length
                 of the  input field by entering &  and pressing Enter.

   BIT1          The value to be changed for Bit 1 (high order).

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT2          The value to be changed for Bit 2.

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT3          The value to be changed for Bit 3.

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT4          The value to be changed for Bit 4.

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT5          The value to be changed for Bit 5.

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT6          The value to be changed for Bit 6.

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT7          The value to be changed for Bit 7.

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

   BIT8          The value to be changed for Bit 8 (low order).

                 *SAME is the default meaning no change occurs.

                 *ON may be specified to set the bit to '1'.

                 *OFF may be specified to set the bit to '0'.

Restrictions
------------

Because  CHGBIT returns a variable,  the command may only  be used in a
CL program.

Prerequisites
-------------

The following TAA Tools must be on your system:

     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   CHGBIT        *CMD                   TAACLTN       QATTCMD
   TAACLTNC      *PGM       CLP         TAACLTNC      QATTCL
   TAACLTNR      *PGM       RPG         TAACLTNR      QATTRPG
					

Added to TAA Productivity tools January 15, 2011


Home Page Up to Top