MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Easytrieve Report Generation Problem

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
mogan_kumar
Beginner


Joined: 30 Apr 2005
Posts: 2
Topics: 1
PostPosted: Sat Apr 30, 2005 11:19 pm    Post subject: Easytrieve Report Generation Problem Reply with quote
We are Getting S0C1 Abend in Easytrieve while generating Report when the Report Length exceeds 133 Characters.This Problem we are coming across when we compile and Lind edit the Easytrieve Program and use the same as a Load Module.

The Same program when we use the Interpreter EZTPA00 and run directly without creating a Load Module it is Generating Report withot any problems.

Can anyone help us what parameter we need to Pass to the Complier or whether any parameter we need to Inlcude in The PARM option of the Easytrieve Program.

The Easytrieve program is below:

Code:

PARM LINK(TESTPGM R) LIST (NOFILE NOPARM)
*
FILE PRINT01 PRINTER  FB (200 200)
*
FILE INFILE
IN-AGENT    1 10 A
IN-NAME     11 90 A
IN-ADDR     101 80 A
IN-AMT      181 6 P2

JOB INPUT INFILE

PRINT NEG-BAL-RPT

REPORT NEG-BAL-RPT PRINTER PRINT01
LINE 1 IN-AGENT +
           IN-NAME   +
           IN-ADDR    +
           IN-AMT

 END

Compile and Lind edit Jcl used:

//JOBCARD
//*--------------------------------------------------------------------
//*  COMPILE THE EZ PLUS MODULE
//*--------------------------------------------------------------------
//EZCOMP   EXEC PGM=EZTPA00,REGION=0K
//STEPLIB   DD DSN=SYS2.EZTR.R62.CAILIB.ALGOPT,DISP=SHR
//          DD DSN=SYS1.COB2COMP,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//EZTVFM    DD UNIT=SYSALLDA,SPACE=(CYL,(5,2))
//SYSLIB    DD DSN=XXX.YYY,DISP=SHR
//SYSIN     DD DSN=XXX.WWW(TESTPGM),DISP=SHR
//SYSLIN    DD UNIT=SYSALLDA,SPACE=(CYL,(5,2)),DISP=(,PASS),
//            DSN=&&SYSLIN
//*--------------------------------------------------------------------
//*------------------------------------------------------------
//*  LINK EDIT THE EZPLUS MODULE
//*------------------------------------------------------------
//LINK     EXEC PGM=IEWL,REGION=2048K,COND=(12,LE)
//SYSPRINT  DD SYSOUT=*,DCB=BUFNO=10
//SYSUT1    DD UNIT=SYSALLDA,DISP=NEW,SPACE=(CYL,(2,2))
//SYSLIB    DD  DSN=SYS1.COB2LIB,DISP=SHR
//          DD  DSN=XXXX.LLL,DISP=SHR
//SYSLIN    DD DSN=&&SYSLIN,DISP=(OLD,DELETE)
//SYSLMOD   DD DSN=XXXX.LLL(TESTPGM),DISP=SHR
//*------------------------------------------------------------
//*

Compilation and Lind edit is successful but when we try to execute the Program we are getting S0C1.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose
PostPosted: Mon May 02, 2005 7:31 am    Post subject: Reply with quote
Mogan kumar,

Why do you have a COBOL library in your Steplib of compile and link steps? Are you calling a cobol pgm in your easytrieve?

Also

Code:

//SYSLIB DD DSN=SYS1.COB2LIB,DISP=SHR
//       DD DSN=XXXX.LLL,DISP=SHR   <---- what is this?


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
mogan_kumar
Beginner


Joined: 30 Apr 2005
Posts: 2
Topics: 1
PostPosted: Fri May 06, 2005 6:39 am    Post subject: Reply with quote
I tried without those Libraries but still i am getting the same error while execution.

Actually if those Libraries are the Problems then the Report will not be generated when the Length is below 133 charaters.

When the length in the Report exceeds 133 characters then only the abend is coming when we use the Compiled and Link Easytrieve Program.

When we use the same Intepreted Easytrieve Program version then this problem is not coming.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group