Bonjour à tous,
une question récurente sur mon site dont je n'ai pas réussi à trouver d'autre solution que de passer par un programme "Stub" assembleur.
connaitriez vous un moyen dans un programme cobol de connaitre le nombre réél de parametres qu'il reçoit?
je m'explique :
ProgA Call PROGB Using Parm1 Parm2
mais
ProgC Call PROGB Using parm1
le but est dans PROGB de savoir s'il reçoit 1 ou 2 adresses de parametres valides.
La seule solution que j'ai trouvé est de faire :
ProgA Call ProgD using ProgB Parm1 Parm2
ProgC Call ProgD Using ProgB parm1
ou ProgD est un assembleur qui test le Bit de fin de liste des parametres du R1 et appel ProgB en lui passant le nombre réel de parametres en 1er argument..
Il est possible de connaitre le nombre et la longueur des arguments passé à un Cobol depuis les PARM jcl via les routines LE, mais pas pour les sous programmes à ma connaissance..
Partager