• 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

COBOL

VB.Net

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

Please Note: Due to the large number of COBOL environments, we would like you to send us a note if your code
does not convert cleanly. We are currently updating our site to allow the selection for COBOL environments from DEC (HP), IBM and MicroFocus.
If you have a COBOL program that does not convert please send the COBOL program with the copybooks to Support@appbuscom.com and we will
adapt the process to support your environment. We are also building parsers for IBM CICS forms and expanding DECforms to support
DataGridViews for scrolling panels. Please, send us your samples and we will attempt to convert your applications as quickly as possible.

Richard Ladendecker.