** 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