*%GOTO ACBEXTPL; /* SKIP THE COMMENTS */ 00050000 * /* */ 00100000 * /* CHANGE LEVEL = 0 @ZA34940*/ 00150000 * /* DATE OF LAST CHANGE = 13 NOV 78 ( 78*317 ) @ZA34940*/ 00200000 * /* */ 00250000 * /******************************************************************/ 00300000 * /* */ 00350000 * /* ACB VTAM EXTENSION */ 00400000 * /* */ 00450000 * /* THE EXTENSION DESCRIBES CONTROL DATA THAT ONLY VTAM USES. */ 00500000 * /* THE EXTENSION IS CALLED BY THE VSAM EXTENSION, @ZA34940*/ 00550000 * /* IFGACBVS, UNDER THE FOLLOWING CONDITI0NS: @ZA34940*/ 00600000 * /* */ 00650000 * /* PLS: THE MODULE CONTAINING AN INCLUDE FOR IFGACB */ 00700000 * /* SETS THE MACRO VARIABLE 'ACBRPLXL' TO 'VTAM' */ 00750000 * /* PRIOR TO ISSUING THE INCLUDE. */ 00800000 * /* BAL: THE AM=VTAM PARAMETER IS CODED ON THE IFGACB */ 00850000 * /* MACRO CALL. */ 00900000 * /* */ 00950000 * /* CHANGE ACTIVITY @ZA34940*/ 01000000 * /* CBMM SPLIT SUPPORT @ZA34940*/ 01050000 * /* @ZA34940*/ 01100000 * /******************************************************************/ 01150000 * /* */ 01200000 *%ACBEXTPL: ; /* START OF PLS MAPPING */ 01250000 * 2 ACBVTEXT, /* OF VTAM EXTENSION */ 01300000 * 3 ACBRTN CHAR(6), /* LA 15,32 01350000 * BR 14 (VTAM) X03004*/ 01400000 * 3 * FIXED(15), /* RESERVED X03004*/ 01450000 * 3 * PTR(31); /* RESERVED X03004*/ 01500000 * DCL ISTACB BASED(ADDR(IFGACB)) /* ISTACB LENGTH X03004*/ 01550000 * CHAR(LENGTH(IFGACB)); 01600000 *%/* VTAM ACBERFLG CODES X03004*/ 01650000 * ACBNORM = '''00''X'; /* NORMAL END @Z40BHUC*/ 01700000 * % ACBONVRT = '''14''X'; /* NO VIRTUAL MEMORY FOR 01750000 * CONTROL BLOCKS OR WORK 01800000 * AREAS(VTAM) X03004*/ 01850000 * % ACBCAQNR = '''40''X'; /* OUTSTANDING ACQUIRES 01900000 * NOT RELEASED(VTAM) 01950000 * X03004*/ 02000000 * % ACBCDSNR = '''42''X'; /* DESTINATIONS NOT 02050000 * RELEASED(VTAM) X03004*/ 02100000 * % ACBRNOCF = '''4C''X'; /* CLOSE FAILED, POI QUEUE 02150000 * NOT EMPTY OR REPLIES 02200000 * OUTSTANDING @Z40BHUC*/ 02250000 * % ACBOANAT = '''50''X'; /* VTAM NOT ACTIVE 02300000 * X03004*/ 02350000 * % ACBOAHLT = '''52''X'; /* VTAM ACTIVE BUT 02400000 * HALTING X03004*/ 02450000 * % ACBOAVFY = '''54''X'; /* APPLICATION VERIFICA- 02500000 * TION FAILED(VTAM) 02550000 * X03004*/ 02600000 * % ACBOANSN = '''56''X'; /* NON-APPLICATION ID 02650000 * NAME SPECIFIED(VTAM) 02700000 * X03004*/ 02750000 * % ACBOAPAA = '''58''X'; /* APPLICATION ACTIVE 02800000 * ALREADY(VTAM) X03004*/ 02850000 * % ACBOAPNM = '''5A''X'; /* NO MATCHING APPLICA- 02900000 * TION ID ENTRY(VTAM) 02950000 * X03004*/ 03000000 * % ACBOVINA = '''5C''X'; /* VTAM IN SYSTEM BUT 03050000 * NOT ACTIVE X03004*/ 03100000 * % ACBOAPSE = '''5E''X'; /* APPLICATION ID NOT IN 03150000 * REQUESTOR'S SPACE 03200000 * (VTAM) X03004*/ 03250000 * % ACBOUNDF = '''60''X'; /* INTERMITTENT 03300000 * ERROR(VTAM) X03004*/ 03350000 * % ACBOAPLE = '''62''X'; /* APPLICATION ID LENGTH 03400000 * NOT VALID(VTAM)X03004*/ 03450000 * % ACBOPWSE = '''64''X'; /* PASSWORD NOT IN RE- 03500000 * QUESTOR SPACE(VTAM) 03550000 * X03004*/ 03600000 * % ACBOPWLE = '''66''X'; /* PASSWORD LENGTH 03650000 * INVALID(VTAM) X03004*/ 03700000 * % ACBRNOOF = '''68''X'; /* OPEN FAILS BECAUSE A 03750000 * PRIMARY POA ISSUED AN 03800000 * OPEN ACB BUT ANOTHER 03850000 * PRIMARY POA IS CURRENTLY 03900000 * ACTIVE @Z40BHUC*/ 03950000 * % ACBTVTCL = '''70''X'; /* VTAM CLEANUP IN PROCESS 04000000 * FOR REQUESTED APPLID 04050000 * @Z40BHUC*/ 04100000 * % ACBOACT = '''BC''X'; /* ACB ACTIVE X03004*/ 04150000 * % ACBCBUSY = '''BC''X'; /* ACB BUSY X03004*/ 04200000 * %GOTO ACBEND; /* GO TO END OF MACRO */ 04250000 * /* 04300000 * ASSEMBLER DSECT FOR ACB VTAM EXTENSION 04350000 * * 04400000 MACRO 04450000 ISTACBEX 04500000 ACBRTN DS XL6 IF VTAM IS INACTIVE, 04550000 * ACBINRTN CONTAINS A 04600000 * POINTER TO ACBRTN AT 04650000 * OFFSET 76(X'4C') TO SET 04700000 * A RETURN CODE AND RETURN 04750000 * TO THE CALLER. THE 04800000 * FIRST FOUR BYTES CONTAIN 04850000 * X'41F00020' (LA 15,32); 04900000 * THE LAST TWO BYTES 04950000 * CONTAIN X'07FE' (BR 14) 05000000 * X03004 05050000 DS XL2 RESERVED X03004 05100000 DS A RESERVED 05150000 * ACBERFLG ERROR CODES SPECIFIC TO VTAM X03004 05200000 ACBNORM EQU X'00' NORMAL END @Z40BHUC 05250000 ACBONVRT EQU X'14' NO VIRTUAL MEMORY FOR 05300000 * CONTROL BLOCKS OR WORK 05350000 * AREAS(VTAM) X03004 05400000 ACBCAQNR EQU X'40' OUTSTANDING ACQUIRES ARE 05450000 * NOT RELEASED(VTAM)X03004 05500000 ACBCDSNR EQU X'42' DESTINATIONS ARE NOT 05550000 * RELEASED(VTAM) X03004 05600000 ACBRNOCF EQU X'4C' CLOSE FAILED, POI QUEUE 05650000 * NOT EMPTY OR REPLIES 05700000 * OUTSTANDING @Z40BHUC 05750000 ACBOANAT EQU X'50' VTAM IS NOT ACTIVEX03004 05800000 ACBOAHLT EQU X'52' VTAM IS ACTIVE BUT 05850000 * HALTING X03004 05900000 ACBOAVFY EQU X'54' APPLICATION VERIFICATION 05950000 * FAILED(VTAM) X03004 06000000 ACBOANSN EQU X'56' A NON-APPLICATION ID 06050000 * NAME WAS SPECIFIED(VTAM) 06100000 * X03004 06150000 ACBOAPAA EQU X'58' THE APPLICATION IS 06200000 * ACTIVE ALREADY(VTAM) 06250000 * X03004 06300000 ACBOAPNM EQU X'5A' NO MATCHING APPLICATION 06350000 * ID ENTRY EXISTS(VTAM) 06400000 * X03004 06450000 ACBOVINA EQU X'5C' VTAM IS IN THE SYSTEM 06500000 * BUT NOT ACTIVE X03004 06550000 ACVOAPSE EQU X'5E' THE APPLICATION ID IS 06600000 * NOT IN REQUESTOR'S 06650000 * SPACE(VTAM) X03004 06700000 ACBOUNDF EQU X'60' INTERMITTENT ERROR(VTAM) 06750000 * X03004 06800000 ACBOAPLE EQU X'62' THE APPLICATION ID 06850000 * LENGTH IS NOT 06900000 * VALID(VTAM) X03004 06950000 ACBOPWSE EQU X'64' THE PASSWORD IS NOT IN 07000000 * REQUESTOR'S SPACE(VTAM) 07050000 * X03004 07100000 ACBOPWLE EQU X'66' THE PASSWORD LENGTH IS 07150000 * INVALID(VTAM) X03004 07200000 ACBRNOOF EQU X'68' OPEN FAILS BECAUSE A 07250000 * PRIMARY POA ISSUED AN 07300000 * OPEN ACB BUT ANOTHER 07350000 * PRIMARY POA IS CURRENTLY 07400000 * ACTIVE @Z40BHUC 07450000 ACBTVTCL EQU X'70' VTAM CLEANUP IN PROCESS 07500000 * FOR REQUESTED APPLIED 07550000 * @Z40BHUC 07600000 ACBOACT EQU X'BC' THE ACB IS ACTIVE X03004 07650000 ACBCBUSY EQU X'BC' THE ACB IS BUSY X03004 07700000 MEND 07750000 * END OF ACB VTAM EXTENSION */ 07800000 *%ACBEND: ; 07850000