IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error While using SPLIT function
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
ksk

Active User


Joined: 08 Jun 2006
Posts: 355
Location: New York
PostPosted: Wed Jun 25, 2008 8:28 am
 Reply with quote
Frank,

I sent the JCL from my personal Email ID.

KSK
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Wed Jun 25, 2008 9:38 pm
 Reply with quote
I also need the //TOOLMSG and //DFSMSG messages from the run.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 355
Location: New York
PostPosted: Thu Jun 26, 2008 9:27 am
 Reply with quote
Frank,

Following is the TOOLMSG:

Code:

ICE606I 0 DFSORT CALL 0002 FOR COPY FROM T1       TO C1       USING CTL2CNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE:  00                                           
                                                                               
             COPY FROM(IN) USING(CTL3)                                         
ICE606I 0 DFSORT CALL 0003 FOR COPY FROM IN       TO OUTFIL   USING CTL3CNTL TERMINATED
ICE602I 0 OPERATION RETURN CODE:  16                                           
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16                   


Following is the DFSORT message:

Code:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0003                               
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 23:32 ON WED JUN
            OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,                             
                 OUT05,OUT06,OUT07,OUT08,OUT09,                                 
                 OUT10,OUT11,OUT12,OUT13,OUT14,                                 
                 OUT15,OUT16,OUT17,OUT18,OUT19,OUT20,                           
                 OUT21),                                                       
          $                                                                     
ICE001A 0 TEXT BEGINS IN WRONG COLUMN                                         
            SPLIT1R=00546055                                                   
ICE146I 0 END OF STATEMENTS FROM CTL3CNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                 
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL3,SORTIN=IN,DYN*
                         ALLOC                                                 
          SORT FIELDS=COPY                                                     

ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E7-K24705 
ICE052I 3 END OF DFSORT                                     



KSK
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Thu Jun 26, 2008 9:45 pm
 Reply with quote
No, I need see all of the TOOLMSG messages and all of the DFSMSG messages for the entire job. You sent me a job with three COPY operators. You only show pieces of the messages above. I need to see the complete messages for ALL of the COPY operators.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 355
Location: New York
PostPosted: Fri Jun 27, 2008 12:03 pm
 Reply with quote
Frank,

Following is the all of the TOOLMSG:
Code:

********************************* TOP OF DATA **********************************
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                                                 
                                                                               
             COPY FROM(IN) USING(CTL1)                                         
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN       TO OUTFIL   USING CTL1CNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE:  00                                           
                                                                               
             COPY FROM(T1) TO(C1) USING(CTL2)                                   
ICE606I 0 DFSORT CALL 0002 FOR COPY FROM T1       TO C1       USING CTL2CNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE:  00                                           

             COPY FROM(IN) USING(CTL3)                                         
ICE606I 0 DFSORT CALL 0003 FOR COPY FROM IN       TO OUTFIL   USING CTL3CNTL TERMINATED
ICE602I 0 OPERATION RETURN CODE:  16                                           
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16                 
******************************* BOTTOM OF DATA ********************************




Following is the all of the DFSMSG:

Code:


********************************* TOP OF DATA **********************************
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 23:36 ON THU JUN
             OUTFIL FNAMES=T1,REMOVECC,NODETAIL,                               
             TRAILER1=(COUNT=(M11,LENGTH=8))                                   
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,DYN*
                         ALLOC                                                 
          SORT FIELDS=COPY                                                     
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE   E5-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED   
ICE088I 0 SSY361AX.STEP10  .        , INPUT LRECL = 244, BLKSIZE = 27816, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,4194304,4194304)                                 
ICE156I 0 MAIN STORAGE ABOVE 16MB = (4284400,4136944)                           
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC0 ,VLSCMP=N,SZERO=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=Y,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=16384,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=16384,ARESINV=131072,OVERRGN=16384,CINV=Y,CFW=N,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=0   ,ODMAXBF=2097152,SOLRF=N,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0                                                 
ICE084I 0 EXCP ACCESS METHOD USED FOR IN                                       
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 22528, ABOVE 16M = 2112512     
ICE210I 0 T1       : EXCP USED, LRECL = 244, BLKSIZE = 27816, TYPE = FB   (SDB)
ICE751I 1 EF-K10929 CB-K90000 F0-Q84357 E8-K24705                             
ICE055I 0 INSERT 0, DELETE 0                                                   
ICE054I 0 RECORDS - IN: 11467157, OUT: 11467157                               
ICE227I 0 T1       : DELETED = 11467157, REPORT = 1, DATA = 0                 
ICE228I 0 T1       : TOTAL IN = 11467157, TOTAL OUT = 1                       
ICE174I 0 NO DATA RECORDS FOR AN OUTFIL DATA SET - RC=0                       
ICE052I 0 END OF DFSORT                                                       
1ICE200I 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 A
 ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 23:39 ON THU JU
0             OUTREC BUILD=(2X,C'SPLIT1R=',                                     
              1,8,ZD,DIV,+21,                                                   
              TO=ZD,LENGTH=8,80:X)                                             
 ICE146I 0 END OF STATEMENTS FROM CTL2CNTL - PARAMETER LIST STATEMENTS FOLLOW   
           DEBUG NOABEND,ESTAE                                                 
           OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL2,SORTIN=T1,SOR*
                          TOUT=C1,DYNALLOC                                     
           SORT FIELDS=COPY                                                     
 ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
 ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE   E5-K24705
 ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED   
 ICE088I 0 SSY361AX.STEP10  .        , INPUT LRECL = 244, BLKSIZE = 27816, TYPE
 ICE093I 0 MAIN STORAGE = (MAX,4194304,4194304)                                 
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (4284400,4136944)                         
 ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC0 ,VLSCMP=N,SZERO=Y
 ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
 ICE129I 0 OPTIONS: VIO=Y,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
 ICE130I 0 OPTIONS: RESALL=16384,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKP
 ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=16384,ARESINV=131072,OVERRGN=16384,C
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXIT
 ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=0   ,ODMAXBF=0,SOLRF=N,VLLONG=N,VSAM
 ICE235I 0 OPTIONS: NULLOUT=RC0                                                 
 ICE084I 0 EXCP ACCESS METHOD USED FOR C1                                       
 ICE084I 0 EXCP ACCESS METHOD USED FOR T1                                       
 ICE751I 1 EF-K10929 F0-Q84357 E8-K24705                                       
 ICE090I 0 OUTPUT LRECL = 244, BLKSIZE = 27816, TYPE = FB   (SDB)               
 ICE055I 0 INSERT 0, DELETE 0                                                   
 ICE054I 0 RECORDS - IN: 1, OUT: 1                                             
 ICE052I 0 END OF DFSORT                                                       
1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0003                             
 ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                               
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
 ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 23:39 ON THU JU
0            OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,                           
                  OUT05,OUT06,OUT07,OUT08,OUT09,                               
                  OUT10,OUT11,OUT12,OUT13,OUT14,                               
                  OUT15,OUT16,OUT17,OUT18,OUT19,OUT20,                         
                  OUT21),                                                       
           $                                                                   
 ICE001A 0 TEXT BEGINS IN WRONG COLUMN                                         
             SPLIT1R=00546055                                                   
 ICE146I 0 END OF STATEMENTS FROM CTL3CNTL - PARAMETER LIST STATEMENTS FOLLOW   
           DEBUG NOABEND,ESTAE                                                 
           OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL3,SORTIN=IN,DYN*
                          ALLOC                                                 
           SORT FIELDS=COPY                                                     
 ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E7-K24705                   
 ICE052I 3 END OF DFSORT                                                       
******************************** BOTTOM OF DATA ********************************

Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Fri Jun 27, 2008 9:14 pm
 Reply with quote
Ok, I guessed what the problem was, but this allowed me to confirm it.

The 80:X doesn't do any good because your System Programmers chose to change DFSORT's shipped default of SOLRF=YES to SOLRF=NO. This change is NOT recommended. SOLRF=NO tells DFSORT to use the input LRECL for output rather than the reformatted length which is not a good idea. With SOLRF=NO, the 80:X in INREC is ignored and the output is set to 244 instead of 80. So your DD * control statements have an LRECL of 80, but your concatenated C1 record has an LRECL of 244 instead of 80.

With the shipped default of SOLRF=YES, this wouldn't happen. I always assume people leave the shipped default alone so it takes a while before I think of this possibility.

I don't know why your System Programmers changed the default but it will probably cause problems for your site. You might want to ask them about this.

At any rate, you should be able to fix things up by overriding their bad choice with:

Code:

//DFSPARM DD *
   OPTION SOLRF
/*
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Sat Jun 28, 2008 6:32 am
 Reply with quote
Hi Frank,

just curious, why have a default if it's not recommended ?


Gerry
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 355
Location: New York
PostPosted: Mon Jun 30, 2008 10:17 am
 Reply with quote
Hi Frank,

Thanks for your detailed explanation on my problem. When I overrode SOLRF option, my JOB got executed successfully.

Can you please let me know what could be the other impacts due to this SOLRF change? If there is any document or link to explain about the impact, please provide me the same.

Once again thanks,
KSK
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Mon Jun 30, 2008 9:10 pm
 Reply with quote
Quote:
just curious, why have a default if it's not recommended ?


Because some of our customers, especially those in a particular country, always require that we give them a way to run things as they used to run whether it makes sense or not.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Mon Jun 30, 2008 9:14 pm
 Reply with quote
Quote:
Can you please let me know what could be the other impacts due to this SOLRF change? If there is any document or link to explain about the impact, please provide me the same.


SOLRF=YES/NO is documented in "z/OS DFSORT Installation and Customization" at:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CI00/2.2.7?DT=20031124122307

Do a find for SOLRF
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 355
Location: New York
PostPosted: Tue Jul 01, 2008 9:26 am
 Reply with quote
Thanks Frank for the information.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL Goto page 1, 2  Next

 

Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts Calling an Open C library function in... CICS 1
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us