Objective
This example creates two reports:
Procedure
for departments 4000 and 3200.
Complete Code
col. 2 ▼ DATABASE DICTNAME=DOCUDICT IN DB SS=EMPSS01 PATHAA DEPARTMENT EMPLOYEE PATHBB DEPARTMENT EMPLOYEE EXPERTISE SKILL SELECT DEPARTMENT IN PATH BB WHEN DEPT-ID-0410 EQ (4000 3200) 013 EMPLOYEES BY DEPARTMENT 0151*020 DEPT-NAME-0410 HH 'DEPARTMENT' 0151*030 EMP-NAME-0415 HH 'EMPLOYEE' 017010 IF PATH-ID NE 'AA' DROP 023 EMPLOYEE SKILL LEVELS FOR DEPTS 4000 AND 3200 0251*010 DEPT-ID-0410 FN HH 'DEPT ID' 0251*020 DEPT-NAME-0410 HH 'DEPARTMENT' 0251*030 EMP-NAME-0415 HH 'EMPLOYEE' 0251*040 START-YEAR-0415 HH 'START YEAR' 0251*050 SKILL-NAME-0455 HH 'SKILL' 027010 IF PATH-ID NE 'BB' DROP
Result
REPORT NO. 01 EMPLOYEES BY DEPARTMENT mm/dd/yy PAGE 1 DEPARTMENT EMPLOYEE ACCOUNTING AND PAYROLL JUNE BLOOMER ACCOUNTING AND PAYROLL EDWARD HUTTON ACCOUNTING AND PAYROLL RUPERT JENSON ACCOUNTING AND PAYROLL MARIANNE KIMBALL ACCOUNTING AND PAYROLL DORIS KING ACCOUNTING AND PAYROLL BRIAN NICEMAN COMPUTER OPERATIONS HERBERT CRANE COMPUTER OPERATIONS JANE FERNDALE COMPUTER OPERATIONS GEORGE FONRAD COMPUTER OPERATIONS ROBIN GARDNER COMPUTER OPERATIONS DOUGLAS KAHALLY COMPUTER OPERATIONS TERENCE KLWELLEN COMPUTER OPERATIONS SANDY KRAAMER COMPUTER OPERATIONS HERBERT LIPSICH COMPUTER OPERATIONS NANCY TERNER BLUE SKIES BETH CLOUD BLUE SKIES ALAN DONOVAN BLUE SKIES DANIEL MOON BRAINSTORMING ROY ANDALE BRAINSTORMING HARRY ARM
REPORT NO. 02 EMPLOYEE SKILL LEVELS FOR DEPTS 4000 AND 3200 mm/dd/yy PAGE 1 DEPT ID DEPARTMENT EMPLOYEE START YEAR SKILL 3200 COMPUTER OPERATIONS HERBERT CRANE 77 IDMSDC 3200 COMPUTER OPERATIONS HERBERT CRANE 77 IBM 3200 COMPUTER OPERATIONS HERBERT CRANE 77 ASSEMBLER 3200 COMPUTER OPERATIONS HERBERT CRANE 77 DEC 3200 COMPUTER OPERATIONS HERBERT CRANE 77 RPGII 3200 COMPUTER OPERATIONS JANE FERNDALE 79 IDMSDC 3200 COMPUTER OPERATIONS JANE FERNDALE 79 IBM 3200 COMPUTER OPERATIONS GEORGE FONRAD 80 DATA ENTRY 3200 COMPUTER OPERATIONS GEORGE FONRAD 80 FILING 3200 COMPUTER OPERATIONS ROBIN GARDNER 81 DATA ENTRY 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 KEYPUNCH 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 FILING 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 TYPING 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 PHONE 3200 COMPUTER OPERATIONS TERENCE KLWELLEN 78 COBOL 3200 COMPUTER OPERATIONS TERENCE KLWELLEN 78 ASSEMBLER 3200 COMPUTER OPERATIONS SANDY KRAAMER 81 KEYPUNCH 3200 COMPUTER OPERATIONS SANDY KRAAMER 81 TYPING 3200 COMPUTER OPERATIONS HERBERT LIPSICH 81 IBM 3200 COMPUTER OPERATIONS NANCY TERNER 82 FILING 3200 COMPUTER OPERATIONS NANCY TERNER 82 PHONE 3200 COMPUTER OPERATIONS NANCY TERNER 82 TYPING 4000 PUBLIC RELATIONS MICHAEL ANGELO 79 RAINBOW 4000 PUBLIC RELATIONS MICHAEL ANGELO 79 ART DESIGN 4000 PUBLIC RELATIONS MICHAEL ANGELO 79 PASTEUP 4000 PUBLIC RELATIONS MONTE BANK 78 PUB REL MGT 4000 PUBLIC RELATIONS CHARLES BOWER 77 PHOTO COLOR 4000 PUBLIC RELATIONS CHARLES BOWER 77 PHOTO B/W 4000 PUBLIC RELATIONS CAROL MCDOUGALL 80 CUT/PASTE 4000 PUBLIC RELATIONS CAROL MCDOUGALL 80 LAYOUT
|
Copyright © 2014 CA.
All rights reserved.
|
|