Converting Easytrev to EZTPA00

Ask/Clarify the questions on EASYTRIEVE

Moderators: DikDude, Moderator Group

Post Reply
Scott Latchaw
Member
Posts: 1
Joined: Tue Apr 03, 2007 8:12 pm

Converting Easytrev to EZTPA00

Post by Scott Latchaw » Tue Apr 03, 2007 10:13 pm

:(
I need to convert some very basic programs from an old version of the product to the current level. I don't have a manual that describes the syntax for either level of the software. Please let me know where I can get this manual or explain the current code to me.

For instance one very elementary program simply copies one file to another.

The JCL looks like this:

//* THIS STEP DOES AN 'EASTREV GENER' FROM FILEA TO FILEB.
//* A CONDITION CODE OF 4 IS PASSED WHEN THE &&SYSINP and &&YSINT
//* DATA SETS ARE EMPTY.
//* IF THEY ARE EMPTY, ALL THE OTHER STEPS EXCEPT 'INIT' AND THE FORMAT
//* PROCS (DSIMFMT & DSIMTFMT) WILL BE FLUSHED
//* THE 'FILEB' OUTPUT WILL BE PRINTED ON PROD.CO.JCLWTR
//***********************************************************
//EZCHECK EXEC PGM=EASYTREV
//*---------------------------------------------------------------------
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*,OUTLIM=900
//***
//FILEA DD DSN=&&SYSINP,DISP=(OLD,PASS,DELETE)
// DD DSN=&&SYSINT,DISP=(OLD,PASS,DELETE)
//***
//FILEB DD SYSOUT=*
//***
//SYSIN DD DSN=IMSVS.DBA.CARDLIB(EZGENER),DISP=SHR
//***
//***********************************************************

THE EXECUTABLE //SYSIN FILE LOOKS LIKE THIS:

*
* PROGRAM ----- EZGENER
* DATE -------- 07/06/87
* PROGRAMMER -- AL STANKE
* DESCRIPTION - THIS IS AN EZTREV PROGRAM THAT WILL DO A 'IEBGENER'
* FROM FILEA TO FILEB.
* IF FILEA IS EMPTY, A CONDITION CODE OF 4 IS PASSED.
*
*
***********************************************************************
FILE FILEA
****************************
STUFF 1 1 A
****************************
9999
***
IF 1 = 1
WRITE

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Wed Apr 04, 2007 1:18 am

try looking here. there are links for 2 different easytrieve manuals. One link is the easytrieve.com site. They are for online usage, I imagine you can find what you need:

http://www.theamericanprogrammer.com/pr ... ties.shtml
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Veera
Moderator
Posts: 111
Joined: Wed Feb 22, 2006 2:59 pm

Post by Veera » Wed Apr 04, 2007 8:55 am

Scott,

Is the code what ever u have given is the complete JCL, please confirm.

1. Because what i am wondering is regarding the data in the I/P file..
looks to me like FILEA data is the temp data sets ...where is it build..??

2. And coming to other stepnames, i donot see the below stepnames anywhere
in the jcl.

OTHER STEPS EXCEPT 'INIT' AND THE FORMAT
//* PROCS (DSIMFMT & DSIMTFMT) WILL BE FLUSHED

Anyways if the below 4 are your requirements and if you want code in EZT in EZTPA00,let us know
we will give u the code for it.

1. Copying a file from FILEA to FILEB.
2. Return the job with rc = 4 when the I/P file is empty.
3. When there is data in FILEA and after copying if FILEB needs to be printed.
4. When there is no data FILEB should not be printed.

Thanks,
Veera.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others