Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

One dataset is creating in the step1 with LRECL of 133 and
the same dataset is used in the next step in DISP=SHR mode,
but while scanning the JCL the following error is thrwon.
Please verify the below JCL

$/SEPP030.PROVIDER DD
DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868
//ERRORRPT DD
DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE,
--ERRORRPT DD
DSN=F5910PG.F5910EPP.ERRORRPT.P,
//
DISP=&DISNCD,UNIT=&DELQ,
-- DISP=
(NEW,CATLG,DELETE),UNIT=DELQ,
// SPACE=(TRK,
(30,15),RLSE),
//
DCB=&DCB2
-- DCB=
(PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB)
$/SEPP030.ERRORRPT DD
DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT

//SEPP040 EXEC PGM=FILEAID,COND=
(0002,EQ,SEPP030)


//SYSPRINT DD
SYSOUT=*


//SYSLIST DD
SYSOUT=*
//DD01 DD DSN=SYSCMN.PROD.CCLIB
(F5910EP1),DISP=SHR
$/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB
(F5910EP1)
E1 - DSS20791E - DATA
SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN
LRECL OF 133 COULD NOT BE OPENED BECAUSE
THE CODED
LRECL WAS
80.
// DD
DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE,
-- DD
DSN=F5910PG.F5910EPP.ERRORRPT.P,
//
DISP=SHR
$/ DD
DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT


please find the error code in the above mentioned lines and
please suggest me about the error and the solution for that.

Answer Posted / arjun

Actually BLKSIZE is coded as 0 .I think BLKSIZE should
always be coded in multiples of LRECL.i.e; LRECL=133 then
BLKSIZE=1330 should be coded.

Is This Answer Correct ?    0 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How to compare two files in SYNCSORT and on the mismatch record should be deleted from second file.

5599


List the various advantages of using jcl language?

1519


How do you overcome this limitation ?

1251


What is the use of disp parameter?

1203


In job processing, what happens in execution stage?

1288


Name the parameters which can be used to limit the number of records written to a sysout dataset?

1203


How to pass the parameter in parm using linkage section ? (syntax)?

1184


I want to JCL sort for Non-COMP and COMP-3 fields SORT FIELDS=(1,5,A,6,11,A,12,11,A,19,1,A,20,1,A),FORMAT=BI,EQUALS Length of comp bytes is 11 bytes which start at 6byte and 12 byte considering 11 bytes in comp-3 is 6 bytes. Can anyone tell if the above sort work SORT FIELDS=(1,5,A,6,6,A,12,6,A,19,1,A,20,1,A),FORMAT=BI,EQUALS does not works OK

1993


Must tape dataset definitions include vol=ser specifications?

1785


What is condition checking in jcl? Is this possible?

1160


Differentiate between addressing mode and run mode.

1134


Explain the function of the dd dcb keyword?

1323


how you can direct the data to spool using SYSOUT option?

1517


What are the parameter we cannot use in procedure? How many instream we can write in single jcl?

1128


how do you access an uncataloged dataset in a jcl?

1811