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
 
I am getting the following error ; IGD01020I

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

New User


Joined: 10 Jul 2008
Posts: 23
Location: bangalore

PostPosted: Thu Jul 16, 2009 7:19 pm    Post subject: I am getting the following error ; IGD01020I
Reply with quote

Hi Team,
I ran a jcl to upload a file from disk to tape. and while performing this, I am getting error as like below. Could any one help me out on the issue. PLease advise.

The code:
//BACKUP00 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=TEST1.file.output,
// DISP=SHR
//SYSUT2 DD DSN=TEST.D070609.CNV2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=CART,
// VOL=(,,,45),
// LABEL=(,,EXPDT=99000),
//* LABEL=(1,SL,EXPDT=10000),
// DCB=(*.SYSUT1)
//SYSIN DD DUMMY

The error I am getting is:

STMT NO. MESSAGE

43 IEF604I EXPDT SUBPARAMETER OF LABEL KEYWORD SPECIFIES ZERO DAYS VALUE
38 IGD01020I NSL/LTM LABEL TAPES ARE NOT ALLOWED IN TAPE LIBRARY
AND/OR A NON-LIBRARY VOLUME IS SPECIFIED
******************************* BOTTOM OF DATA *******************************


Thanks,
Bala.M
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: Thu Jul 16, 2009 7:25 pm    Post subject:
Reply with quote

Thry the following

1) I would use SORT with OPTION COPY rather than IEBGENER, although ICEGENER may automatically be substituted for IEBGENER, as it is usually faster.

2) LABEL=(,,EXPDT=99000),
EXPDT is a parameter in its own right, try using EXPDT=99000 instead.

3) DCB=(*.SYSUT1)
Why do you want to use DASD DCB for tape, just code the RECFM and LRECL parameters for the output and let the system decide the optimum blocksize.
Back to top
View user's profile Send private message
balasu

New User


Joined: 10 Jul 2008
Posts: 23
Location: bangalore

PostPosted: Thu Jul 16, 2009 7:36 pm    Post subject:
Reply with quote

Team,

I modified the job as follows and got output as follows:

//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=TEST1.INC.M.INC0120.MASTER.G419.D070609.CNV,
// DISP=SHR
//SYSUT2 DD DSN=TEST.D070609.CNV2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=CART,
// VOL=(,,,45),
// LABEL=(EXPDT=99000),
//* LABEL=(1,SL,EXPDT=10000),
// DCB=(LRECL=320,RECFM=FB)
//*SYSIN DD DUMMY
//SYSIN DD *
SORT FILEDS=COPY
/*


output:

STMT NO. MESSAGE
-
43 IEF604I EXPDT SUBPARAMETER OF LABEL KEYWORD SPECIFIES ZERO DAYS VALUE
38 IGD01020I NSL/LTM LABEL TAPES ARE NOT ALLOWED IN TAPE LIBRARY
AND/OR A NON-LIBRARY VOLUME IS SPECIFIED

Please advise,. Thanks,Bala.M
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8154
Location: East Dubuque, Illinois, USA

PostPosted: Thu Jul 16, 2009 8:54 pm    Post subject:
Reply with quote

CA-1 Tape Management System reserves 98000 and 99000 expiration dates to mean specific things -- namely, to scratch a tape GDG when the generation rolls off, and to specify an external tape is being processed that is not under CA-1 control. You cannot normally specify 000 as the last three digits of an expiration date; this is the first message you're getting.

The IDG01020I message requires you to consult with your site support group -- either the SMS routines do not allow you to code your JCL as you have specified, or there is some other reason the system thinks you're creating a non-labeled tape (or using a volume not already in the tape library) as the message indicates.
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:

Similar Topics
Topic Author Forum Replies Posted
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Reply MQ open error Vignesh Sid COBOL Programming 5 Thu Sep 07, 2017 6:02 pm
No new posts Error in SQL-PLIST3 'Above value tru... rikdeb DB2 4 Wed Sep 06, 2017 1:34 pm
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm

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