Which one? I count four. On 21 Jun 2001 15:02:52 +0100, [EMAIL PROTECTED] wrote: > If it is sub routine, What does this mean ? > > ----- Forwarded by Elaine Donnelly/Saturn on 21/06/01 14:49 ----- > > > [EMAIL PROTECTED] > > rndisc.com To: [EMAIL PROTECTED] > > cc: > > 21/06/01 15:00 Subject: SUB ? > > > > > > > > > Hi All, > > Can you tell me what this sub is. Is it sub routine ? > > Regards, > Elaine. > > > 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)); > } > > sub ilc_cycle_counting > { > # @icc_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(@icc_fields) = @_; > return(-810) if ( $icc_fields[0] == 0 || $icc_fields[0] eq '' ); > return(-811) if ( $icc_fields[1] eq "" ); > return(-812) if ( $icc_fields[2] eq "" ); > return(-813) if ( $icc_fields[7] < 0 ); > $icc_fields[8] = &get_date if ( $icc_fields[8] eq '' ); > > return(&send_ddc("tdilc5110b000","ilc_cycle_counting",@icc_fields)); > } > > # > ----------------------------------------------------------------------------- > > # called from ccount form to ensure wharehouse/order combination is valid > # > ----------------------------------------------------------------------------- > > > sub validate_whse_order > { > local($whse) = $_[0]; > local($corder) = $_[1]; > > return if ($whse eq ""); > return if ($corder eq ""); > > &display_status("Checking Order..."); > $select = "SQL$;VALCCORDER$;${company}$;N$;$;${corder}$;${whse}"; > return(&send_dc($select)); > } > > sub item_loc_on_ccorder > { > my($item,$loc,$corder) = @_; > > return if ($item eq ""); > return if ($loc eq ""); > return if ($corder eq ""); > > &display_status("Checking Item/Loc..."); > $select = "SQL$;ITMLOCCCORDER$;${company}$;N$;$;${corder}$;${item}$; > ${loc}"; > return(&send_dc($select)); > } # item_loc_on_ccorder > > sub get_ccorder_item_date > { > my($item,$location,$order,$warehouse,$lot) = @_; > > &display_status("Checking Item/Loc..."); > $select = "SQL$;CCORDERDATE$;${company}$;N$;$;${order}$;${warehouse}$; > ${location}$;${item}$;${lot}"; > ### return(&send_dc($select)); > $return = &send_dc($select); > ($cdate) = split($;,$err_msgs[0]); > if ( $return == 1 ) > { > return 0; > } > else > { > return 1; > } > } # > > 1; > > > > > > > -- Today is Boomtime, the 26th day of Confusion in the YOLD 3167 P'tang!