* %GOTO PLSSTCB; /* X03039 03000010 MACRO 08000020 TSTCBD 16000020 .*A-000000-999999 @X31X8X0 17000010 .*D400000,640000 S22027 18000022 .*A610000-660000 S22027 20000022 .*C880000 X03039 21000010 .*A890000-970000 X03039 22000010 IEDQSTCB DSECT . SUBTASK CONTROL BLOCK 24000020 SPACE 2 32000020 SPACE 1 48000020 STCBVTO DS XL1 . ACTIVATION KEY + 0 56000020 STCBINDX DS XL1 . INDEX TO COMMON BUFFER DATA AREA S22027 61000022 STCBTCIN DS H . TTCIN OF DESTINATION TERMINAL S22027 66000022 STCBPRI DS XL1 . PRIORITY + 4 72000020 STCBLINK DS XL3 . LINK FIELD + 5 80000020 MEND , */ X03039 88000010 *%PLSSTCB: ; /* STCB DSECT X03039*/ 89000010 *DECLARE /* X03039*/ 90000010 * 1 IEDQSTCB BDY(WORD) BASED, /* X03039*/ 91000010 * 2 STCBVTO CHAR(1), /* ACTIVATION KEY X03039*/ 92000010 * 2 STCBINDX CHAR(1), /* INDEX TO COMMON X03039*/ 93000010 * /* BUFFER DATA AREA X03039*/ 94000010 * 2 STCBTCIN FIXED(15), /* TTCIN OF DEST TRM X03039*/ 95000010 * 2 STCBPRI CHAR(1), /* PRIORITY X03039*/ 96000010 * 2 STCBLINK PTR(24); /* LINK FIELD X03039*/ 97000010