IBM Mainframe Forum

[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.

[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.

[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..

[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?

[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

[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.