BJO
New User
Joined: 03 Nov 2005
Posts: 1
Location: denmark
|
|
|
|
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
/*
// |
|
