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: 8620
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: 8201
Location: Dubuque, Iowa, 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 -502 Error - Cursor already open anand jeyapaul DB2 7 Sun Oct 29, 2017 4:22 am
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm

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