A few comments

1) You only need to run the Define GDG once.  So that should not be run again 
after the you create the GDG

2) The z/OS environment no longer needs the parms of DCB=(lrecl,Blksize,..)  
they can all be specified individually.  So you can code //  
UNIT=SYSDA,LRECL=xx,BLKSIZE=xxxx,RECFM=xx  and so forth

3) IDCAMS does not copy the Dataset attributes from the Input to the OUTPUT 
dataset.  You may be able to use LIKE= in the jcl.  But LIKE will not use a GDG 
for this function.  So you cannot code LIKE=GDG(0).  You can code LIKE=MYDATASET

4) You may wish to use IEBGENER instead of IDCAMS to copy the file.  It can 
copy the dataset attributes.  There are many examples of how to code IEBGENER 
on the internet and in www.ibm.com. 

5) If you wish to use IDCAMS, then on the output DD include the dataset 
attributes, including SPACE, LRECL, BLKSIZE, etc...

6) You do not need IEFBR14 to create the GDG generation.  It is done for you 
when you code GDG(+1)

7) If your dataset is controlled by the SMS ACS functions, then it will land in 
an SMS pool and not on the volume you specify.  If your dataset is not 
controlled by SMS ACS code, it will land on the VOLSER you specify


Hope this helps

Lizette




> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of venkat kulkarni
> Sent: Monday, May 01, 2017 12:17 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SFTP issue with GDG Dataset
> 
> Hello,
> 
> Thanks for reply. JCL mentioned in my previous email for creating GDG
> 
> 
> 
> //DEFGDG  JOB 1130,'TEST',
> 
> //             MSGCLASS=T,NOTIFY=&SYSUID,REGION=4096K
> 
> //BUILD  EXEC  PGM=IDCAMS
> 
> //SYSPRINT DD  SYSOUT=*
> 
> //SYSIN    DD  *
> 
>    DEFINE GDG (NAME(TEST.TEST.TEMP)  -
> 
>                SCRATCH                                    -
> 
>                NOEMPTY                                    -
> 
>                LIM(7))
> 
> /*
> 
> //STEP1 EXEC PGM=IEFBR14
> 
> //SYSPRINT DD SYSOUT=*
> 
> //SYSUT2   DD DSN=TEST.TEST.TEMP(+1),
> 
> //      DISP=(NEW,CATLG,DELETE),DCB=(LRECL=80,RECFM=VB,BLKSIZE=800),
> 
> //       SPACE=(TRK,(2,20),RLSE),UNIT=3390
> 
> //SYSIN DD DUMMY
> 
> /*
> 
> 
> 
> produces below GDG dataset.
> 
> 
> 
> TEST.TEST.TEMP
> 
> TEST.TEST.TEMP.G0001V00
> 
> 
> 
> But, issue comes when I try to copy this GDG into PS file using below JCL.
> 
> 
> 
> //SOLTSSO JOB (1130),MSGCLASS=X,CLASS=A,NOTIFY=&SYSUID ,TYP
> 
> //STEP1 EXEC PGM=IDCAMS
> 
> //SYSPRINT DD SYSOUT=*
> 
> //INDD  DD DSN=TEST.TEST.TEMP(+1),UNIT=3390,
> 
> //         VOL=SER=TSO020
> 
> //OUTDD DD DSN=TEST.TEST.TEMP,UNIT=3390,
> 
> //         VOL=SER=TSO020
> 
> //SYSIN DD *
> 
>   REPRO -
> 
>   INFILE(INDD) -
> 
>   OUTFILE(OUTDD)
> 
> /*
> 
> 
> 
> Both of these above job produce same error is
> 
> IEF286I SOLTSSO STEP1 SORTIN - DISP FIELD INCOMPATIBLE WITH DSNAME
> 
> IEF272I SOLTSSO STEP1 - STEP WAS NOT EXECUTED.
> 
> 
> 
> Please correct me, where I am wrong in this whole process and not able to find
> reason of this copy failure.
> 
> 
> 
> 
> On 01-May-2017 8:05 AM, "Edward Finnell" < 0000000248cce9f3-dmarc-
> requ...@listserv.ua.edu> wrote:
> 
> JCL 101.
> 
> It's telling you the DISP parameter doesn't match what you're asking it to do.
> Default is (NEW,CATLG,DELETE).
> 
> 
> In a message dated 4/30/2017 11:47:33 P.M. Central Daylight Time,
> venkatkulkarn...@gmail.com writes:
> 
> Please  correct me, where I am wrong in this whole  proess.
> 
> 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to