*        .
*        .
*        .
         L     Rx,CVTPTR
         USING CVT,Rx
         L     Rx,CVTRAC
         USING RCVT,Rx
         TM    RCVTMFL1,RCVTENVS    Test for service availability
         BZ    not_available         bypass call if not available
         L     R15,RCVTENVP         Get service address
         LA    R1,parms             Get parameter list area
         L     R13,save_area        Must provide a save area
         BALR  R14,R15              Call the service
*        .or CALL (15),(work_area,function_code,function_flags,return_code,
*        .                   reason_code,message_block)
         DROP  Rx
         ...
parms DS       0F
         DC    A(work_area)
         DC    A(function_code)
         DC    A(function_flag)
         DC    A(return_code)
         DC    A(reason_code)
         DC    A(message_block)
         ...
work_area     DS    0D,XL2048
function_code        DS    F
function_flags       DS    F
return_code     DS   F
reason_code     DS    F
message_block        DS    0F
message_text       DS    F'length',CL(length)'text'
*        .