Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Problem in using report workfiles

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: Problem in using report workfiles
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

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Apr 28, 2009 10:34 pm    Post subject: Reply to: Problem in using report workfiles
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: 2150
Location: At my coffee table

PostPosted: Tue Apr 28, 2009 11:02 pm    Post subject:
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    Post subject:
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: 2150
Location: At my coffee table

PostPosted: Wed Apr 29, 2009 2:52 pm    Post subject:
Reply with quote

Why did you pick 64 for the recsize?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Wed Apr 29, 2009 2:55 pm    Post subject: Reply to: Problem in using report workfiles
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: 2150
Location: At my coffee table

PostPosted: Wed Apr 29, 2009 3:20 pm    Post subject: Re: Reply to: Problem in using report workfiles
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

Site Director


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

PostPosted: Thu Apr 30, 2009 2:07 am    Post subject:
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: 7995
Location: Bellevue, IA

PostPosted: Thu Apr 30, 2009 4:50 am    Post subject:
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: 2150
Location: At my coffee table

PostPosted: Thu Apr 30, 2009 6:39 am    Post subject:
Reply with quote

Not enough information, what is rickyc.mathew hiding?
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 Apr 30, 2009 7:54 am    Post subject:
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    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 Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts Easytrieve report shalem CA Products 4 Sun Feb 26, 2017 9:08 am
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us