The DSECT does not have to the same length as the area it overlays. In the instance above the DSECT is being used to assign labels to the first two of the 80 name fields. Adjusting the address in Register 4 then allows access by name to the next pair. This is akin to subscripting.
The problem with division is that the product is often a quotient and remainder. In Assembler the decimal divide instruction
splits the output field into two based on the length of the divisor. The ORG statement allows processing of what has become
two packed decimal fields occupying the same space as APRICE.