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

construct a file for mainframe from excel (.csv)


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
danylele74

New User


Joined: 03 Jul 2014
Posts: 27
Location: Italy

PostPosted: Tue Feb 03, 2015 7:32 pm
Reply with quote

Hi, i have this file imported from a .CSV

From this format

Code:

----+----1----+----2----+----3-
*******************************
05034;BA135;;;;
05034;BA200;;;;
05034;BA250;;;c/cc;
05034;BA520;;;c/cc;
05034;BA560;;;Finanziamento;
05034;BA920;001;CONTI CORRENTI;;
05034;BA920;001;CONTI CORRENTI;;
05034;BA920;001;CONTI CORRENTI;;



i need in this format:

Code:

----+----1----+----2----+----3-
*******************************
05034;BA135;   ;              ;             ;
05034;BA200;   ;              ;             ;
05034;BA250;   ;              ;c/c          ;
05034;BA520;   ;              ;c/c          ;
05034;BA560;   ;              ;Finanziamento;
05034;BA920;001;CONTI CORRENTI;             ;
05034;BA920;001;CONTI CORRENTI;             ;
05034;BA920;001;CONTI CORRENTI;             ;




How can i do? Can you halp me?
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Tue Feb 03, 2015 8:31 pm
Reply with quote

Use your SORT product with PARSE (several of them).
Back to top
View user's profile Send private message
danylele74

New User


Joined: 03 Jul 2014
Posts: 27
Location: Italy

PostPosted: Tue Feb 03, 2015 8:35 pm
Reply with quote

What ?
Sort? I don't need to sort it.
Can you give me an example that explains how to format the file?
Thank you.
Back to top
View user's profile Send private message
danylele74

New User


Joined: 03 Jul 2014
Posts: 27
Location: Italy

PostPosted: Tue Feb 03, 2015 9:38 pm
Reply with quote

this is my jcl:

Code:

//S1    EXEC  PGM=ICEMAN                       
//SYSOUT   DD SYSOUT=*                         
//SORTIN   DD DISP=SHR,DSN=TNPH.FORME.TECNICHE
//SORTOUT  DD SYSOUT=*                         
//SYSIN    DD *                               
  OPTION COPY                                 
  OUTFIL PARSE=(%01=(ENDBEFR=C';',FIXLEN=5),   
                %02=(ENDBEFR=C';',FIXLEN=5),   
                %03=(ENDBEFR=C';',FIXLEN=3),   
                %04=(ENDBEFR=C';',FIXLEN=25), 
                %05=(ENDBEFR=C';',FIXLEN=7),   
                %06=(ENDBEFR=C';',FIXLEN=4),   
                %07=(ENDBEFR=C';',FIXLEN=100),
                %08=(ENDBEFR=C';',FIXLEN=60), 
                %09=(ENDBEFR=C';',FIXLEN=3),   
                %10=(ENDBEFR=C';',FIXLEN=60), 
                %11=(ENDBEFR=C';',FIXLEN=3),   
                %12=(ENDBEFR=C';',FIXLEN=60), 
                %13=(ENDBEFR=C';',FIXLEN=3),   
                %14=(ENDBEFR=C';',FIXLEN=60)),
  BUILD=(1:%01,                               
         6:%02,                               
        11:%03,                               
        14:%04,                               
        39:%05,                               
        46:%06,                               
        50:%07,                               
       150:%08,                               
       210:%09,                               
       213:%10,                               
       273:%11,                               
       276:%12,                               
       336:%13,                               
       339:%14)                               
/*                                           


but there is an error that i don't understand:

Code:

ICE251A 9 MISSING RDW OR DATA FOR SORTOUT : REASON CODE 05, IFTHEN 0           
ICE751I 0 C5-I21470 C6-BASE   C7-K96411 C8-I15445 E9-BASE   E7-I12417           
ICE052I 3 END OF DFSORT                                                         
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Tue Feb 03, 2015 9:49 pm
Reply with quote

I wasn't suggesting that you SORT it, I was suggesting that you use your SORT product. And you are. ICEMAN is DFSORT.

Your input file is variable, so your output file must be variable unless you arrange otherwise.

OUTFIL VTOF will be what you want.
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Record count of RECFM=U tape file DFSORT/ICETOOL 17
This topic is locked: you cannot edit posts or make replies. Write Character to Hexadecimal file w... COBOL Programming 8
No new posts Looking for mainframe system programmers Mainframe Jobs 0
No new posts Checking the total counts inside a re... JCL & VSAM 5
Search our Forums:

Back to Top