Search found 20 matches

by filikindri
Sun Mar 04, 2012 10:28 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 10105

It is working , again, That's what I did. I suposse there are other ways more elegant, but this works. COPY FROM(IN) TO(T1) USING(CTL1) RESIZE FROM(CTL2CNTL) TO(CTL3CNTL) TOLEN(80) COPY FROM(T1) USING(CTL3) INREC IFTHEN=(WHEN=GROUP,...
by filikindri
Sun Mar 04, 2012 1:25 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 10105

Okay. I think I've got it.

I will use

Code: Select all

160:X)
, then ICETOOL RESIZE TOLEN(80).

I just have to insert some blanks, to cut line in the correct place.

It should work... I'll try tomorrow-
by filikindri
Sat Mar 03, 2012 5:06 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 10105

I'm trying: INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,12,CH,EQ,C'IDENTITAFICH'), PUSH=(3881:ID=8)), IFTHEN=(WHEN=(1,12,CH,EQ,C'IDENTITAFICH'), BUILD=(1,18,C' ',20,3869)) OUTFIL FNAMES=T1 ***************************************************************** OUTFIL ...
by filikindri
Sat Mar 03, 2012 4:15 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 10105

I need to fix a little bug. I don't need the header record in output files: outfile1: THIS IS DATA AND THE LENGHT IS 200.REGISTER 1 THIS IS DATA AND THE LENGHT IS 200.REGISTER 2 THIS IS DATA AND THE LENGHT IS 200.REGISTER 3 ... ... ... THIS IS DATA AND THE LENGHT IS 200.REGISTER X outfile2: THIS IS ...
by filikindri
Fri Mar 02, 2012 1:45 am
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT OUTREC - Reformatting a register from dfsort parameters
Replies: 3
Views: 4687

Thanks Frank, one more time...
by filikindri
Thu Mar 01, 2012 6:54 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT OUTREC - Reformatting a register from dfsort parameters
Replies: 3
Views: 4687

I'm very near from solution . Two steps sort: SORT FIELDS=COPY OUTREC BUILD=(1,18,&DATENS=(DM4),JP1,JP2,JP3,35,6) SORT FIELDS=COPY OUTREC BUILD(1,18,19,8,29,6,36,12) Now I just need to convert "19,8' to packed., so my final lenght would be 40 again instead of 44. I remember t...
by filikindri
Thu Mar 01, 2012 5:50 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT OUTREC - Reformatting a register from dfsort parameters
Replies: 3
Views: 4687

SORT OUTREC - Reformatting a register from dfsort parameters

I've got this sort: //SORT EXEC PGM=ICETOOL, // PARM='JP1"&PARA1",JP2"&PARA2",JP3"&PARA3"', // REGION=0M //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=EDI.HDRSMPL,DISP=SHR //OUT DD DSN=.EDI.HEADER.R&PARA1..&PARA2, // DISP=(NEW,CATLG,DELETE), // UNIT=(DISK),SPACE=(TRK,...
by filikindri
Wed Feb 29, 2012 5:46 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I pass parameters to DFSORT?
Replies: 4
Views: 5697

Works as expected. Calling the proc: //JMIPROC JOB 'PRU',MSGCLASS=X,CLASS=A //* //PROCLIB JCLLIB ORDER=xxxxxx.xxx.JCLLIB //* //***** LLAMADA AL PROCEDIMIENTO DE APLICACION //PASO1 EXEC MIPROC,PARA1='E',PARA2='07' My proc: // PROC PARA1=,PARA2= //A3P EXEC PGM=ICETOOL, // PARM='JP1"&PARA1",JP2"&PARA2"...
by filikindri
Wed Feb 29, 2012 11:48 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I pass parameters to DFSORT?
Replies: 4
Views: 5697

Thanks a lot, Frank. That's just what I need.

NicC, you are right, I should have RTFM. Excuse me. Thanks you, too, anyway.

Best regards.
by filikindri
Wed Feb 29, 2012 1:56 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I pass parameters to DFSORT?
Replies: 4
Views: 5697

Can I pass parameters to DFSORT?

I want to use DFSORT in a jcl proc. This proc is called with some parameters and i should use those parameters in DFSORT sysin. Is there a way to call DFSORT with parameters, something like //step1 exec pgm=icetool, parm='123456abcdef' Trying to be more exact, I have a proc like this: (this is from ...
by filikindri
Wed Feb 22, 2012 12:54 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 11576

Yes, It 's long better than v1.

I can't understand 'remove last 80 bytes'. Perhaps you mean 'remove last 12 bytes'. right?
by filikindri
Tue Feb 21, 2012 4:32 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 11576

Now it is working with my sample, final (at this moment) code is: //TOOLIN DD * RESIZE FROM(INJCL) TO(T1) TOLEN(4480) COPY JKFROM TO(OUT) USING(CTL1) /* - - - - - - - - - - - - - - - - //CTL1CNTL DD * JOINKEYS F1=T1,FIELDS=(72,1,A),SORTED JOINKEYS F2=I...
by filikindri
Tue Feb 21, 2012 3:09 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 11576

Yes, works as expected 10.58.38 JOB02748 IEF403I JSUBTAF - STARTED - TIME=10.58.38 10.58.38 JOB02749 $HASP100 JOB1 ON INTRDR FROM J 10.58.38 JOB02749 IRR010I USERID myuser IS ASSIGNED TO THIS JOB. 10.58.38 JOB02750 $HASP100 JOB1 ON INTRDR FROM J 10.58.38 JOB02750 IRR010I USERID myuser IS ASSIGNED TO...
by filikindri
Tue Feb 21, 2012 1:20 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 11576

Many many thanks.

I'll try it.

Best regards.
by filikindri
Mon Feb 20, 2012 12:49 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I use DFSORT to submit n jcl's, changing parameters?
Replies: 11
Views: 11576

I'm not looking for a general solution, but it is not an one time occurence event. The jcl sample will be always the same, but the task to submit n jcl's, will be running every 15 minutes.

To submit manually jcl's is not an option, I think.