Re: Declaration of INDEXED file
- From: "Pete Dashwood" <dashwood@xxxxxxxxxxxxxx>
- Date: Tue, 28 Jun 2005 22:59:13 +1200
Thought about OPENing it?
Can we see the code, or is this "no clues" help you are requesting :-)?
Pete.
"Volker" <envo_nutznetz@xxxxxxxxxxxxxxxx> wrote in message
news:d9oikn.2rg.1@xxxxxxxxxxxxxxxxxxxxxxxxx
> Hi,
>
> I'm trying to code a small program to work with a indexed file by means
> of the Compaq (HP) Cobol on VMS. Here is what happens when compiling.
> Any idea what I did wrong here? I was quite sure that this is the right
> way to define an indexed file, it is also correct according to the
> user's manual. Does anyone know what the compiler complains about
> exactly? TIA.
>
> [...]
> FILE-CONTROL.
> SELECT ACCFILE ASSIGN TO "ACC.DAT"
> 1
> %COBOL-F-REANOLCLH, (1) INVALID KEY clause, AT END clause, or USE
> procedure required for READ on file
> %COBOL-F-WRINOLCLH, (1) INVALID KEY clause or USE procedure required for
> WRITE on file
> %COBOL-F-REWNOLCLH, (1) INVALID KEY clause or USE procedure required for
> REWRITE on file
> %COBOL-F-DELNOLCLH, (1) DELETE on file requires INVALID KEY clause or
> USE procedure
>
> ORGANIZATION IS INDEXED
> ACCESS MODE IS RANDOM
> RECORD KEY IS ACC-KEY
> FILE STATUS IS W-FILE-STATUS.
>
> DATA DIVISION.
> FILE SECTION.
> FD ACCFILE LABEL RECORD IS STANDARD.
> 01 ACC-REC.
> 05 ACC-KEY.
> 10 ACC-YEAR PIC 9(04).
> 10 ACC-NBR PIC 9(04).
> 05 [...]
>
> WORKING-STORAGE SECTION.
> 01 W-FILE-STATUS PIC X(02).
> [...]
>
> Further down e.g. the READ is coded like: "READ ACCFILE INVALID KEY MOVE
> "F" TO W-KZ.
>
>
>
.
- References:
- Declaration of INDEXED file
- From: Volker
- Declaration of INDEXED file
- Prev by Date: VisOC and /SUBSYSTEM:CONSOLE
- Next by Date: Sequential File
- Previous by thread: Re: Declaration of INDEXED file
- Next by thread: free reports tool
- Index(es):
Relevant Pages
|
