TAA Tools
CVTTOBIN8       CONVERT TO BINARY 8                    TAACLQW

The Convert  to Binary  8 command  converts a 20  byte character  input
value to  a binary 8  field.  This is  the inverse of  the CVTBIN8 tool
function.    Some  system  functions  deal  in  8  byte  binary values.
Neither CL nor  RPG III  handles 8 byte  binary values.   RPG IV  does.
The  value to  convert must  be right  adjusted and  passed in  a *CHAR
LEN(20) value.

A typical command would be:

             DCL           &INPVAL *CHAR LEN(20)
             DCL           &BIN8 *CHAR LEN(8)
             CHGVAR        &INPVAL 'nnnnnnnnnnnnnnnnnnnn'


The maximum input value that can be converted is:


An all  'FF' value would be returned.   All values must be positive (no
commas or decimal points may appear in the value).

An error  will occur  if you  input a  value that  is  shorter than  20
bytes because blanks  X'40' will fill the high order  positions and are
not considered valid.

CVTTOBIN8  escape messages you can monitor for

      TAA9891    The input value is not all valid digits (0-9).
      TAA9892    The maximum input value has been exceeded.

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

Command parameters                                    *CMD

   INPVAL        Up  to 20  digits of  data  may be  input.   The value
                 must be  right justified  in a  variable described  as
                 *CHAR LEN(20).    The value  to be  converted must  be
                 all digits (0-9).  No signs are valid.

                 The  maximum  input value  that  can  be converted  is

   BINVAL        The  returned  binary  value.   The  variable  must be
                 specified as *CHAR LEN(8).

Calling the CPP directly

The TAACLQWR  CPP can be  called directly.   The  following is RPG  III
code in a format that is ready to be copied:

     C                     CALL 'TAACLQWR'                 CVTTOBIN8
     C                     PARM           INPVAL 20        Input value
     C                     PARM           RTNBIN  8        Return value

The following is RPG IV code in a format that is ready to be copied:

     C                   CALL      'TAACLQWR'
     C                   PARM                    INPVAL           20
     C                   PARM                    BIN8              8


The  input value must  be right  justified, all  digits (0-9),  and may
not exceed the maximum value.

Because  the command returns  a variable, it  may only be used  in a CL


The following TAA Tools must be on your system:

     SNDESCMSG       Send escape message


None, the tool is ready to use.

Objects used by the tool

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

   CVTTOBIN8     *CMD                   TAACLQW       QATTCMD
   TAACLQWR      *PGM       RPG         TAACLQWR      QATTRPG

Added to TAA Productivity tools February 28, 2000

Home Page Up to Top