Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
B054- invalid file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
Achroo

New User


Joined: 07 Jan 2008
Posts: 7
Location: noida

PostPosted: Thu Feb 28, 2008 12:06 pm    Post subject: B054- invalid file
Reply with quote

I have declared a file as table for sequential file, then i am facing this error in SEARCH statement ....
FILE cdd
..
..
FILE xyz
abc
..
...
FILE XYZ1 table
arg ..
desc ..

CDD1 AND W-CDD ARE WORKING STORAGE VARAIBLE

sort xyz to XYZ1 using abc
job input cdd
SEARCH XYZ1 WITH CDD1 GIVING W-CDD



ABend with CC16 is coming in above line

TIA
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Feb 28, 2008 8:32 pm    Post subject:
Reply with quote

Hello,

It will probably help if you post more of the code as well as the execute jcl for this run.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Thu Feb 28, 2008 8:37 pm    Post subject: Re: B054- invalid file
Reply with quote

Achroo wrote:
ABend with CC16 is coming in above line
CA Products?
What is the environment?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Feb 28, 2008 9:19 pm    Post subject: Reply to: B054- invalid file
Reply with quote

Easytrieve
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Thu Feb 28, 2008 9:40 pm    Post subject:
Reply with quote

Yea, the criptic example hid that from me....
What is the description of the variables involved?
XYZ1?
arg?
desc?
CDD1?
W-CDD?
Back to top
View user's profile Send private message
lcmontanez

New User


Joined: 19 Jun 2007
Posts: 50
Location: Chicago

PostPosted: Fri Feb 29, 2008 2:06 am    Post subject:
Reply with quote

Did you load a value into CDD1 (WS field not input field).

need more info.
Back to top
View user's profile Send private message
Achroo

New User


Joined: 07 Jan 2008
Posts: 7
Location: noida

PostPosted: Fri Mar 07, 2008 10:49 am    Post subject:
Reply with quote

FILE EMP
EMP-NO 1 5 A
EMP-NAME 6 10 A
EMP-DEP-NO 16 5 A
EMP-SAL 21 4 P 2
FILE EMPS
EMPS-NO 1 5 A
EMPS-NAME 6 10 A
EMPS-DEP-NO 16 5 A
EMPS-SAL 21 4 P 2
FILE DEP
DEP-NO 1 5 A
DEP-NAME * 8 A
DEP-ADDR * 20 A
FILE DEPS
DEPS-NO 1 5 A
DEPS-NAME * 8 A
DEPS-ADDR * 20 A
FILE DEPT TABLE
ARG 1 5 A
DESC 6 8 A
WS-DEP-NO W 5 A
FIN-DEP-NO W 5 A
FIN-DEP-NAME W 8 A
FIN-MIN-SAL W 4 P 2
FIN-MIN-NO W 5 A
FIN-MAX-SAL W 4 P 2
FIN-MAX-NO W 5 A
FIN-AVG W 4 P 2
WS-SUM W 5 P 2
WS-FLAG2 W 1 A VALUE '0'
WS-COUNT W 2 P 0
WS-COUNT1 W 2 P 0
SORT EMP TO EMPS +
USING(EMP-DEP-NO)
SORT DEP TO DEPS +
USING(DEP-NO)
SORT DEPS TO DEPT +
USING(DEPS-NO)
JOB INPUT EMPS +
FINISH(END-REP)
MOVE EMPS-DEP-NO TO WS-DEP-NO
IF WS-FLAG2 NE '1'
WS-COUNT1 = 0
MOVE EMPS-DEP-NO TO FIN-DEP-NO
END-IF
IF FIN-DEP-NO NE WS-DEP-NO OR WS-FLAG2 NE '1'
IF WS-COUNT NE 0 AND WS-FLAG2 EQ '1'
FIN-AVG = WS-SUM / WS-COUNT
END-IF
IF WS-FLAG2 EQ '1'
PRINT RPT-EMP1
WS-COUNT1 = WS-COUNT1 + WS-COUNT
END-IF
MOVE '1' TO WS-FLAG2
WS-COUNT = 0
MOVE SPACES TO FIN-MIN-NO, FIN-MAX-NO
WS-SUM = 0
FIN-MIN-SAL = EMPS-SAL
FIN-MAX-SAL = EMPS-SAL
END-IF
PERFORM DEP-CALC-PARA
IF NOT EOF EMPS
GO TO JOB
END-IF
END-REP. PROC
PRINT RPT-EMP2
END-PROC
DEP-CALC-PARA. PROC
SEARCH DEPT WITH WS-DEP-NO GIVING FIN-DEP-NAME
..............



SYSPRINT DUMP

3/06/08 23.18.36 CA-EASYTRIEVE PLUS-6.4 0311
Computer Associates - Common Services Installa
PROGRAMS AND ALL SUPPORTING MATERIALS COPYRIGHT (C) 1982, 1996 BY COMPUTER ASSOC
69 *******B054 NOT A VALID FILE - DEPT
*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)
Back to top
View user's profile Send private message
lcmontanez

New User


Joined: 19 Jun 2007
Posts: 50
Location: Chicago

PostPosted: Fri Mar 07, 2008 7:51 pm    Post subject:
Reply with quote

There are line numbers on the left side of each command line in the sysout. Which line is 69?
Back to top
View user's profile Send private message
lcmontanez

New User


Joined: 19 Jun 2007
Posts: 50
Location: Chicago

PostPosted: Fri Mar 07, 2008 7:57 pm    Post subject:
Reply with quote

In addition, there are counts at the end of the sysout. Can you please
display them.

Did the sort load the DEPT (the count should verify this)?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Mar 11, 2008 8:31 am    Post subject:
Reply with quote

Hello,

Posting all of the jcl would probably help as well.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us