|
View previous topic :: View next topic
|
| Author |
Message |
picus_mf
Warnings : 1
New User
Joined: 09 Jun 2006
Posts: 52
|
|
|
|
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 |
|
 |
picus_mf
Warnings : 1
New User
Joined: 09 Jun 2006
Posts: 52
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
picus_mf
Warnings : 1
New User
Joined: 09 Jun 2006
Posts: 52
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| 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 |
|
|
|
|
