At 15:59 25.06.2001 +0100, [EMAIL PROTECTED] wrote:
>Can anyone tell me how to read this bit of code in english ?
Basically it takes an array, checks certain values and returns an error if
it doesn't like the value. If it likes all the values that it checks, it
returns the return value of yet another function.
Does that help?
> > sub accum_cycle_count
> > {
> > # @acc_fields are:
> > # 0 - Cycle Counting Order
> > # 1 - Warehouse
> > # 2 - Location
> > # 3 - Item Code
> > # 4 - Container
> > # 5 - Lot Code
> > # 6 - Storage Unit
> > # 7 - Counted Inventory
> > # 8 - Counting Date
> >
> > local(@acc_fields) = @_;
> > return(-810) if ( $acc_fields[0] == 0 || $acc_fields[0] eq '' );
> > return(-811) if ( $acc_fields[1] eq "" );
> > return(-812) if ( $acc_fields[2] eq "" );
> > return(-813) if ( $acc_fields[7] < 0 );
> > $acc_fields[8] = &get_date if ( $acc_fields[8] eq '' );
> >
> > return(&send_ddc("tdilc5110b000","accum_cycle_count",@acc_fields));
Aaron Craig
Programming
iSoftitler.com
