*****************************************
      * CobolScript program name: call.cbl
      * This program provides an example 
      * of CALL command usage.
      *
      * Copyright 2000 Deskware, Inc.
      *****************************************
       1 ret_var pic 9999.
       1 group_var.
          5 filler pic x(n) value `dir `.
          5 filler pic x(n) value `*.cbl `.
       1 slash_var pic x(n) value `/`.
       1 test.
          5 elm_var pic x(n) value `w`.

       display `This program demonstrates the CALL command`.
       move 9 to ret_var.
       display ret_var.
       call group_var slash_var elm_var using ret_var.
       display ret_var.