Shell Programming and Scripting

nawk -f pb.awk myFile

pb.awk:
BEGIN {
  FS=RS=""
}
$1 ~ "^PROCEDURE DIVISION" {
  block=1
  next
}
block {
  block=0
  n=split($0,a)
  printf("FILENAME->[%s] n=%d\n", FILENAME, a[n]!="."?n:n-1)
}

# !/opt/third-party/bin/perl

open(FILE, "<", "p");

while(<FILE>) {
  if( /using/i ) {
    $start = 1;
    next;
  }
  if ( /\./ ) {
    $start = 0;
    $cnt++ if( !/^\./ );
  }
  next if( /^$/ );
  $cnt++ if( $start == 1 );
}

close(FILE);

print "count: $cnt\n";

exit 0

#!/usr/bin/awk -f
# Awk File : cbl_args.awk

function print_args_count() {
   if (file) print file," #Args=" args_count;
}

FNR==1  {
   print_args_count();
   file         = FILENAME;
   proceed_args = 0;
   args_count   = 0;
}

/^[[:space:]]*\*/ {
   next; # skip comment
}

/PROCEDURE DIVISION/,/\./ {
   if ($0 ~ /USING/) {
      proceed_args=1;
      next;
   }
   if ($0 ~ /^[[:space:]]*\./) next;
   if (proceed_args && NF>0) ++args_count;
}

END {
   print_args_count();
}

$ cat pgm0.cbl
*
PROCEDURE DIVISION
.
*
$ cat pgm1.cbl
*
PROCEDURE DIVISION USING

CCC.
*
$ cat pgm2.cbl
*
PROCEDURE DIVISION 
* Some Commented Lines....
USING

BBB
CCC.
*
$ cat pgm3.cbl
*
PROCEDURE DIVISION 
USING

AAA
BBB
CCC
.
*
$

$ awk -f cbl_args.awk *.cbl
pgm0.cbl  #Args=0
pgm1.cbl  #Args=1
pgm2.cbl  #Args=2
pgm3.cbl  #Args=3
$

#!/usr/bin/awk -f
# Awk File : cbl_args.awk

function print_args_count() {
   if (file) print file," #Args=" args_count;
}

FNR==1  {
   print_args_count();
   file         = FILENAME;
   proceed_args = 0;
   args_count   = 0;
}

/^[[:space:]]*\*/ {
   next; # skip comment
}

/PROCEDURE DIVISION/,/\./ {
   count = NF;
   if (/PROCEDURE DIVISION/) count -= 2;
   if (/USING/) {
      proceed_args=1;
      --count;
   }
   if (NF == ".") --count;
   if (proceed_args) args_count += count;
}

END {
   print_args_count();
}

$ cat pgm3.cbl
*
PROCEDURE DIVISION
USING

AAA BBB
CCC
.
*

$ cat pgm4.cbl
PROCEDURE DIVISION USING AAA BBB CCC DDD.
$ cat pgm5.cbl

PROCEDURE DIVISION USING
    AAA
    BBB
    CCC
    DDD
    EEE. 
$

$ awk -f cbl_args.awk pgm*.cbl
pgm0.cbl  #Args=0
pgm1.cbl  #Args=1
pgm2.cbl  #Args=2
pgm3.cbl  #Args=4
pgm4.cbl  #Args=4
pgm5.cbl  #Args=5
$