UNIX for Dummies Questions & Answers

awk 'BEGIN{a["J"]="Jaya";a["R"]="Ravi";a["S"]="Satish"}
substr($0,7,1)=="J" || substr($0,7,1)=="R" || substr($0,7,1)=="S" {    # For the letters J, R, S
  printf "%-256s\n", $1" "substr($2,2)" "a[substr($2,1,1)]
  next
}
{ s=substr($0,39,20); sub(/ *$/, "", s)            # s = trimmed string of pos 39-58 for other letters
  if(length(s)==9) {
    printf "%-256s\n", $0 " prakash"
  }
  else if(length(s)==16) {
    printf "%-256s\n", $0 " Dan"
  }
  else {
    printf "%-256s\n", $0 " Shelly"
  }
}' file

BEGIN {
if (length($0) > 500) {
   if  (substr($0,39,1)=="X" || substr($0,39,1)=="A"){
   space=" ";
   sub( substr($0,39,1) , space)
   printf "%-517s\n", $0
   }
else {

   printf "%-517s\n", $0

   }
}
}
-------------

BEGIN {a["N"]="N                ABC";a["X"]="P               ABC";a["A"]="D                ABC"}
substr($0,39,1)=="N" || substr($0,39,1)=="X" || substr($0,39,1)=="A" {    # For the letters N, X, A
  val=substr($0,39,1);
  space=" ";
  sub( substr($0,39,1) , space)
  printf "%-517s\n", $0 " " a[val]
}

----------------------

BEGIN{ s=substr($0,39,20); sub(/ *$/, "", s)            # s = trimmed string of pos 39-58 for other letters
  if(length(s)==9) {
    printf "%-517s\n", $0 " ABC                 EFG"
  }
  else if(length(s)==16) {
    printf "%-517s\n", $0 " DEF              GHI"
  }
  else {
    printf "%-517s\n", $0 " JKL              MNO"
  }
}

BEGIN {a["N"]="N ABC";a["X"]="P ABC";a["A"]="D ABC"}
if(substr($0,39,1)=="N" || substr($0,39,1)=="X" || substr($0,39,1)=="A") { # For the letters N, X, A
  val=substr($0,39,1)
  space=" "
  sub( substr($0,39,1) , space)
  printf "%-517s\n", $0 " " a[val]
}