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

DCB Parameter missing for REPRO outfile DD


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Tue Sep 13, 2011 8:48 pm
Reply with quote

Hi,

I have the below step.

Code:

//STEP040  EXEC  PGM=IDCAMS             
//INDD1    DD DSN=PROD.CXXXXXD.XXXXX.DLYORD.APPEND,DISP=SHR
//OUTDD1   DD DSN=CATL.CXXXXX.DAILY.ORD.BKP,                 
//         DISP=(MOD,CATLG,CATLG),DCB=LRECL=150,               
//         UNIT=CART,DATACLAS=FBLRG                             
//SYSOUT   DD SYSOUT=*                                         
//SYSUDUMP DD SYSOUT=*                                         
//SYSPRINT DD SYSOUT=*   
//SYSIN DD *
   REPRO INFILE(INDD1) OUTFILE(OUTDD1)
/*                                       


when I am doing JCL check I am getting the below error

Code:

E1 - DSS20178W - DCB missing from REPRO OUTFILE DD statement.


any suggestions how to remove this warning.

Thanks in advance.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Sep 13, 2011 9:00 pm
Reply with quote

If the DCB is how you want:

In test, just ignore the message.

In other environments up to and including production, put your IDCAMS cards in a member of a PDS where you can get some control on them and at the same time keep them away from nosy JCL-checkers.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Sep 13, 2011 9:02 pm
Reply with quote

Quote:
E1 - DSS20178W - DCB missing from REPRO OUTFILE DD statement.


instead of posting the message from the buggy jcl checker You are using
run the job and come back if You have issues

posting JCL checker messages is just a waste of time for everybody

we know nothing about Your environment and setup
for tape datasets it is usual practice to put also the blksize

not using it might work or not depending on Your SMS setup!
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Sep 13, 2011 9:06 pm
Reply with quote

Quote:
In other environments up to and including production, put your IDCAMS cards in a member of a PDS where you can get some control on them and at the same time keep them away from nosy JCL-checkers.


the nosy jcl checker complained not because of the REPRO,
but because it is just plain stupid...


since the dd statement has a dataclass any issues might come only at execution time
( just saw it, rereading the thread )

if the DATACLASS is defined properly ( contains the BLKLIMIT )
everything should work !
SMS will fill TAPE relevant DCB fields
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Mon Sep 19, 2011 12:35 pm
Reply with quote

I often wonder, how do such JCL-checkers get their place in the market? Is it because of the ignorance of members-of-the-team who actually decide what tool should be available at some shop or is it so trivial to think about it or...?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Sep 19, 2011 1:08 pm
Reply with quote

for the same reason that debuggers do

to waste resources by having people
sitting lazily in front of the screen
wandering thru the program in step mode
waiting for enlightenment

in more than 95% of the case just rereading the program would be enough
( for an half decent developer )
the program debugging time is shorter and leads to more understandable sources

using a debugger to fix bad programming habits is like ...
coud not fix the brakes and made the horn louder
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Mon Sep 19, 2011 7:57 pm
Reply with quote

What happened to my post and daveporcelan's post in this thread? icon_sad.gif

My mistake. Here's the original content of your post:

Quote:
because of the ignorance of members-of-the-team
Yes, might be.

And because of many more functionalities, from one of the products.

PS: I do NOT intend to promote that product, here.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Sep 20, 2011 4:25 am
Reply with quote

I just run a quick and dirty test to verify ..
here is the jcl
Code:
 ****** ***************************** Top of Data ******************************
 000001 //ENRICO1  JOB (ACCT#),'IDCAMS',NOTIFY=ENRICO,                         
 000002 //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                       
 000003 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 000004 //*            DSN=ENRICO.TEST.JCL(IEBGENR2)                           
 000005 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 000006 //*                                                                     
 000007 //CLEANUP EXEC PGM=CLEANUP                                             
 000008 //STEPLIB   DD DISP=SHR,DSN=HERC.LINKLIB                               
 000009 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 000010 //*                                                                     
 000011 //IDC     EXEC PGM=IDCAMS                                               
 000012 //SYSIN     DD *                                                       
 000013   REPRO INFILE(DD1) OUTFILE(DD2)                                       
 000014 //SYSPRINT  DD SYSOUT=*                                                 
 000015 //DD1       DD DISP=SHR,DSN=ENRICO.TEST.JCL(IEBGENER)                   
 000016 //DD2       DD DISP=(,CATLG),DSN=ENRICO.TEST.FB80.TAPE,                 
 000017 //             UNIT=580,LABEL=(1,SL),VOL=SER=222222,                   
 000018 //             DATACLAS=FB80,DCB=LRECL=80                               
 ****** **************************** Bottom of Data ****************************

here is the sysout
Code:
********************************* TOP OF DATA **********************************
                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N
                                                                               
00.24.27 JOB04317 ---- TUESDAY,   20 SEP 2011 ----                             
00.24.27 JOB04317  IRR010I  USERID ENRICO   IS ASSIGNED TO THIS JOB.           
00.24.27 JOB04317  ICH70001I ENRICO   LAST ACCESS AT 00:20:01 ON TUESDAY, SEPTEM
00.24.27 JOB04317  $HASP373 ENRICO1  STARTED - INIT 1    - CLASS A - SYS SYS1   
00.24.27 JOB04317  IEF403I ENRICO1 - STARTED - TIME=00.24.27                   
00.24.27 JOB04317  +CLEANUP - ENRICO.TEST.FB80.TAPE deleted (222222)           
00.24.27 JOB04317 *IEF233A M 0580,222222,,ENRICO1,IDC,ENRICO.TEST.FB80.TAPE     
00.24.35 JOB04317  IEC705I TAPE ON 0580,222222,SL,COMP,ENRICO1,IDC,ENRICO.TEST.F
00.24.35 JOB04317  IEC205I DD2,ENRICO1,IDC,FILESEQ=1, COMPLETE VOLUME LIST,  705
   705             DSN=ENRICO.TEST.FB80.TAPE,VOLS=222222,TOTALBLOCKS=1         
00.24.35 JOB04317  IEF234E K 0580,222222,PVT,ENRICO1,IDC                       
00.24.36 JOB04317  IEF404I ENRICO1 - ENDED - TIME=00.24.36                     
00.24.36 JOB04317  $HASP395 ENRICO1  ENDED                                     
------ JES2 JOB STATISTICS ------                                               
  20 SEP 2011 JOB EXECUTION DATE                                               
           18 CARDS READ                                                       
           81 SYSOUT PRINT RECORDS                                             
            0 SYSOUT PUNCH RECORDS                                             
            4 SYSOUT SPOOL KBYTES                                               
         0.14 MINUTES EXECUTION TIME                                           
        1 //ENRICO1  JOB (ACCT#),'IDCAMS',NOTIFY=ENRICO,                       
          //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                     
          //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
          //*            DSN=ENRICO.TEST.JCL(IEBGENR2)                         
          //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
          //*                                                                   
        2 //CLEANUP EXEC PGM=CLEANUP                                           
        3 //STEPLIB   DD DISP=SHR,DSN=UTIL.LINKLIB                             
          //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
          //*                                                                   
        4 //IDC     EXEC PGM=IDCAMS                                             
        5 //SYSIN     DD *                                                     
        6 //SYSPRINT  DD SYSOUT=*                                               
        7 //DD1       DD DISP=SHR,DSN=ENRICO.TEST.JCL(IEBGENER)                 
        8 //DD2       DD DISP=(,CATLG),DSN=ENRICO.TEST.FB80.TAPE,               
          //             UNIT=580,LABEL=(1,SL),VOL=SER=222222,                 
          //             DATACLAS=FB80,DCB=LRECL=80                             
 STMT NO. MESSAGE                                                               
-                                                                               
        8 IGD01007I DATACLAS ASSIGNED VALID_CLAS                               
ICH70001I ENRICO   LAST ACCESS AT 00:20:01 ON TUESDAY, SEPTEMBER 20, 2011       
IEF236I ALLOC. FOR ENRICO1 CLEANUP                                             
IEF237I 0AB3 ALLOCATED TO STEPLIB                                               
IEF237I 0583 ALLOCATED TO $CLEANUP                                             
IEF285I   ENRICO.TEST.FB80.TAPE                        UNCATALOGED             
IEF285I   VOL SER NOS= 222222.                                                 
IEF285I   ENRICO.TEST.FB80.TAPE                        DELETED                 
IEF285I   VOL SER NOS= 222222.                                                 
CLEANUP - ENRICO.TEST.FB80.TAPE deleted (222222)                               
IEF142I ENRICO1 CLEANUP - STEP WAS EXECUTED - COND CODE 0000                   
IEF285I   UTIL.LINKLIB                                 KEPT                     
IEF285I   VOL SER NOS= STOR03.                                                 
IEF373I STEP/CLEANUP /START 2011263.0024                                       
IEF374I STEP/CLEANUP /STOP  2011263.0024 CPU    0MIN 00.06SEC SRB    0MIN 00.00S
IEF236I ALLOC. FOR ENRICO1 IDC                                                 
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IEF237I JES2 ALLOCATED TO SYSPRINT                                             
IEF237I 0AB4 ALLOCATED TO DD1                                                   
IGD100I 0580 ALLOCATED TO DDNAME DD2      DATACLAS (FB80)                       
IEC205I DD2,ENRICO1,IDC,FILESEQ=1, COMPLETE VOLUME LIST,                       
DSN=ENRICO.TEST.FB80.TAPE,VOLS=222222,TOTALBLOCKS=1                             
IEF142I ENRICO1 IDC - STEP WAS EXECUTED - COND CODE 0000                       
IEF285I   ENRICO.ENRICO1.JOB04317.D0000101.?           SYSIN                   
IEF285I   ENRICO.ENRICO1.JOB04317.D0000102.?           SYSOUT                   
IEF285I   ENRICO.TEST.JCL                              KEPT                     
IEF285I   VOL SER NOS= STOR04.                                                 
IEF285I   ENRICO.TEST.FB80.TAPE                        CATALOGED               
IEF285I   VOL SER NOS= 222222.                                                 
IEF373I STEP/IDC     /START 2011263.0024                                       
IEF374I STEP/IDC     /STOP  2011263.0024 CPU    0MIN 00.11SEC SRB    0MIN 00.01S
IEF375I  JOB/ENRICO1 /START 2011263.0024                                       
IEF376I  JOB/ENRICO1 /STOP  2011263.0024 CPU    0MIN 00.17SEC SRB    0MIN 00.01S
IDCAMS  SYSTEM SERVICES                                           TIME: 00:24:27
                                                                               
  REPRO INFILE(DD1) OUTFILE(DD2)                                               
IDC0005I NUMBER OF RECORDS PROCESSED WAS 15                                     
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0                       
                                                                               
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0               
******************************** BOTTOM OF DATA ********************************


8 IGD01007I DATACLAS ASSIGNED VALID_CLAS
modified the acs dataclas routine to show that a valid dataclass was assigned

NO JCL ERROR, no warnings

for the sake of completeness I run also two more tests ..

Code:
 000016 //DD2       DD DISP=(,CATLG),DSN=ENRICO.TEST.FB80.TAPE,                 
 000017 //             UNIT=580,LABEL=(1,SL),VOL=SER=222222,                   
 000018 //             DCB=LRECL=80                               

and as expected I received ..

Code:
00.35.36 JOB04318 *IEF233A M 0580,333333,,ENRICO1,IDC,ENRICO.TEST.FB80.TAPE     
00.35.49 JOB04318  IEC141I 013-34,IGG0191I,ENRICO1,IDC,DD2,0580,333333,ENRICO.TE

...
...
...

IGD100I 0580 ALLOCATED TO DDNAME DD2      DATACLAS (        )                   
IEC141I 013-34,IGG0191I,ENRICO1,IDC,DD2,0580,333333,ENRICO.TEST.FB80.TAPE       
IEF142I ENRICO1 IDC - STEP WAS EXECUTED - COND CODE 0012                       

...
...
...

1IDCAMS  SYSTEM SERVICES                                           TIME: 00:35:3
0                                                                               
   REPRO INFILE(DD1) OUTFILE(DD2)                                               
0IDC3300I  ERROR OPENING ENRICO.TEST.FB80.TAPE                                 
 IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN                                   
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 0                                     
0IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12                             
0                                                                               
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12             


for a missing RECFM
with an IDCAMS return code 12

but also an additional test with
Code:
 000016 //DD2       DD DISP=(,CATLG),DSN=ENRICO.TEST.FB80.TAPE,                 
 000017 //             UNIT=580,LABEL=(1,SL),VOL=SER=222222,                   
 000018 //             DCB=(RECFM=FB,LRECL=80)                     

as expected also no errors and IDCAMS return code 0

and anyway if the environment has been properly setup ...
here is a quote from the manuals about sdb and friends

Quote:
The block size limit is the first nonzero value from the following items:

BLKSZLIM value in the DD statement or dynamic allocation.
Block size limit in the data class. The SMS data class ACS routine can assign a data class to the data set. You can request a data class name with the DATACLAS keyword in the DD statement or the dynamic-allocation equivalent. The data set does not have to be SMS managed.
TAPEBLKSZLIM value in the DEVSUPxx member of SYS1.PARMLIB. A system programmer sets this value, which is in the data facilities area (DFA) (see z/OS DFSMSdfp Advanced Services).
The minimum block-size limit, 32 760.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Sep 20, 2011 6:46 pm
Reply with quote

Thanks Gnana. I did not do the clean up for this thread, so I can't answer about your posts.
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Using the Jobname parameter in a Qual... ABENDS & Debugging 1
No new posts Demand with DEADLINE TIME parameter CA Products 4
No new posts Option DYNALLOC second parameter. DFSORT/ICETOOL 11
No new posts how to keep unpaired records with REPRO. JCL & VSAM 9
No new posts Writing the output file name from a p... JCL & VSAM 7
Search our Forums:

Back to Top