View previous topic :: View next topic
Author
Message
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
guptae Moderator Joined: 14 Oct 2005Posts: 1208 Location: Bangalore,India
Hi there,
Just provide me ur file layout i will tell u equivlent EZT layout
Back to top
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
guptae Moderator Joined: 14 Oct 2005Posts: 1208 Location: Bangalore,India
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
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
guptae Moderator Joined: 14 Oct 2005Posts: 1208 Location: Bangalore,India
Hi there,
I dont remember whether there r any such utility we used to do it manually.
Back to top
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
raviprasath_kp Warnings : 1 New User Joined: 20 Feb 2005Posts: 65 Location: chennai
ohterwise You can use fileaid.
as usual browe the dataset and change the format as char
and just giveOFFSET
Back to top
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
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
preeth New User Joined: 14 Sep 2006Posts: 11
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
guptae Moderator Joined: 14 Oct 2005Posts: 1208 Location: Bangalore,India
Hi Preeth,
tso ezlayout is shop dependent.
Back to top
azshukla New User Joined: 31 May 2006Posts: 9 Location: Pune
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
azshukla New User Joined: 31 May 2006Posts: 9 Location: Pune
I have the step by step procedure to do so.. maiil me for that..
Back to top
vmj New User Joined: 16 May 2006Posts: 16 Location: Philippines
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
lcmontanez New User Joined: 19 Jun 2007Posts: 50 Location: Chicago
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
vmj New User Joined: 16 May 2006Posts: 16 Location: Philippines
yey, thank you very much
Back to top
Kather Basha New User Joined: 18 Apr 2007Posts: 13 Location: Coimbatore
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
Douglas Wilder Active User Joined: 28 Nov 2006Posts: 305 Location: Deerfield IL
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
LinkinPark Warnings : 1 New User Joined: 20 Nov 2005Posts: 44 Location: DALIAN,CHINA
*******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
noorkh New User Joined: 06 Mar 2006Posts: 76 Location: Chennai
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
Douglas Wilder Active User Joined: 28 Nov 2006Posts: 305 Location: Deerfield IL
*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)
Indicates that an other error has happened. Look for the other error message.
Back to top
Please enable JavaScript!