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

IEBCOPY - Invalid record length error
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
sureshmurali
Warnings : 1
New User


Joined: 25 Nov 2010
Posts: 70
Location: Sivakasi, India
PostPosted: Tue Jan 31, 2012 8:47 pm
 Reply with quote
This is my PDS DCB -

Code:
General Data                     
 Management class . . : MCPDS   
 Storage class  . . . : STANDARD
  Volume serial . . . : SLG073   
  Device type . . . . : 3390     
 Data class . . . . . : DCSNGLV 
  Organization  . . . : PO       
  Record format . . . : FB       
  Record length . . . : 80       
  Block size  . . . . : 8000     
  1st extent cylinders: 300     
  Secondary cylinders : 300     
  Data set name type  : PDS     


PDS - AAAA.BBBB.CCCC.DDDD

Using the following JCL i tried to copy it to another PDS.

Code:
//IEBGEN EXEC PGM=IEBCOPY                                   
//SYSUT1 DD DSN=AAAA.BBBB.CCCC.DDDD,DISP=SHR           
//SYSUT2 DD DSN=AAAA.BBBB.CCCC.DDDD.COPY,DISP=(NEW,CATLG,),
//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)           
//SYSPRINT DD SYSOUT=*                                     
//SYSIN  DD *                                               
  /*

When checked the JCL for syntax i got the message -

Code:
E1  4 DSS20012W  JCL RECFM 'FB' DOES NOT MATCH THE VOLUME ENTRY RECFM
                 'VS'.                                               


But i submitted the JCL. The return code is MAXCC = 0.

When tried to open the new PDS, it shows the following message and couldnt open.

Code:
Invalid record length


Can someone help me to solve this ?

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

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Tue Jan 31, 2012 8:58 pm
 Reply with quote
Perhaps specifying some directory information on the output PDS may help
Back to top
View user's profile Send private message
sureshmurali
Warnings : 1
New User


Joined: 25 Nov 2010
Posts: 70
Location: Sivakasi, India
PostPosted: Tue Jan 31, 2012 9:03 pm
 Reply with quote
Thanks Expat.
I included this line to SYSUT2.
PDS is created succesfully with no problem....

Code:
//          SPACE=(CYL,(300,300,40),RLSE) 
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy
PostPosted: Tue Jan 31, 2012 9:30 pm
 Reply with quote
and the message from the dumb jcl checker was completely misleading

but apart that
most probably You submitted something else

I wanted confirmation and submitted ...

Code:
 ****** ***************************** Top of Data ******************************
 000001 //ENRICO1  JOB (ACCT#),'IEBCOPY',NOTIFY=ENRICO,                         
 000002 //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                       
 000003 //*                                                                     
 000004 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 000005 //IEB     EXEC PGM=IEBCOPY                                             
 000006 //SYSIN     DD DUMMY                                                   
 000007 //SYSPRINT  DD SYSOUT=*                                                 
 000008 //SYSUT1    DD DISP=SHR,DSN=ENRICO.TEST.JCL                             
 000009 //SYSUT2    DD DISP=(NEW,CATLG),                                       
 000010 //             DSN=ENRICO.TEST.JCLZZZ,                                 
 000011 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)                     
 ****** **************************** Bottom of Data ****************************


and the result was according to my reminiscences ...
JCL ERROR
as per
Code:

17.53.15 JOB06093 ---- TUESDAY,   31 JAN 2012 ----                             
17.53.15 JOB06093  IRR010I  USERID ENRICO   IS ASSIGNED TO THIS JOB.           
17.53.15 JOB06093  ICH70001I ENRICO   LAST ACCESS AT 11:52:21 ON TUESDAY, JANUAR
17.53.15 JOB06093  $HASP373 ENRICO1  STARTED - INIT 1    - CLASS A - SYS SYS1   
17.53.15 JOB06093  IEF403I ENRICO1 - STARTED - TIME=17.53.15                   
17.53.15 JOB06093  IEF453I ENRICO1 - JOB FAILED - JCL ERROR - TIME=17.53.15     
17.53.15 JOB06093  $HASP395 ENRICO1  ENDED                                     
------ JES2 JOB STATISTICS ------                                               
  31 JAN 2012 JOB EXECUTION DATE                                               
           11 CARDS READ                                                       
           39 SYSOUT PRINT RECORDS                                             
            0 SYSOUT PUNCH RECORDS                                             
            2 SYSOUT SPOOL KBYTES                                               
         0.00 MINUTES EXECUTION TIME                                           
        1 //ENRICO1  JOB (ACCT#),'IEBCOPY',NOTIFY=ENRICO,                       
          //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                     
          //*                                                                   
        2 //IEB     EXEC PGM=IEBCOPY                                           
        3 //SYSIN     DD DUMMY                                                 
        4 //SYSPRINT  DD SYSOUT=*                                               
        5 //SYSUT1    DD DISP=SHR,DSN=ENRICO.TEST.JCL                           
        6 //SYSUT2    DD DISP=(NEW,CATLG),                                     
          //             DSN=ENRICO.TEST.JCLZZZ,                               
          //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)                   
ICH70001I ENRICO   LAST ACCESS AT 11:52:21 ON TUESDAY, JANUARY 31, 2012         
IEF344I ENRICO1 IEB SYSUT2 - ALLOCATION FAILED DUE TO DATA FACILITY SYSTEM ERROR
IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET                       
ENRICO.TEST.JCLZZZ                                                             
IEF272I ENRICO1 IEB - STEP WAS NOT EXECUTED.                                   
IEF285I   ENRICO.ENRICO1.JOB06093.D0000101.?           SYSOUT                   
IEF285I   ENRICO.TEST.JCL                              KEPT                     
IEF285I   VOL SER NOS= STOR04.                                                 


how nice if people would not ask to <debug> things based on dumb products
and posted consistent info about their experiments icon_evil.gif
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 Store the data for fixed length COBOL Programming 1
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 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