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

a question about s9 comp-3 data conversion
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
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
 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: 1448
Location: Chicago, IL
PostPosted: Fri Dec 23, 2005 11:32 am
 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
 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: 1448
Location: Chicago, IL
PostPosted: Fri Dec 23, 2005 3:10 pm
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Fri Dec 23, 2005 8:50 pm
 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
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Mon Dec 26, 2005 10:00 pm
 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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Store the data for fixed length COBOL Programming 1
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 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