This repository has been archived by the owner on Nov 17, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
SPECIAL_NAMES.cbl
82 lines (62 loc) · 2.46 KB
/
SPECIAL_NAMES.cbl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
IDENTIFICATION DIVISION.
PROGRAM-ID. EDUC3006.
AUTHOR. DIANA SALGUERO.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CLASS VOCAL IS 'A' 'E' 'I' 'O' 'U',
CLASS LETRA iS 'A' THRU 'I' 'J' THRU 'R' 'S' THRU 'Z'
CLASS PAR IS '0' '2' '4' '6' '8',
CLASS NUMERO IS '0' '1' '2' '3' '4' '5' '6' '7' '8' '9'.
INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WKS-CAMPO PIC X(08) VALUE SPACES.
88 WKS-FIN-CAMPOS VALUE "FIN".
PROCEDURE DIVISION.
00-INICIO-BEGIN SECTION.
ACCEPT WKS-CAMPO FROM SYSIN
PERFORM UNTIL WKS-FIN-CAMPOS
ACCEPT WKS-CAMPO FROM SYSIN
* IF WKS-CAMPO = "FIN"
* SET WKS-FIN-CAMPOS TO TRUE
* END-IF
IF WKS-CAMPO NUMERIC THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO NUMERICO'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO NUMERICO'
END-IF
IF WKS-CAMPO NUMERO THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO NUMERO'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO NUMERO'
END-IF
IF WKS-CAMPO ALPHABETIC THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO ALFABETICO'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO ALFABETICO'
END-IF
IF WKS-CAMPO PAR THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO PAR'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO PAR'
END-IF
IF WKS-CAMPO ALPHABETIC THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO ALFABETICO'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO ALFABETICO'
END-IF
IF WKS-CAMPO LETRA THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO LETRA'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO LETRA'
END-IF
IF WKS-CAMPO VOCAL THEN
DISPLAY WKS-CAMPO ' SI LO ACEPTO COMO VOCAL'
ELSE
DISPLAY WKS-CAMPO ' NO LO ACEPTO COMO VOCAL'
END-IF
END-PERFORM
STOP RUN.
00-BEGIN-E. EXIT.