This wouldnt, by chance, be your homework now would it?
[EMAIL PROTECTED] wrote:
> Can anyone tell me how to read this bit of code in english ?
>
> > 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));
