Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Coloriage code cobol - client non-IBM gratuit
Bonjour,
Est-il possible de colorier les lignes de code COBOL dans un client AS400 gratuit (genre tn5250j) ?
J'ai lu le poste qui traite du coloriage du code RPG pour le Client Access d'IBM, mais je ne trouve pas un client gratuit qui permet le mappage des caractères spéciaux (les "APL XX" que je ne sais pas comment les convertir en hexadécimal) avec les touches clavier.
Sinon comment insérer directement des caractèrs spéciaux dans SEU en entrant leur code hexadécimal ???
Merci.
Sami,
Je suppose que tu colories seulement des lignes entières, donc que le code hexa est dans les 2 premières colonnes ?
Dans ce cas si tu utilises SEU, le plus simple est de créer un membre (moi je l'avais appelé couleurs tout bêtement), où figure toutes les couleurs possibles. Tu mets une étoile en position 7 pour visualiser l'effet, et tu n'auras plus qu'à faire un copie Over sur les lignes concernées.
Pour ce qui est de ton client gratuit, il me semble qu'il y a une option hex map qui permet de choisir le caractère à insérer en fonction de la table hexa.
Reste qu'utiliser un éditeur externe à la place de SEU, à l'avantage de coloriser le source directement en général...
Merci m4k-Hurrican, mais comment créer le membre qui contient les caractères de couleur ???
Et pour ce qui est de tn5250j , apparemment non, il ne permet pas de créer des caractères hexadécimaux en dessous de 0x20 et entre 0x80 et 0x9F. Et c'est dans ces plages là que se trouvent les caractères de couleurs...
Bonjour.
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
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
99PROCESS 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
2
3
4
5
6
7DEBUT: PGM OVRDBF FILE(SOURCE) TOFILE(HJDIVERS/QLBLSRC) + MBR(COULEURS) CALL GENCOUL FIN: ENDPGM
Merci Hédhili Jaïdane. ça marche à la perfection !
Répondre avec citation
Partager