IBM Mainframe Forum

[luckyboyroh]

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

[NicC]

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

[MrSpock]

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)

[BillyBoyo]

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.

[luckyboyroh]

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

[BillyBoyo]

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.

[luckyboyroh]

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.

[NicC]

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.

[luckyboyroh]

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

[NicC]

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.