Procedure Modules › Converting Binary Strings (CULLUS50) › How to Use CULLUS50

How to Use CULLUS50

To invoke CULLUS50:

1. Define the binary input field on a REC parameter.
2. Define a work field to receive the result of the conversion.
   • A non-subscripted work field must be equal in length to the number of bits targeted for conversion.
   • A subscripted work field must occur the same number of times as the number of bits targeted for conversion.
3. Define a work field to hold the number of bits targeted for conversion unless you use a numeric literal.
4. Issue a CALL to CULLUS50:

   Col
   2
   ▼
   RPT-nn7sss CALL US50 (start-bit-field target-field-name bit-count-vn)
   

   • Rpt-nn, coded in columns 2 and 3, specifies a 2-digit number in the range 00 through 99 that identifies the CA Culprit report.
   • Sss, coded in columns 5 through 7, specifies a 3-digit number indicating the sequence number of the type 7 parameter.
   • Start-bit-field (ARG1) requires the name of the input or work field to be converted.
   • Target-field-name (ARG2) requires the name of the field receiving the conversion.
   • Bit-count-vn (ARG3) can be a numeric literal or the name of an 8-byte numeric work field that specifies the number of bits targeted for conversion.

Example

This example shows the CA Culprit parameters required to convert a binary input field to alphanumeric and packed decimal format.

The following code:

• Defines the binary field (RDW) on a REC parameter
• Defines a 16-byte alphanumeric work field to receive the binary number
• Defines a subscripted work field to receive the binary values and store them in a numeric table
• Issues a CALL to CULLUS50 to perform each conversion. A numeric literal (16) specifies the number of bits converted

   INPUT 280 V 280
   REC RDW 1 4 1 
   010 ALPHA '1234567890123456'
   010 NUMER.16 2 
   013CULLUS50
   0151*001 ALPHA HH 'ALPHA'
   0151*010 NUMER.1   FM '9'   HH 'DIGIT 1'
   0151*020 NUMER.12  FM '9'   HH 'DIGIT 12'
   0151*030 NUMER.13  FM '9'   HH 'DIGIT 13'
   0151*040 NUMER.14  FM '9'   HH 'DIGIT 14'
   017010 CALL US50 (RDW ALPHA 16)
   017020 CALL US50 (RDW NUMER.1 16)
  

REPORT NO. 01             CULLUS50      mm/dd/yy PAGE     1
      ALPHA        DIGIT 1  DIGIT 12  DIGIT 13  DIGIT 14

 0000000100010100     0        1         0         1