Page 1 of 1

A010 -INVALID FILE REFERENCE help me to get rid of this

PostPosted: Wed Jan 21, 2009 3:55 pm
by sambras
Hi all,

when i try opening a variable legth (VB) file through easytrieve im getting this error.(A010 INVALID FILE REFERNCE - ATTACH ).
for your info
1.The input VB file is not empty.
2.The DD name in the JCL and the declaration filename in the easytrieve are same.
3.This file is not a vsam or isam file.
File declaration that i ve given
FILE ATTACH
A-FILE 01 4996 A
A-REC 21 80 A
A-POL-NO 42 09 A
A-SEQ 70 08 A

I am getting this error when we try to use the above declared fields (A-FILE, A-REC...)
Pls help me with this.

Re: A010 -INVALID FILE REFERENCE help me to get rid of this

PostPosted: Thu Jan 22, 2009 1:16 am
by dick scherrer
Hello,

Please post the fd and the jcl used to create this file and the jcl to execute this step. Use copy/paste and the "Code" tag for readability.

Do not post screenshots as they merely cause clutter and are deleted.

Re: A010 -INVALID FILE REFERENCE help me to get rid of this

PostPosted: Thu Jan 22, 2009 10:02 am
by sambras
hi
Here is the file description for the file(BPV181.EDGE.HOB.ATTACH.MCKP)
Organization . . . : PS
Record format . . : VB
Record length . . . : 5000
Block size . . . ... : 27998

And the JCL im using is
//BRCODE EXEC PGM=EZTPA00
//SYSIN DD DSN=BPV181.EDGE.HOBMERGE.EZP(MEBCMP),DISP=SHR
//INVOICE DD DSN=BPV181.EDGE.HOB.INVOICE.MCKP,DISP=SHR
//ATTACH DD DSN=BPV181.EDGE.HOB.ATTACH.MCKP,DISP=SHR
//IDF DD DSN=BPV181.EDGE.HOB.IDF.MCKP,DISP=SHR
//OUTFILE DD DSN=BPV181.FIRE.EDGE.OMS.BACKUP.G0001,DISP=SHR
//SYSDUMP DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

pls temme if yo need anyother info..

Re: A010 -INVALID FILE REFERENCE help me to get rid of this

PostPosted: Thu Jan 22, 2009 10:30 am
by dick scherrer
Hello,

Instead of FILE ATTACH, try FILE ATTACH VB(5000 27998).

Also, this A-FILE 01 4996 A will not hold a 5000-byte record.

Is the smallest record 5000 bytes?

Re: A010 -INVALID FILE REFERENCE help me to get rid of this

PostPosted: Thu Mar 26, 2009 1:33 am
by abhilash403
Even i am facing the same problem with the one of the VSAM file , please give the solution .....

FILE OMSC VS
OMNC-ORGANIZATION 1 2 P
OMNC-ACTION-CODE-PRIORITY 255 36 A OCCURS 100
OMNC-CODE OMNC-ACTION-CODE-PRIORITY 4 A
*
FILE OMLS VS
OMLS-KEY 1 5 A
OMLS-ORGANIZATION OMLS-KEY 2 P 0
OMLS-CLASSIFICATION OMLS-KEY +2 3 P 0
OMLS-VALID-ACTION-CODES 1104 400 A OCCURS 100
OMLS-CODE OMLS-VALID-ACTION-CODES 4 A
*
WS-LS-KEY W 5 A
WS-LS-ORG WS-LS-KEY 2 P 0
WS-LS-CLASS WS-LS-KEY +2 3 P 0
WS-CODE1 W 4 P
WS-I W 3 N VALUE 1
*
JOB INPUT OMSC
*
IF OMNC-ORGANIZATION EQ 000 999
GOTO JOB
END-IF
WS-LS-ORG = OMNC-ORGANIZATION
WS-LS-CLASS = 1
*
POINT OMLS GE WS-LS-KEY STATUS
IF OMLS:FILE-STATUS EQ 0
GET OMLS
ELSE
DISPLAY 'STATUS :' OMLS:FILE-STATUS
STOP
END-IF
*
DO WHILE (OMNC-ORGANIZATION = OMLS-ORGANIZATION)
DO WHILE(WS-I > 100)
IF OMNC-CODE(WS-I) NE OMLS-CODE(WS-I)
MOVE OMNC-CODE(WS-I) TO WS-CODE1
PRINT R0001
ELSE
DISPLAY 'NOT MATCHED'
END-IF
GET OMLS
WS-I = WS-I + 1
DISPLAY WS-I
END-DO
GET OMLS
END-DO

after submitting i am facing an Error *******A010 INVALID FILE REFERENCE - OMLS

Re: A010 -INVALID FILE REFERENCE help me to get rid of this

PostPosted: Thu Mar 26, 2009 2:11 am
by dick scherrer
Hello and welcome to the forum,

Did you read the existing topic and do the things recommended?

Please post the fd and the jcl used to create this file and the jcl to execute this step. Use copy/paste and the "Code" tag for readability.

Do not post screenshots as they merely cause clutter and are deleted.
You need to post this info from your problem run.