© serviceprofessionalgmbh

Im Testbetrieb ist es häufig praktisch, wenn man diverse Variablen aus den ISPF-Pools anschauen kann. Dazu im Trace aber die VGETs und SAYs zu tippen ist sehr mühsam. Diese kleine Routine erlaubt die Angabe aller gewünschten Variablennamen als Wortkette und mit Komma abgesetzt, den Pool aus dem sie zu lesen sind. Das Ergebnis wird am Bildschirm angezeigt.

/* REXX * SVAR
   LESEN BELIEBIGER VARIABLEN AUS DEN ISPF-POOLS
   UND AUSGABE AM TERMINAL
*/
ARG VARNAMES ',' TYPE
IF VARNAMES = '' THEN call hilfe
SELECT
   WHEN left(TYPE,1) = 'S' THEN TYPE = 'SHARED'
   WHEN left(TYPE,1) = 'P' THEN TYPE = 'PROFILE'
   OTHERWISE                    TYPE = 'ASIS'
END
ADDRESS ISPEXEC
"VGET ("VARNAMES")"TYPE
SAY "FELD      LEN   INHALT  (RC AUS VGET:" RC "- AUS POOL:" TYPE
SAY "========  ===   ============================================="
DO I = 1 TO WORDS(VARNAMES)
   VAR = WORD(VARNAMES,I)
   SAY LEFT(VAR,9)"("RIGHT(LENGTH(VALUE(VAR)),3,0)") <"VALUE(VAR)">"
END
exit

hilfe:
   parse source . . name .
   DMY =  copies(" ",length(name))
   say "Aufruf:"
   say "          " dmy  "  .-------+"
   say "          " dmy  "  v       !"
   say ">>---- TSO" name "--- var --+--+--------------+---><"
   say "          " dmy  "             !              !"
   say "          " dmy  "             '--,--+- S -+--'"
   say "          " dmy  "                   !     !"
   say "          " dmy  "                   '- P -'"
exit