MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Error Handling in IEBGENER
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12401
Topics: 75
Location: San Jose
PostPosted: Mon Jul 19, 2004 8:26 am    Post subject: Reply with quote
Vivek,


Quote:
Can you guys let me know how to see the EOF flag set or not in a dataset ?


Check this topic (look at the 9th post onwards from the bottom).

http://www.mvsforums.com/helpboards/viewtopic.php?t=1285&highlight=dscb

or there is rexx macro(Doug Nadel's site) which can be used to format a format 1 dscb from a listds command.

Check this link

http://www.sillysot.com/ftp/dscb.txt

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Mon Jul 19, 2004 8:46 am    Post subject: Reply with quote
Kolusu, I checked the first Link and went thru the IBM Manual to read the text, but didnt quite understand it. I will give the second one a try.

I also saw that Jack was out of JOb in the link. A small suggestion, you can allocate a section for MVS related JOBS so that the readers can use this site even when they are out of job Wink . You may even generate revenue which can be used to run this site.

Vivek
_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Ramkumar_Nottath
Beginner


Joined: 31 May 2008
Posts: 2
Topics: 0
PostPosted: Fri Jun 27, 2008 2:37 am    Post subject: Reply with quote
Hi,

I copied a file to tape. Now i want to bring it back to disk since I want to view the data in it. But when i'm trying the copy it back to disk using IEBGENER, i'm getting error -
Code:

***************************************************************

DATA SET UTILITY - GENERATE                                           
IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT
IEB368I SYSTEM DETERMINED BLKSIZE USED FOR OUTPUT                     
IEB311I CONFLICTING DCB PARAMETERS                                   

***************************************************************

This is the JCL that I'm using to copy to disk.

//XXXXXXX1 JOB (XXXX),'COPY TO DISK',NOTIFY=&SYSUID,MSGCLASS=X,
//      CLASS=0                                               
//STEP1OF1 EXEC PGM=IEBGENER                                   
//STATOUT  DD SYSOUT=*                                         
//SYSPRINT DD SYSOUT=*                                         
//SYSUDUMP DD SYSOUT=*                                         
//SYSOUD   DD SYSOUT=*                                         
//SYSOUT   DD SYSOUT=*                                         
//SYSIN    DD DUMMY                                           
//SYSUT1   DD DISP=SHR,DSN=XXXX.INPUT.BKP               
//SYSUT2   DD DSN=XXXX.INPUT.DISK,                         
//                             DISP=(NEW,CATLG,DELETE),                         
//                             UNIT=(SYSDA,3),                                 
//                             SPACE=(CYL,(100,50),RLSE),                       
//                             DCB=*.SYSUT1   

The JCL that was used to back up the file is

//XXXXXXXX PROC OUTPUT=,    HIGH LEVEL QUALIFIER         
//         PARMLIB=,        PARAMETER LIBRARY LOCATION   
//         MEM=,            PARM MEMBER                   
//         EXPDT=99000      CATALOG CONTROL               
//*******************************************************
//*               BACKUP THE FILE                       *
//*******************************************************
//STEP0100 EXEC PGM=CHECKCC,PARM='PGMA=ADRDSSU,ABEND=0005'
//SYSPRINT DD SYSOUT=*                                   
//TAPEOUT  DD DSN=XXXX.INPUT.BKP,                           
//         DISP=(NEW,CATLG,DELETE),                       
//         UNIT=(CARTA00,,DEFER),                         
//         LABEL=(1,SL,EXPDT=99000),                   
//         VOL=(,,,60)                                   
//SYSIN    DD *
DUMP OUTDD(TAPEOUT)                                       -
    DS(INCLUDE(XXXX.INPUT)             -
              ))                                          -
    OPT(3)                                                -
    COMPRESS                                              -
    TOL(ENQF)                                             -
    SHR SPHERE                                             
/*
Back to top
View user's profile Send private message
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
PostPosted: Fri Jun 27, 2008 11:53 am    Post subject: Reply with quote
A) This is a different subject
B) You should not use IEBGENER to copy an ADRDSSU - the manual, I believe, says that the results are unpredictable. I believe ADRDSSU has a COPYDUMP, or similar, command to copy a dump. Somewhere there was a long discussion on this exact subject but I do not know if it was this forum or not.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
Ramkumar_Nottath
Beginner


Joined: 31 May 2008
Posts: 2
Topics: 0
PostPosted: Fri Jun 27, 2008 4:41 pm    Post subject: Reply with quote
Thanks Nic.
I got the JCL to do it.

//XXXXXXXX JOB CLASS=0,MSGCLASS=X,NOTIFY=&SYSUID
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=A
//TAPE DD UNIT=(CARTA00,,DEFER),
// LABEL=(1,SL,EXPDT=99000),
// VOL=(,,,60),
// DISP=(OLD,KEEP),DSNAME=INPUT.BKP
//SYSIN DD *
RESTORE DATASET(INCLUDE(INPUT.DISK)) -
INDDNAME(TAPE) REPLACE
/*
Back to top
View user's profile Send private message
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
PostPosted: Sat Jun 28, 2008 7:51 am    Post subject: Reply with quote
If your backup - INPUT.BKP is cataloged you only need:
Code:

//TAPE    DD DSN=INPUT.BKP,DISP=OLD

If it is not catalogued you will have to supply the volume serial numbers, ignore the SL and EXPDT, do not DEFER mounting - no point unless you make a mistake on your control cards and foget the KEEP - default.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group