set j_layer [dbGet head.layers.name -p D5 ]
set j_pin [dbGet [dbGet top.terms { .layer == $j_layer && .side == "East" } ].name ]
editPin -layer D5 -side East -snap TRACK -spreadType RANGE -start { 791.74625 1404 } -end {  791.74625 775 } -pin $j_pin

set j_layer [dbGet head.layers.name -p D7 ]
set j_pin [dbGet [dbGet top.terms { .layer == $j_layer && .side == "East" } ].name ]
editPin -layer D7 -side East -snap TRACK -spreadType RANGE -start { 791.74625 1404 } -end {  791.74625 775 } -pin $j_pin