daily pastebin goal
16%
SHARE
TWEET

Untitled

a guest Feb 20th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. VAR DS 0D
  2.     DC    AL1(045),AL2(286),AL2(117),AL2(290)
  3.    
  4. format1:
  5. VAR DS  0D
  6.     DC  AL1(045)
  7.     DC  AL2(286)
  8.     DC  AL2(117)
  9.     DC  AL2(290)
  10.  
  11. format2:
  12. VAR D
  13. F1  A 045
  14. F2  A 286
  15. F3  A 117
  16. F4  A 290
  17.    
  18. my @dc = qw( AL1(045) AL2(286) AL2(117) AL2(290) );
  19.    
  20. for my $i (0..$#dc) {
  21.    my ($letter, $number) = $dc[$i] =~ /^(.)..(([0-9]+]))z/s
  22.       or die;
  23.    printf("F%-2s %s %sn", $i, $letter, $number);
  24. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top