|
View previous topic :: View next topic
|
| Author |
Message |
svjathi
New User
Joined: 16 Mar 2006
Posts: 2
Location: Kapilaranya, USA
|
|
|
|
I was trying to copy an MVS GDG file to the UNIX layer. I have enclosed my proc below.
The first step is to create a file "amcb.cbi" on the UNIX layer. The second step was to copy a GDG to that file.
I am having problems copying the GDG over. When I name the GDG as a flat file and try this, it works fine. I tried using the G00 number instead of (0), but that too did not work.
| Code: |
//RBC06251 PROC
//S010 EXEC PGM=BPXBATCH,DYNAMNBR=20,REGION=6M
//HFS DD PATH='/u/rbc/dropbox/in/amcb.cbi',
// PATHOPTS=(ORDWR,OCREAT),PATHDISP=(KEEP,DELETE),
// PATHMODE=(SIRWXU,SIRWXG)
//STDERR DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD DUMMY
//*
//S020 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=6M
//MVS DD DSN=JCN.RBT.RB0625.CBKDATA(0),DISP=SHR
//HFS DD PATH='/u/rbc/dropbox/in/amcb.cbi'
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
JCL:
//JS01 EXEC RBC06251
//SYSTSIN DD *
OCOPY INDD(MVS) OUTDD(HFS) TEXT CONVERT((BPXFX311)) FROM1047
/*
|
|
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Please post any sysout output that was created by the execution.
Also, does "did not work" mean it ran, but the output was invalid or that it did not run? |
|
| Back to top |
|
|
svjathi
New User
Joined: 16 Mar 2006
Posts: 2
Location: Kapilaranya, USA
|
|
|
|
I had tried the above stuff some days back. The SYSOUT will have to be restored for the exact message. I shall send you that as soon as the SYSOUT is restored.
But the job did not run. It did not like the (0) or the G00 number. But when I changed the last segment to a hard coded stuff like JCN.RBT.RB0625.CBKDATA.JULY17, it worked fine.
Thanks for your reply. I shall get back to you on this. |
|
| Back to top |
|
|
|
|
