Database Management System Emulation - Information Systems Reengineering, Integration and Normalization - page 237

The embedded SQL programs to be translated are:

IDENTIFICATION DIVISION.
PROGRAM-ID. SQLPROJ.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. DG MV10000.
OBJECT-COMPUTER. DG MV10000.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY SQLCA.
77 NO-DATA PIC S9(9) COMP VALUE +100.

77 SUCCESS PIC S9(9) COMP VALUE +0.

01 HOST-VARIABLES.
05 WS-WARDNO PIC X(2) VALUE SPACES.

05 WS-PATPHONE PIC X(10) VALUE SPACES.

05 WS-BEDIDENT PIC X(4) VALUE SPACES.

01 MODULE-AREA.
COPY MODULE.

PROCEDURE DIVISION.
000-MAIN-PROCEDURE.
PERFORM 400-DELETE-ROUTINE.
PERFORM 500-UPDATE-ROUTINE.
STOP RUN.
400-DELETE-ROUTINE.
DISPLAY 'WARDNO TO BE DELETED='.
ACCEPT WS-WARDNO.
EXEC SQL DELETE FROM WARD WHERE WARDNO =
:WS-WARDNO.
END-EXEC.
IF SQLCODE = NO-DATA
DISPLAY 'DELETION ERROR: NO SUCH ROW FOUND.'.
IF SQLCODE = SUCCESS
DISPLAY 'DELETE MODULE ', WS-WARDNO, 'SUCCESSFULLY.'
500-UPDATE-ROUTINE.
DISPLAY 'PHONE NUMBER TO BE UDATED='.
ACCEPT WS-PATPHONE.
DISPLAY ' WARD BEDIDENT='.
ACCEPT WS-BEDIDENT.
EXEC SQL UPDATE MODULE
SET PATPHONE = :WS-PATPHONE
WHERE BEDIDENT = :WS-BEDIDENT.
END-EXEC.
IF SQLCODE = NO-DATA
DISPLAY 'UPDATING ERROR: NO SUCH ROW FOUND.'.
IF SQLCODE = SUCCESS
DISPLAY 'UPDATED THE PHONE NUMBER OF PATIENT
TO' ,WS-PATPHONE, ' FOR BEDIDENT ', WS-BEDIDENT.