View previous topic :: View next topic
|
Author |
Message |
vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
This job creates a GDG (this one made the PRDGR1.WORK.IPM.T112.GDG.G0006V00) and the objective is submitting the job VCF to the internal reader with the complete name of the GDG dsn inside.
Code: |
// INCLUDE MEMBER=$BATCH
//GDG EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//OUT DD DISP=(,CATLG),DSN=PRDGR1.WORK.IPM.T112.GDG(+1),
// SPACE=(TRK,(1,1),RLSE),
// DCB=PRDGR1.WORK.IPM.T112.MODEL
//*
//STFTCER EXEC PGM=PFTSUE,PARM='**'
//INCLUDE INCLUDE MEMBER=#FTSUE
//FICHIN DD DISP=SHR,DSN=*.GDG.OUT
//PARAM DD *
CODF=GDG,ORIG=SIBS,DEST=SIBS-BK,
DATA=000000,HORA=0000,RECL=2044,
TIPO=SV,DISP=S,STAT=O,NUMR=000000000
//*
//SUBCERL EXEC PGM=PSUBJOB
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//JOBIN DD DSN=NDVRCER.CER.JCL.PLAN01.PT(VCF),DISP=SHR
//JOBOUT DD SYSOUT=(A,INTRDR)
//SYSIN DD *
#GDG. &DSN
//* |
The problem is send the GDG dataset in the sysin.
It can submit the NDVRCER.CER.JCL.PLAN01.PT(VCF) but the GDG file doesn’t appear translated.
How could I submit the VCF with the GDG name complete?[/size] |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Why not address the GDS by relative generation |
|
Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
Because it becomes generated with more bytes (that's how gdg works) and they are different from the precedent. This is a unique job with no variants (it's my propose). |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
Because it becomes generated with more bytes (that's how gdg works) and they are different from the precedent. This is a unique job with no variants (it's my propose). |
Suggest you re-post this using different wording. I (for one) have no idea what this tells/asks. . .
But be assured - many here know very well "how gdg works". . . |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I don't know if this is applicable, but the best way I know of resolve a relative generation into its absolute value, outside of writing a program to do so, is to use the IDCAMS PRINT command, and then extracting the name from the SYSPRINT output. |
|
Back to top |
|
|
|