* %GOTO LWAPLS; /* 00100002 MACRO 00150002 IKJEFLWA 00200002 LWA DSECT 00250002 LWAPPTR DS A ADDRESS OF THE LOGON WORK 00300000 * AREA 00300700 LWALWA DS CL8 EBCDIC ' LWA ' 00301400 LWATEST DS A PTR FOR TEST @ZA06226 00302100 LWAPASCB DS A ADDRESS OF ASCB 00302800 * FOR USER MEMORY 00303500 LWAACCT DS A OFFSET TO ACCT FIELD IN 00304200 * UADS 00304900 LWAPSCB DS A ADDRESS OF THE PROTECTED 00306300 * STEP CONTROL BLOCK 00307000 LWAJSEL DS A ADDRESS OF THE JOB 00307700 * SCHEDULING ENTRANCE LIST 00308400 LWAPECT DS A ADDRESS OF THE ECT 00309100 LWAAECB DS A EVENT CONTROL BLOCK FOR 00309800 * THE LOGON/LOGOFF 00310500 * PROMPTING TASK 00311900 * BIT(24) NOT REFERENCED BY LOGON/ 00312600 ORG LWAAECB+3 LOGOFF CODE 00313300 LWAABCE DS X COMPLETION CODE BYTE 00314000 LWAPECB DS F COMMUNICATIONS ECB 00314700 * FOR COMMUNICATION FROM 00315400 * THE PROMPTING TASK TO 00316100 * THE SCHEDULING TASK 00317500 * BIT(24) NOT REFERENCED BY LOGON/ 00318200 ORG LWAPECB+3 LOGOFF CODE 00318900 LWAPBCE DS X COMPLETION CODE BYTE 00319600 LWASECB DS F COMMUNICATIONS ECB 00320300 * FOR COMMUNICATION FROM 00321000 * THE SCHEDULING TASK TO 00321700 * THE PROMPTING TASK 00323100 * BIT(24) NOT REFERENCED BY LOGON/ 00323800 ORG LWASECB+3 LOGOFF CODE 00324500 LWASBCE DS X COMPLETION CODE BYTE 00325200 LWALPCNT DS F LOOP CONTROL FOR 00325900 * STAI EXIT RETRY. 00326600 * WHEN COUNTER REACHES 00327300 * GIVEN VALUE, SESSION 00328700 * IS TERMINATED. 00329400 LWAPDCB DS A ADDRESS OF UADS 00330100 * DCB - USED BY STAI 00330800 * RETRY. 00331500 LWAFLGS DS 0F FLAGS FOR USE BY LOGON 00332200 DS X 00332900 LWALA EQU X'80' IKJEFLA INDICATOR 00334300 LWALB EQU X'40' IKJEFLB INDICATOR 00335000 LWALC EQU X'20' IKJEFLC INDICATOR 00335700 LWALE EQU X'10' IKJEFLE INDICATOR 00336400 LWALEA EQU X'08' IKJEFLEA INDICATOR 00337100 LWALI EQU X'04' IKJEFLI INDICATOR 00337800 LWALH EQU X'02' IKJEFLH INDICATOR 00338500 LWALL EQU X'01' IKJEFLL INDICATOR 00339900 DS X 00340600 LWALGM EQU X'80' IKJEFLGM INDICATOR 00341300 LWALJ EQU X'40' IKJEFLJ INDICATOR 00342000 LWALK EQU X'20' IKJEFLK INDICATOR 00342700 LWALG EQU X'10' IKJEFLG INDICATOR 00343400 LWALGB EQU X'08' IKJEFLGB INDICATOR 00344100 LWALS EQU X'04' IKJEFLS INDICATOR 00344800 * BIT(2) RESERVED 00345500 DS X 00346200 * BIT(1) RESERVED 00346900 LWARACF EQU X'40' -> USER IS... @Z40RQKC 00347600 * ...RACF DEFINED 00348300 LWAVTAM EQU X'20' -> VTAM/SNA @Z40DQKC 00350000 LWAPHASE EQU X'10' CONTROL SWITCH 00350700 * FOR STAI EXIT. 00351400 * IF 0 - PHASE I 00352100 * ACTIVE. IF 1 - 00353500 * PHASE II ACTIVE 00354200 LWAPSW EQU X'08' IF 1, LAST ABEND IN 00354900 * PROMPTER WAS PSW RESTART 00355600 LWAPCK EQU X'04' IF 1, LAST ABEND IN 00356300 * PROMPTER WAS PGM CHECK 00357000 LWAMCK EQU X'02' IF 1, LAST ABEND IN 00357700 * PROMPTER WAS MACH CHECK 00359100 LWABND EQU X'01' IF 1, LAST ABEND IN 00359800 * PROMPTER WAS OTHER THAN PROG 00360500 * CHK, PSW RESTART OR MACH CHK 00361200 LWAFLGS4 DS X 00361900 * BIT(1) 00362600 LWANORDR EQU X'40' USER ON TERMINAL 00363300 * THAT DOES NOT 00364700 * SUPPORT OIDCARD 00365400 * READER @G32OPKU 00366100 LWAQTIP EQU X'20' SET BY SIC SO LOGON 00366800 * WILL DO QTIP 24 IN 00367500 * IKJEFLK @ZA02119 00368200 LWASICSP EQU X'10' SET BY LOGON IN 00368900 * IKJEFLJ AND SET 00370300 * TO 0 IN IKJEFLK 00371000 * TELLS SICS NOT TO DO 00371700 * QTIP 24 @ZA02119 00372400 LWALTBC EQU X'08' LIST BC IN CONTROL 00373100 LWATNBT EQU X'04' USED TO INDICATE CANCEL 00373800 * BY THE ATTENTION EXIT 00374500 * ROUTINE. 00375900 LWAINX1 EQU X'02' INSTALLATION EXIT 00376600 * ROUTINE IN CONTROL 00377300 LWAILGN EQU X'01' INITIAL LOGON INDICATOR 00378000 LWAPTID DS A PROMPTING TASK IDENTIFIER 00378700 * RETURNED BY ATTACH 00379400 LWACTLS DS 0F CONTROL BIT STRING FOR 00380100 DS X LOGON PROMPTING TASK 00381500 * 00382200 LWAUFAI EQU X'80' INDICATES UNSUCCESSFUL ENQ 00382900 * ON THE RESOURCE ' SYSUADS 00383600 * USERID ' 00384300 LWAMOUNT EQU X'40' SET BY LD & PROPOGATED 00385000 * TO PSCB BY LI 00385700 LWAFAIL EQU X'20' INDICATES AN UNSUCCESSFUL 00387100 * ATTEMPT TO OBTAIN A SYSTEM 00387800 * RESOURCE.IDENTIFIED BY ANY 00388500 * OTHER BIT. 00389200 LWADISC EQU X'10' INDICATES THAT LOGON IS TO 00389900 * TERMINATE AND DISCONNECT 00390600 * THE TERMINAL. 00391300 LWANOPR EQU X'08' IF BIT IS ONE AN INSTALLATION 00392700 * EXIT ROUTINE HAS 00393400 * PROVIDED USERID,PASSWORD, 00394100 * ACCOUNT,PROCEDURE CHARACTER 00394800 * STRINGS, A REGION 00395500 * SIZE, AND A PERFORMANCE 00396200 * GROUP FOR USE IN 00396900 * SCHEDULING A TERMINAL JOB 00397600 LWANUAD EQU X'04' IF THIS BIT IS ONE AND THE 00398300 * BIT LWANOPR IS ALSO ONE NO 00400000 * ACCESS OF THE UADS SHOULD 00400700 * BE MADE FOR THIS TERMINAL JOB 00401400 LWAJJCL EQU X'02' JCL FOR TERMINAL JOB WAS 00402100 * SUPPLIED BY AN INSTALLATION 00402800 * EXIT ROUTINE. 00403500 * BIT(1) RESERVED 00404200 DS X 00404900 LWAATR1 EQU X'80' INFORMATION FOR THE ATR1 00406300 * FIELD OF THE PSCB WAS SUPPLIED 00407000 * BY AN INSTALLATION 00407700 * EXIT ROUTINE. 00408400 LWAATR2 EQU X'40' INFORMATION FOR THE ATR2 00409100 * FIELD OF THE PSCB WAS SUPPLIED 00409800 * BY AN INSTALLATION 00410500 * EXIT ROUTINE. 00411900 LWAUNIT EQU X'20' INFORMATION FOR PSCBGPNM 00412600 * FIELD OF THE PSCB WAS SUPPLIED 00413300 * BY AN INSTALLATION 00414000 * EXIT ROUTINE. 00414700 LWABUPT EQU X'10' INFORMATION FOR USER PROFILE 00415400 * TABLE WAS SUPPLIED BY 00416100 * AN INSTALLATION EXIT RTN. 00417500 LWANONQ EQU X'08' LOGON WILL NOT MAINTAIN AN 00418200 * ENQ ON THE RESOURCE'SYSUAD 00418900 * USERID' DURING THE USER'S 00419600 * SESSION. 00420300 LWADEST EQU X'04' IF 1, INSTALLATION 00421000 * EXIT HAS SUPPLIED 00421700 * DEFAULT DEST. 00423100 LWABEND EQU X'02' IF 1, INSTALLATION 00423800 * EXIT IS GETTING 00424500 * CONTROL AFTER ABEND 00425200 DS 2X RESERVED FLAGS 00425900 LWARTCD DS F RETURN CODE SET BY IKJEFLK 00426600 LWANAME DS 0F EPLOC FOR ATTACH/XCTL 00427300 * NAME 00428700 LWARNML DS CL1 USED FOR MINOR 00429400 * RESOURCE NAME 00430100 * LENGTH TO ENQ/DEQ 00430800 LWARNM DS CL7 USED FOR MINOR 00431500 * RESOURCE NAME 00432200 * IMAGE 00432900 LWANQDQ DS CL12 USED FOR ENQ/DEQ 00434300 * PARAMETER LIST 00435000 LWAELST DS 0F ECB LIST HEADER 00435700 LWAAECBP DS F PTR TO LWAAECB 00436400 LWAPECBP DS F PTR TO LWAPECB 00437100 LWAEOEL EQU X'80' END OF LIST BIT 00437800 LWARCDE DS F RTN CODE SET BY IKJEFLJ 00438500 LWATCPU DS F 2 WORDS USED FOR 00439900 LWATCPU1 DS F TOTAL CPU TIME USED 00440600 * FOR THIS ACCOUNTING 00441300 * PERIOD. 00442000 LWATSRU DS F 2 WORDS USED FOR 00442700 LWATSRU1 DS F TOTAL SERVICE UNITS 00443400 * USED DURING THIS 00444100 * ACCT PERIOD. 00444800 LWATCON DS F 2 WORDS USED FOR 00445500 LWATCON1 DS F TOTAL CONNECT TIME 00446200 * USED DURING THIS 00446900 * ACCT PERIOD. 00447600 LWASTCB DS A TCB ADDR IKJEFLA 00448300 LWADEST2 DS CL8 USERID FOR SYSOUT 00450000 * TO REMOTE ENTRY- 00450700 * STATION. 00451400 LWAGBWKA DS A POINTER TO WORK 00452100 * AREA FOR IKJEFLGB 00453500 LWASWKA DS A POINTER TO WORK 00454200 * AREA FOR IKJEFLS 00454900 LWASPF DS A POINTER TO WORK @ZA30872 00455600 * AREA FOR SPF SUPPORT @ZA30872 00456300 DS 5F RESERVED 00457000 LENLWA EQU *-LWA LENGTH OF LWA 00457700 ********************************************************************** 00458400 *** * 00460000 *** I K J E F L J R E T U R N C O D E S * 00460300 *** * 00460900 ********************************************************************** 00461800 LWASWAR EQU 4 SWA MANAGER ERROR 00462700 LWAMSPE EQU 16 MULTI-STEP PROC 00463600 ********************************************************************** 00464500 *** * 00465400 *** P O S T C O D E S F O R P E C B E C B * 00466300 *** * 00467200 ********************************************************************** 00467500 INITDONE EQU 4 INIT PHASE DONE POST CODE 00468100 NQUSERID EQU 8 ENQ ON USERID POST CODE 00469000 DQUSERID EQU 12 DQ ON USERID 00469900 SCHEDULE EQU 16 PHASE ONE PROMPTING DONE POST 00470800 BCDONE EQU 20 MSG BRODCASTING DONE POST CODE 00471700 TERMINAT EQU 24 TERMINATE THE JOB POST CODE 00472600 ********************************************************************** 00473500 *** * 00474400 *** P O S T C O D E S F O R S E C B E C B * 00474700 *** * 00475300 ********************************************************************** 00476200 NQDQ0 EQU 0 ENQ DEQUE RETURN CODES 00477100 NQDQ4 EQU 4 DITTO 00478000 NQDQ8 EQU 8 DITTO 00478900 STARTP2 EQU 16 START PHASE TWO PROMPTING 00479800 INITRDY EQU 20 INIT READY TO POST 00480700 ENDTASK EQU 24 TERMINATE PROMPTING TASK 00481600 * 00481900 * 00482500 **/ 00491902 MEND 00541902 * %LWAPLS: ; 00551902 *@EJECT; 00601902 */********************************************************************/ 00641902 */* THE LOGON WORK AREA WILL CONTAIN INFORMATION WHICH IS */ 01000002 */* NECESSARY FOR THE LOGON/LOGOFF PROCESSING ROUTINES. IT */ 01500002 */* WILL CONTAIN CONTROL BLOCK POINTERS, ENTRANCE LISTS AND */ 02000002 */* PARAMETER LISTS. */ 02500002 */* A 000000-999999 20032 */ 02510002 */* A Y02669 */ 02560002 *? DOCUMENT TITLE(CHANGE ACTIVITY); 03000000 *? DOCUMENT TITLE(#05: @Z40DQKC) 03040000 * TEXT(SUPPORT FOR SNA. IF LWAVTAM=YES=1 THEN EXTENDED LOGON, IKTXINIT,03080000 * SUCCESSFULLY RETURNED TO IKJEFLA. 03120000 * FOR LWAVTAM=YES IKJEFLB AND IKJEFLS WILL CALL EXTENDED LOGOFF- 03160000 * IKTLOGFF); 03200000 *? DOCUMENT TITLE(#05: @Z40RQKC) 03240000 * TEXT(SUPPORT FOR VS2 RELEASE 4 RACF. THE LOGON WORK AREA INDICATES 03280000 * WHETHER THE USER IS RACF DEFINED OR NOT--LWARACF) 03320000 * POSITION(END); 03360000 * DECLARE 03500002 * 1 LWA BASED(LWAPTR), 04000002 * 2 LWAPPTR POINTER, /* ADDRESS OF THE LOGON WORK*/ 04010002 * /* AREA */ 04020002 * 2 LWALWA CHAR(8), /* EBCDIC ' LWA ' Y02669*/ 04050002 * 2 LWATEST POINTER, /* PTR FOR TEST @ZA06226*/ 05520000 * 2 LWAPASCB POINTER, /* ADDRESS OF ASCB Y02669*/ 05620002 * /* FOR USER MEMORY Y02669*/ 05670002 * 2 LWAACCT POINTER, /* OFFSET TO ACCT FIELD IN */ 07000002 * /* UADS */ 07500002 * 2 LWAPSCB POINTER, /* ADDRESS OF THE PROTECTED */ 08000002 * /* STEP CONTROL BLOCK */ 08500002 * 2 LWAJSEL POINTER, /* ADDRESS OF THE JOB */ 09000002 * /* SCHEDULING ENTRANCE LIST */ 09500002 * 2 LWAPECT POINTER, /* ADDRESS OF THE ECT */ 10200002 * 2 LWAAECB BDY(WORD), /* EVENT CONTROL BLOCK FOR */ 11000002 * /* THE LOGON/LOGOFF */ 11500002 * /* PROMPTING TASK */ 12000002 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ */ 12500002 * /* LOGOFF CODE */ 13000002 * 3 LWAABCE BIT(8),/* COMPLETION CODE BYTE */ 13500002 * 2 LWAPECB BDY(WORD), /* COMMUNICATIONS ECB */ 14000002 * /* FOR COMMUNICATION FROM */ 14500002 * /* THE PROMPTING TASK TO */ 15000002 * /* THE SCHEDULING TASK */ 15500002 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ */ 16000002 * /* LOGOFF CODE */ 16500002 * 3 LWAPBCE BIT(8),/* COMPLETION CODE BYTE */ 17000002 * 2 LWASECB BDY(WORD), /* COMMUNICATIONS ECB */ 17500002 * /* FOR COMMUNICATION FROM */ 18000002 * /* THE SCHEDULING TASK TO */ 18500002 * /* THE PROMPTING TASK */ 19000002 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ */ 19500002 * /* LOGOFF CODE */ 20000002 * 3 LWASBCE BIT(8),/* COMPLETION CODE BYTE */ 20500002 * 2 LWALPCNT FIXED(31), /* LOOP CONTROL FOR Y02653*/ 20550002 * /* STAI EXIT RETRY. Y02653*/ 20600002 * /*WHEN COUNTER REACHES Y02653*/ 20650002 * /*GIVEN VALUE, SESSION Y02653*/ 20700002 * /*IS TERMINATED. Y02653*/ 20750002 * 2 LWAPDCB POINTER, /* ADDRESS OF UADS Y02653*/ 20800002 * /* DCB - USED BY STAI Y02653*/ 20850002 * /* RETRY. Y02653*/ 20900002 * 2 LWAFLGS BIT(32), /* FLAGS FOR USE BY LOGON */ 21000002 * 3 * BIT(8), 21500002 * 4 LWALA BIT(1),/* IKJEFLA INDICATOR Y02669*/ 21550002 * 4 LWALB BIT(1),/* IKJEFLB INDICATOR Y02669*/ 21600002 * 4 LWALC BIT(1),/* IKJEFLC INDICATOR Y02669*/ 21650002 * 4 LWALE BIT(1),/* IKJEFLE INDICATOR Y02669*/ 21700002 * 4 LWALEA BIT(1),/* IKJEFLEA INDICATOR Y02669*/ 21750002 * 4 LWALI BIT(1),/* IKJEFLI INDICATOR Y02669*/ 21800002 * 4 LWALH BIT(1),/* IKJEFLH INDICATOR Y02669*/ 21850002 * 4 LWALL BIT(1),/* IKJEFLL INDICATOR Y02669*/ 21900002 * 3 * BIT(8), 22000002 * 4 LWALGM BIT(1),/* IKJEFLGM INDICATOR Y02669*/ 22050002 * 4 LWALJ BIT(1),/* IKJEFLJ INDICATOR Y02669*/ 22100002 * 4 LWALK BIT(1),/* IKJEFLK INDICATOR Y02669*/ 22150002 * 4 LWALG BIT(1),/* IKJEFLG INDICATOR Y02669*/ 22200002 * 4 LWALGB BIT(1),/* IKJEFLGB INDICATOR Y02669*/ 22250002 * 4 LWALS BIT(1),/* IKJEFLS INDICATOR Y02669*/ 22300002 * 4 * BIT(2), 22350002 * 3 * BIT(8), 22500002 * 4 * BIT(1), 22550002 * 4 LWARACF BIT(1), /* -> USER IS... @Z40RQKC*/ 22600000 * /* ...RACF DEFINED */ 22650000 * 4 LWAVTAM BIT(1), /* -> VTAM/SNA @Z40DQKC*/ 22700000 * 4 LWAPHASE BIT(1), /*CONTROL SWITCH Y02653*/ 22960002 * /*FOR STAI EXIT. Y02653*/ 22970002 * /*IF 0 - PHASE I Y02653*/ 22980002 * /*ACTIVE. IF 1 - Y02653*/ 22990002 * /*PHASE II ACTIVE Y02653*/ 22992002 * 4 LWAPSW BIT(1), /*IF 1, LAST Y02653*/ 22994002 * /*ABEND IN Y02653*/ 22996002 * /*PROMPTER WAS Y02653*/ 22998002 * /*PSW RESTART. Y02653*/ 22998402 * 4 LWAPCK BIT(1), /*IF 1, LAST Y02653*/ 22998802 * /*ABEND IN Y02653*/ 22999202 * /*PROMPTER WAS Y02653*/ 22999602 * /*PROGRAM CHECK. Y02653*/ 22999702 * 4 LWAMCK BIT(1), /*IF 1, LAST Y02653*/ 22999802 * /*ABEND IN Y02653*/ 22999902 * /*PROMPTER WAS Y02653*/ 23003202 * /*MACHINE CHECK. Y02653*/ 23005202 * 4 LWABND BIT(1), /*IF 1, LAST Y02653*/ 23005602 * /*ABEND IN Y02653*/ 23006002 * /*PROMPTER WAS Y02653*/ 23006402 * /*OTHER THAN PROG Y02653*/ 23006502 * /*CHK, PSW RESTRT Y02653*/ 23006602 * /*OR MACHINE CHK. Y02653*/ 23017402 * 3 LWAFLGS4 BIT(8), 23028403 * 4 * BIT(1), 25050002 * 4 LWANORDR BIT(1), /* USER ON TERMINAL */ 25060000 * /* THAT DOES NOT */ 25062000 * /* SUPPORT OIDCARD */ 25064000 * /* READER @G32OPKU*/ 25066000 * 4 LWAQTIP BIT(1), /* SET BY SIC SO LOGON */ 25070003 * /* WILL DO QTIP 24 IN */ 25073003 * /* IKJEFLK @ZA02119*/ 25076003 * 25079003 * 4 LWASICSP BIT(1), /* SET BY LOGON IN ... */ 25082003 * /* ...IKJEFLJ AND SET..*/ 25085003 * /* ...TO 0 IN IKJEFLK. */ 25088003 * /* TELLS SICS NOT TO DO*/ 25091003 * /* QTIP 24 @ZA02119*/ 25094003 * 4 LWALTBC BIT(1),/* LIST BC IN CONTROL */ 25100002 * 4 LWATNBT BIT(1),/*USED TO INDICATE CANCEL*/ 25500002 * /*BY THE ATTENTION EXIT */ 25550002 * /*ROUTINE. */ 25600002 * 4 LWAINX1 BIT(1),/*INSTALLATION EXIT */ 26500002 * /*ROUTINE IN CONTROL */ 26550002 * 4 LWAILGN BIT(1),/*INITIAL LOGON INDICATOR*/ 27000002 * 2 LWAPTID POINTER, /* PROMPTING TASK IDENTIFIER*/ 27500002 * /* RETURNED BY ATTACH */ 28000002 * 2 LWACTLS BIT(32), /* CONTROL BIT STRING FOR */ 28500002 * /* LOGON PROMPTING TASK */ 29000002 * 29500002 * 3 LWAUFAI BIT(1), /*INDICATES UNSUCCESSFUL ENQ*/ 30000002 * /*ON THE RESOURCE ' SYSUADS */ 30500002 * /*USERID ' */ 31000002 * 3 LWAMOUNT BIT(1), /*SET BY LD & PROPOGATED */ 31500002 * /*TO PSCB BY LI Y02669*/ 31550002 * 3 LWAFAIL BIT(1), /*INDICATES AN UNSUCCESSFUL */ 33500002 * /*ATTEMPT TO OBTAIN A SYSTEM*/ 34000002 * /*RESOURCE.IDENTIFIED BY ANY*/ 34500002 * /*OTHER BIT. */ 35000002 * 3 LWADISC BIT(1), /*INDICATES THAT LOGON IS TO*/ 35500002 * /*TERMINATE AND DISCONNECT */ 36000002 * /*THE TERMINAL. */ 36500002 * 3 LWANOPR BIT(1), /*IF BIT IS ONE AN INSTALLA-*/ 37000002 * /*TION EXIT ROUTINE HAS */ 37500002 * /*PROVIDED USERID,PASSWORD, */ 38000002 * /*ACCOUNT,PROCEDURE CHARAC- */ 38500002 * /*TER STRINGS, A REGION */ 39000002 * /*SIZE, AND A PERFORMANCE */ 39500002 * /*GROUP FOR USE IN */ 40000002 * /*SCHEDULING A TERMINAL JOB.*/ 40050002 * 3 LWANUAD BIT(1), /*IF THIS BIT IS ONE AND THE*/ 40500002 * /*BIT LWANOPR IS ALSO ONE NO*/ 41000002 * /*ACCESS OF THE UADS SHOULD */ 41500002 * /*BE MADE FOR THIS TERMINAL */ 42000002 * /*JOB. */ 42500002 * 3 LWAJJCL BIT(1), /*JCL FOR TERMINAL JOB WAS */ 43000002 * /*SUPPLIED BY AN INSTALLA- */ 43500002 * /*TION EXIT ROUTINE. */ 44000002 * 3 * BIT(1), 44500002 * 3 LWAATR1 BIT(1), /*INFORMATION FOR THE ATR1 */ 46000002 * /*FIELD OF THE PSCB WAS SUP-*/ 46500002 * /*PLIED BY AN INSTALLATION */ 47000002 * /*EXIT ROUTINE. */ 47500002 * 3 LWAATR2 BIT(1), /*INFORMATION FOR THE ATR2 */ 48000002 * /*FIELD OF THE PSCB WAS SUP-*/ 48500002 * /*PLIED BY AN INSTALLATION */ 49000002 * /*EXIT ROUTINE. */ 49500002 * 3 LWAUNIT BIT(1), /*INFORMATION FOR PSCBGPNM */ 50000002 * /*FIELD OF THE PSCB WAS SUP-*/ 50500002 * /*PLIED BY AN INSTALLATION */ 51000002 * /*EXIT ROUTINE. */ 51500002 * 3 LWABUPT BIT(1), /*INFORMATION FOR USER PRO- */ 52000002 * /*FILE TABLE WAS SUPPLIED BY*/ 52500002 * /*AN INSTALLATION EXIT RTN. */ 53000002 * 3 LWANONQ BIT(1), /*LOGON WILL NOT MAINTAIN AN*/ 55500002 * /*ENQ ON THE RESOURCE'SYSUAD*/ 56000002 * /*USERID' DURING THE USER'S */ 56500002 * /*SESSION. */ 57000002 * 3 LWADEST BIT(1), /*IF 1, INSTALLATION Y02664*/ 57050002 * /*EXIT HAS SUPPLIED Y02664*/ 57100002 * /*DEFAULT DEST. Y02664*/ 57150002 * 3 LWABEND BIT(1), /*IF 1, INSTALLATION Y02653*/ 57200002 * /*EXIT IS GETTING Y02653*/ 57250002 * /*CONTROL AFTER ABEND Y02653*/ 57300002 * 3 * BIT(17), /*THESE BITS ARE RESERVED */ 57500002 * 2 LWARTCD FIXED(31), /*RETURN CODE SET BY IKJEFLK*/ 58000003 * 2 LWANAME BDY(WORD), /* EPLOC FOR ATTACH/XCTL */68500002 * /* NAME */ 69000002 * 3 LWARNML CHAR(1), /* USED FOR MINOR */ 69500002 * /* RESOURCE NAME */ 70000002 * /* LENGTH TO ENQ/DEQ */ 70500002 * 3 LWARNM CHAR(7), /* USED FOR MINOR */ 71000002 * /* RESOURCE NAME */ 71500002 * /* IMAGE */ 72000002 * 2 LWANQDQ CHAR(12), /* USED FOR ENQ/DEQ */ 73500002 * /* PARAMETER LIST */ 74000002 * 2 LWAELST, /* ECB LIST HEADER */ 74030002 * 3 LWAAECBP PTR(31), /* PTR TO LWAAECB */ 74040002 * 3 LWAPECBP PTR(31), /* PTR TO LWAPECB */ 74041002 * 4 LWAEOEL BIT(1), /* END OF LIST BIT */ 74050002 * 2 LWARCDE FIXED(31), /* RTN CODE SET BY IKJEFLJ */ 76000002 * 2 LWATCPU FIXED(32), /*2 WORDS USED FOR Y02669*/ 76100002 * 2 LWATCPU1 FIXED(32), /*TOTAL CPU TIME USED Y02669*/ 76150002 * /*FOR THIS ACCOUNTING Y02669*/ 76160002 * /*PERIOD. Y02669*/ 76170002 * 2 LWATSRU FIXED(32), /*2 WORDS USED FOR Y02669*/ 76220002 * 2 LWATSRU1 FIXED(32), /*TOTAL SERVICE UNITS Y02669*/ 76270002 * /*USED DURING THIS Y02669*/ 76320002 * /*ACCT PERIOD. Y02669*/ 76370002 * 2 LWATCON FIXED(32), /*2 WORDS USED FOR Y02669*/ 76380002 * 2 LWATCON1 FIXED(32), /*TOTAL CONNECT TIME Y02669*/ 76390002 * /*USED DURING THIS Y02669*/ 76392002 * /*ACCT PERIOD. Y02669*/ 76394002 * 2 LWASTCB PTR(31), /*TCB ADDR IKJEFLA Y02669*/ 76396002 * 2 LWADEST2 CHAR(8), /*USERID FOR SYSOUT- Y02664*/ 76400002 * /*TO REMOTE ENTRY- Y02664*/ 76500002 * /*STATION. Y02664*/ 76550002 * 2 LWAGBWKA PTR(31), /*POINTER TO WORK Y02669*/ 76600002 * /*AREA FOR IKJEFLGB Y02669*/ 76650002 * 2 LWASWKA PTR(31), /*POINTER TO WORK Y02669*/ 76700000 * /*AREA FOR IKJEFLS Y02669*/ 76750000 * 2 LWASPF PTR(31), /*POINTER TO WORK @ZA30872*/ 76800000 * /*AREA FOR SPF @ZA30872*/ 76850000 * 2 *(5) FIXED(31); /* RESERVED */ 76900000 *% DCL LENLWA FIXED; /* NOTE --- THIS VALUE MUST */ 76950000 *% LENLWA = 172; /* CHANGE WHEN NEW FIELDS ADDED*/ 77000000 *@EJECT; 78510002 */********************************************************************/ 78520002 */* */ 78540002 */* I K J E F L J R E T U R N C O D E S */ 78560002 */* */ 78580002 */********************************************************************/ 78600002 * /* SWA MANAGER ERROR */ 78660002 *LWASWAR: GEN(EQU 4); 78680002 * /* MULTI-STEP PROC */ 78700002 *LWAMSPE: GEN(EQU 16); 78720002 */********************************************************************/ 79000002 */* */ 79500002 */* P O S T C O D E S F O R P E C B E C B */ 80000002 */* */ 80500002 */********************************************************************/ 81000002 * /* INIT PHASE DONE POST CODE */ 81500002 *INITDONE: GEN(EQU 4); 82000002 * /* ENQ ON USER ID POST CODE */ 82500002 *NQUSERID: GEN(EQU 8); 83000002 * /* DQ ON USER ID */ 83500002 *DQUSERID: GEN(EQU 12); 84000002 * /* PHASE ONE PRONPTING DONE POST CODE */ 84500002 *SCHEDULE: GEN(EQU 16); 85000002 * /* MESSAGE BROADCASTING DONE POST CODE */ 85500002 *BCDONE: GEN(EQU 20); 86000002 * /* TERMINATE THE JOB POST CODE */ 86500002 *TERMINAT: GEN(EQU 24); 87000002 */********************************************************************/ 87500002 */* */ 88000002 */* P O S T C O D E S F O R S E C B E C B */ 88500002 */* */ 89000002 */********************************************************************/ 89500002 * /* NQDQ RETURN CODES */ 90000002 *NQDQ0: GEN(EQU 0); 90500002 * /* NQDQ RETURN CODES */ 91000002 *NQDQ4: GEN(EQU 4); 91500002 * /* NQDQ RETURN CODES */ 92000002 *NQDQ8: GEN(EQU 8); 92500002 * /* START PHASE 2 PROMPTING */ 94000002 *STARTP2: GEN(EQU 16); 94500002 * /* INITATOR READY TO POST */ 95000002 *INITRDY: GEN(EQU 20); 95500002 * /* TERMINATE PROMPTING TASK */ 96000002 *ENDTASK: GEN(EQU 24); 96500002 * ? DOCUMENT TITLE(DECLARE) POSITION(BOTH) TEXT(LOGON VARIABLES); 98800003 * 98900003 * DECLARE 99000003 * SYSIKJUA INIT('SYSIKJUA') /* MAJOR NAME FOR ... */ 99100003 * CHAR(8), 99200003 * LOGONTCB CHAR(1) BASED, /* USED FOR ENQ/DEQ ... */ 99300000 * /* ... WITH TCB OPTION */ 99309000 * ? DOCUMENT TITLE(DECLARE) POSITION(BOTH) TEXT(MESSAGE NUMBERS); 99318000 * 99327000 * MSG56413 CONSTANT(15), /* RACINIT FAILED BY RACINIT @Z40RQKC*/ 99336000 * /* INSTALLATION EXIT RC=24 @Z40RQKC*/ 99345000 * MSG56414 CONSTANT(13), /* NEW-PSWD FOR RACINIT INVALID @Z40RQKC*/ 99354000 * /* RC=16 @Z40RQKC*/ 99363000 * MSG56415 CONSTANT(52), /* PSWD EXPIRED AND NO NEW-PSWD @Z40RQKC*/ 99372000 * /* RC=12 @Z40RQKC*/ 99381000 * MSG56416 CONSTANT(53), /* RACINIT ERROR RC=XX @Z40RQKC*/ 99400000 * 99410000 * MSG56417 CONSTANT(54), /* GROUP NOT DEFINED TO USER @Z40RQKC*/ 99420000 * /* RC=20 @Z40RQKC*/ 99430000 * MSG56419 CONSTANT(55), /* GROUP, NEW PSWD IGNORED @Z40RQKC*/ 99440000 * /* FOR NON RACF USER @Z40RQKC*/ 99450000 * MSG56421 CONSTANT(8), /* PSWD NOT AUTHORIZED RC= 8 @Z40RQKC*/ 99460000 * 99470000 * MSG56425 CONSTANT(51), /* RACINIT TEMPORARILY NOT @Z40RQKC*/ 99480000 * /* ALLOWING USER TO LOGON RC=28 @Z40RQKC*/ 99490000 * MSG56426 CONSTANT(56), /* GROUP/NEWPSWD IGNORED @Z40NQKC*/ 99500000 * /* RACF NOT IN SYSTEM @Z40NQKC*/ 99510000 * 99520000 * /* FOLLOWING MESSAGES ARE FOR RACF V2 8/30/76 */ 99530000 * 99540000 * MSG56431 CONSTANT(57), /* LOGON TERMINATED. NOT AUTH @G32OPKU*/ 99550000 * /* TO THIS TERMINAL @G32OPKU*/ 99560000 * MSG56432 CONSTANT(58), /* RECONNECT REJECTED - NOT @G32OPKU*/ 99570000 * /* AUTHORIZED TO THIS TERMINAL @G32OPKU*/ 99580000 * MSG56433 CONSTANT(59), /* OIDCARD IS NOT AUTHORIZED @G32OPKU*/ 99590000 * MSG56434 CONSTANT(60), /* OIDCARD IS REQUIRED @G32OPKU*/ 99600000 * MSG56435 CONSTANT(61), /* NOT A VALID OIDCARD @G32OPKU*/ 99610000 * MSG56436 CONSTANT(62), /* LOGON TERMINATED- OIDCARD NOT @G32OPKU*/ 99620000 * /* SUPPORTED FOR THIS TERMIN TYPE @G32OPKU*/ 99630000 * MSG56437 CONSTANT(63), /* ENTER OIDCARD @G32OPKU*/ 99640000 * MSG56438 CONSTANT(64), /* USE OF GROUP HAS BEEN REVOKED @G32OPKU*/ 99650000 * MSG56439 CONSTANT(65), /* ENTER NEW GROUP NAME @G32OPKU*/ 99660000 * MSG56440 CONSTANT(66), /* RECONNECT REJECTED- PSWD @G32OPKU*/ 99670000 * /* INVALID FOR RACF @G32OPKU*/ 99680000 * MSG56441 CONSTANT(67), /* RECONNECT REJECTED- GROUP NOT @G32OPKU*/ 99690000 * /* AUTHORIZED @G32OPKU*/ 99700000 * MSG56442 CONSTANT(68), /* RECONNECT REJECTED BY RACF @G32OPKU*/ 99710000 * /* INSTALLATION EXIT @G32POKU*/ 99720000 * MSG56443 CONSTANT(69), /* RECONNECT REJECTED- USER ACCESS@G32OPKU*/ 99730000 * /* REVOKED BY RACF @G32OPKU*/ 99740000 * MSG56444 CONSTANT(70); /* RECONNECT REJECTED- USE OF @G32OPKU*/ 99750000 * /* GROUP HAS BEEN REJECTED @G32OPKU*/ 99760000