EASYTRIEVE – Sample Program – Display Employee Data
The Input file contains the data of all the employees as shown below
=COLS> —-+—-1—-+—-2—-+—-3—-+—-4—-+—-5
****** ***************************** Top of Data ********
000100 RAJESH SURNAME1 23125478 MECH
000200 SIVA SURNAME2 22351875 CHEM
000300 HARI SURNAME3 21357987 MCA
000400 PAVAN SURNAME4 22574821 MTEC
****** **************************** Bottom of Data ******
The output report Looks like below.
********************************* Top of Data **********************************
3/16/12 EMPLOYEES DATA PAGE 1
FIRST SECOND EMPLOYEE BRANCH
NAME NAME NUM NAME
RAJESH SURNAME1 23125478 MECH
SIVA SURNAME2 22351875 CHEM
HARI SURNAME3 21357987 MCA
PAVAN SURNAME4 22574821 MTEC
******************************** Bottom of Data ********************************
The Code for this is provided Below:
//STEP01 EXEC PGM=EZTPA00
//INPUT DD DSN=HLQ1.INPUT01,DISP=SHR
//OUTPUT1 DD DSN=HLQ1.OUTPUT01,
// DISP=(,CATLG,DELETE),
// UNIT=SYSALLDA,SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
FILE INPUT
INREC 1 80 A
FIRST-NAME 1 6 A HEADING (‘FIRST’ ‘NAME’)
SECOND-NAME 8 8 A HEADING (‘SECOND’ ‘NAME’)
EMPLOYEE-NUM 17 8 N HEADING (‘EMPLOYEE’ ‘NUM’)
BRANCH 26 4 A HEADING (‘BRANCH’ ‘NAME’)
*
FILE OUTPUT1 PRINTER
*
JOB INPUT (INPUT)
*
IF EMPLOYEE-NUM > 20000000
PRINT
END-IF
REPORT PRINTER OUTPUT1 LINESIZE 80
TITLE 01 ‘EMPLOYEES DATA ‘
LINE 01 FIRST-NAME SECOND-NAME EMPLOYEE-NUM BRANCH
/*
Explaining concepts used in these program:
- HEADING – When Used, we get the header as mentioned here in the final Report. This is used at the field declaration process. This can also be done in REPORT section. Here we gave the statement as HEADING (‘FIRST’ ‘NAME’) as we have space between FIRST and NAME, we got the HEADER in two rows.
- Here when we provide the option of PRINTER for output file, the default length of output file is taken as 133 and RECFM as FA (printer file). But LINESIZE provided in the REPORT section, defines the length the report to be displayed in the output file.
- If we have only single report for the whole program, it is not necessary to provide the report name at PRINT statement and REPORT statement.
——————————————————————————————————–
In United States, If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog
——————————————————————————————————–
You may also like to look at:
| Working on Mainframes – Is Change to a different technology necessary |
F1 for Mainframe 