• IT Architecture based on Legacy COBOL?
• New solutions too expensive?
• Experts say migration "Cannot be done"?
• Is your Business Logic all COBOL?
• Searching for a cost effective IT solution?
• Look no further! Syncris has your solution!

• Convert Legacy databases to SQL Server
• Retain your business logic 
• Utilize .NET technology
• Reduce support costs 
• Invest in cost effective platforms

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