IBM Mainframe Forum

by **luckyboyroh** » Thu Jun 27, 2013 6:01 pm

Hi Friends,

Need you help!

I am trying to dynamically split a file into 5 output files using ICETOOL. Below is my JCL :

My input file is VB of LRECL 2004.

Select all

//STEP001 EXEC PGM=ICETOOL
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//*
//IN DD DSN=TST4.NVS.PPSODUT1.EQUITY.TRADES.XML.T2,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)
//C1 DD DSN=&&C1,UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)
//*
//OUT01 DD DSN=TST4.NVS.PPSODUT1.EQUITY.TRADES.XML.S1,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,200),RLSE)
//*
//OUT02 DD DSN=TST4.NVS.PPSODUT1.EQUITY.TRADES.XML.S2,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,200),RLSE)
//*
//OUT03 DD DSN=TST4.NVS.PPSODUT1.EQUITY.TRADES.XML.S3,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,200),RLSE)
//*
//OUT04 DD DSN=TST4.NVS.PPSODUT1.EQUITY.TRADES.XML.S4,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,200),RLSE)
//*
//OUT05 DD DSN=TST4.NVS.PPSODUT1.EQUITY.TRADES.XML.S5,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,200),RLSE)
//*
//TOOLIN DD DSN=TST4.UTC.CPY(PSOSPL01),DISP=SHR
//*
//CTL1CNTL DD DSN=TST4.UTC.CPY(PSOSPL02),DISP=SHR
//CTL2CNTL DD DSN=TST4.UTC.CPY(PSOSPL03),DISP=SHR
//CTL3CNTL DD DSN=TST4.UTC.CPY(PSOSPL04),DISP=SHR

PSOSPL01

Select all

COPY FROM(IN) USING(CTL1)
COPY FROM(T1) TO(C1) USING(CTL2)
COPY FROM(IN) USING(CTL3)

PSOSPL02

Select all

OUTFIL FNAMES=T1,REMOVECC,NODETAIL,
TRAILER1=(COUNT=(EDIT=(TTTTTTTTTT)))

PSOSPL03

Select all

OUTREC BUILD=(2X,C'SPLIT1R=',1,10,ZD,DIV,+5,EDIT=(TTTTTTTTTT),
100:X)

PSOSPL04

Select all

OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,OUT05)

This is the SYSOUT Error Message
TOOLMSG

Select all

SYT000I SYNCTOOL RELEASE 1.6.2 - COPYRIGHT 2007 SYNCSORT INC.
SYT001I INITIAL PROCESSING MODE IS "STOP"
SYT002I "TOOLIN" INTERFACE BEING USED

COPY FROM(IN) USING(CTL1)
SYT020I SYNCSORT CALLED WITH IDENTIFIER "0001"
SYT030I OPERATION COMPLETED WITH RETURN CODE 0

COPY FROM(T1) TO(C1) USING(CTL2)
SYT020I SYNCSORT CALLED WITH IDENTIFIER "0002"

DFSMSG

Select all

1 SYNCSORT FOR Z/OS 1.3.2.1RI U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCS
z/OS 1.12.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 60BE0, MODEL 2817 752 LICE
CTL1CNTL :
OUTFIL FNAMES=T1,REMOVECC,NODETAIL, 000100
TRAILER1=(COUNT=(EDIT=(TTTTTTTTTT))) 000200
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN,SORTDD=CTL1,COPY
WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
WER276B SYSDIAG= 9539961, 12049981, 12049981, 2633250
WER164B 6,884K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,119,297 BYTES USED
WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I IN : RECFM=VB ; LRECL= 2004; BLKSIZE= 27998
WER110I T1 : RECFM=VB ; LRECL= 2004; BLKSIZE= 27998
WER410B 5,856K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 112,713 BYTES USED
WER405I T1 : DATA RECORDS OUT 0; TOTAL RECORDS OUT 1
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B IN : EXCP'S=1,UNIT=3390,DEV=D369,CHP=(C9CACBCCCDCECFD0,1),VOL=T
WER416B OUTFIL WAS USED FOR CTL1OUT
WER054I RCD IN 26, OUT 26
WER072I EQUALS, RESET, BALANCE IN EFFECT
WER169I RELEASE 1.3 BATCH 0506 TPF LEVEL 2.1
WER052I END SYNCSORT - P46CCRB2,STEP001,,DIAG=AE00,70C4,8222,004E,E6DE,48EB,0
SYNCSORT FOR Z/OS 1.3.2.1RI U.S. PATENTS: 4210961, 5117495 (C) 2007 SYN
z/OS 1.12.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 60BE0, MODEL 2817 752 LI
CTL2CNTL :
OUTREC BUILD=(2X,C'SPLIT1R=',1,10,ZD,DIV,+5,EDIT=(TTTTTTTTTT), 0001
100:X) 0002
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=T1,SORTOUT=C1,SORTDD=CTL2,COP
WER428I CALLER-PROVIDED IDENTIFIER IS "0002"
WER276B SYSDIAG= 9540060, 12050080, 12050080, 2633250
WER164B 6,884K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 992K BYTES USED
WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I T1 : RECFM=VB ; LRECL= 2004; BLKSIZE= 27998
WER235A OUTREC RDW NOT INCLUDED
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

Please help .

thanks in advance

by **NicC** » Thu Jun 27, 2013 11:49 pm

Your first problem is that you are using SyncTool and not ICEtool...moving topic to correct part of the forum

by **MrSpock** » Fri Jun 28, 2013 2:04 am

Select all

WER108I T1 : RECFM=VB ; LRECL= 2004; BLKSIZE= 27998
WER235A OUTREC RDW NOT INCLUDED

Seems to be rather self-explanatory. If T1 is RECFM=VB, why wasn't this coded:

Select all

OUTREC BUILD=(1,4,2X,C'SPLIT1R=',1,10,ZD,DIV,+5,EDIT=(TTTTTTTTTT),100:X)

by **BillyBoyo** » Fri Jun 28, 2013 4:33 am

If you want to generate some Sort Control Cards, after you've generated them you need them to be read and processed by SORT or xxxxTOOL. You can't write them into the data.

by **luckyboyroh** » Fri Jun 28, 2013 9:53 am

thanks... i changed the sort card. now its abending in third CNTL card. Please help

Select all

SYNCSORT LICENSED FOR CPU SERIAL NUMBER 60BE0, MODEL 2817 752
CTL3CNTL :
OUTFIL FNAMES=(OUT01,OUT02,OUT03,OUT04,OUT05)
SPLIT1R=1480000000
*
WER428I CALLER-PROVIDED IDENTIFIER IS "0003"
WER001A COL 1 OR 1-15 NOT BLANK
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

by **BillyBoyo** » Fri Jun 28, 2013 12:16 pm

Did you look up the message?

Why would SyncSort produce that message? SPLIT1R is not a Control Statement, it is an option on a Control Statement.

So, kick yourself a bit for asking publicly before thinking, then correct the problem.

by **luckyboyroh** » Fri Jun 28, 2013 3:35 pm

thanks. i am new to MF and still not getting why this got generated in sysout.

i have not mentioned it in my parm. Could anyone pls help if my jcl is wrong? and im not able to get how that is getting generated in sysout.

thanks and really sorry.

by **NicC** » Fri Jun 28, 2013 5:41 pm

You do know that control cards do NOT start in column 1? It is hard to tell from what is posted what you have where.

by **luckyboyroh** » Fri Jun 28, 2013 5:54 pm

thanks...i know that.. all my sysin cards are from column 3.

by **NicC** » Fri Jun 28, 2013 8:30 pm

OK - good - but Syncsort is complaining about col 1 OR 15 not being blank so if all your SYSIN data begins after col 3 then it is complaining about col 15 which implies that col 72 of the previous line is not blank which implies that the previous line is to be continued and the continuation rules specify that the continuation must start after col 15. So check your col 72.

IBM Mainframe Forum

SPLIT1R error

SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error

Re: SPLIT1R error