      *----------------------------------------------------------------*
      * dfhcbesm.cpy
      *----------------------------------------------------------------*
      * External security manager user exit parameters.
      * Copyright (C) 1998-2006 Micro Focus (IP) Limited. 
      * All rights reserved.
      * Version 1 31Jan2001: initial revision.
      *----------------------------------------------------------------*
      ***  $Revision: 1.10 $
      *----------------------------------------------------------------*
        78 78-user-ext-security-mgr        value 'dfhuesm'.
      ***--------------------------------------------------------------*

       01  esm-input-parms.
           03  esm-version-no                 pic x        comp-x.
               88 esm-curr-version-88         value 1.
           03  esm-reserved1                  pic x        comp-x.
           03  esm-user-id                    pic x(8).
           03  esm-opid                       pic xxx.
           03  esm-opclass                    pic xxx.
           03  esm-arg-flags.
               05  esm-arg-01-flag            pic x        comp-x.
               05  esm-arg-02-flag            pic x        comp-x.
                   88  esm-RESTYPE-exists-88  value 1.
               05  esm-arg-03-flag            pic x        comp-x.
                   88  esm-RESID-exists-88    value 1.
               05  esm-arg-04-flag            pic x        comp-x.
                   88  esm-RESIDLEN-exists-88 value 1.
               05  esm-arg-05-flag            pic x        comp-x.
                   88  esm-READ-exists-88     value 1.
               05  esm-arg-06-flag            pic x        comp-x.
                   88  esm-UPDATE-exists-88   value 1.
               05  esm-arg-07-flag            pic x        comp-x.
                   88  esm-RESCLASS-exists-88 value 1.
               05  esm-arg-08-flag            pic x        comp-x.
                   88  esm-ALTER-exists-88    value 1.
               05  esm-arg-09-flag            pic x        comp-x.
                   88  esm-CONTROL-exists-88  value 1.
               05  esm-arg-10-flag            pic x        comp-x.
                   88  esm-LOGMSG-exists-88   value 1.
               05  esm-arg-11-flag            pic x        comp-x.
               05  esm-arg-12-flag            pic x        comp-x.
               05  esm-arg-13-flag            pic x        comp-x.
               05  esm-arg-14-flag            pic x        comp-x.
               05  esm-arg-15-flag            pic x        comp-x.
               05  esm-arg-16-flag            pic x        comp-x.
           03  esm-restype                    pic x(12).
               88 esm-db2entry-88             value 'DB2ENTRY'.
               88 esm-file-88                 value 'FILE'.
               88 esm-journalname-88          value 'JOURNALNAME'.
               88 esm-journalnum-88           value 'JOURNALNUM'.
               88 esm-program-88              value 'PROGRAM'.
               88 esm-psb-88                  value 'PSB'.
               88 esm-spcommand-88            value 'SPCOMMAND'.
               88 esm-tdqueue-88              value 'TDQUEUE'.
               88 esm-transaction-88          value 'TRANSACTION'.
               88 esm-transattach-88          value 'TRANSATTACH'.
               88 esm-tsqueue-88              value 'TSQUEUE'.
           03  redefines esm-restype.
               05  esm-resclass               pic x(8).
               05  esm-residlength            pic 9(9)     comp.
           03  esm-resid                      pic x(246).
           03  esm-logmessage                 pic s9(8)    comp.
               88 esm-log-88                  value 54.
               88 esm-nolog-88                value 55.

       01  esm-output-parms.
           03  esm-eibresp                    pic s9(8)    comp.
               88 esm-eibresp-INVREQ-88       value 16.
               88 esm-eibresp-LENGERR-88      value 22.
               88 esm-eibresp-NOTFND-88       value 13.
               88 esm-eibresp-QIDERR-88       value 44.
           03  esm-eibresp2                   pic s9(8)    comp.
           03  esm-eibrcode                   pic x(6).
           03                                 pic x(2).
           03  esm-alter                      pic s9(8)    comp.
               88 esm-alterable-88            value 52.
               88 esm-notalterable-88         value 53.
           03  esm-control                    pic s9(8)    comp.
               88 esm-ctrlable-88             value 56.
               88 esm-notctrlable-88          value 57.
           03  esm-read                       pic s9(8)    comp.
               88 esm-readable-88             value 35.
               88 esm-notreadable-88          value 36.
           03  esm-update                     pic s9(8)    comp.
               88 esm-updatable-88            value 37.
               88 esm-notupdatable-88         value 38.

      *----------------------------------------------------------------*
      * dfhcbesm.cpy end
      *----------------------------------------------------------------*
