	data division.
        working-storage section.
	01  eintr           pic 9(2)  value h"0004".
        01  einval          pic 9(2)  value 22.
        01  bytecount       pic x(2)  comp-5 value 20.
	01  cbl-semid	    pic 9(8)  comp-5.
	01  cbl-getval 	    pic 9(8)  comp-5.
	01  cbl-shmid	    pic 9(8)  comp-5.
	01  errno 	    pic x(4)  comp-5 is external.
      $if P64 set
	01  retcode	    pic s9(18) comp-5.
      $else
	01  retcode	    pic s9(8) comp-5.
      $end
	01  semkey          pic 9(8)  comp-5 value h"DB000000".
	01  numsems         pic 9(8)  comp-5 value h"00000001".
	01  createarg       pic 9(8)  comp-5 value h"000003B6".
	01  getval          pic 9(8)  comp-5 value h"00000005".
	01  setval          pic 9(8)  comp-5 value h"00000010".
	01  zeroarg         pic 9(8)  comp-5 value h"00000000".
	01  onearg          pic 9(8)  comp-5 value h"00000001".
	01  rmid            pic 9(8)  comp-5 value h"00000000".
	01  cbl-semop-struct.
	    03  cbl-semnum  pic 9(4)  comp-5 value h"0000".
	    03  cbl-semop   pic 9(4)  comp-5.
	    03  cbl-semflg  pic 9(4)  comp-5 value h"1000".
	01  iterations      pic 9(5)  value 50.
        01  cmdln           pic 9(5).
        linkage section.
        01  sharedaddress   usage is pointer.
        01  sharedarea.
            03  counter     pic 9(5).
