Explain the action oflthe following procedure which includes a function procedure within itself. SALES: PROCEDURE; DCL 1 SALES_FORCE (500): 2 NAME; 3 FIRST_NAME CHAR(10). 3 LAST_NAME CHAR(20), 2 BASE_SALARY FIXED (6,2) 2 PERCENT_COMMISSION FIXED(2,0). A: IF BASE_SALARY(SALESMAN_INDEX)= BASE_SALARY (SALESMAN_ INDEX) THEN GOTO L; ELSE GOTO A; SALESMAN_INDEX: PROCEDURE: GET LIST(F_NAME, L_NAME); DOI=1 TO 500 WHILE (F_NAME (I) -= FIRST_NAME (I) | L_NAME (1)-=LAST_NAME (I): END; IF I>500 THEN DO; PUT LIST (F_NAME|| L_NAME, b NOT FOUND') GOTO ERROR; END; RETURN(I) ; END SALESMAN_INDEX; END SALES; L:

Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
icon
Related questions
Question
Help please
Explain the action oflthe following procedure which includes
a function procedure within itself.
SALES:
PROCEDURE;
DCL 1 SALES_FORCE (500) ;
2 ΝΑΜΕ
3 FIRST_NAME CHAR(10),
3 LAST_NAME CHAR(20),
2 BASE_SALARY FIXED (6,2)
2 PERCENT_COMMISSION
FIXED(2,0),
A:
IF BASE_SALARY(SALESMAN_INDEX)=
BASE_SALARY (SALESMAN_
INDEX) THEN GOTO L:
ELSE GOTO A;
SALESMAN_INDEX: PROCEDURE;
GET LIST(F_NAME, L_NAME);
DOI=1 TO 500 WHILE (F_NAME (I)
-= FIRST_NAME (I) |
L_NAME (I)-=LAST_NAME (I);
END;
IF I>500 THEN DO;
PUT LIST (F_NAME|| L_NAME, 'b
NOT FOUND')
GOTO ERROR;
END;
RETURN(I) ;
END SALESMAN_INDEX;
END SALES;
L:
Transcribed Image Text:Explain the action oflthe following procedure which includes a function procedure within itself. SALES: PROCEDURE; DCL 1 SALES_FORCE (500) ; 2 ΝΑΜΕ 3 FIRST_NAME CHAR(10), 3 LAST_NAME CHAR(20), 2 BASE_SALARY FIXED (6,2) 2 PERCENT_COMMISSION FIXED(2,0), A: IF BASE_SALARY(SALESMAN_INDEX)= BASE_SALARY (SALESMAN_ INDEX) THEN GOTO L: ELSE GOTO A; SALESMAN_INDEX: PROCEDURE; GET LIST(F_NAME, L_NAME); DOI=1 TO 500 WHILE (F_NAME (I) -= FIRST_NAME (I) | L_NAME (I)-=LAST_NAME (I); END; IF I>500 THEN DO; PUT LIST (F_NAME|| L_NAME, 'b NOT FOUND') GOTO ERROR; END; RETURN(I) ; END SALESMAN_INDEX; END SALES; L:
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY