![]() It uses the COBOL program's parameter list to create and update REXX variables and passes. * FLAG4-OFF TO REQUEST A TSO/E COMMAND (NOT A PROGRAM) BE INVOKEDĬALL 'TSOLNK' USING PARM1 PARM2 PARM3 PARM4 PARM5 PARM6. It believes that it is calling a REXX subroutine, REXDRIVR. ![]() * SET FLAGS BY ADDING APPROPRIATELY VALUED FLAG VARIABLES * PARM6 IS FUNCTION ABEND CODE VALUE FROM TSOLNK ![]() * PARM5 IS TSF REASON CODE VALUE FOR ABEND FROM TSOLNK * PARM4 IS FUNCTION RETURN CODE VALUE FROM TSOLNK * DEFINE FLAGS TO BE FULL WORDS WITH APPROPRIATE BITS ONĠ1 FLAG1-ON PICTURE S9(9) VALUE +16777216 COMP.Ġ1 FLAG2-ON PICTURE S9(9) VALUE +65536 COMP.Ġ1 FLAG3-ON PICTURE S9(9) VALUE +256 COMP.Ġ1 FLAG1-OFF PICTURE S9(9) VALUE +0 COMP.Ġ1 FLAG2-OFF PICTURE S9(9) VALUE +0 COMP.Ġ1 FLAG3-OFF PICTURE S9(9) VALUE +0 COMP.Ġ1 FLAG4-OFF PICTURE S9(9) VALUE +1 COMP. How can I run a cobol program from a rexx program the cobol program is compiled and the load module is available to me in a data set named (PROG1). ![]() * DEFINE COMMENT VALUES FOR OUTPUT RECORD FORMĠ1 RETURN-COMMENT PICTURE X(25) VALUE 'FUNCTION RETURN CODE IS '.Ġ1 REASON-COMMENT PICTURE X(25) VALUE ' TSF REASON CODE IS '.Ġ1 ABEND-COMMENT PICTURE X(25) VALUE 'FUNCTION ABEND CODE IS '. This service can only be used in a foreground or background TSO/E environment. IKJEFTSR was invoked from a non-TSO/E environment. THE MESSAGE THAT IT GIVES ME IS CODIGO 24 IN DECIMAL. I HAVE PROVEN THIS And IT GIVES BACK An ERROR To ME FROM A COBOL THAT CALLTo A COMMANDO TSO IN BATCH.
0 Comments
Leave a Reply. |