$line = pack ("A1170") ;
    substr ($line, 0, 135) = " " ;
    substr ($line, 136, 11) = "DATE=${mdy}" ;
    substr ($line, 147, 6) = "${mdy}" ;
    substr ($line, 153, 6) = "${hms}" ;
    substr ($line, 159, 3) = " " ;
    substr ($line, 162, 17) = " " ;
    substr ($line, 179, 8) = "G1ADP" ;
    substr ($line, 187, 3) = "$CLIENT_ID" ;
    substr ($line, 190, 507) = " " ;
    substr ($line, 508, 1) = " " ;