IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to convert COBOL layout to EASYTRIEVE


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
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
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: 1208
Location: Bangalore,India

PostPosted: Sat Oct 07, 2006 10:11 am
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
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: 1208
Location: Bangalore,India

PostPosted: Mon Oct 09, 2006 10:08 am
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
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: 1208
Location: Bangalore,India

PostPosted: Tue Oct 10, 2006 9:44 am
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
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
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
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
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
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
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: 1208
Location: Bangalore,India

PostPosted: Mon Oct 16, 2006 10:07 am
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
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
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
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
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
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
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
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
LinkinPark
Warnings : 1

New User


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

PostPosted: Tue Aug 14, 2007 6:53 am
Reply with quote

*******A023 VFM SPACE ALLOCATION EXCEEDED*** HAVE BEEN FIXED,
BUT
*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)
STILL HAPPENED

SORRY FOR REPLAY SO LATE
Back to top
View user's profile Send private message
noorkh

New User


Joined: 06 Mar 2006
Posts: 76
Location: Chennai

PostPosted: Fri Aug 17, 2007 4:42 pm
Reply with quote

Hi all,

As LinkinPark specified we have CA tools for Cobol Easytrieve plus copybook converter in some of installation. But i feel most of the the system which has installed CA easytrieve should be having this tool also.
You please check in your Utilities whether you have any Easytrieve tool.

Thanks,
Noor.
Back to top
View user's profile Send private message
Douglas Wilder

Active User


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

PostPosted: Fri Aug 17, 2007 8:32 pm
Reply with quote

*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)

Indicates that an other error has happened. Look for the other error message.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Convert Service Unit to CPU Seconds All Other Mainframe Topics 1
No new posts COBOL sorting, with input GDG base COBOL Programming 7
No new posts Need help with ADABAS query (COBOL-AD... All Other Mainframe Topics 0
No new posts Overwriting SSN Digits in Easytrieve ... CA Products 0
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
Search our Forums:

Back to Top