*%GOTO ACBEXTPL; /* SKIP THE COMMENTS */ 00050000 * /* */ 00100000 * /* CHANGE LEVEL = 03 */ 00150037 * /* DATE OF LAST CHANGE = 8 JULY 75 ( 75 * 174 ) */ 00200037 * /* */ 00250000 * /******************************************************************/ 00300000 * /* */ 00350000 * /* ACB VTAM EXTENSION */ 00400000 * /* */ 00450000 * /* THE EXTENSION DESCRIBES CONTROL DATA THAT ONLY VTAM USES. */ 00500000 * /* THE EXTENSION IS CALLED AS AN INNER MACRO BY IFGACB */ 00510003 * /* UNDER THE FOLLOWING CONDITIONS: */ 00520003 * /* */ 00530003 * /* PLS: THE MODULE CONTAINING AN INCLUDE FOR IFGACB */ 00540003 * /* SETS THE MACRO VARIABLE 'ACBRPLXL' TO 'VTAM' */ 00542003 * /* PRIOR TO ISSUING THE INCLUDE. */ 00544003 * /* BAL: THE AM=VTAM PARAMETER IS CODED ON THE IFGACB */ 00546003 * /* MACRO CALL. */ 00548003 * /* */ 00550000 * /******************************************************************/ 00600000 * /* */ 00650000 *%ACBEXTPL: ; /* START OF PLS MAPPING */ 00700000 * 2 ACBVTEXT, /* ACB VTAM EXTENSION 00750000 * X03004*/ 00760000 * 3 ACBRTN CHAR(6), /* LA 15,32 00900000 * BR 14 (VTAM) X03004*/ 00950000 * 3 * FIXED(15), /* RESERVED X03004*/ 01000000 * 3 * PTR(31); /* RESERVED X03004*/ 01050000 * DCL ISTACB BASED(ADDR(IFGACB)) /* ISTACB LENGTH X03004*/ 01060003 * CHAR(LENGTH(IFGACB)); 01070003 *%/* VTAM ACBERFLG CODES X03004*/ 01070203 * ACBNORM = '''00''X'; /* NORMAL END @Z40BHUC*/ 01070537 * % ACBONVRT = '''14''X'; /* NO VIRTUAL MEMORY FOR 01072037 * CONTROL BLOCKS OR WORK 01072537 * AREAS(VTAM) X03004*/ 01073037 * % ACBCAQNR = '''40''X'; /* OUTSTANDING ACQUIRES 01073537 * NOT RELEASED(VTAM) 01074037 * X03004*/ 01074537 * % ACBCDSNR = '''42''X'; /* DESTINATIONS NOT 01075037 * RELEASED(VTAM) X03004*/ 01075537 * % ACBRNOCF = '''4C''X'; /* CLOSE FAILED, POI QUEUE 01076037 * NOT EMPTY OR REPLIES 01076537 * OUTSTANDING @Z40BHUC*/ 01077037 * % ACBOANAT = '''50''X'; /* VTAM NOT ACTIVE 01080903 * X03004*/ 01082903 * % ACBOAHLT = '''52''X'; /* VTAM ACTIVE BUT 01084903 * HALTING X03004*/ 01085303 * % ACBOAVFY = '''54''X'; /* APPLICATION VERIFICA- 01085703 * TION FAILED(VTAM) 01085803 * X03004*/ 01085903 * % ACBOANSN = '''56''X'; /* NON-APPLICATION ID 01098703 * NAME SPECIFIED(VTAM) 01108703 * X03004*/ 01110703 * % ACBOAPAA = '''58''X'; /* APPLICATION ACTIVE 01111103 * ALREADY(VTAM) X03004*/ 01111503 * % ACBOAPNM = '''5A''X'; /* NO MATCHING APPLICA- 01115803 * TION ID ENTRY(VTAM) 01117803 * X03004*/ 01119803 * % ACBOVINA = '''5C''X'; /* VTAM IN SYSTEM BUT 01119903 * NOT ACTIVE X03004*/ 01120003 * % ACBOAPSE = '''5E''X'; /* APPLICATION ID NOT IN 01124303 * REQUESTOR'S SPACE 01126303 * (VTAM) X03004*/ 01128303 * % ACBOUNDF = '''60''X'; /* INTERMITTENT 01128403 * ERROR(VTAM) X03004*/ 01128503 * % ACBOAPLE = '''62''X'; /* APPLICATION ID LENGTH 01132803 * NOT VALID(VTAM)X03004*/ 01134803 * % ACBOPWSE = '''64''X'; /* PASSWORD NOT IN RE- 01136803 * QUESTOR SPACE(VTAM) 01136903 * X03004*/ 01137003 * % ACBOPWLE = '''66''X'; /* PASSWORD LENGTH 01137103 * INVALID(VTAM) X03004*/ 01147503 * % ACBRNOOF = '''68''X'; /* OPEN FAILS BECAUSE A 01148037 * PRIMARY POA ISSUED AN 01148437 * OPEN ACB BUT ANOTHER 01154537 * PRIMARY POA IS CURRENTLY 01156537 * ACTIVE @Z40BHUC*/ 01158537 * % ACBTVTCL = '''70''X'; /* VTAM CLEANUP IN PROCESS 01160537 * FOR REQUESTED APPLID 01160637 * @Z40BHUC*/ 01160937 * % ACBOACT = '''BC''X'; /* ACB ACTIVE X03004*/ 01167037 * % ACBCBUSY = '''BC''X'; /* ACB BUSY X03004*/ 01173137 * %GOTO ACBEND; /* GO TO END OF MACRO */ 01179203 * /* 01189603 * ASSEMBLER DSECT FOR ACB VTAM EXTENSION 01200000 * * 01250000 MACRO 01300000 IFGACBVT 01350000 ACBRTN DS XL6 IF VTAM IS INACTIVE, 01500000 * ACBINRTN CONTAINS A 01550000 * POINTER TO ACBRTN AT 01600000 * OFFSET 76(X'4C') TO SET 01650000 * A RETURN CODE AND RETURN 01700000 * TO THE CALLER. THE 01750000 * FIRST FOUR BYTES CONTAIN 01800000 * X'41F00020' (LA 15,32); 01850000 * THE LAST TWO BYTES 01900000 * CONTAIN X'07FE' (BR 14) 01950000 * X03004 02000000 DS XL2 RESERVED X03004 02050000 DS A RESERVED 02100000 * ACBERFLG ERROR CODES SPECIFIC TO VTAM X03004 02110003 ACBNORM EQU X'00' NORMAL END @Z40BHUC 02112037 ACBONVRT EQU X'14' NO VIRTUAL MEMORY FOR 02120003 * CONTROL BLOCKS OR WORK 02130003 * AREAS(VTAM) X03004 02140003 ACBCAQNR EQU X'40' OUTSTANDING ACQUIRES ARE 02142003 * NOT RELEASED(VTAM)X03004 02144003 ACBCDSNR EQU X'42' DESTINATIONS ARE NOT 02146003 * RELEASED(VTAM) X03004 02148003 ACBRNOCF EQU X'4C' CLOSE FAILED, POI QUEUE 02148137 * NOT EMPTY OR REPLIES 02148237 * OUTSTANDING @Z40BHUC 02148337 ACBOANAT EQU X'50' VTAM IS NOT ACTIVEX03004 02148403 ACBOAHLT EQU X'52' VTAM IS ACTIVE BUT 02148803 * HALTING X03004 02149203 ACBOAVFY EQU X'54' APPLICATION VERIFICATION 02149603 * FAILED(VTAM) X03004 02149703 ACBOANSN EQU X'56' A NON-APPLICATION ID 02149803 * NAME WAS SPECIFIED(VTAM) 02149903 * X03004 02166603 ACBOAPAA EQU X'58' THE APPLICATION IS 02176603 * ACTIVE ALREADY(VTAM) 02178603 * X03004 02180603 ACBOAPNM EQU X'5A' NO MATCHING APPLICATION 02182603 * ID ENTRY EXISTS(VTAM) 02183003 * X03004 02183103 ACBOVINA EQU X'5C' VTAM IS IN THE SYSTEM 02183203 * BUT NOT ACTIVE X03004 02188803 ACVOAPSE EQU X'5E' THE APPLICATION ID IS 02190803 * NOT IN REQUESTOR'S 02192803 * SPACE(VTAM) X03004 02193203 ACBOUNDF EQU X'60' INTERMITTENT ERROR(VTAM) 02193603 * X03004 02194003 ACBOAPLE EQU X'62' THE APPLICATION ID 02194103 * LENGTH IS NOT 02194203 * VALID(VTAM) X03004 02194303 ACBOPWSE EQU X'64' THE PASSWORD IS NOT IN 02208203 * REQUESTOR'S SPACE(VTAM) 02218203 * X03004 02220203 ACBOPWLE EQU X'66' THE PASSWORD LENGTH IS 02220603 * INVALID(VTAM) X03004 02221003 ACBRNOOF EQU X'68' OPEN FAILS BECAUSE A 02221137 * PRIMARY POA ISSUED AN 02223637 * OPEN ACB BUT ANOTHER 02225637 * PRIMARY POA IS CURRENTLY 02225737 * ACTIVE @Z40BHUC 02226037 ACBTVTCL EQU X'70' VTAM CLEANUP IN PROCESS 02228037 * FOR REQUESTED APPLIED 02228137 * @Z40BHUC 02228437 ACBOACT EQU X'BC' THE ACB IS ACTIVE X03004 02228637 ACBCBUSY EQU X'BC' THE ACB IS BUSY X03004 02231137 MEND 02233637 * END OF ACB VTAM EXTENSION */ 02236103 *%ACBEND: ; 02250000