Assembleur et JCL

[Skylyn]

Bonjour, un petit topic sur l'assembleur en JCL.

Ça peut arriver dans certaines boîtes où le rapatriement de fichier de production ou de recette n'est pas possible et seule la technique du "BIB 100" est autorisée.

Un exemple de code pour modifier une ligne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
MODIF   CSECT
        USING *,9
        CLC    0(10,11),=C'AAAAAAAAAA'
        BE     MODIF
        BNE    NEXT
MODIF
        MVC   0(10,11),=C'BBBBBBBBBB'
        BR    15
NEXT
        BR    15
        END

Je donnerais un exemple concret demain avec un JCL autour de ce bout de code.

Vite fait, quelques détails :

- En rouge : la colonne de début de chaine (soustraire 1 car assembleur commence à 0)
- En vert : la longueur de la chaîne à rechercher/modifier
- En le registre : ici, 11
- En marron : le format (C => caractère, H => hexadécimal, ...)
Pour l'hexadécimal : la longueur de la chaîne à rechercher (vert) sera à diviser par 2, n'oubliez pas de rechercher un nombre pair de caractères...
- En vert foncé : la chaîne à rechercher/modifier

Voilà, j'essaye de trouver un petit JCL tranquille demain pour ceux qui veulent tester ça

____________________________________________
____________________________________________
Skylyn,

[Pico-----]

Envoyé par Skylyn

seule la technique du "BIB 100" est autorisée.

Cette technique n'est-elle pas propre à un site en particuliers ?

[Skylyn]

En particulier, je ne sais pas mais pour mon cas, le BIB 100 est la seule manière de modifier des fichiers "à chaud" en production