IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

[Solved]Conflicting DCB Parameters
IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
jruiza

New User


Joined: 31 Aug 2005
Posts: 23
PostPosted: Thu Jan 19, 2006 5:39 pm
 Reply with quote
I want to reduce record lenght of a file since I only need first 50 positions.
Input file has a LRECL =1500- I am using IEBGENR proc.
Job failed because CONFLICTING DCB PARAMETERS
What am I doing wrong??
Thanks in advance,
JORDI

Code:

****** ***************************** Top of Data ******************************
000001 //MS7901AC JOB (JW9740,JR), JORDI R,PROC(AST),34985124960,
000002 //             MSGCLASS=Q,CLASS=D,PRTY=5,MSGLEVEL=(1,1),NOTIFY=MS7901
000003 //*
000004 //*MAIN CLASS=DBD1
000600 //***************************************************************
000700 //*  CREATE NEW VERSION OF DATASTORE INV COLLECTION FILE
000800 //***************************************************************
000900 //*
001000 //STEP040   EXEC  PGM=IEBGENER
001100 //*
001200 //SYSIN      DD  DUMMY
001300 //SYSPRINT   DD  SYSOUT=*
001400 //*
001500 //SYSUT1     DD  DSN=MS7901.CEDB.ARIBA.ARB,
001600 //            DISP=SHR
001700 //SYSUT2     DD  DSN=MS7901.TEST.DCB(+1),
001800 //            DISP=(NEW,CATLG,DELETE),
001900 //             AVGREC=K,LRECL=50,RECFM=FB,DSORG=PS,
002000 //             SPACE=(50,(10,100),RLSE)
002200 //***************************************************************
002300 //***************************************************************
002400 //*         TEST PRIOR COND CODE
002500 //***************************************************************
002600 //TEST040 EXEC XXXSCCCC,
002700 //             COND=(0,EQ,STEP040)
002800 //***************************************************************
Back to top
View user's profile Send private message
itssreehere
Warnings : 1
New User


Joined: 10 Jan 2006
Posts: 65
Location: chennai
PostPosted: Thu Jan 19, 2006 5:47 pm
 Reply with quote
Better use sort/sync sort for this purpose.Will IEBGENR can be used for partially copying a record? I'm not sure.

Sreejith
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
PostPosted: Thu Jan 19, 2006 5:58 pm
 Reply with quote
Jordi,
Please put error messages from JOBLOG... I dont see any problem in the job...

Sreejith...
Quote:
Will IEBGENR can be used for partially copying a record? I'm not sure.

Yes, it can be.

Regards,

Priyesh.
Back to top
View user's profile Send private message
jruiza

New User


Joined: 31 Aug 2005
Posts: 23
PostPosted: Thu Jan 19, 2006 6:03 pm
 Reply with quote
Can not be used IEBGENR?
Should I use SORT utility?
Back to top
View user's profile Send private message
Prandip

New User


Joined: 04 Mar 2005
Posts: 84
Location: In my tiny cubicle ...
PostPosted: Thu Jan 19, 2006 6:07 pm
 Reply with quote
You neglected to supply some important control parameters:
Code:

//STEP040   EXEC  PGM=IEBGENER
//*
//SYSIN      DD  *
  GENERATE MAXFLDS=1     
  RECORD FIELD=(50,1,,1) 
/*
//SYSPRINT   DD  SYSOUT=*
//*
//SYSUT1     DD  DSN=MS7901.CEDB.ARIBA.ARB,
//            DISP=SHR
//SYSUT2     DD  DSN=MS7901.TEST.DCB(+1),
//            DISP=(NEW,CATLG,DELETE),
//             AVGREC=K,LRECL=50,RECFM=FB,DSORG=PS,
//             SPACE=(50,(10,100),RLSE)


Personally, I would have opted to use either PGM=ICEGENER or PGM=SORT.
Back to top
View user's profile Send private message
jruiza

New User


Joined: 31 Aug 2005
Posts: 23
PostPosted: Thu Jan 19, 2006 7:57 pm
 Reply with quote
It works using SYSIN parameters and IEBGENER.

Thanks!!

I will try to use SORT. It will be more powerful
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging

 

Similar Topics
Topic Forum Replies
No new posts Passing Parameters to Programs Invoke... PL/I & Assembler 5
No new posts Injecting HTTPHEADER parameters in th... PL/I & Assembler 0
No new posts How to prevent two schid’s from con... CA Products 1
No new posts passing symbolic parameters through d... JCL & VSAM 3
No new posts Trim values of parameters in JCL JCL & VSAM 2
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us