> One problem (sorry), the program only reads the first line and not the
> rest. Any suggestions, would be very much apprecated.
>
> #########################################################
> I have a input file, below is a few *LINES* of example of the input file:
>
> 168127407932117187M000001080m200107035eN/A
> 168148007947033647M200107015m2100000000n/a
> 168149807947023347M000200107m0000034500n/a
> 168150607947058268M200107015y13 00000000n/a
>
> ##########################################################
> <snip>
> #########################################################
> open iscd,"<CALL_SUMMARY_CHANGES4_5.HADES;21" or die "Cannot open
> $ARGV[0]",$!;
> open sortcode,">aaaa.pl";
> while($line=<iscd>){
> chomp $line;
> @fields = split //, $line;
> printf sortcode
> "%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.
> 1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s%1.1s`
> @fields[0..33,290..299];
> }
> close iscd;
> close sortcode;
> exit;
> [End of file]
> ##########################################################
>
> Thanks
> Kind Regards
> GD
>
