Table of Contents

EXMOVOK

Table Of Contents

Source Code

EXMOVOK.txt 
  1. *DECK EXMOVOK 
  2.       PROC MOVEOK ( (TSBN) ); 
  3.       BEGIN # MOVEOK #
  4. *IF DEF,IMS 
  5.  #
  6. **
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        MOVEOK              M. D. PICKARD       76/30/11 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION 
  12. *        MOVEOK WILL CHANGE A FIXED POSITION TSB TO A MOVEABLE TSB. 
  13. * 
  14. *     3. METHOD USED
  15. *        IF THE TSBN IS VALID THE NOT MOVE FLAG IS CLEARED IN THE 
  16. *        TSB HEADER.
  17. * 
  18. *     4. ENTRY PARAMETERS 
  19. *        TSBN (FORMAL)       TSB NUMBER FOR TSB THAT IS TO BE CHANGE
  20. *                            FROM FIXED TO MOVEABLE 
  21. * 
  22. *     5. EXIT PARAMETERS
  23. *        NONE.
  24. * 
  25. *     6. COMDECKS CALLED
  26. *        TSBBASE             TSB MANAGER BASED ARRAY DEFINITIONS
  27. *        TSBDATA             TSB MANAGER DATA AREA DEFINITIONS
  28. *        TSBDEFS             TSB MANAGER SYMPL DEFS 
  29. * 
  30. *     7. ROUTINES CALLED
  31. *        NONE.
  32. * 
  33. *     8. DAYFILE MESSAGES 
  34. *        NONE.
  35. * 
  36.  #
  37. *ENDIF
  38.       CONTROL NOLIST;        # STOPS LIST TSBDEFS,TSBDATA,TSBBASE   # 
  39. *CALL CYBERDEFS 
  40. *CALL TSBDEFS 
  41. *CALL TSBBASE 
  42. *CALL TSBDATA 
  43.       CONTROL LIST; 
  44.       ITEM
  45.            TSBN U;           # TSBN OF TSB TO CHANGE FROM FIXED TO     #
  46.                              # MOVEABLE                                #
  47.       IF ( TBUSY[TSBN] ) AND ( TSBN LS LENGTH[0] ) AND
  48.          ( TSBN GR 0 )
  49.       THEN                   # TSBN IS VALID                           #
  50.         BEGIN 
  51.         P<BTSBHDR> = TTSBFWA[TSBN]; # SET BUSY HEADER ON TSB           #
  52.         BNOTMOV[0] = FALSE;  # CLEAR NOT MOVE FLAG                     #
  53.         END 
  54.       RETURN; 
  55.       END TERM # MOVEOK #