Question

Runtime Error

Asked by: mustish1

Hi: Can any one please tell me where that error is. I make three files to create data file in OUTPUT mode and then i run the main file but the main file gives runtime error.

Thanks.

IDENTIFICATION DIVISION.
 PROGRAM-ID. VCHBLD01.
*---------------------------------
* Create a Voucher file for the
* bills payment system
*---------------------------------
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT VOUCHER-FILE
     	ASSIGN TO "VOUCHER"
     	ORGANIZATION IS INDEXED
     	RECORD KEY IS VOUCHER-NUMBER
     	ACCESS MODE IS DYNAMIC.
 DATA DIVISION.
 FILE SECTION.
 	FD  VOUCHER-FILE
 		LABEL RECORDS ARE STANDARD.
 	01	VOUCHER-RECORD.
 		05  VOUCHER-NUMBER           PIC 9(5).
 		05  VOUCHER-VENDOR           PIC 9(5).
 		05  VOUCHER-INVOICE          PIC X(15).
 		05  VOUCHER-FOR              PIC X(30).
 		05  VOUCHER-AMOUNT           PIC S9(6)V99.
 		05  VOUCHER-DATE             PIC 9(8).
 		05  VOUCHER-DUE              PIC 9(8).
 		05  VOUCHER-DEDUCTIBLE       PIC X.
 		05  VOUCHER-SELECTED         PIC X.
 		05  VOUCHER-PAID-AMOUNT      PIC S9(6)V99.
 		05  VOUCHER-PAID-DATE        PIC 9(8).
 		05  VOUCHER-CHECK-NO         PIC 9(6).
 
 WORKING-STORAGE SECTION.
 
 PROCEDURE DIVISION.
 PROGRAM-BEGIN.
     OPEN OUTPUT VOUCHER-FILE.
     CLOSE VOUCHER-FILE.
 
 PROGRAM-EXIT.
     EXIT PROGRAM.
 
 PROGRAM-DONE.
     STOP RUN.
------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 PROGRAM-ID. VNDBLD01.
*------------------------------------------------
* Create an Empty Vendor File.
*------------------------------------------------
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 
     SELECT VENDOR-FILE
         ASSIGN TO "vendor"
         ORGANIZATION IS INDEXED
         RECORD KEY IS VENDOR-NUMBER
         ACCESS MODE IS DYNAMIC.
 
 DATA DIVISION.
 FILE SECTION.
 
 FD  VENDOR-FILE
     LABEL RECORDS ARE STANDARD.
 01  VENDOR-RECORD.
     05  VENDOR-NUMBER                    PIC 9(5).
     05  VENDOR-NAME                      PIC X(30).
     05  VENDOR-ADDRESS-1                 PIC X(30).
     05  VENDOR-ADDRESS-2                 PIC X(30).
     05  VENDOR-CITY                      PIC X(20).
     05  VENDOR-STATE                     PIC X(2).
     05  VENDOR-ZIP                       PIC X(10).
     05  VENDOR-CONTACT                   PIC X(30).
     05  VENDOR-PHONE                     PIC X(15).
 
 WORKING-STORAGE SECTION.
 
 PROCEDURE DIVISION.
 PROGRAM-BEGIN.
     OPEN OUTPUT VENDOR-FILE.
     CLOSE VENDOR-FILE.
 
 PROGRAM-DONE.
     STOP RUN.
-----------------------------------------------
 IDENTIFICATION DIVISION.
 PROGRAM-ID. CTLBLD01.
*---------------------------------
* Create a Control file for the
* bills payment system and write
* the initial record.
*---------------------------------
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 
     SELECT CONTROL-FILE
     	ASSIGN TO "CONTROL"
     	ORGANIZATION IS INDEXED
     	RECORD KEY IS CONTROL-KEY
     	ACCESS MODE IS DYNAMIC.
 
 DATA DIVISION.
 FILE SECTION.
 
  FD  CONTROL-FILE
     	LABEL RECORDS ARE STANDARD.
  01  CONTROL-RECORD.
     	05  CONTROL-KEY              PIC 9.
     	05  CONTROL-LAST-VOUCHER     PIC 9(5).
 
 WORKING-STORAGE SECTION.
 
 PROCEDURE DIVISION.
 PROGRAM-BEGIN.
     OPEN OUTPUT CONTROL-FILE.
     MOVE 1 TO CONTROL-KEY.
     MOVE ZEROES TO CONTROL-LAST-VOUCHER.
     WRITE CONTROL-RECORD.
     CLOSE CONTROL-FILE.
 
 PROGRAM-EXIT.
     EXIT PROGRAM.
 
 PROGRAM-DONE.
     STOP RUN.
-------------------------------------------
 IDENTIFICATION DIVISION.
 PROGRAM-ID. VCHMNT01.
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
		SELECT VENDOR-FILE
			ASSIGN TO "vendor"
			ORGANIZATION IS INDEXED
			RECORD KEY IS VENDOR-NUMBER
			ALTERNATE KEY IS VENDOR-NAME WITH DUPLICATES
			ACCESS MODE IS DYNAMIC.
		
		SELECT VOUCHER-FILE
			ASSIGN TO "VOUCHER"
			ORGANIZATION IS INDEXED
			RECORD KEY IS VOUCHER-NUMBER
			ACCESS MODE IS DYNAMIC.
 
     SELECT CONTROL-FILE
     		ASSIGN TO "CONTROL"
     		ORGANIZATION IS INDEXED
     		RECORD KEY IS CONTROL-KEY
     		ACCESS MODE IS DYNAMIC.
 
 DATA DIVISION.
 FILE SECTION.
 
    FD  	VENDOR-FILE
     		LABEL RECORDS ARE STANDARD.
    01  	VENDOR-RECORD.
     		05  VENDOR-NUMBER            PIC 9(5).		
     		05  VENDOR-NAME              PIC X(30).
     		05  VENDOR-ADDRESS-1         PIC X(30).
     		05  VENDOR-ADDRESS-2         PIC X(30).
     		05  VENDOR-CITY              PIC X(20).
     		05  VENDOR-STATE             PIC X(2).
     		05  VENDOR-ZIP               PIC X(10).
     		05  VENDOR-CONTACT           PIC X(30).
     		05  VENDOR-PHONE             PIC X(15).
 
    FD  	VOUCHER-FILE
     		LABEL RECORDS ARE STANDARD.
    01  	VOUCHER-RECORD.
     		05  VOUCHER-NUMBER           PIC 9(5).
     		05  VOUCHER-VENDOR           PIC 9(5).
     		05  VOUCHER-INVOICE          PIC X(15).
     		05  VOUCHER-FOR              PIC X(30).
     		05  VOUCHER-AMOUNT           PIC S9(6)V99.
     		05  VOUCHER-DATE             PIC 9(8).
     		05  VOUCHER-DUE              PIC 9(8).
     		05  VOUCHER-DEDUCTIBLE       PIC X.
     		05  VOUCHER-SELECTED         PIC X.
     		05  VOUCHER-PAID-AMOUNT      PIC S9(6)V99.
     		05  VOUCHER-PAID-DATE        PIC 9(8).
     		05  VOUCHER-CHECK-NO         PIC 9(6).
 
    FD  CONTROL-FILE
     		LABEL RECORDS ARE STANDARD.
    01  CONTROL-RECORD.
     		05  CONTROL-KEY              PIC 9.
     		05  CONTROL-LAST-VOUCHER     PIC 9(5).
     		
 WORKING-STORAGE SECTION.
 
 77  MENU-PICK                    PIC 9.
     88  MENU-PICK-IS-VALID       VALUES 0 THRU 4.
 
 	77  THE-MODE                     PIC X(7).
 	77  WHICH-FIELD                  PIC 9.
 	77  OK-TO-DELETE                 PIC X.
 	77  VOUCHER-RECORD-FOUND         PIC X.
 	77  CONTROL-RECORD-FOUND         PIC X.
 	77  VENDOR-RECORD-FOUND          PIC X.
 	77  A-DUMMY                      PIC X.
 	77  ADD-ANOTHER                  PIC X.
 
 	77  VOUCHER-NUMBER-FIELD         PIC Z(5).
 	77  VOUCHER-AMOUNT-FIELD         PIC 99999999.
 	77  VOUCHER-PAID-AMOUNT-FIELD    PIC ZZZ,ZZ9.99-.
 
 	77  ERROR-MESSAGE                PIC X(79) VALUE SPACE.
	77  UPPER-ALPHA       PIC X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
  77  LOWER-ALPHA       PIC X(26) VALUE "abcdefghijklmnopqrstuvwxyz".
	77  FORMATTED-DATE     PIC 99999999.
	77  DATE-MMDDCCYY      PIC 9(8).
	77  DATE-QUOTIENT      PIC 9999.
	77  DATE-REMAINDER     PIC 9999.
	77  VALID-DATE-FLAG    PIC X.
		88  DATE-IS-INVALID  VALUE "N".
		88  DATE-IS-ZERO     VALUE "0".
		88  DATE-IS-VALID    VALUE "Y".
		88  DATE-IS-OK       VALUES "Y" "0".
	01  DATE-CCYYMMDD      PIC 9(8).
	01  FILLER REDEFINES DATE-CCYYMMDD.
		05  DATE-YYYY      PIC 9999.
		05  DATE-MM        PIC 99.
		05  DATE-DD        PIC 99.
	77  DATE-PROMPT        PIC X(50) VALUE SPACE.
	77  DATE-ERROR-MESSAGE PIC X(50) VALUE SPACE.
  77  ZERO-DATE-IS-OK    PIC X VALUE "N".
  
 PROCEDURE DIVISION.
 PROGRAM-BEGIN.
     PERFORM OPENING-PROCEDURE.
     PERFORM MAIN-PROCESS.
     PERFORM CLOSING-PROCEDURE.
 
 PROGRAM-EXIT.
     EXIT PROGRAM.
 
 PROGRAM-DONE.
     STOP RUN.
 
 OPENING-PROCEDURE.
     OPEN I-O VOUCHER-FILE.
     OPEN I-O VENDOR-FILE.
     OPEN I-O CONTROL-FILE.
 
 CLOSING-PROCEDURE.
     CLOSE VOUCHER-FILE.
     CLOSE VENDOR-FILE.
     CLOSE CONTROL-FILE.
 
 MAIN-PROCESS.
     PERFORM GET-MENU-PICK.
     PERFORM MAINTAIN-THE-FILE
         UNTIL MENU-PICK = 0.
 
*---------------------------------
* MENU
*---------------------------------
 GET-MENU-PICK.
     PERFORM DISPLAY-THE-MENU.
     PERFORM ACCEPT-MENU-PICK.
     PERFORM RE-ACCEPT-MENU-PICK
         UNTIL MENU-PICK-IS-VALID.
 
 DISPLAY-THE-MENU.
     PERFORM CLEAR-SCREEN.
     DISPLAY "    PLEASE SELECT:".
     DISPLAY " ".
     DISPLAY "          1.  ADD RECORDS".
     DISPLAY "          2.  CHANGE A RECORD".
     DISPLAY "          3.  LOOK UP A RECORD".
     DISPLAY "          4.  DELETE A RECORD".
     DISPLAY " ".
     DISPLAY "          0.  EXIT".
     PERFORM SCROLL-LINE 8 TIMES.
 
 ACCEPT-MENU-PICK.
     DISPLAY "YOUR CHOICE (0-4)?".
     ACCEPT MENU-PICK FROM CONSOLE.
 
 RE-ACCEPT-MENU-PICK.
     DISPLAY "INVALID SELECTION - PLEASE RE-TRY.".
     PERFORM ACCEPT-MENU-PICK.
 
 CLEAR-SCREEN.
     PERFORM SCROLL-LINE 25 TIMES.
 
 SCROLL-LINE.
     DISPLAY " ".
 
 MAINTAIN-THE-FILE.
     PERFORM DO-THE-PICK.
     PERFORM GET-MENU-PICK.
 
 DO-THE-PICK.
     IF MENU-PICK = 1
         PERFORM ADD-MODE
     ELSE
     IF MENU-PICK = 2
         PERFORM CHANGE-MODE
     ELSE
     IF MENU-PICK = 3
         PERFORM INQUIRE-MODE
     ELSE
     IF MENU-PICK = 4
         PERFORM DELETE-MODE.
 
*---------------------------------
* ADD
*---------------------------------
 ADD-MODE.
     MOVE "ADD" TO THE-MODE.
     MOVE "Y" TO ADD-ANOTHER.
     PERFORM GET-NEW-RECORD-KEY.
     PERFORM ADD-RECORDS
        UNTIL ADD-ANOTHER = "N".
 
 GET-NEW-RECORD-KEY.
     PERFORM ACCEPT-NEW-RECORD-KEY.
     PERFORM RE-ACCEPT-NEW-RECORD-KEY
         UNTIL VOUCHER-RECORD-FOUND = "N".
 
     PERFORM DISPLAY-VOUCHER-NUMBER.
 
 ACCEPT-NEW-RECORD-KEY.
     PERFORM INIT-VOUCHER-RECORD.
     PERFORM RETRIEVE-NEXT-VOUCHER-NUMBER.
 
     PERFORM READ-VOUCHER-RECORD.
 
 RE-ACCEPT-NEW-RECORD-KEY.
     PERFORM ACCEPT-NEW-RECORD-KEY.
 
 RETRIEVE-NEXT-VOUCHER-NUMBER.
     PERFORM READ-CONTROL-RECORD.
     ADD 1 TO CONTROL-LAST-VOUCHER.
     MOVE CONTROL-LAST-VOUCHER TO VOUCHER-NUMBER.
     PERFORM REWRITE-CONTROL-RECORD.
 
 ADD-RECORDS.
     PERFORM ENTER-REMAINING-FIELDS.
     PERFORM WRITE-VOUCHER-RECORD.
     PERFORM GET-ADD-ANOTHER.
 
 GET-ADD-ANOTHER.
     PERFORM ACCEPT-ADD-ANOTHER.
     PERFORM RE-ACCEPT-ADD-ANOTHER
        UNTIL ADD-ANOTHER = "Y" OR "N".
 
 ACCEPT-ADD-ANOTHER.
     DISPLAY "ADD ANOTHER VOUCHER(Y/N)?".
     ACCEPT ADD-ANOTHER FROM CONSOLE.
 
     INSPECT ADD-ANOTHER
         CONVERTING LOWER-ALPHA
         TO         UPPER-ALPHA.
 
     IF ADD-ANOTHER = "Y"
         PERFORM GET-NEW-RECORD-KEY.
 
 RE-ACCEPT-ADD-ANOTHER.
     DISPLAY "YOU MUST ENTER YES OR NO".
     PERFORM ACCEPT-ADD-ANOTHER.
 
 ENTER-REMAINING-FIELDS.
     PERFORM ENTER-VOUCHER-VENDOR.
     PERFORM ENTER-VOUCHER-INVOICE.
     PERFORM ENTER-VOUCHER-FOR.
     PERFORM ENTER-VOUCHER-AMOUNT.
     PERFORM ENTER-VOUCHER-DATE.
     PERFORM ENTER-VOUCHER-DUE.
     PERFORM ENTER-VOUCHER-DEDUCTIBLE.
     PERFORM ENTER-VOUCHER-SELECTED.
 
*---------------------------------
* CHANGE
*---------------------------------
 CHANGE-MODE.
     MOVE "CHANGE" TO THE-MODE.
     PERFORM GET-EXISTING-RECORD.
     PERFORM CHANGE-RECORDS
        UNTIL VOUCHER-NUMBER = ZEROES.
 
 CHANGE-RECORDS.
     PERFORM GET-FIELD-TO-CHANGE.
     PERFORM CHANGE-ONE-FIELD
         UNTIL WHICH-FIELD = ZERO.
     PERFORM GET-EXISTING-RECORD.
 
 GET-FIELD-TO-CHANGE.
     PERFORM DISPLAY-ALL-FIELDS.
     PERFORM ASK-WHICH-FIELD.
 
 ASK-WHICH-FIELD.
     PERFORM ACCEPT-WHICH-FIELD.
     PERFORM RE-ACCEPT-WHICH-FIELD
         UNTIL WHICH-FIELD < 8.
 
 ACCEPT-WHICH-FIELD.
     DISPLAY "ENTER THE NUMBER OF THE FIELD".
     DISPLAY "TO CHANGE (1-7) OR 0 TO EXIT".
     ACCEPT WHICH-FIELD FROM CONSOLE.
 
 RE-ACCEPT-WHICH-FIELD.
     DISPLAY "INVALID ENTRY".
     PERFORM ACCEPT-WHICH-FIELD.
 
 CHANGE-ONE-FIELD.
     PERFORM CHANGE-THIS-FIELD.
     PERFORM GET-FIELD-TO-CHANGE.
 
 CHANGE-THIS-FIELD.
     IF WHICH-FIELD = 1
         PERFORM ENTER-VOUCHER-VENDOR.
     IF WHICH-FIELD = 2
         PERFORM ENTER-VOUCHER-INVOICE.
     IF WHICH-FIELD = 3
         PERFORM ENTER-VOUCHER-FOR.
     IF WHICH-FIELD = 4
         PERFORM ENTER-VOUCHER-AMOUNT.
     IF WHICH-FIELD = 5
         PERFORM ENTER-VOUCHER-DATE.
     IF WHICH-FIELD = 6
         PERFORM ENTER-VOUCHER-DUE.
     IF WHICH-FIELD = 7
         PERFORM ENTER-VOUCHER-DEDUCTIBLE.
 
     PERFORM REWRITE-VOUCHER-RECORD.
 
*---------------------------------
* INQUIRE
*---------------------------------
 INQUIRE-MODE.
     MOVE "DISPLAY" TO THE-MODE.
     PERFORM GET-EXISTING-RECORD.
     PERFORM INQUIRE-RECORDS
        UNTIL VOUCHER-NUMBER = ZEROES.
 
 INQUIRE-RECORDS.
     PERFORM DISPLAY-ALL-FIELDS.
     PERFORM GET-EXISTING-RECORD.
 
*---------------------------------
* DELETE
*---------------------------------
 DELETE-MODE.
     MOVE "DELETE" TO THE-MODE.
     PERFORM GET-EXISTING-RECORD.
     PERFORM DELETE-RECORDS
        UNTIL VOUCHER-NUMBER = ZEROES.
 
 DELETE-RECORDS.
     PERFORM DISPLAY-ALL-FIELDS.
 
     PERFORM ASK-OK-TO-DELETE.
 
     IF OK-TO-DELETE = "Y"
         PERFORM DELETE-VOUCHER-RECORD.
 
     PERFORM GET-EXISTING-RECORD.
 
 ASK-OK-TO-DELETE.
     PERFORM ACCEPT-OK-TO-DELETE.
 
     PERFORM RE-ACCEPT-OK-TO-DELETE
        UNTIL OK-TO-DELETE = "Y" OR "N".
 
 ACCEPT-OK-TO-DELETE.
     DISPLAY "DELETE THIS RECORD (Y/N)?".
     ACCEPT OK-TO-DELETE.
     INSPECT OK-TO-DELETE
      CONVERTING LOWER-ALPHA TO UPPER-ALPHA.
 
 RE-ACCEPT-OK-TO-DELETE.
     DISPLAY "YOU MUST ENTER YES OR NO".
     PERFORM ACCEPT-OK-TO-DELETE.
 
*---------------------------------
* Routines shared by all modes
*---------------------------------
 INIT-VOUCHER-RECORD.
     MOVE SPACE TO VOUCHER-INVOICE
                   VOUCHER-FOR
                   VOUCHER-DEDUCTIBLE
                   VOUCHER-SELECTED.
     MOVE ZEROES TO VOUCHER-NUMBER
                    VOUCHER-VENDOR
                    VOUCHER-AMOUNT
                    VOUCHER-DATE
                    VOUCHER-DUE
                    VOUCHER-PAID-AMOUNT
                    VOUCHER-PAID-DATE
                    VOUCHER-CHECK-NO.
 
*---------------------------------
* Routines shared Add and Change
*---------------------------------
 ENTER-VOUCHER-VENDOR.
     PERFORM ACCEPT-VOUCHER-VENDOR.
     PERFORM RE-ACCEPT-VOUCHER-VENDOR
         UNTIL VOUCHER-VENDOR NOT = ZEROES AND
               VENDOR-RECORD-FOUND = "Y".
 
 ACCEPT-VOUCHER-VENDOR.
     DISPLAY "ENTER VENDOR".
     ACCEPT VOUCHER-VENDOR FROM CONSOLE.
     PERFORM EDIT-CHECK-VOUCHER-VENDOR.
     PERFORM DISPLAY-VOUCHER-VENDOR.
 
 RE-ACCEPT-VOUCHER-VENDOR.
     DISPLAY ERROR-MESSAGE.
     PERFORM ACCEPT-VOUCHER-VENDOR.
 
 EDIT-CHECK-VOUCHER-VENDOR.
     PERFORM EDIT-VOUCHER-VENDOR.
     PERFORM CHECK-VOUCHER-VENDOR.
 
 EDIT-VOUCHER-VENDOR.
 
 CHECK-VOUCHER-VENDOR.
     PERFORM VOUCHER-VENDOR-REQUIRED.
     IF VOUCHER-VENDOR NOT = ZEROES
         PERFORM VOUCHER-VENDOR-ON-FILE.
 
 VOUCHER-VENDOR-REQUIRED.
     IF VOUCHER-VENDOR = ZEROES
         MOVE "VENDOR MUST BE ENTERED"
           TO ERROR-MESSAGE.
 
 VOUCHER-VENDOR-ON-FILE.
     MOVE VOUCHER-VENDOR TO VENDOR-NUMBER.
     PERFORM READ-VENDOR-RECORD.
     IF VENDOR-RECORD-FOUND = "N"
         MOVE "VENDOR NOT ON FILE"
           TO ERROR-MESSAGE.
 
 ENTER-VOUCHER-INVOICE.
     PERFORM ACCEPT-VOUCHER-INVOICE.
     PERFORM RE-ACCEPT-VOUCHER-INVOICE
         UNTIL VOUCHER-INVOICE NOT = SPACE.
 
 ACCEPT-VOUCHER-INVOICE.
     DISPLAY "ENTER INVOICE NUMBER".
     ACCEPT VOUCHER-INVOICE.
     INSPECT VOUCHER-INVOICE
         CONVERTING LOWER-ALPHA
         TO         UPPER-ALPHA.
 
 RE-ACCEPT-VOUCHER-INVOICE.
     DISPLAY "INVOICE MUST BE ENTERED".
     PERFORM ACCEPT-VOUCHER-INVOICE.
 
 ENTER-VOUCHER-FOR.
     PERFORM ACCEPT-VOUCHER-FOR.
     PERFORM RE-ACCEPT-VOUCHER-FOR
         UNTIL VOUCHER-FOR NOT = SPACE.
 
 ACCEPT-VOUCHER-FOR.
     DISPLAY "WHAT FOR?".
     ACCEPT VOUCHER-FOR FROM CONSOLE.
     INSPECT VOUCHER-FOR
         CONVERTING LOWER-ALPHA
         TO         UPPER-ALPHA.
 
 RE-ACCEPT-VOUCHER-FOR.
     DISPLAY "A DESCRIPTION MUST BE ENTERED".
     PERFORM ACCEPT-VOUCHER-FOR.
 
 ENTER-VOUCHER-AMOUNT.
     PERFORM ACCEPT-VOUCHER-AMOUNT.
     PERFORM RE-ACCEPT-VOUCHER-AMOUNT
         UNTIL VOUCHER-AMOUNT NOT = ZEROES.
 
 ACCEPT-VOUCHER-AMOUNT.
     DISPLAY "ENTER INVOICE AMOUNT".
     ACCEPT VOUCHER-AMOUNT-FIELD FROM CONSOLE.
     MOVE VOUCHER-AMOUNT-FIELD TO VOUCHER-AMOUNT.
 
 RE-ACCEPT-VOUCHER-AMOUNT.
     DISPLAY "AMOUNT MUST NOT BE ZERO".
     PERFORM ACCEPT-VOUCHER-AMOUNT.
 
 ENTER-VOUCHER-DATE.
     MOVE "N" TO ZERO-DATE-IS-OK.
     MOVE "ENTER INVOICE DATE(MM/DD/CCYY)?"
            TO DATE-PROMPT.
     MOVE "AN INVOICE DATE IS REQUIRED"
            TO DATE-ERROR-MESSAGE.
     PERFORM GET-A-DATE.
     MOVE DATE-CCYYMMDD TO VOUCHER-DATE.
 
 ENTER-VOUCHER-DUE.
     MOVE "N" TO ZERO-DATE-IS-OK.
     MOVE "ENTER DUE DATE(MM/DD/CCYY)?"
            TO DATE-PROMPT.
     MOVE "A DUE DATE IS REQUIRED"
            TO DATE-ERROR-MESSAGE.
     PERFORM GET-A-DATE.
     MOVE DATE-CCYYMMDD TO VOUCHER-DUE.
 
 ENTER-VOUCHER-DEDUCTIBLE.
     PERFORM ACCEPT-VOUCHER-DEDUCTIBLE.
     PERFORM RE-ACCEPT-VOUCHER-DEDUCTIBLE
         UNTIL VOUCHER-DEDUCTIBLE = "Y" OR "N".
 
 ACCEPT-VOUCHER-DEDUCTIBLE.
     DISPLAY "IS THIS TAX DEDUCTIBLE?".
     ACCEPT VOUCHER-DEDUCTIBLE FROM CONSOLE.
     INSPECT VOUCHER-DEDUCTIBLE
         CONVERTING LOWER-ALPHA
         TO         UPPER-ALPHA.
 
 RE-ACCEPT-VOUCHER-DEDUCTIBLE.
     DISPLAY "MUST BE YES OR NO".
     PERFORM ACCEPT-VOUCHER-DEDUCTIBLE.
 
 ENTER-VOUCHER-SELECTED.
     MOVE "N" TO VOUCHER-SELECTED.
 
*---------------------------------
* Routines shared by Change,
* Inquire and Delete
*---------------------------------
 GET-EXISTING-RECORD.
     PERFORM ACCEPT-EXISTING-KEY.
     PERFORM RE-ACCEPT-EXISTING-KEY
         UNTIL VOUCHER-RECORD-FOUND = "Y" OR
               VOUCHER-NUMBER = ZEROES.
 
 ACCEPT-EXISTING-KEY.
     PERFORM INIT-VOUCHER-RECORD.
     PERFORM ENTER-VOUCHER-NUMBER.
     IF VOUCHER-NUMBER NOT = ZEROES
         PERFORM READ-VOUCHER-RECORD.
 
 RE-ACCEPT-EXISTING-KEY.
     DISPLAY "RECORD NOT FOUND"
     PERFORM ACCEPT-EXISTING-KEY.
 
 ENTER-VOUCHER-NUMBER.
     DISPLAY "ENTER VOUCHER NUMBER TO "
             THE-MODE.
     ACCEPT VOUCHER-NUMBER FROM CONSOLE.
 
 DISPLAY-ALL-FIELDS.
     DISPLAY " ".
     PERFORM DISPLAY-VOUCHER-NUMBER.
     PERFORM DISPLAY-VOUCHER-VENDOR.
     PERFORM DISPLAY-VOUCHER-INVOICE.
     PERFORM DISPLAY-VOUCHER-FOR.
     PERFORM DISPLAY-VOUCHER-AMOUNT.
     PERFORM DISPLAY-VOUCHER-DATE.
     PERFORM DISPLAY-VOUCHER-DUE.
     PERFORM DISPLAY-VOUCHER-DEDUCTIBLE.
     IF VOUCHER-PAID-DATE = ZEROES
         PERFORM DISPLAY-VOUCHER-SELECTED.
     IF VOUCHER-PAID-DATE NOT = ZEROES
         PERFORM DISPLAY-VOUCHER-PAID-AMOUNT
         PERFORM DISPLAY-VOUCHER-PAID-DATE
         PERFORM DISPLAY-VOUCHER-CHECK-NO.
     DISPLAY " ".
 
 DISPLAY-VOUCHER-NUMBER.
     DISPLAY "   VOUCHER NUMBER: " VOUCHER-NUMBER.
 
 DISPLAY-VOUCHER-VENDOR.
     PERFORM VOUCHER-VENDOR-ON-FILE.
     IF VENDOR-RECORD-FOUND = "N"
         MOVE "**Not found**" TO VENDOR-NAME.
     DISPLAY "1. VENDOR: "
             VOUCHER-VENDOR " "
             VENDOR-NAME.
 
 DISPLAY-VOUCHER-INVOICE.
     DISPLAY "2. INVOICE: " VOUCHER-INVOICE.
 
 DISPLAY-VOUCHER-FOR.
     DISPLAY "3. FOR: " VOUCHER-FOR.
 
 DISPLAY-VOUCHER-AMOUNT.
     MOVE VOUCHER-AMOUNT TO VOUCHER-AMOUNT-FIELD.
     DISPLAY "4. AMOUNT: " VOUCHER-AMOUNT-FIELD.
 
 DISPLAY-VOUCHER-DATE.
     MOVE VOUCHER-DATE TO DATE-CCYYMMDD.
     PERFORM FORMAT-THE-DATE.
     DISPLAY "5. INVOICE DATE: " FORMATTED-DATE.
 
 DISPLAY-VOUCHER-DUE.
     MOVE VOUCHER-DUE TO DATE-CCYYMMDD.
     PERFORM FORMAT-THE-DATE.
     DISPLAY "6. DUE DATE: " FORMATTED-DATE.
 
 DISPLAY-VOUCHER-DEDUCTIBLE.
     DISPLAY "7. DEDUCTIBLE: " VOUCHER-DEDUCTIBLE.
 
 DISPLAY-VOUCHER-SELECTED.
     DISPLAY "   SELECTED FOR PAYMENT: " VOUCHER-SELECTED.
 
 DISPLAY-VOUCHER-PAID-AMOUNT.
     MOVE VOUCHER-PAID-AMOUNT TO VOUCHER-PAID-AMOUNT-FIELD.
     DISPLAY "   PAID: " VOUCHER-PAID-AMOUNT-FIELD.
 
 DISPLAY-VOUCHER-PAID-DATE.
     MOVE VOUCHER-PAID-DATE TO DATE-CCYYMMDD.
     PERFORM FORMAT-THE-DATE.
     DISPLAY "   PAID ON: " FORMATTED-DATE.
 
 DISPLAY-VOUCHER-CHECK-NO.
     DISPLAY "   CHECK: " VOUCHER-CHECK-NO.
 
*---------------------------------
* File I-O Routines
*---------------------------------
 READ-VOUCHER-RECORD.
     MOVE "Y" TO VOUCHER-RECORD-FOUND.
     READ VOUCHER-FILE RECORD
       INVALID KEY
          MOVE "N" TO VOUCHER-RECORD-FOUND.
 
*or  READ VOUCHER-FILE RECORD WITH LOCK
*      INVALID KEY
*         MOVE "N" TO VOUCHER-RECORD-FOUND.
 
*or  READ VOUCHER-FILE RECORD WITH HOLD
*      INVALID KEY
*         MOVE "N" TO VOUCHER-RECORD-FOUND.
 
 WRITE-VOUCHER-RECORD.
     WRITE VOUCHER-RECORD
         INVALID KEY
         DISPLAY "RECORD ALREADY ON FILE".
 
 REWRITE-VOUCHER-RECORD.
     REWRITE VOUCHER-RECORD
         INVALID KEY
         DISPLAY "ERROR REWRITING VENDOR RECORD".
 
 DELETE-VOUCHER-RECORD.
     DELETE VOUCHER-FILE RECORD
         INVALID KEY
         DISPLAY "ERROR DELETING VENDOR RECORD".
 
 READ-VENDOR-RECORD.
     MOVE "Y" TO VENDOR-RECORD-FOUND.
     READ VENDOR-FILE RECORD
       INVALID KEY
          MOVE "N" TO VENDOR-RECORD-FOUND.
 
 READ-CONTROL-RECORD.
     MOVE 1 TO CONTROL-KEY.
     MOVE "Y" TO CONTROL-RECORD-FOUND.
     READ CONTROL-FILE RECORD
         INVALID KEY
          MOVE "N" TO CONTROL-RECORD-FOUND
          DISPLAY "CONTROL FILE IS INVALID".
 
 REWRITE-CONTROL-RECORD.
     REWRITE CONTROL-RECORD
         INVALID KEY
         DISPLAY "ERROR REWRITING CONTROL RECORD".
 
 GET-A-DATE.
     PERFORM ACCEPT-A-DATE.
     PERFORM RE-ACCEPT-A-DATE
         UNTIL DATE-IS-OK.
 
 ACCEPT-A-DATE.
     IF DATE-PROMPT = SPACE
         DISPLAY "ENTER A DATE (MM/DD/YYYY)"
     ELSE
         DISPLAY DATE-PROMPT.
 
     ACCEPT FORMATTED-DATE FROM CONSOLE.
 
     PERFORM EDIT-CHECK-DATE.
 
 RE-ACCEPT-A-DATE.
     IF DATE-ERROR-MESSAGE = SPACE
         DISPLAY "INVALID DATE"
     ELSE
         DISPLAY DATE-ERROR-MESSAGE.
 
     PERFORM ACCEPT-A-DATE.
 
 EDIT-CHECK-DATE.
     PERFORM EDIT-DATE.
     PERFORM CHECK-DATE.
     MOVE DATE-MMDDCCYY TO FORMATTED-DATE.
 
 EDIT-DATE.
     MOVE FORMATTED-DATE TO DATE-MMDDCCYY.
     PERFORM CONVERT-TO-CCYYMMDD.
 
*---------------------------------
* USAGE:
*  MOVE date(ccyymmdd) TO DATE-CCYYMMDD.
*  PERFORM CONVERT-TO-MMDDCCYY.
*
* RETURNS:
*  DATE-MMDDCCYY.
*---------------------------------
 CONVERT-TO-MMDDCCYY.
     COMPUTE DATE-MMDDCCYY =
             DATE-CCYYMMDD * 10000.0001.
 
*---------------------------------
* USAGE:
*  MOVE date(mmddccyy) TO DATE-MMDDCCYY.
*  PERFORM CONVERT-TO-CCYYMMDD.
*
* RETURNS:
*  DATE-CCYYMMDD.
*---------------------------------
 CONVERT-TO-CCYYMMDD.
     COMPUTE DATE-CCYYMMDD =
             DATE-MMDDCCYY * 10000.0001.
 
 
*---------------------------------
 CHECK-DATE.
     MOVE "Y" TO VALID-DATE-FLAG.
     IF DATE-CCYYMMDD = ZEROES
         IF ZERO-DATE-IS-OK = "Y"
             MOVE "0" TO VALID-DATE-FLAG
         ELSE
             MOVE "N" TO VALID-DATE-FLAG
     ELSE
     IF DATE-MM < 1 OR DATE-MM > 12
         MOVE "N" TO VALID-DATE-FLAG
     ELSE
     IF DATE-DD < 1 OR DATE-DD > 31
         MOVE "N" TO VALID-DATE-FLAG
     ELSE
     IF (DATE-DD > 30) AND
        (DATE-MM = 2 OR 4 OR 6 OR 9 OR 11)
         MOVE "N" TO VALID-DATE-FLAG
     ELSE
     IF DATE-DD > 29 AND DATE-MM = 2
         MOVE "N" TO VALID-DATE-FLAG
     ELSE
     IF DATE-DD = 29 AND DATE-MM = 2
         DIVIDE DATE-YYYY BY 400 GIVING DATE-QUOTIENT
                REMAINDER DATE-REMAINDER
         IF DATE-REMAINDER = 0
             MOVE "Y" TO VALID-DATE-FLAG
         ELSE
             DIVIDE DATE-YYYY BY 100 GIVING DATE-QUOTIENT
                    REMAINDER DATE-REMAINDER
             IF DATE-REMAINDER = 0
                 MOVE "N" TO VALID-DATE-FLAG
             ELSE
                 DIVIDE DATE-YYYY BY 4 GIVING DATE-QUOTIENT
                        REMAINDER DATE-REMAINDER
                 IF DATE-REMAINDER = 0
                     MOVE "Y" TO VALID-DATE-FLAG
                 ELSE
                     MOVE "N" TO VALID-DATE-FLAG.
*---------------------------------
* USAGE:
*  MOVE date(ccyymmdd) TO DATE-CCYYMMDD.
*  PERFORM FORMAT-THE-DATE.
*
* RETURNS:
*  FORMATTED-DATE
*  DATE-MMDDCCYY.
*---------------------------------
 FORMAT-THE-DATE.
     PERFORM CONVERT-TO-MMDDCCYY.
     MOVE DATE-MMDDCCYY TO FORMATTED-DATE.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:
827:
828:
829:
830:
831:
832:
833:
834:
835:
836:
837:
838:
839:
840:
841:
842:
843:
844:
845:
846:
847:
848:
849:
850:
851:
852:
853:
854:
855:
856:
857:
858:
859:
860:
861:
862:
863:
864:
865:
866:
867:
868:
869:
870:
871:

Select all Open in new window

This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Plus...

30 Day FREE access, no risk, no obligation
Collaborate with the world's top tech experts
Unlimited access to our exclusive solution database
Never be left without tech help again

Subscribe Now

Asked On: 2009-03-29 at 07:49:43ID24275168
Topic: COBOL Programming Language
Participating Experts: 1
Points: 500
Comments: 5

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

"The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.
"Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin
"Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Access the answers to your technology questions today.

Subscribe Now

30-day free trial. Register in 60 seconds.

What Makes Experts Exchange Unique?

Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.

Trusted by the world's most respected brands.

image of each brand's logo

Faithfully serving IT professionals since 1996.

Experts Exchange Logo

Try it out and discover for yourself.

Subscribe Now

30-day free trial. Register in 60 seconds.

Free Tech Articles

WARNING: 5 Reasons why you should NEVER fix a computer for free.
It is in our nature to love the puzzle. We are obsessed. The lot of us. We love puzzles. We love the challenge. We thrive on finding the answer. We hate disarray. It bothers us deep in our soul. W...
SCCM OSD Basic troubleshooting
SCCM 2007 OSD is a fantastic way to deploy operating systems, however, like most things SCCM issues can sometimes be difficult to resolve due to the sheer volume of logs to sift through and the dispe...
Migrate Small Business Server 2003 to Exchange 2010 and Windows 2008 R2
This guide is intended to provide step by step instructions on how to migrate from Small Business Server 2003 to Windows 2008 R2 with Exchange 2010. For this migration to work you will need the fo...
Create a Win7 Gadget
This article shows you how to create a simple "Gadget" -- a sort of mini-application supported by Windows 7 and Vista. Gadgets can be dropped anywhere on the desktop to provide instant information, ...
Outlook continually prompting for username and password
There have been a lot of questions recently regarding Outlook prompting for a username and password whilst using Exchange 2007. There are a few reasons why this would happen and I will try to cover t...
Backup Exchange 2010 Information Store using Windows Backup
There seems to be quite a lot of confusion around the ability to backup Exchange 2010 using the built in Windows Backup feature. This stems from the omission of this feature prior to Exchange 2007 s...

Cloud Class Webinars

Avoiding Bugs in Microsoft Access
Alison Balter takes and in-depth look at avoiding bugs in Access. In this webinar you will learn about using the immediate window to debug your applications, invoking the debugger, using breakpoints to troubleshoot, stepping through code, setting the next statement to execute, ...
Top 10 Best New Features in Visio 2010
Scott Helmers gives live demonstrations of the top 10 new features in Visio 2010. This webinar will teach you how to create compelling diagrams by adding shapes to the page with a single click, linking the shapes in a diagram to data in Excel (or SQL Server, or SharePoint), ...
IT Consultant Business Secrets Revealed
Michael Munger, Experts Exchange tech pro and IT consultant, pulls back the curtain on his very successful businesses and answers question on every IT consultant and business owner should know about. He shares secrets on what he did to solve the 5 most common problems in IT, ...
Disaster Recovery and Business Continuity
Quest CTO, Mike Billon, gives an overview of the steps involved in building a dunamic disaster recovery plan. Through case studies and an examination of software/hardware tooles for monitoring and testing, you'll gain a better understandin of where you are, where you want ...
Organize Your Visio Diagrams with Containers and Lists
Scott Helmers uses cross functional flowcharts, wireframe diagrams, data graphic legends and seating charts to teach you: how to ustilize all three new structured diagram components in Visio 2010, the best practices for organizeing shapes in previous version of Visio, how to organize ...
How to Us Objects, Properties, Events and Methods in Microsoft Access
Alison Dalter gives an in-depbth look at objects, properties, events and methods in Microsoft Access. In this webinar you will learn about using the object browser, referring to objects, working with properties and methods, working with object variables, understanding the ...

Watch More

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

Join the Community

Answers

by: mustish1Posted on 2009-03-29 at 07:50:52ID: 24012918

NetCOBOL COBOL ERROR REPORT

<<Summary>>
The COBOL run-time message occurred:
Application : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe(PID=0000067C)
Exception Number : JMP0310I-U [PID:0000067C TID:00000BC0] OPEN ERROR. FILE=vendor. 'INV-KEYLEN'. PGM=VCHMNT01 LINE=116.1
Generation Time : 03/29/2009(9:35:58)
Generation Module : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Time Stamp : 03/29/2009(9:35:56)
File Size : 144028bytes

<<Detail>>
Thread ID : 00000BC0
Register : EAX=0012BEA4 EBX=00000066 ECX=E9999999 EDX=00070001 ESI=00000000
: EDI=00156DBC EIP=7C812A5B ESP=0012BEA0 EBP=0012BEF4 EFL=00000246
: CS=001B SS=0023 DS=0023 ES=0023 FS=003B GS=0000
Stack Commit : 0000A000 (Top:00130000, Base:00126000)
Instruction : Address +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +a +b +c +d +e +f
7C812A4B 8D 7D C4 F3 A5 5F 8D 45 B0 50 FF 15 08 15 80 7C
FAULT ->7C812A5B 5E C9 C2 10 00 85 FF 0F 8E 36 93 FF FF 8B 55 FC

Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+000086A3
Export Relative Position : STCMNT01+000030DB
Symbol Relative Position : VCHMNT01+00000383
Compilation Information : ASCII, SINGLE THREAD, NOOPTIMIZE
External Program/Class : VCHMNT01
Source File : Vchmnt01.cob
Source Line : 116

<Call Stack>
[ 1]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BKATCH.dll
Section Relative Position : .text+00002DE9
Export Relative Position : NotifyExecErrorInfo+00000169
[ 2]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
Section Relative Position : .text+00025AA2
Export Relative Position : JMP1MESM+00002252
[ 3]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
Section Relative Position : .text+00023ADF
Export Relative Position : JMP1MESM+0000028F
[ 4]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
Section Relative Position : .text+00046A6E
Export Relative Position : JMP5IOER+0000120E
[ 5]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
Section Relative Position : .text+00010935
Export Relative Position : JMP5VIXD+00003FF5
[ 6]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
Section Relative Position : .text+0000CFB5
Export Relative Position : JMP5VIXD+00000675
[ 7]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
Section Relative Position : .text+0000CB75
Export Relative Position : JMP5VIXD+00000235
[ 8]---------------------------------------------------------------------------------
Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+000086A7
Export Relative Position : STCMNT01+000030DF
Symbol Relative Position : VCHMNT01+00000387
Compilation Information : ASCII, SINGLE THREAD, NOOPTIMIZE
External Program/Class : VCHMNT01
Source File : Vchmnt01.cob
Source Line : 116
[ 9]---------------------------------------------------------------------------------
Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+0000832A
Export Relative Position : STCMNT01+00002D62
Symbol Relative Position : VCHMNT01+0000000A
[ 10]---------------------------------------------------------------------------------
Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+00012157
Export Relative Position : CTLBLD01+0000204F
Symbol Relative Position : _WinMainCRTStartup+000000CE
[ 11]---------------------------------------------------------------------------------
Module File : C:\WINDOWS\system32\KERNEL32.dll
Section Relative Position : .text+00015FD7
Export Relative Position : RegisterWaitForInputIdle+00000049

<<System Information>>
Computer Name : PC
User Name : Kathy
Windows Version : Microsoft Windows XP
Version Number : 5.01.2600
Service Pack : Service Pack 2

<<Command Line>>
"C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe"

<<Environment Variable>>
=::=::\
ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\Kathy\Application Data
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=PC
ComSpec=C:\WINDOWS\system32\cmd.exe
FP_NO_HOST_CHECK=NO
GETMODEL=Satellite M35X
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\Kathy
LIB=C:\Program Files\Fujitsu NetCOBOL for Windows\
LOGONSERVER=\\PC
MEFTLOGROOT=C:\MEFTLOGROOT
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\Program Files\Fujitsu NetCOBOL for Windows\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\ATI Technologies\ATI Control Panel;C:\Program Files\IDM Computer Solutions\UltraEdit\
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 9 Stepping 5, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0905
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\Kathy\LOCALS~1\Temp
TMP=C:\DOCUME~1\Kathy\LOCALS~1\Temp
USERDOMAIN=PC
USERNAME=Kathy
USERPROFILE=C:\Documents and Settings\Kathy
VERNUM=PSA72U-00T00U
windir=C:\WINDOWS

<<Execution Environment Information>>
Run-time System : V10.0.0
Run-time Mode : ASCII, SINGLE THREAD
Program Name : VCHMNT01
.CBR File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\COBOL85.CBR
[EOF]

<<STACK/HEAP Information>>
Stack : 00100000
Heap : 00100000

<<Task List>>
0 [System Process]
4 System
1BC smss.exe
220 csrss.exe
238 winlogon.exe
264 services.exe
270 lsass.exe
330 svchost.exe
36C svchost.exe
394 svchost.exe
3BC svchost.exe
414 svchost.exe
420 svchost.exe
49C ccSetMgr.exe
510 ccEvtMgr.exe
5AC spoolsv.exe
610 CeEPwrSvc.exe
61C CFSvcs.exe
634 COBATSVC.exe
644 Crypserv.exe
68C lxddcoms.exe
6D4 navapsvc.exe
70C SAVScan.exe
748 svchost.exe
754 swupdtmr.exe
7A4 symwsc.exe
7E4 fxssvc.exe
88C alg.exe
8DC explorer.exe
9D8 wuauclt.exe
A8C CePMTray.exe
AB4 tfswctrl.exe
AE8 ltmoh.exe
B04 agrsmmsg.exe
B14 NDSTray.exe
B1C CeEKey.exe
B24 PadExe.exe
B2C SmoothView.exe
B40 ZoomingHook.exe
B48 TPTray.exe
B50 ccApp.exe
B6C igfxtray.exe
B88 hkcmd.exe
BB0 pinger.exe
C00 lxddmon.exe
C10 lxddamon.exe
C2C ctfmon.exe
C34 msnmsgr.exe
C3C GoogleToolbarNotifier.exe
C50 wcescomm.exe
CB0 rapimgr.exe
CE8 WG111v2.exe
D40 MEMonitor.exe
D10 VZAccess Manager.exe
BA0 iexplore.exe
780 WLLoginProxy.exe
868 cbdt.exe
788 crp32002.ngn
F24 javaw.exe
67C DATAPROJ.exe
924 F3BKDSNP.exe

<<Module List>>
00400000 - 0041F000 C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
03/29/2009(9:35:56)
7C900000 - 7C9B0000 C:\WINDOWS\system32\ntdll.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
7C800000 - 7C8F5000 C:\WINDOWS\system32\KERNEL32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3119
04/16/2007(8:52:53)
10000000 - 1006A000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
07/18/2008(12:46:12)
00320000 - 00364000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
00370000 - 003AF000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIFRM.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:45:58)
7E410000 - 7E4A0000 C:\WINDOWS\system32\USER32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3099
03/08/2007(8:36:28)
77F10000 - 77F58000 C:\WINDOWS\system32\GDI32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3466
10/23/2008(6:01:36)
77DD0000 - 77E6B000 C:\WINDOWS\system32\ADVAPI32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
77E70000 - 77F02000 C:\WINDOWS\system32\RPCRT4.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3173
07/09/2007(6:09:42)
77FE0000 - 77FF1000 C:\WINDOWS\system32\Secur32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
003B0000 - 003FA000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIDBG.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
00420000 - 0045A000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIOLER.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
06/03/2008(12:45:34)
774E0000 - 7761D000 C:\WINDOWS\system32\ole32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2726
07/25/2005(21:39:48)
77C10000 - 77C68000 C:\WINDOWS\system32\msvcrt.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 7.0.2600.2180
08/04/2004(5:00:00)
77120000 - 771AB000 C:\WINDOWS\system32\OLEAUT32.dll
00460000 - 00475000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIOLES.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
00480000 - 004C2000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BISCRN.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
08/20/2008(9:35:02)
004D0000 - 00528000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BILPIO.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
00540000 - 00545000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIOVLD.dll
FUJITSU LIMITED, NetCOBOL, 90.20.0.0
03/19/2007(11:21:28)
73000000 - 73026000 C:\WINDOWS\system32\WINSPOOL.DRV
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
00550000 - 0055E000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BISQL.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
00560000 - 0057F000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRIO.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
00580000 - 00591000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BISCLS.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
005A0000 - 005AE000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BILANP.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
005B0000 - 005CB000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIZCOM.DLL
FUJITSU LIMITED, NetCOBOL, V10.0.0
01/16/2009(10:41:14)
7C9C0000 - 7D1D6000 C:\WINDOWS\system32\SHELL32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.3402
07/03/2008(6:16:57)
77F60000 - 77FD6000 C:\WINDOWS\system32\SHLWAPI.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2995
09/23/2006(13:12:50)
78130000 - 781CB000 C:\WINDOWS\WinSxS\x86_Microsoft.VC80.CRT_1fc8b3b9a1e18e3b_8.0.50727.762_x-ww_6b128700\MSVCR80.dll
Microsoft Corporation, Microsoft® Visual Studio® 2005, 8.00.50727.762
12/01/2006(23:54:32)
005E0000 - 005EE000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIAESV.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:45:58)
005F0000 - 0061C000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BKATCH.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
05/30/2008(11:40:40)
00620000 - 00631000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIEFNC.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:45:58)
00640000 - 00676000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIEXFH.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
07/18/2008(12:46:12)
00680000 - 006A5000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BICICL.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
04/16/2008(16:59:10)
71AD0000 - 71AD9000 C:\WINDOWS\system32\WSOCK32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
71AB0000 - 71AC7000 C:\WINDOWS\system32\WS2_32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
71AA0000 - 71AA8000 C:\WINDOWS\system32\WS2HELP.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
006B0000 - 006BF000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BINDBC.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
77C00000 - 77C08000 C:\WINDOWS\system32\VERSION.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
763B0000 - 763F9000 C:\WINDOWS\system32\comdlg32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2180
08/04/2004(5:00:00)
5D090000 - 5D12A000 C:\WINDOWS\system32\COMCTL32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2982
08/25/2006(8:45:58)
006C0000 - 006DF000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIFNC.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
006E0000 - 006F9000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIFLTE.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
04/21/2008(17:28:04)
76390000 - 763AD000 C:\WINDOWS\system32\IMM32.DLL
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
629C0000 - 629C9000 C:\WINDOWS\system32\LPK.DLL
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
74D90000 - 74DFB000 C:\WINDOWS\system32\USP10.dll
Microsoft Corporation, Microsoft(R) Uniscribe Unicode script processor, 1.0420.2600.2180
08/04/2004(5:00:00)
773D0000 - 774D3000 C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.2982_x-ww_ac3f9c03\comctl32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2982
08/25/2006(8:45:55)
00EB0000 - 00EC2000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIFUNC.DLL
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(18:30:00)
5AD70000 - 5ADA8000 C:\WINDOWS\system32\uxtheme.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2180
08/04/2004(5:00:00)
74720000 - 7476B000 C:\WINDOWS\system32\MSCTF.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3319
02/26/2008(4:59:50)
755C0000 - 755EE000 C:\WINDOWS\system32\msctfime.ime
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)

<<Stack Summary>>
FramePtr RetAddr Param-01 Param-02 Param-03 Param-04 Param-05 Param-06 Param-07 Param-08 Module:Program
0012BEF4 005F3DE9 E9999999 00000000 00000000 00000000 00156DBC 10060D30 00000000 00000000 KERNEL32.dll:RaiseException
0012C974 10026AA2 004096A3 00000010 00156DBC 00000136 00000000 00000004 10060D30 00000004 F3BKATCH.dll:NotifyExecErrorInfo
0012DE5C 10024ADF 10060D30 00000136 00000000 00000004 0012DEE0 00000002 00000008 00419280 F3BIPRCT.dll:JMP1MESM
0012DFB0 10047A6E 10060D30 00000136 00000000 00000004 0012DFF4 0012FC88 0012F884 0012F010 F3BIPRCT.dll:JMP1MESM
0012FC94 00331935 00419280 00000100 00419348 010ABD80 00000008 00419348 00000000 01060694 F3BIPRCT.dll:JMP5IOER
0012FCD0 0032DFB5 00419280 00419348 0041CC3C 00000001 00419348 01060694 00000001 00000000 F3BIIO.dll:JMP5VIXD
0012FD00 0032DB75 00419280 0012FD50 00000000 37363534 00419494 00419280 0041D4C0 01060694 F3BIIO.dll:JMP5VIXD
0012FD3C 004096A7 00419280 00000001 0012FD50 00000001 00419348 7B7A7908 7F7E7D7C 83828180 F3BIIO.dll:JMP5VIXD
0012FF28 0040932A 00000000 0012FFC0 00413157 00400000 00000000 00142456 0000000A 1A1A3BE8 DATAPROJ.exe:VCHMNT01
0012FF34 00413157 00400000 00000000 00142456 0000000A 1A1A3BE8 0964B0F8 7FFDC000 00000000 DATAPROJ.exe:VCHMNT01
0012FFC0 7C816FD7 1A1A3BE8 0964B0F8 7FFDC000 8054ABB8 0012FFC8 FF0CD7F8 FFFFFFFF 7C839AA8 DATAPROJ.exe:_WinMainCRTStartup
0012FFF0 00000000 00413089 00000000 78746341 00000020 00000001 00002498 000000C4 00000000 KERNEL32.dll:RegisterWaitForInputIdle

<<Stack Dump>>
0012BEA0 30 0D 06 10 99 99 99 E9 - 00 00 00 00 00 00 00 00 0...............
0012BEB0 5B 2A 81 7C 00 00 00 00 - 98 23 15 00 CC BE 12 00 [*.|.....#......
0012BEC0 92 09 91 7C 98 23 15 00 - 24 99 60 00 F0 BE 12 00 ...|.#..$.`.....
0012BED0 F7 76 DD 77 E4 BE 12 00 - BC 6D 15 00 30 0D 06 10 .v.w.....m..0...
0012BEE0 66 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 f...............
0012BEF0 74 C9 12 00 74 C9 12 00 - E9 3D 5F 00 99 99 99 E9 t...t....=_.....
0012BF00 00 00 00 00 00 00 00 00 - 00 00 00 00 BC 6D 15 00 .............m..
0012BF10 30 0D 06 10 00 00 00 00 - 00 00 00 00 00 00 00 00 0...............
0012BF20 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF30 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF40 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF50 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF60 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF70 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF80 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BF90 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BFA0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BFB0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BFC0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BFD0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BFE0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012BFF0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C000 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C010 00 00 00 00 24 C0 12 00 - 21 C2 91 7C 31 00 00 00 ....$...!..|1...
0012C020 C8 C4 12 00 38 C0 12 00 - F6 C1 91 7C 31 00 00 00 ....8......|1...
0012C030 02 00 00 00 E8 FF FF FF - B0 C4 12 00 14 C3 91 7C ...............|
0012C040 00 00 00 00 00 00 00 00 - 9A 00 3D 01 64 BA 91 7C ..........=.d..|
0012C050 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C060 07 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C070 00 00 00 00 00 00 00 00 - 00 00 00 00 C8 C4 12 00 ................
0012C080 00 00 00 00 00 00 00 00 - 01 00 00 00 68 C8 12 00 ............h...
0012C090 00 00 00 00 18 00 00 00 - 58 CA 12 00 18 00 00 00 ........X.......
0012C0A0 FF FF FF FF 00 C5 12 00 - 00 00 00 00 00 00 00 00 ................
0012C0B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C100 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C110 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C120 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C130 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C140 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C150 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C160 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C170 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C180 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C190 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C200 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C210 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C220 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C230 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C240 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C250 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C260 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C270 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C280 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C290 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C300 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C310 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C320 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C330 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C340 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C350 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C360 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C370 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C380 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C390 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C400 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C410 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C420 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C430 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C440 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C450 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C460 00 00 00 00 00 00 00 00 - EA D4 90 7C FF 80 91 7C ...........|...|
0012C470 FF FF FF FF A8 C4 12 00 - 6A 12 00 00 A0 C4 12 00 ........j.......
0012C480 FF 1B 91 7C 00 00 14 00 - B0 4C 15 00 00 00 14 00 ...|.....L......
0012C490 B0 4C 15 00 01 09 00 00 - 40 06 14 00 6A 08 00 00 .L......@...j...
0012C4A0 D4 C4 12 00 5D 82 91 7C - 6A 12 00 00 68 FE 00 00 ....]..|j...h...
0012C4B0 E8 C4 12 00 D2 C2 91 7C - C8 C4 12 00 64 C8 12 00 .......|....d...
0012C4C0 FC C4 12 00 9A 00 3D 01 - CB 00 3D 01 34 FF 00 00 ......=...=.4...
0012C4D0 9A 00 3D 01 42 00 00 00 - 00 C7 12 00 F4 B5 91 7C ..=.B..........|
0012C4E0 86 B6 91 7C 00 00 00 00 - A8 C8 12 00 C8 99 92 7C ...|...........|
0012C4F0 9A 00 3D 01 B3 7F 00 00 - 64 C8 12 00 58 CA 12 00 ..=.....d...X...
0012C500 00 00 00 00 02 00 00 00 - 00 28 00 00 00 00 00 00 .........(......
0012C510 C9 98 92 7C 38 4C 15 00 - 50 4C 15 00 70 4C 15 00 ...|8L..PL..pL..
0012C520 90 4C 15 00 08 DD 12 00 - 58 CA 12 00 00 00 00 00 .L......X.......
0012C530 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C540 40 06 14 00 00 00 00 00 - 00 00 00 00 00 00 00 00 @...............
0012C550 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C560 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C570 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C580 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C590 00 00 00 00 00 00 00 00 - 00 00 00 00 78 01 14 00 ............x...
0012C5A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C5B0 00 00 00 00 00 00 00 00 - 78 01 14 00 90 99 15 00 ........x.......
0012C5C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C5D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C5E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C5F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C600 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C610 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C620 00 00 00 00 00 00 00 00 - 00 00 00 00 96 00 00 00 ................
0012C630 00 00 00 00 68 C6 12 00 - 00 00 14 00 32 07 91 7C ....h.......2..|
0012C640 0C 00 00 00 C8 08 14 00 - 00 00 14 00 E8 30 15 00 .............0..
0012C650 40 C6 12 00 00 00 00 00 - 84 C8 12 00 18 EE 90 7C @..............|
0012C660 38 07 91 7C FF FF FF FF - 32 07 91 7C AB 06 91 7C 8..|....2..|...|
0012C670 EB 06 91 7C EC C8 12 00 - F4 C8 12 00 00 00 00 00 ...|............
0012C680 00 00 14 00 32 07 91 7C - 50 C8 12 00 B0 2F 14 00 ....2..|P..../..
0012C690 50 C7 12 00 C0 1D 15 00 - 88 C6 12 00 00 00 00 00 P...............

by: woolmilkporcPosted on 2009-03-29 at 08:29:22ID: 24013057

Hi,

>> ALTERNATE KEY IS VENDOR-NAME WITH DUPLICATES << (VCHMNT01)

You didn't create the alternate key when creating the 'vendor' file in VNDBLD01 (OPEN OUTPUT)
but tried to use it in VCHMNT01 (OPEN I-O).

Runtime error:

Exception Number : JMP0310I-U [PID:0000067C TID:00000BC0] OPEN ERROR. FILE=vendor. 'INV-KEYLEN'. PGM=VCHMNT01

Open error, file 'vendor', reason Invalid key length.

wmp

by: mustish1Posted on 2009-03-29 at 08:45:27ID: 24013112

Thanks. It gives me again a run time:

IDENTIFICATION DIVISION.
PROGRAM-ID. VNDNEW01.
*------------------------------------------------
* Add a record to an indexed Vendor File.
*------------------------------------------------
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

SELECT VENDOR-FILE
ASSIGN TO "vendor"
ORGANIZATION IS INDEXED
RECORD KEY IS VENDOR-NUMBER
ALTERNATE KEY IS VENDOR-NAME WITH DUPLICATES
ACCESS MODE IS DYNAMIC.

DATA DIVISION.
FILE SECTION.

FD VENDOR-FILE
LABEL RECORDS ARE STANDARD.
01 VENDOR-RECORD.
05 VENDOR-NUMBER PIC 9(5).
05 VENDOR-NAME PIC X(30).
05 VENDOR-ADDRESS-1 PIC X(30).
05 VENDOR-ADDRESS-2 PIC X(30).
05 VENDOR-CITY PIC X(20).
05 VENDOR-STATE PIC X(2).
05 VENDOR-ZIP PIC X(10).
05 VENDOR-CONTACT PIC X(30).
05 VENDOR-PHONE PIC X(15).

WORKING-STORAGE SECTION.

PROCEDURE DIVISION.
PROGRAM-BEGIN.
OPEN I-O VENDOR-FILE.
PERFORM MAIN-PROCESS.
CLOSE VENDOR-FILE.

PROGRAM-DONE.
STOP RUN.

MAIN-PROCESS.
PERFORM INIT-VENDOR-RECORD.
PERFORM ENTER-VENDOR-FIELDS.
WRITE VENDOR-RECORD.

INIT-VENDOR-RECORD.
MOVE SPACE TO VENDOR-RECORD.
MOVE ZEROES TO VENDOR-NUMBER.

ENTER-VENDOR-FIELDS.
PERFORM ENTER-VENDOR-NUMBER.
PERFORM ENTER-VENDOR-NAME.
PERFORM ENTER-VENDOR-ADDRESS-1.
PERFORM ENTER-VENDOR-ADDRESS-2.
PERFORM ENTER-VENDOR-CITY.
PERFORM ENTER-VENDOR-STATE.
PERFORM ENTER-VENDOR-ZIP.
PERFORM ENTER-VENDOR-CONTACT.
PERFORM ENTER-VENDOR-PHONE.

ENTER-VENDOR-NUMBER.
DISPLAY "ENTER VENDOR NUMBER (00001-99999)".
ACCEPT VENDOR-NUMBER FROM CONSOLE.

ENTER-VENDOR-NAME.
DISPLAY "ENTER VENDOR NAME".
ACCEPT VENDOR-NAME FROM CONSOLE.

ENTER-VENDOR-ADDRESS-1.
DISPLAY "ENTER VENDOR ADDRESS-1".
ACCEPT VENDOR-ADDRESS-1 FROM CONSOLE.

ENTER-VENDOR-ADDRESS-2.
DISPLAY "ENTER VENDOR ADDRESS-2".
ACCEPT VENDOR-ADDRESS-2 FROM CONSOLE.

ENTER-VENDOR-CITY.
DISPLAY "ENTER VENDOR CITY".
ACCEPT VENDOR-CITY FROM CONSOLE.

ENTER-VENDOR-STATE.
DISPLAY "ENTER VENDOR STATE".
ACCEPT VENDOR-STATE FROM CONSOLE.

ENTER-VENDOR-ZIP.
DISPLAY "ENTER VENDOR ZIP".
ACCEPT VENDOR-ZIP FROM CONSOLE.

ENTER-VENDOR-CONTACT.
DISPLAY "ENTER VENDOR CONTACT".
ACCEPT VENDOR-CONTACT FROM CONSOLE.

ENTER-VENDOR-PHONE.
DISPLAY "ENTER VENDOR PHONE".
ACCEPT VENDOR-PHONE FROM CONSOLE.
-----------------------------------------
NetCOBOL COBOL ERROR REPORT

<<Summary>>
The COBOL run-time message occurred:
Application : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe(PID=000000B0)
Exception Number : JMP0310I-U [PID:000000B0 TID:000009FC] OPEN ERROR. FILE=vendor. 'NON-FILE '. PGM=VNDNEW01 LINE=37.1
Generation Time : 03/29/2009(10:43:26)
Generation Module : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Time Stamp : 03/29/2009(10:43:20)
File Size : 144028bytes

<<Detail>>
Thread ID : 000009FC
Register : EAX=0012BF8C EBX=00000065 ECX=E9999999 EDX=00050001 ESI=00000000
: EDI=00156DBC EIP=7C812A5B ESP=0012BF88 EBP=0012BFDC EFL=00000246
: CS=001B SS=0023 DS=0023 ES=0023 FS=003B GS=0000
Stack Commit : 0000A000 (Top:00130000, Base:00126000)
Instruction : Address +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +a +b +c +d +e +f
7C812A4B 8D 7D C4 F3 A5 5F 8D 45 B0 50 FF 15 08 15 80 7C
FAULT ->7C812A5B 5E C9 C2 10 00 85 FF 0F 8E 36 93 FF FF 8B 55 FC

Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+00004597
Export Relative Position : VNDBLD01+000005FF
Symbol Relative Position : VNDNEW01+00000267
Compilation Information : ASCII, SINGLE THREAD, NOOPTIMIZE
External Program/Class : VNDNEW01
Source File : Vndnew01.cob
Source Line : 37

<Call Stack>
[ 1]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BKATCH.dll
Section Relative Position : .text+00002DE9
Export Relative Position : NotifyExecErrorInfo+00000169
[ 2]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
Section Relative Position : .text+00025AA2
Export Relative Position : JMP1MESM+00002252
[ 3]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
Section Relative Position : .text+00023ADF
Export Relative Position : JMP1MESM+0000028F
[ 4]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
Section Relative Position : .text+00046A6E
Export Relative Position : JMP5IOER+0000120E
[ 5]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
Section Relative Position : .text+00010935
Export Relative Position : JMP5VIXD+00003FF5
[ 6]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
Section Relative Position : .text+0000CFB5
Export Relative Position : JMP5VIXD+00000675
[ 7]---------------------------------------------------------------------------------
Module File : C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
Section Relative Position : .text+0000CB75
Export Relative Position : JMP5VIXD+00000235
[ 8]---------------------------------------------------------------------------------
Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+0000459B
Export Relative Position : VNDBLD01+00000603
Symbol Relative Position : VNDNEW01+0000026B
Compilation Information : ASCII, SINGLE THREAD, NOOPTIMIZE
External Program/Class : VNDNEW01
Source File : Vndnew01.cob
Source Line : 37
[ 9]---------------------------------------------------------------------------------
Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+0000433A
Export Relative Position : VNDBLD01+000003A2
Symbol Relative Position : VNDNEW01+0000000A
[ 10]---------------------------------------------------------------------------------
Module File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
Section Relative Position : .text+00012167
Export Relative Position : CTLBLD01+0000204F
Symbol Relative Position : _WinMainCRTStartup+000000CE
[ 11]---------------------------------------------------------------------------------
Module File : C:\WINDOWS\system32\KERNEL32.dll
Section Relative Position : .text+00015FD7
Export Relative Position : RegisterWaitForInputIdle+00000049

<<System Information>>
Computer Name : PC
User Name : Kathy
Windows Version : Microsoft Windows XP
Version Number : 5.01.2600
Service Pack : Service Pack 2

<<Command Line>>
"C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe"

<<Environment Variable>>
=::=::\
ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\Kathy\Application Data
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=PC
ComSpec=C:\WINDOWS\system32\cmd.exe
FP_NO_HOST_CHECK=NO
GETMODEL=Satellite M35X
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\Kathy
LIB=C:\Program Files\Fujitsu NetCOBOL for Windows\
LOGONSERVER=\\PC
MEFTLOGROOT=C:\MEFTLOGROOT
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\Program Files\Fujitsu NetCOBOL for Windows\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\ATI Technologies\ATI Control Panel;C:\Program Files\IDM Computer Solutions\UltraEdit\
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 9 Stepping 5, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0905
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\Kathy\LOCALS~1\Temp
TMP=C:\DOCUME~1\Kathy\LOCALS~1\Temp
USERDOMAIN=PC
USERNAME=Kathy
USERPROFILE=C:\Documents and Settings\Kathy
VERNUM=PSA72U-00T00U
windir=C:\WINDOWS

<<Execution Environment Information>>
Run-time System : V10.0.0
Run-time Mode : ASCII, SINGLE THREAD
Program Name : VNDNEW01
.CBR File : C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\COBOL85.CBR
[EOF]

<<STACK/HEAP Information>>
Stack : 00100000
Heap : 00100000

<<Task List>>
0 [System Process]
4 System
1BC smss.exe
220 csrss.exe
238 winlogon.exe
264 services.exe
270 lsass.exe
330 svchost.exe
36C svchost.exe
394 svchost.exe
3BC svchost.exe
414 svchost.exe
420 svchost.exe
49C ccSetMgr.exe
510 ccEvtMgr.exe
5AC spoolsv.exe
610 CeEPwrSvc.exe
61C CFSvcs.exe
634 COBATSVC.exe
644 Crypserv.exe
68C lxddcoms.exe
6D4 navapsvc.exe
70C SAVScan.exe
748 svchost.exe
754 swupdtmr.exe
7A4 symwsc.exe
7E4 fxssvc.exe
88C alg.exe
8DC explorer.exe
9D8 wuauclt.exe
A8C CePMTray.exe
AB4 tfswctrl.exe
AE8 ltmoh.exe
B04 agrsmmsg.exe
B14 NDSTray.exe
B1C CeEKey.exe
B24 PadExe.exe
B2C SmoothView.exe
B40 ZoomingHook.exe
B48 TPTray.exe
B50 ccApp.exe
B6C igfxtray.exe
B88 hkcmd.exe
BB0 pinger.exe
C00 lxddmon.exe
C10 lxddamon.exe
C2C ctfmon.exe
C34 msnmsgr.exe
C3C GoogleToolbarNotifier.exe
C50 wcescomm.exe
CB0 rapimgr.exe
CE8 WG111v2.exe
D40 MEMonitor.exe
D10 VZAccess Manager.exe
BA0 iexplore.exe
780 WLLoginProxy.exe
868 cbdt.exe
788 crp32002.ngn
F24 javaw.exe
B0 DATAPROJ.exe
43C F3BKDSNP.exe

<<Module List>>
00400000 - 0041F000 C:\Documents and Settings\Kathy\My Documents\NetCOBOL Studio V10.0.0\workspace\DATAPROJ\DATAPROJ.exe
03/29/2009(10:43:20)
7C900000 - 7C9B0000 C:\WINDOWS\system32\ntdll.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
7C800000 - 7C8F5000 C:\WINDOWS\system32\KERNEL32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3119
04/16/2007(8:52:53)
10000000 - 1006A000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRCT.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
07/18/2008(12:46:12)
00320000 - 00364000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIO.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
00370000 - 003AF000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIFRM.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:45:58)
7E410000 - 7E4A0000 C:\WINDOWS\system32\USER32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3099
03/08/2007(8:36:28)
77F10000 - 77F58000 C:\WINDOWS\system32\GDI32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3466
10/23/2008(6:01:36)
77DD0000 - 77E6B000 C:\WINDOWS\system32\ADVAPI32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
77E70000 - 77F02000 C:\WINDOWS\system32\RPCRT4.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3173
07/09/2007(6:09:42)
77FE0000 - 77FF1000 C:\WINDOWS\system32\Secur32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
003B0000 - 003FA000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIDBG.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
00420000 - 0045A000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIOLER.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
06/03/2008(12:45:34)
774E0000 - 7761D000 C:\WINDOWS\system32\ole32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2726
07/25/2005(21:39:48)
77C10000 - 77C68000 C:\WINDOWS\system32\msvcrt.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 7.0.2600.2180
08/04/2004(5:00:00)
77120000 - 771AB000 C:\WINDOWS\system32\OLEAUT32.dll
00460000 - 00475000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIOLES.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
00480000 - 004C2000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BISCRN.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
08/20/2008(9:35:02)
004D0000 - 00528000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BILPIO.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
00540000 - 00545000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIOVLD.dll
FUJITSU LIMITED, NetCOBOL, 90.20.0.0
03/19/2007(11:21:28)
73000000 - 73026000 C:\WINDOWS\system32\WINSPOOL.DRV
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
00550000 - 0055E000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BISQL.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
00560000 - 0057F000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIPRIO.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
00580000 - 00591000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BISCLS.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
005A0000 - 005AE000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BILANP.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
005B0000 - 005CB000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIZCOM.DLL
FUJITSU LIMITED, NetCOBOL, V10.0.0
01/16/2009(10:41:14)
7C9C0000 - 7D1D6000 C:\WINDOWS\system32\SHELL32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.3402
07/03/2008(6:16:57)
77F60000 - 77FD6000 C:\WINDOWS\system32\SHLWAPI.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2995
09/23/2006(13:12:50)
78130000 - 781CB000 C:\WINDOWS\WinSxS\x86_Microsoft.VC80.CRT_1fc8b3b9a1e18e3b_8.0.50727.762_x-ww_6b128700\MSVCR80.dll
Microsoft Corporation, Microsoft® Visual Studio® 2005, 8.00.50727.762
12/01/2006(23:54:32)
005E0000 - 005EE000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIAESV.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:45:58)
005F0000 - 0061C000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BKATCH.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
05/30/2008(11:40:40)
00620000 - 00631000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIEFNC.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:45:58)
00640000 - 00676000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIEXFH.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
07/18/2008(12:46:12)
00680000 - 006A5000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BICICL.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
04/16/2008(16:59:10)
71AD0000 - 71AD9000 C:\WINDOWS\system32\WSOCK32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
71AB0000 - 71AC7000 C:\WINDOWS\system32\WS2_32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
71AA0000 - 71AA8000 C:\WINDOWS\system32\WS2HELP.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
006B0000 - 006BF000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BINDBC.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(11:46:00)
77C00000 - 77C08000 C:\WINDOWS\system32\VERSION.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
763B0000 - 763F9000 C:\WINDOWS\system32\comdlg32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2180
08/04/2004(5:00:00)
5D090000 - 5D12A000 C:\WINDOWS\system32\COMCTL32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2982
08/25/2006(8:45:58)
006C0000 - 006DF000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIIFNC.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
03/12/2008(13:36:20)
006E0000 - 006F9000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIFLTE.dll
FUJITSU LIMITED, NetCOBOL, V10.0.0
04/21/2008(17:28:04)
76390000 - 763AD000 C:\WINDOWS\system32\IMM32.DLL
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
629C0000 - 629C9000 C:\WINDOWS\system32\LPK.DLL
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)
74D90000 - 74DFB000 C:\WINDOWS\system32\USP10.dll
Microsoft Corporation, Microsoft(R) Uniscribe Unicode script processor, 1.0420.2600.2180
08/04/2004(5:00:00)
773D0000 - 774D3000 C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.2982_x-ww_ac3f9c03\comctl32.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2982
08/25/2006(8:45:55)
00EB0000 - 00EC2000 C:\Program Files\Fujitsu NetCOBOL for Windows\F3BIFUNC.DLL
FUJITSU LIMITED, NetCOBOL, V10.0.0
02/29/2008(18:30:00)
5AD70000 - 5ADA8000 C:\WINDOWS\system32\uxtheme.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 6.00.2900.2180
08/04/2004(5:00:00)
74720000 - 7476B000 C:\WINDOWS\system32\MSCTF.dll
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.3319
02/26/2008(4:59:50)
755C0000 - 755EE000 C:\WINDOWS\system32\msctfime.ime
Microsoft Corporation, Microsoft® Windows® Operating System, 5.1.2600.2180
08/04/2004(5:00:00)

<<Stack Summary>>
FramePtr RetAddr Param-01 Param-02 Param-03 Param-04 Param-05 Param-06 Param-07 Param-08 Module:Program
0012BFDC 005F3DE9 E9999999 00000000 00000000 00000000 00156DBC 10060D30 00000000 00000000 KERNEL32.dll:RaiseException
0012CA5C 10026AA2 00405597 00000010 00156DBC 00000136 00000000 00000004 10060D30 00000004 F3BKATCH.dll:NotifyExecErrorInfo
0012DF44 10024ADF 10060D30 00000136 00000000 00000004 0012DFC8 00000002 00000008 00418770 F3BIPRCT.dll:JMP1MESM
0012E098 10047A6E 10060D30 00000136 00000000 00000004 0012E0DC 0012FD70 0012F96C 0012F0F8 F3BIPRCT.dll:JMP1MESM
0012FD7C 00331935 00418770 00000100 00418830 010ABD80 00000008 00418830 00000000 01060694 F3BIPRCT.dll:JMP5IOER
0012FDB8 0032DFB5 00418770 00418830 0041BC00 00000001 00418830 01060694 00000001 00000000 F3BIIO.dll:JMP5VIXD
0012FDE8 0032DB75 00418770 0012FE38 00000000 00000000 00418830 00418770 0041BDD0 01060694 F3BIIO.dll:JMP5VIXD
0012FE24 0040559B 00418770 00000001 0012FE38 00000001 00418830 00F54908 00000001 0012FF1C F3BIIO.dll:JMP5VIXD
0012FF28 0040533A 00000000 0012FFC0 00413167 00400000 00000000 00142456 0000000A 00000001 DATAPROJ.exe:VNDNEW01
0012FF34 00413167 00400000 00000000 00142456 0000000A 00000001 0385EB30 7FFD4000 00000000 DATAPROJ.exe:VNDNEW01
0012FFC0 7C816FD7 00000001 0385EB30 7FFD4000 8054ABB8 0012FFC8 FF0AA4D0 FFFFFFFF 7C839AA8 DATAPROJ.exe:_WinMainCRTStartup
0012FFF0 00000000 00413099 00000000 78746341 00000020 00000001 00002498 000000C4 00000000 KERNEL32.dll:RegisterWaitForInputIdle

<<Stack Dump>>
0012BF80 5B 2A 81 7C 8C BF 12 00 - 30 0D 06 10 99 99 99 E9 [*.|....0.......
0012BF90 00 00 00 00 00 00 00 00 - 5B 2A 81 7C 00 00 00 00 ........[*.|....
0012BFA0 98 23 15 00 B4 BF 12 00 - 92 09 91 7C 98 23 15 00 .#.........|.#..
0012BFB0 24 99 60 00 D8 BF 12 00 - F7 76 DD 77 CC BF 12 00 $.`......v.w....
0012BFC0 BC 6D 15 00 30 0D 06 10 - 65 00 00 00 00 00 00 00 .m..0...e.......
0012BFD0 00 00 00 00 00 00 00 00 - 5C CA 12 00 5C CA 12 00 ........\...\...
0012BFE0 E9 3D 5F 00 99 99 99 E9 - 00 00 00 00 00 00 00 00 .=_.............
0012BFF0 00 00 00 00 BC 6D 15 00 - 30 0D 06 10 00 00 00 00 .....m..0.......
0012C000 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C010 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C020 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C030 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C040 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C050 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C060 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C070 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C080 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C090 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C0F0 00 00 00 00 00 00 00 00 - 00 00 00 00 0C C1 12 00 ................
0012C100 21 C2 91 7C 31 00 00 00 - B0 C5 12 00 20 C1 12 00 !..|1....... ...
0012C110 F6 C1 91 7C 31 00 00 00 - 02 00 00 00 E9 FF FF FF ...|1...........
0012C120 98 C5 12 00 14 C3 91 7C - 00 00 00 00 00 00 00 00 .......|........
0012C130 9A 00 3D 01 64 BA 91 7C - 00 00 00 00 00 00 00 00 ..=.d..|........
0012C140 00 00 00 00 00 00 00 00 - 07 00 00 00 00 00 00 00 ................
0012C150 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C160 00 00 00 00 B0 C5 12 00 - 00 00 00 00 00 00 00 00 ................
0012C170 01 00 00 00 50 C9 12 00 - 00 00 00 00 17 00 00 00 ....P...........
0012C180 40 CB 12 00 17 00 00 00 - FF FF FF FF E8 C5 12 00 @...............
0012C190 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C1F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C200 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C210 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C220 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C230 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C240 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C250 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C260 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C270 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C280 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C290 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C2F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C300 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C310 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C320 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C330 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C340 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C350 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C360 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C370 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C380 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C390 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C3F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C400 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C410 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C420 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C430 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C440 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C450 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C460 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C470 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C480 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C490 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C4A0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C4B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C4C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C4D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C4E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C4F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C500 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C510 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C520 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C530 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C540 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C550 EA D4 90 7C FF 80 91 7C - FF FF FF FF 90 C5 12 00 ...|...|........
0012C560 6A 12 00 00 88 C5 12 00 - FF 1B 91 7C 00 00 14 00 j..........|....
0012C570 B0 4C 15 00 00 00 14 00 - B0 4C 15 00 01 09 00 00 .L.......L......
0012C580 40 06 14 00 6A 08 00 00 - BC C5 12 00 5D 82 91 7C @...j.......]..|
0012C590 6A 12 00 00 BC BA 00 00 - D0 C5 12 00 D2 C2 91 7C j..............|
0012C5A0 B0 C5 12 00 4C C9 12 00 - E4 C5 12 00 9A 00 3D 01 ....L.........=.
0012C5B0 C9 00 3D 01 36 FF 00 00 - 9A 00 3D 01 42 00 00 00 ..=.6.....=.B...
0012C5C0 E8 C7 12 00 F4 B5 91 7C - 86 B6 91 7C 00 00 00 00 .......|...|....
0012C5D0 90 C9 12 00 C8 99 92 7C - 9A 00 3D 01 B3 7F 00 00 .......|..=.....
0012C5E0 4C C9 12 00 40 CB 12 00 - 00 00 00 00 02 00 00 00 L...@...........
0012C5F0 00 28 00 00 00 00 00 00 - C9 98 92 7C 38 4C 15 00 .(.........|8L..
0012C600 50 4C 15 00 70 4C 15 00 - 90 4C 15 00 F0 DD 12 00 PL..pL...L......
0012C610 40 CB 12 00 00 00 00 00 - 00 00 00 00 00 00 00 00 @...............
0012C620 00 00 00 00 00 00 00 00 - 40 06 14 00 00 00 00 00 ........@.......
0012C630 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C640 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C650 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C660 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C670 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C680 00 00 00 00 78 01 14 00 - 00 00 00 00 00 00 00 00 ....x...........
0012C690 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C6A0 78 01 14 00 90 99 15 00 - 00 00 00 00 00 00 00 00 x...............
0012C6B0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C6C0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C6D0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C6E0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C6F0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C700 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012C710 00 00 00 00 96 00 00 00 - 00 00 00 00 50 C7 12 00 ............P...
0012C720 00 00 14 00 32 07 91 7C - 0C 00 00 00 C8 08 14 00 ....2..|........
0012C730 00 00 14 00 E8 30 15 00 - 28 C7 12 00 00 00 00 00 .....0..(.......
0012C740 6C C9 12 00 18 EE 90 7C - 38 07 91 7C FF FF FF FF l......|8..|....
0012C750 32 07 91 7C AB 06 91 7C - EB 06 91 7C D4 C9 12 00 2..|...|...|....
0012C760 DC C9 12 00 00 00 00 00 - 00 00 14 00 32 07 91 7C ............2..|
0012C770 38 C9 12 00 B0 2F 14 00 - 38 C8 12 00 C0 1D 15 00 8..../..8.......

by: mustish1Posted on 2009-03-29 at 08:53:40ID: 24013152

oops my fault. sorry.

by: woolmilkporcPosted on 2009-03-29 at 08:59:47ID: 24013176

Seems that 'vendor' doesnt exist. Wrong directory? File deleted?

I'd suggest anyway to use the full path to the file instead of just 'vendor'

wmp

20120131-EE-VQP-002

3 Ways to Join

30-Day Free Trial

For individual users
Instant access to solutions
Ask your tech questions
Start your 30-day Free Trial

Business Accounts

Perfect for organizations
Multiple users
Save over 36%
Create a Business Account

Answer for Membership

Earn free access
Showcase your knowledge
No credit card required
Sign Up to Answer

The Experts

98% positive feedback on 31,087 answers since March 2000. angeliii is a Microsoft Most Valuable Professional for his work with MS SQL Server & Develoment.

He has also proven his knowledge of Visual Basic Programming, PHP Scripting and Oracle Databases.

The Experts

97% positive feedback on 10,752 answers since July 2000. lrmoore has more than 18 years experience in the networking industry.

The six-time Mircosoft MVPs specialties include firewalls, virtual private networking, and network management.

Testimonials

"...and excellent source for support... Kind of like having your very own IT dept." Electriciansnet

Testimonials

"I was apprehensive at signing up at first. However... it has already made my life as an IT administrator much easier." JaCrews

Testimonials

"WOW! You guys have great, active, and knowledgeable people on here." moore50

Business Clients

In the Press

"If you’ve got a question... Experts Exchange can supply an answer.”

In the Press

"...an invaluable aid for both IT professionals and those who require tech support."

In the Press

"where IT professionals provide quick answers on just about any topic"

Business Account Plans

Loading Advertisement...

Question

Runtime Error

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

COBOL Programming Language

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press