1 / 20

Nutzung des CPSM-API

Nutzung des CPSM-API. Josef Knon Systemprogrammierer, Systemadministrator Tel.: +49/171/8216082 email: josef@knon-online.de. CPSM-Werkzeug auf ISPF-Oberfläche:. Operating AV Anwendungsentwicklung Systemtechnik. Aktivierung des API für REXX.

tyme
Download Presentation

Nutzung des CPSM-API

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Nutzung des CPSM-API Josef Knon Systemprogrammierer, Systemadministrator Tel.: +49/171/8216082 email: josef@knon-online.de Josef Knon - Systemprogrammierer

  2. CPSM-Werkzeug auf ISPF-Oberfläche: • Operating • AV • Anwendungsentwicklung • Systemtechnik Josef Knon - Systemprogrammierer

  3. Aktivierung des API für REXX • Beschrieben im CICS/TS Installation Guide • Chapter 30, „Installing the REXX function package“ • EYU9AR01, EYU9AR01 und Alias IRXFLOC aus der SEYUAUTH müssen in eine authorisierte Library (Achtung! IRXFLOC existiert bereits in der SYS1.LINKLIB!) • MVS Linklist oder STEPLIB Josef Knon - Systemprogrammierer

  4. CPSM - Samples • befinden sich in der SEYUCLIB in den Membern • EYU#API1 • EYU#API2 • EYU#API3 Josef Knon - Systemprogrammierer

  5. CPSM - REXX-Sample INIT und CONNECT • Say 'Initializing API...' XX = EYUINIT() If XX <> 0 Then Signal UNEXPECTED Say 'Establishing connection...' XX = EYUAPI('CONNECT' , 'CONTEXT('W_CONTEXT')' , 'SCOPE('W_SCOPE')' , 'VERSION(‚W_Version‘)' , 'THREAD(W_THREAD)' , 'RESPONSE(W_RESPONSE)' , 'REASON(W_REASON)') If XX <> 0 Then Signal UNEXPECTED If W_RESPONSE <> EYURESP(OK) Then Signal NO_CONNECT Josef Knon - Systemprogrammierer

  6. CPSM -REXX-Sample GET OBJECT • Say 'Get the PROGRAM resource table...' W_CRITERIA = 'NOT (PROGRAM=DFH* OR PROGRAM=EYU* OR PROGRAM=IBM*).' W_CRITERIALEN = 'LENGTH'(W_CRITERIA) XX = EYUAPI('GET OBJECT(PROGRAM)' , 'CRITERIA(W_CRITERIA)' , 'LENGTH('W_CRITERIALEN')' , 'COUNT(W_RECCNT)' , 'RESULT(W_RESULT)' , 'THREAD(W_THREAD)' , 'RESPONSE(W_RESPONSE)' , 'REASON(W_REASON)') If XX <> 0 Then Signal UNEXPECTED If W_RESPONSE <> EYURESP(OK) Then Signal NO_GET Josef Knon - Systemprogrammierer

  7. REXX-Sample QUERY OBJECT • XX = EYUAPI('QUERY OBJECT(PROGRAM) THREAD(W_THREAD)', 'RESULT(W_RESULT) DATALENGTH(W_INTO_OBJECTLEN)', 'RESPONSE(W_RESPONSE) REASON(W_REASON)') If XX <> 0 Then Signal UNEXPECTED If W_RESPONSE <> EYURESP(OK) Then Signal NO_QUERY Josef Knon - Systemprogrammierer

  8. CPSM-REXX-Sample FETCH und TPARSE Do III = 1 To W_RECCNT • XX = EYUAPI('FETCH INTO(W_INTO_OBJECT)' , 'LENGTH(W_INTO_OBJECTLEN)' , 'RESULT(W_RESULT)' , 'THREAD(W_THREAD)' , 'RESPONSE(W_RESPONSE)' , 'REASON(W_REASON)') If XX <> 0 Then Signal UNEXPECTED If W_RESPONSE <> EYURESP(OK) Then Signal NO_FETCH • XX = EYUAPI('TPARSE OBJECT(PROGRAM)' , 'PREFIX(PGM)' , 'STATUS(W_RESPONSE)' , 'VAR(W_INTO_OBJECT.1)' , 'THREAD(W_THREAD)') If W_RESPONSE <> 'OK' Then Signal UNEXPECTED W_TEXT = PGM_PROGRAM W_TEXT = 'OVERLAY'(PGM_LANGUAGE,W_TEXT,10) W_TEXT = 'OVERLAY'(PGM_STATUS,W_TEXT,23) W_TEXT = 'OVERLAY'(PGM_CEDFSTATUS,W_TEXT,36) Say W_TEXT End III XX = EYUAPI('TERMINATE RESPONSE(W_RESPONSE) REASON(W_REASON)') XX = EYUTERM() Josef Knon - Systemprogrammierer

  9. REXX-Sample PERFORM OBJECT if cmd = 'NEW' then CMD = 'NEWCOPY' if cmd = 'PHA' then CMD = 'PHASEIN' if cmd = 'ENA' then CMD = 'ENABLE' if cmd = 'DIS' then CMD = 'DISABLE' W_CMD = cmd .... W_CRITERIA = '(PROGRAM='pgm').' W_CRITERIALEN = 'LENGTH'(W_CRITERIA) • XX = EYUAPI('PERFORM OBJECT(PROGRAM)' , 'CRITERIA(W_CRITERIA)' , 'LENGTH('W_CRITERIALEN')' , 'ACTION('W_CMD')' , 'COUNT(W_RECCNT)' , 'RESULT(W_RESULT)' , 'THREAD(W_THREAD3P)' , 'RESPONSE(W_RESPONSE)' , 'REASON(W_REASON)') If XX <> 0 Then Signal UNEXPECTED If W_RESPONSE <> EYURESP(OK) Then Signal NO_GET Josef Knon - Systemprogrammierer

  10. Das Einstiegs-Bild Josef Knon - Systemprogrammierer

  11. Anzahl Transaktionen Josef Knon - Systemprogrammierer

  12. CPSM Help PF1 Josef Knon - Systemprogrammierer

  13. Events Josef Knon - Systemprogrammierer

  14. DSA Josef Knon - Systemprogrammierer

  15. Close File Josef Knon - Systemprogrammierer

  16. Purge Task Josef Knon - Systemprogrammierer

  17. Entfernen eines CICSes aus demaktiven WLM Josef Knon - Systemprogrammierer

  18. WLM Josef Knon - Systemprogrammierer

  19. Log über User-Aktivitäten Josef Knon - Systemprogrammierer

  20. RACF-Security • CLASS Resource ACCESS • CPSMOBJ ** ALTER • OPERCMDS MVS.ACTIVATE UPDATE • OPERCMDS MVS.CANCEL.* UPDATE • OPERCMDS MVS.CANCEL.STC.* UPDATE • OPERCMDS MVS.MODIFY.* UPDATE • OPERCMDS MVS.START.STC.* UPDATE • CONSOLE CICPPLX1 READ • CONSOLE CICTPLX1 READ Josef Knon - Systemprogrammierer

More Related