The Packed Decimal Division with Long Divisor routine divides
    fixed-point decimal data, which is stored in packed decimal form,
    when precision and scale requirements for the quotient call for
    multiple precision division. The divisor must have a precision of
    30 or 31 digits.
    Format
      OTS$DIV_PK_LONG  packed-decimal-dividend
                       ,packed-decimal-divisor ,divisor-precision
                       ,packed-decimal-quotient ,quotient-precision
                       ,precision-data ,scale-data
Additional Information:
explode
extract