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
 

 

a question about s9 comp-3 data conversion

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
killms

New User


Joined: 17 Sep 2003
Posts: 16

PostPosted: Fri Dec 23, 2005 11:10 am    Post subject: a question about s9 comp-3 data conversion
Reply with quote

i have a field which column 99-110 is : pic -----------9. ( 12bytes length) in a input fille.
now i want to convert this input file to a output file and convert this field to s9 comp-3.

Can i use icetools to do this job?Pls show me a jcl.

thanks.
Back to top
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Dec 23, 2005 11:32 am    Post subject: Re: a question about s9 comp-3 data conversion
Reply with quote

Code:
OUTREC FIELDS=(99,12,ZD,TO=PD,LENGTH=7)


Try this statement...It should solve what you ask for....

Regards,

Priyesh.
Back to top
View user's profile Send private message
killms

New User


Joined: 17 Sep 2003
Posts: 16

PostPosted: Fri Dec 23, 2005 2:42 pm    Post subject:
Reply with quote

hi,priyesh.agrawal
I try the following jcl,but it failed.

Code:
//ICETOOL    EXEC  PGM=ICETOOL             
//TOOLMSG DD SYSOUT=*                     
//DFSMSG  DD SYSOUT=*                     
//IN      DD DSN=...input file ,DISP=SHR   
//OUT     DD DSN=....output,DISP=SHR     
//TOOLIN DD *                             
COPY FROM(IN) TO(OUT) USING(CTL1)         
/*                                         
//CTL1CNTL DD *                           
  OUTREC FIELDS=(99,12,ZD,TO=PD,LENTH=9)   
/*


follw is DFSMSG:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE000I 0 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 17:04 ON FRI DEC 23, 2005 -
OUTREC FIELDS=(99,12,ZD,TO=PD,LENTH=9) 00140002

ICE215A E SPECIFIED FEATURE IS ONLY SUPPORTED BY OUTFIL STATEMENT
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION LIST,MSGPRT=ALL,MSGDDN=DFSMSG,RESINV=0,SORTDD=CTL1,SORTIN=IN,SOR*
TOUT=OUT,COPY
ICE052I 3 END OF DFSORT
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Dec 23, 2005 3:10 pm    Post subject: Re: a question about s9 comp-3 data conversion
Reply with quote

Hi killms,

There is no such message for me after running the job.... The thing I find concerned about is why you have OUTFILE in SHR Mode.

Regards,

Priyesh.
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 Dec 23, 2005 8:50 pm    Post subject:
Reply with quote

Quote:
ICE215A E SPECIFIED FEATURE IS ONLY SUPPORTED BY OUTFIL STATEMENT


killms,

You have LENTH instead of LENGTH, so I would expect a syntax error.

But there's nothing in the OUTREC statement that would trigger the ICE215A error unless you are using a very old PTF level for DFSORT.

Try using OUTFIL instead of OUTREC. (Some functions were supported with OUTFIL before they were supported with OUTREC.)

Code:

//ICETOOL    EXEC  PGM=ICETOOL             
//TOOLMSG DD SYSOUT=*                     
//DFSMSG  DD SYSOUT=*                     
//IN      DD DSN=...              input file   
//OUT     DD DSN=....           output file     
//TOOLIN DD *   
COPY FROM(IN) USING(CTL1)                             
/*                                                   
//CTL1CNTL DD *                                       
   OUTFIL FNAMES=OUT,OUTREC=(99,12,ZD,TO=PD,LENGTH=9) 
/*



Ask your System Programmer to install DFSORT R14 PTF UQ95213 (Dec, 2004) - that will get you up-to-date on DFSORT functional PTFs.

Note that with the OUTREC or OUTFIL statement, the converted field will start in position 1, not in position 99. If you want it to start in position 99, you need to specify the fields around it (e.g. 1,98,99,...,111,n).
Back to top
View user's profile Send private message
killms

New User


Joined: 17 Sep 2003
Posts: 16

PostPosted: Mon Dec 26, 2005 9:11 am    Post subject:
Reply with quote

FRANK,

I run your job,but it still failed. and the message is :

1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE000I 0 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 11:12 ON MON DEC 26, 2005 -
0 OUTFIL FNAMES=OUT,OUTREC=(99,12,ZD,TO=PD,LENGTH=9) 00080003

ICE007A E SYNTAX ERROR
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION LIST,MSGPRT=ALL,MSGDDN=DFSMSG,RESINV=0,SORTDD=CTL1,SORTIN=IN,COP*
Y
ICE052I 3 END OF DFSORT


it seems that 'to=pd' is invalid. Must i install the PTFs?
I 'm using os/390, not Z/OS.
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 Dec 26, 2005 10:00 pm    Post subject:
Reply with quote

TO=fo was first made available with DFSORT R14 PTF UQ99323 way back in July, 2000, so you don't have that very old PTF or any of the PTFs that followed it. Ask your System Programmer to install DFSORT R14 PTF UQ95213 (Dec, 2004). That will get you all of the latest DFSORT functional PTFs.
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
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts QUESTION: RETURN CHANNEL pahiker CA Products 21 Thu Apr 20, 2017 12:31 am
No new posts SORT JSON type of data maxsubrat DFSORT/ICETOOL 8 Wed Apr 19, 2017 6:01 pm


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