Programming
1. Interactive Batch Processing Off-line operation Example Payroll processing
2. On-line/Interactive Processing Immediate opeation 2.1 Immediate access to files 2.2 Immediate processing of data
3. Display files one or more record formats 3.1 Record format 3.1.1 Defines an entire screen or part of a screen 3.1.2 Defines fields and constants 3.1.2.1 Fields Input, Output, Both 3.1.2.2 Constants Text shown on the screen
Employee Pay File (EMPPAYPF)
Employee Inquiry Program (CPCH14A)
SCREE N
Display File (CPCH14DF)
Program communication with the workstation using a display file similar to database file Uses WRITE and READ to write and to read data. Program Screen (data + indicators ) Screen Program (data + function key + indicators)
File level keywords which are applicable to the whole display file REF(EMPPAYPF) Fields refer to another file CA03(03 'F3=Exit') CA03 and CF03(return control to program with entered data) INDARA Put all indicators in a separate indicator area
Record level keywords applicable to the Record format only Refer to screen (BLINK) Field level keywords are applicable to a specific field Refer to screen (ALIAS)
Constants and fields SCREEN1 and SCREEN2
ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT DISPLAY-FILE
ASSIGN TO WORKSTATION-CPCH14ADF-SI ORGANIZATION IS TRANSACTION CONTROL-AREA IS WS-CONTROL. ASSIGN TO DATABASE-EMPPAYPF ORGANIZATION IS INDEXED ACCESS IS RANDOM RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.
SELECT EMPLOYEE-PAY-FILE
DISPLAY-FILE is associated with a WORKSTATION device and CPCH14ADF is the display file (DDS) SI indicates that a Separate Indicator area is used ORGANIZATION IS TRANSACTION permits the program to send and receive record formats to and from the workstation device. CONTROL-AREA IS WS-CONTROL Indicators which are passed back and forth between the program and the display file are assigned to function keys. Indicator 03 F3
PHYSICAL FILE
0001.00 0002.00 0003.00 0004.00 0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00 0013.00 0014.00 0015.00 0016.00 0017.00 0018.00 A************************************************************************** A* EMPLOYEE PAY FILE A* Physical File: EMPPAYPF A* Key: Employee Number A**************************************************************************
A UNIQUE A R EMPPAYR TEXT('Employee Pay Record') A EMPLOYEENO 9S 0 ALIAS(EP_EMPLOYEE_NUMBER) A STORENO 4S 0 ALIAS(EP_STORE_NUMBER) A FIRSTNAME 15A ALIAS(EP_FIRST_NAME) A MIDDLEINIT 1A ALIAS(EP_MIDDLE_INITIAL) A LASTNAME 15A ALIAS(EP_LAST_NAME) A DEPARTMENT 3S 0 ALIAS(EP_DEPARTMENT) A HOURLYRATE 5P 2 ALIAS(EP_HOURLY_RATE) A HRSWORKED 3P 1 ALIAS(EP_HOURS_WORKED) A SALES 5P 0 ALIAS(EP_SALES) A K EMPLOYEENO A* ****************** End of data ******************************************************************************************
0003.00 Literal 0004.00 Field 0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00
A A A A A A A A A R SCREEN1
DISPLAY FILE REF(EMPPAYPF) CA03(03 'F3=Exit') INDARA
BLINK 1 25'Employee Pay File Inquiry' 1 68'CPCH14A.1' 3 2'Type value, press Enter' 5 5'Employee number ...'
INDARA All indicators will be passed to and from the program Indicators used to communicate between the program and the display file These are boolean data a category limited to 0 or 1. (B'0' or B'1') Boolean data 1. 2. Condition attributes in a display file Reflect function key responses Function key F3 indicator 03 in the program
CA03(03 `F3=Exit')
Adding Constants to the Work Screen A constant is a value that does not change and is used in processing the application program. Only a value is required for each constant. You do not need operators for constants. A constant can consist of one word or more than one word: If you enclose the words with single quotation marks, a constant that contains all the words is created. If you type the words without enclosing them in single quotation marks, a constant for each word is created. Constants can contain the symbols &, +, ?, <, >, -, or = only if they are enclosed by single quotation marks when typed on the work screen. The *DATE, *TIME, *USER, and *SYSNAME constants are special output constants. You can specify edit values for them: *DATE is a 6-digit edited number. The default form is DD/DD/DD (month/day/year). *TIME is an 8-digit edited number. The form is TT:TT:TT (hours:minutes:seconds). *USER is a 10-charac...