| I have developed the TPAS_GET_LOCAL_COST module in BASIC for use in the
MAXCIM environment in Ayr. Please call if you want more information.
Regards
Josephine (3162)
!***************************************************************************
!** H E A D I N G D E T A I L S
!*
!***************************************************************************
!
! TPAS_GET_LOCAL_COST
!
! NONE
!
! RECORDS USED: INCMS(Open & Close of INCMS done in DutySystem)
!
! DESCRIPTION: Function which has part number passed, readsINCMS
! to establish STD-COST and passes back STD-COST.
!
!***************************************************************************
!
! DATE AUTHOR MODIFICATION DESCRIPTION
! ---- ------ ------------------------
! 14 Sept '92 Josephine McDowall Original Version
!
!***************************************************************************
FUNCTION LONG tpas_get_local_cost (STRING tpas_part_number BY REF, &
DOUBLE tpas_std_cost)
OPTION TYPE = EXPLICIT
%INCLUDE 'NCA$INCLUDE:EXTFUNC.INC'
%INCLUDE 'NCA$INCLUDE:NCACOMMON.INC'
%INCLUDE 'NCA$INCLUDE:INCMS.INC'
!******************************************************************
!** D A T A D E C L A R A T I O N S
!******************************************************************
!==================================================!
! M A P R E C O R D S A N D V A R I A B L E S !
!==================================================!
MAP (BUF1) INCMS INCMS
MAP (BUF1) STRING INCMS_string = INCMS_rec_size, String INCMS_rfa = 6%
MAP (BUF1) LONG INCMS_buffer
DECLARE LONG CONSTANT non_basic_error = 194%, &
incms_ch = 2%
DECLARE LONG dummy
!******************************************************************
!** M A I N P R O G R A M
!******************************************************************
WHEN ERROR IN
CAUSE ERROR non_basic_error IF NCA_GET (incms_ch,incms_buffer,&
NOLCK, tpas_part_number, incms_rfa, 1%, RAN)
tpas_std_cost = incms::std_unit_cost
USE
IF ERR <> 11%
THEN
SELECT err
CASE non_basic_error
PRINT TRM$ ( NCA_ERROR_TEXT )
CASE ELSE
PRINT "An unidentified error occured in ";ERN$;" ,&
number ";ERR
PRINT ERT$ (ERR)
END SELECT
END IF
END WHEN
END FUNCTION
|