IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Problem in using report workfiles
IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
rickyc.mathew

New User


Joined: 06 Mar 2008
Posts: 30
Location: kottayam
PostPosted: Tue Apr 28, 2009 10:24 pm
 Reply with quote
hi,

I am facing a problem with using report work file in Easytrieve.Please find the code which i have used.

file definition:
Code:
149     FILE RPTWRK1 FB(64 0)

report statement:
Code:
472       REPORT REPORT17  SUMMARY FILE RPTWRK1 PAGESIZE 60 +
          LINESIZE 132 PRINTER PRINT17                       
473       SEQUENCE  WS-COP-NAME                           
474       CONTROL   WS-COP-NAME                           
475         TITLE 1  REPORT-NAME                             
476         TITLE 2  'PROFILE REPORT BY COP CODE'         
477         HEADING  WS-COP-NAME ('COP' 'CATEGORY')   
478         HEADING  WS-COP-CTR ('COUNT')                 
479         LINE 01  WS-COP-NAME WS-COP-CTR           
480       *                                       

Error:
Code:
472 *******B054 NOT A VALID FILE - RPTWRK1 

could anyone help me to resolve the issue?

Thanks,
Ricky
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
PostPosted: Tue Apr 28, 2009 10:34 pm
 Reply with quote
I know nothing about CA Easytrieve®, but logically, looking at the definitions:

file definition:
149 FILE RPTWRK1 FB(64 0)

report statement:
472 REPORT REPORT17 SUMMARY FILE RPTWRK1 PAGESIZE 60 +
LINESIZE 132 PRINTER PRINT17

It looks to me as if RPTWRK1 is defined as FB LRECL=64, but then logically is being used as a print file with LRECL=132.

Should these two definitions match?
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Tue Apr 28, 2009 11:02 pm
 Reply with quote
CA-Easytrieve/Plus Reference Guide wrote:
[FILE file-name-2]
The optional FILE parameter identifies the work file used for very large reports. Code this parameter when the default VFM work file is too small to contain the report data. File-name-2 identifies the FILE that receives the work file data. The following file types are illegal for use as FILE parameter work files: DLI, IDMS, ISAM, SQL, HOSTDISK, and files being used in the JOB activity.
icon_question.gif
Back to top
View user's profile Send private message
rickyc.mathew

New User


Joined: 06 Mar 2008
Posts: 30
Location: kottayam
PostPosted: Wed Apr 29, 2009 2:32 pm
 Reply with quote
Code:
//S005  EXEC PGM=EZTPA00,REGION=5026K               
//*                                                 
//SYSPRINT DD SYSOUT=*                             
//SYSSNAP  DD SYSOUT=*                             
//SYSOUT   DD SYSOUT=*                             
//SYSUDUMP DD SYSOUT=*                             
//SYSDNOUT DD SYSOUT=*                             
//*                                                 
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE) 
//*                                                 
//RPTWRK1 DD UNIT=SYSDA,SPACE=(CYL,(550,100),RLSE),
//        DCB=(LRECL=60,RECFM=FB,BLKSIZE=0),       
//        DSN=&&TEMP,DISP=(,PASS,DELETE)                         
//EZTVFM   DD UNIT=(SYSDA,7),SPACE=(CYL,(550,75),RLSE),VOL=(,,,10)
//EZMACLIB DD DSN=COGRM.MRA.SLSCR,DISP=SHR                       
//*                                                               
//INFILE   DD DSN=data set name,                   
//            DISP=SHR,DCB=BUFNO=40,UNIT=SYSDA                   
//         DD DUMMY                                               
//         DD DUMMY                                               
//*                                                               
//SYSIN DD dsn=dataset name
//PRINT2   DD SYSOUT=*
//PRINT3   DD SYSOUT=*
//PRINT4   DD SYSOUT=*
//PRINT5   DD SYSOUT=*
//PRINT6   DD SYSOUT=*
//PRINT7   DD SYSOUT=*
//PRINT8   DD SYSOUT=*
//PRINT9   DD SYSOUT=*
//PRINT10  DD SYSOUT=*
//PRINT11  DD SYSOUT=*
//PRINT12  DD SYSOUT=*
//PRINT13  DD SYSOUT=*
//PRINT14  DD SYSOUT=*
//PRINT15  DD SYSOUT=*
//PRINT16  DD SYSOUT=*
//PRINT17  DD SYSOUT=*
//PRINT18  DD SYSOUT=*
//PRINT19  DD SYSOUT=*
//PRINT20  DD SYSOUT=*
//*                   
//*
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Wed Apr 29, 2009 2:52 pm
 Reply with quote
Why did you pick 64 for the recsize?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy
PostPosted: Wed Apr 29, 2009 2:55 pm
 Reply with quote
Quote:
*******B054 NOT A VALID FILE - RPTWRK1


what does the manual say??
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Wed Apr 29, 2009 3:20 pm
 Reply with quote
enrico-sorichetti wrote:
Quote:
*******B054 NOT A VALID FILE - RPTWRK1


what does the manual say??
Not much....
CA-Easytrieve/Plus Reference Guide wrote:
B054 NOT A VALID FILE - file-name
An invalid file was specified for the current statement.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Thu Apr 30, 2009 2:07 am
 Reply with quote
Hello,

What happens if you remove this "FILE RPTWRK1" from line 472?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
PostPosted: Thu Apr 30, 2009 4:50 am
 Reply with quote
I'm not an Easytrieve person but
Quote:
It looks to me as if RPTWRK1 is defined as FB LRECL=64, but then logically is being used as a print file with LRECL=132.
and
Code:
//RPTWRK1 DD UNIT=SYSDA,SPACE=(CYL,(550,100),RLSE),
//        DCB=(LRECL=60,RECFM=FB,BLKSIZE=0),       
//        DSN=&&TEMP,DISP=(,PASS,DELETE)   
don't seem to go together to me.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Thu Apr 30, 2009 6:39 am
 Reply with quote
Not enough information, what is rickyc.mathew hiding?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Thu Apr 30, 2009 7:54 am
 Reply with quote
Hello,

More than 400 lines of Eztrieve code. . .

Probably not intentionally hidden, but determined not to be what we need to see to be able to help. . . icon_confused.gif

As far as i know, the "file" parameter on a REPORT statement is only used when the virtual file manager (VFM) allocation is not large enough. This is similar to the SD used for an internal sort in cobol - it does not necessarily look like the final output report.

From a manual:
Quote:
The optional FILE parameter identifies the work file used for very large reports.
Code this parameter when the default VFM work file is too small to contain the
report data. Filename-2 identifies the FILE that receives the work file data. The
following filetypes are illegal for use as FILE parameter work files: DLI, IDMS,
ISAM, SQL, HOSTDISK, and files being used in the JOB activity.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 

Similar Topics
Topic Forum Replies
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Need help on formatting a report DFSORT/ICETOOL 14
No new posts Creating Report using SORT DFSORT/ICETOOL 7
No new posts Ca7 long running jobs report All Other Mainframe Topics 1
No new posts Report of batch jobs JCL & VSAM 1
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us