LOAD-BIN-TABLE-SECTION SECTION.
LOAD-BIN-TABLE.
INITIALIZE BIN-KEYFLD.
INITIALIZE BIN-ALT-KEY-1.
MOVE PASS-CORP TO BIN-CORP, BIN-ALT-CORP
MOVE PASS-BRANCH TO BIN-BRANCH, BIN-ALT-BRANCH
MOVE PASS-LOCATION TO BIN-LOCATION, BIN-ALT-LOCATION
MOVE PASS-PRODUCT-NO TO BIN-PRODUCT-NO, BIN-ALT-PRODUCT-NO
PERFORM START-BIN-SECTION.
PERFORM READ-BIN-FILE
* UNTIL INVALID-BIN-RECORD.
UNTIL INVALID-BIN-RECORD OR (TABLE-POINTER > 999).
IF TABLE-POINTER > 999
MOVE "IV0086" TO MESSAGE-KEY
CALL "THMSR" USING MESSAGE-KEY, MESSAGE-TEXT
CALL "THWAT"
MOVE SPACES TO MESSAGE-AREA.
**01/17/91 -- end
MOVE TABLE-POINTER TO MAXIMUM-POINTER.
Private Sub LOAD_BIN_TABLE_SECTION()
LOAD_BIN_TABLE:
' INITIALIZE BIN_KEYFLD.
' INITIALIZE BIN_ALT_KEY_1.
BIN_ALT_CORP = PASS_CORP
BIN_CORP = PASS_CORP
BIN_ALT_BRANCH = PASS_BRANCH
BIN_BRANCH = PASS_BRANCH
BIN_ALT_LOCATION = PASS_LOCATION
BIN_LOCATION = PASS_LOCATION
BIN_ALT_PRODUCT_NO = PASS_PRODUCT_NO
BIN_PRODUCT_NO = PASS_PRODUCT_NO
START_BIN_SECTION()
READ_BIN_FILE()
'* UNTIL INVALID_BIN_RECORD.
' Unimplemented UNTIL INVALID_BIN_RECORD OR (TABLE_POINTER > 999).
IF TABLE_POINTER > 999 THEN
MESSAGE_KEY = "IV0086"
' Unimplemented CALL "THMSR" USING MESSAGE_KEY, MESSAGE_TEXT
' Unimplemented CALL "THWAT"
MESSAGE_AREA = ""
END IF
'**01/17/91 __ end
MAXIMUM_POINTER = TABLE_POINTER
End Sub