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
 

 

converting cobol copybook to easytrieve copybook

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
Suryyogi

New User


Joined: 17 Jun 2006
Posts: 27

PostPosted: Sat May 09, 2009 10:13 pm    Post subject: converting cobol copybook to easytrieve copybook
Reply with quote

Hi

Can somebody help me to get a job or program which converts cobol copybook into easytrieve copybook.

thanks
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: Sat May 09, 2009 10:23 pm    Post subject:
Reply with quote

Hello,

You need to use the CBLCNVRT macro that is delivered with Easytrieve.

There are several topics on this in the CA Products part of the forum. Use the forum SEARCH above.
Back to top
View user's profile Send private message
Suryyogi

New User


Joined: 17 Jun 2006
Posts: 27

PostPosted: Sat May 09, 2009 10:26 pm    Post subject: converting cobol copybook to easytrieve copybook
Reply with quote

Can you please provide any example of CBLCNVRT. That will be great help.

Thanks.
Yogesh
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: Sat May 09, 2009 10:27 pm    Post subject:
Reply with quote

Hello,

Use the forum SEARCH. . .
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: Sat May 09, 2009 10:30 pm    Post subject:
Reply with quote

Hello,

I just looked and there are multiple sets of examples. . .

You will need to modify one for your site specifics.
Back to top
View user's profile Send private message
Suryyogi

New User


Joined: 17 Jun 2006
Posts: 27

PostPosted: Sat May 09, 2009 10:47 pm    Post subject:
Reply with quote

Code:
//CBLCNVRT JOB ,                                                       
//         CLASS=D,MSGCLASS=X, MSGLEVEL=(1,1),REGION=4M,               
//         NOTIFY=&SYSUID                                               
//*******************************************************************   
//*           DELETE INFO FILE                                         
//*******************************************************************   
//STEPDEL  EXEC PGM=IEFBR14,COND=(0,NE)                                 
//DELFILE  DD  DSN=MY.GLOSSARY.TABLE,                             
//             DISP=(MOD,DELETE,DELETE),                               
//             UNIT=(SYSDA,5),                                         
//             SPACE=(TRK,0)                                           
//DELFILE1 DD  DSN=MY.CBLCNVRT.OUTPUT,                             
//             DISP=(MOD,DELETE,DELETE),                               
//             UNIT=(SYSDA,5),                                         
//             SPACE=(TRK,0)                                           
//STEP1    EXEC PGM=IGYCRCTL,                                           
//         PARM='MAP,SOURCE,NOOBJECT,NODECK'                           
//STEPLIB  DD DSN=SYS1.COB2COMP,DISP=SHR                   
//SYSIN    DD DSN=MY.SRCLIB.GEGDC(JPGDCVER),DISP=SHR   
//SYSLIB   DD DSN=MY.COPYLIB,DISP=SHR                 
//         DD DSN=MY.COPYLIB.GEGDC,DISP=SHR           
//         DD DSN=MY.COPYLIB,DISP=SHR                 
//SYSLIN   DD DSN=&&LOADSET,                               
//         DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB),           
//         DISP=(,PASS),                                   
//         SPACE=(CYL,(2,2),RLSE),                         
//         UNIT=SCRATCH                                     
//SYSPRINT  DD  DSN=MY.GLOSSARY.TABLE,DISP=(NEW,CATLG),
//          DCB=(LRECL=133,RECFM=F),SPACE=(CYL,(30,30),RLSE),
//             UNIT=SYSDA                                   
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80                           
//SYSUT1   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT1   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT2   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT3   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT4   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT5   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT6   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//SYSUT7   DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH           
//*                                                         
//*---<          >-------------------------------------------
//STEP2     EXEC    PGM=EZTPA00 COND=EVEN                   
//SYSPRINT    DD SYSOUT=*                                   
//GLOSTAB   DD  DSN=MY.GLOSSARY.TABLE,DISP=SHR         
 
//PANDD     DD  DSN=MY.DHC.MACLIB,DISP=SHR             
//EASYPGM   DD  DSN=MY.CBLCNVRT.OUTPUT,DISP=(NEW,CATLG),
//          DCB=(LRECL=80,RECFM=FB,BLKSIZE=3200),           
//          UNIT=SYSDA,SPACE=(CYL,(30,30),RLSE)             
//SYSIN DD *                                                 
%CBLCNVRT GLOSTAB               


This is what I found mostly used. But I am not sure how it works. Where is the cobol copybook as i/p ?
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: Sun May 10, 2009 8:18 am    Post subject:
Reply with quote

Hello,

Did you read the cblcnvrt info in the manual? It will help . . .

Do you understand what the jcl you posted does? The second step is a "compile". You need to create a tiny stub of a cobol program that has a data division of only the COPY for the copybook you want to generate an Easytrieve layout of. The output of the compiler is written to disk raather than sysout.

The 3rd step is a Easytrieve execution that reads the compiler output and creates the Easytrieve layout. Make sure your jcl points to the Easytrieve maclib that contains the cblcnvrt macro(s).
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: Tue May 19, 2009 6:08 am    Post subject:
Reply with quote

Hello,

Is this now working?
Back to top
View user's profile Send private message
Itanium

Active User


Joined: 22 Jan 2006
Posts: 114
Location: India

PostPosted: Thu Jun 04, 2009 6:52 pm    Post subject:
Reply with quote

If your shop has INSYNC, this will be a very easy process.

Option 4.EZ will convert the COBOL copybook to easytrieve version.
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 Jun 05, 2009 12:25 am    Post subject:
Reply with quote

Hello,

It is a very easy process using the cblcnvrt process that comes with the Easytrieve product . . . .

INSYNC is only used in a few places. Everyone that has Easytrieve also has cblcnvrt. . .
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Easytrieve report shalem CA Products 4 Sun Feb 26, 2017 9:08 am
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Execute TSO ACF commands from COBOL-I... supreethi.srid TSO/ISPF 0 Tue Feb 21, 2017 5:19 pm
No new posts Mainframe Interview Questions CICS,CO... akshathan Mainframe Interview Questions 6 Thu Feb 09, 2017 6:38 pm
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm


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