Need to add menu options to the ENDEVORS main panel for ACM and Reporting.
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