use strict;
use warnings;

my %jobs;

while (<DATA>) {
    chomp;
    next if ! /\S/;

    my @parts = split;
    
    push @{$jobs{$parts[1]}}, $_;
}

print "$_\n" for map {join "\n", @{$jobs{$_}}} sort keys %jobs;

__DATA__
DOABIL3020 ITSD-ENT_OP-DMSB-DIDS Ora
DOABIL309 EXE-SOS-3201_DFLT Ora

DOABIL3400 ITSD-ENT_OP-ETSB-MID PRD

DOABIL5310 ITSD-ENT_OP-ETSB-MID TST

DOABIL6230 EXE-SOS-3201_DFLT PRD

DOABIL7001 ITSD-ENT_OP-ETSB-EAS PRD

DOABIL7005 ITSD-ENT_OP-AIMB-DCSEC PRD

DOABIL7006 ITSD-ENT_OP-AIMB-DCSEC PRD
DOABIL7504 EXE-SOS-3201_DFLT PRD
DOABIL7581 ITSD-ENT_OP-NTSB-NET PRD
DOABIL7582 ITSD-ENT_OP-NTSB-NET PRD
DOABIL7583 ITSD-ENT_OP-NTSB-NET PRD