Discussion :

[cobolons]

Qu'est ce que le DCB étendu en cobol ?

Quand mettre le point en Cobol ?

Utilité de la WORKING STORAGE SECTION ?

Qu’est ce qu’un masque en Cobol ?


Merci...

[Luc Orient]

Qu'est ce que le DCB étendu en cobol ?

Je ne comprends pas la question ...
Le contexte serait à préciser peut être ...

Quand mettre le point en Cobol ?

A la fin d'une phrase (facultafif) ou à la fin d'un paragraphe (obligatoire)

Utilité de la WORKING STORAGE SECTION ?

Elle décrit les variables "de travail" du programme.

Qu’est ce qu’un masque en Cobol ?

Vous parlez d'un masque d'édition peut être ?

[cobolons]

Merci bcp pour vos réponses !

Oui, un masque d'édition. Pour le DCB étendu, je sais pas dire plus ^^. Qu'entend t'on par "variable de travail" ?

J'ai d'autres questions:

en JCL, que veut dire JOB, CLASS=P , MSGCLASS=Z , MSGLEVEL=(1,1) , NOTIFY=QQCH

COBOL.SYSIN DD * ?

Merci bcp !!

[Homer-ac]

Qu'est ce que le DCB étendu en cobol ?

Je ne sais pas ce qu'est un DCB étendu en COBOL mais en z/OS je peux essayer de répondre.
Le DCB est le bloc de contrôle MVS pour la gestion des fichers séquentiels (QSAM). Il intègre l'adresse de la routine IOS d'accès, les caractéristiques du fichier (format, longueur d'enregistement et de bloc) et les adresses programmes pour la gestion de fin d'enregistrement et d'erreurs (entres autres choses). Le problème était que ces adresses étaient initialement sur 3 Octets (24 bits). Depuis MVS ESA, un DCBE (DCB Etendu est chaîné dans le DCB pour pouvoir prendre en compte les adresses 31 bits (4 octets). en gros, en MVS et quelque soit le langage, un OPEN va initaliser un DCB qui va servir d'intermédiaire avec les routines d'entrées-sorties.

Ensuite, qu'entend t'on par "variable de travail". Il s'agit simplement de la déclaration des données de travail internes au programme (pour Cobol, dans la working, ou externes (pour Cobol dans la Linkage Section (données communiquée par un programme appelant ou via un PARM de l'EXEC PGM=, et dans la File Section, spécifiquement pour les descriptions de fichiers)

en JCL, que veut dire JOB, CLASS=P , MSGCLASS=Z , MSGLEVEL=(1,1) , NOTIFY=QQCH

Enfin, en JCL, la description JOB (à défaut de mieux ou parle encore de carte JOB, EXEC ou DD ! souvenir du temps des cartes perforées que l'on retrouve en COBOL avec ses conventions de marge A et B). Le JOB donc est l'unité d'exécution globale (en principe également de submit) d'un traitement batch. Il intègre en plus de son nom, des informations d'accounting, de classe JES d'exécution (CLASS= : liée aux normes du site), la classe d'édition par défaut (DD SYSOUT=* via la MSGCLASS=) et d'autres infos globales. MSGLEVEL= indique le niveau de détail des comptes rendus d'exécutions (stats job et allocations fichiers), NOTIFY= indique le user TSO qui devra être avisé par un message de la fin d'exécution bonne ou non (ça arrive encore !) du JOB qui a été soumis (usuellemement, NOTIFY=&SYSUID pour le user qui a soumis)

COBOL.SYSIN DD * ?

SYSIN DD * --> délimiteur d'un fichier de donnée particulier de DDNAME SYSIN. Les cartes (encore ?) qui suivent sont constitutives des enregistrements à lire (via un ACCEPT Cobol ou une lecture sur un SELECT associée à un ASSIGN to SYSIN)
COBOL.SYSIN DD * est une référence arrière à un STEP (unité d'exécution spécifique d'un programme) qui a pour nom COBOL.

Bon, je n'ai fait que répondre aux questions posées. Sur le fond, c'est plus un cours JCL (Job Control Language) qu'il vous faudrait.

[el_slapper]

...pour le DCB, je connaissais cet acronyme comme "Décimal Codé Binaire", soit le format PIC 9(x) COMP-3.

soit un codage avec un demi-octet par chiffre, plus un demi-octet à la fin pour le signe(F non signé, C positif, D négatif).

Mais je ne sais pas si c'est ça la question.....

[Hédhili Jaïdane]

Bonjour.

Pour le DCB = Data Control Bloc je rejoins les explications de Homer-ac.
Pour le Decimal Codé Binaire, on parle de DCB8 (sur 8 bits) sans contrôle de parité. Le chiffre 1 s'écrivant F1 en EBCDIC équivaut en binaire DCB8 11110001.

Le comp-3 est le packé (packed) ou condensé.