VAR DS 0D
    DC    AL1(045),AL2(286),AL2(117),AL2(290)

format1:
VAR DS  0D
    DC  AL1(045)
    DC  AL2(286)
    DC  AL2(117)
    DC  AL2(290)

format2:
VAR D
F1  A 045
F2  A 286
F3  A 117
F4  A 290

my @dc = qw( AL1(045) AL2(286) AL2(117) AL2(290) );

for my $i (0..$#dc) {
   my ($letter, $number) = $dc[$i] =~ /^(.)..(([0-9]+]))z/s
      or die;
   printf("F%-2s %s %sn", $i, $letter, $number);
}