IBM Mainframe Forum

I WOULD APPRECIATE ANY ASSISTANCE WITH THIS PROBLEM.
I HAVE RESEARCHED IT HAVE NOT BEEN ABLE TO RESOLVE THIS ERROR.
I HAVE A RMM REPORTS JOB WITH THESE STEPS & RETURN CODES
PROCSTEP RC
S1DTCNV 00
S1WRITE 00
S2DTCNV 00
S2WRITE 00
S3DTCNV 00
S3WRITE 16
S4DTCNV 00
S4WRITE 00
ALL STEPS HAVE THE SAME REPORT EXTRACT FILE AS INPUT
THE S3WRITE STEP FAILS WITH MESSAGES:
FROM TOOLMSG:
ICE643I 0 WIDTH OF REPORT IS 0121 BYTES
ICE627I 0 DFSORT CALL 0002 FOR COPY FROM TEMP TO E35 EXIT TERMINATED
ICE602I 0 OPERATION RETURN CODE: 16
FROM DFSMSG:
ICE201I F RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE027A 3 END OF FIELD BEYOND MAXIMUM RECORD LENGTH
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 E7-K24705
ICE052I 3 END OF DFSORT
....
I CAN GET THE S3DTCNV-S3WRITE STEPS TO WORK IF I DELETE THE S1*-S2* STEPS
NO JCL CHANGED JUST DELETE THE PRIOR STEPS.
THIS I DO NOT UNDERSTAND
THE JCL FOR THE S3 STEPS IS:
//**** MOVEMENT REPORT BY LOCATION
//S3DTCNV EXEC PGM=IKJEFT01,PARM='%EDGRGDAT'
//SYSPROC DD DISP=SHR,DSN=SYS1.SEDGEXE1
//SYSTSPRT DD SYSOUT=*
//DATEFMT DD *
DATE PATTERN:MM/DD/YYYY
//INCLIN DD *
OPTION VLSHRT,VLSCMP
INCLUDE COND=((5,1,CH,EQ,C'X'),
AND,
(164,8,CH,NE,C' '),
AND,
(1326,5,CH,LT,C' 2'))
INREC FIELDS=(1,4,
156,8,C' ',
164,8,C' ',
9,6,C' ',
172,6,C' ',
809,44,C' ',
1336,6,C' ',
853,10,C' ',
1058,8,C' ',
119,10,C' ')
SORT FIELDS=(5,8,CH,A,
14,8,CH,A,
23,6,CH,A)
//INCLOUT DD DSN=&INCL,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80)
//SYSTSIN DD DUMMY
//S3WRITE EXEC PGM=ICETOOL,REGION=0M
//SYSPRINT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INDD DD DISP=SHR,DSN=DFRMM.REPORT.EXTRACT.DAILY
//OUTDD DD SYSOUT=* A
//TEMP DD DSN=&S3WRITE,UNIT=SYSDA,SPACE=(TRK,(5,25))
//TOOLIN DD *
SORT FROM(INDD) TO(TEMP) USING(INCL)
DISPLAY FROM(TEMP) LIST(OUTDD) LINES(80) -
TITLE(' RMMRPT3: MOVEMENT REPORT BY LOCATION') -
DATE(MD4/) TIME PAGE -
HEADER('VOLSER') ON(23,6,CH) -
HEADER('Fr Bin#') ON(30,6,CH) -
HEADER('Dataset Name') ON(37,44,CH) -
HEADER('To Bin#') ON(82,6,CH) -
HEADER('DSN CDATE') ON(89,10,CH) -
HEADER('CJOB Name') ON(100,8,CH) -
HEADER('EXP DATE') ON(109,10,CH) -
BTITLE('From Location To Dest') -
BCOUNT('Total VOLSER:') EDBCOUNT(U04) -
BREAK(5,18,CH) -
BTOTAL('') -
BLANK -
COUNT('Total VOLSER:') EDCOUNT(U04)
....
AS SUGGESTIONS OR EXPLANATIONS ARE APPRECIATED

Well, it's difficult to know what you're trying to do from the pieces you've shown, but I'll take a shot at trying to help you.

I'd guess that the ICE027A message for your S3WRITE step is telling you that you are trying to DISPLAY fields beyond the LRECL of your input records. Your input file appears to be DFRMM.REPORT.EXTRACT.DAILY and your furthest out DISPLAY field appears to be ON(109,10,CH) which would require an LRECL of at least 118. So I suspect that DFRMM.REPORT.EXTRACT.DAILY has an LRECL shorter than 118. But that's just a guess based on what you've shown. I'd need to see the complete TOOLMSG and DFSMSG messages to know for sure.

Without knowing more about what you're trying to do and seeing an example of input and output, an explanation of the rules, etc, I couldn't tell you how to do what you want.

Frank,
I appreciate your HELP.
A couple of comments for clarification:
- DFRMM.REPORT.EXTRACT.DAILY FORMAT IS VB-7004-27998
- If I run the job Standalone without the S1* & S2* steps and without any changes, It works
- Why it does not work with the other jobs which are other reports using the same EXTRACT file, I do not understand
- I can send to your email the entire JCL and report output, if this will help
Following are the entire TOOLMSG-DFSMSG messages:
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES AND MORE
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN
ICE630I 0 MODE IN EFFECT: STOP
SORT FROM(INDD) TO(TEMP) USING(INCL)
ICE606I 0 DFSORT CALL 0001 FOR SORT FROM INDD TO TEMP USING INCLCNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE: 00
DISPLAY FROM(TEMP) LIST(OUTDD) LINES(80) -
TITLE(' RMMRPT3: MOVEMENT REPORT BY LOCATION') -
DATE(MD4/) TIME PAGE -
HEADER('VOLSER') ON(23,6,CH) -
HEADER('Fr Bin#') ON(30,6,CH) -
HEADER('Dataset Name') ON(37,44,CH) -
HEADER('To Bin#') ON(82,6,CH) -
HEADER('DSN CDATE') ON(89,10,CH) -
HEADER('CJOB Name') ON(100,8,CH) -
HEADER('EXP DATE') ON(109,10,CH) -
BTITLE('From Location To Dest') -
BCOUNT('Total VOLSER:') EDBCOUNT(U04) -
BREAK(5,18,CH) -
BTOTAL('') -
BLANK -
COUNT('Total VOLSER:') EDCOUNT(U04)
ICE643I 0 WIDTH OF REPORT IS 0121 BYTES
ICE627I 0 DFSORT CALL 0002 FOR COPY FROM TEMP TO E35 EXIT TERMINATED
ICE602I 0 OPERATION RETURN CODE: 16
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16
-------------------------------------------------------------
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 14:32 ON TUE SEP 01, 2009 -
OPTION VLSHRT,VLSCMP
INCLUDE COND=((5,1,CH,EQ,C'X'))
INREC FIELDS=(1,4,
156,8,C' ',
9,6,C' ',
809,44,C' ',
1326,5,C' ',
853,10,C' ',
863,6,C' ',
322,8,C' ',
172,6,C' ',
357,8,C' ')
SORT FIELDS=(5,8,CH,A,
14,6,CH,A,
66,5,CH,A)
ICE146I 0 END OF STATEMENTS FROM INCLCNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=INCL,SORTIN=INDD,S*
ORTOUT=TEMP,DYNALLOC
ICE201I F RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 C9-BASE E5-K35433 E6-K34782 E7-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 CESRPTDY.S3WRITE . , INPUT LRECL = 7004, BLKSIZE = 27998, TYPE = VB
ICE093I 0 MAIN STORAGE = (MAX,33554432,33554432)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (33030144,33030144)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=Y,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=33554432,MAXLIM=524288,MINLIM=262144,EQUALS=Y,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(TEMPS ,004),ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=49152,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR TEMP
ICE084I 0 EXCP ACCESS METHOD USED FOR INDD
ICE750I 0 DC 11701492 TC 0 CS DSVNN KSZ 23 VSZ 23
ICE752I 0 FSZ=11701492 BC IGN=0 E AVG=53 0 WSP=230 C DYN=0 0
ICE751I 1 D8-K24705 D4-K24705 EA-K24705 F1-K24705 E8-K90013
ICE090I 0 OUTPUT LRECL = 114, BLKSIZE = 27998, TYPE = VB (SDB)
ICE171I 0 SORTOUT LRECL OF 114 IS DIFFERENT FROM SORTIN(NN) LRECL OF 7004 - RC=0
ICE055I 0 INSERT 0, DELETE 10523
ICE054I 0 RECORDS - IN: 14337, OUT: 3814
ICE134I 0 NUMBER OF BYTES SORTED: 6132912
ICE098I 0 AVERAGE RECORD LENGTH = 1608 BYTES
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 480K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 14:32 ON TUE SEP 01, 2009 -
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=TEMP,COPY,NOCHECK
INREC FIELDS=(1,4,5,18,23,6,30,6,37,44,82,6,89,10,100,8,109,10)
MODS E35=(ICE35DU,12288)
ICE201I F RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE027A 3 END OF FIELD BEYOND MAXIMUM RECORD LENGTH
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 E7-K24705
ICE052I 3 END OF DFSORT

Again, you've shown me just pieces of what you're doing. I don't know what S1 and S2 do. Your statement that "DFRMM.REPORT.EXTRACT.DAILY FORMAT IS VB-7004-27998" does not correlate with the error message so perhaps that really isn't the input data set for that run.

I can send to your email the entire JCL and report output, if this will help

Yes, please send your entire JCL source and your JES output (all messages) to me (yaeger@us.ibm.com) offline as a .txt file and I'll take a look. Also, please tell me the RECFM and LRECL of each data set you're using. Please put "DFSORT" somewhere in your Subject line to catch my attention.