*%;/* 00500002 MACRO 01000002 IGGFRWKA 01500002 .* /* START OF SPECIFICATIONS **** 02150002 .* 02200002 .*01 MODULE-NAME = IGGFRWKA 02250002 .* 02300002 .*01 COPYRIGHT = NONE 02350002 .* 02400002 .*01 STATUS = CHANGE LEVEL 01 02450002 .* 02460002 .*01 DESCRIPTIVE-NAME = FREEDBUF SVRB EXTENDED SAVEAREA(WORKAREA) 02490002 .* 02492002 .*01 FUNCTION = FORMATS THE SVRB EXTENDED SAVEAREA WHICH IS USED 02494002 .* AS WORKAREA FOR FREEDBUF SVC AND ESTAE 02494402 .* 02496002 .*01 NOTES = NONE 02498002 .* 02498402 .*02 DEPENDENCIES = NA 02498802 .* 02499202 .*02 PERFORMANCE = NA 02499602 .* 02499702 .*02 RESTRICTIONS = NA 02499802 .* 02499902 .*02 REGISTER-CONVENTIONS = NA 02549902 .* 02559902 .*02 PATCH-LABEL = NA 02569902 .* 02579902 .*01 MODULE-TYPE = MACRO 02589902 .* 02595902 .*02 MACRO-SIZE = NA 02597902 .* 02598302 .*02 EXTERNAL-REFERENCES = NA 02598702 .* 02599102 .*01INNER-MACROS = NONE 02599502 .* 02599602 .*01SYSTEM-MACROS = NONE 02599702 .* 02599802 .*01 CHANGE-ACTIVITY = SEE BELOW 02609802 .* 02619802 .* VS2 RELEASE 2 02629802 .* 02649802 .**** END OF SPECIFICATIONS ***/ 02659802 */* MACCOMP Y-2 SC1D7/SJD48 */ 02669802 */* MACSTAT Y-2 73122/021160 */ 02679802 */********************************************************************/ 02699802 */*THE FOLLOWING DSECT FORMATS THE WORKAREA USED BY FREEDBUF SVC (57)*/ 03000002 */*AND THOSE BDAM MODULES TO WHICH FREEDBUF PASSES CONTROL. THIS */ 03500002 */*WORKAREA IS LOCATED IN THE SVRB EXTENDED SAVEAREA AND MUST FOLLOW */ 04000002 */*THE RB DSECT MACRO CALL. */ 04500002 */********************************************************************/ 05000002 *%GOTO WKAPLS2; 05500002 ORG RBEXSAVE 06000002 WKAREA DS 0CL48 SVRB SVC WORKAREA 06500002 WKATRAIL DS BL1 AUDIT TRAIL BIT SAVED HERE 07000002 * THE FOLLOWING ARE AUDIT TRAIL BITS SET AFTER CERTAIN FUNCTIONS ARE * 07500002 * COMPLETED IN THE FBUFRTNE ROUTINE. THESE BITS WILL BE INTERROGATED * 08000002 * BY THE FREEDBUF ESTAE ROUTINE DURING CLEANUP. * 08500002 WKAIOBQ EQU X'80' NEXT IOB HAS BEEN TAKEN FROM 08550002 * IOB QUEUE BUT CHAN PGM NOT 08600002 * INITIALIZED YET 08650002 WKABUFAS EQU X'40' BUFFER HAS BEEN ASSIGNED TO 11500002 * NEXT IOB AND CHAN PGM INIT- 12000002 * IALIZED BUT EXCP NOT ISSUED 12500002 WKAEXCP EQU X'20' BUFFER HAS BEEN FREED AND 12550002 * GIVEN TO NEW IOB FOR WHICH 12600002 * EXCP WAS ISSUED 12650002 WKABUFQ EQU X'10' BUFFER HAS BEEN FREED AND 14050002 * PUT BACK ON AVAILABLE QUEUE 14100002 WKASVKEY DS BL1 USER KEY SAVED 14500002 WKACLEAN DS BL1 RET CODE FROM ESTAE CLEANUP 15000002 WKADUMP DS BL1 RET CODE FROM ESTAE SDUMP 15500002 WKASVC14 DS A REG14 RETURN FROM SVC 57 16500002 WKAREG14 DS 0A REG14 RETURN TO FREEDBUF 17000002 WKADEBRC DS BL1 RET CODE FROM ESTAE DEBCHK 17050002 WKADEB DS AL3 DEB ADDR AFTER ESTAE DEBCHK 17100002 WKABUFRG DS A BUFFER PTR SAVED FOR ESTAE 17500002 WKAIOBRG DS A IOB PTR SAVED FOR ESTAE 18000002 WKASAVE DS A USLBFRQT+1/BCBFRQT SAVED 18500002 WKASAVE2 DS A BCBNABFR(4)/BCBBFAVL(1) SAVED 19000002 WKAESTAE ESTAE MF=L ESTAE PARAMETER LIST (20 BYTES) 20500002 WKALENG EQU *-WKAREA LENGTH OF WORKAREA 21000002 MEND 21500002 *%WKAPLS2: ; 22000002 *DCL 1 WKAREA CHAR(48) BDY(WORD) DEF(RBEXSAVE), /* SVRB WORKAREA */ 22500002 * 2 WKATRAIL FIXED(8), /* AUDIT TRAIL BIT SET BY SVC*/ 23000002 */* THE FOLLOWING EQUATES ARE AUDIT TRAIL BITS SET AFTER CERTAIN */ 23500002 */* FUNCTIONS ARE COMPLETED IN THE DYN BUF RTN. THESE BITS ARE TESTED*/ 24000002 */* BY THE FREEDBUF ESTAE ROUTINE DURING CLEANUP. */ 24500002 * 3 WKAIOBQ BIT(1), /* NEXT IOB HAS BEEN TAKEN 25500002 * FROM IOB QUE BUT CHAN PGM 26000002 * NOT INITIALIZED YET */ 26500002 * 3 WKABUFAS BIT(1), /* BUFFER HAS BEEN ASSIGNED 27000002 * TO NEXT IOB AND CHAN PGM 27500002 * INITIALIZED BUT NO EXCP */ 28000002 * 3 WKAEXCP BIT(1), /* BUFFER HAS BEEN FREED AND 28500002 * GIVEN TO NEW IOB FOR WHICH 29000002 * EXCP WAS ISSUED */ 29500002 * 3 WKABUFQ BIT(1), /* BUFFER HAS BEEN FREED AND 30000002 * PUT BACK ON AVAILABLE QUE */ 30500002 * 3 * BIT(3), 30550002 * 3 WKALOCK BIT(1), /* TELLS DEBCHECK NOT TO FREE 30600002 * THE LOCAL LOCK BEFORE RETURN */ 30650002 * 2 WKASVKEY FIXED(8), /* USER KEY USED BY SVC 57 */ 31500002 * 2 WKACLEAN FIXED(8), /* RET CODE FROM ESTAE CLEAN */ 31550002 * 2 WKADUMP FIXED(8), /* RET CODE FROM ESTAE SDUMP */ 32000002 * 2 WKASVC14 FIXED(31), /* REG14 RETURN FROM SVC 57 */ 33000002 * 2 WKAREG14 PTR(31), /* REG14 RET TO SVC OR ESTAE */ 33500002 * 3 WKADEBRC FIXED(8), /* ESTAE DEBCHK RETURN CODE */ 33550002 * 3 WKADEB PTR(24), /* KEEPS VALID DEB PTR-ESTAE */ 34000002 * 2 WKABUFRG PTR(31), /* BUFFER PTR SAVED FOR ESTAE*/ 34500002 * 2 WKAIOBRG PTR(31), /* IOB PTR SAVED FOR ESTAE */ 35000002 * 2 WKASAVE FIXED(31), /* USLBFRQT+1/BCBFRQT SAVED */ 35500002 * 2 WKASAVE2 FIXED(31), /* BCBNABFR(4)/BCBBFAVL(1) SV*/ 36000002 * 2 WKAESTAE CHAR(20) BDY(WORD), /* LIST FORM FOR ESTAE MACRO */ 36500002 * 3 WKATRACE CHAR(8) BDY(WORD), /* LIST FORM FOR GTRACE MACRO*/ 37000002 * 4 WKARETRN PTR(31), /* RET FROM ESTAE CLEANUP RTN*/ 37500002 * 4 WKASVREG FIXED(31), /* RTM SAVE ADDR -CLEANUP RTN*/ 38000002 * 3 WKATRCLG FIXED(8), /* SAVES GTRACE RECORD LENGTH*/ 38500002 * 3 * CHAR(11); /* UNUSED OUTSIDE ESTAE LIST */ 39000002