Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Combine two files of different Lrecls
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
skhorizon

New User


Joined: 14 May 2008
Posts: 10
Location: bangalore

PostPosted: Fri May 23, 2008 3:35 pm    Post subject:
Reply with quote

Actually i wanted to run the whole STEP from a proc . But when i am running through proc it is giving JCL error saying INVALID JCL STATEMENT for all below mentiioned lines .

//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(5,3,CH) KEEPNODUPS KEEPBASE -
WITHALL WITH(5,15) WITH(20,1) USING(CTL3)
/*
//CTL1CNTL DD *
INREC BUILD=(1:8,4,5:5,3,20:C'BB')
/*
//CTL2CNTL DD *
INREC BUILD=(5:1,15,20:C'VV')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,OMIT=(20,2,CH,EQ,C'BB'),
BUILD=(1,19)

And same thing running through job , is running successfully .
So i wanted in whole step running through proc .
Back to top
View user's profile Send private message
References
PostPosted: Fri May 23, 2008 3:35 pm    Post subject: Re: Reply with quote

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 1117
Location: At my desk

PostPosted: Fri May 23, 2008 4:01 pm    Post subject:
Reply with quote

skhorizon wrote:
Actually i wanted to run the whole STEP from a proc . But when i am running through proc it is giving JCL error saying INVALID JCL STATEMENT for all below mentiioned lines .
Quote:
And same thing running through job , is running successfully .
So i wanted in whole step running through proc .
Try looking up the error....
Try reading the fine manual....
In-stream Data for Cataloged or In-stream Procedures
A cataloged or in-stream procedure cannot contain a DD * statement. When you call a procedure, you can add input stream data to a procedure step by placing in the calling step one or more DD * or DD DATA statements, each followed by data.

Put them in a PDS....
Back to top
View user's profile Send private message
skhorizon

New User


Joined: 14 May 2008
Posts: 10
Location: bangalore

PostPosted: Fri May 23, 2008 5:49 pm    Post subject:
Reply with quote

Instead of giving it as //TOOLIN DD * ,i have written as

//TOOLIN DD DSN=FIRR036.DEVTST.UTILOPC(TOOL1),DISP=SHR
//CTL1CNTL DD DSN=FIRR036.DEVTST.UTILOPC(TOOL2),DISP=SHR
//CTL2CNTL DD DSN=FIRR036.DEVTST.UTILOPC(TOOL3),DISP=SHR
//CTL3CNTL DD DSN=FIRR036.DEVTST.UTILOPC(TOOL4),DISP=SHR
//*

but still the JOB is failing with RC =16 :

ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN


ICE630I 0 MODE IN EFFECT: STOP

COPY FROM(IN2) TO(T1) USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN2 TO T1 USING CTL1CNTL TERMINATED
ICE602I 0 OPERATION RETURN CODE: 16
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 948
Location: Virginia, USA

PostPosted: Fri May 23, 2008 5:55 pm    Post subject:
Reply with quote

skhorizon wrote:
Instead of giving it as //TOOLIN DD * ,i have written as

//TOOLIN DD DSN=FIRR036.DEVTST.UTILOPC(TOOL1),DISP=SHR
//CTL1CNTL DD DSN=FIRR036.DEVTST.UTILOPC(TOOL2),DISP=SHR
//CTL2CNTL DD DSN=FIRR036.DEVTST.UTILOPC(TOOL3),DISP=SHR
//CTL3CNTL DD DSN=FIRR036.DEVTST.UTILOPC(TOOL4),DISP=SHR


Do those members exist in that PDS and what do they contain?
Back to top
View user's profile Send private message
skhorizon

New User


Joined: 14 May 2008
Posts: 10
Location: bangalore

PostPosted: Fri May 23, 2008 8:16 pm    Post subject: Reply to: Combine two files of different Lrecls
Reply with quote

All those members(tool1,tool2,tool3,tool4) exist ...

these all contains control statements defined under it as in above jcls
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 948
Location: Virginia, USA

PostPosted: Fri May 23, 2008 8:22 pm    Post subject:
Reply with quote

Show us the job logs, sysout etc from the failing job.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4133
Location: San Jose, CA

PostPosted: Fri May 23, 2008 8:26 pm    Post subject:
Reply with quote

Quote:
but still the JOB is failing with RC =16 :


You need to look at the DFSMSG messages for the error message associated with the RC=16.
Back to top
View user's profile Send private message
dick scherrer

Global Moderator


Joined: 23 Nov 2006
Posts: 7314
Location: 221 B Baker St

PostPosted: Sat May 24, 2008 12:40 am    Post subject:
Reply with quote

Hello,

One or more of the control statements most likely begins in position 1 (just like the examples posted above).
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 HoursGoto page Previous  1, 2
Page 2 of 2