Comment passer une zone packée à un programme ?
Vous voulez tester un programme qui recoit en paramètre une zone packèe

La solution est de passer la valeur en hexa decimal Exemple:

Une zone pakée de 5 dont 2
call pgm(rtvrtva) parm('A' X'00000F')
ici on passe une valeur de Zero

Rappel :
La longueur d'une zone packée et la moitiè + 1
Chaque caractère derrière x' représente un demi caractère
Si on veut passer 19,6

call pgm(rtvrtva) parm('A' X'01960F')