Model-Context-Protocol-(MCP)-from-ISPF

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASK.rex

@@ -0,0 +1,76 @@
+/*     REXX   */
+  "ISREDIT MACRO" ;
+  TRACE Off ;
+
+  /* AIASK - construct a Query and call MCP for Results       */
+
+  IneedExpert = ''
+  /* Determine whether user has selected text                 */
+  /* by excluding unwanted text                               */
+  Address ISREDIT "FLIP"
+  Address ISREDIT "FIND p'=' 1 NX"
+  findRC = RC
+  If findRC = 0 then,
+     Do
+     Address ISREDIT "FIND 'IDENTIFICATION' WORD FIRST"
+     If RC = 0 then IneedExpert = 'a COBOL Expert'
+     If IneedExpert = '' then,
+        Do
+        Address ISREDIT "FIND 'C1G0202I' WORD FIRST"
+        If RC = 0 then IneedExpert = 'an Endevor Admin'
+        End
+     If IneedExpert = '' then,
+        Do
+        Address ISREDIT "FIND ' E N D E V O R ' FIRST"
+        If RC = 0 then IneedExpert = 'an Endevor Admin'
+        End
+     End
+  Address ISREDIT "FLIP"
+  If findRC = 0 then,
+     Do
+     Address ISREDIT "CUT NX AIASK REPLACE "
+     cutRC = RC
+     End
+  If IneedExpert = '' then,
+     Do
+     Address ISREDIT "FIND 'IDENTIFICATION' WORD FIRST NX"
+     If RC = 0 then IneedExpert = 'a COBOL Expert'
+     End
+
+
+  CALL BPXWDYN "INFO FI(QUERY)",
+             "INRTDSN(DSNVAR) INRDSNT(myDSNT)"
+  if Substr(DSNVAR,1,1) > ' ' then,
+     ADDRESS TSO "FREE  F(QUERY)"
+
+  /* Allocate an empty dataset for the query */
+  /* Leverages the pre-existing generic edit macro named WITHMSG */
+  ADDRESS TSO,
+    "ALLOC F(QUERY) LRECL(140) BLKSIZE(28000) SPACE(5,5)",
+         "RECFM(F B) TRACKS ",
+         "NEW UNCATALOG REUSE "
+  Push "Act like **AnExpert** and explain the following:"
+  ADDRESS TSO "EXECIO 1 DISKW QUERY (Finis"
+
+  ADDRESS ISPEXEC "LMINIT DATAID(DDID) DDNAME(QUERY)"
+
+  /* If text was selected (exposed not hidden) paste it here */
+  If findRC = 0 then,
+      ADDRESS ISPEXEC "EDIT DATAID(&DDID) MACRO(AIASKMPA)"
+
+  /* Insert standard messages for AIASK                      */
+  /* ... and allow user to enter text...                     */
+  If IneedExpert /= '' then Push IneedExpert
+  ADDRESS ISPEXEC "EDIT DATAID(&DDID) MACRO(AIASKMSG)"
+  If RC > 0 then Exit
+
+  ADDRESS ISPEXEC "LMFREE DATAID(&DDID)"
+
+  /* Now call the Rexx that calls Python
+     and shows the results                   */
+  Call AIASKPY
+
+  ADDRESS ISPEXEC "LMFREE DATAID(&DDID)"
+
+  Exit
+

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKEXP.rex

@@ -0,0 +1,54 @@
+  /*   REXX  */
+  /* Use the Application ID or the panel name   */
+  /* to determine what MCP expert is needed  .  */
+
+  ADDRESS ISPEXEC "VGET (ZPANELID) SHARED"
+  ADDRESS ISPEXEC "VGET (ZAPPLID) SHARED"
+  sa= "You are using ISPF panel Applid " ZPANELID ZAPPLID
+
+  ShortApplid = Substr(ZAPPLID,1,4)
+  /*IneedExpert = 'an Endevor Admin' */
+  ApplIDmap. = '?'
+  ApplIDmap.CTLI       = 'an Endevor Admin'
+  ApplIDmap.CAWA       = 'a File Master expert'
+  ApplIDmap.CA7@       = 'a CA7 expert'
+  ApplIDmap.CAMR       = 'an InterTest expert'
+  ApplIDmap.GSVX       = 'a SYSVIEW expert'
+  ApplIDmap.JCK0       = 'a JCLCheck expert'
+  ApplIDmap.TUNT       = 'a Mainframe Application Tuner expert'
+  IneedExpert = ApplIDmap.ShortApplid
+  If IneedExpert /= '?' then Return IneedExpert
+
+  thisPanelPrefix = Substr(ZPANELID,1,4)
+  EndevorPanelPrefixes = 'EN BC1 C1T C1P C1S ND PACM'
+  Do w# = 1 to Words(EndevorPanelPrefixes)
+     If Abbrev(ZPANELID,Word(EndevorPanelPrefixes,w#)) then,
+        Do
+        IneedExpert = 'an Endevor Admin'
+        Leave;
+        End /* If Abbrev(ZPANELID,Word ... */
+  End /* Do w# = 1 to Words( .... */
+
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'ISREDDE') then,
+        IneedExpert = 'a COBOL expert'
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'OP'     ) then,
+        IneedExpert = 'an OPS/MVS expert'
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'GSV'    ) then,
+        IneedExpert = 'a SYSVIEW expert'
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'TUN'    ) then,
+        IneedExpert = 'a Mainframe Application Tuner expert'
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'JCK'    ) then,
+        IneedExpert = 'a JCLCheck expert'
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'CSW'    ) then,
+        IneedExpert = 'a File Master expert'
+  If IneedExpert = '' then,
+     If Abbrev(ZPANELID,'CAW'    ) then,
+        IneedExpert = 'a File Master expert'
+  Return  IneedExpert
+

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMCN.rex

@@ -0,0 +1,9 @@
+/*     REXX   */                                                        00000100
+   "ISREDIT MACRO" ;                                                    00000200
+    /* Save the Selected Text snippets */                               00000300
+    Trace Off                                                           00000400
+    Sa=     '(AIASKMCN)'                                                00000500
+    ADDRESS ISREDIT " CUT AIASK "                                       00000600
+    ADDRESS ISREDIT " CANCEL "                                          00000700
+    EXIT                                                                00000800
+                                                                        00000900

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMND.rex

@@ -0,0 +1,41 @@
+/*     REXX   */
+   "ISREDIT MACRO" ;
+
+   Sa=     'PSP.CLIST(AIASKM02)'
+   ADDRESS ISPEXEC
+       'VGET (ENVBENV ENVBSYS ENVBSBS ENVBTYP ENVBSTGI ENVBSTGN ',
+             'ENVSENV ENVSSYS ENVSSBS ENVSTYP ENVSSTGI ENVSSTGN ',
+             'ENVELM  ENVPRGRP ENVCCID ENVCOM ENVGENE ENVOSIGN) ',
+       'PROFILE'
+   If RC > 0 then,
+      Do
+      ADDRESS ISREDIT " CANCEL "
+      Exit
+      End
+
+   ADDRESS ISREDIT "CAPS OFF"
+   ndvr.1 = "..."
+   ndvr.1 = "I am working on Endevor element" ENVELM,
+            "in Environment" ENVSENV "System" ENVSSYS
+   ndvr.1 = "Act like an Endevor admin and",
+             "explain the following:"
+   ndvr.2 = "  Subsystem" ENVSSBS,
+             "Type" ENVSTYP "with processor group" ENVPRGRP "."
+   ndvr.3 = "..."
+
+   ADDRESS ISREDIT " LINE_AFTER .ZLAST =",
+            "DATALINE '"ndvr.1"'" ;
+/*
+   ADDRESS ISREDIT " LINE_AFTER .ZLAST =",
+            "DATALINE '"ndvr.2"'" ;
+   ADDRESS ISREDIT " LINE_AFTER .ZLAST =",
+            "DATALINE '"ndvr.3"'" ;
+   ADDRESS ISREDIT " LINE_AFTER .ZLAST =",
+            "DATALINE '"ndvr.4"'" ;
+   ADDRESS ISREDIT " LINE_AFTER .ZLAST =",
+            "DATALINE '"ndvr.5"'" ;
+*/
+   ADDRESS ISREDIT " SAVE "
+   ADDRESS ISREDIT " CANCEL "
+   EXIT
+

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMPA.rex

@@ -0,0 +1,10 @@
+/*     REXX   */                                                        00000100
+   "ISREDIT MACRO" ;                                                    00000200
+    /* Save the Selected Text snippets */                               00000300
+    Trace Off                                                           00000400
+    Sa=     'PSP.CLIST(AIASKMPA)'                                       00000500
+    ADDRESS ISREDIT " PASTE AIASK AFTER .ZLAST  DELETE"                 00000600
+    ADDRESS ISREDIT " SAVE "                                            00000700
+    ADDRESS ISREDIT " CANCEL "                                          00000800
+    EXIT                                                                00000900
+                                                                        00001000

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMRS.rex

@@ -0,0 +1,42 @@
+/*     REXX   */
+   "ISREDIT MACRO" ;
+    /* Format and Show the AIASK response         */
+    /* Use Text Flow command to slim the response */
+    /* to a 72-character-wide display.            */
+    Sa=     '(AIASKMRS)'
+   TRACE Off ;
+
+   Address ISREDIT "RESET"
+   Address ISREDIT "EXCLUDE ALL"
+   Address ISREDIT "FIND p'#$' 1 all"
+   Address ISREDIT "FIND p'##$' 1 all"
+   Address ISREDIT "CURSOR = " 1 1
+   Do 300
+      Address ISREDIT "FIND NEXT P'#' 1 NX"
+      If RC > 0 then Leave
+      ADDRESS ISREDIT " LINE_AFTER .ZCSR = DATALINE ' '" ;
+      If RC > 0 then Leave
+   End;
+
+   Address ISREDIT "FIND LAST  ' ' 1   "
+   If RC > 0 then exit
+   Address ISREDIT "FIND NEXT  p'^' 1   "
+   If RC > 0 then Exit
+   Do 300
+      Address ISREDIT "TFLOW .ZCSR 72"
+      Address ISREDIT "FIND PREV  '  ' 1   "
+      If RC > 0 then Leave
+      Address ISREDIT "FIND PREV  p'^' 1   "
+      If RC > 0 then Leave
+      Address ISREDIT "FIND PREV  '  ' 1   "
+      If RC > 0 then Leave
+      Address ISREDIT "FIND NEXT  p'^' 1   "
+      If RC > 0 then Leave
+      ADDRESS ISREDIT " (LPOS1,CPOS1) = CURSOR " ;
+      If LPOS1 < 3 then Leave
+   End;
+   Address ISREDIT "RESET"
+   Address ISREDIT "CUT AIASK"
+
+   EXIT
+

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMS2.rex

@@ -0,0 +1,45 @@
+/*     REXX   */
+  /* Insert AIASK instruction messages */
+  "ISREDIT MACRO" ;
+
+  ndvr.1 = '"END" to continue / "CANCEL" to quit'
+  ndvr.2 = "Learn about AIASK here....            "
+  ndvr.3 = "      https://techdocs.broadcom.com/endevor "
+  ndvr.4 = "Adjust or Enter your query above ... "
+  ndvr.5 = "   "
+  Sa=     'PSP.CLIST(AIASKM03)'
+  ADDRESS ISREDIT " RESET "
+  "ISREDIT (LINE) = CURSOR"
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZLAST = NOTELINE '"ndvr.5"'"
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZLAST = NOTELINE '"ndvr.4"'"
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZLAST = NOTELINE '"ndvr.3"'"
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZLAST = NOTELINE '"ndvr.2"'"
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZLAST = NOTELINE '"ndvr.1"'"
+
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;
+
+  ADDRESS ISPEXEC "VGET (ZPANELID ZSCRNAME ZAPPLID) SHARED"
+  sa= "You are using:" ZPANELID ZSCRNAME ZAPPLID
+
+  ADDRESS ISPEXEC 'VGET (ZVERB ZCMD) ASIS'
+  Sa= ZVERB ZCMD ZERRFLD ZERRMSG
+   ADDRESS ISPEXEC
+       'VGET (ENVBENV ENVBSYS ENVBSBS ENVBTYP ENVBSTGI ENVBSTGN ',
+             'ENVSENV ENVSSYS ENVSSBS ENVSTYP ENVSSTGI ENVSSTGN ',
+             'ENVELM  ENVPRGRP ENVCCID ENVCOM ENVGENE ENVOSIGN) ',
+       'PROFILE'
+   If Queued() > 0 then Parse pull IneedExpert
+   Else,
+   If ENVSTYP = 'COBOL' then IneedExpert = 'a COBOL Expert'
+   Else,
+   If ZAPPLID = 'CTLI'  then IneedExpert = 'an Endevor Admin'
+   Else,
+   IneedExpert = 'a COBOL Expert'
+
+   ADDRESS ISREDIT "Change First '**AnExpert**'" ,
+                          "'"IneedExpert"'"
+   EXIT
+

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMSG.rex

@@ -0,0 +1,45 @@
+/*     REXX   */                                                        00000100
+  /* Insert AIASK instruction messages */                               00000200
+  "ISREDIT MACRO" ;                                                     00000300
+                                                                        00000400
+  ndvr.1 = '"END" to continue / "CANCEL" to quit'                       00000500
+  ndvr.2 = "Learn about AIASK here....            "                     00000600
+  ndvr.3 = "      https://techdocs.broadcom.com/endevor "               00000700
+  ndvr.4 = "Adjust or Enter your query above ... "                      00000800
+  ndvr.5 = "   "                                                        00000900
+  Sa=     'PSP.CLIST(AIASKMSG)'                                         00001000
+  ADDRESS ISREDIT " RESET "                                             00001100
+  "ISREDIT (LINE) = CURSOR"                                             00001200
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZFIRST = NOTELINE '"ndvr.5"'"    00001300
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZFIRST = NOTELINE '"ndvr.4"'"    00001400
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZFIRST = NOTELINE '"ndvr.3"'"    00001500
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZFIRST = NOTELINE '"ndvr.2"'"    00001600
+  ADDRESS ISREDIT "ISREDIT LINE_AFTER .ZFIRST = NOTELINE '"ndvr.1"'"    00001700
+                                                                        00001800
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;              00001900
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;              00002000
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;              00002100
+  ADDRESS ISREDIT " LINE_AFTER .ZLAST = DATALINE '"  "'" ;              00002200
+                                                                        00002300
+  ADDRESS ISPEXEC "VGET (ZPANELID ZSCRNAME ZAPPLID) SHARED"             00002400
+  sa= "You are using:" ZPANELID ZSCRNAME ZAPPLID                        00002500
+                                                                        00002600
+  ADDRESS ISPEXEC 'VGET (ZVERB ZCMD) ASIS'                              00002700
+  Sa= ZVERB ZCMD ZERRFLD ZERRMSG                                        00002800
+   ADDRESS ISPEXEC                                                      00002900
+       'VGET (ENVBENV ENVBSYS ENVBSBS ENVBTYP ENVBSTGI ENVBSTGN ',      00003000
+             'ENVSENV ENVSSYS ENVSSBS ENVSTYP ENVSSTGI ENVSSTGN ',      00003100
+             'ENVELM  ENVPRGRP ENVCCID ENVCOM ENVGENE ENVOSIGN) ',      00003200
+       'PROFILE'                                                        00003300
+   If Queued() > 0 then Parse pull IneedExpert                          00003400
+   Else,                                                                00003500
+   If ENVSTYP = 'COBOL' then IneedExpert = 'a COBOL Expert'             00003600
+   Else,                                                                00003700
+   If ZAPPLID = 'CTLI'  then IneedExpert = 'an Endevor Admin'           00003800
+   Else,                                                                00003900
+   IneedExpert = 'a COBOL Expert'                                       00004000
+                                                                        00004100
+   ADDRESS ISREDIT "Change First '**AnExpert**'" ,                      00004200
+                          "'"IneedExpert"'"                             00004300
+   EXIT                                                                 00004400
+                                                                        00004500

endevor/Field-Developed-Programs/Model-Context-Protocol (MCP)-from-ISPF/AIASKMSL.rex

@@ -0,0 +1,9 @@
+/*     REXX   */
+   "ISREDIT MACRO" ;
+    /* Save the Selected Text snippets */
+    Sa=     'PSP.CLIST(AIASKM01)'
+    ADDRESS ISREDIT " PASTE AFTER .ZLAST  DELETE"
+    ADDRESS ISREDIT " SAVE "
+    ADDRESS ISREDIT " CANCEL "
+    EXIT
+