C                     Z-ADD0         NUMB    20                    
      C                     Z-ADD0         TOT     20                    
      C                     CALL 'TESTSUB'                               
      C                     PARM           NUMB                          
      C                     PARM           TOT                           
      C                     FREE 'TESTSUB'                               
      C                     DSPLY          TOT                           
      C                     MOVE '1'       *INLR                         




   Link back to cobol page