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
 

 

Error While using SPLIT function
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Fri Jun 06, 2008 1:33 pm    Post subject: Error While using SPLIT function
Reply with quote

Hi,

When I am giving following card, it's giving error.

Code:
//CTL3CNTL DD *                                   
 OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,           
      OUT05,OUT06,OUT07,OUT08,OUT09,               
      OUT10,OUT11,OUT12,OUT13,OUT14,               
      OUT15,OUT16,OUT17,OUT18,OUT19,OUT20,         
      OUT21),                                     
//   DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)     


Code:
//TOOLIN DD *                       
  COPY FROM(IN) USING(CTL1)         
  COPY FROM(T1) TO(C1) USING(CTL2) 
  COPY FROM(IN) USING(CTL3)         
/*                                 


Error is:

Code:
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 - 03:51 ON FRI 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=00431217                                                   


If I move Outfil one colomn before, giving SYNTAX error.

Please help me

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

ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Fri Jun 06, 2008 3:17 pm    Post subject:
Reply with quote

In above requirement I have to split input file into 21 files. I have given other statements as shown below.

Code:
//CTL1CNTL DD *                         
  OUTFIL FNAMES=T1,REMOVECC,NODETAIL,   
  TRAILER1=(COUNT=(M11,LENGTH=8))       
/*                                     
//CTL2CNTL DD *                         
  OUTREC BUILD=(2X,C'SPLIT1R=',         
  1,8,ZD,DIV,+21,                       
  TO=ZD,LENGTH=8,244:X)                 
/*                                     


Output file will be 244 record length.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Jun 06, 2008 5:19 pm    Post subject:
Reply with quote

Hi,
can you show what is in
Code:
//   DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)
and the format of the file.


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

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Jun 06, 2008 9:52 pm    Post subject:
Reply with quote

Code:
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 - 03:51 ON FRI 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=00431217


The message indicates there's a nonblank character in position 1 of the 'OUT21),' record or possibly in a record before the SPLIT1R record in C1 (if there is such a record - it's difficult to tell from what you've posted). It may be that it's a nonprintable character so you can't see that it's nonblank. Try using HEX ON to see it, or just make sure there are blanks in all of the columns before 'OUT21),' or all blanks in any line you have before the SPLIT1R line in C1.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Wed Jun 11, 2008 1:36 pm    Post subject:
Reply with quote

Hi All,

Thanks for your responses. I splitted the input file into 21 files using INCLUDE by providing values instead of SPLIT function.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Wed Jun 11, 2008 3:32 pm    Post subject:
Reply with quote

Hi ksk,
that doesn't address the original problem, any reason not to reply to the asked questions, especially Frank's ones.

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

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Thu Jun 12, 2008 6:08 pm    Post subject:
Reply with quote

Gerry,

As I am not going to execute SPLIT function for now, I have not analysed and given the error. I will come back once I deliver my work.

It would be useful for me also to learn new things.

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

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Tue Jun 17, 2008 4:46 pm    Post subject:
Reply with quote

Hi Frank,

Following is my code for C1 and Control card.

Code:

000055 //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)           
000056 //C1 DD DSN=&&C1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)           
000057 //CTL3CNTL DD *                                                     
000058   OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,OUT05,OUT06,OUT07,OUT08,   
000059        OUT09,OUT10,OUT11,OUT12,OUT13,OUT14,OUT15,OUT16,OUT17,OUT18, 
000060        OUT19,OUT20,OUT21),                                           
000061 //   DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)                       
000062 //*                                                                 


I checked with HEX ON but coudn't find any non-blank characters.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jun 17, 2008 9:36 pm    Post subject:
Reply with quote

This doesn't match the original control statements you showed with the error. In that post you had OUT21 on a line by itself. Here you show OUT21 on a line with OUT19 and OUT20. So I can't tell if this is even related to the other problem. I can't hit a moving target.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Wed Jun 18, 2008 9:58 am    Post subject:
Reply with quote

Hi Frank,

Even with the above code also I was getting the same error. I have tested again with my first posted code as shown below.

Code:

//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS) 
//C1 DD DSN=&&C1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS) 
//CTL3CNTL DD *                                             
  OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,                   
       OUT05,OUT06,OUT07,OUT08,OUT09,                       
       OUT10,OUT11,OUT12,OUT13,OUT14,                       
       OUT15,OUT16,OUT17,OUT18,OUT19,OUT20,                 
       OUT21),                                             
//   DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)               


And the error is as shown below.

Following is the DFSMSG message:

Code:

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 - 00:08 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=02866789                                                   
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,DY
                         ALLOC                                                 
          SORT FIELDS=COPY                                                     


Following is the message from TOOLMSG:

Code:

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                                           


Regards,
KSK
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Jun 18, 2008 12:37 pm    Post subject:
Reply with quote

In your first code snippet you show the OUT21 as

Code:
  OUT21),


followed by a line of JCL. This looks like a missing continuation.

Your job's DFSMSG output, however shows the OUT21), followed by a line with SPLIT1R.

Regards,
Garry
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jun 18, 2008 7:57 pm    Post subject:
Reply with quote

Hello,

The continuation is in the concatenated dataset named in the "followed by a line of JCL.".
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Jun 18, 2008 9:11 pm    Post subject:
Reply with quote

ksk,

The only situation that would explain the TEXT BEGINS IN WRONG COLUMN error message is a nonblank character in column 1 of the OUT21 line. I'm guessing you have a nonblank character in column 1 even though you claim you don't.

If you want to pursue this, e-mail me (yaeger@us.ibm.com) your JCL and control statements as a text file and I'll take a look.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Thu Jun 19, 2008 8:44 pm    Post subject:
Reply with quote

Frank,

I have sent SORT Split JCL to the above mention ID from my personal Mail ID.

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

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Thu Jun 19, 2008 9:26 pm    Post subject:
Reply with quote

I did not receive your e-mail. Are you sure you spelled my name right (yaeger, not yeager)? Try sending it again. Please put DFSORT somewhere in your Subject line to catch my attention.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Jun 20, 2008 12:45 am    Post subject:
Reply with quote

I received your note and I was able to figure out what's going on.

You have:

Code:

//CTL2CNTL DD *                   
   OUTREC BUILD=(2X,C'SPLIT1R=',   
   1,8,ZD,DIV,+21,                 
   TO=ZD,LENGTH=8,244:X)           
/*                                 


This creates a SPLIT1R=n DFSORT control statement, but since you have 244:X, it creates it as a 244 byte record. It should be an 80 byte record. Change 244:X to 80:X and the problem will go away.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Mon Jun 23, 2008 7:01 pm    Post subject:
Reply with quote

Frank,

I changed it to 80:X but received same error.

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

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Jun 23, 2008 8:10 pm    Post subject:
Reply with quote

Resend all of the information for the new run to yaeger@us.ibm.com and skolusu@us.ibm.com so we can take a look.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Tue Jun 24, 2008 3:39 pm    Post subject:
Reply with quote

Frank,

I am sending here the changed code. I will send the total code from my personal E-mail ID.

Code:

//CTL2CNTL DD *                       
   OUTREC BUILD=(2X,C'SPLIT1R=',     
   1,8,ZD,DIV,+21,                   
   TO=ZD,LENGTH=8,80:X)               
/*                                   


And received the same error as shown below.

Code:

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 - 06:06 ON TUE 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                                           


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

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jun 24, 2008 7:57 pm    Post subject:
Reply with quote

Quote:
I will send the total code from my personal E-mail ID.


I haven't received it.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm


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