Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Eazytrieve - Are there any coding standards for Eazytrieve.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
Nishant Jain

New User


Joined: 25 Jul 2006
Posts: 3

PostPosted: Tue Jul 25, 2006 4:57 pm    Post subject: Eazytrieve - Are there any coding standards for Eazytrieve.
Reply with quote

Are there any coding standards for Eazytrieve programs especially for report generation codes. I need to set up some baselines for Easytrieve codes.
I will be grateful if someone can provide some document or some link.
Back to top
View user's profile Send private message

BJO

New User


Joined: 03 Nov 2005
Posts: 1
Location: denmark

PostPosted: Tue Aug 01, 2006 7:31 pm    Post subject: Re: Eazytrieve - Are there any coding standards for Eazytrie
Reply with quote

Coding standards and Easytrieve should always be: keep it simple. Hence the name...Easytrieve
Anyway here's an example - to be run direcctly in the jcl - maybe some of it can become useful - cheers BJO
//EARPT JOB (XXXX,XXXXX,XXXXXXX),
// REGION=0K,TIME=5,MSGCLASS=T,NOTIFY=&SYSUID
//************************************************
//*
//************************************************
//DLET1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE <OUTPDSNAME>
SET MAXCC = 0
/*
//S1 EXEC EASYPLUS,OUTC=T
//SYSPRINT DD DSN=<OUTPDSNAME>,DISP=(,CATLG),
// MGMTCLAS=<CLSNAME>,
// DATACLAS=<DTACLSNAME>
//FILEA DD DSN=<INPDSNAME>,DISP=SHR
//SYSIN DD *
LIST OFF
PARM LIST (NOFILE NOPARM)
FILE FILEA
INDV 1 2 B
DEPT_IN 13 2 N
ID_A 15 8 N
ID_B 15 8 N
ID_C 17 8 N
SACCT_A 43 3 N
SACCT_B 35 3 N
TERM_A 58 4 P 0
TERM_B 50 4 P 0
FILE FILEC TABLE INSTREAM
ARG 1 2 N. DESC 4 14 A
01 WATFORD 1 (CITY)
02 LUTON
03 NORWICH
04 LONDON EAST
05 LONDON THAMES
06 LONDON NORTH
18 BRIGHTON
22 FULLHAM
23 WESTMINSTER
24 HAVERSHAM
26 STOCKTON ON KENT
29 HEATHROW
ENDTABLE
*
*
WTERM W 4 P 0
CT W 8 P 0
CT1 W 8 P 0
CT2 W 8 P 0
TEXT W 14 A


DEPT W 2 N HEADING(DEPARTMENT')
SDEPT W 2 N HEADING('OFFICE' 'NUMBER')
ID W 8 N MASK '99 99 99 99' HEADING('ID')
SACCT W 3 N HEADING('SUB' 'ACCOUNT')
TERM W 7 N HEADING('TERM')

JOB INPUT(FILEA)
TAL1 = TAL1 + 1
SEARCH FILEC WITH DEPT_IN GIVING TEXT
IF REC = +3515
DEPT = DEPT_IN
ID = ID_A
SACCT = SACCT_A
TERM = TERM_A
ELSE
IF REC = +3037, +3038
DEPT = DEPT_IN
ID = ID_B
SACCT = SACCT_B
TERM = TERM_B
ELSE
DEPT = DEPT_IN
ID = ID_C
SACCT = SACCT_A
PERIODE = TERM_A
END-IF
END-IF
PRINT ACCTREPRT
REPORT ACCTRPT LINESIZE 133
SEQUENCE DEPT ID
CONTROL DEPT NEWPAGE
TITLE 1 ' BRITISH COLUMBIA AIRWAYS - INVOICE REGISTRATION'
TITLE 2 'DUE PAYMENT MISSING, TERM: JUNE 2006'
TITLE 3 'PAYMENT ONGOING BY JULY'
TITLE 4 'DEPARTMENT ' TEXT DEPT
LINE 1 ID SACCT TERM

/*
//
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
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help on coding an Assembler Table saranyasakthivel PL/I & Assembler 9 Thu Jan 08, 2015 7:03 pm
No new posts ISPF Panel Coding Soumick Sarkar TSO/ISPF 4 Tue Mar 25, 2014 11:36 am
No new posts How do I coding assembly code for hex... Mansik Kim PL/I & Assembler 32 Fri Dec 27, 2013 7:23 am
No new posts COBOL standards Rant GuyC COBOL Programming 5 Tue Nov 05, 2013 5:46 pm
No new posts Coding COND parm rocky_balboa JCL & VSAM 6 Wed Aug 28, 2013 9:22 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us