|
|
| Author |
Message |
jruiza
New User
Joined: 31 Aug 2005
Posts: 23
|
|
|
|
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 |
|
 |
References
|
|
 |
itssreehere
Warnings : 1
Active User
Joined: 10 Jan 2006
Posts: 71
Location: chennai
|
|
|
|
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 |
|
|
priyesh.agrawal
Global Moderator
Joined: 28 Mar 2005
Posts: 1509
Location: Chicago, IL
|
|
|
|
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 |
|
|
jruiza
New User
Joined: 31 Aug 2005
Posts: 23
|
|
|
|
Can not be used IEBGENR?
Should I use SORT utility? |
|
| Back to top |
|
|
Prandip
Active User
Joined: 04 Mar 2005
Posts: 87
Location: In my tiny cubicle ...
|
|
|
|
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 |
|
|
jruiza
New User
Joined: 31 Aug 2005
Posts: 23
|
|
|
|
It works using SYSIN parameters and IEBGENER.
Thanks!!
I will try to use SORT. It will be more powerful |
|
| Back to top |
|
|
|
|
|
