Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
IDC3313I

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
pankajayee

New User


Joined: 20 Sep 2005
Posts: 26

PostPosted: Wed Jan 25, 2006 1:59 pm    Post subject: IDC3313I
Reply with quote

Hi all,

Can you please provide me a solution for the problem given below?


1. In the spool I am getting the following error :

REPRO INFILE(INDD06) OUTFILE(OUTDD06)
IDC3302I ACTION ERROR ON NE.GL.YY.EPAS.HUGL.G0001V00
IDC3313I ** ,GL01PSGL,STEP01 ,4F56,D, ,
GET ,WRNG.LEN.RECORD,0000000C000B00,QSAM
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

2.I am using the IDCAM to take a backup. The code is as follow

Code:

//STEP01   EXEC PGM=IDCAMS
//INDD06   DD DSN=&SID..GL.YY.EPAS.HUGL,DISP=SHR                   
//         DD DSN=&SID..GL.YY.EPAS.APGL,DISP=SHR                   
//OUTDD06  DD DSN=&SID..GL.YY.BKUP.EPAS(+1),DISP=(NEW,CATLG,DELETE),
//         DCB=(LRECL=80,RECFM=FB,DSORG=PS,BLKSIZE=27920),         
//         SPACE=(CYL,(10,10),RLSE),                               
//         UNIT=SYSDA                                               
//SYSIN    DD *
REPRO INFILE(INDD06) OUTFILE(OUTDD06)
/*                   
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
Back to top
View user's profile Send private message

senthils

Active User


Joined: 15 Nov 2005
Posts: 117
Location: Chennai, India

PostPosted: Wed Jan 25, 2006 2:09 pm    Post subject:
Reply with quote

Can you give the record length and block size of the input files
Back to top
View user's profile Send private message
pankajayee

New User


Joined: 20 Sep 2005
Posts: 26

PostPosted: Wed Jan 25, 2006 2:14 pm    Post subject:
Reply with quote

For the both input files : Record length=80, block size=27920



-- Pankaj
Back to top
View user's profile Send private message
sbalajibe

New User


Joined: 15 Aug 2005
Posts: 62

PostPosted: Wed Jan 25, 2006 2:37 pm    Post subject:
Reply with quote

Hi pankajayee,

In this JCL u r trying to backup 2 GDG concotenated to one version
first try with first version NE.GL.YY.EPAS.HUGL.G0001V00 backup and try the rest

thanks
Balaji
Back to top
View user's profile Send private message
pankajayee

New User


Joined: 20 Sep 2005
Posts: 26

PostPosted: Wed Jan 25, 2006 2:47 pm    Post subject:
Reply with quote

Hi Balaji,

It is a very big Job, What I provided here is a very small code
It is working fine for all the other backups even there I am cocatenating the 2 GDGs and taking backup.

What might be the problem?


--Pankaj
Back to top
View user's profile Send private message
sbalajibe

New User


Joined: 15 Aug 2005
Posts: 62

PostPosted: Wed Jan 25, 2006 2:56 pm    Post subject:
Reply with quote

Hi ,
In that case also u r backing up two whole gdg concatenated to one version of another GDG, if that is the case this should also work .

try to backup to a flat file,

i am not getting any clue
morderators please help



thanks
Balaji
Back to top
View user's profile Send private message
pankajayee

New User


Joined: 20 Sep 2005
Posts: 26

PostPosted: Wed Jan 25, 2006 3:04 pm    Post subject:
Reply with quote

Can it be a problem with the Volumes on which ore or two of these files are mounted?
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Jan 25, 2006 4:27 pm    Post subject:
Reply with quote

Did you try to refer to the base GDG in the DCB? It then looks at the definition of the GDG. It's been some time but this is what came up in my mind.

Cheers,
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Wed Jan 25, 2006 4:49 pm    Post subject:
Reply with quote

Depend on your installation, if you use idcams, you must define the gdgm or the model for the allocation.
I suggest you to try with a sort or specify a generic model.

I hope in this help.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Jan 25, 2006 5:27 pm    Post subject:
Reply with quote

MGIndaco,

He's actually allocating with idcams.

Cheers,
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Jan 25, 2006 6:04 pm    Post subject:
Reply with quote

For information about models refer to http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea1b502/APPENDIX1.3.3?ACTION=MATCHES&REQUEST=model&TYPE=FUZZY&SHELF=&DT=19960711161313&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT
Back to top
View user's profile Send private message
prabs2006

Active User


Joined: 12 Jan 2006
Posts: 103

PostPosted: Wed Jan 25, 2006 6:15 pm    Post subject:
Reply with quote

HI,

Are you trying to copy all HUGL file generations to the output file?

It seems as though first generation NE.GL.YY.EPAS.HUGL.G0001V00
may have diff rec length.

This is what the error says

"GET ,WRNG.LEN.RECORD,0000000C000B00,QSAM"

Finally a sugg, Blksize can be zero as system will take care of allocating it

Thanks & Regards
Prabs
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Wed Jan 25, 2006 8:06 pm    Post subject:
Reply with quote

I've also found this interesting link:
http://www-1.ibm.com/support/docview.wss?uid=ssg1S1001032

About IDCAMS, remember that:
1) SYSOUT is not needed(idcams use SYSPRINT)
2) you can avoid to code the 3th disposition because IDCAMS, in my tests, never abend.

I hope in this.
Back to top
View user's profile Send private message
pankajayee

New User


Joined: 20 Sep 2005
Posts: 26

PostPosted: Thu Jan 26, 2006 10:52 am    Post subject:
Reply with quote

Hi,

Pankaj here again.

We are getting problem with the concatenation using IDCAMS.

In test it went fine but in the production it is craeating problem.

Your help is very much welcomed.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 26, 2006 3:10 pm    Post subject:
Reply with quote

Please send more info about you concatenation problem. Possible cause: are the DCB's of the concatenated files equal? If not the largest should be defined first.

Cheers,
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:


Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us