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
 

 

Return code 10 in EZP while reporting

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

New User


Joined: 09 Jun 2006
Posts: 51

PostPosted: Mon Mar 03, 2014 2:31 pm    Post subject: Return code 10 in EZP while reporting
Reply with quote

I am trying to execute the below ezp which actually uses SEQUNCE, CONTROL and SUM statements on the fields to report the data. Few changes were done to this exisiting module to change the format and add new fields.

Code:

//J80XXXX EXEC PGM=CM01EZP
//STEPLIB  DD DSN=SYS5.COMTEST.LINKLIB,DISP=SHR               
//         DD DSN=SYSTEMS.LINKLIB,DISP=SHR                   
//EZTVFM   DD DATACLAS=MB050                                 
//MACRO    DD DISP=SHR,DSN=PDS.EZPMACRO                 
//SYSPUNCH DD DUMMY                                           
//SYSOUT   DD SYSOUT=*                                       
//SYSLST   DD SYSOUT=*                                       
//SYSPRINT DD SYSOUT=Y                                       
//SYSUDUMP DD SYSOUT=*                                       
//SYS001   DD DISP=SHR,DSN=CM165LT.MINESUB.TEMP.SRT
//REPORTA  DD DSN=CM165LT.APRP.SUMMARY.RV010B,     
//            DCB=(LRECL=150,RECFM=FB),DATACLAS=MB100,       
//            DISP=(NEW,CATLG,DELETE)                         


--------------------------------------------------------------------

The job is failing with the below error code. Not having clue on what the issue is. A display statement after the JOB statement is displayed equal to the no of the records in the input file. Please sugest if any thing is wrong.


Code:

FILE REPORTA PRINTER FB(150, 0)           
*                                         
JOB INPUT NULL START START-PROC           
*                                         
DISPLAY 'STARTED ...'                     
 GET SYS001                               
 IF (EOF SYS001)                         
   STOP                                   
 ELSE                                     
   IF AP-RP1 NUMERIC                     
     WS-AP-RP = WS-AP-RP + AP-RP1         
   ELSE                                   
     AP-RP1   = 0                         
   END-IF                                 
   IF SYSA-POL EQ ' '                     
      MISC = 0                           
   ELSE                                   
      MISC = 1                           
   END-IF                                    
   OUT-REC1 = OUT-REC                 
   PERFORM PRINT-REPORT-PROC           
 END-IF                               
*                                     
 PRINT-REPORT-PROC. PROC.             
 WS-AP-PREM   = 0                     
 WS-RP-PREM   = 0                     
 IF AP-RP  NUMERIC                     
   IF AP-RP GE 0                       
     WS-AP-PREM = AP-RP               
   ELSE                               
     WS-RP-PREM = AP-RP               
   END-IF                             
 ELSE                                 
   WS-AP-PREM = 0                     
   WS-RP-PREM = 0                     
 END-IF                               
 WS-NET-PREM = WS-AP-PREM + WS-RP-PREM
  PRINT REPORTA                                   
 *                                                 
  END-PROC.                                       
 START-PROC. PROC                                 
                                                   
       MOVE SYSDATE      TO WS-SYSDATE-LONG       
       DISPLAY WS-SYSDATE-MM1                     
       IF      WS-SYSDATE-MM1 =  01 02 03         
             PRT-TITLE-1 = 'TRUCK - 1ST QUARTER ' 
       ELSE-IF WS-SYSDATE-MM1 =  04 05 06         
             PRT-TITLE-1 = 'TRUCK - 2ND QUARTER ' 
       ELSE-IF WS-SYSDATE-MM1 =  07 08 09         
             PRT-TITLE-1 = 'TRUCK - 3RD QUARTER ' 
       ELSE-IF WS-SYSDATE-MM1 =  10 11 12         
             PRT-TITLE-1 = 'TRUCK - 4TH QUARTER ' 
       END-IF                                     
                                                   
  END-PROC                                         
REPORT REPORTA SPACES 1 PAGESIZE 500  SUMMARY LINESIZE 149  +     
 PRINTER  REPORTA  NOADJUST                                       
*                                                                 
SEQUENCE COUNTY COMPANY                                           
CONTROL FINAL NOPRINT  COUNTY  NOPRINT  COMPANY                   
SUM     POLCOUNT WS-AP-PREM WS-RP-PREM WS-NET-PREM                 
TITLE 1 COL 17 'QUARTERLY  PREMIUM'  +           
        COL 54 'CHANGE SUMMARY'                        +           
        COL 73 'CMS21'                                         
TITLE 2 COL 34  PRT-TITLE-1                                       
TITLE 3 ' '                                                       
LINE 1   '              '  COUNTY COMPANY POLCOUNT  WS-AP-PREM +   
WS-RP-PREM    WS-NET-PREM                                         
*                                                                 
AFTER-BREAK. PROC                                           
 IF LEVEL = 3                                               
* 455389                                                   
  IF AP-RP NUMERIC                                         
    NOP                                                     
  ELSE                                                     
     AP-RP = 0                                             
  END-IF                                                   
   PREM-GRAND-TOTAL  = PREM-GRAND-TOTAL  + AP-RP           
   WS-PREM-GRAND-TOTAL = PREM-GRAND-TOTAL                   
  END-IF                                                   
 END-IF                                                     
END-PROC                                                   
TERMINATION. PROC                                               
   DISPLAY '             '                                       
   DISPLAY '                 NET TOTAL AP RP AMOUNT   :'       +
                             WS-AP-RP                           
*                            WS-PREM-GRAND-TOTAL                 
   DISPLAY '             '                                       
END-PROC                                                         


Code:

03                                                                             
EZABX000 An error has occurred in program CM165EZ6.                             
EZABX001 The following messages provide diagnostic information.  Please         
         contact the person or persons responsible for maintaining this         
         application.  They may want to see this information or they may       
         want it printed.                                                       
         ###################### Diagnostic Information ######################   
EZABX003 The error occurred at 00.47 on 03/03/14.                               
EZABX007 Program CM165EZ6 ended with error code 00000010.                       
EZABX024 Program ended in SYNCSORT. Check report procedures. Check flow table. 
Back to top
View user's profile Send private message

picus_mf
Warnings : 1

New User


Joined: 09 Jun 2006
Posts: 51

PostPosted: Mon Mar 03, 2014 2:38 pm    Post subject:
Reply with quote

One more point related to this issue is,
when I submit the same program using the utility EZTPA00 it is working fine. But when I use this as the program name (PGM=EZPPROGRAM) after adding it to Endevor I am getting this issue. the type of element and the processor group is used correctly.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Mon Mar 03, 2014 2:39 pm    Post subject: Reply to: Return code 10 in EZP while reporting
Reply with quote

You've made the internal report-file bigger by adding things to the report. You've blown up in SyncSort. Probably not enough workspace/memory.

If you can't see the resolution from the sysout, post it please.
Back to top
View user's profile Send private message
picus_mf
Warnings : 1

New User


Joined: 09 Jun 2006
Posts: 51

PostPosted: Mon Mar 03, 2014 2:48 pm    Post subject:
Reply with quote

I have given SORKWK01 and SORTWK02 with dataclas=MB100 and tried again, still the same result. Below is the complete listing of SYSPRINT

Code:

EZABX000 An error has occurred in program CMZ65EZ6.                           
EZABX001 The following messages provide diagnostic information.  Please       
         contact the person or persons responsible for maintaining this       
         application.  They may want to see this information or they may     
         want it printed.                                                     
         ###################### Diagnostic Information ######################
EZABX003 The error occurred at 01.16 on 03/03/14.                             
EZABX007 Program CMZ65EZ6 ended with error code 00000010.                     
EZABX024 Program ended in SYNCSORT. Check report procedures. Check flow table.
EZABX018 The program status word at the time of the interrupt was:           
              PSW  * 478D0000 9B508DF6 00020006 00000000 * .....&.6........ *
EZABX019 The program registers at the time of the interrupt were:             
            R0-3   * 00000000 004619D8 1B5015A4 004618F0 * .......Q.&.u...0 *
            R4-7   * 0000CCC8 0000D05C 0000D3C4 1B5097A0 * ...H..}*..LD.&p. *
            R8-11  * 1B523F38 0000CC90 0000D720 1B5087A0 * ..........P..&g. *
           R12-15  * 0000D01C 00461988 1B509EB0 004619D0 * ..}....h.&.....} *
EZABX020 The program referred to the following files:                         
         File Name                 Record Address  Record Length  Status     
         EZTR001                      0041C3A0       95           Open       
         SYS001                       0041C098       400          End of file
EZABX022 The program referred to the following storage blocks:               
         BASE   Address                                                     
         12     0041C9F0                                                     
         14     0041C098                                                     
         16     0041C3A0                                                     
         17     0041C640                                                     
         18     0041C588                                                     
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Mon Mar 03, 2014 3:54 pm    Post subject: Reply to: Return code 10 in EZP while reporting
Reply with quote

Need the sysout from the step, with the WER messages. Any other messages that you see as well... it may also be a problem with the size of the Easytrieve VFM, but the messages will tell...
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 PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
No new posts DFHWS2LS return value divated CICS 4 Mon Nov 07, 2016 5:44 pm
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm


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