Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Copying a GDG file to UNIX layer using OCOPY

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
svjathi

New User


Joined: 16 Mar 2006
Posts: 2
Location: Kapilaranya, USA

PostPosted: Fri Jul 20, 2007 9:29 pm    Post subject: Copying a GDG file to UNIX layer using OCOPY
Reply with quote

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
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jul 20, 2007 11:26 pm    Post subject:
Reply with quote

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
View user's profile Send private message
svjathi

New User


Joined: 16 Mar 2006
Posts: 2
Location: Kapilaranya, USA

PostPosted: Sat Jul 21, 2007 12:23 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us