diff --git a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/@SITE.rex b/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/@SITE.rex index d33b344..882d784 100644 --- a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/@SITE.rex +++ b/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 */ diff --git a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTBROWSE.rex b/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTBROWSE.rex index 4bcd8d5..a90e1d7 100644 --- a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTBROWSE.rex +++ b/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 - diff --git a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTEDIT.rex b/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTEDIT.rex index a6e687a..18d3651 100644 --- a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/PTEDIT.rex +++ b/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 - diff --git a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/RETROPOP.pnl b/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/RETROPOP.pnl index 7fce97f..759d7b4 100644 --- a/endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/RETROPOP.pnl +++ b/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