Solved

Runtime Error

Posted on 2009-03-29
5
4,415 Views
Last Modified: 2013-11-25
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.

Open in new window

0
Comment
Question by:mustish1
  • 3
  • 2
5 Comments
 

Author Comment

by:mustish1
Comment Utility
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...............
0
 
LVL 68

Accepted Solution

by:
woolmilkporc earned 500 total points
Comment Utility
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


0
 

Author Comment

by:mustish1
Comment Utility
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.......

0
 

Author Comment

by:mustish1
Comment Utility
oops my fault. sorry.
0
 
LVL 68

Expert Comment

by:woolmilkporc
Comment Utility
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
 
0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Learn to move / copy / export exchange contacts to iPhone without using any software. Also see the issues in configuration of exchange with iPhone to migrate contacts.
Veeam Backup & Replication has added a new integration – Veeam Backup for Microsoft Office 365.  In this blog, we will discuss how you can benefit from Office 365 email backup with the Veeam’s new product and try to shed some light on the needs and …
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now