Fixes for Package Approvals

Author: waljo11

endevor/ServiceNow-Interface/COBOL+REXX+Python-Example/C1UEXTT7.cob

@@ -393,7 +393,7 @@
               END-STRING
            END-IF.
 *******    Replace any double quote characters in data to be passed
-           IF CAST-PACKAGE
+           IF CAST-PACKAGE OR REVIEW-PACKAGE
               INSPECT PREQ-PACKAGE-COMMENT REPLACING ALL '"' BY X'7D'
               INSPECT PHDR-PKG-NOTE1       REPLACING ALL '"' BY X'7D'
               INSPECT PHDR-PKG-NOTE2       REPLACING ALL '"' BY X'7D'

endevor/ServiceNow-Interface/COBOL+REXX+Python-Example/SERVINOW.rex

@@ -2,6 +2,9 @@
 /*  Validate the Ticket# with Service-Now                      */
 /*  This routine can be used to validate a CCID or package     */
 /*  name (for example) as valid Service-Now ticket numbers.    */
+   isItThere = ,
+     BPXWDYN("INFO FI(SERVINOW) INRTDSN(DSNVAR) INRDSNT(myDSNT)")
+   If isItThere = 0 then Trace ?r
    Arg Caller Ticket# TSOorBatch .
    If TSOorBatch = 'B' then say "SERVINOW - validating" Ticket#
    NEWSTACK
@@ -36,13 +39,7 @@
    lastrecord = Substr(stdout.lastrec#,1,40)
    whereExists = Pos("Exists",lastrecord)
    If whereExists = 0 then,
-      Do
       Message = Caller'/SERVINOW - Ticket Number ' Ticket# ||,
                 ' is **NOT** defined to Service-Now'
-      /* Print the output from running Python */
-      do i=1 to stderr.0
-         say stderr.i
-      end    /* Do.... */
-      End /* If whereExists = 0  */
    DELSTACK
    Return Message;