* CONVERT PACKED TO BINARY                              HEADER  C:CVPB  0001.000
*                                                                       0002.000
*              CONVERT PACKED TO BINARY                                 0003.000
*                                                                       0004.000
         M.PGM     C:CVPB,MPX-32,3.6.1,00                               0005.000
         DEF   C:CVPB                                                   0006.000
         DEF       CR.CVPB                                              0007.000
*                                                                       0008.000
* CONVERT PACKED TO BINARY                                              0009.000
*    ARG1 - DD FOR PACKED DATA                                          0010.000
*    ARG2 - DD FOR BINARY DATA                                          0011.000
*                                                                       0012.000
         EXT   CR.LDP8         LOAD PACKED DECIMAL                      0013.000
         EXT   CR.CVNB        CONVERT DECIMAL TO BINARY                 0014.000
         M.REQS                                                         0015.000
         DD.EQU                                                         0016.000
         COBOLDAT                                                       0017.000
*                                                                       0018.000
* INTERNAL DATA                                                         0019.000
*                                                                       0020.000
         ORG   WORKAREA+12D                                             0021.000
DD       RES   1W                                                       0022.000
RET      RES   1W                                                       0023.000
         REL                                                            0024.000
*                                                                       0025.000
* GET ARGUMENTS                                                         0026.000
*                                                                       0027.000
C:CVPB  LOAD  2              LOAD ARGUMENTS                             0028.000
CR.CVPB  EQU       $                                                    0029.000
         STW   R0,RET         SAVE RETURN ADDRESS                       0030.000
         STW   R2,DD          SAVE DECIMAL DD                           0031.000
         BL    CR.LDP8                                                  0032.000
         LW    R0,RET                                                   0033.000
         LI    R1,8                                                     0034.000
         LW    R2,DD                                                    0035.000
         BU    CR.CVNB                                                  0036.000
         END                                                            0037.000
