Procedure Modules › Converting Doubleword Binary to Packed Decimal (CULLUS37) › How to Use CULLUS37

How to Use CULLUS37

To invoke CULLUS37:

1. Define the binary input field as alphanumeric on a REC parameter.
2. Define an 8-byte numeric work field.
3. Issue a CALL to CULLUS37 in type 7 logic:

   Col
   2
   ▼
   RPT-nn7sss CALL US37 (input-field-v result-field-v)
   

   • 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.
   • Input-field-v (ARG1) requires the name of the 8-byte binary input field.
   • Result-field-v (ARG2) requires the name of the work field receiving the packed decimal conversion.

Example

This example shows the CA Culprit parameters required to convert an 8-byte binary input field to packed decimal format.

• The binary field DOUBLE-BIN is defined as alphanumeric on the REC parameter.
• The work field that receives the converted value is defined.
• A CALL to CULLUS37 is issued in type 7 logic.

   INPUT 80 F 4000
   REC DOUBLE-BIN    1 8
   010 WORK-FIELD 
            .
            .
            .
   017001 CALL US37 (DOUBLE-BIN WORK-FIELD)