** CBL.CTL(SSDEL)      *** L=002 --- 2016/03/04 10:29:50 (L05)
*
*  Routine to issue IMS DLET (Delete) of the current input IMS database
*  segment. This segment must have been read with Get Hold type
*  operation.
*  SSCHKEQU equates are a pre-requisite.
*

==IMSDEL==        * Delete the current input segment.
*
* Delete the current input segment read by a Get and Hold.
*
  DLET dbdname                     * Delete the last segment read.

  if pos status  = '  '            * Blank status code for DLET?
    then goto IMSDEL_end           * All ok so leave sub-routine.
    then goto IMSDEL_message       * Output a bad status message.


 =IMSDEL_message=      * We have a bad (non-blank) status code...
  retcode      = 24                               * Set RC=24

  pos chker, chker+chker_L-1 = \
        ' DLET      ERR921:  Bad status code (  ) from DLET.'
  pos chker+37 =  2       at status
  pos chker+52 =  'Input segment follows:'

  print from  pos chker, chker+73         type=s  * Print error text.
  print from  pos @iseg,  @iseg+lrecl-1   type=b
  space                                           * Blank line.


 =IMSDEL_end=
  return