il y a aussi le "faux-blanc" pour faire devenir devenir chèvre les collègues développeurs les jours de bonne humeur
il y a aussi le "faux-blanc" pour faire devenir devenir chèvre les collègues développeurs les jours de bonne humeur
Bonjour et merci pour ces informations mais j'aimerais savoir si il est possible d'activer les codes couleurs directement en les tapant au clavier.
Si oui, pouvez-vous me dire où doit être positionné le curseur dans le code source et la combinaison clavier pour écrire en blanc (par exemple)
D'avance un grand merci
Bonjour.
Une autre discussion a été ouverte à ce sujet mais pour le Cobol. Je me suis aperçu que la pièce jointe a été supprimée je ne sais pour quelle raison. Je vous remets, à sa place, les code des programmes Cobol et CL qui permettent de générer ces codes dans un membre source.
Voici un exemple de programme Cobol qui génère les codes couleurs et le programme CL qui l'exécute.
1 - Compiler le programme Cobol GENCOUL.
2 - Dans le programme CL, changer le nom de la bibliothèque HJDIVERS, du fichier source QLBLSRC et du membre COULEURS par vos propres noms.
3 - Compiler et exécuter le programme GENCOUL_CL
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99 PROCESS CRTF 0002 ****************************************************************** 0003 * * 0004 * GENERATION DES COULEURS DANS UN MEMBRE SOURCE 0005 * * 0006 ****************************************************************** 0007 IDENTIFICATION DIVISION. 0008 PROGRAM-ID. GENCOL. 0009 AUTHOR. H. JAIDANE. 0010 ENVIRONMENT DIVISION. 0011 CONFIGURATION SECTION. 0012 SOURCE-COMPUTER. IBM-S36. 0013 OBJECT-COMPUTER. IBM-S36. 0014 INPUT-OUTPUT SECTION. 0015 FILE-CONTROL. 0016 SELECT SOURCE ASSIGN DISK-SOURCE. 0017 DATA DIVISION. 0018 FILE SECTION. 0019 FD SOURCE LABEL RECORD STANDARD. 0020 01 SOURCE-RD. 0021 03 SRCE-L PIC X(92). 0022 03 SRCE-L1 REDEFINES SRCE-L. 0023 05 SRCE-SEQ PIC X(6). 0023 05 SRCE-DATE PIC X(6). B023 05 SRCE-COL1 PIC X(1). B023 05 SRCE-COL2 PIC X(1). B023 05 SRCE-COL3 PIC X(1). B023 05 SRCE-COL4 PIC X(1). B023 05 SRCE-COL5 PIC X(1). B023 05 SRCE-COL6 PIC X(1). 0024 05 SRCE-COL7 PIC X(1). 0025 05 SRCE-PART2. 0026 07 SRCE-ZONEA PIC X(4). 0027 07 SRCE-ZONEB PIC X(69). 0029 WORKING-STORAGE SECTION. 0030 77 I PIC 99. 0031 77 J PIC 99. 0032 01 COULEURS-X1. 0033 03 X-20 PIC 9(4) COMP-4 VALUE 32. 0034 03 X-21 PIC 9(4) COMP-4 VALUE 33. 0035 03 X-22 PIC 9(4) COMP-4 VALUE 34. 0036 03 X-23 PIC 9(4) COMP-4 VALUE 35. 0037 03 X-24 PIC 9(4) COMP-4 VALUE 36. 0038 03 X-25 PIC 9(4) COMP-4 VALUE 37. 0039 03 X-26 PIC 9(4) COMP-4 VALUE 38. 0040 03 X-27 PIC 9(4) COMP-4 VALUE 39. 0041 03 X-28 PIC 9(4) COMP-4 VALUE 40. 0042 03 X-29 PIC 9(4) COMP-4 VALUE 41. 0043 03 X-2A PIC 9(4) COMP-4 VALUE 42. 0044 03 X-2B PIC 9(4) COMP-4 VALUE 43. 0045 03 X-2C PIC 9(4) COMP-4 VALUE 44. 0046 03 X-2D PIC 9(4) COMP-4 VALUE 45. 0047 03 X-2E PIC 9(4) COMP-4 VALUE 46. 0048 03 X-2F PIC 9(4) COMP-4 VALUE 47. 0049 03 X-30 PIC 9(4) COMP-4 VALUE 48. 0050 03 X-31 PIC 9(4) COMP-4 VALUE 49. 0051 03 X-32 PIC 9(4) COMP-4 VALUE 50. 0052 03 X-33 PIC 9(4) COMP-4 VALUE 51. 0053 03 X-34 PIC 9(4) COMP-4 VALUE 52. 0054 03 X-35 PIC 9(4) COMP-4 VALUE 53. 0055 03 X-36 PIC 9(4) COMP-4 VALUE 54. 0056 03 X-37 PIC 9(4) COMP-4 VALUE 55. 0057 03 X-38 PIC 9(4) COMP-4 VALUE 56. 0058 03 X-39 PIC 9(4) COMP-4 VALUE 57. 0059 03 X-3A PIC 9(4) COMP-4 VALUE 58. 0060 03 X-3B PIC 9(4) COMP-4 VALUE 59. 0061 03 X-3C PIC 9(4) COMP-4 VALUE 60. 0062 03 X-3D PIC 9(4) COMP-4 VALUE 61. 0063 03 X-3E PIC 9(4) COMP-4 VALUE 62. 0064 03 X-3F PIC 9(4) COMP-4 VALUE 63. 0065 01 COULEURS-X2 REDEFINES COULEURS-X1. 0066 03 COULEURS OCCURS 32. 0067 05 FILLER PIC X. 0068 05 COULEUR PIC X. 0069 PROCEDURE DIVISION. 0070 TRAIT SECTION. 0071 DEBUT. 0072 OPEN OUTPUT SOURCE. 0073 INIT. 0074 MOVE " ******* COULEURS EN POSITION 2 DE CHAQUE LIGNE" 0074 TO SRCE-L. 0075 WRITE SOURCE-RD. 0076 MOVE 0 TO I. PERFORM ECRT UNTIL I = 32. 0088 FIN. 0089 MOVE " ******* FIN " TO SRCE-L. 0090 WRITE SOURCE-RD. 0091 CLOSE SOURCE. 0092 STOP RUN. 0077 ECRT. 0078 ADD 1 TO I. 0080 MOVE SPACES TO SRCE-L. 0081 ADD I 19 GIVING J. 0082 MOVE "*" TO SRCE-COL1. 0083 MOVE COULEUR (I) TO SRCE-COL2. 0084 STRING "Couleur X'" J "'" " en col 2 : NE PAS EFFACER" 0085 DELIMITED BY SIZE INTO SRCE-ZONEB. 0086 WRITE SOURCE-RD.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 DEBUT: PGM OVRDBF FILE(SOURCE) TOFILE(HJDIVERS/QLBLSRC) + MBR(COULEURS) CALL GENCOUL FIN: ENDPGM
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager