Select Code to Download

    $line = pack ("A1170") ;
    substr ($line, 0, 135) = " " ;
...
    substr ($line, 187, 3) = "$CLIENT_ID" ;
    substr ($line, 190, 507) = " " ;
    substr ($line, 508, 1) = " " ;