Compaq COBOL AAQ2G1FTK - Manual (Page 458)

Interprogram Communication
12.7 Calling Non-COBOL Programs from Compaq COBOL
Example 12–14 (Cont.) Calling a BASIC Program from a COBOL Program
DISPLAY "Enter 3 digit mortgage/rent".
ACCEPT MORTGAGE-RENT.
MOVE MORTGAGE-RENT TO C-MORTGAGE-RENT.
DISPLAY "Enter 2 digit years employed by current employer".
ACCEPT YEARS-EMPLOYED.
MOVE YEARS-EMPLOYED TO C-YEARS-EMPLOYED.
DISPLAY "Enter 2 digit years at present address".
ACCEPT YEARS-AT-ADDRESS.
MOVE YEARS-AT-ADDRESS TO C-YEARS-AT-ADDRESS.
CALL "APP" USING BY REFERENCE C-APPLICATION-NUMBER
C-ANNUAL-SALARY C-MORTGAGE-RENT
C-YEARS-EMPLOYED C-YEARS-AT-ADDRESS.
GO TO 010-BEGIN.
Example 12–15 shows the BASIC program APP called in Example 12–14, and sample output
from the program’s execution.
Example 12–15 BASIC Program "APP" and Output Data
10 SUB APP (A%,B%,C%,D%,E%)
40 IF A% = 999 THEN 999
50 IF B% => 26000 THEN 800
60 IF B% => 18000 THEN 600
70 IF B% > 15000 THEN 500
80 IF B% => 10000 THEN 400
90 GO TO 700
400 IF E% < 4 THEN 800
410 IF D% < 2 THEN 800
420 GO TO 800
500 IF E% < 4 THEN 700
510 GO TO 800
600 LET X% = B% / 12
650 IF C% => X%/4 THEN 670
660 GO TO 800
670 IF E% => 4 THEN 800
700 PRINT TAB(1);"APPLICANT NUMBER ";A%; " REJECTED"
710 GO TO 999
800 PRINT TAB(1);"APPLICANT NUMBER ";A%;" ACCEPTED"
999 SUBEND
Sample Run of APPL
$ RUN APPL
Enter 3 digit application number
376
Return
Enter 5 digit annual salary
35000
Return
Enter 3 digit mortgage/rent
461
Return
Enter 2 digit years employed by current employer
03
Return
Enter 2 digit years at present address
05
Return
APPLICANT NUMBER 376 ACCEPTED
Enter 3 digit application number
999
Return
All applicants processed
12–28 Interprogram Communication