IBM Mainframe Forum

by **rbs1121** » Thu Oct 31, 2013 8:04 pm

The RC (return code) is available to be interrogated by the IF statement in a subsequent step. Is there a way to make the RC available to a program, either as a PARM or as a data element that could be written to a file?

by **Akatsukami** » Thu Oct 31, 2013 8:08 pm

You'll have to "chase control blocks" for it. I don't know offhand if there's an example on this board; I'll see what's in my sandbox (I have a vague memory that I have a proof-of-concept program somewhere).

by **Akatsukami** » Thu Oct 31, 2013 9:05 pm

Here is a PL/I program that displays the names and return codes of prior steps:

Select all

MTCB: PROC OPTIONS (MAIN) REORDER;
DCL AMODE24 CHAR (3) BASED,
STEP CHAR (8),
STEPNAME CHAR (8) BASED,
STUFF CHAR (64) BASED,
(STEP#, BYPASS) FIXED BIN (8) UNSIGNED,
UFXB8 FIXED BIN (8) UNSIGNED BASED,
RCSTEP FIXED BIN (16) UNSIGNED,
UFXB16 FIXED BIN (16) UNSIGNED BASED,
I FIXED BIN (31),
(TCB, TIOT, WORK, JSCB, JCT, FSCT)
POINTER,
MASK POINTER BASED;
DCL (POINTERVALUE, UNSPEC) BUILTIN;

WORK = POINTERVALUE(540);
TCB = WORK->MASK;
WORK = TCB;
WORK = TCB + 12;
TIOT = WORK->MASK;
WORK = TCB + 180;
JSCB = WORK->MASK;
WORK = JSCB;
WORK = JSCB + 261;
UNSPEC(JCT) = UNSPEC('00'X || WORK->AMODE24); /*
PUT SKIP EDIT ('JCT = ', UNSPEC(JCT)) (A, B(32)); */
WORK = JSCB + 228;
STEP# = WORK->UFXB8;
WORK = JCT + 48;
UNSPEC(FSCT) = UNSPEC('00'X || WORK->AMODE24);

DO I = 1 TO STEP#-1;
WORK = FSCT + 68;
STEP = WORK->STEPNAME;
WORK = FSCT + 24;
RCSTEP = WORK->UFXB16;
WORK = FSCT + 188;
BYPASS = WORK->UFXB8;

IF (BYPASS = 128) THEN
PUT SKIP EDIT ('STEP ==>', STEP, ' FLUSHED') (A, A, A);
ELSE
PUT SKIP EDIT ('STEP ==>', STEP, ' RC ==>', RCSTEP)
(A, A, A, F(4));

WORK = FSCT + 36;
UNSPEC(FSCT) = UNSPEC('00'X || WORK->AMODE24);
END;

END MTCB;

IBM Mainframe Forum

RC variable in IF-THEN-ELSE construct

RC variable in IF-THEN-ELSE construct

Re: RC variable in IF-THEN-ELSE construct

Re: RC variable in IF-THEN-ELSE construct