? Ca ressemble à l'arbre qui cache la forêt. En quoi un Initalize peut faire ça au contraire de Move unitaires ? Au pire, l'initialize ne ferait pas tout ce que l'on a pu s'imaginer à cause de filler...
Type: Messages; Utilisateur: Homer-ac
? Ca ressemble à l'arbre qui cache la forêt. En quoi un Initalize peut faire ça au contraire de Move unitaires ? Au pire, l'initialize ne ferait pas tout ce que l'on a pu s'imaginer à cause de filler...
Indiques RECORD 0 à la place de BLOCK 0. Avec un PIC X(au maxi) pour ton buffer de lecture. Par contre en fixe tu n'auras pas sans ruser la taille de l'enregistrement fixe lu. Spécifiquement pour MVS...
Passes un LISTDSI avec le paramêtre NORECALL. ex : D1 = listdsi("'"MYDSN"' NORECALL").
Le code retour est 0 si le fichier est non migré et 16 sinon, dans ce cas la valeur de SYSREASON est à 0009...
Object-Computer, avec juste un un nom de machine ne sert à rien en COBOL MVS. de toutes façons le nom que l'on met ensuite n'est évidemment pas controlé alors puisque le matériel peut changer, autant...
Non, ce n'est pas ce que xfanx à demandé, ça c'est le dump Language Environment.
Tu as un ABEND dans un programme COBOL : GOALFEN, ligne 107. C'est un abend User U001. Normalement avant l'abend user...
Une autre piste, vérifier si MXI est installé sur le site.
La fonction DASD donne un résumé parfait de tous les disques montés.
Il suffit de passer juste DASD en SYSIN d'un EXEC...
Au niveau de SYSOUT (SDSF) j'ai la COMMAND INPUT ===> en bas
alors comment avoir en haut.
Tu as la commandes SETTINGS que tu peux passer à tout moment pour modifier ta custo ISPF personnelle.
...
+1, un cancel MVS derait suffire, il y a aussi la possibilité de préciser l'espace adresse du JOB (ASID). Noter l'ASIDX sous JES2 et le préciser au cancel : /C jobname,A=xx
Mais Lemmings1406 a fourni un exemple entier. Le SYSIN DD DATA permet de mettre du JCL en SYSIN, sinon le SYSIN s'arrêtera à la premiere // rencontrée en COL 1. Le plus souvent on code ça avec un...
La fonction wordindex() renvoie la position relative d'un MOT et MSGLEVEL= n'est pas un mot, il y a une virgule devant. Dans :
//XXXJOB1 JOB ,'CTL ENTREES SDE',MSGCLASS=P,MSGLEVEL=1, 0000001
MOT1...
Bonjour,
Si c'est juste pour démonstration de l'ordre INSPECT de COBOL tu peux faire comme ça :
* On commence par tout passer en minuscules
Inspect WS-DATA ...
Quand on veut analyser une chaine de caractères, on le gère en la redefinissant dans un tableau Pic X occurs N et on se déplace dedans ou on utilise les référence modifiers (If Z1(I1:1) = ' ' then...
bonjour,
Telle que la question est posée ce n'est pas du MVS. Unix sans doute et bien que je ne sois pas compétent hors z/OS je risquerai une suggestion. Tentative par COBOL de libérer des...
Comprenons nous bien, aucune critique la dedans, simplement il était probablement utile de faire remarquer que certains utilitaires à commencer par DFSORT sont très souvent largement sous estimés et...
Bonjour,
J'ai pris mon temps avant cette réponse, histoire de m'assurer quelle n'avait rien de polémique. Juste un complément d'informations sur ce coquin de Sort.
Cet utilitaire TCPIP est...
Bonjour,
J'ai relevé au moins trois erreurs de logique dans ce programme. Toutes dans le % TRT-COMMUNE.
Lecture verticale, peut-être d'autres, l'absense de colonnage du source fourni n'en facilite...
En complément, et pour répondre à une question par MP (à éviter sur ce forum, toute question/réponse peut être utile à qqun d'autre).
Le REXX est à copier dans un PDS quelconque de FB 80.
Exécution...
Bonjour,
Si j'ai bien compris puisque tu cites la commande > (commande de ligne sous EDIT pour décalage droite sans perte de donnée), la question concerne les commandes EDIT sous TSO/ISPF et pas...
Bonjour,
Effectivement il faudrait le détail des messages.
Je ne pense pas que l'option COPY gène, mais effectivement à virer si on utilise en plus un SORT FIELDS=COPY, inutile de se faire peur...
bonjour,
Si un listcat (ou un print, ou un repro) est une solution simple mais on bute sur l'impossibilité en MVS de variabiliser un fichier 'cartes' de type sysin. Ce pb est assez récurrent. La...
+1, même pas un clone d'un utilitaire je pense. Vu le JCL, sans doute un COBOL 'maison' (à cause de la DD CEEDUMP, encore que ce n'est peut être même pas utile) qui se contente de mettre à jour un...
Bonjour,
A ma connaissance on ne peut pas.
Tu peux faire un Locate special first/next pour rechercher les notes, msg ... mais sans possibilité de préciser un contenu.
Il me semble qu'il aurait...
Non regardes encore le code que j'ai posé, il n'est pas du tout pareil. Tu continues à mélanger des compteurs WS-NBR-ANO et WS-Q-NBR-ANO en particulier. (IF WS-NBR-ANO not > 10 ADD 1 TO ...
Bonjour.
Je crois qu'il faut reprendre point par point la logique de ce code qui m'échappe !
01 WS-NBR-ANO PIC 9(02). ...
A chaud au moins 2 choses qui clochent + quelques erreurs de ressaisie qui ne peuvent passer à la compilation
01 WS-NBR-ANO PIC 9(02).
01 WS-ERREUR PIC X(100) value...
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.