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
 

 

How to convert COBOL layout to EASYTRIEVE
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Sat Oct 07, 2006 7:52 am    Post subject: How to convert COBOL layout to EASYTRIEVE
Reply with quote

How to convert COBOL file and field definitions to its CA-EASYTRIEVE PLUS
, Kindly someone can give me example step by step ?
Back to top
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Sat Oct 07, 2006 10:11 am    Post subject:
Reply with quote

Hi there,

Just provide me ur file layout i will tell u equivlent EZT layout
Back to top
View user's profile Send private message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Mon Oct 09, 2006 5:56 am    Post subject:
Reply with quote

Hi guptae,

I heared about there is functionality which provided by CA to convert COBOL layout to EZT one, Could give me some suggestion?
Code:
01 DATA-RECORD.                                     
   03  IN-CATEGORY                         PIC 9(01).
   03  FILLER                              PIC 9(01).
   03  IN-TRAN-TYPE                        PIC 9(02).
   03  IN-TRAN-CODE                        PIC 9(01).
   03  IN-FIRST-STMT-DATE                  PIC 9(04).
   03  IN-TERM                             PIC 9(03).
   03  IN-MERCH-NBR                        PIC X(15).
   03  IN-CUSTOMER-NBR                     PIC 9(16).
   03  IN-SALES-DATE                       PIC 9(06).
   03  IN-SALES-AMOUNT                     PIC 9(07).
   03  IN-TAX-AMOUNT                       PIC 9(07).
   03  IN-TOTAL-AMOUNT                     PIC 9(07).
   03  IN-APPROVAL-NUM                     PIC 9(06).
   03  IN-CARD-EXPIRE-DATE                 PIC 9(04).
   03  FILLER                              PIC 9(09).
   03  IN-BONUS-MONTH-SIGN                 PIC 9(01).
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Oct 09, 2006 10:08 am    Post subject:
Reply with quote

Hi there

Code:
FILE FILEA
     DATA-RECORD                       001 090   A
     IN-CATEGORY                        001 001   N
     FILLER1                                 002   001  N
     IN-TRAN-TYPE                        003   002  N
     IN-TRAN-CODE                      005   001  N
     IN-FIRST-STMT-DATE             006   004  N
     IN-TERM                                010   003  N
     IN-MERCH-NBR                      013   015  A
     IN-CUSTOMER-NBR                028   016  N       
     IN-SALES-DATE                     044   006   N 
     IN-SALES-AMOUNT                050   007    N   
     IN-TAX-AMOUNT                    057   007   N   
     IN-TOTAL-AMOUNT                064   007   N     
     IN-APPROVAL-NUM                071   006   N
     IN-CARD-EXPIRE-DATE          077  004   N       
     FILLER2                                081   009   N
     IN-BONUS-MONTH-SIGN        090   001   N
Back to top
View user's profile Send private message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Tue Oct 10, 2006 5:52 am    Post subject:
Reply with quote

Hi guptae,

Thanks for ur reply, but if the number of field of COBOL layout is so large that it's very hard to covert them manually, it there job or Utility to covert it automatically ?

Regards
Thanks
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Tue Oct 10, 2006 9:44 am    Post subject:
Reply with quote

Hi there,

I dont remember whether there r any such utility we used to do it manually.
Back to top
View user's profile Send private message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Fri Oct 13, 2006 7:14 am    Post subject:
Reply with quote

Hi guptae,

I've got Easy Proc for convertion , I'm learning how to use
Code:
MACRO 1  INFILE  NUMDEF 250  QUOTE  ''''''  SYSTEM  OS  COBOL VS     
PUSH                                                                 
SKIP  1                                                               
**********************************************************************
*                                                                    *
*  CA-PANAUDIT PLUS                                                  *
*                                                                    *
*  COPYRIGHT (C) 1983, 1993 COMPUTER ASSOCIATES INTERNATIONAL, INC.  *
*                                                                    *
**********************************************************************
LIST OFF                                                             
*                                                                    *
*  NAME:  CBLCNVRT                                                   *
*         CONVERT COBOL DEFINITIONS TO EASYTRIEVE PLUS DEFINITIONS   *
*                                                                    *
*  FUNCTION:  CBLCNVRT TRANSLATES COBOL FILE AND FIELD DEFINITIONS   *
*             TO EASYTRIEVE PLUS FILE AND FIELD DEFINITIONS.         *
*                                                                    *
Back to top
View user's profile Send private message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Fri Oct 13, 2006 7:24 am    Post subject:
Reply with quote

Hi,

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               
                           

Sorry for could not provide the source code of MAC CBLCNVERT , since it too large.
Back to top
View user's profile Send private message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Fri Oct 13, 2006 7:29 am    Post subject:
Reply with quote

Hi,
when running above job
Code:
*******A023 VFM SPACE ALLOCATION EXCEEDED                 
*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)


how to resolve it ... thanks
Back to top
View user's profile Send private message
raviprasath_kp
Warnings : 1

New User


Joined: 20 Feb 2005
Posts: 65
Location: chennai

PostPosted: Sat Oct 14, 2006 9:54 pm    Post subject:
Reply with quote

ohterwise You can use fileaid.
as usual browe the dataset and change the format as char
and just giveOFFSET
Back to top
View user's profile Send private message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Mon Oct 16, 2006 6:21 am    Post subject:
Reply with quote

Hi raviprasath_kp,

I'm a freshmen, sorry for don't understand above clearly,
Could you give me more , which dataset should be browsed and how to find out OFFSET.

Regards
Thanks
Back to top
View user's profile Send private message
preeth

New User


Joined: 14 Sep 2006
Posts: 11

PostPosted: Mon Oct 16, 2006 10:02 am    Post subject:
Reply with quote

i beleive the best way to convert a copybook, ie ur cobol field definitions, to a maclib, i.e ur easytrieve field definitions, would be to use ezlayout.. goto to the command, using option 6 and type tso ezlayout.. give in the relevant pds names and member names where required
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Oct 16, 2006 10:07 am    Post subject:
Reply with quote

Hi Preeth,

tso ezlayout is shop dependent.
Back to top
View user's profile Send private message
azshukla

New User


Joined: 31 May 2006
Posts: 9
Location: Pune

PostPosted: Fri Oct 20, 2006 11:58 am    Post subject:
Reply with quote

Hi all,
Seems to be a good idea, but i don't think IBM provides any such utility or with MVS installation, hence it has to be shop dependent. The command to by preeth seems to be using Clist.. (has to be inhouse)
and in the code pasted by Linking park the program he talks about seems to be an other party utility.
linkin park it would be better if you can tell more about the code and the problem.. you can mail me at aloksbox-1@yahoo.co.in

or i think you can attatch a text version of code and prblem file also here
cheers all
Back to top
View user's profile Send private message
azshukla

New User


Joined: 31 May 2006
Posts: 9
Location: Pune

PostPosted: Thu Jul 05, 2007 10:24 am    Post subject:
Reply with quote

I have the step by step procedure to do so.. maiil me for that..
Back to top
View user's profile Send private message
vmj

New User


Joined: 16 May 2006
Posts: 16
Location: Philippines

PostPosted: Thu Jul 05, 2007 11:30 am    Post subject:
Reply with quote

how do you define a field that is array in COBOL to EASYTRIEVE PLUS?

in COBOL, it is defined as

10 act-borrower occurs 2.
15 act-name pic x(30).
15 act-id pic 9(5).

what about in E Plus?
Back to top
View user's profile Send private message
lcmontanez

New User


Joined: 19 Jun 2007
Posts: 50
Location: Chicago

PostPosted: Fri Jul 06, 2007 1:22 am    Post subject:
Reply with quote

ACT-BORROWER 1 35 A OCCURS 2
ACT-NAME ACT-BORROWER 30 A
ACT-ID ACT-BORROWER +30 5 N


Assuming ACT-BORROWER appears in pos 1.
Back to top
View user's profile Send private message
vmj

New User


Joined: 16 May 2006
Posts: 16
Location: Philippines

PostPosted: Fri Jul 06, 2007 7:23 am    Post subject:
Reply with quote

yey, thank you very much icon_biggrin.gif
Back to top
View user's profile Send private message
Kather Basha

New User


Joined: 18 Apr 2007
Posts: 13
Location: Coimbatore

PostPosted: Thu Jul 19, 2007 3:46 pm    Post subject:
Reply with quote

Go to File Aid
Use the View - interpreted recordlayout - may be 8
give the PDS name and member name where the COBOL layout is and give enter
U will get the EZT layout
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Wed Jul 25, 2007 3:09 am    Post subject:
Reply with quote

To fix the following error

*******A023 VFM SPACE ALLOCATION EXCEEDED *******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)

Add
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(5,5))
to the PGM=EZTPA00 step

I got this CBLCNVRT to work. I think it will be very helpful to me.
Thank You.
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
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Convert +9999999999999.99 to S9(12)V9(3) vnktrrd DFSORT/ICETOOL 8 Thu Nov 17, 2016 8:15 pm
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts convert PD to ZD ram_vizag DFSORT/ICETOOL 5 Sat Nov 05, 2016 3:06 am


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