View previous topic :: View next topic
|
Author |
Message |
LinkinPark Warnings : 1 New User

Joined: 20 Nov 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2005 Posts: 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 2006 Posts: 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 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi Preeth,
tso ezlayout is shop dependent. |
|
Back to top |
|
 |
azshukla
New User
.jpg)
Joined: 31 May 2006 Posts: 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
.jpg)
Joined: 31 May 2006 Posts: 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 2006 Posts: 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 2007 Posts: 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 2006 Posts: 16 Location: Philippines
|
|
|
|
yey, thank you very much  |
|
Back to top |
|
 |
Kather Basha
New User
Joined: 18 Apr 2007 Posts: 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
.jpg)
Joined: 28 Nov 2006 Posts: 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 2005 Posts: 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 2006 Posts: 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
.jpg)
Joined: 28 Nov 2006 Posts: 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 |
|
 |
|
|