The format command is quite powerful (caution on live systems) you can copy labels and partitions, here's an example: -
format
Specify disk (enter its number): 2
selecting c0t0d2
[disk formatted]
Warning: Current Disk has mounted partitions.
FORMAT MENU:
disk - select a disk
type - select (define) a disk type
partition - select (define) a partition table
current - describe the current disk
format - format and analyze the disk
repair - repair a defective sector
label - write label to the disk
analyze - surface analysis
defect - defect list management
backup - search for backup labels
verify - read and display labels
save - save new disk/partition definitions
inquiry - show vendor, product and revision
volname - set 8-character volume name
!<cmd> - execute <cmd>, then return
format> p (print)
PARTITION MENU:
0 - change `0' partition
1 - change `1' partition
2 - change `2' partition
3 - change `3' partition
4 - change `4' partition
5 - change `5' partition
6 - change `6' partition
7 - change `7' partition
select - select a predefined table
modify - modify a predefined partition table
name - name the current table
print - display the current table
label - write partition map and label to the disk
!<cmd> - execute <cmd>, then return
quit
partition> name
Enter table name (remember quotes): "compact"
partition> quit
format> disk
Specify disk (enter its number) .......? The IBM
partition> select (will display a number equated to "compact"
0. original
1. original
2. compact
Specify table (enter its number)[?]:
format> label (to save changes)
format> quit
Hope this points you in the right direction.