z/OS MVS Programming: Workload Management Services
Previous topic | Next topic | Contents | Index | Contact z/OS | Library | PDF


Example

z/OS MVS Programming: Workload Management Services
SC34-2663-00

Example

To extract the setting of the asynchronous and the independent flag from a storage area holding an ARM correlator, specify the following:

LHI   2,-1          INIT TO CATCH INVALID CORRELATOR
          ST    2,ASYNCHRO
          ST    2,INDEPEND
          IWMGCORF                                             *
                EWLM_CORR=MYCORR,                              *
                ASYNC_FLAG=ASYNCHRO,                           *
                INDEP_FLAG=INDEPEND
          L     2,ASYNCHRO    LOAD ASNYCHRONOUS INDIDICATOR
          LTR   2,2           TEST ASYNC RESULT
          JP    ASYN_ON       ASYNC FLAG IS ON
          JZ    ASYN_OFF      ASYNC FLAG IS OFF
CORR_INVA DS    0H            NOT A VALID ARM CORRELATOR
          :
          :
ASYN_ON   L     3,INDEPEND    LOAD INDEPENDENT INDICATOR
          LTR   3,3           TEST INDEP (RELEVANT, IF ASYNC)
          JP    INDE_ON
INDE_OFF  DS    0H            ASYNC ON, BUT NOT INDEPENDANT
          :
          :
ASYNCHRO  DS    F             STORAGE AREA FOR ASYNC FLAG
INDEPEND  DS    F             STORAGE AREA FOR INDEP FLAG
MYCORR    DS    CL512         STORAGE AREA FOR ARM CORRELATOR   

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014