Procedure Modules › Converting Packed Decimal to Zoned Decimal (CULLUS34) › How to Use CULLUS34

How to Use CULLUS34

To invoke CULLUS34:

1. Define the input file or work field that contains the packed decimal field to be converted.
2. Define a dummy area that allocates space for the receiving field.
3. Issue a CALL to CULLUS34 from type 7 logic:

   Col
   2
   ▼
   RPT-nn7sss CALL US34 (field-name result-v input-length-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.
   • Field-name (ARG1) requires the name of the 1- to 16-byte packed decimal input or work field.
   • Result-v (ARG2) requires the name of an alphanumeric result field that is one byte less than twice the length of the input field (field-name).

     The hexadecimal representation of each digit is in the range X'F0' through X'F9'. Negative values contain the negative sign in the zoned position of the last byte. Positive values contain an F in the zoned position of the last byte.

   • Input-length-vn (ARG3) requires a numeric literal or the name of an 8-byte packed decimal work field that specifies the length of the packed decimal input field (field-name). The range is 1 through 16.

     If the length of the input field exceeds 16, no conversion occurs.

Example

This example converts numbers that are stored in packed decimal format to zoned decimals. Receiving fields hold the first five, next three, and last five digits.

The following code:

• Defines the input file containing the packed decimal field PKD-NUM
• Defines a dummy input buffer area to receive the conversion
• Issues a CALL to CULLUS34 from type 7 logic to perform the conversion

   IN 200 F 400
   REC PKD-NUM    160  7  3
   IN 13 MB=DUMMY
   REC NUMBER       1  13
   REC FIRST-FIVE   1  5
   REC NEXT-THREE   6  3
   REC LAST-FIVE    9  5 
   01OUT 80 D
   013CULLUS34
   01410001 ' '
   0151*002 NUMBER   FN  HH 'THE NUMBER'
   0151*003 NEXT-THREE   HH 'MIDDLE THREE' 'DIGITS'
   017001  CALL US34 (PKD-NUM NUMBER 7)
  

REPORT NO. 01                       CULLUS34                mm/dd/yy PAGE     1

                                                MIDDLE THREE
                   THE NUMBER                      DIGITS

                 0000003800000                      038
                 0000003100000                      031
                 0000003300000                      033
                 0000008000000                      080
                 0000003800000                      038
                 0000003750000                      037
                 0000005450000                      054