CROSSREF Manual

COBOL 74
Sample Listing
1 ?SAVE ALL
2 ?SEARCH $SYSTEM.SYSTEM.COBOLLIB
3 IDENTIFICATION DIVISION.
4 PROGRAM-ID. FUPPERWARE.
5 AUTHOR. ANN COBOL.
6 INSTALLATION. TRANSACTIONS ANONYMOUS.
7 DATE-WRITTEN. 29 FEBRUARY 1984.
8 DATE-COMPILED.
9 *****************************************************************
10 * *
11 * This program creates a FUP process and watches for its *
12 * termination. *
13 * *
14 *****************************************************************
15 ENVIRONMENT DIVISION.
16 CONFIGURATION SECTION.
17 SOURCE-COMPUTER. TANDEM TXP.
18 OBJECT-COMPUTER. TANDEM TXP.
19 SPECIAL-NAMES.
20 INPUT-OUTPUT SECTION.
21 FILE-CONTROL.
22 SELECT MESSAGE-IN-FILE
23 ASSIGN TO "$RECEIVE"
24 FILE STATUS IS RECEIVE-FILE-STATUS.
25 I-O-CONTROL.
26 RECEIVE-CONTROL.
27 TABLE OCCURS 1 TIMES
28 SYNCDEPTH LIMIT IS 1
29 REPLY CONTAINS 32 CHARACTERS
30 MESSAGE SOURCE IS MESSAGE-SOURCE-REC
32 REPORT SYSTEM MESSAGES.
34 DATA DIVISION.
35 FILE SECTION.
36 FD MESSAGE-IN-FILE
37 LABEL RECORDS ARE OMITTED.
39 01 MESSAGE-IN.
40 05 SYS-MSG-CODE PIC S9(4) COMP.
41 88 SYS-MSG-STOP VALUE -5.
42 88 SYS-MSG-ABEND VALUE -6.
43 05 SYS-MSG-PROCNAME PIC X(6).
44 05 FILLER PIC X(1024).
47 WORKING-STORAGE SECTION.
48 01 MESSAGE-SOURCE-REC.
49 05 SYSTEM-FLAG PIC S9 COMP.
50 05 ENTRY-NUMBER PIC 999 COMP.
51 05 FILLER PIC X(4).
52 05 PROCESS-ID.
53 10 PROCESS-NAME PIC X(6).
54 10 CPU-PIN.
55 15 CPU-PART PIC X.
56 15 PIN-PART PIC X.
57 05 FILLER PIC X(16).
60 01 CPU-PIN-REDEF.
61 05 ALPHA-CPU.
62 10 CPU-HIGH-BYTE PIC X.
63 10 CPU-LOW-BYTE PIC X.
Figure 6-1. COBOL 74 Sample Program (Page 1 of 4)
6-5