I would like to access the ACM and Reporting interfaces from the ENDEVORS main panels.
z/os Endevor 18.1+
By default ACM and Reports are not included on the main panel.
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