Shell Programming and Scripting

perl -alne '{$col1=" "x10;$col2=" "x20;print $F[0].$col1.$F[1].$col2}' input_file

while read col1 col2 rest; do printf "%-10s%-20s\t%s\n" $col1 $col2 $rest; done < file

#!/bin/ksh
  
 #File name of the input file
FILE=${P1}  BAKIFS=$IFS
 IFS=$'\n'
 exec 0<"$FILE"
 echo "File to be processed.....: ${FILE}"  
 while read -r line
 do
  f1=`echo "$line" |cut -b 1-58 `
 f3=`echo "$line" |cut -b 77-400`
 v_curre=`echo "$line" |cut -b 59-76`
 OUTPUT=`sqlplus -s ${LOGIN} <<EOF
 set pages 0 lines 120 trimout on trimspool on tab off echo off verify off feed off serverout on
 var mavar varchar2(100);
 select xxc_test.emp_first_name('${v_curre}')  
 into :mavar from dual;
 print mavar;
 exit;
 EOF`
 #echo "v_curre:" "$v_curre"
  
 while read f1 OUTPUT f3;
 do 
  printf "%-10s%-20s\t%s\n" $f1$OUTPUT$f3 ;
 done >> $NEW_FILE_NAME
 done
 IFS=$BAKIFS