Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 question about dfsms management clas... Hervey Martinez IBM Tools 0 Tue Oct 10, 2017 6:19 pm
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us