*DECK DB$$RCM 
          IDENT  DB$$RCM
          SST 
          LIST   F
          IPARAMS 
          ENTRY  DB$$RCM
*#
* *   DB$$RCM - ISSUE RECALL REQUESTS            PAGE  1
* *   C O GIMBER
* 
* DC  PURPOSE 
* 
*     ISSUE A SYSTEM RECALL REQUEST FOR DB$$SIM ROUTINE DB$RCLL.
* 
*     CDCS EXTERNAL SYMBOLS DB$SFDF, DB$SFDR, DB$SFAC AND 
*     DB$SSC ARE ALSO DEFINED 
*#
DB$$RCM   EQ   *+1S17 
          RECALL             PERIODIC RECALL FOR OS DEFAULT PERIOD
          EQ   DB$$RCM
 DB$ROLB  SPACE  4,8
*#
* *   DB$ROLB  -  ROLL OUT BTF                   PAGE  1
* * 
* *   R L MCALLESTER                             DATE  08/25/79 
* 
* DC  PURPOSE 
* 
*     ROLL A CDCSBTF JOB OUT WHILE WAITING FOR A BUSY FILE. 
* 
* DC  ENTRY CONDITIONS
* 
*     NONE. 
* 
* DC  ASSUMPTIONS 
* 
*     NONE. 
* 
* DC  EXIT CONDITIONS 
* 
*     X6 = 1 (TRUE RETURNED FOR BOOLEAN FUNCTION VALUE) 
* 
* DC  CALLING ROUTINES
* 
*     DB$ATCH  (DECK DB$ATCH* - NOS ONLY) 
*     DB$JFIN                JOURNAL LOG FILE INITIALIZATION
*     DB$JRPT                JOURNAL LOG FILE RECOVERY POINT
* 
* DC  CALLED ROUTINES 
* 
*     ROLLOUT MACRO 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE. 
* 
* DC  DESCRIPTION 
* 
*     THIS ROUTINE IS CALLED WHEN CDCSBTF MUST WAIT FOR AN EXTERNAL 
*     EVENT.
*     ON NOS, THE CONTROL POINT IS ROLLED OUT WHILE WAITING.
*     ON NOS/BE, THE VALUE -FALSE- IS RETURNED SO THAT ANOTHER DELAY
*     WILL BE USED. 
* 
*     THE CDCS SKELETON CONTAINS AN IGNORE MACRO FOR DB$ROLB. 
*     THAT CAUSES DB$IGNR TO BE SUBSTITUTED FOR DB$ROLB IN CDCS2. 
*     DB$IGNR RETURNS A VALUE OF -FALSE-, ALLOWING DB$ATCH TO USE AN
*     ALTERNATE METHOD OF WAITING.
*#
  
  
NOS       IFC    EQ,*"OS.NAME"*KRONOS*
OPL       XTEXT  COMCMAC     OBTAIN DECK COMCMAC FROM FILE OPL
*                            COMCMAC CONTAINS THE ROLLOUT MACRO 
          ENTRY  DB$ROLB
DB$ROLB   EQ   *+1S17 
          ROLLOUT PERIOD     ROLLOUT BTF FOR 3 MINUTES
          SX6    1           RETURN FUNCTION VALUE = TRUE 
          EQ   DB$ROLB
  
PERIOD    VFD    48/0 
          VFD    12/180      ROLLOUT FOR UP TO 3 MINUTES
NOS       ENDIF 
  
NOSBE     IFC    EQ,*"OS.NAME"*SCOPE *
*                            NO ROLLOUT FUNCTION IS AVAILABLE ON NOS/BE.
          ENTRY  DB$ROLB
DB$ROLB   EQ   *+1S17 
          SX6    0           RETURN FUNCTION VALUE = FALSE
          EQ   DB$ROLB
NOSBE     ENDIF 
          SPACE  4,12 
          ENTRY  DB$SFDF
DB$SFDF   CON    F.SYCP 
  
          ENTRY  DB$SFDR
DB$SFDR   CON    1
          ENTRY  DB$SFAC
 DB$SFAC  CON    F.ACFN 
  
          LOC    RA.SSC 
          ENTRY  DB$SSC 
DB$SSC    BSS    0
          END 
