* %GOTO PLSSBT; /* BILINGUAL HEADER 01000010 MACRO 02000010 TSBTD 03000010 IEDQSBTD DSECT 04000010 .* A000000-999999 @YM07020 05000010 SBTFLAGS DS X FUNCTION FLAGS 06000010 SBTECBN EQU X'80' REQUEST ECB POST WHEN COMPLETE 07000010 SBTBFRTN EQU X'40' RETURN BFR CONTAINING PARM 08000010 * LIST TO BFR RETURN WHEN 09000010 * COMPLETE 10000010 SBTOI EQU X'20' PERFORM OR FUNCTION 11000010 SBTNI EQU X'10' PERFORM AND FUNCTION 12000010 * X'08'-X'01' RESERVED 13000010 SBTQCBA DS AL3 QCB ADDRESS 14000010 SBTPRI DS X PRIORITY 15000010 SBTLINK DS AL3 LINK FIELD 16000010 DS A BUFFER TIC FIELD 17000010 SBTDATA DS X BIT CONFIGURATION FOR OR/AND 18000010 * FUNCTION 19000010 SBTADDR DS AL3 ADDRESS OF BYTE FOR OR/AND 20000010 * FUNCTION 21000010 SBTECB DS A OPTIONAL ECB FOR POST 22000010 MEND , */ 23000010 *%PLSSBT: ; 24000010 *DECLARE /* IEDQSBT PARAMETER LIST */ 25000010 * 1 IEDQSBTD BASED(IEDQSBTR), /* PARM LIST */ 26000010 * 2 SBTFLAGS BIT(8), /* FUNCTION FLAGS */ 27000010 * 3 SBTECBN BIT(1), /* REQUEST ECB POST WHEN 28000010 * COMPLETE */ 29000010 * 3 SBTBFRTN BIT(1), /* RETURN BFR CONTAINING PARM 30000010 * LIST TO BFR RETURN WHEN 31000010 * COMPLETE */ 32000010 * 3 SBTOI BIT(1), /* PERFORM OR FUNCTION */ 33000010 * 3 SBTNI BIT(1), /* PERFORM AND FUNCTION */ 34000010 * 3 * BIT(4), /* RESERVED */ 35000010 * 36000010 * 2 SBTQCBA PTR(24), /* QCB ADDRESS */ 37000010 * 38000010 * 2 SBTPRI CHAR(1), /* PRIORITY */ 39000010 * 2 SBTLINK PTR(24), /* LINK FIELD */ 40000010 * 41000010 * 2 * PTR(31), /* BUFFER TIC FIELD */ 42000010 * 43000010 * 2 SBTDATA BIT(8), /* BIT CONFIGURATION FOR 44000010 * OR/AND FUNCTION */ 45000010 * 2 SBTADDR PTR(24), /* ADDRESS OF BYTE FOR 46000010 * OR/AND FUNCTION */ 47000010 * 2 SBTECB PTR(31); /* OPTIONAL ECB FOR POST */ 48000010 * 49000010 * 50000010