ISPF-PDA-RETROPOP-AND-PTroutines-update

endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/@SITE.rex

@@ -1,7 +1,17 @@
-   /*   REXX  */                                                                
+      /*   REXX  */                                                                
    PARSE ARG Parm                                                               
-
-/* Required for all Bundles :   */                                              
+
+/* Enter one or more mapping representations                */    
+/*       where PDA should search for inventory.             */    
+   PDAMaplist = ,        /* required only for PDA  */             
+      " DEV/D-QAS/Q ",                                            
+      " QAS/1-QAS/1 ",                                            
+      " EMER/1-EMER/2 "                                           
+   /* " DEV/1-QAS/2 "                                       */                                   
+   /* " EMER/1-EMER/2 "                                     */ 
+   /*                                                       */ 
+
+/* Required for many Bundles :   */                                              
    /* Enter High Level Qualifiers */                                            
    SHLQ='IPRFX.IQUAL'   /* Systems High Level Qualifier */                      
    FHLQ='IPRFX.IQUAL'   /* Field Developed Program (FDP) HLQ */                 

endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTBROWSE.rex

@@ -1,15 +1,9 @@
  /* REXX   */
- /*THESE ROUTINES ARE DISTRIBUTED BY THE CA STAFF "AS IS".
-   NO WARRANTY, EITHER EXPRESSED OR IMPLIED, IS MADE FOR THEM.
-   COMPUTER ASSOCIATES CANNOT GUARANTEE THAT THE ROUTINES ARE
-   ERROR FREE, OR THAT IF ERRORS ARE FOUND, THEY WILL BE CORRECTED. */
    'ISREDIT MACRO ' ;
-   TRACE  o ;
+   TRACE OFf;
    ADDRESS ISREDIT;
-
    ADDRESS ISPEXEC,
       "VGET (ZSCREEN ZSCREENC ZSCREENI) SHARED"
-
    DELIMITERS = ' ,/*="?'"'" ;
    Do forever
       if zscreenc = 1 then leave;
@@ -19,10 +13,8 @@
          zscreenc = zscreenc - 1;
       else leave;
    end; /* do forever */
-
    wheredsn = SUBSTR(ZSCREENI,(ZSCREENC+1),80)
    sa= "wheredsn=>>>"wheredsn"<<<"
-
    END_POSITION = 80 ;
    left_paren_POSITION  = POS("(",wheredsn) ;
    POSITION  = POS("'",wheredsn)
@@ -35,13 +27,10 @@
       DELIMITER = SUBSTR(DELIMITERS,DLM,1);
       POSITION  = POS("'"DELIMITER"'",wheredsn)
       POSITION  = POS(DELIMITER,wheredsn)
-      IF POSITION > 0 & POSITION < END_POSITION THEN,
+      IF POSITION > 0 & POSITION <= END_POSITION THEN,
          END_POSITION = POSITION - 1;
    END; /* DO DLM = 1 TO LENGTH(DELIMITERS) */
-
-
    wheredsn = substr(wheredsn,1,end_position) ;
-
    DSNCHECK = SYSDSN("'"wheredsn"'") ;
    IF DSNCHECK /= OK &,
       left_paren_POSITION > 0 &,
@@ -50,13 +39,17 @@
          wheredsn = substr(wheredsn,1,(left_paren_POSITION -1)) ;
          DSNCHECK = SYSDSN("'"wheredsn"'") ;
          end ;
-
+   TEMP = LISTDSI("'"WHEREDSN"'" RECALL DIRECTORY)
+   If Substr(SYSDSORG,1,2) = 'PO' &,
+      SYSMEMBERS = 0 then,
+        Do
+        Say WHEREDSN "has no members"
+        Exit
+        end;
    IF DSNCHECK = OK then,
       do
       ADDRESS ISPEXEC "VIEW DATASET('"WHEREDSN"')" ;
       if rc > 4 then say "rc=" rc
       end;
    else say wheredsn "-" dsncheck ;
-
    EXIT
-

endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTEDIT.rex

@@ -1,15 +1,9 @@
  /* REXX   */
- /*THESE ROUTINES ARE DISTRIBUTED BY THE CA STAFF "AS IS".
-   NO WARRANTY, EITHER EXPRESSED OR IMPLIED, IS MADE FOR THEM.
-   COMPUTER ASSOCIATES CANNOT GUARANTEE THAT THE ROUTINES ARE
-   ERROR FREE, OR THAT IF ERRORS ARE FOUND, THEY WILL BE CORRECTED. */
    'ISREDIT MACRO ' ;
    TRACE  o ;
    ADDRESS ISREDIT;
-
    ADDRESS ISPEXEC,
       "VGET (ZSCREEN ZSCREENC ZSCREENI) SHARED"
-
    DELIMITERS = ' ,/*="?'"'" ;
    Do forever
       if zscreenc = 1 then leave;
@@ -19,17 +13,15 @@
          zscreenc = zscreenc - 1;
       else leave;
    end; /* do forever */
-
    wheredsn = SUBSTR(ZSCREENI,(ZSCREENC+1),80)
    sa= "wheredsn=>>>"wheredsn"<<<"
-
    END_POSITION = 80 ;
    left_paren_POSITION  = POS("(",wheredsn) ;
    POSITION  = POS("'",wheredsn)
    IF POSITION > 0 & POSITION < END_POSITION THEN,
       END_POSITION = POSITION - 1 ;
    POSITION  = POS(")",wheredsn)
-   IF POSITION > 0 & POSITION < END_POSITION THEN,
+   IF POSITION > 0 & POSITION <= END_POSITION THEN,
       END_POSITION = POSITION ;
    DO DLM = 1 TO LENGTH(DELIMITERS)
       DELIMITER = SUBSTR(DELIMITERS,DLM,1);
@@ -38,10 +30,7 @@
       IF POSITION > 0 & POSITION < END_POSITION THEN,
          END_POSITION = POSITION - 1;
    END; /* DO DLM = 1 TO LENGTH(DELIMITERS) */
-
-
    wheredsn = substr(wheredsn,1,end_position) ;
-
    DSNCHECK = SYSDSN("'"wheredsn"'") ;
    IF DSNCHECK /= OK &,
       left_paren_POSITION > 0 &,
@@ -50,13 +39,17 @@
          wheredsn = substr(wheredsn,1,(left_paren_POSITION -1)) ;
          DSNCHECK = SYSDSN("'"wheredsn"'") ;
          end ;
-
+   TEMP = LISTDSI("'"wheredsn"'" RECALL DIRECTORY)
+   If Substr(SYSDSORG,1,2) = 'PO' &,
+      SYSMEMBERS = 0 then,
+        Do
+        Say wheredsn "has no members"
+        Exit
+        end;
    IF DSNCHECK = OK then,
       do
       ADDRESS ISPEXEC "EDIT DATASET('"wheredsn"')" ;
       if rc > 4 then say "rc=" rc
       end;
    else say wheredsn "-" dsncheck ;
-
    EXIT
-

endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/RETROPOP.pnl

@@ -1,14 +1,5 @@
 )ATTR
-  ! TYPE(INPUT)    INTENS(LOW) PAD(NULLS)
-  _ TYPE(OUTPUT)   INTENS(LOW)
   | TYPE(OUTPUT)   INTENS(HIGH)
-  } TYPE(TEXT)   INTENS(HIGH) COLOR(RED)
-  $ TYPE(TEXT)   INTENS(HIGH) COLOR(PINK)
-  # TYPE(TEXT)   INTENS(HIGH) COLOR(TURQUOISE)
-  @ TYPE(TEXT)   INTENS(HIGH) COLOR(YELLOW)
-  * TYPE(TEXT)   INTENS(HIGH) COLOR(TURQ) HILITE(REVERSE)
-  { TYPE(TEXT)   INTENS(LOW)  COLOR(BLUE)
-  ~ TYPE(TEXT)   INTENS(LOW)  COLOR(TURQUOISE)
 )BODY DEFAULT(%+_)  WINDOW(40,10)
 |MSG1
 |MSG2