Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IEBCOPY - Invalid record length error

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: IEBCOPY - Invalid record length error
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: 8593
Location: Back in jolly old England

PostPosted: Tue Jan 31, 2012 8:58 pm    Post subject:
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Tue Jan 31, 2012 9:30 pm    Post subject: Reply to: IEBCOPY - Invalid record length error
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us