1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
CLC ZCODRIS(2),=C'49' si on a RSR = 49X, inutile de continuer, on passe au traitement suivant AX460015
BE AX460015
CLI ZCODRIS,C'4' si on na pas RSR = 4XX, idem que ci-dessus, on passe à AX460015
BNE AX460015
à partir dici, on a bien 4XX et pas 49X et on teste si on a 1 des 3 cas : 000,000 ou 007,000 ou 014,000 ; si oui, on va à AX4600YY :
CLC 4(7,R7),=C'000,000'
BE AX4600YY
CLC 4(7,R7),=C'007,000'
BE AX4600YY
CLC 4(7,R7),=C'014,000'
BNE AX460011 ici, si on na pas 014,000 (et donc pas non plus 000,000 ni 007,000), on part à AX460011 pour voir si on a 009,000
AX4600YY MVC 0(3,R7),=C'047' arrivé ici, on a soit cas 000,000 soit 007,00 soit 014,000 et donc on fait le MOVE 047 ; après on passe au traitement suivant
B AX460095
AX460015 . ......... |
Partager