home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / smrtsort / sample7.cbl < prev    next >
Text File  |  1995-07-18  |  2KB  |  36 lines
  1.       *
  2.       * Licensed Material -- Property of IBM 
  3.       * 5765-349
  4.       * (c) Copyright IBM Corporation 1995 
  5.       * All rights reserved
  6.       *
  7.        IDENTIFICATION DIVISION.                                                 
  8.        PROGRAM-ID. sample7.                                                      
  9.        DATA DIVISION.                                                           
  10.        WORKING-STORAGE SECTION.                                                 
  11.        01  parmlist.
  12.            05  command        pic X(100) value Z"-s copy -x 'filter 
  13.       -        "3b,3 eq ""L92""' -o .\output\filtered.out
  14.       -        ".\data\dept.all ".
  15.            05  inbuffer       usage pointer.
  16.            05  outbuffer      usage pointer.
  17.            05  inexit         usage procedure-pointer.
  18.            05  outexit        usage procedure-pointer. 
  19.            05  altseq         usage pointer.
  20.            05  ioerror        usage procedure-pointer.
  21.        PROCEDURE DIVISION.                                                      
  22.            SET INBUFFER TO NULL.
  23.            SET OUTBUFFER TO NULL.
  24.            SET INEXIT TO NULL.
  25.            SET OUTEXIT TO NULL.
  26.            SET ALTSEQ TO NULL.
  27.            SET IOERROR TO NULL.
  28.            CALL "SMARTSORT" using by reference command
  29.                             by value inbuffer 
  30.                                      outbuffer
  31.                                      inexit
  32.                                      outexit
  33.                                      altseq
  34.                                      ioerror.
  35.            STOP RUN.                                                            
  36.