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 

about gdg IEF365

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
issac1029
Intermediate


Joined: 10 Dec 2005
Posts: 159
Topics: 75
PostPosted: Mon Dec 12, 2005 9:53 pm    Post subject: about gdg IEF365 Reply with quote
gdg define
*************
Code:

//CREGDG22 JOB   (DDC,SZITC),'CRE GDG',CLASS=F,         
//             MSGCLASS=X,MSGLEVEL=(1,1),REGION=4096K,   
//             NOTIFY=&SYSUID                           
//SRT88PRT EXEC PGM=IDCAMS                               
//SYSOUT   DD   SYSOUT=*                                 
//SYSPRINT DD   SYSOUT=*                                 
//DSCB     DD   DSN=DDCT.CBS.FORM.DCFRCLG.TAPE,         
//         DISP=(NEW,KEEP,DELETE),VOL=SER=MADBV1,       
//         DCB=(LRECL=108,BLKSIZE=108,RECFM=FB,DSORG=PS),
//         UNIT=SYSDA,SPACE=(TRK,0)                     
//SYSIN    DD   *                                       
    DEFINE GDG(NAME(DDCT.CBS.FORM.DCFRCLG.TAPE)        -
    LIMIT(7)                                       -     
    NOEMPTY                                         -   
    SCRATCH) 
*************************************
gdg gen

//REPRODAA JOB (DDC,SZITC),'REP DATA',CLASS=F,                     
//             MSGCLASS=X,MSGLEVEL=(1,1),REGION=4096K,             
//             NOTIFY=&SYSUID                                       
// SET TTT='DDCT.CBS.FORM.DCFRCLG.TAPE'                             
//QQQQQQQQ EXEC PGM=IDCAMS                                         
//SYSOUT   DD  SYSOUT=*                                             
//SYSPRINT DD  SYSOUT=*                                             
//OUT1     DD  DSN=DDCT.CBS.FORM.DCFRCLG.TAPE(+1),                 
//             DISP=(NEW,CATLG,DELETE),LABEL=(1,SUL),UNIT=SYSDA,   
//             DCB=&TTT                               
//IN1      DD  DSN=DDCT.FORM.DCFRCLG,DISP=SHR                       
//SYSIN    DD   *                                                   
    REPRO INFILE(IN1) OUTFILE(OUT1)                                 
********************************
REPONSE：
IEF365I REPRODAA QQQQQQQQ OUT1 - INVALID REFERENCE TO A GENERATION DATA GROUP NAME

DID I DEFINE THE WRONG DSCB？
Back to top
View user's profile Send private message Send e-mail MSN Messenger
issac1029
Intermediate


Joined: 10 Dec 2005
Posts: 159
Topics: 75
PostPosted: Mon Dec 12, 2005 10:21 pm    Post subject: Reply with quote
HOW CAN I SPECIFY A DCB WITH A NONCATLGED FILE（DDCT.CBS.FORM.DCFRCLG.TAPE）
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Vinodch
Beginner


Joined: 23 Dec 2002
Posts: 80
Topics: 32
Location: Chennai, India
PostPosted: Tue Dec 13, 2005 12:20 am    Post subject: Reply with quote
Issac

Are the // SET TTT='DDCT.CBS.FORM.DCFRCLG.TAPE' is only a GDG base or it has any version, if its only a GDG base then DSCB wont work, otherwise if it has a version then specify the version of the file in SET parameter.
_________________
Thanks,
Vinod.
Back to top
View user's profile Send private message
issac1029
Intermediate


Joined: 10 Dec 2005
Posts: 159
Topics: 75
PostPosted: Tue Dec 13, 2005 4:03 am    Post subject: Reply with quote
DCB=&TTT ,i DEFINED AND CATLOGED a qsam used as ttt,SUCCEEDED,

I WANT TO KNOW IF I DEFINE A MODEL(DSCB),USING 'DISP=NEW,KEEP,'
HOW TO USE IT?
Back to top
View user's profile Send private message Send e-mail MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Tue Dec 13, 2005 6:19 am    Post subject: Reply with quote
issac1029,

A GDG base does NOT have any DCB properties like LRECL,RECFM and Blocksize. And you are trying to create a new gen based on the GDG base properties?

Let us know what you are trying to do and we may be able to help you and please stop post in CAPS

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


Joined: 10 Dec 2005
Posts: 159
Topics: 75
PostPosted: Tue Dec 13, 2005 10:45 pm    Post subject: Reply with quote
I want to create a new gen based on the GDG base properties using a uncatloged dscb(has the same name as the base).
Then when I read the new gen in program first time,the declarative procedure which has been defined as follows
(DECLARATIVES.
DECLARATIVES-2 SECTION.
USE AFTER STANDARD BEGINNING FILE
LABEL PROCEDURE ON DCFRCLG-FILE.
PROCESS-DCFRCLG-UHL1. )will be executed.

When I read the last record,another procedure
(DECLARATIVES-2 SECTION.
USE AFTER STANDARD ENDNING FILE
LABEL PROCEDURE ON DCFRCLG-FILE.
PROCESS-DCFRCLG-UHL1. )will be executed.

Another question:BEGINNING AND ENDING label eclarative only available when the file is a tape? Sad
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
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