/* rexx */
/*-------------------------------------------------------------------*/
/*                                                                   */
/*                        REXX Exec : EDITREC                        */
/*                                                                   */
/*  Description : Call IBM edit recovery services in case the user   */
/*                crashed while editing in a previous life.          */
/*                                                                   */
/*  Created on : 23 Jan 2019                                         */
/*  Created by : Kevin Ferguson                                      */
/*             : Userid(MIT001)                                      */
/*             : using ABBYDALE.DEVL.REXX(EDITREC)                   */
/*                                                                   */
/*  Called by : Several Rexx Execs                                   */
/*                                                                   */
/*  Calls : EDREC                                                    */
/*                                                                   */
/*  Change Activity :                                                */
/*                                                                   */
/*                ©Copyright of Abbydale Systems LLC.                */
/*                                                                   */
/*-------------------------------------------------------------------*/
EditRec:
Address TSO
Done = "n"
Do Until Done = "y"
   rc = 0
   address ISPEXEC "EDREC QUERY"
   if rc = 4 then do
      address ISPEXEC "DISPLAY PANEL(ISREDM02)"
      Select
         When (ZEDCMD = C) then do
            address ISPEXEC "EDREC CANCEL"
            ZEDSMSG = 'Recovery Cancelled'
            ZEDLMSG = 'Dataset 'Z1' Recovery Cancelled'
            address ISPEXEC 'SETMSG MSG(ISRZ001)'
            end
         When (ZEDCMD = D) then do
            address ISPEXEC "EDREC DEFER"
            ZEDSMSG = 'Recovery Defered'
            ZEDLMSG = 'Dataset 'Z1' Recovery defered'
            address ISPEXEC 'SETMSG MSG(ISRZ001)'
            end
         Otherwise +
            Do
            address ISPEXEC "EDREC PROCESS"
            If rc > 0 Then do
               ZEDSMSG = 'Severe Error'
               ZEDLMSG = Z1' Recovery had a Severe Error'
               address ISPEXEC 'SETMSG MSG(ISRZ001)'
            End
            End
      End  /* End of Selects */
  End
  Else Done = "y"
End
/*-------------------------------------------------------------------*/
/*                          End of EDITREC                           */
/*-------------------------------------------------------------------*/