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));
