*DECK,SMNIPTX 
USETEXT NIPDEF
PROC SUPMSG;
BEGIN 
CONTROL STEXT;
      BASED ARRAY SUPMSG  P(11);
      BEGIN 
*CALL SUPMSG
*CALL SMAPPL
*CALL SMRBF 
      END 
      BASED ARRAY SMNIP  P(3);
      BEGIN 
*CALL SMNIP 
      END 
      BASED ARRAY SMNVF  P(11); 
      BEGIN 
*CALL SMNVF 
      END 
END 
TERM