How do I add ACM and Reporting to ENDEVORS main panel
search cancel

How do I add ACM and Reporting to ENDEVORS main panel

book

Article ID: 233016

calendar_today

Updated On:

Products

Endevor

Issue/Introduction

I would like to access the ACM and Reporting interfaces from the ENDEVORS main panels.

Environment

z/os Endevor 18.1+

Cause

By default ACM and Reports are not included on the main panel.

Resolution

In the REXX exec ENDEVORS(in CSIQCLS0) add options 4 and 5 as follows:

select                                                                    
   when option =   ""  then    /* Nothing entered                 */      
      nop                                                                 
   when (option = "1" | option = "E") then   /* Classic Endevor   */      
      "ISPEXEC SELECT PGM(C1SM1000)  PARM("ZTRAIL") NOCHECK "scrName      
   when (option = "2" | option = "Q") then   /* Quick Edit        */      
      "ISPEXEC SELECT PGM(ENDIE000)  PARM("ZTRAIL") NOCHECK" scrName      
   when (option = "3" | option = "P") then   /* PDM               */      
      "ISPEXEC SELECT PGM(BC1G1000)  PARM("ZTRAIL") NOCHECK" scrName      
   when (option = "4" | option = "A") then   /* ACM               */      
      "ISPEXEC SELECT CMD(BC1PACMI) NOCHECK "  scrname                    
   when (option = "5" | option = "R") then   /* REPORTING         */      
      "ISPEXEC SELECT CMD(%C1SR1000 DEBUG(NOBUG))" scrname                
   when (option = "S")                then   /* Settings          */      
      call EditSets            /* Process User request            */    

In panel ENDEVORM(in CSIQPENU) add options 4 and 5 as follows(2 places):

}Dialog Options:                                           øAPPLID   -±ZAPPLID ø
ø                                                           &DFLTSTR  ±DFLTNDVRø
% 1 {Endevorø                                                                   
% 2 {Quick Editø                                                                
% 3 {Parallel Development Managerø *THUMBA,THUMBS                              *
% 4 {ACMø                          *                                           *
% 5 {Reportingø                    *                                           *
ø                                  *                                           *
% S {Settingsø                     *                                           *

and add the lines with FIELD(ZPS0004A) and FIELD(ZPS0004B)

)PNTS                            

 FIELD(ZPS00001) VAR(ZCMD) VAL(1)
 FIELD(ZPS00002) VAR(ZCMD) VAL(2)
 FIELD(ZPS00003) VAR(ZCMD) VAL(3)
 FIELD(ZPS0004A) VAR(ZCMD) VAL(4)
 FIELD(ZPS0004B) VAR(ZCMD) VAL(5)
 FIELD(ZPS00004) VAR(ZCMD) VAL(S)
 FIELD(ZPS00005) VAR(ZCMD) VAL(X)
)END