Discussion :

[alex2746]

Bonjour,

Je dois créer une data-area pour un numéro de devis.
Cette data-area doit être constituée de 3 caractères suivi de 5 chiffres.
Les 3 caractères sont toujours les mêmes. Exemple : DEV00001

Mes questions sont deux :
1) Lors de la création (commande CRTDTAARA), quel type de data-area dois-je choisir, quelle longueur et quelle valeur initiale?

2) Dans un programme cobol, je dois récupérer la valeur actuelle de la data-area et ensuite augmenter la partie décimale de un : donc passer à DEV00002 comme contenu de la data-area. Je sais que je dois faire un ACCEPT pour récupérer la valeur et un DISPLAY pour la mettre à jour. Mais pouvez-vous m'aider pour le cas que j'ai détaillé ci-dessus?

Merci d'avance et bonne journée à tous!

[Hédhili Jaïdane]

Bonjour.

Tu as ces commandes à ta disposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
CRTDTAARA DTAARA(JAIDANE1/DATAAREA1) TYPE(*CHAR) LEN(8) VALUE(DEV0001)
CHGDTAARA DTAARA(JAIDANE1/DATAAREA1) VALUE('DEV00001')
DSPDTAARA DTAARA(JAIDANE1/DATAAREA1)
DLTDTAARA DTAARA(JAIDANE1/DATAAREA1)

Si je dois le faire par un programme CL, je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
CRTDTAARA DTAARA(JAIDANE1/DATAAREA1) TYPE(*CHAR) LEN(8) 
MONMSG CPF0000
CHGDTAARA DTAARA(JAIDANE1/DATAAREA1) VALUE('DEV00001')

Pour le Cobol, ILE obligatoire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
0008.00 0014   SPECIAL-NAMES.                          
0011.00 0016                  DATA-AREA IS DATAAREA1.
.../...
0017.00 0050   WORKING-STORAGE SECTION.
0018.00        01  WDATAAREA.          
0019.00            03 WTXT  PIC XXX.   
0020.00            03 WNUM  PIC 99999.  
.../...
0025.00            ACCEPT WDATAAREA FROM DATAAREA1              
0026.00                   FOR "DATAAREA1" IN LIBRARY "JAIDANE1".
0028.00            ADD 1 TO WNUM.                               
0029.00            display WDATAAREA upon DATAAREA1             
0030.00                   FOR "DATAAREA1" IN LIBRARY "JAIDANE1".