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
 
Prepare CSV format from fixed format

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

New User


Joined: 01 Nov 2006
Posts: 9

PostPosted: Wed Nov 01, 2006 4:22 am    Post subject: Prepare CSV format from fixed format
Reply with quote

Hi,

I have an input file having records in the format

F1 : PIC X(4)
F2 : PIC X(1) VALUE ","
F3 : PIC X(10)
F4 : PIC X(1) VALUE ","
F5 : PIC ++++++++++.99
F6 : X(1) VALUE ","

The sample of the record in the input file is

(RD),A0101bbbbbb,bbb+43173.37,
(RD),A0101BBOAE,bb+299740.96,

b represents space in the above input record

The out put of the reocrd should look like

(RD),A0101B,+43173.37, ( The spaces are removed)
(RD),A0101BBOAE,+299740.96,

Is it possible to get this result using DFSORT/ICETOOL? If yes Please let me know how can be done?

I have not posted the topic clearly in my earlier request so raising this again.

I am new member to this team. Kindly let me know if you are not clear on what I am asking.

Thanks
Venkata Perumala
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 Nov 01, 2006 6:47 am    Post subject:
Reply with quote

Here's a DFSORT job that will do what you asked for. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's SQZ function. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN    DD    *
  OPTION COPY
  INREC OVERLAY=(1,30,SQZ=(SHIFT=LEFT))
/*
Back to top
View user's profile Send private message
PERUMALA

New User


Joined: 01 Nov 2006
Posts: 9

PostPosted: Fri Nov 03, 2006 3:23 am    Post subject: Thanks a lot
Reply with quote

Hi,

I posted similar problem in COBOL section also.
Dick has replied. It worked fine.

I was not able to use the ICEMAN as my system programmer has not loaded the DFSORT new version.


Thanks a lot for your help
Venkata Perumala
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 Nov 03, 2006 3:28 am    Post subject:
Reply with quote

Quote:
my system programmer has not loaded the DFSORT new version


Note that it does not require a "new version" - just a PTF. Hopefully, your System Programmer will install the PTF one of these days.
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 Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts FTP data transfer from PC to Mainfram... AJAYREDDY All Other Mainframe Topics 8 Wed Aug 23, 2017 9:59 pm
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am

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