How to issue commands from third party software using REXX, Cobol, Assembler

Products

• ESP Workload Automation

Issue/Introduction

Need to interact with 3rd Party Software.

Environment

Release : 12.0

Component : ESP WORKLOAD AUTOMATION

Resolution

- Example #1:  Call module ESP and pass a command. 

   CALL ESP 'SUBSYS(subsys);LDSN;END'

   Note: The last command should be END.

- Example #2: Use REXX

/* REXX CODE */
X=OUTTRAP('A.')
QUEUE "LDSN"
QUEUE “END”
"ESP SUB(subsys)"
X=OUTTRAP('OFF')

- Example #3: Use COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. MYCOBOL.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PARMS
     05 PARM-LEN PIC 9(4) BINARY VALUE ZEROS.
     05 PARM-STR PIC X(68) VALUE
     "SUBSYS(ESPM);TRIGGER CYBER.TESTCBL ADD USER1(TESTCOBL); END;".
LINKAGE SECTION.
PROCEDURE DIVISION.
MOVE LENGTH OF PARM-STR TO PARM-LEN
CALL "ESP" USING PARMS.
STOP RUN.

Note: The parm field must begin with a binary length field.

- Example #4: Use Assembler

ESPCODE      LA    1,ESPPARMS

                      LINK  EP=ESP,PARAM=((1)),VL=1

                      LTR   15,15

                      BZ    RETURN

                      MVC   WTO1+46(8),PROGRAM

WTO1          WTO   'ERROR IN ESP CALL - JOB:             ',    X

                     DESC=(11)

ESPPARMS  DS    0CL54

                     ORG   ESPPARMS

                     DC    H'52'

                     DC    CL13'SUBSYS(ESPM);'

                     DC    CL16'TRIGGER CYBER.TESTASM'

*                   DC    CL25'ESPNOMSG TRIGGER CYBER.TESTASM'

PROGRAM  DC    CL8'        '

                     DC    CL9' ADD;END;'

Note:  must use VL=1 on the LINK command to indicate that this is the only parm being passed.