Table of Contents

WSTAT

Table Of Contents

  • [00004] WSTAT - WRITE STATUS OF TAF ENVIRONMENT.
  • [00015] WRITE STATUS OF *TAF* ENVIRONMENT.
  • [00059] ISR - ISSUE RECOVERY REQUEST.

Source Code

WSTAT.txt 
  1.           IDENT  WSTAT 
  2.           ENTRY  WSTAT
  3.           SYSCOM B1
  4.           TITLE  WSTAT - WRITE STATUS OF TAF ENVIRONMENT.
  5. *COMMENT  WSTAT - WRITE STATUS OF TAF ENVIRONMENT.
  6.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  7.  WSTAT    SPACE  4,10
  8. *****     WSTAT - WRITE STATUS OF *TAF* ENVIRONMENT.
  9. *
  10. *         A. E. SCHIPPERS.   80/07/17.
  11. *
  12. *         WSTAT IS AN INTERFACE ROUTINE WHICH WRITES
  13. *         INFORMATION ABOUT THE *TAF* ENVIRONMENT.
  14.  WSTAT    SPACE  4,20
  15. **        WSTAT - WRITE STATUS OF *TAF* ENVIRONMENT.
  16. *
  17. *         ENTRY  ENTER WSTAT USING STAT, KEYWORD(1), VALUE(1),
  18. *                ..., KEYWORD(N), VALUE(N).
  19. *
  20. *                CALL WSTAT(STAT,KEYWORD(1),VALUE(1),
  21. *                ...,KEYWORD(N),VALUE(N))
  22. *
  23. *         WHERE  KEYWORD(I) = VARIABLE CONTAINING 1-7 CHARACTERS.
  24. *                KEYWORDS ARE LEFT JUSTIFIED AND BLANK FILLED.
  25. *                COBOL - 01 LEVEL ITEM.
  26. *                FORTRAN - HOLLERITH.
  27. *
  28. *                STATUS = STATUS OF RESULT.
  29. *                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
  30. *                FORTRAN - INTEGER.
  31. *
  32. *                VALUE (I) = CONTAINS THE VALUE OF DESIRED KEYWORD.
  33. *                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
  34. *                FORTRAN - INTEGER.
  35. *
  36. *         EXIT   REQUEST IS PROCESSED.
  37. *
  38. *         USES   X - 1.
  39. *                B - 1.
  40. *
  41. *         CALLS  ISR.
  42.  WSTAT  SPACE  4,5
  43.  
  44. *         COMMON DECKS CALLED.
  45.  
  46. *CALL COMKMAC
  47.  
  48.  
  49.  
  50.  WSTA     EQU    23          WSTAT FUNTION CODE
  51.  
  52.           VFD    42/5HWSTAT,18/WSTAT
  53.  WSTAT    SUBR               ENTRY/EXIT
  54.           SB1    1
  55.           SX1    WSTA        SET FUNCTION CODE
  56.           RJ     ISR         ISSUE SYSTEM REQUEST
  57.           EQ     WSTATX      RETURN
  58.  ISR      SPACE  4,15
  59. **        ISR - ISSUE RECOVERY REQUEST.
  60. *
  61. *         ENTRY  (A1) = FWA OF REQUEST PARAMETER LIST.
  62. *                (X1) = FUNCTION CODE.
  63. *
  64. *         EXIT   (A1) = FWA OF RETURN PARAMETER LIST.
  65. *
  66. *         USES   X - 1, 6, 7.
  67. *
  68. *         CALLS  SYS=.
  69.  
  70.  
  71.  ISR      SUBR               ENTRY/EXIT
  72.           SX6    3RCTI       PREPARE CTI REQUEST
  73.           SX7    A1+         PARAMETER LIST ADDRESS
  74.           LX6    59-17
  75.           BX6    X7+X6
  76.           LX1    35-17       REQUEST CODE
  77.           BX6    X6+X1
  78.           RJ     =XSYS=      ISSUE REQUEST
  79.           EQ     ISRX        RETURN
  80.           END