./ ADD SSI=01012947,NAME=IKJEFLJ,SOURCE=1 TITLE '(IKJEFLJ)PRE-INVOCATION INITIATOR EXIT ROUTINE' 00010000 * GENERATE; 00020000 TITLE '(IKJEFLJ)PRE-INVOCATION INITIATOR EXIT ROUTINE' 00030000 * /******************************************************************* 00040000 * /* STATUS = 01 (NEW FOR RELEASE 20 -- TSO) * 00050000 * /* M0397 * 00060000 * /* M2773 * 00070000 * /* M3942 * 00080000 * /* 244500-255000,224009,259500 20874 * 00090000 * /* C 21974 * 00100000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00110000 * /* FUNCTION = .GET A 350 BYTE WORK AREA FOR OBTAIN OF DSCB. * 00120000 * /* .GET A 352 BYTE WORK AREA FOR REAS OF SIOT/JFCB. * 00130000 * /* .GET A 8 BYTE PARM AREA FOR Q MANAGER. (AUTO) * 00140000 * /* .GET A 20 BYTE PARM AREA FOR OBTAIN LIST. (AUTO) * 00150000 * /* .SET UP QMPA IN LCT TO INDICATE READ IN ONE BLOCK * 00160000 * /* .LOAD IN THE Q MANAGER. (IKJQMNGR) * 00170000 * /* .CONSTRUCT ONE DSE FOR EVERY SIOT ASSOCIATED * 00180000 * /* WITH THIS JOB STEP. CONSTRUCT THE DSE USING * 00190000 * /* INFORMATION FROM THE SIOT AND THE JFCB. * 00200000 * /* .IF THE DD STATEMENT IS DISP=OLD THEN AN OBTAIN * 00210000 * /* FOR THE DSCB IS ISSUED TO GET THE DSORG FIELD. * 00220000 * /* .IF THE DD STATEMENT IS DYNAM,DUMMY,OR TERM=TS * 00230000 * /* THE OBTAIN IS BYPASSED BECAUSE NO DSCB WAS * 00240000 * /* CREATED FOR A DATA SET WITH DSNAME+NULLFILE. * 00250000 * /* .WHEN ALL THE DSE HAVE BEEN CONSTRUCTED DELETE * 00260000 * /* THE Q MANAGER. * 00270000 * /* .FREE ALL WORK AREAS AND PARM LISTS GOTTEN VIA * 00280000 * /* GETMAIN. * 00290000 * /* .IF PROCESSING THE FIRST JOB STEP. * 00300000 * /* A.WAIT FOR LISTING OF BROADCAST DATA SET TO * 00310000 * /* COMPLETE.(WAIT ON LWAPECB) * 00320000 * /* B.POST PROMPTING TASK TO INFORM INITIATOR THE * 00330000 * /* JOB IS READY TO RUN.(POST LWASECB) * 00340000 * /* C.WAIT FOR PROMPTING TASK TO COMPLETE(WAIT ON * 00350000 * /* ATTACH ECB-LWAAECB) * 00360000 * /* D.DETACH PROMPTING TASK AND ZERO TCB POINTER * 00370000 * /* THAT INDICATES THE FIRST JOB STEP. * 00380000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00390000 * /* ENRTY POINT= IKJEFLJ VIA ATTACH FROM IEFSD162 AS PREINVOCATION * 00400000 * /* EXIT FROM THE JOB SCHEDULING EXIT LIST(JSXL) * 00410000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00420000 * /* INPUT = REGISTER ONE CONTAINS THE ADDRESS OF LCT. * 00430000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00440000 * /* OUTPUT = A STRING OF DSE'S POINTED TO BY THE TJBX. * 00450000 * /* THE DSE'S HAVE BACK AND FORDWARD CHAINING. * 00460000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00470000 * /* EXTERNIAL * 00480000 * /* CNTRL BLKS = LINKAGE CONTROL TABLE (LCT) * 00490000 * /* JOB SCHEDULING CONTROL BLOCK (JSCB) * 00500000 * /* INITIATOR ENTRANCE LIST (IEL) * 00510000 * /* JOB SCHEDULING WORK AREA (JSWA) * 00520000 * /* JOB SCHEDULING ENTRANCE LIST (JSEL) * 00530000 * /* JOB SCHEDULING EXIT LIST (JSXL) * 00540000 * /* LOGON WORK AREA (LWA) * 00550000 * /* REGION CONTROL BLOCK (RCB) * 00560000 * /* TIME SHARING JOB BLOCK EXTENSION (TJBX) * 00570000 * /* STEP I/O TABLE (SIOT) * 00580000 * /* JOB FILE CONTROL BLOCK (JFCB) * 00590000 * /* STEP CONTROL TABLE (SCT) * 00600000 * /* DATA SET CONTROL BLOCK (DSCB) * 00610000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00620000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00630000 * /* INTERNAL * 00640000 * /* CNTRL BLKS * 00650000 * /* & WORK AREA = DATA SET ELEMENT (DSE) * 00660000 * /* CBAREA (SIOT AND JFCB READ IN AREA) * 00670000 * /* PARMAREA (Q MANAGER PARM LIST) * 00680000 * /* DSCBAREA (DSCB READ IN AREA FOR OBTAIN) * 00690000 * /* DSCBLST (PARM LIST FOR OBTAIN) * 00700000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00710000 * /* EXTERNAL * 00720000 * /* ROUTINES = Q MANAGER(IKJQMNGR) * 00730000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00740000 * /* EXIT NORMAL = RETURN TO INVOKER * 00750000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00760000 * /* EXIT ERROR = NONE * 00770000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00780000 * /* SVC'S USED = GETMAIN * 00790000 * /* LOAD * 00800000 * /* OBTAIN * 00810000 * /* DELETE * 00820000 * /* PUTLINE * 00830000 * /* FREEMAIN * 00840000 * /* WTO(TO MASTER CONSOL) * 00850000 * /* WTO(WRITE TO PROGRAMMER) * 00860000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00870000 * /* ERROR * 00880000 * /* HANDELING = IF ANY RETURN CODE OTHER THAN ZERO IS RETURNED * 00890000 * /* FROM THE Q MANAGER,OBTAIN OR GETMAIN AN ERROR * 00900000 * /* MESSAGE IS SENT TO THE OPERATOR AND TO THE * 00910000 * /* PROGRAMMER. A RETURN CODE OF 4 IS THEN SENT * 00920000 * /* BACK TO IEFSD162 WHO WILL CANCEL THE JOB. * 00930000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00940000 * /* ATTRIBUTES = REENTRANT * 00950000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00960000 * /* INTERNAL * 00970000 * /* SUBROUTINES = MSGMOVE,A ROUTINE USED BY THIS ROUTINE TO GET THE * 00980000 * /* WTO BUFFER AND MOVE A PARTLY CONSTRUCTED MESSAGE * 00990000 * /* INTO THE BUFFER.AT INPUT TO THIS ROUTINE REGISTER * 01000000 * /* 4 POINTS TO THE MESSAGE AND REGISTER 6 CONTAINS * 01010000 * /* THE MESSAGE LENGTH. THIS ROUTINE EXITS WITH THE * 01020000 * /* BUFFER ADDRESS IN REGISTER 5. * 01030000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01040000 * /* NOTES = STANDARD TYPE 1 CONVENTIONS. * 01050000 * /* BSL CONVENTION USED. * 01060000 * /* NO CHARACTER CODE DEPENDICIES * 01070000 * /******************************************************************* 01080000 * IKJEFLJ:PROC(THELCT) OPTIONS(REENTRANT); 01090000 LCLA &T,&SPN 0002 01100000 .@001 ANOP 0002 01110000 IKJEFLJ CSECT , 0002 01120000 STM @E,@C,12(@D) 0002 01130000 BALR @B,0 0002 01140000 @PSTART DS 0H 0002 01150000 USING @PSTART+00000,@B 0002 01160000 L @0,@SIZ001 0002 01170000 GETMAIN R,LV=(0) 0002 01180000 LR @C,@1 0002 01190000 USING @DATD+00000,@C 0002 01200000 LM @0,@1,20(@D) 0002 01210000 XC @TEMPS(@L),@TEMPS 0002 01220000 ST @D,@SAV001+4 0002 01230000 LA @F,@SAV001 0002 01240000 ST @F,8(0,@D) 0002 01250000 LR @D,@F 0002 01260000 * DCL JMSGMOD EXT LABEL; 01270000 * DCL WECBPTR PTR(31) REG(1); 01280000 * DCL PECBPTR PTR(31) REG(1); 01290000 * DCL DETACHRG PTR(31) REG(1); 01300000 * DCL PARMREG PTR(31) REG(1); 01310000 * DCL PARMPTR PTR(31) REG(2); 01320000 * DCL DSEPTR PTR(31) REG(5); 01330000 * DCL R0 PTR(31) REG(0); 01340000 * DCL R1 PTR(31) REG(1); 01350000 * DCL R2 PTR(31) REG(2); 01360000 * DCL R3 PTR(31) REG(3); 01370000 * DCL R4 PTR(31) REG(4); 01380000 * DCL R6 PTR(31) REG(6); 01390000 * DCL R7 PTR(31) REG(7); 01400000 * DCL R8 PTR(31) REG(8); 01410000 * DCL R10 PTR(31) REG(10); 01420000 * DCL J PTR(31) REG(9); 01430000 * DCL R13 PTR(31) REG(13); 01440000 * DCL R15 PTR(31) REG(15); 01450000 * DCL MSGMOVE LABEL INTERNAL; 01460000 * DCL THELCT PTR(31); 01470000 * DCL LCTPTR PTR(31); 01480000 * DCL QMPAPTR PTR(31); 01490000 * DCL TIOTPTR PTR(31); 01500000 * DCL ZEROFLD BIT(32) BASED; 01510000 * DCL TEMPMEM PTR(31) BASED(R8); 01520000 * DCL CVTPTR PTR(31) BASED(16); 01530000 * DCL TEMPWRK CHAR(4) ; 01540000 * 01550000 * 01560000 * DCL 1 LJBITS BIT(8), /* BITS FOR INTERNAL USE BY LJ * 01570000 * 2 * BIT(7), 01580000 * 2 DUMPBT BIT(1); 01590000 * 01600000 * 01610000 * 01620000 * DCL 1 PARMLST BASED(PARMPTR), /* INPUT PARM LIST * 01630000 * 2 ALCTPTR PTR(31), /* ADDRESS OF THE LCT * 01640000 * 2 ATIOTPTR PTR(31); /* ADDRESS OF THE TIOT * 01650000 ** 01660000 ** /* COMMUNICATION VECTOR TABLE * 01670000 ** /* RELEASE 20.2, 3/03/71, LEVEL=1 * 01680000 ** /* RELEASE 21, 6/03/71, LEVEL=2 * 01690000 ** 01700000 ** /* CVT PROPER * 01710000 ** 01720000 ** DECLARE 01730000 ** 1 CVTMAP BASED(CVTPTR), 01740000 ** 01750000 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 01760000 ** AND CURRENT TCB * 01770000 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 01780000 ** ASYNCHRONOUS EXITS * 01790000 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 01800000 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 01810000 ** BLOCKS * 01820000 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 01830000 ** CONSOLE INTERRUPTION ROUTINE * 01840000 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 01850000 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 01860000 ** VALIDITY CHECKING ROUTINE * 01870000 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 01880000 ** FOR CONVERTING RELATIVE 01890000 ** TRACK ADDR TO ABSOLUTE * 01900000 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 01910000 ** FOR CONVERTING ABSOLUTE 01920000 ** TRACK ADDR TO RELATIVE * 01930000 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 01940000 ** UNIT SECTION IN UCB LOOKUP 01950000 ** TABLE * 01960000 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 01970000 ** SECTION IN UCB LOOKUP TABLE * 01980000 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 01990000 ** ROUTINE FOR SYSTEM ERROR 02000000 ** ROUTINES * 02010000 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 02020000 ** VOLUME ENTRY IN UCB TABLE * 02030000 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 02040000 ** ROUTINE * 02050000 ** 2 CVTDATE CHAR(4), /* CURRENT DATE IN PACKED 02060000 ** DECIMAL * 02070000 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 02080000 ** (MASTER RESIDENT CORE IN PCP 02090000 ** PLEASE USE CVTMSER INSTEAD 02100000 ** TO ADDRESS MASTER SCHEDULER 02110000 ** RESIDENT DATA AREA * 02120000 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 02130000 ** CHARACTERISTIC TABLE * 02140000 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 02150000 ** ROUTINE * 02160000 ** 02170000 ** 2 CVTDAR PTR(31), /* ADDR OF I/O CONTROL BLOCK 02180000 ** COMPLEX ACCESSED BY DAR * 02190000 ** 02200000 ** 02210000 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 02220000 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 02230000 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 02240000 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 02250000 ** 2 CVTTPC PTR(31), /* ADDR OF PSEUDO CLOCK FOR 02260000 ** TIMER ROUTINE * 02270000 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 02280000 ** TO BLDL ROUTINE * 02290000 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 02300000 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 02310000 ** UCB ADDR * 02320000 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 02330000 ** ROUTINE * 02340000 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 02350000 ** ROUTINE * 02360000 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 02370000 ** TABLE * 02380000 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 02390000 ** CONFIGURATION * 02400000 ** 4 * BIT(1), /* RESERVED * 02410000 ** 4 CVT1SSS BIT(1), /* - PCP * 02420000 ** 4 CVT2SPS BIT(1), /* - MFT * 02430000 ** 4 CVT4MS1 BIT(1), /* - MVT * 02440000 ** 4 * BIT(1), /* RESERVED * 02450000 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 02460000 ** 4 * BIT(1), /* RESERVED * 02470000 ** 4 * BIT(1), /* RESERVED * 02480000 ** 2 CVTDCBA PTR(24) BDY(WORD,2), 02490000 ** /* ADDR OF DCB FOR SYS1.LOGREC * 02500000 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 02510000 ** TABLE * 02520000 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 02530000 ** FREELIST POINTER * 02540000 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 02550000 ** NUCLEUS * 02560000 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 02570000 ** ROUTINE * 02580000 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 02590000 ** DISPATCHER * 02600000 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 02610000 ** TABLE * 02620000 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 02630000 ** QUEUE * 02640000 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 02650000 ** RESIDENT DATA AREA (ADDR OF 02660000 ** MAJOR QCB IN PCP) * 02670000 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 02680000 ** OF POST ROUTINE * 02690000 ** 2 CVTTRMTB PTR(31), /* ADDR OF QTAM TERMINAL TABLE * 02700000 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 02710000 ** IN READY QUEUE * 02720000 ** 2 CVTMZ00 PTR(31), /* HIGHEST STORAGE ADDRESS * 02730000 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 02740000 ** CREATES IRBS FOR EXITS * 02750000 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 02760000 ** WORD, OR ZERO (RESERVED IN 02770000 ** PCP) * 02780000 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 02790000 ** DATA AREA (RESERVED IN PCP) * 02800000 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 02810000 ** NUMBER COUNTER * 02820000 ** 2 CVTOPTA CHAR(1), /* FLAGS * 02830000 ** 3 CVTCCH BIT(1), /* - CCH OPTION PRESENT 02840000 ** (MVT/MFT) * 02850000 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 02860000 ** I/O RECOVERY MGT (MVT/MFT) */ 02870000 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 02880000 ** --I/O RECOVERY MGT (MVT/MFT) * 02890000 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 02900000 ** 3 CVTATTCH BIT(1), /* ATTACH OPERATIVE (MFT) * 02910000 ** 3 CVTHIAR BIT(1), /* MAIN STORAGE HIERARCHY 02920000 ** SUPPORT OPERATIVE * 02930000 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 02940000 ** 3 * BIT(1), /* RESERVED * 02950000 ** 2 CVTOPTB CHAR(1), /* RESERVED * 02960000 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 02970000 ** 3 * BIT(1), /* RESERVED * 02980000 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 02990000 ** 3 * BIT(5), /* RESERVED * 03000000 ** 03010000 ** 2 CVTQCDSR PTR(31), /* MVT/MFT: CDE SEARCH ROUTINE 03020000 ** ADDR */ 03030000 ** 2 CVTQLPAQ PTR(31), /* MVT/MFT: ADDR OF TOP CDE IN LP 03040000 ** QUEUE */ 03050000 ** 03060000 ** 2 CVTMPCVT PTR(31), /* MVT: ADDR OF M65MP SECONDARY 03070000 ** CVT -- MFT/PCP: RESERVED * 03080000 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 03090000 ** 2 CVTABEND PTR(31), /* MVT: ADDR OF SECONDARY CVT 03100000 ** -- MFT/PCP: RESERVED * 03110000 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 03120000 ** 03130000 ** 03140000 ** /* MFT/MVT CVT EXTENSION * 03150000 ** 03160000 ** 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 03170000 ** SUPPORT * 03180000 ** 2 CVTQABST CHAR (2), /* MVT: AN SVC 13 INSTRUCTION 03190000 ** -- MFT: RESERVED * 03200000 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 03210000 ** (MFT WITH SUBTASKING) * 03220000 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 03230000 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 03240000 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS WORK AREA * 03250000 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 03260000 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 03270000 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 03280000 ** 4 * BIT(7), /* RESERVED * 03290000 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 03300000 ** 2 CVT0SCR1 PTR(31), /* ADDR OF RPS SECTOR 03310000 ** CONVERTER * 03320000 ** 2 CVTGTF PTR(31), /* GENERALIZED TRACE FACILITY * 03330000 ** 3 CVTGTFST CHAR(1), /* STATUS FLAGS * 03340000 ** 4 CVTGTFS BIT(2), /* STATE * 03350000 ** 4 CVTSTATE BIT(1), /* IN CONTROL * 03360000 ** 4 CVTMODE BIT(1), /* EXT MODE * 03370000 ** 4 CVTFORM BIT(1), /* ABDUMP TO FORMAT TRACE DATA * 03380000 ** 4 CVTUSR BIT(1), /* USR TRACE * 03390000 ** 4 CVTMCTYP BIT(1), /* MC INSTRUCTION VALID * 03400000 ** 4 * BIT(1), /* RESERVED * 03410000 ** 3 CVTCMT PTR(24) BDY(WORD,2),/* ADDRESS OF CLASS MASK TABLE * 03420000 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 03430000 ** ADDR OF TCAM VECTOR TABLE * 03440000 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 03450000 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 03460000 ** 4 * BIT(7), /* RESERVED * 03470000 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 03480000 ** ADDR OF TCAM VECTOR TABLE * 03490000 ** 03500000 ** /* MFT WITH SUBTASKING CVT EXTENSION * 03510000 ** 03520000 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 03530000 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 03540000 ** TAB ENTRIES * 03550000 ** 3 CVTTAT PTR(24) BDY(WORD,2), 03560000 ** /* ADDR OF P0 TCB POINTER * 03570000 ** 2 CVTATER PTR(31), /* SAME AS CVTATERA BELOW ICB306* 03580000 ** 3 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 03590000 ** 3 CVTATERA PTR(24), /* ADDRESS OF SYSTEM ERROR 03600000 ** TCB ICB306* 03610000 ** 03620000 ** /* MVT/MFT CVT CONTINUATION * 03630000 ** 03640000 ** 2 * PTR(31), /* RESERVED * 03650000 ** 2 * PTR(31), /* RESERVED * 03660000 ** 2 CVTPURG PTR(31), /* ADDRESS OF SUBSYSTEM PURGE 03670000 ** ROUTINE * 03680000 ** 3 * CHAR(1), /* RESERVED * 03690000 ** 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 03700000 ** ROUTINE * 03710000 ** 2 * PTR(31), /* RESERVED * 03720000 ** 2 CVTQMSG PTR(31), /* SAME AS CVTQMSGA BELOW ICB307* 03730000 ** 3 * CHAR(1), /* RESERVED ICB307* 03740000 ** 3 CVTQMSGA PTR(24), /* ADDRESS OF TYPE 1 SVC - ABEND 03750000 ** COMMUNICATION AREA ICB307* 03760000 ** 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB308* 03770000 ** 3 * CHAR(1), /* RESERVED ICB308* 03780000 ** 3 CVTDMSRA PTR(24); /* ADDRESS OF OPEN/CLOSE/EOV 03790000 ** SUPERVISORY ROUTINE ICB308* 03800000 ** 03810000 ** /* PCP OVERLAY * 03820000 ** 03830000 ** DECLARE 03840000 ** 1 * BASED(ADDR(CVTQCDSR ) ), /* PCP OVERLAY * 03850000 ** 2 CVTCRTTR CHAR(3), /* TTR OF JCT FOR RESTART (PCP) * 03860000 ** 2 CVTSTUSA CHAR(1), /* STATUS BYTE A * 03870000 ** 3 * BIT(1), /* RESERVED * 03880000 ** 3 * BIT(1), /* RESERVED * 03890000 ** 3 * BIT(1), /* RESERVED * 03900000 ** 3 * BIT(1), /* RESERVED * 03910000 ** 3 CVTCHPTR BIT(1), /* - REQUESTED AUTOMATIC 03920000 ** CHECKPOINT RESTART WAS 03930000 ** INITIATED * 03940000 ** 3 CVTSTEPR BIT(1), /* - REQUESTED AUTOMATIC STEP 03950000 ** RESTART WAS INITIATED * 03960000 ** 3 CVTDATA BIT(1), /* - DD DATA STATEMENT IN INPUT 03970000 ** STREAM AND DATA HAS NOT BEEN 03980000 ** READ * 03990000 ** 3 * BIT(1), /* RESERVED * 04000000 ** 2 * CHAR(2), /* RESERVED * 04010000 ** 2 * CHAR(2); /* RESERVED * 04020000 ** 04030000 ** /* CVT PREFIX * 04040000 ** 04050000 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 04060000 ** 2 * CHAR(248), /* RESERVED * 04070000 ** 2 * CHAR(2), /* RESERVED * 04080000 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 04090000 ** PACKED DECIMAL, I.E., A MODEL 04100000 ** 50 WOULD BE REPRESENTED AS 04110000 ** 0050 HEX * 04120000 ** 2 CVTRELNO CHAR(4); /* OS RELEASE NUMBER (EBCDIC) * 04130000 ** 04140000 ** /* END OF CVT MACRO * 04150000 ** 04160000 ** DECLARE 04170000 ** 1 TSCVT BASED(CVTTSCVT), 04180000 ** 2 TSCVTTJB PTR(31), /* POINTER TO TJB TABLE * 04190000 ** 2 TSCVTRCB PTR(31), /* POINTER TO RCB TABLE * 04200000 ** 2 TSCVTRPT PTR(31), /* PTR TO REFERENCE POINTER 04210000 ** TABLE * 04220000 ** 2 TSCVTFLG CHAR(2), /* FLAGS TO INDICATE FUNCT 04230000 ** REQUESTED OF TSC * 04240000 ** 3 TSCSWPND BIT(1), /* SWAP ENDED * 04250000 ** 3 TSCSWPBG BIT(1), /* SWAP SHOULD BE STARTED * 04260000 ** 3 TSCLOGON BIT(1), /* A LOGON IS TO BE PROCESSED * 04270000 ** 3 TSCDISC BIT(1), /* A DISCONNECT IS TO BE 04280000 ** PROCESSED BITS * 04290000 ** 2 TSCVTFL1 CHAR(2), /* FLAGS TO INDICATE FUNCT 04300000 ** REQUESTED OF TSC * 04310000 ** 3 TSCSSTOP BIT(1), /* SYSTEM STOP REQUESTED AND 04320000 ** TSC IS STOPPING * 04330000 ** 3 TSCRSTOP BIT(1), /* REGION STOP REQUESTED * 04340000 ** 3 TSCASTOP BIT(1), /* ABEND-STOP TS FLG. SET BY 04350000 ** TSO/RMS IF TCAM MCH'SSET BY 04360000 ** TCAM STAE EXIT IF TCAM 04370000 ** ABENDS BITS * 04380000 ** 3 TSCLOGPR BIT(1), /* SET BY S02 WHEN NOT ENOUGH 04390000 ** SWAP SPACE ALLOCATED FOR LOGON 04400000 ** IMAGE PROCESSING * 04410000 ** 3 * BIT(1), /* RESERVED * 04420000 ** 3 * BIT(1), /* RESERVED * 04430000 ** 3 * BIT(1), /* RESERVED * 04440000 ** 3 * BIT(1), /* RESERVED * 04450000 ** 2 TSCVTSDC PTR(31), /* PTR TO 1ST DCB FOR SWAP DS * 04460000 ** 2 TSCVTCUS FIXED(15), /* CURR NO. OF USERS LOGGED ON 04470000 ** TSO * 04480000 ** 2 TSCVTLUS FIXED(15), /* CURRENT LIMIT NO. OF USERS 04490000 ** LOGGED ON TO TSO SET BY TSC * 04500000 ** 2 TSCVTNTJ FIXED(15), /* NO.TJB-TSB'S ALLOC BY TSO 04510000 ** INITIALLY * 04520000 ** 2 TSCVTSZU FIXED(15), /* SIZE OF TJB * 04530000 ** 2 TSCVTCTR FIXED(15), /* NO. OF RCB'S ALLOC BY TSO 04540000 ** INITIALLY * 04550000 ** 2 TSCVTMUS FIXED(15), /* MAX NUMBER OF USERS LOGGED 04560000 ** ON TO TSO SET BY START AND 04570000 ** MODIFY COMMANDS (TSC) * 04580000 ** 2 TSCVTSAV PTR(31), /* PTR TO SAV AREA FOR 04590000 ** TSC,TSIP&TS DISP * 04600000 ** 2 TSCVTECB PTR(31), /* PTR TO TSECBTAB CTL BLK OF 04610000 ** ECB'S * 04620000 ** 2 TSCVTSIA PTR(31), /* PTR TO TSIA * 04630000 ** 2 TSCVTICB PTR(31), /* PTR TO TSICB * 04640000 ** 2 TSCVTI01 PTR(31), /* ADDRESS OF ENTRY POINT 04650000 ** IKJEAI01 TSIP BR ENTRY * 04660000 ** 2 TSCVTTQE PTR(31), /* PTR TO TQE FOR TSO'S TIME 04670000 ** SLICING * 04680000 ** 2 TSCVTI02 PTR(31), /* ADDRESS OF ENTRY POINT 04690000 ** IKJEAI02 IN TS DISPATCH * 04700000 ** 2 TSCVTI03 PTR(31), /* ADDRESS OF ENTRY POINT 04710000 ** IKJEAI03 IN TS DISPATCH * 04720000 ** 2 TSCVTD02 PTR(31), /* ADDRESS OF ENTRY POINT 04730000 ** IKJEAD02 IN TS DRIVER * 04740000 ** 2 TSCVTLCQ PTR(31), /* ADDR OF TOP ELEM ON LOGON 04750000 ** COMM. QUE * 04760000 ** 2 TSCVTTRB PTR(31), /* ADDR OF TRACE CTL BLK CHAIN * 04770000 ** 2 TSCVTLPA PTR(31), /* ADDR OF 1ST CDE IN TS LINK 04780000 ** PACK AREA * 04790000 ** 2 TSCVTSLF FIXED(31), /* SYSTEM INIATED LOGOFF * 04800000 ** 2 TSCVTTSC PTR(31), /* ADDR OF THE * 04810000 ** 2 TSCVTSPL PTR(31), /* ADDRESS OF START PARAMETER 04820000 ** LIST * 04830000 ** 2 TSCVTRSZ FIXED(15), /* MIN REGION SIZE FOR LOGON * 04840000 ** 2 * CHAR(2), /* RESERVED * 04850000 ** 2 TSCVTSVT CHAR(4), /* SVCTBL ENTRY FOR TSIP PRIOR 04860000 ** TO START TS * 04870000 ** 2 TSCVTSVQ CHAR(4), /* SVCTBL ENTRY FOR QTIP PRIOR 04880000 ** TO START TS * 04890000 ** 2 TSCVTABN PTR(31), /* ADDR OF OUT-OF-CORE ABEND 04900000 ** RTN(IKJEAT07) * 04910000 ** 2 TSCVTD03 PTR(31), /* ADDR OF EP IKJEAD03 IN TS 04920000 ** DRIVER * 04930000 ** 2 TSCVTFLM PTR(31), /* ADDR OF EP - IKJEFLM * 04940000 ** 2 TSCVTQTP PTR(31), /* ADDR OF EP OF QTIP SVC - 04950000 ** IKJGGQT1 * 04960000 ** 2 TSCVTT08 PTR(31), /* ADDR OF EP - IKJEAT08 * 04970000 ** 2 TSCVTDMP PTR(31), /* ADDR OF TSO DUMP CONTROL 04980000 ** BLOCK - IKJTSDMP * 04990000 ** 2 TSCVTT06 PTR(31), /* ADDR OF TCB FOR IKJEAT06 * 05000000 ** 2 TSCVTLS3 PTR(31); /* ADDR OF LOGON OUT OF CORE 05010000 ** ABEND RTN * 05020000 ** 05030000 ** DECLARE 05040000 ** 1 LCT BASED(LCTPTR) BDY(WORD), 05050000 ** 3 LCTQDRTY PTR(31), 05060000 ** 5 * BIT(8), /* LPMOD VALUE USED WHEN 05070000 ** ATTACHING PROBLEM PROGRAM * 05080000 ** 5 * PTR(24), /* ADDRESS OF THE JOB'S CSCB * 05090000 ** 3 LCTSRTAD PTR(31), 05100000 ** 5 * BIT(8), 05110000 ** 5 * PTR(24), /* SRT ADDRESS * 05120000 ** 3 LCTTCBAD PTR(31), 05130000 ** 5 * BIT(8), 05140000 ** 5 * PTR(24), /* JOB STEP TCB ADDRESS * 05150000 ** 3 LCTQENTY PTR(31), 05160000 ** 5 * BIT(8), 05170000 ** 7 * BIT(1), /* UNUSED * 05180000 ** 7 * BIT(1), /* USED IN CONJUCTION WITH NOSEP * 05190000 ** 7 * BIT(1), /* DEVICE WAIT RECOVERY * 05200000 ** 7 * BIT(1), /* SPACE WAIT RECOVERY * 05210000 ** 7 * BIT(1), /* UNUSED * 05220000 ** 7 * BIT(1), /* UNUSED * 05230000 ** 7 * BIT(1), /* UNUSED * 05240000 ** 7 LCTERRM BIT(1), /* JOB TERMINATION STATUS * 05250000 ** 5 * PTR(24), /* ADDRESS OF LINKOR'S 05260000 ** SAVE AREA * 05270000 ** 3 LCTJCTAD PTR(31), 05280000 ** 5 * BIT(8), 05290000 ** 5 * PTR(24), /* JOB CONTROL TABLE ADDRESS * 05300000 ** 3 LCTSCTAD PTR(31), 05310000 ** 5 * BIT(8), 05320000 ** 5 * PTR(24), /* STEP CONTROL TABLE ADDRESS * 05330000 ** 3 LCTSCTDA PTR(31), 05340000 ** 5 * BIT(8), 05350000 ** 5 * PTR(24), /* CURRENT SCT DISK ADDRESS * 05360000 ** 3 LCTPSPAR PTR(31), 05370000 ** 5 * BIT(8), 05380000 ** 5 * PTR(24), /* ADDRESS OF ALLOC/TERM 05390000 ** COMMUNICATION AREA * 05400000 ** 3 LCTERROR FIXED(31), /* ERROR CODES * 05410000 ** 3 LCTPARM1 FIXED(31), /* MULTI USE PARAMETER FIELD * 05420000 ** 3 LCTPARM2 FIXED(31), /* MULTI USE PARAMETER FIELD * 05430000 ** 3 LCTPARM3 FIXED(31), /* MULTI USE PARAMETER FIELD * 05440000 ** 3 LCTPARM4 FIXED(31), /* MULTI USE PARAMETER FIELD * 05450000 ** 3 LCTCMCBA PTR(31), 05460000 ** 5 * BIT(8), 05470000 ** 5 * PTR(24), /* CORE ADDRESS OF CONTROL 05480000 ** BYTES FOR CORE MANAGEMENT * 05490000 ** 3 LCTNSPAD BIT(8), /* NON SETUP PADDING BYTE * 05500000 ** 3 LCTJFCBH BIT(8), /* JFCB HOUSEKEEPING BYTE * 05510000 ** 5 LCTS2PEM BIT(1), /* FIRST PDQ TABLE ENTRY MADE * 05520000 ** 5 LCTS2COP BIT(1), /* CORE OBTAINED FOR PDQ TABLE * 05530000 ** 5 LCTS2FES BIT(1), /* FIRST ENTRY IN PDQ FOR STEP * 05540000 ** 5 * BIT(1), 05550000 ** 5 * BIT(1), 05560000 ** 5 * BIT(1), 05570000 ** 5 * BIT(1), 05580000 ** 5 * BIT(1), 05590000 ** 3 LCTSNUMB PTR(8), /* CURRENT STEP NUMBER * 05600000 ** 3 LCTACTON PTR(8), /* ACTION CODE * 05610000 ** 3 LCTSMBAD PTR(31), 05620000 ** 5 * BIT(8), 05630000 ** 5 * PTR(24), /* SMB ADDRESS * 05640000 ** 3 LCTBATMN FIXED(31), /* USED IN GENERATING A UNIQUE 05650000 ** VOLUME SERIAL NUMBER WHEN 05660000 ** THE USER DOESN'T SPECIFY ONE 05670000 ** ON HIS DD CARD AND DOES 05680000 ** SPECIFY A PASSED DATA SET ON 05690000 ** UNLABELED TAPE. * 05700000 ** 3 LCTSOQMP PTR(31), 05710000 ** 5 * BIT(8), 05720000 ** 5 * PTR(24), /* ADDRESS OF MESSAGE CLASS 05730000 ** QUEUE MGR PARAMETER AREA * 05740000 ** 3 LCTRTRN PTR(31), 05750000 ** 5 * BIT(8), 05760000 ** 5 * PTR(24), /* RETURN ADDRESS TO MASTER 05770000 ** SCHEDULER(FOR STOP 05780000 ** INITIATOR) * 05790000 ** 3 LCTCSCB PTR(31), 05800000 ** 5 LCTINTSW BIT(8), /* INITIATOR INTERNAL SWITCH * 05810000 ** 7 LCTIHIER BIT(1), /* RUN IN HIERARCHY ONE * 05820000 ** 7 * BIT(1), 05830000 ** 7 LCTSDOXX BIT(1), /* ATTACH IEFSDOXX * 05840000 ** 7 LCTMINRG BIT(1), /* JOB FLUSH - USE MINPAR * 05850000 ** 7 LCTSTART BIT(1), /* TASKNAME NOT FOUNND ON 05860000 ** COMMAND * 05870000 ** 7 LCTSTOP BIT(1), /* INITIATOR INTERNAL STOP * 05880000 ** 7 * BIT(1), 05890000 ** 7 * BIT(1), 05900000 ** 5 * PTR(24), /* ADDRESS OF INITIATOR CSCB * 05910000 ** 3 LCTTMWRK CHAR(16), /* TIMER WORK AREA * 05920000 ** 3 LCTJOBLB PTR(31), 05930000 ** 5 * BIT(8), 05940000 ** 5 * PTR(24), /* POINTER TO JOBLIB OR 05950000 ** STEPLIB DCB * 05960000 ** 3 LCTATLST PTR(31), 05970000 ** 5 * BIT(8), 05980000 ** 5 * PTR(24), /* ADDRESS OF ALLOCATE/TERMINATE 05990000 ** PARAMETER LIST * 06000000 ** 3 REGSAVE (36)FIXED(31), /* ALLOC/TERM REGISTER 06010000 ** SAVE AREA * 06020000 ** 3 QMGR1 (9) FIXED(31), /* QUEUE MGR PARAMETER AREA * 06030000 ** 3 QMGR2 (9) FIXED(31), /* ALTERNATE Q-MGR PARM AREA * 06040000 ** 3 TRSTKINF (2) FIXED(31), /* TRACK STACKING AND QUEUE 06050000 ** BREAK INFORMATION * 06060000 ** 3 LCTECBAD PTR(31), 06070000 ** 5 * BIT(8), 06080000 ** 5 * PTR(24), 06090000 ** 3 LCTIDENT (2)FIXED(31), /* HOLDER FOR IDENTIFIER * 06100000 ** 3 LCTFORCE (2)FIXED(31), /* POSSIBLE FORCE VALUES * 06110000 ** 3 LCTLIMIT CHAR(1), /* LIMIT VALUE * 06120000 ** 3 FRCPRTY CHAR(1), /* FORCE PARITY HOLDER * 06130000 ** 3 INITPRTY CHAR(1), /* INITIATOR'S PRIORITY * 06140000 ** 3 LCTENTR PTR(31), 06150000 ** 5 LCTOPSW1 BIT(8), /* INITIATOR OPTION BYTE 1 * 06160000 ** 7 LCTPKEYF BIT(1), /* DON'T GET PROTECT KEY * 06170000 ** 7 LCTDWFF BIT(1), /* DON'T PROCESS DEDICATED 06180000 ** WORK FILE * 06190000 ** 7 LCTSTMDF BIT(1), /* DON'T PROCESS STOP/MODIFY * 06200000 ** 7 LCTMINPF BIT(1), /* GET REGION SIZE SPECIFIED * 06210000 ** 7 LCTCANF BIT(1), /* ALLOW CANCEL ONLY AT ALLOC * 06220000 ** 7 LCTONEJF BIT(1), /* PROCESS ONLY ONE JOB * 06230000 ** 7 LCTICMDF BIT(1), /* DON'T PROCESS INIT'S CMDS * 06240000 ** 7 * BIT(1), 06250000 ** 5 * PTR(24), /* INITIATOR EXIT LIST * 06260000 ** 3 LCTCOM PTR(31), 06270000 ** 5 LCTOPSW2 BIT(8), /* INITIATOR OPTION BYTE 2 * 06280000 ** 7 LCTTIMEF BIT(1), /* DON'T TIME THIS * 06290000 ** 7 LCTCRF BIT(1), /* DON'T ALLOW CHECK/RESTART * 06300000 ** 7 LCTDSOF BIT(1), /* DON'T PROCESS DSO * 06310000 ** 7 LCTINTH0 BIT(1), /* INIT IN HIERARCHY ZERO * 06320000 ** 7 LCTINTH1 BIT(1), /* INIT IN HIERARCHY ONE * 06330000 ** 7 * BIT(1), 06340000 ** 7 * BIT(1), 06350000 ** 7 * BIT(1), 06360000 ** 5 * PTR(24), /* COMMUNICATIONS PARAMETER 06370000 ** AREA POINTER * 06380000 ** 3 LCTJSCB PTR(31), 06390000 ** 5 LCTOPSW3 BIT(8), /* INITITIATOR OPTION BYTE THREE * 06400000 ** 7 * BIT(1), /* UNUSED * 06410000 ** 7 * BIT(1), /* UNUSED * 06420000 ** 7 * BIT(1), /* UNUSED * 06430000 ** 7 * BIT(1), /* UNUSED * 06440000 ** 7 * BIT(1), /* UNUSED * 06450000 ** 7 LCTTRSTK BIT(1), /* INDICATES THAT TRACK STACKING 06460000 ** IS IN * 06470000 ** 7 * BIT(1), /* UNUSED * 06480000 ** 7 * BIT(1), /* UNUSED * 06490000 ** 5 * PTR(24), /* ADDRESS OF JSCB * 06500000 ** 3 * (4) FIXED(31); /* UNUSED IN MVT - PART OF ECB 06510000 ** LIST IN MFT * 06520000 **/* THESE FIELDS ARE EQUATED TO FIELDS IN THE STRUCTURE AND AS * 06530000 **/* SUCH MAY NOT APPEAR IN THE STRUCTURE * 06540000 ** DECLARE 06550000 ** LCTWORKA BASED(ADDR(LCTSCTDA)), /* MINSYS 3 INSERT * 06560000 ** LCTSTIND BASED(ADDR(LCTNSPAD)), /* STATUS INDICATOR * 06570000 ** LCTSMF BASED(ADDR(LCTTMWRK)+8), /* POINTER TO DEVICES USED 06580000 ** OR TO JMR * 06590000 ** LCTPIB BASED(ADDR(LCTIDENT)), 06600000 ** LCTSPIL BASED(ADDR(LCTIDENT)+4), 06610000 ** LCTECBLT BASED(ADDR(LCTFORCE)); /* MFT ONLY * 06620000 **/*******************************************************************/ 06630000 **/* */ 06640000 **/*NAME ***** JOB/STEP CONTROL BLOCK ***** */ 06650000 **/* */ 06660000 **/*FUNCTION COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS */ 06670000 **/* */ 06680000 **/*NOTE IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR */ 06690000 **/* REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH */ 06700000 **/* ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE */ 06710000 **/* THE GETJSCB AND FREEJSCB MACROS. */ 06720000 **/* */ 06730000 **/*RELEASE 20.2, 4/05/71, LEVEL=1 */ 06740000 **/*RELEASE 21, 08/05/71, LEVEL=3 */ 06750000 **/*******************************************************************/ 06760000 ** 06770000 ** DCL 1 IEZJSCB BASED (LCTJSCB), /* JOB STEP CONTROL BLOCK */ 06780000 ** 06790000 ** 2 * CHAR (240), /* ALLOWS ADDRESSIBILITY 06800000 ** FROM TCBJSCB ICB359*/ 06810000 ** 06820000 **/*-----------------------------------------------------------------*/ 06830000 **/* */ 06840000 **/*SECTION 1 DATA ITEMS USED IN PCP, MFT, AND MVT */ 06850000 **/* */ 06860000 **/*-----------------------------------------------------------------*/ 06870000 ** 06880000 ** 2 JSCBSEC1, /* JSCB SECTION 1 */ 06890000 ** 3 JSCBTTTR CHAR (3), /* JOB Q ADDRESS (TTR) OF TIO 06900000 ** EXTENSION */ 06910000 ** 06920000 ** 3 JSCBSWT1 CHAR (1), /* STATUS SWITCHES */ 06930000 ** 06940000 ** 4 JSCBPASS BIT (1), /* WHEN THIS BIT IS SET TO ONE 06950000 ** AND A CORRESPONDING BIT IN THE 06960000 ** DCB IS SET TO ONE THE OPEN WIL 06970000 ** BYPASS PASSWORD PROTECTION FOR 06980000 ** THE DATA SET BEING OPENED */ 06990000 ** 4 * BIT (1), /* RESERVED ICB359* 07000000 ** 4 JSCBLONG BIT (1), /* LONG RUNNING TASK IN 07010000 ** PARTITION - FAIL 07020000 ** REDEFINE (MFT) ICB359* 07030000 ** 4 * BIT (5), /* RESERVED ICB359* 07040000 ** 07050000 ** 3 JSCBQMPI PTR (31), /* ADDRESS OF THE QMPA FOR THE 07060000 ** JOB'S INPUT QUEUE TABLE ENTRY * 07070000 ** 07080000 ** 3 JSCBQMPO PTR (31), /* ADDRESS OF THE QMPA FOR THE 07090000 ** JOB'S OUTPUT MSGCLASS QUEUE 07100000 ** ENTRY */ 07110000 ** 07120000 ** 3 JSCBWTP PTR (31), /* ADDRESS OF WRITE-TO- 07130000 ** PROGRAMMER WORK AREA USED FOR 07140000 ** WRITING MESSAGES TO JOB'S 07150000 ** SYSOUT LISTING */ 07160000 ** 07170000 ** 2 JSCBEND1; /* END OF SECTION 1 */ 07180000 ** 07190000 **/*-----------------------------------------------------------------*/ 07200000 **/* */ 07210000 **/*SECTION 2 DATA ITEMS USED IN BOTH MFT AND MVT */ 07220000 **/* */ 07230000 **/*-----------------------------------------------------------------*/ 07240000 ** 07250000 ** DCL 1 JSCBSEC2 BASED (ADDR (JSCBEND1)), /* JSCB SECTION 2 */ 07260000 ** 07270000 ** 2 JSCBCSCB PTR (31), /* ADDRESS OF CSCB USED FOR 07280000 ** PROCESSING COMMANDS RECEIVED 07290000 ** FROM JOB */ 07300000 ** 2 JSCBJCT CHAR(4), /* SAME AS JSCBJCTA BELOW * 07310000 ** 3 * CHAR(1), /* RESERVED */ 07320000 ** 3 JSCBJCTA CHAR(3), /* TTR OF JOB'S JCT */ 07330000 ** 07340000 ** 2 JSCBEND2; /* END OF SECTION 2 */ 07350000 ** 07360000 **/*-----------------------------------------------------------------*/ 07370000 **/* */ 07380000 **/*SECTION 3 DATA ITEMS USED ONLY IN PCP */ 07390000 **/* */ 07400000 **/*-----------------------------------------------------------------*/ 07410000 ** 07420000 ** DCL 1 JSCBSEC3 BASED (ADDR (JSCBSEC2)), /* JSCB SECTION 3 */ 07430000 ** 07440000 ** /* CURRENTLY NO PCP-ONLY DATA ITEMS EXIST */ 07450000 ** 07460000 ** 2 JSCBEND3; /* END OF SECTION 3 */ 07470000 ** 07480000 **/*-----------------------------------------------------------------*/ 07490000 **/* */ 07500000 **/*SECTION 4 DATA ITEMS USED ONLY IN MFT */ 07510000 **/* */ 07520000 **/*-----------------------------------------------------------------*/ 07530000 ** 07540000 ** DCL 1 JSCBSEC4 BASED (ADDR (JSCBEND2)), /* JSCB SECTION 4 */ 07550000 ** 07560000 ** /* CURRENTLY NO MFT-ONLY DATA ITEMS EXIST */ 07570000 ** 07580000 ** 2 JSCBEND4; /* END OF SECTION 4 */ 07590000 ** 07600000 **/*-----------------------------------------------------------------*/ 07610000 **/* */ 07620000 **/*SECTION 5 DATA ITEMS USED ONLY IN MVT */ 07630000 **/* */ 07640000 **/*-----------------------------------------------------------------*/ 07650000 ** 07660000 ** DCL 1 JSCBSEC5 BASED (ADDR (JSCBEND2)), /* JSCB SECTION 5 */ 07670000 ** 07680000 ** 2 JSCBPSCB PTR (31), /* ADDRESS OF TSO PROTECTED 07690000 ** STEP CONTROL BLOCK */ 07700000 ** 07710000 ** 2 JSCBTJID FIXED (15), /* TSO TERMINAL JOB IDENTIFIER* 07720000 ** 07730000 ** 2 * CHAR (2), /* RESERVED */ 07740000 ** 07750000 ** 2 JSCBIECB FIXED (31), /* ECB USED FOR COMMUNICATION 07760000 ** BETWEEN DYNAMIC ALLOCATION AND 07770000 ** THE INITIATOR IN ORDER TO 07780000 ** PERFORM DATA SET INTEGRITY */ 07790000 ** 07800000 ** 2 JSCBEND5; /* END OF SECTION 5 */ 07810000 ** 07820000 ** /* MACRO DEFINITIONS OF JSCBDISP, JSCBMFTL, AND JSCBMVTL */ 07830000 ** 07840000 ** JSCBDISP: GEN (EQU 240); 07850000 JSCBDISP EQU 240 07860000 DS 0H 07870000 ** JSCBMFTL: GEN (EQU 24); 07880000 JSCBMFTL EQU 24 07890000 DS 0H 07900000 ** JSCBMVTL: GEN (EQU 36); 07910000 JSCBMVTL EQU 36 07920000 DS 0H 07930000 ** 07940000 ** /* END OF JSCB */ 07950000 * DCL 1 QMPA BASED(QMPAPTR), 07960000 * 4 QMNAM CHAR (8), /* JOB NAME */ 07970000 * 6 QMCAN CHAR (4), /* ECB ADDR. IN SELECTED JOB QUEUE */ 07980000 * 6 QMPEB CHAR (4), /* LINKORS ECB ADDRESS */ 07990000 * 4 QMPOP BIT (8), /* FUNCTION CODE PARAMETER */ 08000000 * 4 QMFLT CHAR (2), /* FIRST LOGICAL TRACK ASSIGNED TO JOB */ 08010000 * 4 QMTST CHAR (1), /* NO. OF RECORDS USED IN LOGICAL TRACK */ 08020000 * 4 QMTLN CHAR (2), /* REL. ADDR. OF NEXT LOGICAL TRACK */ 08030000 * 4 QMNOT CHAR (1), /* NO. OF LOGICAL TRACKS ASSIGNED TO JOB */ 08040000 * 4 QMTPY CHAR (1), /* JOB TYPE INDICATOR */ 08050000 * 4 QMSTA BIT (8), /* JOB STATUS */ 08060000 * 4 QMPRI CHAR (1), /* JOB PRIORITY */ 08070000 * 4 QMLNK CHAR (2), /* RE. ADDR. OF NEXT QUEUE ENTRY */ 08080000 * 4 QMTID CHAR (2), /* QUEUE ENTRY IDENTIFICATION */ 08090000 * 4 QMRSD1 CHAR (2), /* RESERVED FOR FUTURE USE */ 08100000 * 4 QMWTQ CHAR (4), /* ADDR. OF WAIT PARM ENT. */ 08110000 * 4 QMEIA CHAR (4), /* ADDR. USERS ECB/IOB LC */ 08120000 * 4 QMPCL CHAR (4), /* ADDR. OF EXTERNAL PARAMETER */ 08130000 * 6 QMPCMNC CHAR(1), /* NO OF RECS FOR ASSIGN/READ/WRITE */ 08140000 * 8 QMPCM BIT(4), /* RECS TO ASSIGN */ 08150000 * 8 QMPNC BIT(4), /* READ/WRITE REC COUNT */ 08160000 * 6 QMPACL CHAR(3); /* ADDR OF EXTERNAL PARAMETERS */ 08170000 **/* 08180000 ** USE OF THIS MAPPING MACRO IN BSL CAN BE FACILITATED BY USING 08190000 ** MACRO IEZIELDF WHICH DECLARES THE DEFAULT VALUES FOR THE IEL 08200000 ** EXITS. THE CALLING SEQUENCE FOR IEZIELDF AND IEZIEL IS: 08210000 ** % INCLUDE SYSLIB(IEZIELDF), 08220000 ** (SPECIFY EXIT LISTS TO BE GENERATED LEAVING OUT REFERENCES TO 08230000 ** EXITS WHICH ARE NOT TO BE GENERATED) 08240000 ** % RTNEXIT = 'Y', - RETURN EXIT 08250000 ** % PREEXIT = 'Y', - PRE INITIATION EXIT 08260000 ** % PSTEXIT = 'Y', - POST INITIATION EXIT 08270000 ** % INCLUDE SYSLIB(IEZIEL), 08280000 ** * 08290000 **/* **************************************************************** * 08300000 **/* * 08310000 **/* INITIATOR CONTROL INTERFACE * 08320000 **/* * 08330000 **/* RELEASE 20, 3/22/71, LEVEL=1 * 08340000 **/* RELEASE 21, 6/08/71, LEVEL=2 * 08350000 **/* **************************************************************** * 08360000 ** DECLARE 08370000 ** 1 IEL BASED (LCTENTR) BDY(DWORD), 08380000 ** 2 IELLIST CHAR(24) BDY(DWORD), 08390000 **/* **************************************************************** * 08400000 **/* * 08410000 **/* INITIATOR ENTRANCE LIST * 08420000 **/* * 08430000 **/* **************************************************************** * 08440000 ** 3 IELPARM PTR (31), /*ADDRESS OF 'PARM' FIELD*/ 08450000 ** 3 IELCSCB PTR (31), /*ADDRESS OF CSCB*/ 08460000 ** 3 IELOPLST PTR (31), /*ADDRESS OF INITIATOR OPTION LIST*/ 08470000 ** 3 IELQMPA PTR (31), /*ADDRESS OF QUEUE MGR PARAMETER AREA*/ 08480000 ** 3 IELJCT PTR (31), /*ADDRESS OF JOB CONTROL TABLE*/ 08490000 ** 3 IELEXIT PTR (31), /*ADDRESS OF INITIATOR EXIT LIST*/ 08500000 ** 4 IELLAST CHAR (1), /*SYMBOL USED TO SET HIGH ORDER BIT 08510000 ** INDICATING END OF LIST*/ 08520000 ** 5 IELEND BIT (1), /*HIGH ORDER BIT*/ 08530000 ** 5 * BIT (7); 08540000 **/* **************************************************************** * 08550000 **/* * 08560000 **/* INITIATOR OPTION LIST * 08570000 **/* * 08580000 **/* **************************************************************** * 08590000 ** DECLARE 08600000 ** 1 IELOPTS CHAR (8) BASED (IELOPLST) BDY (DWORD), 08610000 ** 3 IELOPLEN FIXED (15), /*LENGTH OF OPTION LIST*/ 08620000 ** 3 IELOPSW1 CHAR (1), /*OPTION SWITCH ONE*/ 08630000 ** 4 IELPKEYF BIT (1), /*INIT TO ATTACH TASK IN PROTECT KEY 08640000 ** PROVIDED IN IELPKEY*/ 08650000 ** 4 IELDWFF BIT (1), /*DO NOT USE DEDICATED WORK FILES*/ 08660000 ** 4 IELSTMDF BIT (1), /*DO NOT PROCESS STOP OR MODIFY COMMANDS* 08670000 ** 4 IELMINPF BIT (1), /*GET REGION EVEN IF LESS THAN MINPART*/ 08680000 ** 4 IELCANF BIT (1), /*SUPPRESS CANCEL EXCEPT DURING ALLOCATE* 08690000 ** 4 IELONJF BIT (1), /*PROCESS ONLY ONE JOB*/ 08700000 ** 4 IELICMDF BIT (1), /*BYPASS PROCESSING OF START/MODIFY CIB 08710000 ** AND CHECK OF 'PARM' INFORMATION*/ 08720000 ** 4 IELWTPF BIT (1), /*SET UP WRITE-TO-PROGRAMMER CHAIN*/ 08730000 ** 08740000 ** 3 IELOPSW2 CHAR (1), /*OPTION SWITCH TWO*/ 08750000 ** 4 IELTIMEF BIT (1), /*DO NOT TIME STEPS*/ 08760000 ** 4 IELCRF BIT (1), /*DO NOT PROCESS CHECKPOINT/RESTART*/ 08770000 ** 4 IELDSOF BIT (1), /*SUPPRESS DIRECT SYSOUT*/ 08780000 ** 4 IELINTH0 BIT (1), /*INIT TO RUN IN HIERARCHY ZERO*/ 08790000 ** 4 IELINTH1 BIT (1), /*INIT TO RUN IN HIERARCHY ONE*/ 08800000 ** 4 IELOTSTK BIT (1), /*INIT TO USE TRACK STACKING*/ 08810000 ** 4 IELONORC BIT (1), /*BYPASS ALLOCATION RECOVERY*/ 08820000 ** 4 IELOENQU BIT (1), /*DO NOT WAIT FOR DATA SETS*/ 08830000 ** 08840000 ** 3 IELPKEY CHAR (1), /*PROTECT KEY FOR ATTACHED TASK (HEX)*/ 08850000 ** 08860000 ** 3 IELOPSW3 CHAR (1), /*OPTION SWITCH THREE*/ 08870000 ** 4 IELONOQW BIT (1), /*DO NOT WAIT FOR JOB QUEUE SPACE*/ 08880000 ** 4 IELCLEAR BIT(1), /* MANDATORY REGION CLEARING IS IN 08890000 ** EFFECT FOR THIS CALL OF THE JOB 08900000 ** SCHEDULING SUBROUTINE * 08910000 ** 4 * BIT(6), /* RESERVED * 08920000 ** 08930000 ** 3 * CHAR (2); /*RESERVED*/ 08940000 **/* **************************************************************** * 08950000 **/* * 08960000 **/* INITIATOR EXIT LIST * 08970000 **/* * 08980000 **/* **************************************************************** * 08990000 **/* **************************************************************** * 09000000 **/* LINKAGE IDENTIFIERS * 09010000 **/* **************************************************************** * 09020000 **/* **************************************************************** * 09030000 **/* EXIT IDENTIFIERS * 09040000 **/* **************************************************************** * 09050000 **/* **************************************************************** * 09060000 **/* **************************************************************** * 09070000 ** DECLARE 09080000 ** 1 IELEXITS BDY(DWORD) BASED(IELEXIT), 09090000 ** 2 IELEXHDR BDY (WORD), /*EXIT LIST HEADER*/ 09100000 ** 3 IELXTLEN FIXED (15), /*EXIT LIST LENGTH*/ 09110000 ** 3 IELRTNCD CHAR (1), /*RETURN CODE*/ 09120000 ** 3 * CHAR (1), /*RESERVED*/ 09130000 ** 3 IELCOM PTR (31), /*ADDRESS OF ECB/CIB COMM LIST*/ 09140000 **/* **************************************************************** * 09150000 **/* **************************************************************** * 09160000 ** 2 RTNEXT CHAR (8) BDY (WORD), 09170000 ** 3 RTNEXLK CHAR (1), /*LINKAGE DEFINITION*/ 09180000 ** 3 RTNEXID CHAR (1), /*EXIT DEFINITION*/ 09190000 ** 3 RTNEXNM CHAR (6)BDY(WORD,3), /*EXIT NAME*/ 09200000 ** 4 * CHAR (2), 09210000 ** 4 RTNEXAD PTR (31), /*EXIT ADDRESS*/ 09220000 **/* **************************************************************** * 09230000 **/* **************************************************************** * 09240000 ** 2 PREEXT CHAR (8) BDY (WORD), 09250000 ** 3 PREEXLK CHAR (1), /*LINKAGE DEFINITION*/ 09260000 ** 3 PREEXID CHAR (1), /*EXIT DEFINITION*/ 09270000 ** 3 PREEXNM CHAR (6)BDY(WORD,3), /*EXIT NAME*/ 09280000 ** 4 * CHAR (2), 09290000 ** 4 PREEXAD PTR (31), /*EXIT ADDRESS*/ 09300000 **/* **************************************************************** * 09310000 **/* **************************************************************** * 09320000 ** 2 PSTEXT CHAR (8) BDY(WORD), 09330000 ** 3 PSTEXLK CHAR (1), /*LINKAGE DEFINITION*/ 09340000 ** 3 PSTEXID CHAR (1), /*EXIT DEFINITION*/ 09350000 ** 3 PSTEXNM CHAR (6)BDY(WORD,3), /*EXIT NAME*/ 09360000 ** 4 * CHAR (2), 09370000 ** 4 PSTEXAD PTR (31), /*EXIT ADDRESS*/ 09380000 **/* **************************************************************** * 09390000 ** 10 * CHAR(1); 09400000 ** /******************************************************************* 09410000 ** DEFINE THE JOB SCHEDULING WORK AREA 09420000 ** ******************************************************************** 09430000 ** DECLARE 09440000 ** 1 JSWA BASED(IELCOM) BOUNDARY(DWORD), 09450000 ** /*********************************************************** 09460000 ** LENGTH FIELD 09470000 ** ************************************************************ 09480000 ** 2 JSWALGTH FIXED(15), 09490000 ** /*********************************************************** 09500000 ** PRIMARY OPTIONS FLAG FIELD 09510000 ** ************************************************************ 09520000 ** 2 JSWAOPT BIT(8), 09530000 ** /* PROCESS 'TERM=TS' FLAG */ 09540000 ** 3 JSWATERM BIT(1), 09550000 ** /* TRACK STACKING FLAG */ 09560000 ** 3 JSWATRST BIT(1), 09570000 ** /* DEDICATED WORKFILES FLAG */ 09580000 ** 3 JSWAWKFI BIT(1), 09590000 ** /* RESERVED */ 09600000 ** 3 * BIT(1), 09610000 ** /* PROTECTION KEY OPTION FLAG */ 09620000 ** 3 JSWAPKO BIT(1), 09630000 ** /* BY-PASS ALLOCATION RECOVERY FLAG */ 09640000 ** 3 JSWANORC BIT(1), 09650000 ** /* FLAG TO INDICATE WHETHER THE JOB SCHEDULING * 09660000 ** /* SUBROUTINE IS TO CANCEL A JOB AUTOMATICALLY * 09670000 ** /* RATHER THAN WAITING FOR JOBQ SPACE. * 09680000 ** 3 JSWANOQW BIT(1), 09690000 ** /* FLAG TO INDICATE WHETHER THE JOB SCHEDULING * 09700000 ** /* SUBROUTINE IS TO CANCEL A JOB AUTOMATICALLY * 09710000 ** /* FOR A DATA SET TO BECOME AVAILABLE FOR THE * 09720000 ** /* JOB. * 09730000 ** 3 JSWAENQU BIT(1), 09740000 ** /*********************************************************** 09750000 ** SMF OPTIONS FLAG FIELD 09760000 ** ************************************************************ 09770000 ** 2 JSWASMF BIT(8), 09780000 ** /*********************************************************** 09790000 ** COMPOSITE FIELD 09800000 ** ************************************************************ 09810000 ** 2 JSWAJSEL POINTER(32), 09820000 ** /***************************************************** 09830000 ** SECONDARY OPTIONS FLAG FIELD 09840000 ** ****************************************************** 09850000 ** 3 JSWAOPT2 BIT(8), 09860000 ** /* PROHIBIT SYSTEM TASK FLAG */ 09870000 ** 4 JSWAPSYS BIT(1), 09880000 ** /* SUPPRESS SYSTEM TASK CONTROL MESSAGE FLAG */ 09890000 ** 4 JSWASMS1 BIT(1), 09900000 ** /* SUPPRESS 'INIT=JOBNAME' WARM START MESSAGE */ 09910000 ** 4 JSWASMS2 BIT(1), 09920000 ** /* RESERVED */ 09930000 ** 4 * BIT(5), 09940000 ** /***************************************************** 09950000 ** POINTER TO THE JOB SCHEDULING ENTRANCE LIST 09960000 ** ****************************************************** 09970000 ** 3 JSWAJSE1 POINTER(24), 09980000 ** /*********************************************************** 09990000 ** NAME OF THE JOB SCHEDULING SUBROUTINE MODULE TO WHICH 10000000 ** THE LAST XCTL WAS MADE 10010000 ** ************************************************************ 10020000 ** 2 JSWAMOD CHARACTER(8), 10030000 ** /*********************************************************** 10040000 ** POINTER TO THE TRACK STACK IF TRACK STACKING HAS BEEN 10050000 ** SPECIFIED. 10060000 ** ************************************************************ 10070000 ** 2 JSWATSTK POINTER(32), 10080000 ** 3 JSWANTRK POINTER(8), 10090000 ** 3 JSWATKST POINTER(24), 10100000 ** /*********************************************************** 10110000 ** THE PROTECTION KEY TO BE USED IF THE PROGRAM(S) INVOKE 10120000 ** FOR THIS JOB ARE NOT MENTIONED IN THE LINKAGE TABLE AN 10130000 ** IF THE PROTECTION KEY OPTION HAS BEEN SELECTED BY THE 10140000 ** INVOKER OF THE JOB SCHEDULING SUBROUTINE. 10150000 ** ************************************************************ 10160000 ** 2 JSWAPKEY POINTER(8), 10170000 ** /*********************************************************** 10180000 ** POINTER TO THE INPUT TIOT FOR THE JOB SCHEDULING 10190000 ** SUBROUTINE 10200000 ** ************************************************************ 10210000 ** 2 JSWATIOT POINTER(24), 10220000 ** /*********************************************************** 10230000 ** L-FORM OF THE XCTL MACRO-INSTRUCTION -- USED BY THE 10240000 ** MODULES OF THE JOB SCHEDULING SUBROUTINE WHICH USE XCT 10250000 ** TO PASS CONTROL TO ONE ANOTHER. 10260000 ** ************************************************************ 10270000 ** 2 JSWAXCTL BIT(64), 10280000 ** /* NEL POINTER USED INTERNALLY BY IEEVRCTL */ 10290000 ** 3 JSWANEL POINTER(32); 10300000 ** /******************************************************************* 10310000 ** /* DEFINE A JOB SCHEDULING ENTRANCE LIST * 10320000 ** /******************************************************************* 10330000 ** DECLARE 10340000 ** 1 JSEL BASED( JSWAJSEL), 10350000 ** 10360000 ** /* POINTER TO AN EBCDIC STRING, PRECEDED BY A 2-BYTE * 10370000 ** /* BINARY LENGTH FIELD. THIS CHARACTER STRING * 10380000 ** /* SPECIFIES OPTIONS OF THE JOB SCHEDULING SUBROUTINE * 10390000 ** /* THE FOLLOWING KEYWORD VALUES MAY APPEAR IN THE * 10400000 ** /* OPTIONS STRING * 10410000 ** 10420000 ** /* RCVRY OR NORCVRY WHERE THE FORMER SPECIFIES THAT ANY * 10430000 ** /* JOB PROCESSED BY THE JOB SCHEDULING SUBROUTINE IS * 10440000 ** /* TO BE CONSIDERED ELIGIBLE FOR ALLOCATION RECOVERY * 10450000 ** /* WHILE THE LATTER SPECIFIES THAT ANY JOB WHICH * 10460000 ** /* WOULD OTHERWISE REQUIRE ALLOCATION RECOVERY IN * 10470000 ** /* ORDER TO BE RUN IS TO BE FAILED. RCVRY IS THE * 10480000 ** /* DEFAULT VALUE. * 10490000 ** 10500000 ** /* DDTERM=TERM OR DDTERM=IGNORE WHERE THE FORMER * 10510000 ** /* SPECIFIES THAT ANY TERMINAL DD STATEMENTS FOR THE * 10520000 ** /* JOB ARE TO BE PROCESSED AS TERMINAL DD STATEMENTS * 10530000 ** /* WHILE THE LATTER SPECIFIES THAT SUCH DD * 10540000 ** /* STATEMENTS ARE TO BE TREATED AS THOUGH THE * 10550000 ** /* 'TERM=TS' HAD NOT BEEN CODED. * 10560000 ** 10570000 ** /* TSTACK OR NOTSTACK WHICH SPECIFIES THAT TRACK * 10580000 ** /* STACKING IS OR IS NOT TO BE USED DURING JOB * 10590000 ** /* SCHEDULING SUBROUTINE PROCESSING. NOTSTACK IS * 10600000 ** /* THE DEFAULT OPTION. * 10610000 ** 10620000 ** /* WKFILE OR NOWKFILE WHICH SPECIFIES THAT DEDICATED * 10630000 ** /* WORKFILE LOGIC IS OR IS NOT TO BE APPLIED DURING * 10640000 ** /* JOB SCHEDULING SUBROUTINE PROCESSING. NOWKFILE IS * 10650000 ** /* THE DEFAULT OPTION. * 10660000 ** 10670000 ** /* ENQ=USE OR ENQ=HAVE WHICH SPECIFIES THAT THE JOB(S) * 10680000 ** /* TO BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE * 10690000 ** /* ARE TO BE FAILED IF THE DATA SETS WHICH THEY * 10700000 ** /* REQUIRE CANNOT BE OBTAINED IMMEDIATELY OR CANNOT * 10710000 ** /* BE OBTAINED AT ALL RESPECIVELY. ENQ=HAVE IS THE * 10720000 ** /* DEFAULT OPTION. * 10730000 ** 10740000 ** /* QWAIT OR NOQWAIT WHICH SPECIFIES THAT THE JOB(S) TO * 10750000 ** /* BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE ARE * 10760000 ** /* ELIGIBLE OR INELIGIBLE TO WAIT FOR SYSJOBQE SPACE.* 10770000 ** /* (THIS OPTION IS ONLY PARTIALLY SUPPORTED IN * 10780000 ** /* RELEASE 20.) QWAIT IS THE DEFAULT OPTION. * 10790000 ** 2 JSELOPT POINTER(32), 10800000 ** 10810000 ** /* POINTER TO A JOB SCHEDULING OPTIONS LIST SPECIFYING * 10820000 ** /* OPTIONS OF THE JOB SCHEDULING SUBROUTINE * 10830000 ** 2 JSELJSOL POINTER(32), 10840000 ** 10850000 ** /* POINTER TO A CSCB TO BE USED DURING THE SCHEDULING * 10860000 ** /* OF THE JOB * 10870000 ** 2 JSELCSCB POINTER(32), 10880000 ** 10890000 ** /* POINTER TO A SOURCE OF JOB CONTROL LANGUAGE * 10900000 ** /* DESCRIBING THE JOB TO BE SCHEDULED * 10910000 ** 2 JSELJCL POINTER(32), 10920000 ** 10930000 ** /* POINTER TO A JOB SCHEDULING EXIT LIST SPECIFYING ANY * 10940000 ** /* SPECIAL EXIT ROUTINES WHICH ARE TO BE INVOKED DURING * 10950000 ** /* JOB SCHEDULING SUBROUTINE PROCESSING. * 10960000 ** 2 JSELJSXL POINTER(32), 10970000 ** 10980000 ** /* THIS IS A VARIABLE-LENGTH PARAMETER LIST, SO * 10990000 ** /* THE HIGH-ORDER BIT OF THE LAST POINTER MUST * 11000000 ** /* BE SET TO 1. * 11010000 ** 3 JSELEOL BIT(1); 11020000 ** /******************************************************************* 11030000 ** DEFINE THE JOB SCHEDULING EXIT LIST 11040000 ** ******************************************************************** 11050000 ** DECLARE 11060000 ** 1 JSXL BASED(JSELJSXL) BOUNDARY(WORD), 11070000 ** /*********************************************************** 11080000 ** LENGTH OF JSXL 11090000 ** ************************************************************ 11100000 ** 2 JSXLLGTH FIXED(15), 11110000 ** /*********************************************************** 11120000 ** RETURN CODE 11130000 ** ************************************************************ 11140000 ** 2 JSXLRCOD POINTER(8), 11150000 ** /*********************************************************** 11160000 ** RETURN CODE EXTENSION FIELD -- INDICATES ORIGIN OF 11170000 ** RETURN CODE 11180000 ** ************************************************************ 11190000 ** 2 JSXLRCXT POINTER(8), 11200000 ** /*********************************************************** 11210000 ** COMMON POINTER FOR COMMUNICATION BETWEEN EXIT 11220000 ** ROUTINES 11230000 ** ************************************************************ 11240000 ** 2 JSXLCOMM POINTER(32), 11250000 ** /*********************************************************** 11260000 ** ARRAY OF EXIT DEFINITIONS 11270000 ** ************************************************************ 11280000 ** 2 JSXLLDEF(256), 11290000 ** /***************************************************** 11300000 ** DEFINITION OF LINKAGE TO BE USED -- THE FOLLOWING 11310000 ** VALUES MAY BE USED IN THIS FIELD: 11320000 ** JSXNULL -- NO EXIT SPECIFICATION 11330000 ** JSXBR -- BRANCH TO ADDRESS 11340000 ** JSXLNK -- LINK TO NAME 11350000 ** JSXXCTL -- XCTL TO NAME 11360000 ** ****************************************************** 11370000 ** 3 JSXLLINK POINTER(8), 11380000 ** /***************************************************** 11390000 ** EXIT IDENTIFIER 11400000 ** ****************************************************** 11410000 ** 3 JSXLID BIT(8), 11420000 ** /************************************************** 11430000 ** POST-PROCESSING EXIT BIT 11440000 ** *************************************************** 11450000 ** 4 JSXPOST BIT(1), 11460000 ** /************************************************** 11470000 ** PRE-INVOCATION EXIT BIT 11480000 ** *************************************************** 11490000 ** 4 JSXPRINI BIT(1), 11500000 ** /************************************************** 11510000 ** POST-INVOCATION EXIT BIT 11520000 ** *************************************************** 11530000 ** 4 JSXPTINI BIT(1), 11540000 ** /************************************************** 11550000 ** SPECIAL ACCESS METHOD BIT 11560000 ** *************************************************** 11570000 ** 4 JSXRDRAM BIT(1), 11580000 ** /************************************************** 11590000 ** POST-SCAN EXIT BIT 11600000 ** *************************************************** 11610000 ** 4 JSXPTRDR BIT(1), 11620000 ** /************************************************** 11630000 ** RESERVED 11640000 ** *************************************************** 11650000 ** 4 * BIT(3), 11660000 ** /***************************************************** 11670000 ** LINKAGE DATA -- THE FOLLOWING VALUES MAY BE USED IN 11680000 ** THIS FIELD: 11690000 ** 1. IF THE SPECIFIED LINKAGE IS 'LINK' OR 'XCTL', 11700000 ** THEN THE 6-BYTE EBCDIC NAME OF THE ROUTINE TO BE 11710000 ** GIVEN CONTROL SHOULD BE PLACED IN THIS FIELD, 11720000 ** LEFT-JUSTIFIED AND PADDED WITH BLANKS IF 11730000 ** NECESSARY. 11740000 ** 2. IF THE SPECIFIED LINKAGE IS A 'BRANCH', THEN THE 11750000 ** ADDRESS OF THE ROUTINE TO RECEIVE CONTROL SHOULD 11760000 ** BE PLACED IN THIS FIELD, AND THE HIGH-ORDER 11770000 ** BYTES OF THIS FIELD SHOULD BE SET TO HEXIDECIMAL 11780000 ** ZEROS. 11790000 ** ****************************************************** 11800000 ** 3 JSXLDATA CHARACTER(6); 11810000 * /******************************************************************** 11820000 * /* THE LOGON WORK AREA WILL CONTAIN INFORMATION WHICH IS * 11830000 * /* NECESSARY FOR THE LOGON/LOGOFF PROCESSING ROUTINES. IT * 11840000 * /* WILL CONTAIN CONTROL BLOCK POINTERS, ENTRANCE LISTS AND * 11850000 * /* PARAMETER LISTS. * 11860000 * /* A 000000-999999 20032 * 11870000 * /******************************************************************** 11880000 * DECLARE 11890000 * 1 LWA BASED(JSXLCOMM), 11900000 * 2 LWAPPTR POINTER, /* ADDRESS OF THE LOGON WORK* 11910000 * /* AREA * 11920000 * 11930000 * 2 LWATJID FIXED(15), /* TJID USED BY IKJEFLS * 11940000 * /* FOR SEARCHIN THE LCE AND * 11950000 * /* THE CSCB CHAINS. * 11960000 * 2 * FIXED(15), /* RESERVED * 11970000 * /* FOR SEARCHIN THE LCE AND * 11980000 * /* THE CSCB CHAINS. * 11990000 * 2 LWAPRCB POINTER, /* ADDRESS OF THE REGION * 12000000 * /* CONTROL BLOCK * 12010000 * 2 LWAACCT POINTER, /* OFFSET TO ACCT FIELD IN * 12020000 * /* UADS * 12030000 * 2 LWAPSCB POINTER, /* ADDRESS OF THE PROTECTED * 12040000 * /* STEP CONTROL BLOCK * 12050000 * 2 LWAJSEL POINTER, /* ADDRESS OF THE JOB * 12060000 * /* SCHEDULING ENTRANCE LIST * 12070000 * 2 LWAPECT POINTER, /* ADDRESS OF THE ECT * 12080000 * 2 LWAAECB, /* EVENT CONTROL BLOCK FOR * 12090000 * /* THE LOGON/LOGOFF * 12100000 * /* PROMPTING TASK * 12110000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 12120000 * /* LOGOFF CODE * 12130000 * 3 LWAABCE BIT(8),/* COMPLETION CODE BYTE * 12140000 * 2 LWAPECB, /* COMMUNICATIONS ECB * 12150000 * /* FOR COMMUNICATION FROM * 12160000 * /* THE PROMPTING TASK TO * 12170000 * /* THE SCHEDULING TASK * 12180000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 12190000 * /* LOGOFF CODE * 12200000 * 3 LWAPBCE BIT(8),/* COMPLETION CODE BYTE * 12210000 * 2 LWASECB, /* COMMUNICATIONS ECB * 12220000 * /* FOR COMMUNICATION FROM * 12230000 * /* THE SCHEDULING TASK TO * 12240000 * /* THE PROMPTING TASK * 12250000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 12260000 * /* LOGOFF CODE * 12270000 * 3 LWASBCE BIT(8),/* COMPLETION CODE BYTE * 12280000 * 2 LWAFLGS BIT(32), /* FLAGS FOR USE BY LOGON * 12290000 * 3 * BIT(8), 12300000 * 3 * BIT(8), 12310000 * 3 * BIT(8), 12320000 * 3 * BIT(8), 12330000 * 4 * BIT(1), 12340000 * 4 * BIT(1), 12350000 * 4 * BIT(1), 12360000 * 4 LWALTBC BIT(1),/* LIST BC IN CONTROL * 12370000 * 4 LWATNBT BIT(1),/*USED TO INDICATE CANCEL* 12380000 * /*BY THE ATTENTION EXIT * 12390000 * /*ROUTINE. * 12400000 * 4 LWASTAY BIT(1),/*SET BY IKJEFLS1 TO * 12410000 * /*INDICATE TO IKJEFLS * 12420000 * /*THAT NO FURTHER RE- * 12430000 * /*TRYS BE ATTEMPTED. * 12440000 * 4 LWAINX1 BIT(1),/*IVE ROUTINE IN CNTRL. * 12450000 * 4 LWAILGN BIT(1),/*INITIAL LOGON INDICATOR* 12460000 * 2 LWAPTID POINTER, /* PROMPTING TASK IDENTIFIER* 12470000 * /* RETURNED BY ATTACH * 12480000 * 2 LWACTLS BIT(32), /* CONTROL BIT STRING FOR * 12490000 * /* LOGON PROMPTING TASK * 12500000 * 12510000 * 3 LWAUFAI BIT(1), /*INDICATES UNSUCCESSFUL ENQ* 12520000 * /*ON THE RESOURCE ' SYSUADS * 12530000 * /*USERID ' * 12540000 * 3 LWARFAI BIT(1), /*INDICATES AN UNSUCCESSFUL * 12550000 * /*ATTEMPT TO OBTAIN A REGION* 12560000 * /*SUITABLE TO SATISFY THE * 12570000 * /*PREVIOUS LOGON REQUEST. * 12580000 * 3 LWAFAIL BIT(1), /*INDICATES AN UNSUCCESSFUL * 12590000 * /*ATTEMPT TO OBTAIN A SYSTEM* 12600000 * /*RESOURCE.IDENTIFIED BY ANY* 12610000 * /*OTHER BIT. * 12620000 * 3 LWADISC BIT(1), /*INDICATES THAT LOGON IS TO* 12630000 * /*TERMINATE AND DISCONNECT * 12640000 * /*THE TERMINAL. * 12650000 * 3 LWANOPR BIT(1), /*IF BIT IS ONE AN INSTALLA-* 12660000 * /*TION EXIT ROUTINE HAS * 12670000 * /*PROVIDED USERID,PASSWORD, * 12680000 * /*ACCOUNT,PROCEDURE CHARAC- * 12690000 * /*TER STRINGS AND A REGION * 12700000 * /*SIZE FOR USE IN SCHEDULING* 12710000 * /*A TERMINAL JOB. * 12720000 * 3 LWANUAD BIT(1), /*IF THIS BIT IS ONE AND THE* 12730000 * /*BIT LWANOPR IS ALSO ONE NO* 12740000 * /*ACCESS OF THE UADS SHOULD * 12750000 * /*BE MADE FOR THIS TERMINAL * 12760000 * /*JOB. * 12770000 * 3 LWAJJCL BIT(1), /*JCL FOR TERMINAL JOB WAS * 12780000 * /*SUPPLIED BY AN INSTALLA- * 12790000 * /*TION EXIT ROUTINE. * 12800000 * 3 LWAPSCA BIT(1), /*PSCB ACOUNTING INFORMATION* 12810000 * /*SUPPLIED BY INSTALLATION * 12820000 * /*EXIT ROUTINE. * 12830000 * 3 LWAATR1 BIT(1), /*INFORMATION FOR THE ATR1 * 12840000 * /*FIELD OF THE PSCB WAS SUP-* 12850000 * /*PLIED BY AN INSTALLATION * 12860000 * /*EXIT ROUTINE. * 12870000 * 3 LWAATR2 BIT(1), /*INFORMATION FOR THE ATR2 * 12880000 * /*FIELD OF THE PSCB WAS SUP-* 12890000 * /*PLIED BY AN INSTALLATION * 12900000 * /*EXIT ROUTINE. * 12910000 * 3 LWAUNIT BIT(1), /*INFORMATION FOR TJBXUNIT * 12920000 * /*FIELD OF THE TJBX WAS SUP-* 12930000 * /*PLIED BY AN INSTALLATION * 12940000 * /*EXIT ROUTINE. * 12950000 * 3 LWABUPT BIT(1), /*INFORMATION FOR USER PRO- * 12960000 * /*FILE TABLE WAS SUPPLIED BY* 12970000 * /*AN INSTALLATION EXIT RTN. * 12980000 * 3 LWANONQ BIT(1), /*LOGON WILL NOT MAINTAIN AN* 12990000 * /*ENQ ON THE RESOURCE'SYSUAD* 13000000 * /*USERID' DURING THE USER'S * 13010000 * /*SESSION. * 13020000 * 3 * BIT(19), /*THESE BITS ARE RESERVED * 13030000 * 2 LWARTCD FIXED(31), /* RETURN CODE SET BY JKEFLK* 13040000 * 2 LWAPROC PTR(31), /* OFFSET TO PROCEDURE FIELD* 13050000 * /* IN THE UADS. * 13060000 * 2 LWAATXR PTR(31), /* ADDR ATTENTION EXIT RTN. * 13070000 * /* IKJEFLG * 13080000 * 2 LWAMSGR PTR(31), /* ADDR MESSAGE OUTPUT RTN. * 13090000 * /* IKJEFLGM * 13100000 * 2 LWAPP00 PTR(31), /* ADDR OF IKJEFLP00 * 13110000 * 2 LWABLDL, /* BUILD L LIST * 13120000 * 3 LWABLNO CHAR(2), /* NUMBER ENTRIES IN LIST * 13130000 * 3 LWABLEN CHAR(2), /* LENGTH OF 1 ENTRY * 13140000 * 3 LWABNAME CHAR(8),/* NAME FOR BUILD L * 13150000 * 2 LWATTRK, /* RETURN SLOT FOR TTR * 13160000 * 3 LWABLTT PTR(16), /* RELATIVE TRACK * 13170000 * 3 LWABLR PTR(8), /* BLOCK NUMBER ON TRACK * 13180000 * 3 LWABLK PTR(8), /* CONCATENATION NUMBER * 13190000 * 2 LWABLDZ BIT(8), /* LIBRARY TYPE: 0=PRIVATE * 13200000 * /* 1=LINKLIB * 13210000 * /* 2=JOBLIB * 13220000 * 2 LWABLDC BIT(8), /* 0=ALIAS, 1=MEMBER NAME * 13230000 * 2 LWADATA CHAR(42), /* USER DATE AREA * 13240000 * 2 LWANAME, /* EPLOC FOR ATTACH/XCTL * 13250000 * /* NAME * 13260000 * 3 LWARNML CHAR(1), /* USED FOR MINOR * 13270000 * /* RESOURCE NAME * 13280000 * /* LENGTH TO ENQ/DEQ * 13290000 * 3 LWARNM CHAR(7), /* USED FOR MINOR * 13300000 * /* RESOURCE NAME * 13310000 * /* IMAGE * 13320000 * 2 LWAATCH, /* ATTACH LIST * 13330000 * 3 LWAALST CHAR(52),/* ATTACH PARM LIST * 13340000 * 2 LWANQDQ CHAR(12), /* USED FOR ENQ/DEQ * 13350000 * /* PARAMETER LIST * 13360000 * 2 LWASLST CHAR(12), /* STAE CONTROL LIST * 13370000 * 2 LWAPNOT PTR(31), /* ADDR. OF NOTICE CHAIN * 13380000 * 2 LWAPMAL PTR(31), /* ADDR. OF MESSAGE CHAIN * 13390000 * 2 LWAELST, /* ECB LIST HEADER * 13400000 * 3 LWAAECBP PTR(31), /* PTR TO LWAAECB * 13410000 * 3 LWAPECBP PTR(31), /* PTR TO LWAPECB * 13420000 * 4 LWAEOEL BIT(1), /* END OF LIST BIT * 13430000 * 2 LWASARA PTR(31), /* ADDR STAE/STAI SAVE AREA * 13440000 * 2 LWARCDE FIXED(31), /* RTN CODE SET BY IKJEFLJ * 13450000 * 2 LWASTCK, /* TRACK STACKING INFO * 13460000 * 3 LWABFNO CHAR(1),/* NUMBER OF 2K BLOCKS * 13470000 * 3 LWASKAD PTR(24),/* ADDRESS OF THE STACK * 13480000 * 2 LWARES6 FIXED(31), /* RESERVED WORD * 13490000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 13500000 * /* THE FOLLOWING AREA OF THIS MACRO WILL BE USED AS THE ENTRY CODE * 13510000 * /* TO IKJEFLS1 (STAE RETRY ROUTINE). IT WILL BE EXECUTED WHENEVER * 13520000 * /* STAE NEGLECTS TO PASS IKJEFLS (STAE EXIT ROUTINE) A WORK AREA. * 13530000 * /* THE INSTRUCTIONS CONTAINED HEREIN ARE AS FOLLOWS: * 13540000 * /* USING *,15 BASE REGISTER FOR THIS CODE * 13550000 * /* LA R2,*+20 GET ADDRESS OF END OF LWA * 13560000 * /* LA R3,LWALEN GET LENGTH OF LWA * 13570000 * /* SR R2,R3 FIND START OF LWA * 13580000 * /* L R15,*+6 GET ENTRY POINT TO RETRY ROUTINE * 13590000 * /* BR R15 BRANCH TO REAL RETRY ROUTINE * 13600000 * /* DC F'0' ADDRESS OF STAE RETRY ROUTINE * 13610000 * /* DROP R15 RELEASE THE BASE REGISTER * 13620000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 13630000 * 2 LWAINST CHAR(16) BDY(WORD),/*AREA TO CONTAIN CODE * 13640000 * 2 LWARTRY PTR(31); /*ADDRESS OF STAE RETRY RTN * 13650000 * /******************************************************************** 13660000 * /* * 13670000 * /* I K J E F L J R E T U R N C O D E S * 13680000 * /* * 13690000 * /******************************************************************** 13700000 * /* IKJEFLJ COMPLETED NORMALLY * 13710000 * LWAJNRM: GEN(EQU 0); 13720000 LWAJNRM EQU 0 13730000 DS 0H 13740000 * /* JOB QUEUE ERROR * 13750000 * LWAQERR: GEN(EQU 4); 13760000 LWAQERR EQU 4 13770000 DS 0H 13780000 * /* GETMAIN ERROR * 13790000 * LWAGMER: GEN(EQU 8); 13800000 LWAGMER EQU 8 13810000 DS 0H 13820000 * /* OBTAIN ERROR * 13830000 * LWAOBTN: GEN(EQU 12); 13840000 LWAOBTN EQU 12 13850000 DS 0H 13860000 * /* CANCEL ECB POSTED * 13870000 * LWAATHP: GEN(EQU 16); 13880000 LWAATHP EQU 16 13890000 DS 0H 13900000 * /* MULTY STEP PROCEDURE * 13910000 * LWAMSPE: GEN(EQU 20); 13920000 LWAMSPE EQU 20 13930000 DS 0H 13940000 * /******************************************************************** 13950000 * /* * 13960000 * /* P O S T C O D E S F O R P E C B E C B * 13970000 * /* * 13980000 * /******************************************************************** 13990000 * /* INIT PHASE DONE POST CODE * 14000000 * INITDONE: GEN(EQU 4); 14010000 INITDONE EQU 4 14020000 DS 0H 14030000 * /* ENQ ON USER ID POST CODE * 14040000 * NQUSERID: GEN(EQU 8); 14050000 NQUSERID EQU 8 14060000 DS 0H 14070000 * /* DQ ON USER ID * 14080000 * DQUSERID: GEN(EQU 12); 14090000 DQUSERID EQU 12 14100000 DS 0H 14110000 * /* PHASE ONE PRONPTING DONE POST CODE * 14120000 * SCHEDULE: GEN(EQU 16); 14130000 SCHEDULE EQU 16 14140000 DS 0H 14150000 * /* MESSAGE BROADCASTING DONE POST CODE * 14160000 * BCDONE: GEN(EQU 20); 14170000 BCDONE EQU 20 14180000 DS 0H 14190000 * /* TERMINATE THE JOB POST CODE * 14200000 * TERMINAT: GEN(EQU 24); 14210000 TERMINAT EQU 24 14220000 DS 0H 14230000 * /******************************************************************** 14240000 * /* * 14250000 * /* P O S T C O D E S F O R S E C B E C B * 14260000 * /* * 14270000 * /******************************************************************** 14280000 * /* NQDQ RETURN CODES * 14290000 * NQDQ0: GEN(EQU 0); 14300000 NQDQ0 EQU 0 14310000 DS 0H 14320000 * /* NQDQ RETURN CODES * 14330000 * NQDQ4: GEN(EQU 4); 14340000 NQDQ4 EQU 4 14350000 DS 0H 14360000 * /* NQDQ RETURN CODES * 14370000 * NQDQ8: GEN(EQU 8); 14380000 NQDQ8 EQU 8 14390000 DS 0H 14400000 * /* START PHASE 1 PROMPTING * 14410000 * STARTP1: GEN(EQU 12); 14420000 STARTP1 EQU 12 14430000 DS 0H 14440000 * /* START PHASE 2 PROMPTING * 14450000 * STARTP2: GEN(EQU 16); 14460000 STARTP2 EQU 16 14470000 DS 0H 14480000 * /* INITATOR READY TO POST * 14490000 * INITRDY: GEN(EQU 20); 14500000 INITRDY EQU 20 14510000 DS 0H 14520000 * /* TERMINATE PROMPTING TASK * 14530000 * ENDTASK: GEN(EQU 24); 14540000 ENDTASK EQU 24 14550000 DS 0H 14560000 ** 14570000 ** 14580000 ** /* --------------------------------------------------------------- * 14590000 ** 14600000 ** /* IEECHAIN MAPPING OF CSCB * 14610000 ** /* COMMAND SCHEDULING CONTROL BLOCK * 14620000 ** /* REVISED 9-1-70 * 14630000 ** 14640000 ** /* RELEASE 20.2, 2/10/71, LEVEL=1 * 14650000 ** /* RELEASE 21, 8/02/71,LEVEL=2 * 14660000 ** 14670000 ** /* RUN TIME JOB DESCRIPTOR RESIDENT IN GLOBAL SQS AND * 14680000 ** /* COMMUNICATION AREA PASSED VIA CSCB QUEUE * 14690000 ** /* FROM COMMAND SCHEDULING ROUTINES * 14700000 ** /* TO COMMAND EXECUTION ROUTINES * 14710000 ** 14720000 ** /* CREATED BY COMMAND SCHEDULER FOR LIFE OF TASK * 14730000 ** /* FOR RDR, WTR, INIT OR MOUNT TASKS * 14740000 ** 14750000 ** /* CREATED BY QUEUE MANAGEMENT DEQUEUE FOR LIFE OF JOB * 14760000 ** /* BETWEEN DEQUEUEING AND TERMINATION * 14770000 ** 14780000 ** /* CREATED BY SYSOUT WRITER FOR DSB STRING IN QUEUE ENTRY * 14790000 ** /* TO ALLOW CANCELLATION OF WRITER SUBTASKS * 14800000 ** 14810000 ** /* UPDATED BY COMMAND SCHEDULER IN EVENT OF * 14820000 ** /* CANCEL JOBNAME AFTER SELECTION, CANCEL WRITER DEVICE, * 14830000 ** /* MODIFY, OR NON-PERIODIC STOP * 14840000 ** 14850000 ** DECLARE 14860000 ** 1 CHAIN BASED(JSELCSCB), 14870000 ** 14880000 ** 2 CHPTR PTR(31), /* CHAIN PTR TO NEXT CSCB * 14890000 ** 2 CHFLG CHAR(4), /* FOUR BYTES * 14900000 ** 3 CHVCD CHAR(1), /* COMMAND VERB CODE * 14910000 ** 3 CHSZE PTR(8), /* SIZE OF THIS CSCB IN DOUBLE 14920000 ** WORDS * 14930000 ** 3 CHSTS CHAR(1), /* STATUS FLAGS * 14940000 ** 4 CHAP BIT(1), /* ASSIGNMENT PENDING * 14950000 ** 4 CHSYS BIT(1), /* SYSTEM TASK CSCB * 14960000 ** 4 CHSOUT BIT(1), /* CANCEL ALL SYSOUT * 14970000 ** 4 CHQSPC BIT(1), /* INSUFFICIENT Q SPACE FOR 422 14980000 ** ABEND * 14990000 ** 4 CHAD BIT(1), /* ADD THIS CSCB TO CHAIN * 15000000 ** 4 CHDL BIT(1), /* DELETE THIS CSCB FROM CHAIN * 15010000 ** 4 CHFC BIT(1), /* FREE THIS CSCB'S CORE * 15020000 ** 4 CHABTERM BIT(1), /* EXECUTE BRANCH ENTRY TO 15030000 ** ABTERM * 15040000 ** 3 CHACT CHAR(1), /* FLAGS INDICATING ACTIVITY 15050000 ** INVOLVED * 15060000 ** 4 CHSWAP BIT(1), /* SWAPPABLE JOB * 15070000 ** 4 CHTERM BIT(1), /* TERMINAL JOB * 15080000 ** 4 CHDISC BIT(1), /* CANCEL IMPLIES DISCONNECT * 15090000 ** 4 CHDSI BIT(1), /* ON MEANS NO DATA SET 15100000 ** INTEGRITY * 15110000 ** 4 CHCL BIT(1), /* CANCELABLE JOB STEP * 15120000 ** 4 CHCLD BIT(1), /* CANCEL COMMUNICATION SWITCH * 15130000 ** 4 CHAIFX BIT(1), /* CANCELABLE--MFTII ONLY * 15140000 ** 4 CHIFY BIT(1), /* SYSTEM ASSIGNED 15150000 ** PROCEDURE--MFTII * 15160000 ** 2 CHKEY CHAR(8), /* 1. ID OF A STARTED TASK 15170000 ** (THIS ID IS THE TASK'S 15180000 ** STEPNAME) 2. JOBNAME OF AN 15190000 ** EXECUTED JOB. * 15200000 ** 2 CHCLS CHAR(8), /* 1.PROCNAME OF A STARTED TASK 15210000 ** (THE PROCNAME IS THE TASK'S 15220000 ** JOBNAME.) 2. JOBNAME OF AN 15230000 ** EXECUTED JOB (SAME AS CHKEY) * 15240000 ** 2 CHUNIT CHAR(3), /* UNITNAME (SET FOR STARTED 15250000 ** TASKS ONLY) * 15260000 ** 2 CHCIBCTR PTR(8), /* MAXIMAL NUMBER OF QUEUED 15270000 ** CIB'S * 15280000 ** 2 CHPKE CHAR(1), /* PROTECT KEY * 15290000 ** 2 CHUCMP CHAR(1), /* UCMI (UNIT CONTROL MODULE 15300000 ** INDICATOR) THIS IS THE ID 15310000 ** OF THE CONSOLE WHICH ISSUED 15320000 ** THE COMMAND. * 15330000 ** 2 CHTJID FIXED(15), /* TERMINAL ID * 15340000 ** 15350000 ** 2 CHASM, 15360000 ** /* BEGINNING OF OVERLAY SEGMENT * 15370000 ** 15380000 ** /* BEGINNING OF CONTROL FORMAT MAPPING AFTER * 15390000 ** /* INTERPRETATION OF COMMAND OPERANDS * 15400000 ** 15410000 ** 3 CHECBP PTR(31), /* PTR TO STOP/MODIFY ECB * 15420000 ** 3 CHCIBP PTR(31), /* PTR TO CIB -- * 15430000 ** 4 CHEND BIT(1), /* HIGH ORDER BIT OF LAST 15440000 ** PARAMETER POINTER IS ON * 15450000 ** 15460000 ** /* THE ABOVE ECB AND CIB POINTERS FORM * 15470000 ** /* THE COMMUNICATIONS PARAMETER LIST MAPPED BY IEZCOM * 15480000 ** 15490000 ** 4 * BIT(1), /* RESERVED * 15500000 ** 4 * BIT(1), /* RESERVED * 15510000 ** 4 * BIT(1), /* RESERVED * 15520000 ** 4 * BIT(1), /* RESERVED * 15530000 ** 4 * BIT(1), /* RESERVED * 15540000 ** 4 * BIT(1), /* RESERVED * 15550000 ** 4 * BIT(1), /* RESERVED * 15560000 ** 3 CHRPRTY CHAR(1), /* RESET PRIORITY OF A JOB 15570000 ** WHOSE PRIORITY HAS BEEN 15580000 ** RESET DURING EXECUTION * 15590000 ** 3 * PTR(24) BDY(BYTE), /* RESERVED * 15600000 ** 3 * FIXED(31), /* RESERVED * 15610000 ** 3 CHECB FIXED(31), /* STOP/MODIFY ECB * 15620000 ** 3 CHCECB FIXED(31), /* CANCEL ECB * 15630000 ** 3 * (2) FIXED(31), /* RESERVED * 15640000 ** 15650000 ** 3 CHSHORT, 15660000 ** /* AFTER MVT JOB SELECT TIME, END OF CSCB. * 15670000 ** /* MFTII CSCB IS UNCHANGED. * 15680000 ** 15690000 ** 4 CHSWT CHAR(1), /* COMMUNICATIONS SWITCHES * 15700000 ** 5 CHRESC BIT(1), /* RESERVED * 15710000 ** 5 CHJCT BIT(1), /* READER RETURN WITH IN-CORE 15720000 ** JCT * 15730000 ** 5 CHPSD BIT(1), /* WRITER PAUSE DATASET * 15740000 ** 5 CHPSF BIT(1), /* WRITER PAUSE FORMS * 15750000 ** 5 CHAC BIT(1), /* ID SPECIFIED ON S COMMAND * 15760000 ** 5 CHRESB BIT(1), /* RESERVED * 15770000 ** 5 * BIT(2), /* RESERVED (ICB337) 40890 * 15780000 ** 4 CHTCB PTR(24) BDY(BYTE), /* TCB PTR (MFTII ONLY) * 15790000 ** 4 CHSPB PTR(31), /* TCB PTR FOR ABTERM--MFTII * 15800000 ** 4 CHSPC PTR(31), /* PTR TO SMALL PARTITION 15810000 ** LIST--MFTII TRANSIENT RDR 15820000 ** TTR--MFTII COMPLETION CODE 15830000 ** FOR ABTERM--MFTII * 15840000 ** 4 CHJCL PTR(31), /* JCLS PTR -- IN-CORE JCT PTR 15850000 ** -- DA JCT TTR * 15860000 ** 15870000 ** 4 CHQPA (9) FIXED(31), /* INPUT Q MANAGER PARAMETER 15880000 ** AREA * 15890000 ** 4 CHSQA (9) FIXED(31), /* SYSOUT Q MANAGER PARAMETER 15900000 ** AREA NOTE--THESE 2 QMPAS 15910000 ** EXIST IN MVT CSCBS ONLY 15920000 ** BEFORE INITIATOR JOB SELECT 15930000 ** TIME. * 15940000 ** 15950000 ** 4 CHUSC FIXED(31), /* TIOT LENGTH--MFTII * 15960000 ** 4 CHJSCB PTR(31), /* JSCB PTR--MFTII ONLY * 15970000 ** 4 * (4) FIXED(31); /* RESERVED * 15980000 ** 15990000 ** /* END OF CONTROL FORMAT MAPPING AFTER * 16000000 ** /* INTERPRETATION OF COMMAND OPERANDS * 16010000 ** 16020000 ** DECLARE 1 CHAINS01 16030000 ** BASED(ADDR(CHASM)), /* OVERLAY * 16040000 ** 16050000 ** /* BEGINNING OF INPUT FORMAT MAPPING BEFORE * 16060000 ** /* INTERPRETATION OF COMMAND OPERANDS * 16070000 ** 16080000 ** 2 CHBUF CHAR(124), /* COMMAND IMAGE (OPERAND 16090000 ** FIELD) * 16100000 ** 2 CHTYPE CHAR(1), /* FLAGS * 16110000 ** 3 CHDSTAT BIT(1), /* STATUS DISPLAY (SVC 104) CMD * 16120000 ** 3 * BIT(5), /* RESERVED * 16130000 ** 3 CHHIAR BIT(1), /* ON MEANS H1 SPECIFIED ON 16140000 ** COMMAND (ICB337) 40890 * 16150000 ** 3 CHDEF BIT(1), /* ON MEANS DEFAULT TO 16160000 ** H0 (ICB337) 40890 * 16170000 ** 2 * CHAR(1), /* RESERVED * 16180000 ** 2 CHCNID CHAR(1), /* DISPLAY-RECEIVING CONSOLE ID * 16190000 ** 2 CHARID CHAR(1), /* DISPLAY SCREEN-AREA ID * 16200000 ** 2 CHPEND PTR(31), /* CHAIN PTR FOR PENDING S 16210000 ** CMS--MFTII ONLY * 16220000 ** 2 CHINC FIXED(15), /* UNIQUE CTR FOR INTERPRETER * 16230000 ** 2 CHCSYSO CHAR(1), /* EXPRESS CANCEL SYSOUT * 16240000 ** 3 CHALL BIT(1), /* ALL SPECIFIED * 16250000 ** 3 CHINN BIT(1), /* IN SPECIFIED * 16260000 ** 3 CHOUT BIT(1), /* OUT SPECIFIED * 16270000 ** 3 CHHOLD BIT(1), /* HOLD Q SPECIFIED * 16280000 ** 3 CHQUE BIT(1), /* SPECIFIC QUEUE * 16290000 ** 3 CHDUMP BIT(1), /* DUMP SPECIFIED * 16300000 ** 3 CHJB BIT(1), /* END SCAN SWITCH * 16310000 ** 3 CHRESD BIT(1), /* RESERVED * 16320000 ** 2 CHSPA CHAR(1), /* MFTII STC SWITCHES * 16330000 ** 2 * CHAR(8), /* RESERVED * 16340000 ** 16350000 ** /* END OF INPUT FORMAT MAPPING BEFORE * 16360000 ** /* INTERPRETATION OF COMMAND OPERANDS * 16370000 ** 16380000 ** 2 CHLAST BDY(BYTE); 16390000 ** /* END OF CSCB * 16400000 ** 16410000 ** /* --------------------------------------------------------------- * 16420000 ** 16430000 ** DECLARE 16440000 ** 1 PSCB BASED(LWAPSCB), 16450000 ** /* *************************************************************** * 16460000 ** /* THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND * 16470000 ** /* FILLED IN FROM THE UADS . A FIXED LENGTH TABLE WITH ATTRIBUTE * 16480000 ** /* AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- * 16490000 ** /* BUTES AND ACCOUNTING DATA ON A USERID BASIS. THE ADDRESS OF PS * 16500000 ** /* IS PASSED TO THE TMP. HENCE IT IS AN EXTERNAL INTERFACE * 16510000 ** /* *************************************************************** * 16520000 ** 16530000 ** 2 PSCBUSER CHAR(7) BDY(WORD), 16540000 ** /* USERID PADDED RIGHT WITH 16550000 ** BLANKS * 16560000 ** 2 PSCBUSRL PTR(8), /* LENGTH OF USERID * 16570000 ** 2 PSCBGPNM CHAR(8), /* ESOTERIC GROUP NAME INIT BY 16580000 ** LOGON FROM UADS USED BY DYN 16590000 ** ALLOC WHEN UNITNAME NOT 16600000 ** SPECIFIED BUT IS REQUIRED * 16610000 ** 2 PSCBATR1 CHAR(2), /* A 15 BIT STRING OF USER 16620000 ** ATTRIBUTES * 16630000 ** 3 PSCBCTRL BIT(1), /* OPERATOR COMMAND USER * 16640000 ** 3 PSCBACCT BIT(1), /* ACCOUNT * 16650000 ** 3 PSCBJCL BIT(1), /* SUBMIT BITS * 16660000 ** 3 * BIT(1), /* RESERVED * 16670000 ** 3 * BIT(1), /* RESERVED * 16680000 ** 3 * BIT(1), /* RESERVED * 16690000 ** 3 * BIT(1), /* RESERVED * 16700000 ** 3 * BIT(1), /* RESERVED * 16710000 ** 2 PSCBATR2 CHAR(2), /* A 15 BIT STRING RESERVED FOR 16720000 ** INSTALLATION USE * 16730000 ** 2 PSCBCPU FIXED(31), /* CUMULATIVE CPU TIME USED 16740000 ** DURING SESSION * 16750000 ** 2 PSCBSWP FIXED(31), /* CUMULATIVE TIME RESIDENT IN 16760000 ** THE REGION * 16770000 ** 2 PSCBLTIM FIXED(31), /* ACTUAL LOGON TIME OF DAY * 16780000 ** 2 PSCBTCPU FIXED(31), /* TOTAL CPU TIME USED IN THIS 16790000 ** ACCOUNTING PERIOD,EXCLUDING 16800000 ** THE CURRENT SESSION. * 16810000 ** 2 PSCBTSWP FIXED(31), /* TOTAL TIME USER IS RESIDENT 16820000 ** IN THE REGION DURING THIS 16830000 ** ACCT. PER.,EXCL. THE CURR. 16840000 ** SES * 16850000 ** 2 PSCBTCON FIXED(31), /* TOTAL TIME USER IS CONNECTED 16860000 ** THIS ACCT. PERIOD,EXCLUDING 16870000 ** THIS CURR. SES * 16880000 ** 2 PSCBTCO1 FIXED(31), 16890000 ** 2 PSCBRLGB PTR(31), /* PTR TO RELOGON BUFFER * 16900000 ** 2 PSCBUPT PTR(31), /* PTR TO USER PROFILE TABLE * 16910000 ** 2 PSCBUPTL FIXED(15), /* LENGTH OF UPT * 16920000 ** 2 * BIT(16), /* RESERVED FOR IBM USE * 16930000 ** 2 PSCBRSZ POINTER(32), /* REGION SIZE REQUESTED IN 2K 16940000 ** UNITS * 16950000 ** 2 PSCBU CHAR(8); /* RESERVED FOR INSTALLATION 16960000 ** USE * 16970000 ** 16980000 ** 16990000 ** /* *************************************************************** * 17000000 ** /* THE USER PROFILE TABLE (UPT) IS BUILT BY THE LOGON/LOGOFF * 17010000 ** /* SCHEDULER FROM INFORMATION STORED IN THE UADS AND FROM THE * 17020000 ** /* LOGON COMMAND. IT IS IN CORE SHARED BY THE TMP AND THE * 17030000 ** /* LOGON/LOGOFF SCHEDULER. CP'S AND SERVICE ROUTINES CAN MODIFY * 17040000 ** /* THE UPT, BUT THEY CANNOT FREE IT. * 17050000 ** /* *************************************************************** * 17060000 ** DECLARE 17070000 ** 1 UPT BASED(PSCBUPT), 17080000 ** 2 * CHAR(2) BDY(WORD), /* RESERVED * 17090000 ** 2 UPTUSER CHAR(10), /* RESERVED FOR INSTALLATION * 17100000 ** 2 UPTSWS CHAR(1), /* USERS ENVIRONMENT SWITCHES * 17110000 ** 3 * BIT(1), /* RESERVED * 17120000 ** 3 UPTNPRM BIT(1), /* NO PROMPTING TO BE DONE * 17130000 ** 3 UPTMID BIT(1), /* PRINT MESSAGE IDENTIFIERS * 17140000 ** 3 UPTNCOM BIT(1), /* NO USER COMMUNICATION 17150000 ** ALLOWED VIA SEND COMMAND * 17160000 ** 3 UPTPAUS BIT(1), /* PAUSE FOR '?' WHEN IN NON- 17170000 ** INTERACTIVE MODE * 17180000 ** 3 UPTALD BIT(1), /* ATTN HAS BEEN SPECIFIED AS 17190000 ** THE LINE DELETE CHARACTER * 17200000 ** 3 * BIT(1), /* RESERVED * 17210000 ** 3 * BIT(1), /* RESERVED * 17220000 ** 2 UPTCDEL CHAR(1), /* CHAR DELETE CHARACTER * 17230000 ** 2 UPTLDEL CHAR(1), /* LINE DELETE CHARACTER * 17240000 ** 2 * CHAR(1); /* RESERVED * 17250000 ** 17260000 ** DECLARE 17270000 ** 1 RCB BASED(LWAPRCB), 17280000 ** 2 RCBRCT PTR(31), /* ADDR OF RCT'S TCB * 17290000 ** 2 RCBECB FIXED(31), /* RCT'S ECB * 17300000 ** 2 RCBDIECB FIXED(31), /* TSC'S ECB * 17310000 ** 2 RCBTJID FIXED(15), /* TERM JOB ID OF CURRENT TS 17320000 ** JOB EXEC IN REGION * 17330000 ** 2 RCBRSIZE FIXED(15), /* SIZE OF THIS TS REGION * 17340000 ** 2 RCBLSQSZ FIXED(15), /* SIZE OF LOCAL SQS FOR THIS 17350000 ** TS REGION * 17360000 ** 2 RCBNMBR CHAR(1), /* REGION NUMBER ASSIGNED TO 17370000 ** THIS REGION * 17380000 ** 2 RCBPKEY CHAR(1), /* PROTECT KEY OF CURRENT TS 17390000 ** JOB IN THIS REGION * 17400000 ** 2 RCBUMSMN CHAR(1), /* NO OF MAIN STORAGE MAP 17410000 ** ENTRIES * 17420000 ** 2 RCBFLG CHAR(1), /* FIRST BYTE OF RCB FLAGS * 17430000 ** 3 RCBFQU BIT(1), /* QUIESCE FLAG-CURR USER 17440000 ** SHOULD BE QUIESCED * 17450000 ** 3 RCBFSO BIT(1), /* SWAP OUT * 17460000 ** 3 RCBFSI BIT(1), /* SWAP IN USERS TJID IS IN THE 17470000 ** RCB * 17480000 ** 3 RCBFRS BIT(1), /* RESTORE FLAG-USER WHOSE TJID 17490000 ** IS IN THE RCB EQU EQU * 17500000 ** 3 RCBOCAB BIT(1), /* FUNCTION FLG SET BY IKJEAS02 17510000 ** TO INVOKE IKJEAT07 * 17520000 ** 3 RCBSTR3 BIT(1), /* TELLS T05 TO POST TSCECB4 TO 17530000 ** GET T06 OUT OF WAIT FROM 17540000 ** MODIFY COMMAND FOR REG STOP * 17550000 ** 3 RCBFAT BIT(1), /* ATTENTION EXIT- A ATTN EXIT 17560000 ** IS REQ FOR A USER * 17570000 ** 3 RCBFND BIT(1), /* END RCT - RCT SHOULD RETURN 17580000 ** TO TSC-NORMALLY * 17590000 ** 2 RCBFLG2 CHAR(1), /* SECOND BYTE OF RCB FLAGS * 17600000 ** 3 RCBFSE BIT(1), /* SWAP END FLAG-SWAP I/O HAS 17610000 ** COMPLETED * 17620000 ** 3 RCBSTOP BIT(1), /* REGION STOP REQUESTED * 17630000 ** 3 RCBACTV BIT(1), /* INDICATES ACTIVE RCT. SET TO 17640000 ** 1 BY RCT INIT RESET TO 0 BY 17650000 ** RCT TERM * 17660000 ** 3 RCBSTR1 BIT(1), /* INDICATES REGION START 17670000 ** REQUESTED; ATTACH AN RCT * 17680000 ** 3 RCBSTR2 BIT(1), /* INDICATES REGION START 17690000 ** REQUESTED; CREATE SWAP LOGON 17700000 ** IMAGE * 17710000 ** 3 RCBDEAD BIT(1), /* REGION TERMINATED ABNORMALLY * 17720000 ** 3 RCBLOGPR BIT(1), /* INDICATE LOGON IMAGE 17730000 ** PROCESSING IN IKJEAT03 * 17740000 ** 3 RCBMODFY BIT(1), /* INDICATE TO T03 MODIFY IN PROG 17750000 ** FOR THIS REG - DO NOT ACCEPT 17760000 ** ANOTH MODIFY UNTIL RESET BY R0 17770000 ** WHEN REG INIT COMPLETE OR R00 17780000 ** WHEN REG CANCELLED DUE TO 17790000 ** INSUFFICIENT CORE * 17800000 ** 2 RCBFBQE CHAR(1), /* USED TO SAVE NUMBER OF 17810000 ** FBQE'S * 17820000 ** 2 RCBUTTMQ FIXED(15), /* TT MAP QUE PTR TO LOC OF 17830000 ** LOGON IMAGE ON SWAP * 17840000 ** 2 RCBCUSE FIXED(15), /* NO OF USERS CURR LOGGED ON 17850000 ** IN THIS REGION TSC WILL 17860000 ** INCREMENT COUNT BEFORE 17870000 ** DISCONNECTTSC WILL DECREMENT 17880000 ** COUNT IN LOGON * 17890000 ** 2 RCBEXTNT PTR(31), /* PTR TO TJBX CREATED SURING 17900000 ** LOGON INIT FOR REG * 17910000 ** 2 RCBUMSM PTR(31), /* PTR TO MS MAP DESCRIBING 17920000 ** THIS REGION LOGON * 17930000 ** 2 RCBSDCB PTR(31), /* ADDR OF SWAP DS CONTROL 17940000 ** BLOCK * 17950000 ** 2 RCBPQE PTR(31), /* ADDR OF PQE PTR IN SQS-FOR 17960000 ** RCT'S REGION INIT * 17970000 ** 2 RCBPRG CHAR(12), /* SVC PURGE I/O PARM LIST * 17980000 ** 2 RCBQPL PTR(31), /* ADDR OF QUIESCE I/O * 17990000 ** 2 RCBSTECB FIXED(31), /* ECB WAITED ON BY THE TSC. 18000000 ** USED TO INDICATE END OF RTC 18010000 ** PROCESSING IN EVENT OF 18020000 ** SUBSYSTEM RECOVERY * 18030000 ** 2 RCBRCOVR CHAR(1), /* INDICATE CURRENT STATE OF 18040000 ** RCT FOR RECOVERY PURPOSES IN 18050000 ** EVENT SUBSYSTEM FAILURE * 18060000 ** 2 RCBRSFLG CHAR(1), /* INDICATORS FOR OUT OF CORE 18070000 ** ABEND * 18080000 ** 3 RCBRSTRT BIT(1), /* INDICATE RESTORE STARTED * 18090000 ** 3 RCBTCBDN BIT(1), /* INDICATE TCBS REQUEUED * 18100000 ** 3 RCBQELCM BIT(1), /* INDICATE QEL RESTORE 18110000 ** PROCESSING COMPLETE * 18120000 ** 3 RCBTQECM BIT(1), /* INDICATE TQE RESTORE 18130000 ** PROCESSING COMPLETE * 18140000 ** 4 RCBRQIQC BIT(1), /* INDICATE RQE AND IQE RESTORE 18150000 ** PROCESSING COMP * 18160000 ** 3 * BIT(1), /* RESERVED * 18170000 ** 3 RCBIORSC BIT(1), /* INDICATE I/O RESTORE 18180000 ** PROCESSING COMPLETE * 18190000 ** 3 RCBWTORC BIT(1), /* INDICATE WTOR RESTORE 18200000 ** PROCESSING COMPLETE * 18210000 ** 3 RCBTACMP BIT(1), /* INDICATE TRANSIENT AREA 18220000 ** RESTORE * 18230000 ** 2 RCBQUFLG CHAR(1), /* INDICATIONS FOR OUT OF CORE 18240000 ** ABEND * 18250000 ** 3 RCBQUSTR BIT(1), /* QUIESCE STARTED * 18260000 ** 3 RCBIOSTR BIT(1), /* INDICATE 1ST ENTRY I/O PURGE 18270000 ** COMPLETE * 18280000 ** 3 RCBTADON BIT(1), /* TRANSIENT AREA QUIESCE DONE * 18290000 ** 3 RCBWTORD BIT(1), /* WTOR QUIESCE DONE * 18300000 ** 3 RCBQELDN BIT(1), /* QEL QUIESCE DONE * 18310000 ** 3 RCBIODON BIT(1), /* INDICATE 2ND ENTRY I/O PURGE 18320000 ** COMPLETE * 18330000 ** 3 RCBTQEDN BIT(1), /* TQE QUIESCE * 18340000 ** 3 RCBRQIQD BIT(1), /* INDICATE IQE AND RQE 18350000 ** COMPLETE * 18360000 ** 2 RCBSWTCH CHAR(1), /* SET & RESET BY IKJEAT07 TO 18370000 ** INDICATE METHOD OF SEARCH BY 18380000 ** IKJEAT07 * 18390000 ** 3 * BIT(1), /* RESERVED * 18400000 ** 3 RCBSWTON BIT(1), /* WHEN SET WITH BIT 0 SEARCH 18410000 ** BY TJID & TCB ADDR * 18420000 ** 3 RCBEXTRN BIT(1), /* INDICATE USAGE OF EXTERNAL 18430000 ** BY IKJEAR02 AND IKJEAR03 * 18440000 ** 3 RCBRMSAL BIT(1), /* SOLID MACHINE CHECK IN USER 18450000 ** REGION * 18460000 ** 3 RCBRMS1U BIT(1), /* INTERMITTENT MACHINE CHECK 18470000 ** IN USER REGION * 18480000 ** 3 * BIT(1), /* RESERVED * 18490000 ** 3 * BIT(1), /* RESERVED * 18500000 ** 3 * BIT(1), /* RESERVED * 18510000 ** 2 RCBCONID CHAR(1), /* CONSOLE ID FOR START COMMAND 18520000 ** OR MODIFY COMMAND * 18530000 ** 2 RCBSTAEN CHAR(1), /* INDEX VALUE TO SCHEDULE STAE 18540000 ** RETRY ROUTINES FOR RCT * 18550000 ** 2 * CHAR(2); /* RESERVED * 18560000 ** 18570000 ** DECLARE 18580000 ** 1 TJBX BASED(RCBEXTNT), 18590000 ** 2 TJBXFST PTR(31), /* ADDR LOGON TCB WHICH IS 18600000 ** FIRST IN USER READY QUEUE * 18610000 ** 2 TJBXLAST PTR(31), /* ADDR LAST TCB IN USER READY 18620000 ** QUEUE * 18630000 ** 2 TJBXDSE PTR(31), /* ADDR OF DSE USED BY TSO'S 18640000 ** DYN ALLOC * 18650000 ** 2 TJBXSVRB PTR(31), /* ADDR FIRST SVRB PURGED FROM 18660000 ** TRANSIENT AREA QUEUE * 18670000 ** 2 TJBXRQE PTR(31), /* ADDR FIRST RQE PURGED FROM 18680000 ** ASYNCHRONOUS EXIT QUEUE A * 18690000 ** 2 TJBXIQE PTR(31), /* ADDR FIRST IQE PURGED FROM 18700000 ** ASYNCHRONOUS EXIT QUEUE J * 18710000 ** 2 TJBXTAXE FIXED(31), /* QUEUE OF TAXE'S USED TO 18720000 ** SCHEDULE ATTENTION EXITS * 18730000 ** 2 TJBXLECB FIXED(31), /* LOGON ECB POSTED BY RCT * 18740000 ** 2 TJBXPSWD CHAR(8), /* USERS LOGON PASSWORD-IF 18750000 ** BLANK-NOT REQUIRED * 18760000 ** 2 * FIXED(31), /* RESERVED * 18770000 ** 2 TJBXAIQE PTR(31), /* ADDR ATTN IQE CURRENTLY 18780000 ** BEING PROCESSED * 18790000 ** 2 TJBXQPL PTR(31), /* ADDR QUIECSE PARM LIST * 18800000 ** 2 TJBXNQPE FIXED(15), /* NUMBER ENTRIES IN QPL * 18810000 ** 2 TJBXNTCB FIXED(15), /* NUMBER TCBS ACTIVE IN USER 18820000 ** JOB STEP * 18830000 ** 2 TJBXLQPL FIXED(15), /* LENGTH QPL * 18840000 ** 2 TJBXHBFL CHAR(1), /* CUR VAL OF LAST HOLDBUF 18850000 ** LEVEL. USED BY STAX SVC 18860000 ** ROUTINE * 18870000 ** 2 * CHAR(1), /* RESERVED * 18880000 ** 2 TJBXACT FIXED(31), /* TTR OF ACT ON SYSJOBQE * 18890000 ** 2 TJBXAECB PTR(31), /* POINTER TO LOGON/LOGOFF ECB 18900000 ** UNTIL LOGON PROCESSING THEN 18910000 ** TO CSCB CANCEL ECB AFTER 18920000 ** CSCB IS CREATED * 18930000 ** 2 TJBXKEYA PTR(31); /* ADDRESS OF A STORAGE KEY SAVE 18940000 ** AREA USED BY RCT * 18950000 ** 18960000 ** DECLARE 18970000 ** 1 DSE BASED(DSEPTR), 18980000 ** /* *************************************************************** * 18990000 ** 19000000 ** 19010000 ** /* IS USED TO MAINTAIN DATA SET INFORMATION, SUCH AS THE DDNAME-- * 19020000 ** /* ME RELATIONSHIP. IT IS A SERIES OF CHAINED ELEMENTS EACH ONE * 19030000 ** /* ABLE IN SIZE DEPENDENT ON THE INFORMATION PRESENT. * 19040000 ** 19050000 ** 19060000 ** /* *************************************************************** * 19070000 ** 2 DSEFORWD PTR(31), /* ADDRESS OF NEXT DSE BLK(ZERO 19080000 ** IN LAST DSE) * 19090000 ** 2 DSEBCKWD PTR(31), /* ADDRESS OF PREV. DSE BLK 19100000 ** (ZERO IN FIRST DSE) * 19110000 ** 2 DSEBLKSZ FIXED(15), /* TOTAL NO. OF BYTES IN THIS 19120000 ** DSE BLK INCLUDES THIS FIELD 19130000 ** AND TWO PRIOR FIELDS * 19140000 ** 2 DSESTAT CHAR(1), /* THE ALLOCATED STATUS OF 19150000 ** THE DATA SET * 19160000 ** 3 * BIT(1), /* RESERVED * 19170000 ** 3 * BIT(1), /* RESERVED * 19180000 ** 3 * BIT(1), /* RESERVED * 19190000 ** 3 * BIT(1), /* RESERVED * 19200000 ** 3 DSESHR BIT(1), /* SHR * 19210000 ** 3 DSENEW BIT(1), /* NEW * 19220000 ** 3 DSEMOD BIT(1), /* MOD * 19230000 ** 3 DSEOLD BIT(1), /* OLD * 19240000 ** 2 DSECNTRL CHAR(1), /* STATUS OF DATA SETS WHEN 19250000 ** BITS ARE ON AS FOLLOWS * 19260000 ** 3 DSEDYN BIT(1), /* DATA SET ALLOCATED 19270000 ** DYNAMICALLY * 19280000 ** 3 DSENUSED BIT(1), /* DATA SET NOT IN USE * 19290000 ** 3 DSEMEM BIT(1), /* MEMBER FIELD IS PRESENT IN 19300000 ** THIS DSE * 19310000 ** 3 DSEDTIOT BIT(1), /* TIOT ENTRY IS DYNAM * 19320000 ** 3 DSECON BIT(1), /* DATA SET CONCATENATED 19330000 ** DYNAMICALLY * 19340000 ** 3 * BIT(1), /* RESERVED * 19350000 ** 3 DSEPERM BIT(1), /* DATA SET IS PERMAMENTLY 19360000 ** ALLOCATED EQU * 19370000 ** 3 * BIT(1), /* RESERVED * 19380000 ** 2 DSEDDNAM CHAR(8), /* DDNAME AS IT APPEARS IN TIOT * 19390000 ** 2 DSETCBAD PTR(31), /* ADD. OF TCB FOR CP WHICH 19400000 ** SECURED DYNAMIC ALLOC. * 19410000 ** 2 DSETTRPW FIXED(31), /* RELATIVE TTR OF PASSWD FOR 19420000 ** THIS FIELD IS ZERO. * 19430000 ** 2 DSENDISP CHAR(1), /* NORMAL DISPOSITION IND. BY 19440000 ** BIT SETTINGS: EQU EQU EQU 19450000 ** EQU * 19460000 ** 3 * BIT(1), /* RESERVED * 19470000 ** 3 * BIT(1), /* RESERVED * 19480000 ** 3 * BIT(1), /* RESERVED * 19490000 ** 3 * BIT(1), /* RESERVED * 19500000 ** 3 DSEKEP BIT(1), /* KEEP * 19510000 ** 3 DSEDEL BIT(1), /* DELETE * 19520000 ** 3 DSECAT BIT(1), /* CATLG * 19530000 ** 3 DSEUCAT BIT(1), /* UNCATLG * 19540000 ** 2 DSEADISP CHAR(1), /* ABNORMAL DISPOSITION IS IND. 19550000 ** BY SETTING BITS IN THIS 19560000 ** FIELD THE SAME AS IN 19570000 ** DSENDISP * 19580000 ** 3 * BIT(1), /* RESERVED */ 19590000 ** 3 * BIT(1), /* RESERVED */ 19600000 ** 3 * BIT(1), /* RESERVED */ 19610000 ** 3 * BIT(1), /* RESERVED */ 19620000 ** 3 DSEAKEP BIT(1), /* KEEP */ 19630000 ** 3 DSEADEL BIT(1), /* DELETE */ 19640000 ** 3 DSEACAT BIT(1), /* CATALOG */ 19650000 ** 3 DSEAUCAT BIT(1), /* UNCATALOG */ 19660000 ** 2 DSEDSORG CHAR(1), /* ORGANIZATION IND. BY 19670000 ** FOLLOWING BITS: * 19680000 ** 3 DSEIS BIT(1), /* INDEXED SEQUENTIAL * 19690000 ** 3 DSEPS BIT(1), /* PHYSICAL SEQUENTIAL * 19700000 ** 3 DSEDA BIT(1), /* DIRECT ORGANIZATION EQU EQU 19710000 ** EQU * 19720000 ** 3 * BIT(1), /* RESERVED * 19730000 ** 3 * BIT(1), /* RESERVED * 19740000 ** 3 * BIT(1), /* RESERVED * 19750000 ** 3 DSEPO BIT(1), /* PARTITIONED ORGANIZATION * 19760000 ** 3 DSEU BIT(1), /* UNMOVABLE * 19770000 ** 2 DSEDSLNG PTR(8), /* LENGTH OF DATA SET NAME IN 19780000 ** BYTES (1-44) * 19790000 ** 2 DSEDSNAM CHAR(44), /* DATA SET NAME DSE DESCRIBES * 19800000 ** 1 DSEMEMBR CHAR(8) BASED(R8); /* FIELD CAN ONLY BE PRESENT 19810000 ** WHEN DATA SET IS OF A 19820000 ** PARTITIONED ORGANIZATION. IT 19830000 ** IS THE MEMBER OF THE PDS 19840000 ** CURRENTLY ALLOCATEDAND IS 19850000 ** PRESENT WHEN BIT TWO OF 19860000 ** CONTROL BYTE IS SET * 19870000 ** 19880000 ** 19890000 ** /* RELEASE 20, 3/04/71, LEVEL=1 * 19900000 ** /* RELEASE 21, 3/05/71, LEVEL=1 * 19910000 ** 19920000 ** DECLARE 19930000 ** 1 TIOT1 BASED(TIOTPTR) BDY(WORD), 19940000 ** 5 TIOCNJOB CHAR(8), /* JOB NAME * 19950000 ** 5 TIOCSTEP CHAR(16); /* STEP NAME * 19960000 **/******************************************************************** 19970000 **/* * 19980000 **/* DD ENTRY: * 19990000 **/* * 20000000 **/* A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, THERE * 20010000 **/* MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY. * 20020000 **/* * 20030000 **/******************************************************************** 20040000 ** DECLARE 20050000 ** 1 TIOENTRY BASED(ADDR(TIOT1)+24), 20060000 ** 10 TIOELNGH PTR(8), /* LENGTH OF THIS ENTRY * 20070000 ** 10 TIOESTTA BIT(8), /* STATUS -A- * 20080000 ** 11 TIOSLTYP BIT(1), /* NONSTANDARD LABEL (NOTE 1)* 20090000 ** 11 TIOSPLTP BIT(1), /* SPLIT CYLINDER PRIMARY * 20100000 ** 11 TIOSPLTS BIT(1), /* SPLIT CYLINDER SECONDARY * 20110000 ** 11 TIOSJBLB BIT(1), /* JOBLIB INDICATOR * 20120000 ** 11 TIOSDADS BIT(1), /* DADSM ALLOCATION NECESSARY* 20130000 ** 11 TIOSLABL BIT(1), /* LABELED/UNLABELED (NOTE 1)* 20140000 ** 11 TIOSDSP1 BIT(1), /* DISPOSITION BIT 1 * 20150000 ** 11 TIOSDSP2 BIT(1), /* DISPOSITION BIT 2 * 20160000 **/* NOTE 1 - IF BOTH BITS TIOSLTYP AND TIOSLABL ARE ON, THE VOLUME * 20170000 **/* IS A TAPE AND HAS AN 'ANSI' LABEL. * 20180000 ** 10 TIOERLOC CHAR(2), /* REL. LOC OF POOL * 20190000 ** 15 TIOEWTCT CHAR(1), /* COUNT OF NUMBER OF DEVICES 20200000 ** DURING ALLOCATION STILL 20210000 ** ELIGIBLE TO DADSM ALLOCATE 20220000 ** THIS DATA SET REQUEST * 20230000 ** 15 TIOELINK CHAR(1), /* DURING ALLOCATION OF 20240000 ** ALL BUT POOLS THIS WILL BE 20250000 ** A LINK TO THE APPROPRIATE 20260000 ** PRIME SPLIT,UNIT AFFIN 20270000 ** VOL.,AFFIN OR SUBALLOCATE * 20280000 **/* FOLLOWING BIT MASKS APPLY TO 'TIOELINK' FIELD */ 20290000 ** 17 TIOSYOUT BIT(1), /* SYSOUT D.S.THAT HAS DATA * 20300000 ** 17 TIOTOPEN BIT(1), /* DATA SET IS OPEN * 20310000 ** 17 TIOTTERM BIT(1), /* THIS IS A TERMINAL * 20320000 ** 17 TIOEDYNM BIT(1), /* 'DYNAM' KEYWORD USED * 20330000 ** 17 TIOEQNAM BIT(1), /* 'QNAME' KEYWORD USED * 20340000 ** 17 * BIT(3), /* RESERVED */ 20350000 ** 10 TIOEDDNM CHAR(8), /* DDNAME * 20360000 ** 10 TIOEJFCB CHAR(3), /* JFCB DISK ADDR * 20370000 ** 10 TIOESTTC BIT(8), /* STATUS -C- * 20380000 ** 11 TIOSDKCR BIT(1), /* CORE/DISK ADDRESS * 20390000 ** 11 TIOSDEFR BIT(1), /* DEFERRED MOUNT * 20400000 ** 11 TIOSAFFP BIT(1), /* UNIT AFFINITY PRIMARY * 20410000 ** 11 TIOSAFFS BIT(1), /* UNIT AFFINITY SECONDARY * 20420000 ** 11 TIOSVOLP BIT(1), /* VOLUME AFFINITY PRIMARY * 20430000 ** 11 TIOSVOLS BIT(1), /* VOLUME AFFINITY SECONDARY * 20440000 ** 11 TIOSBALP BIT(1), /* SUBALLOCATE PRIMARY * 20450000 ** 11 TIOSBALS BIT(1), /* SUBALLOCATE SECONDARY * 20460000 **/******************************************************************** 20470000 **/* * 20480000 **/* DEVICE ENTRIES: * 20490000 **/* * 20500000 **/* 1. DURING ALLOCATION: * 20510000 **/* ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR * 20520000 **/* EACH PUBLIC DEVICE ELIGIBLE. * 20530000 **/* * 20540000 **/* 2. DURING PROBLEM PROGRAM: * 20550000 **/* ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE * 20560000 **/* * 20570000 **/******************************************************************** 20580000 ** 10 TIOESTTB BIT(8), /* STATUS -B- * 20590000 ** 11 TIOSUSED BIT(1), /* DATA SET IS ON DEVICE * 20600000 ** 11 TIOSREQD BIT(1), /* DATA SET WILL USE DEVICE * 20610000 ** 11 TIOSPVIO BIT(1), /* DEVICE VIOLATES SEPARATION* 20620000 ** 11 TIOSVLSR BIT(1), /* VOLUME SERIAL PRESENT * 20630000 ** 11 TIOSSETU BIT(1), /* SETUP MESSAGE REQUIRED * 20640000 ** 11 TIOSMNTD BIT(1), /* MOUNTED * 20650000 ** 11 TIOSUNLD BIT(1), /* UNLOAD REQUIRED * 20660000 ** 11 TIOSVERF BIT(1), /* VERIFICATION REQUIRED * 20670000 ** 10 TIOEFSRT PTR(24), /* SRT POINTER * 20680000 **/******************************************************************** 20690000 **/* * 20700000 **/* TIOT POOL ENTRY * 20710000 **/* * 20720000 **/******************************************************************** 20730000 ** 5 POOLSTAR, 20740000 ** 10 * CHAR(1), 20750000 ** 10 TIOPNSLT PTR(8), /* NR. OF SLOTS FOR POOL * 20760000 ** 10 * CHAR(1), 20770000 ** 10 TIOPNSRT PTR(8), /* NR. OF DEVICES (FILLED 20780000 ** SLOTS) * 20790000 ** 10 TIOPPOOL CHAR(8), /* POOL NAME * 20800000 ** 10 TIOPSTTB CHAR(1), /* STATUS OF SLOT * 20810000 ** 10 TIOPSLOT PTR(24), /* SRT ADDRESS OF EMPTY SLOT * 20820000 ** 10 TIOTFEND CHAR(4); /* FINAL END OF AN ENTRY OR 20830000 ** THE TIOT * 20840000 **/* **************************************************************** * 20850000 **/* * 20860000 **/* U N I T C O N T R O L B L O C K * 20870000 **/* * 20880000 **/* **************************************************************** * 20890000 **/* * 20900000 **/* STATUS * 20910000 **/* * 20920000 **/* RELEASE 20.2, 5/21/71, LEVEL=3 * 20930000 **/* RELEASE 21, 6/25/71, LEVEL=2 * 20940000 **/* * 20950000 **/* FUNCTION * 20960000 **/* * 20970000 **/* A UNIT CONTROL BLOCK * 20980000 **/* INCORPORATING A SYSTEM RESOURCE TABLE * 20990000 **/* RECORDS THE STATUS OF * 21000000 **/* A PHYSICAL INPUT OUTPUT DEVICE ADDRESS * 21010000 **/* IS CREATED AND INITIALIZED DURING SYSTEM GENERATION * 21020000 **/* RESIDES IN THE NUCLEUS BELOW 32 K * 21030000 **/* POINTS TO A DEVICE TYPE DEPENDENT EXTENSION * 21040000 **/* RESIDING HIGHER IN THE NUCLEUS * 21050000 **/* IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY * 21060000 **/* A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRES * 21070000 **/* MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES * 21080000 **/* AND DATA EXTENT BLOCKS * 21090000 **/* CONTAINS INDICES INTO TABLES FOR * 21100000 **/* DEVICE STATISTICS ATTENTION LOGICAL CHANNEL * 21110000 **/* MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMEN * 21120000 **/* * 21130000 **/* ENTRY * 21140000 **/* * 21150000 **/* IEFUCBOB * 21160000 **/* * 21170000 **/* INPUT * 21180000 **/* * 21190000 **/* BAL: DSECT * 21200000 **/* BSL: DCL (UCBPTR, UCBDCPTR) PTR * 21210000 **/* * 21220000 **/* OUTPUT * 21230000 **/* * 21240000 **/* SYSGEN INDEPENDENT COMMON SECTION * 21250000 **/* INCLUDING UCBTYP WORD * 21260000 **/* DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING) * 21270000 **/* DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE * 21280000 **/* DATACELL * 21290000 **/* (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW) * 21300000 **/* UNIT RECORD WITH UNIVERSAL CHARACTER SET * 21310000 **/* GRAPHICS (EXCEPT M85 CRT CONSOLE) * 21320000 **/* TAPE CARTRIDGE READER AND OPTICAL READER * 21330000 **/* CELL DESCRIPTION FOR ONE OF THE TEN CELLS * 21340000 **/* IN THE DATACELL DEVICE SEGMENT ABOVE * 21350000 **/* UCB EXTENSION (ONE OF THE FOLLOWING) * 21360000 **/* DIRECT ACCESS * 21370000 **/* MAGNETIC TAPE * 21380000 **/* TAPE CARTRIDGE READER * 21390000 **/* OPTICAL READER * 21400000 **/* UNIVERSAL CHARACTER SET * 21410000 **/* M65 MULTIPROCESSING PREFIX * 21420000 **/* (CONTIGUOUSLY PRECEDING COMMON SECTION) * 21430000 **/* * 21440000 **/* ATTRIBUTES * 21450000 **/* * 21460000 **/* BILINGUAL * 21470000 **/* * 21480000 **/* **************************************************************** * 21490000 **/* * 21500000 **/* SYSGEN-INDEPENDENT * 21510000 **/* COMMON SECTION * 21520000 **/* * 21530000 **/* * 21540000 **DECLARE 21550000 ** 1 UCBOB BASED(TIOEFSRT), 21560000 ** /* > UCBOB 21570000 ** * 21580000 **/* **************************************************************** * 21590000 **/* * 21600000 ** 2 UCBJBNR CHAR(1), /* INTERNAL JOB ID * 21610000 ** 3 UCBKEY BIT(4), /* JOB PROTECTION KEY (SET 21620000 ** FOR RETAIN OR PASS) * 21630000 ** 3 * BIT(1), /* RESERVED * 21640000 ** 3 * BIT(1), /* RESERVED * 21650000 ** 3 UCBDEM BIT(1), /* DEMOUNT AND RETAIN OR 21660000 ** PASS (SET DURING DEVICE 21670000 ** ALLOC) * 21680000 ** 3 UCBMONT BIT(1), /* MOUNT AND RETAIN OR PASS 21690000 ** (SET DURING DEVICE 21700000 ** ALLOC) * 21710000 ** 2 UCBFL5 CHAR(1), /* FLAGS * 21720000 ** 3 * BIT(2), /* RESERVED * 21730000 ** 3 UCBTICBT BIT(1), /* CHANNEL END AND/OR DEVICE 21740000 ** END OR MOUNT CONDITION 21750000 ** PENDING. USED ONLY WITH 21760000 ** PTF. ICB289* 21770000 ** 3 UCBVSDR BIT(1), /* DEVICE HAS VARIABLE 21780000 ** LENGTH SDRS * 21790000 ** 3 UCBEXTSN BIT(1), /* UCBNBRSN CONTAINS LENGTH 21800000 ** AND UCBSNADR ADDRESS OF 21810000 ** SENSE INFO * 21820000 ** 3 UCBNALOC BIT(1), /* DEVICE NOT ALLOCABLE 21830000 ** BECAUSE OWNED BY OLTEP * 21840000 ** 3 UCBALTCU BIT(1), /* DEVICE HAS ALTERNATE CU 21850000 ** ADDRESS * 21860000 ** 3 UCBALTPH BIT(1), /* DEVICE HAS ALTERNATE 21870000 ** PATH * 21880000 ** 2 UCBID CHAR(1), /* UCB ID (FF) * 21890000 ** 2 UCBSTAT CHAR(1), /* DEVICE STATUS * 21900000 ** 3 UCBONLI BIT(1), /* DEVICE ONLINE * 21910000 ** 3 UCBCHGS BIT(1), /* DEVICE TO BE VARIED 21920000 ** OFFLINE * 21930000 ** 3 UCBRESV BIT(1), /* VOLUME RESERVED * 21940000 ** 3 UCBUNLD BIT(1), /* UNLOAD PENDING * 21950000 ** 3 UCBALOC BIT(1), /* DEVICE ALLOCATED * 21960000 ** 3 UCBPRES BIT(1), /* VOLUME PERMANENTLY 21970000 ** RESIDENT * 21980000 ** 3 UCBSYSR BIT(1), /* EITHER SYSTEM RESIDENCE 21990000 ** OR PRIMARY CONSOLE * 22000000 ** 3 UCBDADI BIT(1), /* EITHER STANDARD TAPE 22010000 ** LABELS VERIFIED OR 22020000 ** ALTERNATE CONSOLE * 22030000 ** 2 UCBCHA CHAR(1), /* CHANNEL ADDRESS FLAGS * 22040000 ** 3 UCBHIO BIT(1), /* HALT I/O * 22050000 ** 3 UCBMOD BIT(1), /* STATUS MODIFIER * 22060000 ** 3 UCBDSNS BIT(1), /* DELAYED SENSE * 22070000 ** 3 UCBDHIO BIT(1), /* DELAYED HALT I/O * 22080000 ** 3 UCBCHANA BIT(4), /* CHANNEL ADDRESS * 22090000 ** 2 UCBUA PTR(8), /* UNIT ADDRESS * 22100000 ** 2 UCBFL1 CHAR(1), /* FLAGS * 22110000 ** 3 UCBBUSYD BIT(1), /* DEVICE BUSY * 22120000 ** 3 UCBNOTRD BIT(1), /* DEVICE NOT READY * 22130000 ** 3 UCBUSING BIT(1), /* CHANNEL PROGRAM EXECUTED 22140000 ** AND NOT YET POSTED 22150000 ** COMPLETE * 22160000 ** 3 UCBINTER BIT(1), /* DEVICE END ERROR AFTER 22170000 ** CHANNEL END (IOB 22180000 ** INTERCEPT) * 22190000 ** 3 UCBNOTRC BIT(1), /* CONTROL UNIT BUSY * 22200000 ** 3 UCBSTS BIT(2), /* DEVICE STATUS * 22210000 ** 3 UCBERR BIT(1), /* ERROR ROUTINE USING 22220000 ** DEVICE EXCLUSIVELY * 22230000 ** 2 UCBDTI PTR(8), /* DEVICE TABLE INDEX * 22240000 ** 2 UCBETI PTR(8), /* ERROR TABLE INDEX 22250000 ** (ERROR ROUTINE SUFFIX) * 22260000 ** 2 UCBSTI PTR(8), /* STATUS TABLE INDEX (*10 22270000 ** = STATAB INDEX) * 22280000 ** 2 UCBLCI PTR(8), /* LOGICAL CHANNEL WORD 22290000 ** TABLE INDEX (*8 = LCHTAB 22300000 ** INDEX) * 22310000 ** 2 UCBATI PTR(8), /* ATTENTION TABLE (ANTAB) 22320000 ** INDEX * 22330000 ** 2 UCBWGT CHAR(1), /* FLAGS AND CHANNEL MASK * 22340000 ** 3 UCBIN BIT(1), /* SYSIN * 22350000 ** 3 UCBOUT BIT(1), /* SYSOUT * 22360000 ** 3 UCBPUB BIT(1), /* ASSUME PUBLIC VOLUME * 22370000 ** 3 UCBREW BIT(1), /* REWIND COMMAND * 22380000 ** 3 UCBPATH BIT(4), /* INOPERATIVE PATHS * 22390000 ** 4 UCBPATH0 BIT(1), /* PRIMARY PATH INOPERATIVE * 22400000 ** 4 UCBPATH1 BIT(1), /* OPTIONAL PATH 1 22410000 ** INOPERATIVE * 22420000 ** 4 UCBPATH2 BIT(1), /* OPTIONAL PATH 2 22430000 ** INOPERATIVE * 22440000 ** 4 UCBPATH3 BIT(1), /* OPTIONAL PATH 3 22450000 ** INOPERATIVE * 22460000 ** 2 UCBNAME CHAR(3), /* EBCDIC UNIT NAME * 22470000 ** 2 UCBTYP CHAR(4), /* DEVICE DESCRIPTION * 22480000 ** 3 UCBTBYT1 CHAR(1), /* MODEL BITS * 22490000 ** 4 UCB1FEA0 BIT(1), /* BIT 0 * 22500000 ** 4 UCB1FEA1 BIT(1), /* BIT 1 * 22510000 ** 4 UCB1FEA2 BIT(1), /* BIT 2 * 22520000 ** 4 UCB1FEA3 BIT(1), /* BIT 3 * 22530000 ** 4 UCB1FEA4 BIT(1), /* BIT 4 * 22540000 ** 4 UCB1FEA5 BIT(1), /* BIT 5 * 22550000 ** 4 UCB1FEA6 BIT(1), /* BIT 6 * 22560000 ** 4 UCB1FEA7 BIT(1), /* BIT 7 * 22570000 ** 3 UCBTBYT2 CHAR(1), /* OPTION FLAGS * 22580000 ** 4 UCB2OPT0 BIT(1), /* FLAG 0 * 22590000 ** 4 UCB2OPT1 BIT(1), /* FLAG 1 * 22600000 ** 4 UCB2OPT2 BIT(1), /* FLAG 2 * 22610000 ** 4 UCB2OPT3 BIT(1), /* FLAG 3 * 22620000 ** 4 UCB2OPT4 BIT(1), /* FLAG 4 * 22630000 ** 4 UCB2OPT5 BIT(1), /* FLAG 5 * 22640000 ** 4 UCB2OPT6 BIT(1), /* FLAG 6 * 22650000 ** 4 UCB2OPT7 BIT(1), /* FLAG 7 * 22660000 ** 3 UCBTBYT3 CHAR(1), /* CLASS BITS * 22670000 ** 4 UCB3TAPE BIT(1), /* TAPE * 22680000 ** 4 UCB3COMM BIT(1), /* COMMUNICATIONS * 22690000 ** 4 UCB3DACC BIT(1), /* DIRECT ACCESS * 22700000 ** 4 UCB3DISP BIT(1), /* DISPLAY * 22710000 ** 4 UCB3UREC BIT(1), /* UNIT RECORD * 22720000 ** 4 UCB3CHAR BIT(1), /* CHARACTER READER * 22730000 ** 4 * BIT(1), /* RESERVED * 22740000 ** 4 * BIT(1), /* RESERVED * 22750000 ** 3 UCBTBYT4 CHAR(1), /* DEVICE CODE * 22760000 ** 2 UCBLTS CHAR(2), /* LAST REQUEST ELEMENT * 22770000 ** 2 UCBSNS CHAR(2), /* SENSE INFORMATION 22780000 ** * 22790000 **/* * 22800000 **/* **************************************************************** * 22810000 **/* * 22820000 **/* DEVICE-DEPENDENT UCB SEGMENTS * 22830000 **/* * 22840000 ** 2 UCBDEV BDY(BYTE); 22850000 **/* * 22860000 **/* **************************************************************** * 22870000 **/* * 22880000 **/* DIRECT ACCESS (2300) * 22890000 **/* (EXCEPT DATA CELL) * 22900000 **/* AND MAGNETIC TAPE (2400) * 22910000 **/* UCB SEGMENT * 22920000 **/* * 22930000 **DECLARE 1 UCBOBS01 22940000 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 22950000 ** * 22960000 **/* **************************************************************** * 22970000 **/* * 22980000 ** 2 UCBSENSE CHAR(4) BDY(WORD), /* ADDITIONAL SENSE 22990000 ** INFORMATION FOR DEVICES 23000000 ** WITH SIX SENSE BYTES * 23010000 ** 3 UCBSENSB PTR(31), /* SAME AS UCBSENSA BELOW * 23020000 ** 4 UCBSENSN PTR(8), /* NUMBER OF EXPANDED SENSE 23030000 ** BYTES * 23040000 ** 4 UCBSENSA PTR(24), /* ADDRESS OF EXPANDED 23050000 ** SENSE INFORMATION * 23060000 ** 2 UCBVOLI CHAR(6), /* VOLUME SERIAL NUMBER * 23070000 ** 2 UCBSTAB CHAR(1), /* VOLUME STATUS * 23080000 ** 3 UCBBSVL BIT(1), /* NOT SHARABLE * 23090000 ** 3 UCBBVSC BIT(1), /* RESERVED * 23100000 ** 3 UCBPRSRS BIT(1), /* THIS DEVICE WAS SPECIFIED 23110000 ** IN PRESRES BUT WAS NOT 23120000 ** MOUNTED AT IPL * 23130000 ** 4 UCBBALB BIT(1), /* MORE VOLUME LABEL 23140000 ** PROCESSING * 23150000 ** 3 UCBBPRV BIT(1), /* PRIVATE USE * 23160000 ** 3 UCBBPUB BIT(1), /* PUBLIC USE * 23170000 ** 3 UCBBSTR BIT(1), /* STORAGE USE (DA) ANSI 23180000 ** LABEL (MT) * 23190000 ** 3 UCBBJLB BIT(1), /* JOBLIB VOLUME (DA) * 23200000 ** 3 UCBBNUL BIT(1), /* MCS MOUNT/DEMOUNT MSGS 23210000 ** ISSUED (MESSAGE IDS IN 23220000 ** UCBFSER) (MT) CONTROL 23230000 ** VOLUME (DA) * 23240000 ** 2 UCBDMCT CHAR(1), /* VOLUME USE BYTE * 23250000 ** 3 UCBMOUNT BIT(1), /* MOUNTED OR REQUEST 23260000 ** ISSUED (OFF MEANS 23270000 ** MOUNT VERIFIED) * 23280000 ** 3 UCBDMC BIT(7), /* NUMBER OF OPEN DCBS * 23290000 ** 2 UCBVTOC CHAR(4) BDY (WORD), /* TTR0 OF VTOC (DA) * 23300000 ** 3 UCBFSCT FIXED(15), /* DATASET SEQUENCE COUNT 23310000 ** (MT) * 23320000 ** 3 UCBFSEQ FIXED(15), /* DATASET SEQUENCE NUMBER 23330000 ** (MT) * 23340000 ** 2 UCBFSER CHAR(8) BDY (WORD), /* DATASET SERIAL NUMBER 23350000 ** (MT AFTER OPEN) OR 23360000 ** MESSAGE IDS (MT BEFORE 23370000 ** OPEN) PLUS TWO RESERVED 23380000 ** BYTES (MT) * 23390000 ** 3 UCBSQC PTR(8), /* NUMBER OF RESERVE MACROS 23400000 ** (DA INCLUDING DATACELL) * 23410000 ** 3 UCBDVRES PTR(8), /* DEVICE RESERVATION 23420000 ** (SHARED DASD) (DA 23430000 ** INCLUDING DATACELL) SET 23440000 ** TO UCBSQC AFTER GOOD SIO * 23450000 ** 3 UCBRQESV FIXED(15), /* ADDRESS OF RQE TO VERIFY 23460000 ** VOL SER NUMBER IN UCB 23470000 ** (SET FROM UCBLTS AFTER 23480000 ** UNSOLICITED DEVICE END) 23490000 ** (DA INCLUDING DATACELL) * 23500000 ** 3 UCBORSVA PTR(31), /* ADDRESS OF DEB FOR FIRST 23510000 ** USER ON QUEUE FOR 23520000 ** DEVICE (DA INCLUDING 23530000 ** DATACELL) * 23540000 ** 4 UCBFL4 CHAR(1), /* FLAGS (DA INCLUDING 23550000 ** DATACELL) * 23560000 ** 5 UCBDAV BIT(5), /* VOLUME VERIFICATION 23570000 ** FLAGS * 23580000 ** 6 UCBMNT BIT(1), /* VOL SER VERIFIER ISSUED 23590000 ** MOUNT * 23600000 ** 6 UCBVVRTN BIT(1), /* VOL SER VERIFIER IN 23610000 ** CONTROL * 23620000 ** 6 UCBFT BIT(1), /* FIRST VERIFIER ENTRY FOR 23630000 ** VOL * 23640000 ** 6 UCBTCC BIT(1), /* ALTERNATE TRACK 23650000 ** PROCEDURE HANDLING VOL 23660000 ** LABEL * 23670000 ** 6 UCBVER BIT(1), /* VERIFIER VERIFIED VOL * 23680000 ** 5 UCBORCNT BIT(3), /* NUMBER OF REQUESTS FOR 23690000 ** DEVICE FROM FIRST USER 23700000 ** ON QUEUE * 23710000 ** 4 UCBORSVB PTR(24) BDY(BYTE), /* ADDRESS OF DEB FOR FIRST 23720000 ** USER ON QUEUE FOR 23730000 ** DEVICE (DA INCLUDING 23740000 ** DATACELL) * 23750000 ** 2 UCBSKA CHAR(8) BDY (WORD), /* MBBCCHHR OF LAST SEEK 23760000 ** (DA INCLUDING DATACELL) * 23770000 ** 3 UCBXTN PTR(31), /* ADDRESS OF UCB EXTENSION 23780000 ** (MT) * 23790000 ** 4 UCBVOPT CHAR(1), /* VOLUME STATISTIC FLAGS * 23800000 ** 5 UCBESV BIT(1), /* ESV RECORDS KEPT * 23810000 ** 5 UCBEVA BIT(1), /* EVA RECORDS MAY BE KEPT * 23820000 ** 5 UCBESVC BIT(1), /* ESV RECORDS SENT TO 23830000 ** CONSOLE AS OPPOSED TO 23840000 ** SYS1.MAN * 23850000 ** 5 UCBERPC BIT(1), /* ERROR RECOVERY PROC IN 23860000 ** CONTROL * 23870000 ** 5 UCBESVE BIT(1), /* ESV RECORD ISSUED FOR 23880000 ** VOLUME BECAUSE OF EOV * 23890000 ** 5 * BIT(1), /* RESERVED * 23900000 ** 5 * BIT(1), /* RESERVED * 23910000 ** 5 UCBASMDE BIT(1), /* UNSOLICITED DEVICE END 23920000 ** OCCURRED ON 3420 ICB277* 23930000 ** 4 UCBXTNB PTR(24) BDY(BYTE), /* ADDRESS OF UCB EXTENSION 23940000 ** (MT) (MAP BELOW) * 23950000 ** 3 * CHAR(4), /* UCBSKA PADDING (NOT IN 23960000 ** UCB) NO LONGER EXISTS 23970000 ** (MT) * 23980000 ** 2 UCBECBB PTR(31), /* ECB ADDRESS (DA) * 23990000 ** 3 UCBUSER PTR(8), /* NUMBER OF CURRENT USERS 24000000 ** (DA) * 24010000 ** 3 UCBECBA PTR(24) BDY(BYTE), /* ECB ADDRESS (DA) * 24020000 ** 2 UCBEXT PTR(31), /* ADDRESS OF UCB EXTENSION 24030000 ** (DA) (MAPPED BELOW) 24040000 ** * 24050000 ** 3 UCBWKADB PTR(31); /* ALIAS * 24060000 **/* * 24070000 **/* **************************************************************** * 24080000 **/* * 24090000 **/* DATA CELL (2321) * 24100000 **/* UCB SEGMENT * 24110000 **/* * 24120000 **DECLARE 1 UCBOBS02 24130000 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 24140000 ** * 24150000 **/* **************************************************************** * 24160000 **/* * 24170000 ** 2 UCBSEN CHAR(4), /* MORE SENSE INFORMATION * 24180000 ** 2 UCBERPA CHAR(12), /* ERROR RECOVERY WORK AREA 24190000 ** A * 24200000 ** 2 UCBDASD CHAR(16), /* DATA CELL FIELDS MAPPED 24210000 ** BY UCBSQC (1 BYTE) 24220000 ** UCBDVRES (1 BYTE) 24230000 ** UCBRQESV (2 BYTES) 24240000 ** UCBFL4 (1 FLAG BYTE) 24250000 ** UCBORSVA/B (3 BYTES) 24260000 ** UCBSKA (8 BYTES) UNDER 24270000 ** DIRECT ACCESS ABOVE * 24280000 ** 2 UCBCELLS CHAR(160), /* CELL DESCRIPTIONS 24290000 ** (MAPPED BELOW) * 24300000 ** 3 UCBCELL0 CHAR(16), /* CELL 0 * 24310000 ** 3 UCBCELL1 CHAR(16), /* CELL 1 * 24320000 ** 3 UCBCELL2 CHAR(16), /* CELL 2 * 24330000 ** 3 UCBCELL3 CHAR(16), /* CELL 3 * 24340000 ** 3 UCBCELL4 CHAR(16), /* CELL 4 * 24350000 ** 3 UCBCELL5 CHAR(16), /* CELL 5 * 24360000 ** 3 UCBCELL6 CHAR(16), /* CELL 6 * 24370000 ** 3 UCBCELL7 CHAR(16), /* CELL 7 * 24380000 ** 3 UCBCELL8 CHAR(16), /* CELL 8 * 24390000 ** 3 UCBCELL9 CHAR(16), /* CELL 9 * 24400000 ** 2 UCBDC PTR(31), /* ADDRESS OF DATACELL UCB 24410000 ** EXT (MAPPED BELOW) 24420000 ** * 24430000 ** 3 UCBWKADA PTR(31); /* ALIAS * 24440000 ** 24450000 **/* **************************************************************** * 24460000 **/* * 24470000 **/* UNIT RECORD WITH * 24480000 **/* UNIVERSAL CHARACTER SET (1403, 3211) * 24490000 **/* UCB SEGMENT * 24500000 **/* * 24510000 **DECLARE 1 UCBOBS03 24520000 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 24530000 ** * 24540000 **/* **************************************************************** * 24550000 ** 24560000 ** 2 UCBNBRSN PTR(8), /* LENGTH OF SENSE INFO 24570000 ** (3211) * 24580000 ** 2 UCBSNADR PTR(24), /* ADDR OF SENSE INFO -- 24590000 ** THAT OF UCBSNS (1403) 24600000 ** OR UCBSNSXT (3211) * 24610000 ** 2 UCBXTADR PTR(31); /* ADDR OF UCS UCB 24620000 ** EXTENSION * 24630000 ** 24640000 **/* **************************************************************** * 24650000 **/* * 24660000 **/* GRAPHICS EXCEPT * 24670000 **/* M85 CRT CONSOLE * 24680000 **/* UCB SEGMENT * 24690000 **/* * 24700000 **DECLARE 1 UCBOBS04 24710000 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 24720000 ** * 24730000 **/* **************************************************************** * 24740000 **/* * 24750000 ** 2 UCBSENS CHAR(2), /* MORE SENSE INFORMATION * 24760000 ** 2 UCBOPEN PTR(8), /* NUMBER OF OPEN DCBS * 24770000 ** 2 UCBGCB CHAR(1), /* GRAPHIC CONTROL BYTE * 24780000 ** 2 UCBTEB PTR(31), /* ADDRESS OF TASK ENTRY 24790000 ** BLOCK * 24800000 ** 2 UCBSTART PTR(31), /* RESTART ADDRESS * 24810000 ** 2 UCBBTA PTR(31), /* ADDRESS OF BUFFER TABLE * 24820000 ** 3 UCBDI PTR(8), /* DEVICES ON A CONTROL 24830000 ** UNIT TO WHICH BUFFER 24840000 ** SECTIONS ARE ASSIGNED * 24850000 ** 3 UCBBTB PTR(24) BDY(BYTE); /* ADDRESS OF BUFFER TABLE 24860000 ** * 24870000 **/* **************************************************************** * 24880000 **/* * 24890000 **/* TAPE CARTRIDGE READER (2495) * 24900000 **/* AND OPTICAL READER (1285, 1287, 1288) * 24910000 **/* UCB SEGMENT * 24920000 **/* * 24930000 **DECLARE 1 UCBOBS05 24940000 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 24950000 ** * 24960000 **/* **************************************************************** * 24970000 **/* * 24980000 ** 2 UCBCRWKA PTR(31); /* ADDRESS OF UCB EXTENSION 24990000 ** FOR THIS DEVICE (MAPPED 25000000 ** BELOW) 25010000 ** * 25020000 **/* **************************************************************** * 25030000 **/* * 25040000 **/* CELL DESCRIPTION * 25050000 **/* FOR UCBCELL0/.../9 * 25060000 **/* IN DATACELL (2321) * 25070000 **/* * 25080000 **DECLARE 1 UCBOBS06 25090000 ** BASED(ADDR(UCBUSER)); 25100000 **/* * 25110000 **DECLARE 25120000 ** 1 UCBDCLL BASED(TIOEFSRT), 25130000 ** /* > UCBDCLL 25140000 ** * 25150000 **/* **************************************************************** * 25160000 **/* * 25170000 ** 2 UCBDCELL CHAR(16) BDY (WORD), /* ONE OF TEN CELLS 25180000 ** * 25190000 ** 3 UCBDBBNR FIXED(15), /* BIN NUMBER * 25200000 ** 3 UCBDSTAB CHAR(1), /* VOLUME STATUS BYTE B 25210000 ** (ANALOGOUS TO UCBSTAB) * 25220000 ** 4 UCBDBSVL BIT(1), /* NOT SHARABLE * 25230000 ** 4 * BIT(1), /* RESERVED * 25240000 ** 4 UCBDBPRS BIT(1), /* THIS DEVICE WAS SPECIFIED 25250000 ** IN PRESRES BUT WAS NOT 25260000 ** MOUNTED AT IPL * 25270000 ** 4 UCBDBPRV BIT(1), /* PRIVATE USE * 25280000 ** 4 UCBDBPUB BIT(1), /* PUBLIC USE * 25290000 ** 4 UCBDBSTR BIT(1), /* STORAGE USE * 25300000 ** 4 UCBDBJLB BIT(1), /* JOBLIB VOLUME * 25310000 ** 4 UCBDBNUL BIT(1), /* CONTROL VOLUME * 25320000 ** 3 UCBDSTAT CHAR(1), /* CELL/BIN STATUS 25330000 ** (ANALOGOUS TO UCBSTAT) * 25340000 ** 4 UCBDNORM BIT(1), /* ONLINE WITH NORMAL CELL 25350000 ** (NOT OFFLINE OR BALLAST) * 25360000 ** 4 * BIT(1), /* RESERVED * 25370000 ** 4 UCBDRESV BIT(1), /* RESERVED CELL * 25380000 ** 4 UCBDUNLD BIT(1), /* UNLOAD PENDING * 25390000 ** 4 UCBDALOC BIT(1), /* BIN ALLOCATED * 25400000 ** 4 UCBDPRES BIT(1), /* CELL PERMANENTLY 25410000 ** RESIDENT * 25420000 ** 4 * BIT(1), /* RESERVED * 25430000 ** 4 * BIT(1), /* RESERVED * 25440000 ** 3 UCBDVOLI CHAR(6), /* VOLUME SERIAL NUMBER * 25450000 ** 3 UCBDJBNR PTR(8), /* INTERNAL JOB NUMBER * 25460000 ** 3 UCBDDMCT PTR(8), /* NUMBER OF OPEN DCBS FOR 25470000 ** THIS CELL (BITS 1-7) * 25480000 ** 4 UCBDDMNT BIT(1), /* IF 0, MOUNT VERIFICATION 25490000 ** HAS BEEN PERFORMED --- 25500000 ** IF 1, MOUNT REQUEST HAS 25510000 ** BEEN ISSUED * 25520000 ** 4 * BIT(7), /* NUMBER OF OPEN DCBS * 25530000 ** 3 UCBDVTOC CHAR(3), /* TTR OF VTOC * 25540000 ** 3 UCBDUSER PTR(8); /* CURRENT NUMBER OF 25550000 ** DATASETS 25560000 ** * 25570000 **/* * 25580000 **/* **************************************************************** * 25590000 **/* * 25600000 **/* UNIT CONTROL BLOCK EXTENSIONS * 25610000 **/* * 25620000 **/* **************************************************************** * 25630000 **/* * 25640000 **/* DIRECT ACCESS (2300) * 25650000 **/* UCB EXTENSION * 25660000 **/* * 25670000 **DECLARE 25680000 ** 1 UCBDA BASED(UCBEXT), 25690000 ** /* > UCBDA 25700000 ** * 25710000 **/* **************************************************************** * 25720000 **/* * 25730000 ** 2 * CHAR(104), /* OFFSET * 25740000 ** 2 UCBERP CHAR(40), /* ERROR RECOVERY WORK AREA * 25750000 ** 2 UCBOVFLW CHAR(40); /* TRACK OVERFLOW WORK AREA 25760000 ** (OPTIONAL) * 25770000 **/* **************************************************************** * 25780000 **/* * 25790000 **/* MAGNETIC TAPE (2400) * 25800000 **/* UCB EXTENSION * 25810000 **/* * 25820000 **DECLARE 25830000 ** 1 UCBMT BASED(UCBXTN), 25840000 ** /* > UCBMT 25850000 ** * 25860000 **/* **************************************************************** * 25870000 **/* * 25880000 ** 2 UCBROR CHAR(8), /* READ OPPOSITE DIRECTION 25890000 ** RECOVERY CCW * 25900000 ** 2 UCBSUM CHAR(2), /* VOLUME STATISTICS UPDATE 25910000 ** MASK * 25920000 ** 3 UCBSUMA CHAR(1), /* FIRST BYTE * 25930000 ** 4 UCBSUMTR BIT(1), /* UPDATE TEMP READ ERRORS * 25940000 ** 4 UCBSUMTW BIT(1), /* UPDATE TEMP WRITE ERRORS * 25950000 ** 4 UCBSUMSC BIT(2), /* SIO COUNTER POSITION * 25960000 ** 4 UCBSUMPR BIT(1), /* UPDATE PERM READ ERRORS * 25970000 ** 4 UCBSUMPW BIT(1), /* UPDATE PERM WRITE ERRORS * 25980000 ** 4 UCBSUMNB BIT(1), /* UPDATE NOISE BLOCKS 25990000 ** COUNTER * 26000000 ** 4 * BIT(1), /* RESERVED * 26010000 ** 3 UCBSUMB CHAR(1), /* SECOND BYTE * 26020000 ** 4 UCBSUMEG BIT(2), /* ERASE GAP COUNTER 26030000 ** POSITION * 26040000 ** 4 UCBSUMCA BIT(2), /* CLEANER ACTION COUNTER 26050000 ** POSITION * 26060000 ** 4 * BIT(1), /* RESERVED * 26070000 ** 4 * BIT(1), /* RESERVED * 26080000 ** 4 * BIT(1), /* RESERVED * 26090000 ** 4 * BIT(1), /* RESERVED * 26100000 ** 2 UCBTRT PTR(8), /* TEMP READ ERROR 26110000 ** THRESHOLD (IF ZERO 26120000 ** THEN EVA ABSENT) * 26130000 ** 2 UCBTWT PTR(8), /* TEMP WRITE ERROR 26140000 ** THRESHOLD (IF ZERO THEN 26150000 ** EVA ABSENT) * 26160000 ** 2 UCBTR PTR(8), /* TEMP READ ERROR COUNT * 26170000 ** 2 UCBTW PTR(8), /* TEMP WRITE ERROR COUNT * 26180000 ** 2 UCBSIO FIXED(15), /* SIO COUNT * 26190000 ** 2 UCBPR PTR(8), /* PERM READ ERROR COUNT * 26200000 ** 2 UCBPW PTR(8), /* PERM WRITE ERROR COUNT * 26210000 ** 2 UCBNB PTR(8), /* NOISE BLOCK COUNT * 26220000 ** 2 UCBMS CHAR(1), /* MODE SET OPERATION CODE 26230000 ** FOR DATA BLOCKS ON 26240000 ** 3420 ICB277* 26250000 ** 2 UCBERG FIXED(15), /* ERASE GAP COUNT * 26260000 ** 2 UCBCLN FIXED(15); /* CLEANER ACTION COUNT 26270000 ** * 26280000 **/* **************************************************************** * 26290000 **/* * 26300000 **/* TAPE CARTRIDGE READER (2495) * 26310000 **/* UCB EXTENSION * 26320000 **/* * 26330000 **DECLARE 26340000 ** 1 UCBTCR BASED(UCBCRWKA) BDY (DWORD), 26350000 ** /* > UCBTCR 26360000 ** * 26370000 **/* **************************************************************** * 26380000 **/* * 26390000 ** 2 UCBTCERP CHAR(24) BDY (DWORD), /* ERROR RECOVERY CHANNEL 26400000 ** PROGRAM * 26410000 ** 3 UCBRCCW1 CHAR(8) BDY(DWORD), /* RETRY CCW 1 * 26420000 ** 3 UCBRCCW2 CHAR(8) BDY(DWORD), /* RETRY CCW 2 * 26430000 ** 3 UCBRCCW3 CHAR(8) BDY(DWORD), /* RETRY CCW 3 * 26440000 ** 2 UCBCSWSA CHAR(8); /* CSW SAVE AREA 26450000 ** * 26460000 **/* **************************************************************** * 26470000 **/* * 26480000 **/* OPTICAL READER (1285, 1287, 1288) * 26490000 **/* UCB EXTENSION * 26500000 **/* * 26510000 **DECLARE 26520000 ** 1 UCBOR BASED(UCBCRWKA), 26530000 ** /* > UCBOR 26540000 ** * 26550000 **/* **************************************************************** * 26560000 **/* * 26570000 ** 2 UCBCRDDC PTR(8), /* DATA CHECK ERROR COUNT * 26580000 ** 2 UCBCRILC PTR(8), /* INCORRECT LENGTH ERROR 26590000 ** COUNT * 26600000 ** 2 UCBCRECC PTR(8), /* EQUIPMENT CHECK ERROR 26610000 ** COUNT * 26620000 ** 2 * CHAR(5); /* RESERVED 26630000 ** * 26640000 **/* **************************************************************** * 26650000 **/* * 26660000 **/* UNIT RECORD WITH * 26670000 **/* UNIVERSAL CHARACTER SET (1403, 3211) * 26680000 **/* UCB EXTENSION * 26690000 **/* * 26700000 **DECLARE 1 UCBUCS 26710000 ** BASED(UCBXTADR), /* DEVICE DEPENDENT SEGMENT * 26720000 ** 26730000 **/* **************************************************************** * 26740000 ** 26750000 ** 2 UCBUCSID CHAR(4), /* ID OF UCS IMAGE IN 26760000 ** BUFFER * 26770000 ** 2 UCBUCSOP CHAR(1), /* FORMAT OF UCS IMAGE IN 26780000 ** BUFFER (O FOR OPTION) * 26790000 ** 3 UCBUCSO1 BIT(1), /* DEFAULT IMAGE * 26800000 ** 3 UCBUCSO2 BIT(1), /* FOLD MODE * 26810000 ** 3 * BIT(5), /* RESERVED * 26820000 ** 3 UCBUCSPE BIT(1), /* IMAGE HAS PARITY ERROR 26830000 ** (3211) * 26840000 ** 2 UCBFCBOP CHAR(1), /* RESERVED (1403) OR FLAGS 26850000 ** (3211) (O FOR OPTION) * 26860000 ** 3 UCBFCBO1 BIT(1), /* FCB DEFAULT IMAGE * 26870000 ** 3 * BIT(7), /* RESERVED * 26880000 ** 2 * CHAR(1), /* RESERVED * 26890000 ** 2 UCBERCNT PTR(8), /* COUNT OF ERRORS THAT HAVE 26900000 ** OCCURRED (3211) * 26910000 ** 2 UCBFCBID CHAR(4), /* FCB IMAGE ID * 26920000 ** 2 UCBERADR PTR(31); /* ADDR OR ERP LOGOUT AREA * 26930000 ** 26940000 **/* **************************************************************** * 26950000 **/* * 26960000 **/* 3211 SENSE INFORMATION UCB EXTENSION * 26970000 **/* * 26980000 **/* THIS EXTENSION IS POINTED TO BY THE UCBSNADR FIELD OF THE * 26990000 **/* UCB AND IS NOT CONTIGUOUS TO THE UCB. * 27000000 **/* * 27010000 **DECLARE 1 UCBSNINF 27020000 ** BASED(UCBSNADR), 27030000 ** 27040000 **/* **************************************************************** * 27050000 ** 27060000 ** 2 UCBSNSXT CHAR(6), /* SENSE INFORMATION * 27070000 ** 2 * CHAR(2); /* RESERVED * 27080000 ** 27090000 **/* **************************************************************** * 27100000 **/* * 27110000 **/* MODEL 65 MULTIPROCESSING UCB PREFIX * 27120000 **/* * 27130000 **DECLARE 27140000 ** 1 UCBM65MP BASED(TIOEFSRT-4), 27150000 ** /* IF MP65 27160000 ** * 27170000 **/* **************************************************************** * 27180000 **/* * 27190000 ** 2 UCBFL3 CHAR(1), /* M65MP FLAGS * 27200000 ** 3 UCBACU BIT(1), /* ALTERNATE CONTROL UNITS 27210000 ** EXIST * 27220000 ** 3 * BIT(1), /* RESERVED * 27230000 ** 3 UCBHIOB BIT(1), /* CPU B TO USE HIO * 27240000 ** 3 UCBHIOA BIT(1), /* CPU A TO USE HIO * 27250000 ** 3 UCBSIOB BIT(1), /* CPU B ISSUED LAST SIO * 27260000 ** 3 * BIT(1), /* RESERVED * 27270000 ** 3 UCBNOB BIT(1), /* NO PATH TO CPU B * 27280000 ** 3 UCBNOA BIT(1), /* NO PATH TO CPU A * 27290000 ** 2 * CHAR(2), /* RESERVED * 27300000 ** 2 UCBMPFLG CHAR(1), /* FLAGS * 27310000 ** 3 * BIT(2), /* RESERVED * 27320000 ** 3 UCBRIC BIT(1), /* DURING NIP - DEVICE IS 27330000 ** RESERVED TO IPLED CPU * 27340000 ** 3 UCBRNIC BIT(1), /* DURING NIP - DEVICE IS 27350000 ** RESERVED TO NON-IPLED CPU* 27360000 ** 3 * BIT(1), /* RESERVED * 27370000 ** 3 UCBNRO BIT(1), /* DURING NIP - DEVICE IS 27380000 ** NOT RESERVED BECAUSE OF 27390000 ** OPERATOR'S REQUEST * 27400000 ** 3 UCBPROC BIT(1), /* USED BY PROCESSING 27410000 ** PROGRAMS * 27420000 ** 3 UCBIPL BIT(1); /* DEVICE OFFLINE AT IPL 27430000 ** * 27440000 **/* **************************************************************** * 27450000 **/* * 27460000 **/* U N I T C O N T R O L B L O C K * 27470000 **/* * 27480000 **/* **************************************************************** * 27490000 ** 27500000 * DCL 1 GMLIST, /* LIST USED FOR CONDITIONAL GETMAIN * 27510000 * 2 DSCBARA PTR(31),/* PTR TO AREA USED FOR DSCB * 27520000 * 2 SIOTARA PTR(31),/* PTR TO AREA USED FOR SIOT * 27530000 * 2 JFCBARA PTR(31),/* PTR TO AREA USED FOR JFCB * 27540000 * 2 DSCBLTH FIXED(31), /* LENGTH OF DSCB AREA * 27550000 * 2 SIOTLTH FIXED(31), /* LENGTH OF SIOT AREA * 27560000 * 2 JFCBLTH FIXED(31), /* LENGTH OF JFCB AREA * 27570000 * 3 LISTEND BIT(1); /* END OF LIST * 27580000 * 27590000 * 27600000 * DCL 1 DSCBLST,/* LIST OFR OBTAIN OF DSCB * 27610000 * 2 CAMFLGS FIXED(31),/* OBTAIN FLAGS * 27620000 * 2 CAMADR1 PTR(31), /* ADDR OF DSNAME * 27630000 * 2 CAMADR2 PTR(31), /* ADDR OF VOL SER * 27640000 * 2 CAMADR3 PTR(31); /* ADDR OF READ IN AREA * 27650000 * 27660000 * 27670000 * 27680000 * DCL 1 PARMAREA,/*Q MANAGER LIST FOR TTR & INPUT AREA * 27690000 * 2 PARMIN PTR(31),/* ADDR OF READ IN AREA * 27700000 * 2 PARMTTRA FIXED(31), 27710000 * 3 PARMTTR CHAR(3); 27720000 * /* 33100 M0150 * 27730000 * /* 767600-788600 M0150 21774 * 27740000 * DECLARE 1 INDMSIOT BDY(DWORD) BASED(SIOTARA), /* NAME OF TABLE */ 27750000 * 4 SIOTDSKA PTR(24) BDY(WORD), /* DISK ADDRESS OF SIOT */ 27760000 * 4 SIOTTYPE CHAR(1), /* TABLE ID OF SIOT = 8 */ 27770000 * 4 SCTDDNAM CHAR(8), /* DD NAME */ 27780000 * 4 SCTCSADD CHAR(8), /* INTERNAL DD NOS FOR CHAN SEP/AFF REQ */ 27790000 * 4 SCTUSADD CHAR(8), /* INTERNAL DD NOS FOR UNIT SEP/AFF REQ */ 27800000 * 4 SCTPSIOT PTR(24) BDY(WORD), /* TTR OF NEXT SIOT */ 27810000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 27820000 * 4 SCTPJFCB PTR(24) BDY(WORD), /* DISK ADDRESS OF JFCB */ 27830000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 27840000 * 4 SIOTVRSB PTR(24) BDY(WORD), /* TTR OF SIOT FOR VOLREF 27850000 * OR SUBALLOCATE */ 27860000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 27870000 * 4 SIOTSTDP PTR(24) BDY(WORD), /* TTR OF SIOT SYSTEM OUTPUT 27880000 * DEPENDENCY BLOCK */ 27890000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 27900000 * 4 * CHAR(3), /* RESERVED FOR FUTURE USE */ 27910000 * 4 SIOTTSTC BIT(8), /* INDIC FOR TSO & TCAM */ 27920000 * 6 SIOTDYNA BIT(1), /* TSO DYNAMIC ALLOC(DD DYNAM) */ 27930000 * /* SET BY IEFVDA */ 27940000 * 6 SIOTTERM BIT(1), /* TSO TERMINAL (DD TERM=TS) 27950000 * SET BY IEFVDA */ 27960000 * 6 SIOTLMC BIT(1), /* TSO - ON IF LAST MSG CLASS 27970000 * SYSOUT SIOT -- SET BY IEFVMLS1, 27980000 * CHECKED BY IEFWCIMP,IEFYTVMS */ 27990000 * 6 * BIT(4), /* RESERVED FOR FUTURE USE */ 28000000 * 6 SIOTQNAM BIT(1), /* TCAM - ON IF QNAME= ON DD STMT 28010000 * SET BY IEFVDA, CHECKED BY ALLOC. */ 28020000 * 4 SCTSPOOL CHAR(1), /* INTERNAL NO. OF POOL DD */ 28030000 * 4 SCTVOLCT CHAR(1), /* NUMBER OF VOLUMES IN VOLT */ 28040000 * 4 SCTVLPTR PTR(15), /* RELATIVE POINTER TO VOLT ENTRY */ 28050000 * 4 SCTDDINO CHAR(1), /* INTERNAL NO. OF THE DD STATEMENT */ 28060000 * 4 SCTNMBUT CHAR(1), /* NUMBER OF UNITS FOR THE DATA SET */ 28070000 * 4 SIOTVLCT CHAR(1), /* VOLUME COUNT */ 28080000 * 4 SCTSDISP BIT(8), /* SCHEDULER DISPOSITION */ 28090000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 28100000 * 6 SIOTRTAN BIT(1), /* RETAIN */ 28110000 * 6 SIOTPRIV BIT(1), /* PRIVATE VOLUME */ 28120000 * 6 SIOTPASS BIT(1), /* PASS DATA SET */ 28130000 * 6 SIOTKEEP BIT(1), /* KEEP DATA SET */ 28140000 * 6 SIOTDLET BIT(1), /* DELETE DATA SET */ 28150000 * 6 SIOTCTLG BIT(1), /* CATALOG DATA SET */ 28160000 * 6 SIOTUNCT BIT(1), /* UNCATALOG DATA SET */ 28170000 * 4 SCTSBYT1 BIT(8), /* INDICATOR BYTE 1 */ 28180000 * 6 SCTDUMMY BIT(1), /* DUMMY DATA SET */ 28190000 * 6 SCTSYSIN BIT(1), /* SYSIN DATA SET */ 28200000 * 6 SCTSPLTP BIT(1), /* PRIMARY SPLIT */ 28210000 * 6 SCTSPLTS BIT(1), /* SECONDARY SPLIT */ 28220000 * 6 SCTSBALC BIT(1), /* SUBALLOCATE */ 28230000 * 6 SCTPARLM BIT(1), /* PARALLEL MOUNT */ 28240000 * 6 SCTUNAFF BIT(1), /* UNIT AFFINITY */ 28250000 * 6 SCTUNSEP BIT(1), /* UNIT SEPARATION */ 28260000 * 4 SCTSBYT2 BIT(8), /* INDICATOR BYTE 2 */ 28270000 * 6 SCTCHAFF BIT(1), /* CHANNEL AFFINITY */ 28280000 * 6 SCTCHSEP BIT(1), /* CHANNEL SEPARATION */ 28290000 * 6 SCTVOLAF BIT(1), /* VOLUME AFFINITY */ 28300000 * 6 SCTJOBLB BIT(1), /* JOBLIB DD STATEMENT */ 28310000 * 6 SCTUNLBD BIT(1), /* NO LABEL */ 28320000 * 6 SCTLABEL BIT (1), /* NON-STANDARD LABEL */ 28330000 * 6 SCTDEFER BIT(1), /* DEFER MOUNTING */ 28340000 * 6 SCTRECVD BIT(1), /* RECEIVED DATA SET */ 28350000 * 4 SCTSBYT3 BIT(8), /* INDICATOR BYTE 3 */ 28360000 * 6 SCTDSNRF BIT(1), /* VOLUME REFERENCE IS DSNAME */ 28370000 * 6 SCTSYSNE BIT(1), /* SYSIN EXPECTED (PROCS ONLY) */ 28380000 * 6 SCTSNVYV BIT(1), /* AWT VOL BLOCK INDIC */ 28390000 * 6 SCTVREF BIT(1), /* VOLUME REFERENCE IN STEP */ 28400000 * 6 SCTSYSOU BIT(1), /* SYSOUT IS SPECIFIED */ 28410000 * 6 SCTSNEW BIT(1), /* NEW DATA SET */ /*PTM 220* 28420000 * 6 SCTSMOD BIT(1), /* MODIFIED DATA SET */ 28430000 * 6 SCTSOLD BIT(1), /* OLD DATA SET */ /*PTM 220* 28440000 * 4 SCTSBYT4 BIT(8), /* INDICATOR BYTE 4 */ 28450000 * 6 SCTSGDGS BIT(1), /* GDG SINGLE */ 28460000 * 6 SIOTGDGA BIT (1), /* GDG ALL REQUEST */ 28470000 * 6 SIOTNPDQ BIT(1), /* NO PDQ PROCESSING */ 28480000 * 6 SIOTASCI BIT(1), /* USASCII TAPE LABEL 28490000 * SET BY IEFVDA, TEST BY IEFWA000 */ 28500000 * 6 SIOTSTEP BIT(1), /* STEP PROCESSED */ 28510000 * 6 SIOTVAFF BIT(1), /* INTRA-STEP VOLUME AFFINITY */ 28520000 * 6 SIOTIPDQ BIT(1), /* DATA SET IS IN PDQ */ 28530000 * 6 SIOTOMN BIT(1), /* OLD (MOD) INDICATOR */ 28540000 * 4 SCTUTYPE CHAR(8), /* UNIT TYPE OF DATA SET, 28550000 * THE LOW ORDER 2 BYTES CONTAIN 28560000 * UCB ADDR FOR UNIT REQUEST - 28570000 * (SET BY IEFVMLS2,IEFXCSSS, 28580000 * USED BY IEFWA000) */ 28590000 * 4 SCTOUTNM CHAR(8), /* SYSTEM OUTPUT PROGRAM NAME */ 28600000 * 4 SCTOUTNO CHAR(4), /* SYSTEM OUTPUT FORM NUMBER */ 28610000 * 4 SCTOUTPN CHAR(1), /* SYSOUT CLASS NAME */ 28620000 * 4 SCTDDDUP CHAR(1), /* DUPLICATE NO. OF THE DD STMT */ 28630000 * 4 SIOTDPCD CHAR(2), /* RESERVED FOR FUTURE USE */ 28640000 * 4 SIOTDPOP PTR(24) BDY(WORD), /*TTR OF DSB IF SYSOUT M0237 28650000 * SPECIFIED M0237* 28660000 * 4 SIOTDSCT CHAR(1), /* RESERVED */ /*M0231*/ 28670000 * 4 SIOTNDSB PTR(24) BDY(WORD), /* QUEUE ADDR OF NEXT DSB */ 28680000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 28690000 * 4 SIOTALTD BIT(8), /* CONDITIONAL DISPOSITION */ 28700000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 28710000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 28720000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 28730000 * 6 SIOTNPRV BIT (1), /* NOT PRIVATE ( RESTART ) */ 28740000 * 6 SIOTAKEP BIT(1), /* KEEP DATA SET */ 28750000 * 6 SIOTADEL BIT(1), /* DELETE DATA SET */ 28760000 * 6 SIOTACAT BIT(1), /* CATALOG DATA SET */ 28770000 * 6 SIOTAUNC BIT(1), /* UNCATALOG DATA SET */ 28780000 * 4 SIOTPDQ PTR(24), /* TTR OF SIOT BEING PASSED */ 28790000 * 4 SIOTOUTC CHAR(1), /* RESERVED 21774* 28800000 * 4 SIOTOUTR CHAR(2), /* RESERVED 21774* 28810000 * 4 SIOTOPUC CHAR(4), /* RESERVED 21774* 28820000 * 4 * CHAR(19), /* RESERVED FOR FUTURE USE */ 28830000 * 4 SCTANAME CHAR (8), /* TEMP NAME FOR DEDICATED WORK FILES */ 28840000 * 4 SIOTDCBR CHAR(44); /* DCB REFERENCE NAME */ 28850000 ** 28860000 ** /* JOB FILE CONTROL BLOCK * 28870000 ** 28880000 ** /* RELEASE 20.2, 5/07/71, LEVEL=3 * 28890000 ** /* RELEASE 21, 6/23/71, LEVEL=5 * 28900000 ** 28910000 ** DECLARE 28920000 ** 1 INFMJFCB BASED(JFCBARA), 28930000 ** 5 JFCBDSNM CHAR(44), /* -DATA SET NAME * 28940000 ** 6 JFCBQNAM CHAR(8), /* -NAME OF THE DESTINATION QUEUE T 28950000 ** BE ASSIGNED TO THIS DATA SET * 28960000 ** 5 JFCBELNM CHAR(8), /* -ELEMENT NAME OR GENERATION 28970000 ** NUMBER OR TYPE OF AREA FOR AN 28980000 ** INDEXED SEQUENTIAL DATA SET 28990000 ** ONLY * 29000000 ** 5 JFCBTSDM BIT(8), /* -JOB MANAGEMENT/DATA MANAGEMENT 29010000 ** INTERFACE * 29020000 ** 6 JFCCAT BIT(1), /* -CATALOGED DATA SET * 29030000 ** 6 JFCVSL BIT(1), /* -VOLUME SERIAL LIST ALTERED * 29040000 ** 6 JFCSDS BIT(1), /* -SYSIN OR SYSOUT DATA SET * 29050000 ** 6 JFCTTR BIT(1), /* -USE JFCBOTTR INSTEAD OF 29060000 ** DS1LSTAR FIELD TO REPOSITION 29070000 ** DATA SET IF AUTOMATIC STEP 29080000 ** RESTART OCCURS * 29090000 ** 6 JFCNWRIT BIT(1), /* -DO NOT WRITE BACK THE JFCB 29100000 ** DURING OPEN PROCESSING * 29110000 ** 6 JFCNDSCB BIT(1), /* -DO NOT MERGE DSCB OR LABEL 29120000 ** FIELDS INTO THIS JFCB * 29130000 ** 6 JFCNDCB BIT(1), /* -DO NOT MERGE DCB FIELDS INTO 29140000 ** THIS JFCB * 29150000 ** 6 JFCPAT BIT(1), /* -THE PATTERNING DSCB IS COMPLTE* 29160000 ** 5 JFCBSYSC CHAR(13), /* -SYSTEM CODE * 29170000 ** 10 JFCBDSCB CHAR(3), /* -TTR OF FORMAT 1 DSCB FOR DATA 29180000 ** SET PART ON THE FIRST VOLUME 29190000 ** OF THE DATA SET * 29200000 ** 10 JFCFCBID CHAR(4), /* -FORMS CONTROL BUFFER IMAGE 29210000 ** IDENTIFICATION FOR THE 3211 29220000 ** OR DATA PROTECTION IMAGE 29230000 ** IDENTIFICATION FOR THE 3525 * 29240000 ** 10 * CHAR(6), /* RESERVED * 29250000 ** 5 JFCBLTYP BIT(8), /* -LABEL TYPE * 29260000 ** 6 * BIT(1), /* -RESERVED * 29270000 ** 6 JFCBAL BIT(1), /* -USASI LABELS (AL OR AUL) * 29280000 ** 6 JFCBLTM BIT(1), /* -NON-LABELLED TAPE CREATED BY 29290000 ** DOS MAY HAVE LEADING TAPE MARK. 29300000 ** OPEN/CLOSE/EOV AND RESTART ARE 29310000 ** TO SPACE OVER TAPE MARK IF IT 29320000 ** EXISTS. ICB212* 29330000 ** 6 JFCBLP BIT(1), /* -BYPASS LABEL PROCESSING * 29340000 ** 6 JFCSUL BIT(1), /* -USER LABEL * 29350000 ** 6 JFCNSL BIT(1), /* -NONSTANDARD LABEL * 29360000 ** 6 JFCSL BIT(1), /* -STANDARD LABEL * 29370000 ** 6 JFCNL BIT(1), /* -NO LABEL * 29380000 ** 5 JFCBOTTR CHAR(3), /* -DASD MOD DATA SET - IF AUTOMATI 29390000 ** STEP RESTART WAS REQUESTED TTR 29400000 ** OF EOD INDICATOR EXISTING WHEN 29410000 ** DATA SET WAS FIRST OPENED 29420000 ** DURING ORIGINAL EXECUTION * 29430000 ** 10 JFCBUFOF PTR(8), /* BUFFER OFFSET * 29440000 ** 11 JFCBFOFL BIT(1), /* USASI/USASCII - BLOCK PREFIX IS 29450000 ** 4 BYTES AND CONTAINS BLOCK 29460000 ** LENGTH IN UNPACKED DECIMAL. 29470000 ** SPECIFIED BY BUFOFF=L. * 29480000 ** 10 JFCBFLSQ FIXED(15) BDY(BYTE), /* -2ND & 3RD BYTES OF 29490000 ** JFCBOTTR/FILE 29500000 ** SEQUENCE NUMBER * 29510000 ** 11 JFCFUNC CHAR(1), /* FUNCTION INDICATOR FOR 3525 * 29520000 ** 12 JFCFNCBI BIT(1), /* INTERPRET (PUNCH AND PRINT TWO 29530000 ** LINES * 29540000 ** 12 JFCFNCBR BIT(1), /* READ * 29550000 ** 12 JFCFNCBP BIT(1), /* PUNCH * 29560000 ** 12 JFCFNCBW BIT(1), /* PRINT * 29570000 ** 12 JFCFNCBD BIT(1), /* DATA PROTECTION * 29580000 ** 12 JFCFNCBX BIT(1), /* THIS DATA SET IS TO BE PRINTED * 29590000 ** 12 JFCFNCBT BIT(1), /* TWO-LINE PRINT SUPPORT REQUEST * 29600000 ** 12 * BIT(1), /* RESERVED * 29610000 ** 5 JFCBVLSQ FIXED(15), /* -VOLUME SEQUENCE NUMBER * 29620000 ** 5 JFCBMASK CHAR(8), /* -DATA MANAGEMENT TASK * 29630000 ** 10 JFCBOPS1 CHAR(5), /* -OPEN ROUTINE INTERNAL SWITCHES* 29640000 ** 11 * CHAR(4), /* -OPEN ROUTINE INTERNAL 29650000 ** SWITCHES ICB303* 29660000 ** 11 * BIT(7), /* -OPEN ROUTINE INTERNAL 29670000 ** SWITCHES ICB303* 29680000 ** 11 JFCBPTTR BIT(1), /* -MODEL DEPENDENT 29690000 ** SUPPORT ICB303* 29700000 ** 10 JFCBFLG1 BIT(8), /* -FLAG BYTE * 29710000 ** 11 JFCSTAND BIT(1), /* -VOLUME LABEL PROCESSING STNDRD* 29720000 ** 11 JFCSLCRE BIT(1), /* -CREATION OF A STANDARD LABEL 29730000 ** IS NECESSARY * 29740000 ** 11 JFCSLDES BIT(1), /* -DESTRUCTION OF A STANDARD LABEL 29750000 ** IS NECESSARY * 29760000 ** 11 JFCDUAL BIT(1), /* -DUAL DENSITY CHECK DETECTED * 29770000 ** 11 JFCOPEN BIT(4), /* -OPEN ROUTINE INTERNAL 29780000 ** SWITCHES * 29790000 ** 10 JFCBFLG2 BIT(8), /* -FLAG BYTE OF OPEN SWITCHES * 29800000 ** 11 JFCINOP BIT(1), /* -TREAT THE INOUT OPTION OF OPEN 29810000 ** AS INPUT * 29820000 ** 11 JFCOUTOP BIT(1), /* -TREAT THE OUTIN OPTION OF OPEN 29830000 ** AS OUTPUT * 29840000 ** 11 JFCDEFER BIT(1), /* -DATA SET RELATED TO THE JFCB 29850000 ** IS BEING PROCESSED SEQUENTIALY 29860000 ** AT THE CHECKPOINT, ON A DIFF- 29870000 ** ERENT VOLUME THAN WHEN 29880000 ** PROCESSING BEGAN -WHEN RESTART 29890000 ** OCCURS, CAUSE DEFERRED VOLUME 29900000 ** MOUNTING * 29910000 ** 11 JFCMODNW BIT(1), /* -DISPOSITION CHANGED FROM MOD TO 29920000 ** NEW. DISPOSITION (IN JFCBIND2) 29930000 ** WILL BE RESTORED TO MOD AFTER 29940000 ** OPEN * 29950000 ** 11 JFCSDRPS BIT(1), /* -SEARCH DIRECT FOR RPS DEVICES * 29960000 ** 11 JFCTRACE BIT(1), /* -GTF TRACE IS TO OCCUR DURING 29970000 ** OPEN/CLOSE/EOV AND DYNAMIC 29980000 ** ALLOCATION PROCESSING OF DCB * 29990000 ** 11 JFCBBUFF BIT(1), /* -INDICATOR TO OPEN THAT A 30000000 ** NON-ZERO VALUE IN JFCBOTTR IS 30010000 ** NOT TO PREVENT THE NORMAL 30020000 ** STORING BY OPEN OF A TTR IN 30030000 ** JFCBOTTR * 30040000 ** 11 JFCRCTLG BIT(1), /* -SCHEDULER STEP TERMINATION 30050000 ** ROUTINE IS TO RECATALOG THIS 30060000 ** DATA SET AND PLACE IN THE 30070000 ** CATALOG ENTRY THE DSCB TTR 30080000 ** CONTAINED IN JFCBDSCB * 30090000 ** 10 JFCBOPS2 BIT(8), /* -OPEN ROUTINE INTERNAL SWITCHES* 30100000 ** 5 JFCBCRDT CHAR(3), /* -DATA SET CREATION DATE (YDD) * 30110000 ** 5 JFCBXPDT CHAR(3), /* -DATA SET EXPIRATION DATE (YDD)* 30120000 ** 5 JFCBIND1 BIT(8), /* -INDICATOR BYTE 1 * 30130000 ** 30140000 ** 6 JFCRLSE BIT(2), /* -RELEASE EXTERNAL STORAGE * 30150000 ** 6 JFCLOC BIT(2), /* -DATA SET HAS BEEN LOCATED * 30160000 ** 6 JFCADDED BIT(2), /* -NEW VOLUME HAS BEEN ADDED TO 30170000 ** DATA SET * 30180000 ** 6 JFCGDG BIT(1), /* -DATA SET IS MEMBER OF A GENERA- 30190000 ** TION DATA GROUP * 30200000 ** 6 JFCPDS BIT(1), /* -DATA SET IS MEMBER OF A PAR- 30210000 ** TIONED DATA SET * 30220000 ** 5 JFCBIND2 BIT(8), /* -INDICATOR BYTE 2 * 30230000 ** 30240000 ** 6 JFCDISP BIT(2), /* -BIT PATTERN FOR NEW,MOD,& OLD * 30250000 ** 30260000 ** 6 JFCSECUR BIT(2), /* -DATA SET SECURITY * 30270000 ** 6 JFCSHARE BIT(1), /* -SHARED DATA SET * 30280000 ** 6 JFCENT BIT(1), /* -DATA SET IS GENERATION OF A GDG 30290000 ** -PROCESSING OF ENTIRE GDG WAS 30300000 ** SPECIFIED- IF AUTOMATIC RESTRT 30310000 ** AT A CHECKPOINT OCCURS, JFCB 30320000 ** WILL BE DELETED * 30330000 ** 6 JFCREQ BIT(1), /* -STORAGE VOLUME REQUESTED * 30340000 ** 6 JFCTEMP BIT(1), /* -TEMPORARY DATA SET * 30350000 ** 5 JFCBUFNO CHAR(1), /* -NUMBER OF BUFFERS REQUIRED FOR 30360000 ** THIS DATA SET * 30370000 ** 6 JFCBUFIN CHAR(1), /* -BITS 0 THRU 3 # REC BUF * 30380000 ** 7 JFCBFOUT CHAR(1), /* -BITS 4 THRU 7 FOR # SEND BUF * 30390000 ** 10 JFCBUFRQ CHAR(1), /* -NUMBER OF BUFFERS REQUIRED FOR 30400000 ** EACH LINE (QTAM) * 30410000 ** 5 JFCBHIAR CHAR(1), /* -BUFFER POOL LOCATION IN MAIN 30420000 ** STORAGE (HIERARCHY) * 30430000 ** 10 JFCBFALN CHAR(1), /* -BUFFER ALIGNMENT * 30440000 ** 15 JFCBFTEK BIT(8), /* -BUFFERING TECHNIQUE/FOR GAM 30450000 ** THIS FIELD IS USED FOR THE 30460000 ** NUMBER OF IOBS CONSTRUCTED BY 30470000 ** THE OPEN ROUTINE- MAXIMUM 30480000 ** NUMBER IS 99 * 30490000 ** 16 JFCSIM BIT(1), /* -SIMPLE BUFFERING * 30500000 ** 16 JFCEXC BIT(1), /* -EXCHANGE BUFFERING * 30510000 ** 16 JFCDYN BIT(1), /* -DYNAMIC BUFFERING * 30520000 ** 16 JFCHIER1 BIT(1), /* -HIERARCHY 1 MAIN STORAGE * 30530000 ** 16 JFCDWORD BIT(1), /* -DOUBLE WORD BOUNDARY * 30540000 ** 16 JFCFWORD BIT(1), /* -FULL WORD BOUNDARY-NOT DOUBLE 30550000 ** WORD * 30560000 ** 5 JFCBUFL FIXED(15), /* -BUFFER LENGTH * 30570000 ** 5 JFCEROPT BIT(8), /* -ERROR OPTION SWITCH * 30580000 ** 15 JFCACC BIT(1), /* -ACCEPT * 30590000 ** 15 JFCSKP BIT(1), /* -SKIP * 30600000 ** 15 JFCABN BIT(1), /* -ABNORMAL END OF TASK * 30610000 ** 15 * BIT(5), /* -RESERVED * 30620000 ** 5 JFCTRTCH CHAR(1) BDY(BYTE); /* -TAPE RECORDING TECHNIQUE 30630000 ** FOR 7 TRACK TAPE * 30640000 ** DECLARE 30650000 ** 1 JFCKEYLE CHAR(1) BASED(ADDR(JFCTRTCH)), /* -DIRECT ACCESS 30660000 ** KEY LENGTH * 30670000 ** 10 JFCCODE BIT(8) BDY(BYTE), /* -CONVERSION CODE * 30680000 ** 11 JFCNOCON BIT(1), /* -NO CONVERSION * 30690000 ** 11 JFCBCD BIT(1), /* -IBM BCD * 30700000 ** 11 JFCFRI BIT(1), /* -FRIDEN * 30710000 ** 11 JFCBUR BIT(1), /* -BURROUGHS * 30720000 ** 11 JFCNCR BIT(1), /*-NATIONAL CASH REGISTER* 30730000 ** 11 JFCASCII BIT(1), /* -ASCII (8-TRACK) * 30740000 ** 11 JFCTTY BIT(1), /* -TELETYPE * 30750000 ** 11 * BIT(1); /* -RESERVED * 30760000 ** DECLARE 30770000 ** 1 JFCSTACK BIT(8) BASED(ADDR(JFCTRTCH)), /* -STACKER SELECTION * 30780000 ** 3 JFCMODE BIT(8) BDY(BYTE), /* -MODE OF OPERATION * 30790000 ** 5 JFCBIN BIT(1), /* -COLUMN BINARY MODE * 30800000 ** 5 JFCEBCD BIT(1), /* -EBCDIC MODE * 30810000 ** 5 JFCMODEO BIT(1), /* -OPTICAL MARK READ 30820000 ** MODE * 30830000 ** 5 JFCMODER BIT(1), /* -READ COLUMN ELIMINATE 30840000 ** MODE * 30850000 ** 5 * BIT(2), /* -RESERVED * 30860000 ** 5 JFCTWO BIT(1), /* -STACKER TWO * 30870000 ** 5 JFCONE BIT(1); /* -STACKER ONE * 30880000 ** 30890000 ** DECLARE 30900000 ** 1 JFCSPPRT BASED(ADDR(JFCTRTCH)), 30910000 ** 5 JFCPRTSP BIT(8) BDY(BYTE), /* -NORMAL PRINTER 30920000 ** SPACING * 30930000 ** 30940000 ** 30950000 ** 30960000 ** 5 JFCDEN BIT(8), /* -TAPE DENSITY -2400 SERIES 30970000 ** MAGNETIC TAPES * 30980000 ** 30990000 ** 5 JFCLIMCT CHAR(3), /* -SEARCH LIMIT (BDAM) * 31000000 ** 10 * CHAR(1), /* - -1ST BYTE JFCLIMIT (BDAM)/ 31010000 ** RESERVED * 31020000 ** 10 JFCTRKBL CHAR(2), /* -2ND & 3RD BYTES JFCLIMIT (BDAM) 31030000 ** /DATA SET OPENED FOR MOD -IF 31040000 ** AUTOMATIC STEP RESTART WAS 31050000 ** REQUESTED, TRACK BALANCE EXIS- 31060000 ** TING WHEN THE DATA SET WAS 31070000 ** FIRST OPENED DURING THE ORIG- 31080000 ** INAL EXECUTION OF THE CURRENT 31090000 ** STEP * 31100000 ** 5 JFCDSORG BIT(16), /* - DATA SET ORGANIZATION BEING 31110000 ** USED * 31120000 ** 10 JFCDSRG1 BIT(8), /* - BYTE 1 OF JFCDSORG * 31130000 ** 11 JFCORGIS BIT(1), /* - INDEXED SEQUENTIAL * 31140000 ** 11 JFCORGPS BIT(1), /* - PHYSICAL SEQUENTIAL * 31150000 ** 11 JFCORGDA BIT(1), /* - DIRECT * 31160000 ** 11 * BIT(3), /* - RESERVED * 31170000 ** 11 JFCORGPO BIT(1), /* - PARTITIONED * 31180000 ** 11 JFCORGU BIT(1), /* - UNMOVABLE- THE DATA CONTAINS 31190000 ** LOCATION DEPENDENT INFO * 31200000 ** 10 JFCDSRG2 BIT(8), /* -BYTE 2 OF JFCDSORG * 31210000 ** 11 JFCORGGS BIT(1), /* -GRAPHICS * 31220000 ** 11 * BIT(7), /* -RESERVED * 31230000 ** 5 JFCRECFM BIT(8), /* -RECORD FORMAT * 31240000 ** 6 JFCFMRC BIT(3), /* -RECORD FORMAT (USASI/USASCII) * 31250000 ** 7 JFCFMREC BIT(2), /* -BITS INDICATING FORMAT OF THE 31260000 ** RECORD * 31270000 ** 31280000 ** 31290000 ** 7 JFCRFO BIT(1), /* -TRACK OVERFLOW * 31300000 ** 6 JFCRFB BIT(1), /* -BLOCKED -(MAY NOT OCCUR WITH 31310000 ** UNDEFINED) * 31320000 ** 6 JFCRFS BIT(1), /* -STANDARD -NO TRUNCATED BLOCKS 31330000 ** OR UNFILLED BLOCKS ARE ENBEDDED 31340000 ** IN THE DATA SET * 31350000 ** /******************************************************************* 31360000 ** /* THE FOLLOWING THREE ASSIGNED VALUES ARE FOR THE CONTROL CHARACT-* 31370000 ** /* -ERS IN BITS 5 & 6 OF JFCRECFM . * 31380000 ** /******************************************************************* 31390000 ** 6 JFCCHAR BIT(2), 31400000 ** 6 * BIT(1), /* -RESERVED * 31410000 ** 5 JFCOPTCD BIT(8), /* -OPTION CODES * 31420000 ** 6 JFCWVCSP BIT(1), /* -QSAM-BSAM-BPAM-WRITE VALIDITY 31430000 ** CHECK * 31440000 ** 7 JFCWVCIS BIT(1), /* -BISAM-QISAM WRITE VALIDITY 31450000 ** CHECK * 31460000 ** 8 JFCWVCBD BIT(1), /* -BDAM WRITE VALIDITY 31470000 ** CHECK * 31480000 ** 9 JFCSDNAM BIT(1), /* -TCAM--SOURCE OR DESTINATION 31490000 ** NAME PRECEDES MESSAGE (AFTER 31500000 ** CONTROL BYTE) * 31510000 ** 6 JFCALLOW BIT(1), /* -QSAM-BSAM-BPAM-ALLOW A DATA 31520000 ** CHECK CAUSED BY AN INVALID 31530000 ** CHARACTER (1403 PRINTER WITH 31540000 ** UCS * 31550000 ** 7 * BIT(1), /* -RESERVED * 31560000 ** 8 JFCOVER BIT(1), /* -BDAM- TRACK OVERFLOW * 31570000 ** 9 JFCWUMSG BIT(1), /* -TCAM--WORK UNIT IS A MESSAGE. 31580000 ** DEFAULT WORK UNIT IS A RECORD. * 31590000 ** 31600000 ** 6 JFCPCIBT BIT(1), /* -QSAM-BSAM-BPAM-CHAINED SCHEDUL- 31610000 ** ING USING THE PROGRAM CONTRLED 31620000 ** INTERRUPTION * 31630000 ** 7 JFCMAST BIT(1), /* -BISAM-QISAM- MASTER INDEXES * 31640000 ** 8 JFCEXT BIT(1), /* -BDAM- EXTENDED SEARCH* 31650000 ** 9 JFCCBWU BIT(1), /* -TCAM--CONTROL BYTE PRECEDES 31660000 ** WORK UNIT * 31670000 ** 31680000 ** 6 JFCBCKPT BIT(1), /* -QSAM-BSAM-BPAM-BYPASS EMBEDDED 31690000 ** DOS CHECKPOINT RECORDS ON TAPE* 31700000 ** 7 JFCIND BIT(1), /* -BISAM-QISAM INDEPENDENT 31710000 ** OVERFLOW AREA * 31720000 ** 8 JFCFEED BIT(1), /* -BDAM- FEEDBACK * 31730000 ** 31740000 ** 31750000 ** 6 * BIT(1), /* -RESERVED * 31760000 ** 7 JFCCYL BIT(1), /* -BISAM-QISAM CYLINDER OVER- 31770000 ** -FLOW AREA * 31780000 ** 8 JFCACT BIT(1), /* -BDAM- ACTUAL ADRESING* 31790000 ** 9 JFCOPTQ BIT(1), /* -USASI/USASCII--EBCDIC TO OR 31800000 ** FROM USASCII TRANSLATION 31810000 ** REQUESTED * 31820000 ** 31830000 ** 6 JFCREDUC BIT(1), /* -QSAM-BSAM-BPAM-USE REDUCED ERR 31840000 ** RECOVERY PROCEDURE-(MAGNETIC 31850000 ** TAPE) * 31860000 ** 7 * BIT(1), /* -RESERVED * 31870000 ** 8 * BIT(1), /* -RESERVED * 31880000 ** 9 JFCSRCHD BIT(1), /* -QSAM-BSAM-BPAM-SEARCH DIRECT 31890000 ** INSTEAD OF SEARCH PREVIOUS- 31900000 ** (ROTATIONAL POSITION SENSING 31910000 ** DEVICES) * 31920000 ** 31930000 ** 6 * BIT(1), /* -RESERVED * 31940000 ** 7 JFCDEL BIT(1), /* -BISAM-QISAM DELETE OPTION * 31950000 ** 8 * BIT(1), /* -RESERVED * 31960000 ** 31970000 ** 31980000 ** 6 * BIT(1), /* -RESERVED * 31990000 ** 7 JFCREORG BIT(1), /* -BISAM-QISAM REORGANIZATION 32000000 ** CRITERIA * 32010000 ** 8 JFCREL BIT(1), /* -BDAM RELATIVE TRACK 32020000 ** ADDRESSING * 32030000 ** 5 JFCBLKSI FIXED(15) BDY(BYTE), /* -MAXIMUM BLOCK SIZE * 32040000 ** 10 JFCBUFSI FIXED(15) BDY(BYTE), 32050000 ** /* 2 BYTES FIR MAX BUFFER SIZE * 32060000 ** 5 JFCLRECL FIXED(15) BDY(BYTE), /* -LOGICAL RECORD LENGTH * 32070000 ** 5 JFCNCP CHAR(1), /* -NUMBER OF CHANNEL PROGRAMS - 32080000 ** NUMBER OF READ OR WRITE RE- 32090000 ** QUESTS THAT MAY BE ISSUED 32100000 ** PRIOR TO A CHECK- NUMBER OF 32110000 ** IOBS GENERATED (MAXIMUM NUMBER 32120000 ** IS 99) 32130000 ** NOTE: GAM USES JFCBFTEK FOR 32140000 ** THIS INFORMATION AND DOES 32150000 ** NOT USE THIS FIELD AT ALL * 32160000 ** 32170000 ** 10 JFCBUFMX CHAR(1), /* MAX NO. BUFFERS FOR DATA TRANS* 32180000 ** 5 JFCNTM CHAR(1), /* -NUMBER OF TRACKS THAT DETERMINE 32190000 ** THE DEVELOPMENT OF A MASTER 32200000 ** INDEX -MAXIMUM NUMBER IS 99 * 32210000 ** 10 JFCPCI CHAR(1), 32220000 ** 32230000 ** /******************************************************************* 32240000 ** /* * 32250000 ** /* NORMAL 108 SEGMENT * 32260000 ** /* * 32270000 ** /******************************************************************* 32280000 ** 32290000 ** 5 JFCRKP FIXED(15) BDY(BYTE), /* -RELATIVE POSITION OF THE FIRST 32300000 ** BYTE OF THE KEY WITHIN EACH 32310000 ** LOGICAL RECORD- MAXUMUM VALU 32320000 ** IS LOGICAL RECORD LENGTH 32330000 ** MINUS KEY LENGTH * 32340000 ** 10 JFCRESRV FIXED(15) BDY(BYTE), 32350000 ** 5 JFCCYLOF CHAR(1), /* -NUMBER OF TRACKS TO RE RESERVED 32360000 ** ON EACH CYLINDER TO HOLD 32370000 ** RECORDS THAT OVERFLOW FROM 32380000 ** OTHER TRACKS ON THAT CYLINDER 32390000 ** -MAXIMUM VALUE IS 99 * 32400000 ** 32410000 ** 5 JFCDBUFN CHAR(1), /* -RESERVED * 32420000 ** 5 JFCINTVL CHAR(1); /* -INTENTIONAL DELAY, IN SECONDS 32430000 ** BETWEEN PASSES THROUGH A POLL 32440000 ** ING LIST (QTAM) * 32450000 ** 32460000 ** /******************************************************************* 32470000 ** /* * 32480000 ** /* END OF NORMAL 108 SEGMENT * 32490000 ** /* * 32500000 ** /******************************************************************* 32510000 ** 32520000 ** /******************************************************************* 32530000 ** /* * 32540000 ** /* 108 PRINTER SEGMENT * 32550000 ** /* * 32560000 ** /******************************************************************* 32570000 ** DECLARE 32580000 ** 1 JFCUCSEG BASED (ADDR(JFCRKP)), 32590000 ** 32600000 ** 5 JFCUCSID CHAR(4), /* -NAME OF THE UCS IMAGE TO BE 32610000 ** LOADED * 32620000 ** 5 JFCUCSOP BIT(8), /* -OPERATION OF THE UCS IMAGE TO 32630000 ** BE LOADED * 32640000 ** 6 * BIT(1), /* -RESERVED * 32650000 ** 6 JFCFOLD BIT(1), /* -UCS IMAGE TO BE LOADED IN THE 32660000 ** FOLD MODE * 32670000 ** 6 * BIT(1), /* -RESERVED * 32680000 ** 6 JFCVER BIT(1), /* -UCS IMAGE TO BE VERIFIED * 32690000 ** 6 JFCFCBAL BIT(1), /* -FORMS CONTROL BUFFER ALIGN * 32700000 ** 6 JFCFCBVR BIT(1), /* -FORMS CONTROL BUFFER VERIFY * 32710000 ** 6 * BIT(2), /* -RESERVED * 32720000 ** 32730000 ** /******************************************************************* 32740000 ** /* * 32750000 ** /* END OF 108 PRINTER SEGMENT * 32760000 ** /* * 32770000 ** /******************************************************************* 32780000 ** 32790000 ** 5 JFCOUTLI CHAR(1) BDY(BYTE), /* OUTPUT LIMIT FOR SMF * 32800000 ** 6 JFCTHRSH CHAR(1), /* RECORDS TO BE USED * 32810000 ** 7 JFCCPRI BIT(8), /* -PRIORITY BETWEEN SEND AND 32820000 ** RECEIVE OPERATIONS (QTAM) * 32830000 ** 8 JFCSEND BIT(1), /* -SEND PRIORITY * 32840000 ** 8 JFCEQUAL BIT(1), /* -EQUAL PRIORITY * 32850000 ** 8 JFCRECV BIT(1), /* -RECEIVE PRIORITY * 32860000 ** 8 * BIT(5), /* -RESERVED * 32870000 ** 5 JFCSOWA FIXED(15), /* -LENGTH, IN BYTES, OF THE USER 32880000 ** PROVIDED WORK AREA (QTAM) * 32890000 ** 5 JFCBNTCS CHAR(1), /* -NUMBER OF OVERFLOW TRACKS * 32900000 ** 5 JFCBNVOL CHAR(1), /* -NUMBER OF VOL. SER. NUMBERS * 32910000 ** 5 JFCBVOLS CHAR(30), /* -THE FIRST 5 VOL.SER. NUMBERS * 32920000 ** 5 JFCBEXTL CHAR(1), /* -LENGTH OF BLOCK OF EXTRA VOL. 32930000 ** SER. NUMBERS BEYOND 5 * 32940000 ** 5 JFCBEXAD CHAR(3), /* -RELATIVE TRACK ADDRESS (TTR) 32950000 ** OF FIRST JFCB EXTENSION BLOCK* 32960000 ** 5 JFCBPQTY CHAR(3), /* -PRIMARY QUANTITY OF DIRECT ACC- 32970000 ** ESS STORAGE REQUIRED * 32980000 ** 5 JFCBCTRI BIT(8), /* -SPACE PARAMETERS * 32990000 ** /******************************************************************* 33000000 ** /* THE FOLLOWING FOUR ASSIGNMENT STATEMENTS OF BINARY VALUES ARE * 33010000 ** /* FOR THE SPACE MASK BITS TO BE SET IN THE HIGH ORDER TWO BITS * 33020000 ** /* OF JFCBCTRI * 33030000 ** /******************************************************************* 33040000 ** 6 JFCBSPAC BIT(2), /* -SPACE MASK BITS * 33050000 ** 33060000 ** 6 * BIT(1), /* -RESERVED * 33070000 ** 6 * BIT(1), /* -RESERVED * 33080000 ** 33090000 ** 6 JFCONTIG BIT(1), /* -'CONTIG' REQUEST * 33100000 ** 6 JFCMIXG BIT(1), /* -'MXIG' REQUEST * 33110000 ** 6 JFCALX BIT(1), /* -'ALX' REQUEST * 33120000 ** 6 JFCROUND BIT(1), /* -'ROUND' REQUEST * 33130000 ** 33140000 ** 5 JFCBSQTY CHAR(3), /* -SECONDARY QUANTITY OF DIRECT 33150000 ** ACCESS STORAGE REQUIRED * 33160000 ** 5 * CHAR(1), /* -RESERVED * 33170000 ** 5 JFCBDQTY CHAR(3), /* -QUANTITY OF DIRECT ACCESS STOR- 33180000 ** AGE REQUIRED FOR A DIRECTORY 33190000 ** OR AN EMBEDDED INDEX AREA * 33200000 ** 5 JFCBSPNM PTR(24) BDY(BYTE), /* -MAIN STORAGE ADDRESS OF THE 33210000 ** JFCB WITH WHICH CYLINDERS ARE 33220000 ** SPLIT * 33230000 ** 5 JFCBABST FIXED(15), /* -RELATIVE ADDRESS OF FIRST TRACK 33240000 ** TO BE ALLOCATED * 33250000 ** 5 JFCBSBNM PTR(24) BDY(BYTE), /* -MAIN STORAGE ADDRESS OF THE 33260000 ** JFCB FROM WHICH SPACE IS TO 33270000 ** BE SUBALLOCATED * 33280000 ** 5 JFCBDRLH CHAR(3), /* -AVERAGE DATA BLOCK LENGTH * 33290000 ** 5 JFCBVLCT CHAR(1), /* -VOLUME COUNT * 33300000 ** 5 JFCBSPTN CHAR(1), /* -NUMBER OF TRACKS PER CYLINDER 33310000 ** TO BE USED BY THIS DATA SET 33320000 ** WHEN SPLIT CYLINDER IS INDI- 33330000 ** CATED * 33340000 ** 5 JFCBEND CHAR(0) BDY(BYTE); 33350000 * DECLARE 1 INSMSCT BDY(DWORD) BASED(LCTSCTAD),/* SCT */ 33360000 * 4 SCTDISKA PTR(24) BDY(WORD), /* DISK ADDRESS OF SCT */ 33370000 * 4 SCTTBLID CHAR(1), /* TABLE ID OF SCT = 4 */ 33380000 * 4 SCTSSTAT BIT(8), /* INTERNAL STEP STATUS */ 33390000 * 6 EAOUTABL BIT(1), /* ROLLOUTABLE BIT */ 33400000 * 6 EACAUSER BIT(1), /* CAN CAUSE ROLLOUT */ 33410000 * 6 SCTNORST BIT(1), /* NO RESTART TO BE DONE */ 33420000 * 6 SCTNOCKP BIT(1), /* NO CHECKPOINT TO BE TAKEN */ 33430000 * 6 SCTDORST BIT(1), /* DO RESTART IF NECESSARY */ 33440000 * 6 SCTKEY0 BIT(1), /* FOR GRAPHICS - ALTER PROTECT KEY */ 33450000 * 6 SCTGRPH BIT(1), /* FOR GRAPHICS - ABEND EXIT */ 33460000 * 6 INCMSSTS BIT(1), /* STEP FAILED */ 33470000 * 4 SCTSTIME PTR(24), /* MAXIMUM STEP RUNNING TIME */ 33480000 * 4 SCTSEXEC CHAR(2), /* STEP STATUS CODE */ 33490000 * 4 SCTLALOC PTR(15), /* LENGTH OF ALLOCATION WORK AREA OR NO.DDS 33500000 * 4 SCTFSIOT PTR(24) BDY(WORD), /* DISK ADDRESS OF FIRST SIOT */ 33510000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33520000 * 4 SCTAALOC PTR(24) BDY(WORD), /* TTR OF ALLOC WORK AREA*/ 33530000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33540000 * 4 SCTANSCT PTR(24) BDY(WORD), /* DISK ADDRESS OF NEXT SCT */ 33550000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33560000 * 4 SCTAFSMB PTR(24) BDY(WORD), /* DISK ADDRESS OF FIRST SMB */ 33570000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33580000 * 4 SCTADSMB PTR(24) BDY(WORD), /* TTR OF DUMMY SMB (ALLOCATED) */ 33590000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33600000 * 4 SCTAFACT PTR(24) BDY(WORD), /* TTR OF 1ST ACT OF STEP */ 33610000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33620000 * 4 SCTVOLTB PTR(24) BDY(WORD), /* QUEUE ADDRESS OF VOLT */ 33630000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33640000 * 4 SCTADSTB PTR(24) BDY(WORD), /* TTR OF DSN TABLE FOR THIS STEP 33650000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33660000 * 4 SCTSCLPC CHAR(8), /* NAME OF STEP THAT CALLED PROCEDURE */ 33670000 * 4 SCTSNAME CHAR(8), /* STEP NAME */ 33680000 * 4 SCTRPACT PTR(15), /* REL PTR TO STEP ENTRY IN ACT */ 33690000 * 4 SCTVOLTL PTR(15), /* LENGTH OF VOLUME TABLE */ 33700000 * 4 SCTNSIOT PTR(8), /* NO. OF SIOTS IN THIS STEP */ 33710000 * 4 SCTNSMSG PTR(8), /* NO. OF SETUP MESSAGES */ 33720000 * 4 SCTNJFCB PTR(8), /* NO. OF JFCBS TO ALLOCATE */ 33730000 * 4 SCTSTYPE BIT(8), /* STEP TYPE INDICATORS */ 33740000 * 6 SCTGOSTP BIT(1), /* FETCH DCB */ 33750000 * 6 SCTINPUT BIT(1), /* IF SYSIN IS SPECIFIED (DD *) */ 33760000 * 6 SCTOUTMC BIT(1), /* PARAMETER ASSOC WITH SYSOUT KEYWORD 33770000 * SPECIFIES MSGCLASS */ 33780000 * 6 SCTSJFHK BIT(1), /* JFCB H/K COMPLETE */ 33790000 * 6 SCTINITB BIT(3), /* BITS USED BY THE INITIATOR */ 33800000 * /* 000 -USE ACTION CODE 33810000 * 001 - GO TO AVR MODULE 33820000 * 001 33830000 * 010 - GO TO SPACE REQUEST 33840000 * 011 - GO TO EXTERNAL ACTION SETUP 33850000 * 100 - GO TO EXTERNAL ACTION VERIFY 33860000 * 101 - NULL 33870000 * 110 - NULL 33880000 * 111 - NULL */ 33890000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 33900000 * 4 SCTXBTTR PTR(24) BDY(WORD), /* ADDR OF SCT BLOCK WITH PARM */ 33910000 * 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 33920000 * 4 SCTMSADR PTR(31), /* ADDR OF REGION IN MAIN STORAGE */ 33930000 * 4 SCTLCSAD PTR(31), /* ADDR OF REGION IN LCS */ 33940000 * 4 SCTCRWTP PTR(24) BDY(WORD), /* TTR OF 1ST WTP SMB FOR AUTO C/R 33950000 * 4 SCTCRCNT PTR(8), /* COUNT OF WTP SMB'S FOR STEP*/ 33960000 * 4 * CHAR(1), /* RESERVED 20033* 33970000 * 4 SCTTEXT CHAR(3), /* TTR OF TIOT EXTENSION TABLE 20033* 33980000 * 4 SCTMSSZE PTR(15), /* SIZE OF REGION IN MAIN STORAGE */ 33990000 * 4 SCTLCSSZ PTR(15), /* SIZE OF REGION IN LCS */ 34000000 * 4 * PTR(15), /* RESERVED FOR FUTURE USE */ 34010000 * 4 SCTSDPTY BIT(8), /* MISC BITS AND PIECES */ 34020000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 34030000 * 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 34040000 * 6 SCTFSTEP BIT(1), /* FIRST STEP TO BE EXECUTED */ 34050000 * 6 SCTSDP BIT(5), /* DISPATCHING PRIORITY */ 34060000 * 4 * CHAR(1), /* RESERVED FOR FUTURE */ 34070000 * 4 SCTSMF PTR(31), /* STEP SYSIN COUNT FOR SMF */ 34080000 * 4 SCTGOTTR PTR(31), /* TTR OF *.SIOT */ 34090000 * 4 SCTSTAT2 BIT(8), /* EXTENSION OF STEP STATUS INDICATORS */ 34100000 * 6 SCTBCT BIT(8), /* GDG BIAS COUNT UPDATE FLAG */ 34110000 * 8 * BIT(1), /* RESERVED FOR FUTURE USE */ 34120000 * 8 SCTDSOCL BIT(1), /* SET BY IEFDSOAL IN ALLOC IF 34130000 * IEFDSOWR IS TO BE CALLED IN 34140000 * IEFSD512 OR IEFSD162 UPON RETURN 34150000 * FROM ALLOC, THEN RESET. 34160000 * USED BY IEFYTVMS IN TERMIN TO 34170000 * SCAN DSOCB'S ONCE. MVT & MFT ONLY */ 34180000 * 8 SCTMCVOL BIT(1), /* ALLOCATION FOR CVOL */ 34190000 * 8 * BIT(1), /* RESERVED FOR FUTURE USE */ 34200000 * 8 SCTSTPLB BIT(1), /* STEPLIB PRESENT */ 34210000 * 8 SCTSPSYS BIT(1), /* RESERVED FOR FUTURE USE */ 34220000 * 8 SCTJBEND BIT(1), /* JOB ENDED BIT */ 34230000 * 8 SCTBCTU BIT(1), /* GDG BIAS COUNT UPDATE NEEDED */ 34240000 * 4 SCTTIOT PTR(24), /* TIOT TTR */ 34250000 * 4 SCTPGMNM CHAR(8), /* PROGRAM NAME */ 34260000 * 4 SCTLDSTB PTR(15), /* LENGTH OF DSNAME TABLE FOR THIS STEP */ 34270000 * 4 SCTCDENT (8) CHAR(6), /* 7 CONDITION CODE ENTRIES */ 34280000 * 6 SCTSDPCD CHAR(2), /* FIRST STEP CONDITION CODE */ 34290000 * 6 SCTSDPOP CHAR(1), /* FIRST CONDITION CODE OPERATOR */ 34300000 * 6 SCTSDPSA PTR(24) BDY(BYTE), /* TTR OF 1ST CONDITION SCT */ 34310000 * 4 SCTEQREG CHAR(2), /* REGION SIZE */ 34320000 * 4 SCTEQTTR PTR(24) BDY(WORD), /* QUEUE ADDR OF FIRST DSB */ 34330000 * 4 SCTEQCMC PTR(8), /* NO OF MSG CLASS DSBS FOR THIS STEP */ 34340000 * 4 SCTSTEND BIT(8), /* BITS AND PIECES */ 34350000 * 6 SCTSTSRT BIT(1), /* STEP STARTED BIT */ 34360000 * 6 SCTSTPND BIT(1), /* STEP ENDED BIT */ 34370000 * 6 * BIT(6), /* RESERVED FOR FUTURE USE */ 34380000 * 4 SCTAISMB PTR(24); /* TTR OF LAST SMB */ 34390000 * DECLARE 1 INDMVOLT CHAR(180) BDY(WORD) BASED(ADDR(INSMSCT)+176); 34400000 * /* VOLUME TABLE */ 34410000 * DECLARE 1 INDMDSNT CHAR(180) BDY(WORD) BASED(ADDR(INDMVOLT)+180); 34420000 * /* DSNAME TABLE */ 34430000 * /* OVERLAY FOR EIGTH CONDITION CODE */ 34440000 * DECLARE 1 * BASED( ADDR ( SCTCDENT)+42), /* EIGHT CONDITION CODE 34450000 * 4 SCTABCND BIT(8), /* 8TH CODE SLOT OR OTHER INFO */ 34460000 * 6 * BIT(3), /* RESERVED FOR FUTURE USE */ 34470000 * 6 SCTABCAN BIT(1), /* STEP CANCEL-PRIOR ABEND NO EVEN/ONLY */ 34480000 * 6 SCTONLYC BIT(1), /* STEP CANCEL-ONLY WITH NO PRIOR ABENDS * 34490000 * 6 SCTABEND BIT(1), /* THIS STEP ABENDED */ 34500000 * 6 SCTEVEN BIT(1), /* COND=EVEN WAS SPECIFIED */ 34510000 * 6 SCTONLY BIT(1), /* COND=ONLY WAS SPECIFIED */ 34520000 * 4 * CHAR(5); /* REST OF CONDITION CODE SLOT */ 34530000 * DCL 1 TEMMEN BASED(R8), 34540000 * 2 DSEMEMN CHAR(8); 34550000 * 34560000 * 34570000 * 34580000 * DCL 1 DSCB BASED(DSCBARA), 34590000 * 2 * CHAR(38), 34600000 * 2 DS1DSORG CHAR(1); 34610000 * 34620000 * 34630000 * 34640000 * DCL 1 GFLIST, /* AUTOMATIC AREA USED FOR LIST FORMS OF * 34650000 * /* GETMAIN AND FREEMAIN MACROS * 34660000 * 2 LAADDR CHAR(4), /* STORAGE ADDR LIST PTR * 34670000 * 2 AADDR CHAR(4), /* LENGTH LIST PTR * 34680000 * 2 FLAGS CHAR(1), /* FLAGS TO INDICATE TYPE * 34690000 * 2 SPNBR CHAR(1); /* SUBPOOL NUMBER * 34700000 * 34710000 * 34720000 * 34730000 * DCL 1 AREASAVE BASED, 34740000 * 2 * CHAR(4), 34750000 * 2 NXTSAVE PTR(31), 34760000 * 2 * CHAR(8), 34770000 * 2 RTNCODE FIXED(31); 34780000 * 34790000 * 34800000 * 34810000 * DCL LOOPER CHAR(44) BASED(R4); 34820000 * DCL 1 MSG600 BASED(R4), 34830000 * 2 * CHAR(4), 34840000 * 2 * CHAR(17), 34850000 * 2 TYPEE CHAR(7), /* OVERLAY */ 34860000 * 2 OCODE FIXED(15), /* STRUCTURE */ 34870000 * 2 * CHAR(14), /* FOR */ 34880000 * 2 DNAME CHAR(8), /* THE */ 34890000 * 2 * CHAR(6), /* OBTAIN */ 34900000 * 2 TUSER CHAR(7), /* ERROR */ 34910000 * 2 * CHAR(6), /* MESSAGE. */ 34920000 * 2 TPROC CHAR(8); 34930000 * 34940000 * 34950000 * DCL 1 MSG600A BASED(R4), 34960000 * 2 * CHAR(4), 34970000 * 2 * CHAR(17), /* OVERLAY */ 34980000 * 2 ITYPEE CHAR(4), /* STRUCTURE */ 34990000 * 2 * CHAR(13), /* FOR */ 35000000 * 2 IDNAME CHAR(8), /* THE */ 35010000 * 2 * CHAR(6), /* I/O */ 35020000 * 2 ITUSER CHAR(7), /* ERROR */ 35030000 * 2 * CHAR(6), /* MESSAGE. */ 35040000 * 2 ITPROC CHAR(8); 35050000 * 35060000 * 35070000 * DCL 1 MSG602 BASED(R4), 35080000 * 2 * CHAR(4), 35090000 * 2 * CHAR(30), /* OVERLAY */ 35100000 * 2 ETYPE FIXED(31) BDY(HWORD), /* STRUCTURE */ 35110000 * 2 * CHAR(6), /* FOR */ 35120000 * 2 PUSER CHAR(7), /* GETMAIN */ 35130000 * 2 * CHAR(6), /* ERROR */ 35140000 * 2 PROCT CHAR(8); /* MESSAGE. */ 35150000 * DCL 1 STPLINE BASED(R4), 35160000 * 2 UPTADR PTR(31), 35170000 * 2 ECTPTR PTR(31), 35180000 * 2 ECBPTR PTR(31), 35190000 * 2 NUMPTR PTR(31), 35200000 * 2 TYPMSG FIXED(31), 35210000 * 2 MSGPTR PTR(31); 35220000 * 35230000 * 35240000 * DCL 1 ECBOVLY BASED(ADDR(LWAAECB)), 35250000 * 2 ACTECB FIXED(31), 35260000 * 3 AECBWBIT BIT(1), 35270000 * 3 AECBPBIT BIT(1); 35280000 * 35290000 * 35300000 * 35310000 * DCL 1 DSNCHK BASED(ADDR(JFCBDSNM)), 35320000 * 2 DSNSTG CHAR(44), 35330000 * 3 * CHAR(8), 35340000 * 3 AP CHAR(1), 35350000 * 3 * CHAR(7), 35360000 * 3 BP CHAR(1), 35370000 * 3 * CHAR(5), 35380000 * 3 CP CHAR(1); 35390000 * 35400000 * 35410000 * /* USED FOR A TEST IN THE CONSTRUCTION OF DSE'S. STEPLIB */ 35420000 * /* DD'S DO NOT GET THE NOT IN USE BIT SET IN THE DSE. */ 35430000 * 35440000 * DCL STPTEST CHAR(8) INIT('STEPLIB '); 35450000 * 35460000 * DCL LISTGM GENERATED CHAR(10); 35470000 * DCL LISTFM GENERATED CHAR(10); 35480000 * DCL PUTLINE GENERATED CHAR(12); 35490000 * DCL PUTOUT GENERATED CHAR(12); 35500000 * 35510000 * DCL QMGRPTR PTR(32) BASED(ADDR(LCT)+76); 35520000 * DCL IEFQMRAW ENTRY BASED(QMGRPTR); 35530000 * 35540000 * 35550000 * /* USED AS DSNAME IN DSE WHENEVER A DYNAM OR DUMMY STMNT IS FOUND */ 35560000 * DCL NULTEST CHAR(8) INIT('NULLFILE'); 35570000 * 35580000 * DCL 1 MESSAGES BASED(ADDR(JMSGMOD)), 35590000 * 2 M600 CHAR(83) BDY(WORD), 35600000 * 2 M600A CHAR(77) BDY(WORD), 35610000 * 2 M602 CHAR(69) BDY(WORD); 35620000 * 35630000 * GENERATE; 35640000 JMSGMOD CSECT 35650000 WTO 'IKJ600I TSOLOGON OBTAIN NN ERROR DDNAME=UNKNOWN ,USER=*35660000 UNKNOWN,PROC=UNKNOWN ',MF=L,ROUTCDE=(2,10),DESC=4 35670000 WTO 'IKJ600I TSOLOGON I/O ERROR DDNAME=UNKNOWN ,USER=UNKNOW*35680000 N,PROC=UNKNOWN ',MF=L,ROUTCDE=(2,10),DESC=4 35690000 WTO 'IKJ602I TSOLOGON GETMAIN ERROR ,USER=UNKNOWN,PROC=U*35700000 NKNOWM ',MF=L,ROUTCDE=(2,10),DESC=4 35710000 IKJEFLJ CSECT 35720000 DS 0H 35730000 * RESTRICT(PARMPTR,DSEPTR); 35740000 * GENERATE; 35750000 B FIRSTA 35760000 DC C'IKJEFLJ ' 35770000 DC C'02011971' 35780000 DS 0H 35790000 CLEAR XC 0(0,1),0(1) USED IN CLEARING THE VARIABLE LGTH DSE 35800000 FIRSTA DS 0H 35810000 DS 0H 35820000 **/*IKJEFLJ: CHART */ 35830000 **/*HEADER 35840000 **/*CHARTAA (IKJEFLJ) PRE-INVOCATION 35850000 **/*INITATOR EXIT 35860000 **/*ROUTINE */ 35870000 * /*******************************/ 35880000 **/*IKJEFLJ: E ROUTINE ENTRY */ 35890000 * /*******************************/ 35900000 * PARMPTR=PARMREG /* GET PARM PTR PASSED IN REG1 */ 35910000 LR @2,@1 0134 35920000 * TIOTPTR=ATIOTPTR /* SET BASE TO THE TIOT */ 35930000 MVC TIOTPTR(4),4(@2) 0135 35940000 * LCTPTR=ALCTPTR /* SET BASE THE LCT */ 35950000 MVC LCTPTR(4),0(@2) 0136 35960000 * QMPAPTR=ADDR(QMGR1) /* SET BASE OF QMPA */ 35970000 L @3,LCTPTR 0137 35980000 LA @F,248(0,@3) 0137 35990000 ST @F,QMPAPTR 0137 36000000 * RELEASE (PARMPTR); 36010000 * /*******************************/ 36020000 **/* P SET ADDRESSABILITY TO 36030000 **/* TIOT/LCT FROM INPUT */ 36040000 * /*******************************/ 36050000 * JSCBPSCB = LWAPSCB /* PSCB PTR IN JSCB FROM LWA */ 36060000 L @2,LCTPTR 0139 36070000 L @2,352(0,@2) LCT 0139 36080000 L @2,20(0,@2) IEL 0139 36090000 L @2,4(0,@2) IELEXITS 0139 36100000 L @2,4(0,@2) JSWA 0139 36110000 L @2,16(0,@2) JSEL 0139 36120000 L @2,4(0,@2) JSXL 0139 36130000 L @4,LCTPTR 0139 36140000 L @4,360(0,@4) LCT 0139 36150000 MVC 264(4,@4),16(@2) 0139 36160000 * DUMPBT = '0'B /* TURN OFF THE TSO DUMP BIT */ 36170000 NI LJBITS,B'11111110' 0140 36180000 * /*******************************/ 36190000 **/* P TURN OFF THE TSO DUMP BIT */ 36200000 * /*******************************/ 36210000 * IF SCTANSCT ª= 0 /* ANOTHER SCT ON CHAIN */ 36220000 * THEN /* TELL USER HE'S IN TROUBLE */ 36230000 SR @F,@F 0141 36240000 L @2,LCTPTR 0141 36250000 L @2,20(0,@2) LCT 0141 36260000 MVC @TEMP3+1(3),20(@2) 0141 36270000 C @F,@TEMP3 0141 36280000 BC 08,@9FF 0141 36290000 * DO /* THERE IS MORE THAN ONE SCT */ 36300000 * /*******************************/ 36310000 **/* D (YES,,NO,%LJ01) IS THIS A 36320000 **/* MULTISTEP JOB */ 36330000 * /*******************************/ 36340000 * R6 = R13->NXTSAVE /* ADDR OF AREA PASSED IN */ 36350000 L @6,4(0,@D) 0143 36360000 * R6->RTNCODE = 20 /* SET RETURN CODE */ 36370000 LA @F,20 0144 36380000 ST @F,16(0,@6) 0144 36390000 * /*******************************/ 36400000 **/* P SET UP ERROR RETURN CODE */ 36410000 * /*******************************/ 36420000 * GO TO QEXIT /* GO HAVE THE MESSAGE PUT OUT */ 36430000 BC 15,QEXIT 0145 36440000 * /*******************************/ 36450000 **/* P (BR,QEXIT) GET OUT OF MOD */ 36460000 * /*******************************/ 36470000 * END; 36480000 * /************************************************************/ 36490000 * /* GET THE CORE REQUIRED TO READ IN THE DSCB, THE */ 36500000 * /* SIOT, AND THE JFCB. */ 36510000 * /************************************************************/ 36520000 * DSEPTR = 0 /* SET DSE PTR TO ZEROS TO 36530000 * INDICATE FIRST GET */ 36540000 @9FF SR @5,@5 0147 36550000 * /*******************************/ 36560000 **/*%LJ01: P INDICATE FIRST TIME THROUGH 36570000 **/* MODULE */ 36580000 * /*******************************/ 36590000 * DSCBLTH = 350 /* LENGTH OF GETMAIN FOR DSCB */ 36600000 LA @F,350 0148 36610000 ST @F,GMLIST+12 0148 36620000 * SIOTLTH = 176 /* LENGTH OF GETMAIN FOR SIOT */ 36630000 LA @F,176 0149 36640000 ST @F,GMLIST+16 0149 36650000 * JFCBLTH = 176 /* LENGTH OF GETMAIN FOR JFCB */ 36660000 ST @F,GMLIST+20 0150 36670000 * LISTEND = '1'B /* INDICATE END OF LIST FOR 36680000 * GETMAIN/FREEMAIN */ 36690000 OI GMLIST+20,B'10000000' 0151 36700000 * GFLIST = LISTGM /* MOVE LIST FORM OF GETMAIN */ 36710000 MVC GFLIST(10),LISTGM 0152 36720000 * RESTRICT (R6,R7) /* SET REGS ASIDE FOR GETMAIN */ 36730000 * R1 = ADDR(GFLIST) /* PTR TO EXEC FORM OF MACRO */ 36740000 LA @1,GFLIST 0154 36750000 * R6 = ADDR(DSCBARA) /* POINTER TO GETMAIN RTN. LIST*/ 36760000 LA @6,GMLIST 0155 36770000 * R7 = ADDR(DSCBLTH) /* POINTER TO GETMAIN LGTH LIST*/ 36780000 LA @7,GMLIST+12 0156 36790000 * /*******************************/ 36800000 **/* P SET UP FOR GETMAIN */ 36810000 * /*******************************/ 36820000 * GEN(GETMAIN LC,LA=(7),A=(6),MF=(E,(1)));/* GET OF 702 BYTES */ 36830000 GETMAIN LC,LA=(7),A=(6),MF=(E,(1)) 36840000 DS 0H 36850000 * /*******************************/ 36860000 **/* L GETMAIN FOR SIOT JFCB DSCB*/ 36870000 * /*******************************/ 36880000 * RELEASE (R6,R7) /* GIVE REGS BACK TO COMPILER */ 36890000 * IF R15 ª= 0 /* WAS REQUEST SATISFIED */ 36900000 * THEN /* YES - CONTINUE */ 36910000 LTR @F,@F 0159 36920000 * GO TO ERROR3 /* NO - GO WRITE ERROR */ 36930000 BC 07,ERROR3 0160 36940000 * /*******************************/ 36950000 **/* D (YES,,NO,ERROR3) WAS GETMAIN 36960000 **/* SUCCESSFUL */ 36970000 * /*******************************/ 36980000 * /************************************************************/ 36990000 * /* SET UP TO READ IN THE SIOT. */ 37000000 * /************************************************************/ 37010000 * QMPACL = ADDR(PARMAREA) /* POINT LCT TO Q MANAGER LIST */ 37020000 LA @F,PARMAREA 0161 37030000 L @4,QMPAPTR 0161 37040000 ST @F,@TEMP4 0161 37050000 MVC 33(3,@4),@TEMP4+1 0161 37060000 * QMPOP = '04'X /* INDICATE READ TO Q MANAGER */ 37070000 MVI 8(@4),X'04' 0162 37080000 * QMPCMNC = '01'X /* INDICATE NUMBER OF READS */ 37090000 MVI 32(@4),X'01' 0163 37100000 * PARMTTRA = 0 /* ZERO ALL FOUR BYTES FOR TTR */ 37110000 SR @F,@F 0164 37120000 ST @F,PARMAREA+4 0164 37130000 * PARMIN = SIOTARA /* WHERE TO READ THE BLOCK TO */ 37140000 MVC PARMAREA(4),GMLIST+4 0165 37150000 * PARMTTR = SCTFSIOT /* GET TTR OF SIOT FROM SCT */ 37160000 L @8,LCTPTR 0166 37170000 L @8,20(0,@8) LCT 0166 37180000 MVC PARMAREA+4(3),12(@8) 0166 37190000 * JSCBTJID = LWAPRCB->RCBTJID /* GET PTR TO TJID FOR BASE */ 37200000 L @9,LCTPTR 0167 37210000 L @9,352(0,@9) LCT 0167 37220000 L @9,20(0,@9) IEL 0167 37230000 L @9,4(0,@9) IELEXITS 0167 37240000 L @9,4(0,@9) JSWA 0167 37250000 L @9,16(0,@9) JSEL 0167 37260000 L @9,4(0,@9) JSXL 0167 37270000 L @9,8(0,@9) LWA 0167 37280000 L @6,LCTPTR 0167 37290000 L @6,360(0,@6) LCT 0167 37300000 MVC 268(2,@6),12(@9) 0167 37310000 * /*******************************/ 37320000 **/* P SET UP TO READ IN THE 37330000 **/* FIRST SIOT */ 37340000 * /*******************************/ 37350000 * RESTRICT(J) /* J WILL BE LOOP CONTROLER */ 37360000 * DO J = SCTNSIOT TO 1 BY - 1 /*SIOT NO.IN SCT LOOP CTRL */ 37370000 SR @F,@F 0169 37380000 IC @F,64(0,@8) 0169 37390000 LTR @9,@F 0169 37400000 BC 12,@DO9FD 0169 37410000 * /************************************************************/ 37420000 * /* THIS IS WHERE THE REST OF THE SIOTS ARE READ IN. */ 37430000 * /************************************************************/ 37440000 * IF DSEPTR = 0 /* IS THIS FIRST READ FORM Q */ 37450000 * THEN /* YES- USE SIOT TTR FROM SCT */ 37460000 @DO9FE LTR @5,@5 0170 37470000 * GO TO PASS /* NO - USE TTR FROM SIOT */ 37480000 BC 08,PASS 0171 37490000 * /*******************************/ 37500000 **/*%LJ00: D (NO,,YES,PASS) IS THIS 37510000 **/* FIRST READ FROM QUEUE */ 37520000 * /*******************************/ 37530000 * PARMTTR = SCTPSIOT /* SET TTR IN LIST FROM SIOT */ 37540000 L @4,GMLIST+4 GMLIST 0172 37550000 MVC PARMAREA+4(3),28(@4) 0172 37560000 * PARMIN = SIOTARA /* PTR IN LIST TO READ IN AREA */ 37570000 MVC PARMAREA(4),GMLIST+4 0173 37580000 * /*******************************/ 37590000 **/* P SET UP TO READ NEXT SIOT */ 37600000 * /*******************************/ 37610000 * PASS: R1 = ADDR(QMGR1) /* SET PTR TO Q MANAGER LIST */ 37620000 PASS L @4,LCTPTR 0174 37630000 LA @1,248(0,@4) 0174 37640000 * /*******************************/ 37650000 **/*PASS: P SET POINTER TO Q MANAGER 37660000 **/* INPUT */ 37670000 * /*******************************/ 37680000 * CALL IEFQMRAW /* GO TO Q MANAGER TO READ SIOT*/ 37690000 L @8,LCTPTR 0175 37700000 L @8,76(0,@8) QMGRPTR 0175 37710000 LR @F,@8 0175 37720000 BALR @E,@F 0175 37730000 * /*******************************/ 37740000 **/* I READ IN THE SIOT */ 37750000 * /*******************************/ 37760000 * IF R15 ª= 0 /* WAS READ SUCCESSFUL. */ 37770000 * THEN /* YES- CONTINUE PROCESSING */ 37780000 LTR @F,@F 0176 37790000 * GO TO ERROR2 /* NO - GO WRITE ERROR MESSAGE */ 37800000 BC 07,ERROR2 0177 37810000 * /*******************************/ 37820000 **/* D (YES,,NO,ERROR2) WAS READ 37830000 **/* SUCCESSFUL */ 37840000 * /*******************************/ 37850000 * /************************************************************/ 37860000 * /* THIS IS WHERE THE JFCBS ARE READ IN. */ 37870000 * /************************************************************/ 37880000 * PARMIN = JFCBARA /* AREA IN LIST FOR JFCB READ */ 37890000 MVC PARMAREA(4),GMLIST+8 0178 37900000 * PARMTTR = SCTPJFCB /* JFCB TTR IN LIST FROM SIOT */ 37910000 L @4,GMLIST+4 GMLIST 0179 37920000 MVC PARMAREA+4(3),32(@4) 0179 37930000 * R1 = ADDR(QMGR1) /* SET PTR TO Q MANAGER LIST */ 37940000 L @8,LCTPTR 0180 37950000 LA @1,248(0,@8) 0180 37960000 * /*******************************/ 37970000 **/* P SET UP TO READ JFCB */ 37980000 * /*******************************/ 37990000 * CALL IEFQMRAW /* CALL Q MNGR TO READ IN JFCB */ 38000000 L @6,LCTPTR 0181 38010000 L @6,76(0,@6) QMGRPTR 0181 38020000 LR @F,@6 0181 38030000 BALR @E,@F 0181 38040000 * /*******************************/ 38050000 **/* I READ IN THE JFCB */ 38060000 * /*******************************/ 38070000 * IF R15 ª= 0 /* WAS READ SUCCESSFUL. */ 38080000 * THEN /* YES -CONTINUE PROCESSING */ 38090000 LTR @F,@F 0182 38100000 * GO TO ERROR2 /* NO -WRITE ERROR MESSAGE */ 38110000 BC 07,ERROR2 0183 38120000 * /*******************************/ 38130000 **/* D (YES,,NO,ERROR2) WAS READ 38140000 **/* SUCCESSFUL */ 38150000 * /*******************************/ 38160000 * RESTRICT(R6,R7); 38170000 * /************************************************************/ 38180000 * /* THIS PORTION OF CODE WILL CALCULATE THE LENGTH */ 38190000 * /* OF THE GETMAIN REQUIRED TO CONTAIN THE VARIABLE */ 38200000 * /* LENGTH DSE. */ 38210000 * /************************************************************/ 38220000 * R6 = 32 /* LGTH OF DSE - DSN & MBR NAME*/ 38230000 LA @6,32 0185 38240000 * /*******************************/ 38250000 **/* P SET DSE BASE LENGTH TO 38260000 **/* THIRTY TWO */ 38270000 * /*******************************/ 38280000 * R7 = 0 /* FOR USE IN DSN LENGTH CALC */ 38290000 SR @7,@7 0186 38300000 * IF SIOTTERM = '1'B /* IS THIS A TERM=TS DD STMNT */ 38310000 * THEN /* NO-THEN CONTINUE PROCESSING */ 38320000 L @4,GMLIST+4 GMLIST 0187 38330000 TM 47(@4),B'01000000' 0187 38340000 * GO TO ONEUP /* YES-THEN DSNAME LGTH IS 1 */ 38350000 BC 01,ONEUP 0188 38360000 * /*******************************/ 38370000 **/* D (NO,,YES,ONEUP) IS THIS 38380000 **/* A TERM=TS TYPE DD */ 38390000 * /*******************************/ 38400000 * IF SIOTDYNA = '1'B /* IS THIS A DYNAM DD STMNT */ 38410000 * THEN /* N0-THEN CONTINUE PROCESSING */ 38420000 TM 47(@4),B'10000000' 0189 38430000 * GO TO SEVENUP /* YES-THEN DSNAME LGTH IS 8 */ 38440000 BC 01,SEVENUP 0190 38450000 * /*******************************/ 38460000 **/* D (NO,,YES,SEVENUP) IS THIS 38470000 **/* A DYNAM TYPE DD */ 38480000 * /*******************************/ 38490000 * IF SCTDUMMY = '1'B /* IS THIS A DUMMY DD STMNT. */ 38500000 * THEN /* N0-THEN CONTINUE PROCESSING */ 38510000 TM 56(@4),B'10000000' 0191 38520000 * GO TO SEVENUP /* YES-THEN DSNAME LGTH IS 8 */ 38530000 BC 01,SEVENUP 0192 38540000 * /*******************************/ 38550000 **/* D (NO,,YES,SEVENUP) IS THIS 38560000 **/* A DUMMY TYPE DD */ 38570000 * /*******************************/ 38580000 * RESTRICT(R4); 38590000 * IF SCTANAME(1:1)ª= ' ' /* IS THIS &DSNAME */ 38600000 * THEN /* YES-SET TO CALC &DSN LGTH */ 38610000 L @8,GMLIST+4 GMLIST 0194 38620000 CLI 122(@8),C' ' 0194 38630000 BC 08,@9FA 0194 38640000 * DO; /* N0-THEN MUST BE REGULAR DSN */ 38650000 * /*******************************/ 38660000 **/* D (YES,,NO,%LJ02) IS THIS AN 38670000 **/* &DSN TYPE DD */ 38680000 * /*******************************/ 38690000 * R7 = 1 /* SET &DSN BASE LENGTH TO ONE */ 38700000 LA @7,1 0197 38710000 * /*******************************/ 38720000 **/* P SET &DSN BASE LENGTH TO 1 */ 38730000 * /*******************************/ 38740000 * R4 = ADDR(SCTANAME) /* SET ADDR OF &DSN FOR CALC */ 38750000 LA @4,122(0,@8) 0198 38760000 * /*******************************/ 38770000 **/* P SET ADDR OF &DSN FOR 38780000 **/* LENGTH CALCULATION */ 38790000 * /*******************************/ 38800000 * K = 7 /* SET MAX DSN LENGTH */ 38810000 LA @F,7 0199 38820000 ST @F,K 0199 38830000 BC 15,@9F9 0201 38840000 * /*******************************/ 38850000 **/* P (BR,%LJ03) SET MAXIMUM 38860000 **/* LENGTH OF DSE */ 38870000 * /*******************************/ 38880000 * END; 38890000 * ELSE /* SET UP TO CALC DSN LENGTH */ 38900000 * DO; 38910000 * R4 = ADDR(JFCBDSNM) /* ADDR OF DSN FIELD IN JFCB */ 38920000 @9FA L @8,GMLIST+8 GMLIST 0202 38930000 LR @4,@8 0202 38940000 * /*******************************/ 38950000 **/*%LJ02: P SET ADDR OF DSN FOR 38960000 **/* LENGTH CALC */ 38970000 * /*******************************/ 38980000 * K = 44 /* SET MAX DSN LENGTH */ 38990000 LA @F,44 0203 39000000 ST @F,K 0203 39010000 * /*******************************/ 39020000 **/* P SET MAXIMUM LENGTH OF DSN */ 39030000 * /*******************************/ 39040000 * END; 39050000 * DO I = 1 TO K /* MAX LENGTH OF DSNAME FIELD 39060000 * IS K CHARS */ 39070000 @9F9 LA @F,1 0205 39080000 BC 15,@DO9F7 0205 39090000 * IF LOOPER (I)= ' ' /* IS THIS THE FIRST BLANK */ 39100000 * THEN /* YES-THEN END OF NAME */ 39110000 @DO9F8 L @8,I 0206 39120000 LA @A,0(@8,@4) 0206 39130000 BCTR @A,0 0206 39140000 CLI 0(@A),C' ' 0206 39150000 * GO TO NUMUP /* NO-THEN CONTINUE SCAN */ 39160000 BC 08,NUMUP 0207 39170000 * /*******************************/ 39180000 **/*%LJ03: P CALCULATE LENGTH OF &DSN 39190000 **/* OR DSNAME */ 39200000 * /*******************************/ 39210000 * END; 39220000 * RELEASE(R4); 39230000 L @F,I 0208 39240000 AH @F,@D1 0208 39250000 @DO9F7 ST @F,I 0208 39260000 C @F,K 0208 39270000 BC 12,@DO9F8 0208 39280000 * NUMUP: I = I- 1 /* DECREMENT TO ACTUAL LENGTH 39290000 * OF DSNAME FIELD */ 39300000 NUMUP L @F,I 0210 39310000 BCTR @F,0 0210 39320000 ST @F,I 0210 39330000 * /*******************************/ 39340000 **/* P DECREMENT DSN LENGTH BY ONE 39350000 **/* TO ACTUAL LENGTH */ 39360000 * /*******************************/ 39370000 * R7 = R7 + I /* SET REG EQUAL TO LENGTH 39380000 * CALCULATED BY LOOP */ 39390000 A @7,I 0211 39400000 * /*******************************/ 39410000 **/* P (BR,MEMCHK) SET LENGTH REG 39420000 **/* EQUAL TO LENGTH OF DSE */ 39430000 * /*******************************/ 39440000 * GO TO MEMCHK /* GO SEE IF THEIR IS A MEMBER 39450000 * NAME TO INCLUDE */ 39460000 BC 15,MEMCHK 0212 39470000 * SEVENUP:R7 = R7+ 7 /* LENGTH OF DSNAME EQUALS 8 */ 39480000 SEVENUP AH @7,@D2 0213 39490000 * /*******************************/ 39500000 **/*SEVENUP: P UP LENGTH REG BY SEVEN FOR 39510000 **/* DUMMY/DYNAM */ 39520000 * /*******************************/ 39530000 * ONEUP: R7 = R7+ 1 /* LENGTH OF DSNAME EQUALS 1 */ 39540000 ONEUP AH @7,@D1 0214 39550000 * /*******************************/ 39560000 **/*ONEUP: P UP LENGTH REG BY ONE FOR 39570000 **/* TERM=TS */ 39580000 * /*******************************/ 39590000 * MEMCHK:IF JFCBELNM(1:1) = ' ' /* IS THEIR A MEMBER NAME */ 39600000 * THEN /* YES-INCLUDE MBR NAME LGTH */ 39610000 MEMCHK L @4,GMLIST+8 GMLIST 0215 39620000 CLI 44(@4),C' ' 0215 39630000 BC 07,@9F4 0215 39640000 * DO /* NO-ADD DSN LGTH TO DSE LGTH */ 39650000 * /*******************************/ 39660000 **/*MEMCHK: D (NO,,YES,%LJ04) IS THERE A MEMBER NAME */ 39670000 * /*******************************/ 39680000 * R6 = R6+R7 /* CALC LENGTH FOR DSE GETMAIN */ 39690000 AR @6,@7 0217 39700000 * GO TO GETDSE /* GO GET CORE FOR THIS DSE */ 39710000 BC 15,GETDSE 0218 39720000 * /*******************************/ 39730000 **/* P (BR,GETDSE) CALCULATE 39740000 **/* FINAL LENGTH OF DSE */ 39750000 * /*******************************/ 39760000 * END; 39770000 * R6 = R6+R7+ 8 /* ADD DSN DSE AND MEM LENGTH */ 39780000 @9F4 LA @F,8 0220 39790000 AR @F,@7 0220 39800000 AR @6,@F 0220 39810000 * /*******************************/ 39820000 **/*%LJ04: P ADD MEMBER NAME LENGTH TO 39830000 **/* FINAL DSE LENGTH */ 39840000 * /*******************************/ 39850000 * /************************************************************/ 39860000 * /* GET THE CORE FOR THE DSE JUST CALCULATED. */ 39870000 * /************************************************************/ 39880000 * GETDSE:GEN(GETMAIN R,LV=(R6),SP=255); 39890000 GETDSE GETMAIN R,LV=(R6),SP=255 39900000 DS 0H 39910000 * /*******************************/ 39920000 **/*GETDSE: L GET CORE FOR DSE */ 39930000 * /*******************************/ 39940000 * R6 = R6- 1 /* DECREMENT FOR DSE CLEARING */ 39950000 BCTR @6,0 0222 39960000 * GEN(EX R6,CLEAR); 39970000 EX R6,CLEAR 39980000 DS 0H 39990000 * /*******************************/ 40000000 **/* P CLEAR THE DSE */ 40010000 * /*******************************/ 40020000 * R6 = R6+ 1 /* RESTORE ACTUAL DSE LENGTH */ 40030000 AH @6,@D1 0224 40040000 * /************************************************************/ 40050000 * /* ALL THE REMAINING NON-ERROR CODE IS USED FOR DSE */ 40060000 * /* INITALIZATION. */ 40070000 * /************************************************************/ 40080000 * IF DSEPTR = 0 /* IS THIS FIRST DSE GOTTEN */ 40090000 * THEN /* NO-CHAIN THE DSES TOGETHER */ 40100000 LTR @5,@5 0225 40110000 BC 07,@9F3 0225 40120000 * DO /* YES-SET DSE ADDR IN TJBX */ 40130000 * /*******************************/ 40140000 **/* D (YES,,NO,%LJ05) WAS THIS 40150000 **/* THE FIRST DSE GOTTEN */ 40160000 * /*******************************/ 40170000 * LWAPRCB->RCBEXTNT->TJBXDSE = R1 /* SET CHAIN POINTER */ 40180000 L @4,LCTPTR 0227 40190000 L @4,352(0,@4) LCT 0227 40200000 L @4,20(0,@4) IEL 0227 40210000 L @4,4(0,@4) IELEXITS 0227 40220000 L @4,4(0,@4) JSWA 0227 40230000 L @4,16(0,@4) JSEL 0227 40240000 L @4,4(0,@4) JSXL 0227 40250000 L @4,8(0,@4) LWA 0227 40260000 L @4,28(0,@4) RCB 0227 40270000 ST @1,8(0,@4) 0227 40280000 * /*******************************/ 40290000 **/* P SET DSE CHAIN POINTER IN 40300000 **/* TJBX. */ 40310000 * /*******************************/ 40320000 * R1->DSEBCKWD = 0 /* YES-SET BACK CHAIN PTR TO 0 */ 40330000 SR @F,@F 0228 40340000 ST @F,4(0,@1) 0228 40350000 BC 15,@9F2 0230 40360000 * /*******************************/ 40370000 **/* P (BR,%LJ06) ZERO THE FIRST 40380000 **/* DSE BACK CHAIN POINTER */ 40390000 * /*******************************/ 40400000 * END; 40410000 * ELSE 40420000 * DO; 40430000 * DSEFORWD = R1 /* SET DSE FORDWARD CHAIN PTR */ 40440000 @9F3 ST @1,0(0,@5) 0231 40450000 * /*******************************/ 40460000 **/*%LJ05: P SET DSE FORWARD CHAIN 40470000 **/* POINTER */ 40480000 * /*******************************/ 40490000 * R1->DSEBCKWD=DSEPTR /* SET DSE BACK PTR AT OLD DSE */ 40500000 ST @5,4(0,@1) 0232 40510000 * /*******************************/ 40520000 **/* P SET BACK CHAIN POINTER IN 40530000 **/* NEW DSE */ 40540000 * /*******************************/ 40550000 * END; 40560000 * DSEPTR = R1 /* SET DSE BASE ADDR TO NEW DSE*/ 40570000 @9F2 LR @5,@1 0234 40580000 * /*******************************/ 40590000 **/*%LJ06: P SET BASE TO NEW DSE */ 40600000 * /*******************************/ 40610000 * IF SCTDDNAM = STPTEST /* IS THIS A STEPLIB DD STMNT */ 40620000 * THEN /* YES DON'T SET NOT IN USE BIT*/ 40630000 L @4,GMLIST+4 GMLIST 0235 40640000 CLC 4(8,@4),STPTEST 0235 40650000 * GO TO SETPERM /* NO THEN SET NOT IN USE BIT */ 40660000 BC 08,SETPERM 0236 40670000 * /*******************************/ 40680000 **/* D (NO,,YES,SETPERM) IS THIS 40690000 **/* A STEPLIB DD STMNT */ 40700000 * /*******************************/ 40710000 * DSENUSED = '1'B /* SET NOT IN USE BIT IN DSE */ 40720000 OI 11(@5),B'01000000' 0237 40730000 * /*******************************/ 40740000 **/* P SET NOT IN USE BIT IN DSE */ 40750000 * /*******************************/ 40760000 * SETPERM:DSEPERM = '1'B /* SET PERMANENTLY ALLOCATED BIT 40770000 * IN ALL DSES */ 40780000 SETPERM OI 11(@5),B'00000010' 0238 40790000 * /*******************************/ 40800000 **/*SETPERM: P SET NOT PERMANENTLY 40810000 **/* ALLOCATED BIT IN DSE */ 40820000 * /*******************************/ 40830000 * DSEBLKSZ = R6 /* SET LENGTH IN NEW DSE */ 40840000 STH @6,8(0,@5) 0239 40850000 * /*******************************/ 40860000 **/* P PUT LGTH OF DSE IN DSE */ 40870000 * /*******************************/ 40880000 * RELEASE(R6); 40890000 * DSEDDNAM = SCTDDNAM /* MOVE DDNAME TO DSE */ 40900000 L @4,GMLIST+4 GMLIST 0241 40910000 MVC 12(8,@5),4(@4) 0241 40920000 * /*******************************/ 40930000 **/* P MOVE DDNAME TO THE DSE */ 40940000 * /*******************************/ 40950000 * DSETCBAD = 0 /* PUT ZEROS IN TCB ADDR FIELD */ 40960000 SR @F,@F 0242 40970000 ST @F,20(0,@5) 0242 40980000 * /*******************************/ 40990000 **/* P ZERO TCB ADDR IN DSE */ 41000000 * /*******************************/ 41010000 * DSETTRPW = 0 /* PUT ZEROS IN PASSWD TTR */ 41020000 ST @F,24(0,@5) 0243 41030000 * /*******************************/ 41040000 **/* P ZERO PASSWORD TTR FIELD 41050000 **/* IN THE DSE */ 41060000 * /*******************************/ 41070000 * DSENDISP = SCTSDISP /* MOVE IN NORMAL DISP FROM SIOT 41080000 * TO DSE */ 41090000 MVC 28(1,@5),55(@4) 0244 41100000 * /*******************************/ 41110000 **/* P MOVE NORMAL DISP FROM SIOT 41120000 **/* TO DSE */ 41130000 * /*******************************/ 41140000 * DSENDISP = DSENDISP & '00001111'B/* 41150000 * TURN OFF UNUSED BITS */ 41160000 NI 28(@5),B'00001111' 0245 41170000 * /*******************************/ 41180000 **/* P TURN OFF UNUSED BITS IN 41190000 **/* THIS BYTE */ 41200000 * /*******************************/ 41210000 * DSEADISP = SIOTALTD /* MOVE ABNORMAL DISP FROM SIOT 41220000 * TO DSE */ 41230000 MVC 29(1,@5),92(@4) 0246 41240000 * /*******************************/ 41250000 **/* P MOVE ABNORMAL DISP FROM 41260000 **/* SIOT TO THE DSE */ 41270000 * /*******************************/ 41280000 * DSEADISP = DSEADISP & '00001111'B/* 41290000 * TURN OFF UNUSED BITS */ 41300000 NI 29(@5),B'00001111' 0247 41310000 * /*******************************/ 41320000 **/* P TURN OFF UNUSED BITS IN 41330000 **/* THIS BYTE */ 41340000 * /*******************************/ 41350000 * TEMPWRK = R7 /* SET WORK AREA TO MOVE ONE 41360000 * BYTE DSNAME LGTH */ 41370000 ST @7,TEMPWRK 0248 41380000 * /*******************************/ 41390000 **/* P SET UP TO MOVE DSN LENGTH 41400000 **/* TO THE DSE */ 41410000 * /*******************************/ 41420000 * DSEDSLNG =TEMPWRK(4:4) /* SET DSNAME LGTH IN DSE */ 41430000 SR @F,@F 0249 41440000 IC @F,TEMPWRK+3 0249 41450000 STC @F,31(0,@5) 0249 41460000 * /*******************************/ 41470000 **/* P MOVE THE DSN LENGTH BYTE 41480000 **/* TO THE DSE */ 41490000 * /*******************************/ 41500000 **/* D (YES,,NO,%LJ66)SHARED AND NOT 41510000 **/* FOR DELETION */ 41520000 * /*******************************/ 41530000 **/* P (BR,%LJ07)INITIAD 41540000 **/*'LIZE THE 41550000 **/* DSESTAT SHR */ 41560000 * /*******************************/ 41570000 * IF JFCSHARE = '1'B /* IS THE SHARE BIT ON IN JFCB */ 41580000 * THEN 41590000 L @6,GMLIST+8 GMLIST 0250 41600000 TM 87(@6),B'00001000' 0250 41610000 BC 12,@9F1 0250 41620000 * DSESHR = '1'B /* YES SET IT ON IN THE DSE */ 41630000 OI 10(@5),B'00001000' 0251 41640000 BC 15,@9F0 0252 41650000 * /*******************************/ 41660000 **/*%LJ66: P INITIALIZE THE DSESTAT BYTE*/ 41670000 * /*******************************/ 41680000 * ELSE 41690000 * DO; 41700000 * DSESTAT = SCTSBYT3 /* MOVE NEW,MOD,OLD BITS TO DSE*/ 41710000 @9F1 L @4,GMLIST+4 GMLIST 0253 41720000 MVC 10(1,@5),58(@4) 0253 41730000 * DSESTAT = DSESTAT & '00000111'B/* 41740000 * ZERO UNUSED BITS */ 41750000 NI 10(@5),B'00000111' 0254 41760000 * END; 41770000 * IF SIOTTERM = '1'B /* IS THIS A TERM=TS DD STMNT */ 41780000 * THEN /* YES-SET AN * AS DSN */ 41790000 @9F0 L @4,GMLIST+4 GMLIST 0256 41800000 TM 47(@4),B'01000000' 0256 41810000 BC 12,@9EF 0256 41820000 * /*******************************/ 41830000 **/*%LJ07: D (YES,,NO,%LJ08) IS THIS A 41840000 **/* TERM=TS TYPE DD */ 41850000 * /*******************************/ 41860000 * DSEDSNAM(1:1)='*'; 41870000 MVI 32(@5),C'*' 0257 41880000 BC 15,@9EE 0258 41890000 * /*******************************/ 41900000 **/* P (BR,%LJ09) MOVE AN * TO 41910000 **/* THE DSE AS DSNAME */ 41920000 * /*******************************/ 41930000 * ELSE /* NO-CONTINUE WITH CHECK */ 41940000 * DO; 41950000 * IF SCTANAME(1:1)ª=' ' /* IS THIS A &DSN */ 41960000 * THEN /* NO-MOVE DSNAME FROM JFCB */ 41970000 @9EF L @4,GMLIST+4 GMLIST 0259 41980000 CLI 122(@4),C' ' 0259 41990000 BC 08,@9ED 0259 42000000 * DO /* YES-MOVE DSNAME FROM SIOT */ 42010000 * /*******************************/ 42020000 **/*%LJ08: D (YES,,NO,%LJ10) IS THIS 42030000 **/* AN &DSN TYPE */ 42040000 * /*******************************/ 42050000 * DSEDSNAM(1:1)='&' /* PUT ON '&' */ 42060000 MVI 32(@5),C'&&' 0261 42070000 * /*******************************/ 42080000 **/* P MOVE THE & TO DSE */ 42090000 * /*******************************/ 42100000 * DSEDSNAM(2:R7)=SCTANAME /* GET &DSN SIOT */ 42110000 LA @E,122(0,@4) 0262 42120000 LR @6,@7 0262 42130000 SH @6,@D3 0262 42140000 LA @A,33(0,@5) 0262 42150000 EX @6,@MVC 0262 42160000 BC 15,@9EC 0264 42170000 * /*******************************/ 42180000 **/* P (BR,%LJ09) MOVE THE &DSN 42190000 **/* TO THE DSE */ 42200000 * /*******************************/ 42210000 * END; 42220000 * ELSE 42230000 * DSEDSNAM(1:R7)=JFCBDSNM /* GET DSN FRM JFCB*/ 42240000 @9ED L @4,GMLIST+8 GMLIST 0264 42250000 LR @E,@4 0264 42260000 LR @6,@7 0264 42270000 BCTR @6,0 0264 42280000 LA @A,32(0,@5) 0264 42290000 EX @6,@MVC 0264 42300000 * /*******************************/ 42310000 **/*%LJ10: P MOVE THE DSNAME FROM JFCB 42320000 **/* TO THE DSE */ 42330000 * /*******************************/ 42340000 * END; 42350000 @9EC EQU * 0265 42360000 * IF SIOTDYNA= '1'B /* IS THIS AN DYNAM DD */ 42370000 * THEN /* NO-THEN BYPASS BIT SETTING */ 42380000 @9EE L @4,GMLIST+4 GMLIST 0266 42390000 TM 47(@4),B'10000000' 0266 42400000 BC 12,@9EB 0266 42410000 * DO /* YES-SET UP DYNAM DSE */ 42420000 * /*******************************/ 42430000 **/*%LJ09: D (YES,,NO,%LJ11) IS THIS A 42440000 **/* DYNAM DD STMNT */ 42450000 * /*******************************/ 42460000 * DSENDISP = DSENDISP & '00000000'B/* 42470000 * ZERO THE NORMAL DISP */ 42480000 NI 28(@5),B'00000000' 0268 42490000 * DSEADISP = DSEADISP & '00000000'B/* 42500000 * ZERO THE ABNORMAL DISP*/ 42510000 NI 29(@5),B'00000000' 0269 42520000 * DSECNTRL = '50'X /* SET DYNAM/NOT IN USE BIT */ 42530000 MVI 11(@5),X'50' 0270 42540000 * /*******************************/ 42550000 **/* P SET DYNAM AND NOT IN USE 42560000 **/* BIT AND ZERO THE DISP FIELD */ 42570000 * /*******************************/ 42580000 * END; 42590000 * IF JFCBDSNM(1:8)ª=NULTEST /* THIS A DUMMY/DYNAM */ 42600000 * THEN /* YES-NO DSCB CREATED */ 42610000 @9EB L @4,GMLIST+8 GMLIST 0272 42620000 CLC 0(8,@4),NULTEST 0272 42630000 BC 08,@9EA 0272 42640000 * DO /* NO-THEN CONTINUE CHECK */ 42650000 * /*******************************/ 42660000 **/*%LJ11: D (NO,,YES,MODNEW) IS THIS A 42670000 **/* DUMMY OR DYNAM STMNT */ 42680000 * /*******************************/ 42690000 * RELOOK: IF TIOELNGH=0 /* IS THIS TIOT LENGTH ZERO */ 42700000 * THEN /* YES-GO DO AN OBTAIN FOR DSCB*/ 42710000 RELOOK L @4,TIOTPTR 0274 42720000 CLI 24(@4),0 0274 42730000 * GOTO DOOBTN /* NO-CHECK FOR PROPER ENTRY */ 42740000 BC 08,DOOBTN 0275 42750000 * /*******************************/ 42760000 **/* D (YES,,NO,DOOBTN) IS THERE A 42770000 **/* TIOT ENTRY TO LOOK AT */ 42780000 * /*******************************/ 42790000 * IF TIOEDDNM=SCTDDNAM /* THIS PROPER ENTRY */ 42800000 * THEN /* YES-CHECK THE DEVICE TYPE */ 42810000 L @6,GMLIST+4 GMLIST 0276 42820000 CLC 28(8,@4),4(@6) 0276 42830000 BC 07,@9E9 0276 42840000 * DO /* NO-GO CHECK NEXT ENTRY */ 42850000 * /*******************************/ 42860000 **/* D (YES,,NO,DOOBTN) THIS THE 42870000 **/* ENTRY WE ARE LOOKING FOR */ 42880000 * /*******************************/ 42890000 * IF UCBID='FF'X /* THIS A REAL UCB */ 42900000 * THEN /* YES-CHECK FOR DEVICE TYPE */ 42910000 L @8,TIOTPTR 0278 42920000 L @8,40(0,@8) TIOENTRY 0278 42930000 CLI 2(@8),X'FF' 0278 42940000 BC 07,@9E8 0278 42950000 * DO /* NO-ASSUME 2321 AND PROCEED */ 42960000 * /*******************************/ 42970000 **/* D (NO,,YES,DOOBTN) THIS A REAL 42980000 **/* UCB */ 42990000 * /*******************************/ 43000000 * IF UCB3DACC ª= '1'B /* D A DEVICE */ 43010000 * THEN /* YES DO OBTAIN FOR DSORG */ 43020000 TM 18(@8),B'00100000' 0280 43030000 BC 01,@9E7 0280 43040000 * DO /* NO-BYPASS THE OBTAIN */ 43050000 * /*******************************/ 43060000 **/* D (NO,,YES,DOOBTN) DA DEVICE*/ 43070000 * /*******************************/ 43080000 * DSEPS='1'B /* BYPASS OBTAIN */ 43090000 OI 30(@5),B'01000000' 0282 43100000 * /*******************************/ 43110000 **/* P (BR,PROSS)SET PHY SEQ BIT */ 43120000 * /*******************************/ 43130000 * GOTO PROSS /*DSE OK FOR NON DA*/ 43140000 BC 15,PROSS 0283 43150000 * END; 43160000 * GO TO DOOBTN /* DO THE OBTAIN */ 43170000 * END; 43180000 * ELSE 43190000 * GO TO DOOBTN /* DO THE OBTAIN */ 43200000 * END; 43210000 @9E6 EQU * 0288 43220000 * TIOTPTR=TIOTPTR+TIOELNGH /* BUMP TO NEXT ENTRY */ 43230000 @9E9 L @4,TIOTPTR 0289 43240000 SR @F,@F 0289 43250000 IC @F,24(0,@4) 0289 43260000 A @F,TIOTPTR 0289 43270000 ST @F,TIOTPTR 0289 43280000 * GO TO RELOOK /* GO AND LOOK AT NEXT ENTRY */ 43290000 BC 15,RELOOK 0290 43300000 * DOOBTN: IF SCTDEFER='1'B /* TEST FOR DEFERRED */ 43310000 * THEN /* MOUNTING */ 43320000 DOOBTN L @4,GMLIST+4 GMLIST 0291 43330000 TM 57(@4),B'00000010' 0291 43340000 * /*******************************/ 43350000 **/*DOOBTN: D (YES,,NO,PROSS) IS IT 43360000 **/* DEFERRED MOUNT */ 43370000 * /*******************************/ 43380000 * GOTO PROSS /* BYPASS OBTAIN */ 43390000 BC 01,PROSS 0292 43400000 * IF SCTSNEW='1'B THEN/* IF NEW DATA SET A44237*/ 43410000 TM 58(@4),B'00000100' 0293 43420000 * GOTO MODNEW; /*GET DSORG FROM SIOT A44237*/ 43430000 BC 01,MODNEW 0294 43440000 **/* D (NO,,YES,MODNEW) IS DISP 43450000 **/* REQUEST=NEW */ 43460000 * /**********************************************/ 43470000 * /* THE FOLLOWING CODE WHEN EXECUTED WILL READ */ 43480000 * /* THE REQUESTED DSCB INTO THE SPECIFIED AREA */ 43490000 * /**********************************************/ 43500000 * CAMFLGS = 'C1000000'X/* 43510000 * SET FLAGE FOR OBTAIN */ 43520000 MVC DSCBLST(4),@X13 0295 43530000 * CAMADR1=ADDR(JFCBDSNM)/*ADDR OF DSNAME OF DSCB*/ 43540000 L @6,GMLIST+8 GMLIST 0296 43550000 ST @6,DSCBLST+4 0296 43560000 * CAMADR2=ADDR(JFCBVOLS) /*ADDR OF VOLUME SERIAL*/ 43570000 LA @F,118(0,@6) 0297 43580000 ST @F,DSCBLST+8 0297 43590000 * CAMADR3=DSCBARA /* ADDR OF AREA DSCB INTO */ 43600000 MVC DSCBLST+12(4),GMLIST 0298 43610000 * RESTRICT(R8); 43620000 * R8=ADDR(DSCBLST) /* POINT REG AT INPUT LIST */ 43630000 LA @8,DSCBLST 0300 43640000 * /*******************************/ 43650000 **/* P SET UP TO OBTAIN DSCB */ 43660000 * /*******************************/ 43670000 * GEN(OBTAIN (R8)); 43680000 OBTAIN (R8) 43690000 DS 0H 43700000 * /*******************************/ 43710000 **/* L DO THE OBTAIN OF DSCB */ 43720000 * /*******************************/ 43730000 * IF R15 = 8 /* WAS DSCB IN VTOC */ 43740000 * THEN /* YES - CONTINUE PROCESSING */ 43750000 CH @F,@D4 0302 43760000 * GO TO NODSORG /* NO- MAKE FURTHER CHECKS */ 43770000 BC 08,NODSORG 0303 43780000 * /*******************************/ 43790000 **/* D (YES,,NO,NODSORG) WAS 43800000 **/* A DSCB FOUND BY OBTAIN */ 43810000 * /*******************************/ 43820000 * IF R15 ª= 0 /* WAS READ SUCCESSFUL. */ 43830000 * THEN /* YES - CONTINUE PROCESSING */ 43840000 LTR @F,@F 0304 43850000 * GO TO ERROR1 /*NO-GO WRITE ERROR MESSAGE */ 43860000 BC 07,ERROR1 0305 43870000 * /*******************************/ 43880000 **/* D (YES,,NO,ERROR1) WAS READ 43890000 **/* SUCCESSFUL */ 43900000 * /*******************************/ 43910000 * DSEDSORG = DS1DSORG /* GET DSORG FROM DSCB */ 43920000 L @2,GMLIST 0306 43930000 MVC 30(1,@5),38(@2) 0306 43940000 * /*******************************/ 43950000 **/* P (BR,PROSS) MOVE DSORG FROM 43960000 **/* DSCB TO THE DSE */ 43970000 * /*******************************/ 43980000 * GO TO PROSS /* BYPASS MOVEING DSORG FIELD */ 43990000 BC 15,PROSS 0307 44000000 * NODSORG: IF SCTSMOD = '1'B /* WAS THIS A MOD DD */ 44010000 * THEN /* YES-IN THIS CASE ASSUME NEW */ 44020000 NODSORG L @4,GMLIST+4 GMLIST 0308 44030000 TM 58(@4),B'00000010' 0308 44040000 * GO TO MODNEW; 44050000 BC 01,MODNEW 0309 44060000 * /*******************************/ 44070000 **/*NODSORG: D (NO,,YES,MODNEW) WAS THIS 44080000 **/* MOD TYPE DD */ 44090000 * /*******************************/ 44100000 * ELSE 44110000 * IF AP= '.' & BP= '.' & CP= '.' 44120000 * THEN 44130000 L @6,GMLIST+8 GMLIST 0310 44140000 CLI 8(@6),C'.' 0310 44150000 BC 07,@9E5 0310 44160000 CLI 16(@6),C'.' 0310 44170000 BC 07,@9E4 0310 44180000 CLI 22(@6),C'.' 0310 44190000 * /*******************************/ 44200000 **/* D (NO,,YES,PROSS) WAS NAME 44210000 **/* GENERATED */ 44220000 * /*******************************/ 44230000 * GO TO PROSS /* DON'T MOVE DSORG */ 44240000 BC 08,PROSS 0311 44250000 * /*******************************/ 44260000 **/* P (BR,ERROR1) INVALID DSN */ 44270000 * /*******************************/ 44280000 * GO TO ERROR1 /* INVALID JFCB DSN */ 44290000 BC 15,ERROR1 0312 44300000 * END; 44310000 * ELSE 44320000 * MODNEW: DSEDSORG = JFCDSRG1 /* SET DSORG IN DSE FRON SIOT */ 44330000 @9EA EQU * 0314 44340000 MODNEW L @4,GMLIST+8 GMLIST 0314 44350000 MVC 30(1,@5),98(@4) 0314 44360000 * /*******************************/ 44370000 **/*MODNEW: P MOVE DSORG FROM SIOT TO 44380000 **/* THE DSE */ 44390000 * /*******************************/ 44400000 * PROSS: IF JFCBELNM(1:1)ª= ' ' /* IS THEIR MEMBER NAME */ 44410000 * THEN /* YES-THEN MOVE IT */ 44420000 @9E2 EQU * 0315 44430000 PROSS L @4,GMLIST+8 GMLIST 0315 44440000 CLI 44(@4),C' ' 0315 44450000 BC 08,@9E1 0315 44460000 * DO /* NO- THEN BYPASS ITS MOVE */ 44470000 * /*******************************/ 44480000 **/*PROSS: D (YES,,NO,%LJ13) IS THERE A 44490000 **/* MEMBER NAME */ 44500000 * /*******************************/ 44510000 * R8=(ADDR(DSEDSNAM)+R7)/* CALC OFFSET TO MEMBER */ 44520000 LR @F,@7 0317 44530000 LA @0,32(0,@5) 0317 44540000 AR @F,@0 0317 44550000 LR @8,@F 0317 44560000 * /*******************************/ 44570000 **/* P CALC OFFSET TO MEMBER NAME 44580000 **/* SLOT IN DSE */ 44590000 * /*******************************/ 44600000 * DSEMEMN(1:8)=JFCBELNM /* MOVE IT TO DSE */ 44610000 MVC 0(8,@8),44(@4) 0318 44620000 * /*******************************/ 44630000 **/* P MOVE MBR NAME TO DSE */ 44640000 * /*******************************/ 44650000 * DSEMEM= '1'B /* SET BIT TO INDICATE MBR NAME*/ 44660000 OI 11(@5),B'00100000' 0319 44670000 * /*******************************/ 44680000 **/* P SET MBR NAME BIT IN DSE */ 44690000 * /*******************************/ 44700000 * RELEASE(R7,R8); 44710000 * END; 44720000 * /*******************************/ 44730000 **/*%LJ13: D (NO,,YES,%LJ00) ANY MORE 44740000 **/* DD STMNT TO PROCESS */ 44750000 * /*******************************/ 44760000 * END; 44770000 * RESTRICT (R6) /* SET REGISTER ASIDE */ 44780000 @9E1 BCT @9,@DO9FE 0322 44790000 * R6 = R13->NXTSAVE /* ADDR OF AREA PASSED TO ME */ 44800000 @DO9FD L @6,4(0,@D) 0324 44810000 * R6->RTNCODE = 0 /* SET RETURN CODE TO ZERO */ 44820000 SR @F,@F 0325 44830000 ST @F,16(0,@6) 0325 44840000 * RELEASE (R6) /* GIVE REGISTER BACK */ 44850000 * /*******************************/ 44860000 **/* P (BR,FREE) ZERO RTN CODE */ 44870000 * /*******************************/ 44880000 * GO TO FREE /* BYPASS ERROR SETTING */ 44890000 BC 15,FREE 0327 44900000 * RESTRICT(R4,R6,R7) /* REGS FOR ERROR RTN */ 44910000 * ERROR1: R7 = R15 /* SAVE RETURN CODE FROM OBTAIN*/ 44920000 ERROR1 LR @7,@F 0329 44930000 * /*******************************/ 44940000 **/*ERROR1: P SAVE RTN CODE OF OBTAIN */ 44950000 * /*******************************/ 44960000 * R6 = R13->NXTSAVE /* ADDR OF AREA PASSED TO ME */ 44970000 L @6,4(0,@D) 0330 44980000 * R6->RTNCODE = 12 /* SET RETURN CODE FOR USE BY 44990000 * IEFSD162 */ 45000000 LA @F,12 0331 45010000 ST @F,16(0,@6) 0331 45020000 * /*******************************/ 45030000 **/* P SET ERROR RETURN CODE FOR 45040000 **/* IEFSD162 */ 45050000 * /*******************************/ 45060000 * R4 = ADDR(M600) /* GET ADDRESS OF MSG TO MOVE 45070000 * INTO BUFFER */ 45080000 L @8,@V1 ADDRESS OF JMSGMOD 0332 45090000 LR @4,@8 0332 45100000 * /*******************************/ 45110000 **/* P SET ADDR OF MESSAGE FOR 45120000 **/* MOVER ROUTINE */ 45130000 * /*******************************/ 45140000 * R6 = 83 /* GET LENGTH OF MSG FOR MOVE 45150000 * ROUTINE */ 45160000 LA @6,83 0333 45170000 * /*******************************/ 45180000 **/* P SET UP LENGTH OF MESSAGE 45190000 **/* FOR MOVER ROUTINE */ 45200000 * /*******************************/ 45210000 * CALL MSGMOVE /* GO HAVE THE OUTPUT BUFFER 45220000 * SET UP FOR A WTO */ 45230000 BAL @E,MSGMOVE 0334 45240000 * /*******************************/ 45250000 **/* S MSGMOVE: GO TO MOVER RTN */ 45260000 * /*******************************/ 45270000 * R7 = R7+ 240 /* MAKE THE RETURN ERROR CODE 45280000 * PRINTABLE */ 45290000 AH @7,@D5 0335 45300000 * /*******************************/ 45310000 **/* P MAKE THE OBTAIN RETURN 45320000 **/* CODE PRINTABLE */ 45330000 * /*******************************/ 45340000 * OCODE = R7 /* PUT THE RETURN CODE IN THE 45350000 * MESSAGE */ 45360000 STH @7,28(0,@4) 0336 45370000 * /*******************************/ 45380000 **/* P PUT THE OBTAIN ERROR CODE 45390000 **/* IN THE MESSAGE */ 45400000 * /*******************************/ 45410000 * R7 = 0 /* INDICATE THAT CLEANUP IS 45420000 * TO BE DONE */ 45430000 SR @7,@7 0337 45440000 * /*******************************/ 45450000 **/* P INDICATE THAT CLEANUP IS 45460000 **/* TO BE DONE */ 45470000 * /*******************************/ 45480000 * DNAME(1:8) = SCTDDNAM /* MOVE DDNAME TO BUFFER */ 45490000 L @8,GMLIST+4 GMLIST 0338 45500000 MVC 44(8,@4),4(@8) 0338 45510000 * /*******************************/ 45520000 **/* P MOVE DDNAME TO THE MSG */ 45530000 * /*******************************/ 45540000 * MSGCOM:IF CHKEY(1) ª= ' ' /* IS THERE USERID A44237*/ 45550000 * THEN /* YES HAVE IT MOVED TO MSG */ 45560000 MSGCOM L @8,LCTPTR 0339 45570000 L @8,352(0,@8) LCT 0339 45580000 L @8,20(0,@8) IEL 0339 45590000 L @8,4(0,@8) IELEXITS 0339 45600000 L @8,4(0,@8) JSWA 0339 45610000 L @8,8(0,@8) JSEL 0339 45620000 CLI 8(@8),C' ' 0339 45630000 BC 08,@9E0 0339 45640000 * /*******************************/ 45650000 **/*MSGCOM: D (YES,,NO,%LJ14) IS THERE A 45660000 **/* USER ID */ 45670000 * /*******************************/ 45680000 * TUSER(1:7)=CHKEY /* MOVE THE USERID */ 45690000 MVC 58(7,@4),8(@8) 0340 45700000 * /*******************************/ 45710000 **/* P (BR,%LJ14) MOVE THE MSG. 45720000 **/* ID TO MSG */ 45730000 * /*******************************/ 45740000 * IF CHCLS ª= '00'X /* IS THERE A PROC */ 45750000 * THEN /* YES-HAVE IT MOVED TO MSG */ 45760000 @9E0 L @8,LCTPTR 0341 45770000 L @8,352(0,@8) LCT 0341 45780000 L @8,20(0,@8) IEL 0341 45790000 L @8,4(0,@8) IELEXITS 0341 45800000 L @8,4(0,@8) JSWA 0341 45810000 L @8,8(0,@8) JSEL 0341 45820000 CLI 16(@8),X'00' 0341 45830000 BC 08,@9DF 0341 45840000 * /*******************************/ 45850000 **/*%LJ14: D (YES,,NO,WTOAFA) IS THERE 45860000 **/* A PROC NAME TO MOVE */ 45870000 * /*******************************/ 45880000 * TPROC(1:8)=CHCLS /* MOVE THE PROC NAME */ 45890000 MVC 71(8,@4),16(@8) 0342 45900000 * /*******************************/ 45910000 **/* P (BR,WTOAFA) MOVE THE PROC 45920000 **/* NAME TO MESSAGE */ 45930000 * /*******************************/ 45940000 * GO TO WTOAFA /* GO HAVE THE MSG PUT OUT */ 45950000 BC 15,WTOAFA 0343 45960000 * ERROR2: R6 = R13->NXTSAVE /* ADDR OF AREA PASSED TO ME */ 45970000 ERROR2 L @6,4(0,@D) 0344 45980000 * R6->RTNCODE = 4 /* SET RETURN CODE FOR USE BY 45990000 * IEFSD162 */ 46000000 LA @F,4 0345 46010000 ST @F,16(0,@6) 0345 46020000 * /*******************************/ 46030000 **/*ERROR2: P SET ERROR RETURN CODE 46040000 **/* FOR IEFSD162 */ 46050000 * /*******************************/ 46060000 * R4 = ADDR(M600A) /* GET ADDRESS OF MSG TO MOVE 46070000 * INTO BUFFER */ 46080000 L @8,@V1 ADDRESS OF JMSGMOD 0346 46090000 LA @4,84(0,@8) 0346 46100000 * /*******************************/ 46110000 **/* P SET ADDR OF MESSAGE FOR 46120000 **/* ROUTINE */ 46130000 * /*******************************/ 46140000 * R7 = 0 /* INDICATE CLEANUP TO DO */ 46150000 SR @7,@7 0347 46160000 * /*******************************/ 46170000 **/* P INDICATE THAT CLEANUP IS 46180000 **/* TO BE DONE */ 46190000 * /*******************************/ 46200000 * R6 = 77 /* LGTH OF MSG FOR MOVE RTN */ 46210000 LA @6,77 0348 46220000 * /*******************************/ 46230000 **/* P SET UP MESSAGE LENGTH FOR 46240000 **/* MOVER ROUTINE */ 46250000 * /*******************************/ 46260000 * CALL MSGMOVE /* GO HAVE THE OUTPUT BUFFER 46270000 * SET UP FOR WTO */ 46280000 BAL @E,MSGMOVE 0349 46290000 * /*******************************/ 46300000 **/* S MSGMOVE: HAVE MSG MOVED */ 46310000 * /*******************************/ 46320000 * IF CHKEY(1) ª= ' ' /* IS THERE A USERID A44237*/ 46330000 * THEN /* YES-HAVE IT MOVED TO MSG */ 46340000 L @8,LCTPTR 0350 46350000 L @8,352(0,@8) LCT 0350 46360000 L @8,20(0,@8) IEL 0350 46370000 L @8,4(0,@8) IELEXITS 0350 46380000 L @8,4(0,@8) JSWA 0350 46390000 L @8,8(0,@8) JSEL 0350 46400000 CLI 8(@8),C' ' 0350 46410000 BC 08,@9DE 0350 46420000 * /*******************************/ 46430000 **/* D (YES,,NO,%LJ15) IS THERE A 46440000 **/* USERID TO MOVE */ 46450000 * /*******************************/ 46460000 * ITUSER(1:7)=CHKEY /* MOVE THE USERID */ 46470000 MVC 52(7,@4),8(@8) 0351 46480000 * /*******************************/ 46490000 **/* P (BR,%LJ15) MOVE THE USERID 46500000 **/* TO MESSAGE */ 46510000 * /*******************************/ 46520000 * IF CHCLS ª= '00'X /* IS THERE A PROC */ 46530000 * THEN /* YES-HAVE IT MOVED TO MSG */ 46540000 @9DE L @8,LCTPTR 0352 46550000 L @8,352(0,@8) LCT 0352 46560000 L @8,20(0,@8) IEL 0352 46570000 L @8,4(0,@8) IELEXITS 0352 46580000 L @8,4(0,@8) JSWA 0352 46590000 L @8,8(0,@8) JSEL 0352 46600000 CLI 16(@8),X'00' 0352 46610000 BC 08,@9DD 0352 46620000 * /*******************************/ 46630000 **/*%LJ15: D (YES,,NO,WTOAFA) IS THERE 46640000 **/* A PROC NAME */ 46650000 * /*******************************/ 46660000 * ITPROC(1:8)=CHCLS /* MOVE THE PROC NAME */ 46670000 MVC 65(8,@4),16(@8) 0353 46680000 * /*******************************/ 46690000 **/* P (BR,WTOAFA) MOVE PROC NAME 46700000 **/* TO MESSAGE */ 46710000 * /*******************************/ 46720000 * GO TO WTOAFA /* GO HAVE THE MESSAGE WRITTEN */ 46730000 BC 15,WTOAFA 0354 46740000 * ERROR3: R7 = R15 /* SAVE THE ERROR CODE FOR LATER 46750000 * USE */ 46760000 ERROR3 LR @7,@F 0355 46770000 * /*******************************/ 46780000 **/*ERROR3: P SAVE THE RETURN CODE FOR 46790000 **/* LATER USE */ 46800000 * /*******************************/ 46810000 * DUMPBT = '1'B /* INDICATE DUMP TO BE TAKEN */ 46820000 OI LJBITS,B'00000001' 0356 46830000 * /*******************************/ 46840000 **/* P INDICATE TSO DUMP TO BE 46850000 **/* TAKEN */ 46860000 * /*******************************/ 46870000 * R6 = R13->NXTSAVE /* ADDR OF AREA PASSED TO ME */ 46880000 L @6,4(0,@D) 0357 46890000 * R6->RTNCODE = 8 /* SET RETURN CODE FOR USE BY 46900000 * IEFSD162 */ 46910000 LA @F,8 0358 46920000 ST @F,16(0,@6) 0358 46930000 * /*******************************/ 46940000 **/* P SET THE ERROR RETURN CODE 46950000 **/* FOR IEFSD162 */ 46960000 * /*******************************/ 46970000 * R4 = ADDR(M602) /* GET ADDRESS OF MSG TO MOVE 46980000 * INTO BUFFER */ 46990000 L @8,@V1 ADDRESS OF JMSGMOD 0359 47000000 LA @4,164(0,@8) 0359 47010000 * /*******************************/ 47020000 **/* P SET UP ADDRESS OF MSG FOR 47030000 **/* MOVER RTN */ 47040000 * /*******************************/ 47050000 * R6 = 69 /* GET LENGTH OF MESSAGE FOR 47060000 * MOVE ROUTINE */ 47070000 LA @6,69 0360 47080000 * /*******************************/ 47090000 **/* P SET UP LENGTH OF MESSAGE 47100000 **/* FOR MOVER */ 47110000 * /*******************************/ 47120000 * CALL MSGMOVE /* GO HAVE THE OUTPUT BUFFER SET 47130000 * UP FOR WTO */ 47140000 BAL @E,MSGMOVE 0361 47150000 * /*******************************/ 47160000 **/* S MSGMOVE: HAVE MSG MOVED */ 47170000 * /*******************************/ 47180000 * R7 = R7 + 240 /* MAKE RTN CODE PRINTABLE */ 47190000 AH @7,@D5 0362 47200000 * /*******************************/ 47210000 **/* P MAKE THE CODE PRINTABLE */ 47220000 * /*******************************/ 47230000 * ETYPE = R7 /* PUT CODE INTO THE BUFFER */ 47240000 ST @7,@TEMP4 0363 47250000 MVC 34(4,@4),@TEMP4 0363 47260000 * /*******************************/ 47270000 **/* P PUT THE ERROR CODE INTO 47280000 **/* MESSAGE */ 47290000 * /*******************************/ 47300000 * IF CHKEY(1) ª= ' ' /* IS THERE A USERID A44237*/ 47310000 * THEN /* YES- HAVE IT MOVED TO MSG */ 47320000 L @8,LCTPTR 0364 47330000 L @8,352(0,@8) LCT 0364 47340000 L @8,20(0,@8) IEL 0364 47350000 L @8,4(0,@8) IELEXITS 0364 47360000 L @8,4(0,@8) JSWA 0364 47370000 L @8,8(0,@8) JSEL 0364 47380000 CLI 8(@8),C' ' 0364 47390000 BC 08,@9DC 0364 47400000 * /*******************************/ 47410000 **/* D (YES,,NO,%LJ16) IS THERE A 47420000 **/* USERID TO MOVE */ 47430000 * /*******************************/ 47440000 * PUSER(1:7)=CHKEY /* MOVE THE USERID */ 47450000 MVC 44(7,@4),8(@8) 0365 47460000 * /*******************************/ 47470000 **/* P (BR,%LJ16) MOVE USERID TO 47480000 **/* THE MESSAGE */ 47490000 * /*******************************/ 47500000 * IF CHCLS ª= '00'X /* IS THERE A PROC */ 47510000 * THEN /* YES- HAVE IT MOVED TO MSG */ 47520000 @9DC L @8,LCTPTR 0366 47530000 L @8,352(0,@8) LCT 0366 47540000 L @8,20(0,@8) IEL 0366 47550000 L @8,4(0,@8) IELEXITS 0366 47560000 L @8,4(0,@8) JSWA 0366 47570000 L @8,8(0,@8) JSEL 0366 47580000 CLI 16(@8),X'00' 0366 47590000 BC 08,@9DB 0366 47600000 * /*******************************/ 47610000 **/*%LJ16: D (YES,,NO,WTOAFA) IS THERE 47620000 **/* A PROCNAME TO MOVE */ 47630000 * /*******************************/ 47640000 * PROCT(1:8)=CHCLS /* MOVE THE PROC NAME */ 47650000 MVC 57(8,@4),16(@8) 0367 47660000 * /*******************************/ 47670000 **/* P MOVE THE PROC NAME TO 47680000 **/* THE MESSAGE */ 47690000 * /*******************************/ 47700000 * WTOAFA: R1 = R4 /* ADDR OF BUFFER TO BE WRITTEN*/ 47710000 @9DB EQU * 0368 47720000 WTOAFA LR @1,@4 0368 47730000 * /*******************************/ 47740000 **/*WTOAFA: P GET ADDR OF OUTPUT BUFFER 47750000 **/* FOR WTO */ 47760000 * /*******************************/ 47770000 * GEN(WTO MF=(E,(1))); /* WRITE THE MESSAGE */ 47780000 WTO MF=(E,(1)) 47790000 DS 0H 47800000 * /*******************************/ 47810000 **/* L WRITE OUT ERROR MESSAGE TO 47820000 **/* THE OPERATOR */ 47830000 * /*******************************/ 47840000 * GEN(FREEMAIN R,LV=(6),A=(4)); /* FREE THE BUFFER */ 47850000 FREEMAIN R,LV=(6),A=(4) 47860000 DS 0H 47870000 * /*******************************/ 47880000 **/* P FREE THE OUTPUT BUFFER */ 47890000 * /*******************************/ 47900000 * IF DUMPBT = '1'B /* WAS A TSO DUMP REQUESTED */ 47910000 * THEN /* YES- THEN TAKE THE DUMP */ 47920000 TM LJBITS,B'00000001' 0371 47930000 BC 12,@9DA 0371 47940000 * DO /* NO- BYPASS THE DUMP */ 47950000 * /*******************************/ 47960000 **/* D (YES,,NO,%LJ18) WAS TSO 47970000 **/* DUMP REQUESTED */ 47980000 * /*******************************/ 47990000 * DUMPBT = '0'B /* TURN OFF THE DUMP BIT */ 48000000 NI LJBITS,B'11111110' 0373 48010000 * /*******************************/ 48020000 **/* P TURN OFF THE DUMP BIT */ 48030000 * /*******************************/ 48040000 * R1 = 0 /* PASS NO RCT ADDRESS TO DUMP */ 48050000 SR @1,@1 0374 48060000 * /*******************************/ 48070000 **/* P DON'T PASS RCT ADDR */ 48080000 * /*******************************/ 48090000 * R15 = TSCVTT08 /* GET ADDR OF DUMP ROUTINE */ 48100000 L @8,CVTPTR 0375 48110000 L @8,228(0,@8) CVTMAP 0375 48120000 L @F,120(0,@8) 0375 48130000 * /*******************************/ 48140000 **/* P GET ADDR OF DUMP RTN */ 48150000 * /*******************************/ 48160000 * GEN(BALR 14,15); 48170000 BALR 14,15 48180000 DS 0H 48190000 * /*******************************/ 48200000 **/* S TSCVTT08: HAVE DUMP ROUTINE 48210000 **/* DUMP CORE */ 48220000 * /*******************************/ 48230000 * END; 48240000 * IF R7 ª= 0 /* SHOULD CLEANUP BE ATTEMPTED OR 48250000 * BYPASSED */ 48260000 * THEN /* IF ZERO THEN CLEANUP */ 48270000 @9DA LTR @7,@7 0378 48280000 * GO TO QEXIT /* NO CLEANUP IF GETMAIN ERROR */ 48290000 BC 07,QEXIT 0379 48300000 * /*******************************/ 48310000 **/*%LJ18: D (YES,,NO,QEXIT) SHOULD 48320000 **/* CLEANUP BE DONE */ 48330000 * /*******************************/ 48340000 * RELEASE(R4,R6) /* GIVE THE REGS BACK */ 48350000 * FREE: LWARTCD = 0 /* ZERO THE RETURN CODE FIELD 48360000 * IN THE LWA */ 48370000 FREE SR @F,@F 0381 48380000 L @4,LCTPTR 0381 48390000 L @4,352(0,@4) LCT 0381 48400000 L @4,20(0,@4) IEL 0381 48410000 L @4,4(0,@4) IELEXITS 0381 48420000 L @4,4(0,@4) JSWA 0381 48430000 L @4,16(0,@4) JSEL 0381 48440000 L @4,4(0,@4) JSXL 0381 48450000 ST @F,52(0,@4) 0381 48460000 * /*******************************/ 48470000 **/*FREE: P ZERO THE RETURN CODE FIELD 48480000 **/* IN LWA FOR IKJEFLK */ 48490000 * /*******************************/ 48500000 * DSEFORWD = 0 /* ZERO FORWARD PTR IN LAST DSE*/ 48510000 ST @F,0(0,@5) 0382 48520000 * /*******************************/ 48530000 **/* P ZERO FORWARD POINTER IN 48540000 **/* LAST DSE */ 48550000 * /*******************************/ 48560000 * GFLIST = LISTFM /* MOVE LIST FORM OF FREEMAIN 48570000 * MACRO INST. */ 48580000 MVC GFLIST(10),LISTFM 0383 48590000 * R1 = ADDR(GFLIST) /* SET ADDR OF LIST FOR EXEC 48600000 * FOR OF MACRO */ 48610000 LA @1,GFLIST 0384 48620000 * R7 = ADDR(DSCBARA) /* PTR TO ADDRS TO BE FREED */ 48630000 LA @7,GMLIST 0385 48640000 * RESTRICT (R8) /* SET REG ASIDE FOR FREEMAIN */ 48650000 * R8 = ADDR(DSCBLTH) /* PTR TO LENGTH OF AREAS TO BE 48660000 * FREED */ 48670000 LA @8,GMLIST+12 0387 48680000 * /*******************************/ 48690000 **/* P SET UP TO FREE WORK AREAS */ 48700000 * /*******************************/ 48710000 * GEN(FREEMAIN L,LA=(8),A=(7),MF=(E,(1))); /*FREE ALL CORE */ 48720000 FREEMAIN L,LA=(8),A=(7),MF=(E,(1)) 48730000 DS 0H 48740000 * /*******************************/ 48750000 **/* L FREE THE WORK AREAS */ 48760000 * /*******************************/ 48770000 * RELEASE (R7,R8); /* GIVE REGISTERS BACK */ 48780000 * QEXIT: IF LWAPTID ª= 0 /* OTHER THAN FIRST JOB STEP */ 48790000 * THEN /* NO -BYPASS CLEANUP */ 48800000 QEXIT SR @F,@F 0391 48810000 L @4,LCTPTR 0391 48820000 L @4,352(0,@4) LCT 0391 48830000 L @4,20(0,@4) IEL 0391 48840000 L @4,4(0,@4) IELEXITS 0391 48850000 L @4,4(0,@4) JSWA 0391 48860000 L @4,16(0,@4) JSEL 0391 48870000 L @4,4(0,@4) JSXL 0391 48880000 C @F,44(0,@4) 0391 48890000 BC 08,@9D9 0391 48900000 * DO /* YES-GO THROUGH CLEANUP */ 48910000 * /*******************************/ 48920000 **/*QEXIT: D (YES,,NO,%LJ19) THIS FIRST 48930000 **/* JOB STEP */ 48940000 * /*******************************/ 48950000 * WECBPTR=ADDR(LWAELST) /* GET ADDRESS OF WAIT ECB */ 48960000 LA @1,224(0,@4) 0393 48970000 * /*******************************/ 48980000 **/* P SET UP TO WAIT FOR 48990000 **/* COMPLETION OF PROMPTER */ 49000000 * /*******************************/ 49010000 * GEN(WAIT ECBLIST=(WECBPTR)); 49020000 WAIT ECBLIST=(WECBPTR) 49030000 DS 0H 49040000 * /*******************************/ 49050000 **/* W WAIT FOR COMPLETION OF 49060000 **/* PROMPTER */ 49070000 * /*******************************/ 49080000 * IF AECBPBIT = '1'B /* WAS AECB POSTED BEFORE PECB */ 49090000 * THEN /* YES- SET ERROR RETURN CODE */ 49100000 TM 28(@4),B'01000000' 0395 49110000 BC 12,@9D8 0395 49120000 * DO /* NO-CONTINUE ON */ 49130000 * /*******************************/ 49140000 **/* D (NO,,YES,%LJ20) DID PROMPTER 49150000 **/* COMPLETE NORMALLY */ 49160000 * /*******************************/ 49170000 * RESTRICT (R6); 49180000 * LWARTCD = LWAAECB /* PUT CODE IN LWA RTN CODE */ 49190000 MVC 52(4,@4),28(@4) 0398 49200000 **/* P PUT MY RETURN CODE IN LWA */ 49210000 * /*******************************/ 49220000 * R6 = R13->NXTSAVE /* ADDR OF SAVE AREA PASSED IN */ 49230000 L @6,4(0,@D) 0399 49240000 * R6->RTNCODE =16 /* SET ERROR RETURN CODE */ 49250000 LA @F,16 0400 49260000 ST @F,16(0,@6) 0400 49270000 * /*******************************/ 49280000 **/* P (BR,OUTCLEN) SET ERROR 49290000 **/* RETURN CODE FOR IEFSD162 */ 49300000 * /*******************************/ 49310000 * RELEASE (R6); 49320000 * GO TO OUTCLEN /* CLEAN UP FOR EXIT */ 49330000 BC 15,OUTCLEN 0402 49340000 * END; 49350000 * PECBPTR=ADDR(LWASECB) /* GET ADDRESS OF POST ECB */ 49360000 @9D8 L @4,LCTPTR 0404 49370000 L @4,352(0,@4) LCT 0404 49380000 L @4,20(0,@4) IEL 0404 49390000 L @4,4(0,@4) IELEXITS 0404 49400000 L @4,4(0,@4) JSWA 0404 49410000 L @4,16(0,@4) JSEL 0404 49420000 L @4,4(0,@4) JSXL 0404 49430000 LA @1,36(0,@4) 0404 49440000 * /*******************************/ 49450000 **/*%LJ20: P SET UP FOR POST */ 49460000 * /*******************************/ 49470000 * GEN(POST (PECBPTR),INITRDY); 49480000 POST (PECBPTR),INITRDY 49490000 DS 0H 49500000 * /*******************************/ 49510000 **/* P INFORM PROMPTER INIT JOB 49520000 **/* STEP READY */ 49530000 * /*******************************/ 49540000 * WECBPTR=ADDR(LWAAECB) /* GET ADDRESS OF ATTACH ECB */ 49550000 LA @1,28(0,@4) 0406 49560000 * GEN(WAIT ECB=(WECBPTR)); 49570000 WAIT ECB=(WECBPTR) 49580000 DS 0H 49590000 * /*******************************/ 49600000 **/* W IS PROMPTER COMPLETE */ 49610000 * /*******************************/ 49620000 * OUTCLEN: DETACHRG=ADDR(LWAPTID) /* GET ADDR OF POINTER TO TCB */ 49630000 OUTCLEN L @4,LCTPTR 0408 49640000 L @4,352(0,@4) LCT 0408 49650000 L @4,20(0,@4) IEL 0408 49660000 L @4,4(0,@4) IELEXITS 0408 49670000 L @4,4(0,@4) JSWA 0408 49680000 L @4,16(0,@4) JSEL 0408 49690000 L @4,4(0,@4) JSXL 0408 49700000 LA @1,44(0,@4) 0408 49710000 * /*******************************/ 49720000 **/*OUTCLEN: P GET TCB ADDR FOR DETACH */ 49730000 * /*******************************/ 49740000 * GEN(DETACH (DETACHRG)); 49750000 DETACH (DETACHRG) 49760000 DS 0H 49770000 * /*******************************/ 49780000 **/* L DETACH THE PROMPTER */ 49790000 * /*******************************/ 49800000 * DETACHRG=ADDR(LWAAECB) /* GET ADDRESS OF ATTACH ECB */ 49810000 LA @1,28(0,@4) 0410 49820000 **/* P GET ADDRESS OF ATTACH ECB */ 49830000 * /*******************************/ 49840000 * DETACHRG->ZEROFLD=''B /* ZERO OUT ATTACH ECB */ 49850000 XC 0(4,@1),0(@1) 0411 49860000 * /*******************************/ 49870000 **/* P ZERO THE ATTACH ECB */ 49880000 * /*******************************/ 49890000 * DETACHRG=ADDR(LWAPTID) /* GET THE ADDRESS OF TCB PTR */ 49900000 LA @1,44(0,@4) 0412 49910000 * /*******************************/ 49920000 **/* P GET ADDR OF ID FIELD */ 49930000 * /*******************************/ 49940000 * DETACHRG->ZEROFLD=''B /* ZERO OUT PROGRAM ID */ 49950000 XC 0(4,@1),0(@1) 0413 49960000 * /*******************************/ 49970000 **/* P ZERO THE ID FIELD */ 49980000 * /*******************************/ 49990000 * GEN(DELETE EP=IKJEFLGM); /* GET RID OF MESSAGE MODULE */ 50000000 DELETE EP=IKJEFLGM 50010000 DS 0H 50020000 * /*******************************/ 50030000 **/* L DELETE MESSAGE MODULE */ 50040000 * /*******************************/ 50050000 * GEN(DELETE EP=IKJEFLGB); /* GET RID OF STAI MODULE */ 50060000 DELETE EP=IKJEFLGB 50070000 DS 0H 50080000 * /*******************************/ 50090000 **/* L DELETE STAI MODULE */ 50100000 * /*******************************/ 50110000 * GEN(DELETE EP=IKJEFLG); /* GET RID OF ATTN EXIT RTN. */ 50120000 DELETE EP=IKJEFLG 50130000 DS 0H 50140000 * /*******************************/ 50150000 **/* L DELETE ATTN EXIT ROUTINE */ 50160000 * /*******************************/ 50170000 * GEN(DELETE EP=IKJEFLP0); /* GET RID OF IKJEFLP0 */ 50180000 DELETE EP=IKJEFLP0 50190000 DS 0H 50200000 * /*******************************/ 50210000 **/* L DELETE IKJEFLP0 */ 50220000 * /*******************************/ 50230000 * END; 50240000 * RESTRICT (R6); 50250000 * R6 = R13->NXTSAVE /* ADDR OF SAVE AREA PASSED IN */ 50260000 @9D9 L @6,4(0,@D) 0424 50270000 * LWARCDE = R6->RTNCODE /* SET UP RTN CODE IN LWA */ 50280000 L @4,LCTPTR 0425 50290000 L @4,352(0,@4) LCT 0425 50300000 L @4,20(0,@4) IEL 0425 50310000 L @4,4(0,@4) IELEXITS 0425 50320000 L @4,4(0,@4) JSWA 0425 50330000 L @4,16(0,@4) JSEL 0425 50340000 L @4,4(0,@4) JSXL 0425 50350000 MVC 236(4,@4),16(@6) 0425 50360000 * /*******************************/ 50370000 **/*%LJ19: P SET UP RETURN CODE FOR 50380000 **/* SECOND LEVEL MESSAGES */ 50390000 * /*******************************/ 50400000 * IF LWARCDE ª= 0 /* WAS A RETURN CODE SET */ 50410000 * THEN /* NO- BYPASS SD103 RTN CODE */ 50420000 SR @F,@F 0426 50430000 C @F,236(0,@4) 0426 50440000 BC 08,@9D7 0426 50450000 * /*******************************/ 50460000 **/* D (YES,,NO,ENDLJ) WAS RETURN 50470000 **/* CODE NONZERO */ 50480000 * /*******************************/ 50490000 * R6->RTNCODE = 16 /* YES- SET RTN CODE FOR SD103 */ 50500000 LA @F,16 0427 50510000 ST @F,16(0,@6) 0427 50520000 * /*******************************/ 50530000 **/* P (BR,ENDLJ)SET SIXTEEN RETURN 50540000 **/* CODE FOR IEFSD162 */ 50550000 * /*******************************/ 50560000 * RELEASE (R6); 50570000 * GO TO ENDLJ /* BYPASS EXPANSION OF MACROS */ 50580000 BC 15,ENDLJ 0429 50590000 * GENERATE; 50600000 LISTGM GETMAIN LC,MF=L 50610000 LISTFM FREEMAIN L,MF=L 50620000 PUTLINE PUTLINE MF=L 50630000 MOVEMSG MVC 0(0,R1),0(R4) MOVE THE MESSAGE 50640000 DS 0H 50650000 * GENERATE DATA; 50660000 * MSGMOVE:PROC OPTIONS(NOSAVEAREA,DONTSAVE); 50670000 @EL01 L @D,4(0,@D) 0432 50680000 LR @1,@C 0432 50690000 L @0,@SIZ001 0432 50700000 FREEMAIN R,LV=(0),A=(1) 0432 50710000 LM @E,@C,12(@D) 0432 50720000 BCR 15,@E 0432 50730000 MSGMOVE EQU * 0432 50740000 * /*******************************/ 50750000 **/*MSGMOVE: E ENTRY */ 50760000 * /*******************************/ 50770000 * GENERATE; 50780000 LR R0,R6 GET LENGTH FOR BUFFER 50790000 * /*******************************/ 50800000 */* P LGTH FOR GETMAIN OF BUFFER */ 50810000 * /*******************************/ 50820000 GETMAIN R,LV=(0) GET CORE FOR WTO 50830000 * /*******************************/ 50840000 */* L GET CORE FOR OUTPUT BUFFER */ 50850000 * /*******************************/ 50860000 BCTR R6,R0 DECREMENT FOR MOVE OF MESSAGE 50870000 * /*******************************/ 50880000 */* P SET CORRECT LENGTH FOR MOVE */ 50890000 * /*******************************/ 50900000 EX R6,MOVEMSG MOVE THE MESSAGE TO THE BUFFER 50910000 * /*******************************/ 50920000 */* P MOVE MESSAGE TO BUFFER */ 50930000 * /*******************************/ 50940000 LA R6,1(R6) GET TOTAL LGTH FOR FREE OF BUFFER 50950000 * /*******************************/ 50960000 */* P PASS BACK LENGTH OF BUFFER */ 50970000 * /*******************************/ 50980000 LR R4,R1 SET UP BASE REG FOR BUFFER 50990000 * /*******************************/ 51000000 */* P PASS BACK POINTER TO BUFFER */ 51010000 * /*******************************/ 51020000 DS 0H 51030000 * /*******************************/ 51040000 **/* R RETURN */ 51050000 * /*******************************/ 51060000 * END MSGMOVE; 51070000 @EL02 BCR 15,@E 0434 51080000 * /*******************************/ 51090000 **/*ENDLJ: R RETURN TO IEFSD162 */ 51100000 * /*******************************/ 51110000 * ENDLJ: END 51120000 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 51130000 * /*%INCLUDE SYSLIB (CVT ) 51140000 * /*%INCLUDE SYSLIB (IKJTSCVT) 51150000 * /*%INCLUDE SYSLIB (IEFALLCT) 51160000 * /*%INCLUDE SYSLIB (IEZJSCB ) 51170000 * /*%INCLUDE SYSLIB (IEZIELDF) 51180000 * /*%INCLUDE SYSLIB (IEFQMNGR) 51190000 * /*%INCLUDE SYSLIB (IEZIEL ) 51200000 * /*%INCLUDE SYSLIB (IEFVJSWA) 51210000 * /*%INCLUDE SYSLIB (IEFVJSEL) 51220000 * /*%INCLUDE SYSLIB (IEFVJSXL) 51230000 * /*%INCLUDE SYSLIB (IKJEFLWA) 51240000 * /*%INCLUDE SYSLIB (IEECHAIN) 51250000 * /*%INCLUDE SYSLIB (IKJPSCB ) 51260000 * /*%INCLUDE SYSLIB (IKJUPT ) 51270000 * /*%INCLUDE SYSLIB (IKJRCB ) 51280000 * /*%INCLUDE SYSLIB (IKJTJBX ) 51290000 * /*%INCLUDE SYSLIB (IKJDSE ) 51300000 * /*%INCLUDE SYSLIB (IEFTIOT1) 51310000 * /*%INCLUDE SYSLIB (IEFUCBOB) 51320000 * /*%INCLUDE SYSLIB (IEFASIOT) 51330000 * /*%INCLUDE SYSLIB (IEFJFCBN) 51340000 * /*%INCLUDE SYSLIB (IEFASCTB) 51350000 * ; 51360000 BC 15,@EL01 0435 51370000 @DATA1 EQU * 51380000 @0 EQU 00 EQUATES FOR REGISTERS 0-15 51390000 @1 EQU 01 51400000 @2 EQU 02 51410000 @3 EQU 03 51420000 @4 EQU 04 51430000 @5 EQU 05 51440000 @6 EQU 06 51450000 @7 EQU 07 51460000 @8 EQU 08 51470000 @9 EQU 09 51480000 @A EQU 10 51490000 @B EQU 11 51500000 @C EQU 12 51510000 @D EQU 13 51520000 @E EQU 14 51530000 @F EQU 15 51540000 @D1 DC H'1' 51550000 @D2 DC H'7' 51560000 @D3 DC H'2' 51570000 @D4 DC H'8' 51580000 @D5 DC H'240' 51590000 @MVC MVC 0(1,@A),0(@E) 51600000 @V1 DC V(JMSGMOD) 51610000 DS 0F 51620000 @SIZ001 DC AL1(&SPN) 51630000 DC AL3(@DATEND-@DATD) 51640000 DS 0F 51650000 @X13 DC X'C1000000' 51660000 DS 0D 51670000 @DATA EQU * 51680000 WECBPTR EQU 00000001 FULLWORD POINTER REGISTER 51690000 PECBPTR EQU 00000001 FULLWORD POINTER REGISTER 51700000 DETACHRG EQU 00000001 FULLWORD POINTER REGISTER 51710000 PARMREG EQU 00000001 FULLWORD POINTER REGISTER 51720000 PARMPTR EQU 00000002 FULLWORD POINTER REGISTER 51730000 DSEPTR EQU 00000005 FULLWORD POINTER REGISTER 51740000 R0 EQU 00000000 FULLWORD POINTER REGISTER 51750000 R1 EQU 00000001 FULLWORD POINTER REGISTER 51760000 R2 EQU 00000002 FULLWORD POINTER REGISTER 51770000 R3 EQU 00000003 FULLWORD POINTER REGISTER 51780000 R4 EQU 00000004 FULLWORD POINTER REGISTER 51790000 R6 EQU 00000006 FULLWORD POINTER REGISTER 51800000 R7 EQU 00000007 FULLWORD POINTER REGISTER 51810000 R8 EQU 00000008 FULLWORD POINTER REGISTER 51820000 R10 EQU 00000010 FULLWORD POINTER REGISTER 51830000 J EQU 00000009 FULLWORD POINTER REGISTER 51840000 R13 EQU 00000013 FULLWORD POINTER REGISTER 51850000 R15 EQU 00000015 FULLWORD POINTER REGISTER 51860000 THELCT EQU 00000000 FULLWORD POINTER 51870000 ZEROFLD EQU 00000000 32 BIT(S) ON BYTE 51880000 TEMPMEM EQU 00000000 FULLWORD POINTER 51890000 CVTPTR EQU 00000016 FULLWORD POINTER 51900000 PARMLST EQU 00000000 8 BYTE(S) ON WORD 51910000 ALCTPTR EQU PARMLST+00000000 FULLWORD POINTER 51920000 ATIOTPTR EQU PARMLST+00000004 FULLWORD POINTER 51930000 CVTMAP EQU 00000000 276 BYTE(S) ON WORD 51940000 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 51950000 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 51960000 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 51970000 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 51980000 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 51990000 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 52000000 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 52010000 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 52020000 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 52030000 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 52040000 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 52050000 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 52060000 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 52070000 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 52080000 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 52090000 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 52100000 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 52110000 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 52120000 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 52130000 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 52140000 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 52150000 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 52160000 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 52170000 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 52180000 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 52190000 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 52200000 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 52210000 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 52220000 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 52230000 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 52240000 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 52250000 A00001 EQU CVTMAP+00000116 1 BIT(S) 52260000 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 52270000 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 52280000 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 52290000 A00002 EQU CVTMAP+00000116 1 BIT(S) 52300000 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 52310000 A00003 EQU CVTMAP+00000116 1 BIT(S) 52320000 A00004 EQU CVTMAP+00000116 1 BIT(S) 52330000 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 52340000 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 52350000 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 52360000 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 52370000 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 52380000 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 52390000 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 52400000 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 52410000 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 52420000 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 52430000 CVTTRMTB EQU CVTMAP+00000156 FULLWORD POINTER 52440000 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 52450000 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 52460000 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 52470000 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 52480000 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 52490000 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 52500000 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 52510000 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 52520000 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 52530000 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 52540000 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 52550000 CVTATTCH EQU CVTMAP+00000182 1 BIT(S) 52560000 CVTHIAR EQU CVTMAP+00000182 1 BIT(S) 52570000 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 52580000 A00005 EQU CVTMAP+00000182 1 BIT(S) 52590000 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 52600000 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 52610000 A00006 EQU CVTMAP+00000183 1 BIT(S) 52620000 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 52630000 A00007 EQU CVTMAP+00000183 5 BIT(S) 52640000 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 52650000 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 52660000 CVTMPCVT EQU CVTMAP+00000192 FULLWORD POINTER 52670000 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 52680000 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 52690000 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 52700000 CVTMDLDS EQU CVTMAP+00000208 FULLWORD POINTER 52710000 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 52720000 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 52730000 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 52740000 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 52750000 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 52760000 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 52770000 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 52780000 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 52790000 A00008 EQU CVTMAP+00000228 7 BIT(S) 52800000 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 52810000 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 52820000 CVTGTF EQU CVTMAP+00000236 FULLWORD POINTER 52830000 CVTGTFST EQU CVTMAP+00000236 1 BYTE(S) 52840000 CVTGTFS EQU CVTMAP+00000236 2 BIT(S) 52850000 CVTSTATE EQU CVTMAP+00000236 1 BIT(S) 52860000 CVTMODE EQU CVTMAP+00000236 1 BIT(S) 52870000 CVTFORM EQU CVTMAP+00000236 1 BIT(S) 52880000 CVTUSR EQU CVTMAP+00000236 1 BIT(S) 52890000 CVTMCTYP EQU CVTMAP+00000236 1 BIT(S) 52900000 A00009 EQU CVTMAP+00000236 1 BIT(S) 52910000 CVTCMT EQU CVTMAP+00000237 3 BYTE POINTER ON WORD+1 52920000 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 52930000 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 52940000 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 52950000 A00010 EQU CVTMAP+00000240 7 BIT(S) 52960000 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 52970000 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 52980000 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 52990000 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 53000000 CVTATER EQU CVTMAP+00000248 FULLWORD POINTER 53010000 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 53020000 CVTATERA EQU CVTMAP+00000249 3 BYTE POINTER ON WORD+1 53030000 A00011 EQU CVTMAP+00000252 FULLWORD POINTER 53040000 A00012 EQU CVTMAP+00000256 FULLWORD POINTER 53050000 CVTPURG EQU CVTMAP+00000260 FULLWORD POINTER 53060000 A00013 EQU CVTMAP+00000260 1 BYTE(S) 53070000 CVTPURGA EQU CVTMAP+00000261 3 BYTE POINTER ON WORD+1 53080000 A00014 EQU CVTMAP+00000264 FULLWORD POINTER 53090000 CVTQMSG EQU CVTMAP+00000268 FULLWORD POINTER 53100000 A00015 EQU CVTMAP+00000268 1 BYTE(S) 53110000 CVTQMSGA EQU CVTMAP+00000269 3 BYTE POINTER ON WORD+1 53120000 CVTDMSR EQU CVTMAP+00000272 FULLWORD POINTER 53130000 A00016 EQU CVTMAP+00000272 1 BYTE(S) 53140000 CVTDMSRA EQU CVTMAP+00000273 3 BYTE POINTER ON WORD+1 53150000 A00017 EQU 00000184 8 BYTE(S) ON WORD 53160000 CVTCRTTR EQU A00017+00000000 3 BYTE(S) 53170000 CVTSTUSA EQU A00017+00000003 1 BYTE(S) 53180000 A00018 EQU A00017+00000003 1 BIT(S) 53190000 A00019 EQU A00017+00000003 1 BIT(S) 53200000 A00020 EQU A00017+00000003 1 BIT(S) 53210000 A00021 EQU A00017+00000003 1 BIT(S) 53220000 CVTCHPTR EQU A00017+00000003 1 BIT(S) 53230000 CVTSTEPR EQU A00017+00000003 1 BIT(S) 53240000 CVTDATA EQU A00017+00000003 1 BIT(S) 53250000 A00022 EQU A00017+00000003 1 BIT(S) 53260000 A00023 EQU A00017+00000004 2 BYTE(S) 53270000 A00024 EQU A00017+00000006 2 BYTE(S) 53280000 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 53290000 A00025 EQU CVTFIX+00000000 248 BYTE(S) 53300000 A00026 EQU CVTFIX+00000248 2 BYTE(S) 53310000 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 53320000 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 53330000 TSCVT EQU 00000000 136 BYTE(S) ON WORD 53340000 TSCVTTJB EQU TSCVT+00000000 FULLWORD POINTER 53350000 TSCVTRCB EQU TSCVT+00000004 FULLWORD POINTER 53360000 TSCVTRPT EQU TSCVT+00000008 FULLWORD POINTER 53370000 TSCVTFLG EQU TSCVT+00000012 2 BYTE(S) 53380000 TSCSWPND EQU TSCVT+00000012 1 BIT(S) 53390000 TSCSWPBG EQU TSCVT+00000012 1 BIT(S) 53400000 TSCLOGON EQU TSCVT+00000012 1 BIT(S) 53410000 TSCDISC EQU TSCVT+00000012 1 BIT(S) 53420000 TSCVTFL1 EQU TSCVT+00000014 2 BYTE(S) 53430000 TSCSSTOP EQU TSCVT+00000014 1 BIT(S) 53440000 TSCRSTOP EQU TSCVT+00000014 1 BIT(S) 53450000 TSCASTOP EQU TSCVT+00000014 1 BIT(S) 53460000 TSCLOGPR EQU TSCVT+00000014 1 BIT(S) 53470000 A00027 EQU TSCVT+00000014 1 BIT(S) 53480000 A00028 EQU TSCVT+00000014 1 BIT(S) 53490000 A00029 EQU TSCVT+00000014 1 BIT(S) 53500000 A00030 EQU TSCVT+00000014 1 BIT(S) 53510000 TSCVTSDC EQU TSCVT+00000016 FULLWORD POINTER 53520000 TSCVTCUS EQU TSCVT+00000020 HALFWORD INTEGER 53530000 TSCVTLUS EQU TSCVT+00000022 HALFWORD INTEGER 53540000 TSCVTNTJ EQU TSCVT+00000024 HALFWORD INTEGER 53550000 TSCVTSZU EQU TSCVT+00000026 HALFWORD INTEGER 53560000 TSCVTCTR EQU TSCVT+00000028 HALFWORD INTEGER 53570000 TSCVTMUS EQU TSCVT+00000030 HALFWORD INTEGER 53580000 TSCVTSAV EQU TSCVT+00000032 FULLWORD POINTER 53590000 TSCVTECB EQU TSCVT+00000036 FULLWORD POINTER 53600000 TSCVTSIA EQU TSCVT+00000040 FULLWORD POINTER 53610000 TSCVTICB EQU TSCVT+00000044 FULLWORD POINTER 53620000 TSCVTI01 EQU TSCVT+00000048 FULLWORD POINTER 53630000 TSCVTTQE EQU TSCVT+00000052 FULLWORD POINTER 53640000 TSCVTI02 EQU TSCVT+00000056 FULLWORD POINTER 53650000 TSCVTI03 EQU TSCVT+00000060 FULLWORD POINTER 53660000 TSCVTD02 EQU TSCVT+00000064 FULLWORD POINTER 53670000 TSCVTLCQ EQU TSCVT+00000068 FULLWORD POINTER 53680000 TSCVTTRB EQU TSCVT+00000072 FULLWORD POINTER 53690000 TSCVTLPA EQU TSCVT+00000076 FULLWORD POINTER 53700000 TSCVTSLF EQU TSCVT+00000080 FULLWORD INTEGER 53710000 TSCVTTSC EQU TSCVT+00000084 FULLWORD POINTER 53720000 TSCVTSPL EQU TSCVT+00000088 FULLWORD POINTER 53730000 TSCVTRSZ EQU TSCVT+00000092 HALFWORD INTEGER 53740000 A00031 EQU TSCVT+00000094 2 BYTE(S) 53750000 TSCVTSVT EQU TSCVT+00000096 4 BYTE(S) 53760000 TSCVTSVQ EQU TSCVT+00000100 4 BYTE(S) 53770000 TSCVTABN EQU TSCVT+00000104 FULLWORD POINTER 53780000 TSCVTD03 EQU TSCVT+00000108 FULLWORD POINTER 53790000 TSCVTFLM EQU TSCVT+00000112 FULLWORD POINTER 53800000 TSCVTQTP EQU TSCVT+00000116 FULLWORD POINTER 53810000 TSCVTT08 EQU TSCVT+00000120 FULLWORD POINTER 53820000 TSCVTDMP EQU TSCVT+00000124 FULLWORD POINTER 53830000 TSCVTT06 EQU TSCVT+00000128 FULLWORD POINTER 53840000 TSCVTLS3 EQU TSCVT+00000132 FULLWORD POINTER 53850000 LCT EQU 00000000 380 BYTE(S) ON WORD 53860000 LCTQDRTY EQU LCT+00000000 FULLWORD POINTER 53870000 A00032 EQU LCT+00000000 8 BIT(S) 53880000 A00033 EQU LCT+00000001 3 BYTE POINTER ON WORD+1 53890000 LCTSRTAD EQU LCT+00000004 FULLWORD POINTER 53900000 A00034 EQU LCT+00000004 8 BIT(S) 53910000 A00035 EQU LCT+00000005 3 BYTE POINTER ON WORD+1 53920000 LCTTCBAD EQU LCT+00000008 FULLWORD POINTER 53930000 A00036 EQU LCT+00000008 8 BIT(S) 53940000 A00037 EQU LCT+00000009 3 BYTE POINTER ON WORD+1 53950000 LCTQENTY EQU LCT+00000012 FULLWORD POINTER 53960000 A00038 EQU LCT+00000012 8 BIT(S) 53970000 A00039 EQU LCT+00000012 1 BIT(S) 53980000 A00040 EQU LCT+00000012 1 BIT(S) 53990000 A00041 EQU LCT+00000012 1 BIT(S) 54000000 A00042 EQU LCT+00000012 1 BIT(S) 54010000 A00043 EQU LCT+00000012 1 BIT(S) 54020000 A00044 EQU LCT+00000012 1 BIT(S) 54030000 A00045 EQU LCT+00000012 1 BIT(S) 54040000 LCTERRM EQU LCT+00000012 1 BIT(S) 54050000 A00046 EQU LCT+00000013 3 BYTE POINTER ON WORD+1 54060000 LCTJCTAD EQU LCT+00000016 FULLWORD POINTER 54070000 A00047 EQU LCT+00000016 8 BIT(S) 54080000 A00048 EQU LCT+00000017 3 BYTE POINTER ON WORD+1 54090000 LCTSCTAD EQU LCT+00000020 FULLWORD POINTER 54100000 A00049 EQU LCT+00000020 8 BIT(S) 54110000 A00050 EQU LCT+00000021 3 BYTE POINTER ON WORD+1 54120000 LCTSCTDA EQU LCT+00000024 FULLWORD POINTER 54130000 A00051 EQU LCT+00000024 8 BIT(S) 54140000 A00052 EQU LCT+00000025 3 BYTE POINTER ON WORD+1 54150000 LCTPSPAR EQU LCT+00000028 FULLWORD POINTER 54160000 A00053 EQU LCT+00000028 8 BIT(S) 54170000 A00054 EQU LCT+00000029 3 BYTE POINTER ON WORD+1 54180000 LCTERROR EQU LCT+00000032 FULLWORD INTEGER 54190000 LCTPARM1 EQU LCT+00000036 FULLWORD INTEGER 54200000 LCTPARM2 EQU LCT+00000040 FULLWORD INTEGER 54210000 LCTPARM3 EQU LCT+00000044 FULLWORD INTEGER 54220000 LCTPARM4 EQU LCT+00000048 FULLWORD INTEGER 54230000 LCTCMCBA EQU LCT+00000052 FULLWORD POINTER 54240000 A00055 EQU LCT+00000052 8 BIT(S) 54250000 A00056 EQU LCT+00000053 3 BYTE POINTER ON WORD+1 54260000 LCTNSPAD EQU LCT+00000056 8 BIT(S) 54270000 LCTJFCBH EQU LCT+00000057 8 BIT(S) 54280000 LCTS2PEM EQU LCT+00000057 1 BIT(S) 54290000 LCTS2COP EQU LCT+00000057 1 BIT(S) 54300000 LCTS2FES EQU LCT+00000057 1 BIT(S) 54310000 A00057 EQU LCT+00000057 1 BIT(S) 54320000 A00058 EQU LCT+00000057 1 BIT(S) 54330000 A00059 EQU LCT+00000057 1 BIT(S) 54340000 A00060 EQU LCT+00000057 1 BIT(S) 54350000 A00061 EQU LCT+00000057 1 BIT(S) 54360000 LCTSNUMB EQU LCT+00000058 1 BYTE POINTER 54370000 LCTACTON EQU LCT+00000059 1 BYTE POINTER 54380000 LCTSMBAD EQU LCT+00000060 FULLWORD POINTER 54390000 A00062 EQU LCT+00000060 8 BIT(S) 54400000 A00063 EQU LCT+00000061 3 BYTE POINTER ON WORD+1 54410000 LCTBATMN EQU LCT+00000064 FULLWORD INTEGER 54420000 LCTSOQMP EQU LCT+00000068 FULLWORD POINTER 54430000 A00064 EQU LCT+00000068 8 BIT(S) 54440000 A00065 EQU LCT+00000069 3 BYTE POINTER ON WORD+1 54450000 LCTRTRN EQU LCT+00000072 FULLWORD POINTER 54460000 A00066 EQU LCT+00000072 8 BIT(S) 54470000 A00067 EQU LCT+00000073 3 BYTE POINTER ON WORD+1 54480000 LCTCSCB EQU LCT+00000076 FULLWORD POINTER 54490000 LCTINTSW EQU LCT+00000076 8 BIT(S) 54500000 LCTIHIER EQU LCT+00000076 1 BIT(S) 54510000 A00068 EQU LCT+00000076 1 BIT(S) 54520000 LCTSDOXX EQU LCT+00000076 1 BIT(S) 54530000 LCTMINRG EQU LCT+00000076 1 BIT(S) 54540000 LCTSTART EQU LCT+00000076 1 BIT(S) 54550000 LCTSTOP EQU LCT+00000076 1 BIT(S) 54560000 A00069 EQU LCT+00000076 1 BIT(S) 54570000 A00070 EQU LCT+00000076 1 BIT(S) 54580000 A00071 EQU LCT+00000077 3 BYTE POINTER ON WORD+1 54590000 LCTTMWRK EQU LCT+00000080 16 BYTE(S) 54600000 LCTJOBLB EQU LCT+00000096 FULLWORD POINTER 54610000 A00072 EQU LCT+00000096 8 BIT(S) 54620000 A00073 EQU LCT+00000097 3 BYTE POINTER ON WORD+1 54630000 LCTATLST EQU LCT+00000100 FULLWORD POINTER 54640000 A00074 EQU LCT+00000100 8 BIT(S) 54650000 A00075 EQU LCT+00000101 3 BYTE POINTER ON WORD+1 54660000 REGSAVE EQU LCT+00000104 36*FULLWORD INTEGER 54670000 QMGR1 EQU LCT+00000248 9*FULLWORD INTEGER 54680000 QMGR2 EQU LCT+00000284 9*FULLWORD INTEGER 54690000 TRSTKINF EQU LCT+00000320 2*FULLWORD INTEGER 54700000 LCTECBAD EQU LCT+00000328 FULLWORD POINTER 54710000 A00076 EQU LCT+00000328 8 BIT(S) 54720000 A00077 EQU LCT+00000329 3 BYTE POINTER ON WORD+1 54730000 LCTIDENT EQU LCT+00000332 2*FULLWORD INTEGER 54740000 LCTFORCE EQU LCT+00000340 2*FULLWORD INTEGER 54750000 LCTLIMIT EQU LCT+00000348 1 BYTE(S) 54760000 FRCPRTY EQU LCT+00000349 1 BYTE(S) 54770000 INITPRTY EQU LCT+00000350 1 BYTE(S) 54780000 LCTENTR EQU LCT+00000352 FULLWORD POINTER 54790000 LCTOPSW1 EQU LCT+00000352 8 BIT(S) 54800000 LCTPKEYF EQU LCT+00000352 1 BIT(S) 54810000 LCTDWFF EQU LCT+00000352 1 BIT(S) 54820000 LCTSTMDF EQU LCT+00000352 1 BIT(S) 54830000 LCTMINPF EQU LCT+00000352 1 BIT(S) 54840000 LCTCANF EQU LCT+00000352 1 BIT(S) 54850000 LCTONEJF EQU LCT+00000352 1 BIT(S) 54860000 LCTICMDF EQU LCT+00000352 1 BIT(S) 54870000 A00078 EQU LCT+00000352 1 BIT(S) 54880000 A00079 EQU LCT+00000353 3 BYTE POINTER ON WORD+1 54890000 LCTCOM EQU LCT+00000356 FULLWORD POINTER 54900000 LCTOPSW2 EQU LCT+00000356 8 BIT(S) 54910000 LCTTIMEF EQU LCT+00000356 1 BIT(S) 54920000 LCTCRF EQU LCT+00000356 1 BIT(S) 54930000 LCTDSOF EQU LCT+00000356 1 BIT(S) 54940000 LCTINTH0 EQU LCT+00000356 1 BIT(S) 54950000 LCTINTH1 EQU LCT+00000356 1 BIT(S) 54960000 A00080 EQU LCT+00000356 1 BIT(S) 54970000 A00081 EQU LCT+00000356 1 BIT(S) 54980000 A00082 EQU LCT+00000356 1 BIT(S) 54990000 A00083 EQU LCT+00000357 3 BYTE POINTER ON WORD+1 55000000 LCTJSCB EQU LCT+00000360 FULLWORD POINTER 55010000 LCTOPSW3 EQU LCT+00000360 8 BIT(S) 55020000 A00084 EQU LCT+00000360 1 BIT(S) 55030000 A00085 EQU LCT+00000360 1 BIT(S) 55040000 A00086 EQU LCT+00000360 1 BIT(S) 55050000 A00087 EQU LCT+00000360 1 BIT(S) 55060000 A00088 EQU LCT+00000360 1 BIT(S) 55070000 LCTTRSTK EQU LCT+00000360 1 BIT(S) 55080000 A00089 EQU LCT+00000360 1 BIT(S) 55090000 A00090 EQU LCT+00000360 1 BIT(S) 55100000 A00091 EQU LCT+00000361 3 BYTE POINTER ON WORD+1 55110000 A00092 EQU LCT+00000364 4*FULLWORD INTEGER 55120000 LCTWORKA EQU 00000024 FULLWORD INTEGER 55130000 LCTSTIND EQU 00000056 FULLWORD INTEGER 55140000 LCTSMF EQU 00000088 FULLWORD INTEGER 55150000 LCTPIB EQU 00000332 FULLWORD INTEGER 55160000 LCTSPIL EQU 00000336 FULLWORD INTEGER 55170000 LCTECBLT EQU 00000340 FULLWORD INTEGER 55180000 IEZJSCB EQU 00000000 260 BYTE(S) ON WORD 55190000 A00093 EQU IEZJSCB+00000000 240 BYTE(S) 55200000 JSCBSEC1 EQU IEZJSCB+00000240 16 BYTE(S) ON WORD 55210000 JSCBTTTR EQU IEZJSCB+00000240 3 BYTE(S) 55220000 JSCBSWT1 EQU IEZJSCB+00000243 1 BYTE(S) 55230000 JSCBPASS EQU IEZJSCB+00000243 1 BIT(S) 55240000 A00094 EQU IEZJSCB+00000243 1 BIT(S) 55250000 JSCBLONG EQU IEZJSCB+00000243 1 BIT(S) 55260000 A00095 EQU IEZJSCB+00000243 5 BIT(S) 55270000 JSCBQMPI EQU IEZJSCB+00000244 FULLWORD POINTER 55280000 JSCBQMPO EQU IEZJSCB+00000248 FULLWORD POINTER 55290000 JSCBWTP EQU IEZJSCB+00000252 FULLWORD POINTER 55300000 JSCBEND1 EQU IEZJSCB+00000256 FULLWORD INTEGER 55310000 JSCBSEC2 EQU 00000256 12 BYTE(S) ON WORD 55320000 JSCBCSCB EQU JSCBSEC2+00000000 FULLWORD POINTER 55330000 JSCBJCT EQU JSCBSEC2+00000004 4 BYTE(S) 55340000 A00096 EQU JSCBSEC2+00000004 1 BYTE(S) 55350000 JSCBJCTA EQU JSCBSEC2+00000005 3 BYTE(S) 55360000 JSCBEND2 EQU JSCBSEC2+00000008 FULLWORD INTEGER 55370000 JSCBSEC3 EQU 00000256 4 BYTE(S) ON WORD 55380000 JSCBEND3 EQU JSCBSEC3+00000000 FULLWORD INTEGER 55390000 JSCBSEC4 EQU 00000264 4 BYTE(S) ON WORD 55400000 JSCBEND4 EQU JSCBSEC4+00000000 FULLWORD INTEGER 55410000 JSCBSEC5 EQU 00000264 16 BYTE(S) ON WORD 55420000 JSCBPSCB EQU JSCBSEC5+00000000 FULLWORD POINTER 55430000 JSCBTJID EQU JSCBSEC5+00000004 HALFWORD INTEGER 55440000 A00097 EQU JSCBSEC5+00000006 2 BYTE(S) 55450000 JSCBIECB EQU JSCBSEC5+00000008 FULLWORD INTEGER 55460000 JSCBEND5 EQU JSCBSEC5+00000012 FULLWORD INTEGER 55470000 QMPA EQU 00000000 36 BYTE(S) ON WORD 55480000 QMNAM EQU QMPA+00000000 8 BYTE(S) 55490000 QMCAN EQU QMPA+00000000 4 BYTE(S) 55500000 QMPEB EQU QMPA+00000004 4 BYTE(S) 55510000 QMPOP EQU QMPA+00000008 8 BIT(S) 55520000 QMFLT EQU QMPA+00000009 2 BYTE(S) 55530000 QMTST EQU QMPA+00000011 1 BYTE(S) 55540000 QMTLN EQU QMPA+00000012 2 BYTE(S) 55550000 QMNOT EQU QMPA+00000014 1 BYTE(S) 55560000 QMTPY EQU QMPA+00000015 1 BYTE(S) 55570000 QMSTA EQU QMPA+00000016 8 BIT(S) 55580000 QMPRI EQU QMPA+00000017 1 BYTE(S) 55590000 QMLNK EQU QMPA+00000018 2 BYTE(S) 55600000 QMTID EQU QMPA+00000020 2 BYTE(S) 55610000 QMRSD1 EQU QMPA+00000022 2 BYTE(S) 55620000 QMWTQ EQU QMPA+00000024 4 BYTE(S) 55630000 QMEIA EQU QMPA+00000028 4 BYTE(S) 55640000 QMPCL EQU QMPA+00000032 4 BYTE(S) 55650000 QMPCMNC EQU QMPA+00000032 1 BYTE(S) 55660000 QMPCM EQU QMPA+00000032 4 BIT(S) 55670000 QMPNC EQU QMPA+00000032 4 BIT(S) 55680000 QMPACL EQU QMPA+00000033 3 BYTE(S) 55690000 IEL EQU 00000000 24 BYTE(S) ON DWORD 55700000 IELLIST EQU IEL+00000000 24 BYTE(S) ON DWORD 55710000 IELPARM EQU IEL+00000000 FULLWORD POINTER 55720000 IELCSCB EQU IEL+00000004 FULLWORD POINTER 55730000 IELOPLST EQU IEL+00000008 FULLWORD POINTER 55740000 IELQMPA EQU IEL+00000012 FULLWORD POINTER 55750000 IELJCT EQU IEL+00000016 FULLWORD POINTER 55760000 IELEXIT EQU IEL+00000020 FULLWORD POINTER 55770000 IELLAST EQU IEL+00000020 1 BYTE(S) 55780000 IELEND EQU IEL+00000020 1 BIT(S) 55790000 A00098 EQU IEL+00000020 7 BIT(S) 55800000 IELOPTS EQU 00000000 8 BYTE(S) ON DWORD 55810000 IELOPLEN EQU IELOPTS+00000000 HALFWORD INTEGER 55820000 IELOPSW1 EQU IELOPTS+00000002 1 BYTE(S) 55830000 IELPKEYF EQU IELOPTS+00000002 1 BIT(S) 55840000 IELDWFF EQU IELOPTS+00000002 1 BIT(S) 55850000 IELSTMDF EQU IELOPTS+00000002 1 BIT(S) 55860000 IELMINPF EQU IELOPTS+00000002 1 BIT(S) 55870000 IELCANF EQU IELOPTS+00000002 1 BIT(S) 55880000 IELONJF EQU IELOPTS+00000002 1 BIT(S) 55890000 IELICMDF EQU IELOPTS+00000002 1 BIT(S) 55900000 IELWTPF EQU IELOPTS+00000002 1 BIT(S) 55910000 IELOPSW2 EQU IELOPTS+00000003 1 BYTE(S) 55920000 IELTIMEF EQU IELOPTS+00000003 1 BIT(S) 55930000 IELCRF EQU IELOPTS+00000003 1 BIT(S) 55940000 IELDSOF EQU IELOPTS+00000003 1 BIT(S) 55950000 IELINTH0 EQU IELOPTS+00000003 1 BIT(S) 55960000 IELINTH1 EQU IELOPTS+00000003 1 BIT(S) 55970000 IELOTSTK EQU IELOPTS+00000003 1 BIT(S) 55980000 IELONORC EQU IELOPTS+00000003 1 BIT(S) 55990000 IELOENQU EQU IELOPTS+00000003 1 BIT(S) 56000000 IELPKEY EQU IELOPTS+00000004 1 BYTE(S) 56010000 IELOPSW3 EQU IELOPTS+00000005 1 BYTE(S) 56020000 IELONOQW EQU IELOPTS+00000005 1 BIT(S) 56030000 IELCLEAR EQU IELOPTS+00000005 1 BIT(S) 56040000 A00099 EQU IELOPTS+00000005 6 BIT(S) 56050000 A00100 EQU IELOPTS+00000006 2 BYTE(S) 56060000 IELEXITS EQU 00000000 32 BYTE(S) ON DWORD 56070000 IELEXHDR EQU IELEXITS+00000000 8 BYTE(S) ON WORD 56080000 IELXTLEN EQU IELEXITS+00000000 HALFWORD INTEGER 56090000 IELRTNCD EQU IELEXITS+00000002 1 BYTE(S) 56100000 A00101 EQU IELEXITS+00000003 1 BYTE(S) 56110000 IELCOM EQU IELEXITS+00000004 FULLWORD POINTER 56120000 RTNEXT EQU IELEXITS+00000008 8 BYTE(S) ON WORD 56130000 RTNEXLK EQU IELEXITS+00000008 1 BYTE(S) 56140000 RTNEXID EQU IELEXITS+00000009 1 BYTE(S) 56150000 RTNEXNM EQU IELEXITS+00000010 6 BYTE(S) ON WORD+2 56160000 A00102 EQU IELEXITS+00000010 2 BYTE(S) 56170000 RTNEXAD EQU IELEXITS+00000012 FULLWORD POINTER 56180000 PREEXT EQU IELEXITS+00000016 8 BYTE(S) ON WORD 56190000 PREEXLK EQU IELEXITS+00000016 1 BYTE(S) 56200000 PREEXID EQU IELEXITS+00000017 1 BYTE(S) 56210000 PREEXNM EQU IELEXITS+00000018 6 BYTE(S) ON WORD+2 56220000 A00103 EQU IELEXITS+00000018 2 BYTE(S) 56230000 PREEXAD EQU IELEXITS+00000020 FULLWORD POINTER 56240000 PSTEXT EQU IELEXITS+00000024 8 BYTE(S) ON WORD 56250000 PSTEXLK EQU IELEXITS+00000024 1 BYTE(S) 56260000 PSTEXID EQU IELEXITS+00000025 1 BYTE(S) 56270000 PSTEXNM EQU IELEXITS+00000026 6 BYTE(S) ON WORD+2 56280000 A00104 EQU IELEXITS+00000026 2 BYTE(S) 56290000 PSTEXAD EQU IELEXITS+00000028 FULLWORD POINTER 56300000 A00105 EQU IELEXITS+00000028 1 BYTE(S) 56310000 JSWA EQU 00000000 32 BYTE(S) ON DWORD 56320000 JSWALGTH EQU JSWA+00000000 HALFWORD INTEGER 56330000 JSWAOPT EQU JSWA+00000002 8 BIT(S) 56340000 JSWATERM EQU JSWA+00000002 1 BIT(S) 56350000 JSWATRST EQU JSWA+00000002 1 BIT(S) 56360000 JSWAWKFI EQU JSWA+00000002 1 BIT(S) 56370000 A00106 EQU JSWA+00000002 1 BIT(S) 56380000 JSWAPKO EQU JSWA+00000002 1 BIT(S) 56390000 JSWANORC EQU JSWA+00000002 1 BIT(S) 56400000 JSWANOQW EQU JSWA+00000002 1 BIT(S) 56410000 JSWAENQU EQU JSWA+00000002 1 BIT(S) 56420000 JSWASMF EQU JSWA+00000003 8 BIT(S) 56430000 JSWAJSEL EQU JSWA+00000004 FULLWORD POINTER 56440000 JSWAOPT2 EQU JSWA+00000004 8 BIT(S) 56450000 JSWAPSYS EQU JSWA+00000004 1 BIT(S) 56460000 JSWASMS1 EQU JSWA+00000004 1 BIT(S) 56470000 JSWASMS2 EQU JSWA+00000004 1 BIT(S) 56480000 A00107 EQU JSWA+00000004 5 BIT(S) 56490000 JSWAJSE1 EQU JSWA+00000005 3 BYTE POINTER ON WORD+1 56500000 JSWAMOD EQU JSWA+00000008 8 BYTE(S) 56510000 JSWATSTK EQU JSWA+00000016 FULLWORD POINTER 56520000 JSWANTRK EQU JSWA+00000016 1 BYTE POINTER 56530000 JSWATKST EQU JSWA+00000017 3 BYTE POINTER ON WORD+1 56540000 JSWAPKEY EQU JSWA+00000020 1 BYTE POINTER 56550000 JSWATIOT EQU JSWA+00000021 3 BYTE POINTER ON WORD+1 56560000 JSWAXCTL EQU JSWA+00000024 64 BIT(S) 56570000 JSWANEL EQU JSWA+00000024 4 BYTE POINTER 56580000 JSEL EQU 00000000 20 BYTE(S) ON WORD 56590000 JSELOPT EQU JSEL+00000000 FULLWORD POINTER 56600000 JSELJSOL EQU JSEL+00000004 FULLWORD POINTER 56610000 JSELCSCB EQU JSEL+00000008 FULLWORD POINTER 56620000 JSELJCL EQU JSEL+00000012 FULLWORD POINTER 56630000 JSELJSXL EQU JSEL+00000016 FULLWORD POINTER 56640000 JSELEOL EQU JSEL+00000016 1 BIT(S) 56650000 JSXL EQU 00000000 2056 BYTE(S) ON WORD 56660000 JSXLLGTH EQU JSXL+00000000 HALFWORD INTEGER 56670000 JSXLRCOD EQU JSXL+00000002 1 BYTE POINTER 56680000 JSXLRCXT EQU JSXL+00000003 1 BYTE POINTER 56690000 JSXLCOMM EQU JSXL+00000004 FULLWORD POINTER 56700000 JSXLLDEF EQU JSXL+00000008 256*8 BYTE(S) ON WORD 56710000 JSXLLINK EQU JSXL+00000008 1 BYTE POINTER 56720000 JSXLID EQU JSXL+00000009 8 BIT(S) 56730000 JSXPOST EQU JSXL+00000009 1 BIT(S) 56740000 JSXPRINI EQU JSXL+00000009 1 BIT(S) 56750000 JSXPTINI EQU JSXL+00000009 1 BIT(S) 56760000 JSXRDRAM EQU JSXL+00000009 1 BIT(S) 56770000 JSXPTRDR EQU JSXL+00000009 1 BIT(S) 56780000 A00108 EQU JSXL+00000009 3 BIT(S) 56790000 JSXLDATA EQU JSXL+00000010 6 BYTE(S) 56800000 LWA EQU 00000000 268 BYTE(S) ON WORD 56810000 LWAPPTR EQU LWA+00000000 FULLWORD POINTER 56820000 LWATJID EQU LWA+00000004 HALFWORD INTEGER 56830000 A00109 EQU LWA+00000006 HALFWORD INTEGER 56840000 LWAPRCB EQU LWA+00000008 FULLWORD POINTER 56850000 LWAACCT EQU LWA+00000012 FULLWORD POINTER 56860000 LWAPSCB EQU LWA+00000016 FULLWORD POINTER 56870000 LWAJSEL EQU LWA+00000020 FULLWORD POINTER 56880000 LWAPECT EQU LWA+00000024 FULLWORD POINTER 56890000 LWAAECB EQU LWA+00000028 4 BYTE(S) ON WORD 56900000 A00110 EQU LWA+00000028 24 BIT(S) 56910000 LWAABCE EQU LWA+00000031 8 BIT(S) 56920000 LWAPECB EQU LWA+00000032 4 BYTE(S) ON WORD 56930000 A00111 EQU LWA+00000032 24 BIT(S) 56940000 LWAPBCE EQU LWA+00000035 8 BIT(S) 56950000 LWASECB EQU LWA+00000036 4 BYTE(S) ON WORD 56960000 A00112 EQU LWA+00000036 24 BIT(S) 56970000 LWASBCE EQU LWA+00000039 8 BIT(S) 56980000 LWAFLGS EQU LWA+00000040 32 BIT(S) 56990000 A00113 EQU LWA+00000040 8 BIT(S) 57000000 A00114 EQU LWA+00000041 8 BIT(S) 57010000 A00115 EQU LWA+00000042 8 BIT(S) 57020000 A00116 EQU LWA+00000043 8 BIT(S) 57030000 A00117 EQU LWA+00000043 1 BIT(S) 57040000 A00118 EQU LWA+00000043 1 BIT(S) 57050000 A00119 EQU LWA+00000043 1 BIT(S) 57060000 LWALTBC EQU LWA+00000043 1 BIT(S) 57070000 LWATNBT EQU LWA+00000043 1 BIT(S) 57080000 LWASTAY EQU LWA+00000043 1 BIT(S) 57090000 LWAINX1 EQU LWA+00000043 1 BIT(S) 57100000 LWAILGN EQU LWA+00000043 1 BIT(S) 57110000 LWAPTID EQU LWA+00000044 FULLWORD POINTER 57120000 LWACTLS EQU LWA+00000048 32 BIT(S) 57130000 LWAUFAI EQU LWA+00000048 1 BIT(S) 57140000 LWARFAI EQU LWA+00000048 1 BIT(S) 57150000 LWAFAIL EQU LWA+00000048 1 BIT(S) 57160000 LWADISC EQU LWA+00000048 1 BIT(S) 57170000 LWANOPR EQU LWA+00000048 1 BIT(S) 57180000 LWANUAD EQU LWA+00000048 1 BIT(S) 57190000 LWAJJCL EQU LWA+00000048 1 BIT(S) 57200000 LWAPSCA EQU LWA+00000048 1 BIT(S) 57210000 LWAATR1 EQU LWA+00000049 1 BIT(S) 57220000 LWAATR2 EQU LWA+00000049 1 BIT(S) 57230000 LWAUNIT EQU LWA+00000049 1 BIT(S) 57240000 LWABUPT EQU LWA+00000049 1 BIT(S) 57250000 LWANONQ EQU LWA+00000049 1 BIT(S) 57260000 A00120 EQU LWA+00000049 19 BIT(S) 57270000 LWARTCD EQU LWA+00000052 FULLWORD INTEGER 57280000 LWAPROC EQU LWA+00000056 FULLWORD POINTER 57290000 LWAATXR EQU LWA+00000060 FULLWORD POINTER 57300000 LWAMSGR EQU LWA+00000064 FULLWORD POINTER 57310000 LWAPP00 EQU LWA+00000068 FULLWORD POINTER 57320000 LWABLDL EQU LWA+00000072 12 BYTE(S) ON WORD 57330000 LWABLNO EQU LWA+00000072 2 BYTE(S) 57340000 LWABLEN EQU LWA+00000074 2 BYTE(S) 57350000 LWABNAME EQU LWA+00000076 8 BYTE(S) 57360000 LWATTRK EQU LWA+00000084 4 BYTE(S) ON WORD 57370000 LWABLTT EQU LWA+00000084 HALFWORD POINTER 57380000 LWABLR EQU LWA+00000086 1 BYTE POINTER 57390000 LWABLK EQU LWA+00000087 1 BYTE POINTER 57400000 LWABLDZ EQU LWA+00000088 8 BIT(S) 57410000 LWABLDC EQU LWA+00000089 8 BIT(S) 57420000 LWADATA EQU LWA+00000090 42 BYTE(S) 57430000 LWANAME EQU LWA+00000132 8 BYTE(S) ON WORD 57440000 LWARNML EQU LWA+00000132 1 BYTE(S) 57450000 LWARNM EQU LWA+00000133 7 BYTE(S) 57460000 LWAATCH EQU LWA+00000140 52 BYTE(S) ON WORD 57470000 LWAALST EQU LWA+00000140 52 BYTE(S) 57480000 LWANQDQ EQU LWA+00000192 12 BYTE(S) 57490000 LWASLST EQU LWA+00000204 12 BYTE(S) 57500000 LWAPNOT EQU LWA+00000216 FULLWORD POINTER 57510000 LWAPMAL EQU LWA+00000220 FULLWORD POINTER 57520000 LWAELST EQU LWA+00000224 8 BYTE(S) ON WORD 57530000 LWAAECBP EQU LWA+00000224 FULLWORD POINTER 57540000 LWAPECBP EQU LWA+00000228 FULLWORD POINTER 57550000 LWAEOEL EQU LWA+00000228 1 BIT(S) 57560000 LWASARA EQU LWA+00000232 FULLWORD POINTER 57570000 LWARCDE EQU LWA+00000236 FULLWORD INTEGER 57580000 LWASTCK EQU LWA+00000240 4 BYTE(S) ON WORD 57590000 LWABFNO EQU LWA+00000240 1 BYTE(S) 57600000 LWASKAD EQU LWA+00000241 3 BYTE POINTER ON WORD+1 57610000 LWARES6 EQU LWA+00000244 FULLWORD INTEGER 57620000 LWAINST EQU LWA+00000248 16 BYTE(S) ON WORD 57630000 LWARTRY EQU LWA+00000264 FULLWORD POINTER 57640000 CHAIN EQU 00000000 176 BYTE(S) ON WORD 57650000 CHPTR EQU CHAIN+00000000 FULLWORD POINTER 57660000 CHFLG EQU CHAIN+00000004 4 BYTE(S) 57670000 CHVCD EQU CHAIN+00000004 1 BYTE(S) 57680000 CHSZE EQU CHAIN+00000005 1 BYTE POINTER 57690000 CHSTS EQU CHAIN+00000006 1 BYTE(S) 57700000 CHAP EQU CHAIN+00000006 1 BIT(S) 57710000 CHSYS EQU CHAIN+00000006 1 BIT(S) 57720000 CHSOUT EQU CHAIN+00000006 1 BIT(S) 57730000 CHQSPC EQU CHAIN+00000006 1 BIT(S) 57740000 CHAD EQU CHAIN+00000006 1 BIT(S) 57750000 CHDL EQU CHAIN+00000006 1 BIT(S) 57760000 CHFC EQU CHAIN+00000006 1 BIT(S) 57770000 CHABTERM EQU CHAIN+00000006 1 BIT(S) 57780000 CHACT EQU CHAIN+00000007 1 BYTE(S) 57790000 CHSWAP EQU CHAIN+00000007 1 BIT(S) 57800000 CHTERM EQU CHAIN+00000007 1 BIT(S) 57810000 CHDISC EQU CHAIN+00000007 1 BIT(S) 57820000 CHDSI EQU CHAIN+00000007 1 BIT(S) 57830000 CHCL EQU CHAIN+00000007 1 BIT(S) 57840000 CHCLD EQU CHAIN+00000007 1 BIT(S) 57850000 CHAIFX EQU CHAIN+00000007 1 BIT(S) 57860000 CHIFY EQU CHAIN+00000007 1 BIT(S) 57870000 CHKEY EQU CHAIN+00000008 8 BYTE(S) 57880000 CHCLS EQU CHAIN+00000016 8 BYTE(S) 57890000 CHUNIT EQU CHAIN+00000024 3 BYTE(S) 57900000 CHCIBCTR EQU CHAIN+00000027 1 BYTE POINTER 57910000 CHPKE EQU CHAIN+00000028 1 BYTE(S) 57920000 CHUCMP EQU CHAIN+00000029 1 BYTE(S) 57930000 CHTJID EQU CHAIN+00000030 HALFWORD INTEGER 57940000 CHASM EQU CHAIN+00000032 144 BYTE(S) ON WORD 57950000 CHECBP EQU CHAIN+00000032 FULLWORD POINTER 57960000 CHCIBP EQU CHAIN+00000036 FULLWORD POINTER 57970000 CHEND EQU CHAIN+00000036 1 BIT(S) 57980000 A00121 EQU CHAIN+00000036 1 BIT(S) 57990000 A00122 EQU CHAIN+00000036 1 BIT(S) 58000000 A00123 EQU CHAIN+00000036 1 BIT(S) 58010000 A00124 EQU CHAIN+00000036 1 BIT(S) 58020000 A00125 EQU CHAIN+00000036 1 BIT(S) 58030000 A00126 EQU CHAIN+00000036 1 BIT(S) 58040000 A00127 EQU CHAIN+00000036 1 BIT(S) 58050000 CHRPRTY EQU CHAIN+00000040 1 BYTE(S) 58060000 A00128 EQU CHAIN+00000041 3 BYTE POINTER 58070000 A00129 EQU CHAIN+00000044 FULLWORD INTEGER 58080000 CHECB EQU CHAIN+00000048 FULLWORD INTEGER 58090000 CHCECB EQU CHAIN+00000052 FULLWORD INTEGER 58100000 A00130 EQU CHAIN+00000056 2*FULLWORD INTEGER 58110000 CHSHORT EQU CHAIN+00000064 112 BYTE(S) ON WORD 58120000 CHSWT EQU CHAIN+00000064 1 BYTE(S) 58130000 CHRESC EQU CHAIN+00000064 1 BIT(S) 58140000 CHJCT EQU CHAIN+00000064 1 BIT(S) 58150000 CHPSD EQU CHAIN+00000064 1 BIT(S) 58160000 CHPSF EQU CHAIN+00000064 1 BIT(S) 58170000 CHAC EQU CHAIN+00000064 1 BIT(S) 58180000 CHRESB EQU CHAIN+00000064 1 BIT(S) 58190000 A00131 EQU CHAIN+00000064 2 BIT(S) 58200000 CHTCB EQU CHAIN+00000065 3 BYTE POINTER 58210000 CHSPB EQU CHAIN+00000068 FULLWORD POINTER 58220000 CHSPC EQU CHAIN+00000072 FULLWORD POINTER 58230000 CHJCL EQU CHAIN+00000076 FULLWORD POINTER 58240000 CHQPA EQU CHAIN+00000080 9*FULLWORD INTEGER 58250000 CHSQA EQU CHAIN+00000116 9*FULLWORD INTEGER 58260000 CHUSC EQU CHAIN+00000152 FULLWORD INTEGER 58270000 CHJSCB EQU CHAIN+00000156 FULLWORD POINTER 58280000 A00132 EQU CHAIN+00000160 4*FULLWORD INTEGER 58290000 CHAINS01 EQU 00000032 148 BYTE(S) ON WORD 58300000 CHBUF EQU CHAINS01+00000000 124 BYTE(S) 58310000 CHTYPE EQU CHAINS01+00000124 1 BYTE(S) 58320000 CHDSTAT EQU CHAINS01+00000124 1 BIT(S) 58330000 A00133 EQU CHAINS01+00000124 5 BIT(S) 58340000 CHHIAR EQU CHAINS01+00000124 1 BIT(S) 58350000 CHDEF EQU CHAINS01+00000124 1 BIT(S) 58360000 A00134 EQU CHAINS01+00000125 1 BYTE(S) 58370000 CHCNID EQU CHAINS01+00000126 1 BYTE(S) 58380000 CHARID EQU CHAINS01+00000127 1 BYTE(S) 58390000 CHPEND EQU CHAINS01+00000128 FULLWORD POINTER 58400000 CHINC EQU CHAINS01+00000132 HALFWORD INTEGER 58410000 CHCSYSO EQU CHAINS01+00000134 1 BYTE(S) 58420000 CHALL EQU CHAINS01+00000134 1 BIT(S) 58430000 CHINN EQU CHAINS01+00000134 1 BIT(S) 58440000 CHOUT EQU CHAINS01+00000134 1 BIT(S) 58450000 CHHOLD EQU CHAINS01+00000134 1 BIT(S) 58460000 CHQUE EQU CHAINS01+00000134 1 BIT(S) 58470000 CHDUMP EQU CHAINS01+00000134 1 BIT(S) 58480000 CHJB EQU CHAINS01+00000134 1 BIT(S) 58490000 CHRESD EQU CHAINS01+00000134 1 BIT(S) 58500000 CHSPA EQU CHAINS01+00000135 1 BYTE(S) 58510000 A00135 EQU CHAINS01+00000136 8 BYTE(S) 58520000 CHLAST EQU CHAINS01+00000144 4 BYTE INTEGER 58530000 PSCB EQU 00000000 72 BYTE(S) ON WORD 58540000 PSCBUSER EQU PSCB+00000000 7 BYTE(S) ON WORD 58550000 PSCBUSRL EQU PSCB+00000007 1 BYTE POINTER 58560000 PSCBGPNM EQU PSCB+00000008 8 BYTE(S) 58570000 PSCBATR1 EQU PSCB+00000016 2 BYTE(S) 58580000 PSCBCTRL EQU PSCB+00000016 1 BIT(S) 58590000 PSCBACCT EQU PSCB+00000016 1 BIT(S) 58600000 PSCBJCL EQU PSCB+00000016 1 BIT(S) 58610000 A00136 EQU PSCB+00000016 1 BIT(S) 58620000 A00137 EQU PSCB+00000016 1 BIT(S) 58630000 A00138 EQU PSCB+00000016 1 BIT(S) 58640000 A00139 EQU PSCB+00000016 1 BIT(S) 58650000 A00140 EQU PSCB+00000016 1 BIT(S) 58660000 PSCBATR2 EQU PSCB+00000018 2 BYTE(S) 58670000 PSCBCPU EQU PSCB+00000020 FULLWORD INTEGER 58680000 PSCBSWP EQU PSCB+00000024 FULLWORD INTEGER 58690000 PSCBLTIM EQU PSCB+00000028 FULLWORD INTEGER 58700000 PSCBTCPU EQU PSCB+00000032 FULLWORD INTEGER 58710000 PSCBTSWP EQU PSCB+00000036 FULLWORD INTEGER 58720000 PSCBTCON EQU PSCB+00000040 FULLWORD INTEGER 58730000 PSCBTCO1 EQU PSCB+00000044 FULLWORD INTEGER 58740000 PSCBRLGB EQU PSCB+00000048 FULLWORD POINTER 58750000 PSCBUPT EQU PSCB+00000052 FULLWORD POINTER 58760000 PSCBUPTL EQU PSCB+00000056 HALFWORD INTEGER 58770000 A00141 EQU PSCB+00000058 16 BIT(S) 58780000 PSCBRSZ EQU PSCB+00000060 FULLWORD POINTER 58790000 PSCBU EQU PSCB+00000064 8 BYTE(S) 58800000 UPT EQU 00000000 16 BYTE(S) ON WORD 58810000 A00142 EQU UPT+00000000 2 BYTE(S) ON WORD 58820000 UPTUSER EQU UPT+00000002 10 BYTE(S) 58830000 UPTSWS EQU UPT+00000012 1 BYTE(S) 58840000 A00143 EQU UPT+00000012 1 BIT(S) 58850000 UPTNPRM EQU UPT+00000012 1 BIT(S) 58860000 UPTMID EQU UPT+00000012 1 BIT(S) 58870000 UPTNCOM EQU UPT+00000012 1 BIT(S) 58880000 UPTPAUS EQU UPT+00000012 1 BIT(S) 58890000 UPTALD EQU UPT+00000012 1 BIT(S) 58900000 A00144 EQU UPT+00000012 1 BIT(S) 58910000 A00145 EQU UPT+00000012 1 BIT(S) 58920000 UPTCDEL EQU UPT+00000013 1 BYTE(S) 58930000 UPTLDEL EQU UPT+00000014 1 BYTE(S) 58940000 A00146 EQU UPT+00000015 1 BYTE(S) 58950000 RCB EQU 00000000 72 BYTE(S) ON WORD 58960000 RCBRCT EQU RCB+00000000 FULLWORD POINTER 58970000 RCBECB EQU RCB+00000004 FULLWORD INTEGER 58980000 RCBDIECB EQU RCB+00000008 FULLWORD INTEGER 58990000 RCBTJID EQU RCB+00000012 HALFWORD INTEGER 59000000 RCBRSIZE EQU RCB+00000014 HALFWORD INTEGER 59010000 RCBLSQSZ EQU RCB+00000016 HALFWORD INTEGER 59020000 RCBNMBR EQU RCB+00000018 1 BYTE(S) 59030000 RCBPKEY EQU RCB+00000019 1 BYTE(S) 59040000 RCBUMSMN EQU RCB+00000020 1 BYTE(S) 59050000 RCBFLG EQU RCB+00000021 1 BYTE(S) 59060000 RCBFQU EQU RCB+00000021 1 BIT(S) 59070000 RCBFSO EQU RCB+00000021 1 BIT(S) 59080000 RCBFSI EQU RCB+00000021 1 BIT(S) 59090000 RCBFRS EQU RCB+00000021 1 BIT(S) 59100000 RCBOCAB EQU RCB+00000021 1 BIT(S) 59110000 RCBSTR3 EQU RCB+00000021 1 BIT(S) 59120000 RCBFAT EQU RCB+00000021 1 BIT(S) 59130000 RCBFND EQU RCB+00000021 1 BIT(S) 59140000 RCBFLG2 EQU RCB+00000022 1 BYTE(S) 59150000 RCBFSE EQU RCB+00000022 1 BIT(S) 59160000 RCBSTOP EQU RCB+00000022 1 BIT(S) 59170000 RCBACTV EQU RCB+00000022 1 BIT(S) 59180000 RCBSTR1 EQU RCB+00000022 1 BIT(S) 59190000 RCBSTR2 EQU RCB+00000022 1 BIT(S) 59200000 RCBDEAD EQU RCB+00000022 1 BIT(S) 59210000 RCBLOGPR EQU RCB+00000022 1 BIT(S) 59220000 RCBMODFY EQU RCB+00000022 1 BIT(S) 59230000 RCBFBQE EQU RCB+00000023 1 BYTE(S) 59240000 RCBUTTMQ EQU RCB+00000024 HALFWORD INTEGER 59250000 RCBCUSE EQU RCB+00000026 HALFWORD INTEGER 59260000 RCBEXTNT EQU RCB+00000028 FULLWORD POINTER 59270000 RCBUMSM EQU RCB+00000032 FULLWORD POINTER 59280000 RCBSDCB EQU RCB+00000036 FULLWORD POINTER 59290000 RCBPQE EQU RCB+00000040 FULLWORD POINTER 59300000 RCBPRG EQU RCB+00000044 12 BYTE(S) 59310000 RCBQPL EQU RCB+00000056 FULLWORD POINTER 59320000 RCBSTECB EQU RCB+00000060 FULLWORD INTEGER 59330000 RCBRCOVR EQU RCB+00000064 1 BYTE(S) 59340000 RCBRSFLG EQU RCB+00000065 1 BYTE(S) 59350000 RCBRSTRT EQU RCB+00000065 1 BIT(S) 59360000 RCBTCBDN EQU RCB+00000065 1 BIT(S) 59370000 RCBQELCM EQU RCB+00000065 1 BIT(S) 59380000 RCBTQECM EQU RCB+00000065 1 BIT(S) 59390000 RCBRQIQC EQU RCB+00000065 1 BIT(S) 59400000 A00147 EQU RCB+00000065 1 BIT(S) 59410000 RCBIORSC EQU RCB+00000065 1 BIT(S) 59420000 RCBWTORC EQU RCB+00000065 1 BIT(S) 59430000 RCBTACMP EQU RCB+00000065 1 BIT(S) 59440000 RCBQUFLG EQU RCB+00000066 1 BYTE(S) 59450000 RCBQUSTR EQU RCB+00000066 1 BIT(S) 59460000 RCBIOSTR EQU RCB+00000066 1 BIT(S) 59470000 RCBTADON EQU RCB+00000066 1 BIT(S) 59480000 RCBWTORD EQU RCB+00000066 1 BIT(S) 59490000 RCBQELDN EQU RCB+00000066 1 BIT(S) 59500000 RCBIODON EQU RCB+00000066 1 BIT(S) 59510000 RCBTQEDN EQU RCB+00000066 1 BIT(S) 59520000 RCBRQIQD EQU RCB+00000066 1 BIT(S) 59530000 RCBSWTCH EQU RCB+00000067 1 BYTE(S) 59540000 A00148 EQU RCB+00000067 1 BIT(S) 59550000 RCBSWTON EQU RCB+00000067 1 BIT(S) 59560000 RCBEXTRN EQU RCB+00000067 1 BIT(S) 59570000 RCBRMSAL EQU RCB+00000067 1 BIT(S) 59580000 RCBRMS1U EQU RCB+00000067 1 BIT(S) 59590000 A00149 EQU RCB+00000067 1 BIT(S) 59600000 A00150 EQU RCB+00000067 1 BIT(S) 59610000 A00151 EQU RCB+00000067 1 BIT(S) 59620000 RCBCONID EQU RCB+00000068 1 BYTE(S) 59630000 RCBSTAEN EQU RCB+00000069 1 BYTE(S) 59640000 A00152 EQU RCB+00000070 2 BYTE(S) 59650000 TJBX EQU 00000000 72 BYTE(S) ON WORD 59660000 TJBXFST EQU TJBX+00000000 FULLWORD POINTER 59670000 TJBXLAST EQU TJBX+00000004 FULLWORD POINTER 59680000 TJBXDSE EQU TJBX+00000008 FULLWORD POINTER 59690000 TJBXSVRB EQU TJBX+00000012 FULLWORD POINTER 59700000 TJBXRQE EQU TJBX+00000016 FULLWORD POINTER 59710000 TJBXIQE EQU TJBX+00000020 FULLWORD POINTER 59720000 TJBXTAXE EQU TJBX+00000024 FULLWORD INTEGER 59730000 TJBXLECB EQU TJBX+00000028 FULLWORD INTEGER 59740000 TJBXPSWD EQU TJBX+00000032 8 BYTE(S) 59750000 A00153 EQU TJBX+00000040 FULLWORD INTEGER 59760000 TJBXAIQE EQU TJBX+00000044 FULLWORD POINTER 59770000 TJBXQPL EQU TJBX+00000048 FULLWORD POINTER 59780000 TJBXNQPE EQU TJBX+00000052 HALFWORD INTEGER 59790000 TJBXNTCB EQU TJBX+00000054 HALFWORD INTEGER 59800000 TJBXLQPL EQU TJBX+00000056 HALFWORD INTEGER 59810000 TJBXHBFL EQU TJBX+00000058 1 BYTE(S) 59820000 A00154 EQU TJBX+00000059 1 BYTE(S) 59830000 TJBXACT EQU TJBX+00000060 FULLWORD INTEGER 59840000 TJBXAECB EQU TJBX+00000064 FULLWORD POINTER 59850000 TJBXKEYA EQU TJBX+00000068 FULLWORD POINTER 59860000 DSE EQU 00000000 76 BYTE(S) ON WORD 59870000 DSEFORWD EQU DSE+00000000 FULLWORD POINTER 59880000 DSEBCKWD EQU DSE+00000004 FULLWORD POINTER 59890000 DSEBLKSZ EQU DSE+00000008 HALFWORD INTEGER 59900000 DSESTAT EQU DSE+00000010 1 BYTE(S) 59910000 A00155 EQU DSE+00000010 1 BIT(S) 59920000 A00156 EQU DSE+00000010 1 BIT(S) 59930000 A00157 EQU DSE+00000010 1 BIT(S) 59940000 A00158 EQU DSE+00000010 1 BIT(S) 59950000 DSESHR EQU DSE+00000010 1 BIT(S) 59960000 DSENEW EQU DSE+00000010 1 BIT(S) 59970000 DSEMOD EQU DSE+00000010 1 BIT(S) 59980000 DSEOLD EQU DSE+00000010 1 BIT(S) 59990000 DSECNTRL EQU DSE+00000011 1 BYTE(S) 60000000 DSEDYN EQU DSE+00000011 1 BIT(S) 60010000 DSENUSED EQU DSE+00000011 1 BIT(S) 60020000 DSEMEM EQU DSE+00000011 1 BIT(S) 60030000 DSEDTIOT EQU DSE+00000011 1 BIT(S) 60040000 DSECON EQU DSE+00000011 1 BIT(S) 60050000 A00159 EQU DSE+00000011 1 BIT(S) 60060000 DSEPERM EQU DSE+00000011 1 BIT(S) 60070000 A00160 EQU DSE+00000011 1 BIT(S) 60080000 DSEDDNAM EQU DSE+00000012 8 BYTE(S) 60090000 DSETCBAD EQU DSE+00000020 FULLWORD POINTER 60100000 DSETTRPW EQU DSE+00000024 FULLWORD INTEGER 60110000 DSENDISP EQU DSE+00000028 1 BYTE(S) 60120000 A00161 EQU DSE+00000028 1 BIT(S) 60130000 A00162 EQU DSE+00000028 1 BIT(S) 60140000 A00163 EQU DSE+00000028 1 BIT(S) 60150000 A00164 EQU DSE+00000028 1 BIT(S) 60160000 DSEKEP EQU DSE+00000028 1 BIT(S) 60170000 DSEDEL EQU DSE+00000028 1 BIT(S) 60180000 DSECAT EQU DSE+00000028 1 BIT(S) 60190000 DSEUCAT EQU DSE+00000028 1 BIT(S) 60200000 DSEADISP EQU DSE+00000029 1 BYTE(S) 60210000 A00165 EQU DSE+00000029 1 BIT(S) 60220000 A00166 EQU DSE+00000029 1 BIT(S) 60230000 A00167 EQU DSE+00000029 1 BIT(S) 60240000 A00168 EQU DSE+00000029 1 BIT(S) 60250000 DSEAKEP EQU DSE+00000029 1 BIT(S) 60260000 DSEADEL EQU DSE+00000029 1 BIT(S) 60270000 DSEACAT EQU DSE+00000029 1 BIT(S) 60280000 DSEAUCAT EQU DSE+00000029 1 BIT(S) 60290000 DSEDSORG EQU DSE+00000030 1 BYTE(S) 60300000 DSEIS EQU DSE+00000030 1 BIT(S) 60310000 DSEPS EQU DSE+00000030 1 BIT(S) 60320000 DSEDA EQU DSE+00000030 1 BIT(S) 60330000 A00169 EQU DSE+00000030 1 BIT(S) 60340000 A00170 EQU DSE+00000030 1 BIT(S) 60350000 A00171 EQU DSE+00000030 1 BIT(S) 60360000 DSEPO EQU DSE+00000030 1 BIT(S) 60370000 DSEU EQU DSE+00000030 1 BIT(S) 60380000 DSEDSLNG EQU DSE+00000031 1 BYTE POINTER 60390000 DSEDSNAM EQU DSE+00000032 44 BYTE(S) 60400000 DSEMEMBR EQU 00000000 8 BYTE(S) 60410000 TIOT1 EQU 00000000 24 BYTE(S) ON WORD 60420000 TIOCNJOB EQU TIOT1+00000000 8 BYTE(S) 60430000 TIOCSTEP EQU TIOT1+00000008 16 BYTE(S) 60440000 TIOENTRY EQU 00000024 40 BYTE(S) ON WORD 60450000 TIOELNGH EQU TIOENTRY+00000000 1 BYTE POINTER 60460000 TIOESTTA EQU TIOENTRY+00000001 8 BIT(S) 60470000 TIOSLTYP EQU TIOENTRY+00000001 1 BIT(S) 60480000 TIOSPLTP EQU TIOENTRY+00000001 1 BIT(S) 60490000 TIOSPLTS EQU TIOENTRY+00000001 1 BIT(S) 60500000 TIOSJBLB EQU TIOENTRY+00000001 1 BIT(S) 60510000 TIOSDADS EQU TIOENTRY+00000001 1 BIT(S) 60520000 TIOSLABL EQU TIOENTRY+00000001 1 BIT(S) 60530000 TIOSDSP1 EQU TIOENTRY+00000001 1 BIT(S) 60540000 TIOSDSP2 EQU TIOENTRY+00000001 1 BIT(S) 60550000 TIOERLOC EQU TIOENTRY+00000002 2 BYTE(S) 60560000 TIOEWTCT EQU TIOENTRY+00000002 1 BYTE(S) 60570000 TIOELINK EQU TIOENTRY+00000003 1 BYTE(S) 60580000 TIOSYOUT EQU TIOENTRY+00000003 1 BIT(S) 60590000 TIOTOPEN EQU TIOENTRY+00000003 1 BIT(S) 60600000 TIOTTERM EQU TIOENTRY+00000003 1 BIT(S) 60610000 TIOEDYNM EQU TIOENTRY+00000003 1 BIT(S) 60620000 TIOEQNAM EQU TIOENTRY+00000003 1 BIT(S) 60630000 A00172 EQU TIOENTRY+00000003 3 BIT(S) 60640000 TIOEDDNM EQU TIOENTRY+00000004 8 BYTE(S) 60650000 TIOEJFCB EQU TIOENTRY+00000012 3 BYTE(S) 60660000 TIOESTTC EQU TIOENTRY+00000015 8 BIT(S) 60670000 TIOSDKCR EQU TIOENTRY+00000015 1 BIT(S) 60680000 TIOSDEFR EQU TIOENTRY+00000015 1 BIT(S) 60690000 TIOSAFFP EQU TIOENTRY+00000015 1 BIT(S) 60700000 TIOSAFFS EQU TIOENTRY+00000015 1 BIT(S) 60710000 TIOSVOLP EQU TIOENTRY+00000015 1 BIT(S) 60720000 TIOSVOLS EQU TIOENTRY+00000015 1 BIT(S) 60730000 TIOSBALP EQU TIOENTRY+00000015 1 BIT(S) 60740000 TIOSBALS EQU TIOENTRY+00000015 1 BIT(S) 60750000 TIOESTTB EQU TIOENTRY+00000016 8 BIT(S) 60760000 TIOSUSED EQU TIOENTRY+00000016 1 BIT(S) 60770000 TIOSREQD EQU TIOENTRY+00000016 1 BIT(S) 60780000 TIOSPVIO EQU TIOENTRY+00000016 1 BIT(S) 60790000 TIOSVLSR EQU TIOENTRY+00000016 1 BIT(S) 60800000 TIOSSETU EQU TIOENTRY+00000016 1 BIT(S) 60810000 TIOSMNTD EQU TIOENTRY+00000016 1 BIT(S) 60820000 TIOSUNLD EQU TIOENTRY+00000016 1 BIT(S) 60830000 TIOSVERF EQU TIOENTRY+00000016 1 BIT(S) 60840000 TIOEFSRT EQU TIOENTRY+00000017 3 BYTE POINTER ON WORD+1 60850000 POOLSTAR EQU TIOENTRY+00000020 20 BYTE(S) ON WORD 60860000 A00173 EQU TIOENTRY+00000020 1 BYTE(S) 60870000 TIOPNSLT EQU TIOENTRY+00000021 1 BYTE POINTER 60880000 A00174 EQU TIOENTRY+00000022 1 BYTE(S) 60890000 TIOPNSRT EQU TIOENTRY+00000023 1 BYTE POINTER 60900000 TIOPPOOL EQU TIOENTRY+00000024 8 BYTE(S) 60910000 TIOPSTTB EQU TIOENTRY+00000032 1 BYTE(S) 60920000 TIOPSLOT EQU TIOENTRY+00000033 3 BYTE POINTER ON WORD+1 60930000 TIOTFEND EQU TIOENTRY+00000036 4 BYTE(S) 60940000 UCBOB EQU 00000000 28 BYTE(S) ON WORD 60950000 UCBJBNR EQU UCBOB+00000000 1 BYTE(S) 60960000 UCBKEY EQU UCBOB+00000000 4 BIT(S) 60970000 A00175 EQU UCBOB+00000000 1 BIT(S) 60980000 A00176 EQU UCBOB+00000000 1 BIT(S) 60990000 UCBDEM EQU UCBOB+00000000 1 BIT(S) 61000000 UCBMONT EQU UCBOB+00000000 1 BIT(S) 61010000 UCBFL5 EQU UCBOB+00000001 1 BYTE(S) 61020000 A00177 EQU UCBOB+00000001 2 BIT(S) 61030000 UCBTICBT EQU UCBOB+00000001 1 BIT(S) 61040000 UCBVSDR EQU UCBOB+00000001 1 BIT(S) 61050000 UCBEXTSN EQU UCBOB+00000001 1 BIT(S) 61060000 UCBNALOC EQU UCBOB+00000001 1 BIT(S) 61070000 UCBALTCU EQU UCBOB+00000001 1 BIT(S) 61080000 UCBALTPH EQU UCBOB+00000001 1 BIT(S) 61090000 UCBID EQU UCBOB+00000002 1 BYTE(S) 61100000 UCBSTAT EQU UCBOB+00000003 1 BYTE(S) 61110000 UCBONLI EQU UCBOB+00000003 1 BIT(S) 61120000 UCBCHGS EQU UCBOB+00000003 1 BIT(S) 61130000 UCBRESV EQU UCBOB+00000003 1 BIT(S) 61140000 UCBUNLD EQU UCBOB+00000003 1 BIT(S) 61150000 UCBALOC EQU UCBOB+00000003 1 BIT(S) 61160000 UCBPRES EQU UCBOB+00000003 1 BIT(S) 61170000 UCBSYSR EQU UCBOB+00000003 1 BIT(S) 61180000 UCBDADI EQU UCBOB+00000003 1 BIT(S) 61190000 UCBCHA EQU UCBOB+00000004 1 BYTE(S) 61200000 UCBHIO EQU UCBOB+00000004 1 BIT(S) 61210000 UCBMOD EQU UCBOB+00000004 1 BIT(S) 61220000 UCBDSNS EQU UCBOB+00000004 1 BIT(S) 61230000 UCBDHIO EQU UCBOB+00000004 1 BIT(S) 61240000 UCBCHANA EQU UCBOB+00000004 4 BIT(S) 61250000 UCBUA EQU UCBOB+00000005 1 BYTE POINTER 61260000 UCBFL1 EQU UCBOB+00000006 1 BYTE(S) 61270000 UCBBUSYD EQU UCBOB+00000006 1 BIT(S) 61280000 UCBNOTRD EQU UCBOB+00000006 1 BIT(S) 61290000 UCBUSING EQU UCBOB+00000006 1 BIT(S) 61300000 UCBINTER EQU UCBOB+00000006 1 BIT(S) 61310000 UCBNOTRC EQU UCBOB+00000006 1 BIT(S) 61320000 UCBSTS EQU UCBOB+00000006 2 BIT(S) 61330000 UCBERR EQU UCBOB+00000006 1 BIT(S) 61340000 UCBDTI EQU UCBOB+00000007 1 BYTE POINTER 61350000 UCBETI EQU UCBOB+00000008 1 BYTE POINTER 61360000 UCBSTI EQU UCBOB+00000009 1 BYTE POINTER 61370000 UCBLCI EQU UCBOB+00000010 1 BYTE POINTER 61380000 UCBATI EQU UCBOB+00000011 1 BYTE POINTER 61390000 UCBWGT EQU UCBOB+00000012 1 BYTE(S) 61400000 UCBIN EQU UCBOB+00000012 1 BIT(S) 61410000 UCBOUT EQU UCBOB+00000012 1 BIT(S) 61420000 UCBPUB EQU UCBOB+00000012 1 BIT(S) 61430000 UCBREW EQU UCBOB+00000012 1 BIT(S) 61440000 UCBPATH EQU UCBOB+00000012 4 BIT(S) 61450000 UCBPATH0 EQU UCBOB+00000012 1 BIT(S) 61460000 UCBPATH1 EQU UCBOB+00000012 1 BIT(S) 61470000 UCBPATH2 EQU UCBOB+00000012 1 BIT(S) 61480000 UCBPATH3 EQU UCBOB+00000012 1 BIT(S) 61490000 UCBNAME EQU UCBOB+00000013 3 BYTE(S) 61500000 UCBTYP EQU UCBOB+00000016 4 BYTE(S) 61510000 UCBTBYT1 EQU UCBOB+00000016 1 BYTE(S) 61520000 UCB1FEA0 EQU UCBOB+00000016 1 BIT(S) 61530000 UCB1FEA1 EQU UCBOB+00000016 1 BIT(S) 61540000 UCB1FEA2 EQU UCBOB+00000016 1 BIT(S) 61550000 UCB1FEA3 EQU UCBOB+00000016 1 BIT(S) 61560000 UCB1FEA4 EQU UCBOB+00000016 1 BIT(S) 61570000 UCB1FEA5 EQU UCBOB+00000016 1 BIT(S) 61580000 UCB1FEA6 EQU UCBOB+00000016 1 BIT(S) 61590000 UCB1FEA7 EQU UCBOB+00000016 1 BIT(S) 61600000 UCBTBYT2 EQU UCBOB+00000017 1 BYTE(S) 61610000 UCB2OPT0 EQU UCBOB+00000017 1 BIT(S) 61620000 UCB2OPT1 EQU UCBOB+00000017 1 BIT(S) 61630000 UCB2OPT2 EQU UCBOB+00000017 1 BIT(S) 61640000 UCB2OPT3 EQU UCBOB+00000017 1 BIT(S) 61650000 UCB2OPT4 EQU UCBOB+00000017 1 BIT(S) 61660000 UCB2OPT5 EQU UCBOB+00000017 1 BIT(S) 61670000 UCB2OPT6 EQU UCBOB+00000017 1 BIT(S) 61680000 UCB2OPT7 EQU UCBOB+00000017 1 BIT(S) 61690000 UCBTBYT3 EQU UCBOB+00000018 1 BYTE(S) 61700000 UCB3TAPE EQU UCBOB+00000018 1 BIT(S) 61710000 UCB3COMM EQU UCBOB+00000018 1 BIT(S) 61720000 UCB3DACC EQU UCBOB+00000018 1 BIT(S) 61730000 UCB3DISP EQU UCBOB+00000018 1 BIT(S) 61740000 UCB3UREC EQU UCBOB+00000018 1 BIT(S) 61750000 UCB3CHAR EQU UCBOB+00000018 1 BIT(S) 61760000 A00178 EQU UCBOB+00000018 1 BIT(S) 61770000 A00179 EQU UCBOB+00000018 1 BIT(S) 61780000 UCBTBYT4 EQU UCBOB+00000019 1 BYTE(S) 61790000 UCBLTS EQU UCBOB+00000020 2 BYTE(S) 61800000 UCBSNS EQU UCBOB+00000022 2 BYTE(S) 61810000 UCBDEV EQU UCBOB+00000024 4 BYTE INTEGER 61820000 UCBOBS01 EQU 00000024 40 BYTE(S) ON WORD 61830000 UCBSENSE EQU UCBOBS01+00000000 4 BYTE(S) ON WORD 61840000 UCBSENSB EQU UCBOBS01+00000000 FULLWORD POINTER 61850000 UCBSENSN EQU UCBOBS01+00000000 1 BYTE POINTER 61860000 UCBSENSA EQU UCBOBS01+00000001 3 BYTE POINTER ON WORD+1 61870000 UCBVOLI EQU UCBOBS01+00000004 6 BYTE(S) 61880000 UCBSTAB EQU UCBOBS01+00000010 1 BYTE(S) 61890000 UCBBSVL EQU UCBOBS01+00000010 1 BIT(S) 61900000 UCBBVSC EQU UCBOBS01+00000010 1 BIT(S) 61910000 UCBPRSRS EQU UCBOBS01+00000010 1 BIT(S) 61920000 UCBBALB EQU UCBOBS01+00000010 1 BIT(S) 61930000 UCBBPRV EQU UCBOBS01+00000010 1 BIT(S) 61940000 UCBBPUB EQU UCBOBS01+00000010 1 BIT(S) 61950000 UCBBSTR EQU UCBOBS01+00000010 1 BIT(S) 61960000 UCBBJLB EQU UCBOBS01+00000010 1 BIT(S) 61970000 UCBBNUL EQU UCBOBS01+00000010 1 BIT(S) 61980000 UCBDMCT EQU UCBOBS01+00000011 1 BYTE(S) 61990000 UCBMOUNT EQU UCBOBS01+00000011 1 BIT(S) 62000000 UCBDMC EQU UCBOBS01+00000011 7 BIT(S) 62010000 UCBVTOC EQU UCBOBS01+00000012 4 BYTE(S) ON WORD 62020000 UCBFSCT EQU UCBOBS01+00000012 HALFWORD INTEGER 62030000 UCBFSEQ EQU UCBOBS01+00000014 HALFWORD INTEGER 62040000 UCBFSER EQU UCBOBS01+00000016 8 BYTE(S) ON WORD 62050000 UCBSQC EQU UCBOBS01+00000016 1 BYTE POINTER 62060000 UCBDVRES EQU UCBOBS01+00000017 1 BYTE POINTER 62070000 UCBRQESV EQU UCBOBS01+00000018 HALFWORD INTEGER 62080000 UCBORSVA EQU UCBOBS01+00000020 FULLWORD POINTER 62090000 UCBFL4 EQU UCBOBS01+00000020 1 BYTE(S) 62100000 UCBDAV EQU UCBOBS01+00000020 5 BIT(S) 62110000 UCBMNT EQU UCBOBS01+00000020 1 BIT(S) 62120000 UCBVVRTN EQU UCBOBS01+00000020 1 BIT(S) 62130000 UCBFT EQU UCBOBS01+00000020 1 BIT(S) 62140000 UCBTCC EQU UCBOBS01+00000020 1 BIT(S) 62150000 UCBVER EQU UCBOBS01+00000020 1 BIT(S) 62160000 UCBORCNT EQU UCBOBS01+00000020 3 BIT(S) 62170000 UCBORSVB EQU UCBOBS01+00000021 3 BYTE POINTER 62180000 UCBSKA EQU UCBOBS01+00000024 8 BYTE(S) ON WORD 62190000 UCBXTN EQU UCBOBS01+00000024 FULLWORD POINTER 62200000 UCBVOPT EQU UCBOBS01+00000024 1 BYTE(S) 62210000 UCBESV EQU UCBOBS01+00000024 1 BIT(S) 62220000 UCBEVA EQU UCBOBS01+00000024 1 BIT(S) 62230000 UCBESVC EQU UCBOBS01+00000024 1 BIT(S) 62240000 UCBERPC EQU UCBOBS01+00000024 1 BIT(S) 62250000 UCBESVE EQU UCBOBS01+00000024 1 BIT(S) 62260000 A00180 EQU UCBOBS01+00000024 1 BIT(S) 62270000 A00181 EQU UCBOBS01+00000024 1 BIT(S) 62280000 UCBASMDE EQU UCBOBS01+00000024 1 BIT(S) 62290000 UCBXTNB EQU UCBOBS01+00000025 3 BYTE POINTER 62300000 A00182 EQU UCBOBS01+00000028 4 BYTE(S) 62310000 UCBECBB EQU UCBOBS01+00000032 FULLWORD POINTER 62320000 UCBUSER EQU UCBOBS01+00000032 1 BYTE POINTER 62330000 UCBECBA EQU UCBOBS01+00000033 3 BYTE POINTER 62340000 UCBEXT EQU UCBOBS01+00000036 FULLWORD POINTER 62350000 UCBWKADB EQU UCBOBS01+00000036 FULLWORD POINTER 62360000 UCBOBS02 EQU 00000024 196 BYTE(S) ON WORD 62370000 UCBSEN EQU UCBOBS02+00000000 4 BYTE(S) 62380000 UCBERPA EQU UCBOBS02+00000004 12 BYTE(S) 62390000 UCBDASD EQU UCBOBS02+00000016 16 BYTE(S) 62400000 UCBCELLS EQU UCBOBS02+00000032 160 BYTE(S) 62410000 UCBCELL0 EQU UCBOBS02+00000032 16 BYTE(S) 62420000 UCBCELL1 EQU UCBOBS02+00000048 16 BYTE(S) 62430000 UCBCELL2 EQU UCBOBS02+00000064 16 BYTE(S) 62440000 UCBCELL3 EQU UCBOBS02+00000080 16 BYTE(S) 62450000 UCBCELL4 EQU UCBOBS02+00000096 16 BYTE(S) 62460000 UCBCELL5 EQU UCBOBS02+00000112 16 BYTE(S) 62470000 UCBCELL6 EQU UCBOBS02+00000128 16 BYTE(S) 62480000 UCBCELL7 EQU UCBOBS02+00000144 16 BYTE(S) 62490000 UCBCELL8 EQU UCBOBS02+00000160 16 BYTE(S) 62500000 UCBCELL9 EQU UCBOBS02+00000176 16 BYTE(S) 62510000 UCBDC EQU UCBOBS02+00000192 FULLWORD POINTER 62520000 UCBWKADA EQU UCBOBS02+00000192 FULLWORD POINTER 62530000 UCBOBS03 EQU 00000024 8 BYTE(S) ON WORD 62540000 UCBNBRSN EQU UCBOBS03+00000000 1 BYTE POINTER 62550000 UCBSNADR EQU UCBOBS03+00000001 3 BYTE POINTER ON WORD+1 62560000 UCBXTADR EQU UCBOBS03+00000004 FULLWORD POINTER 62570000 UCBOBS04 EQU 00000024 16 BYTE(S) ON WORD 62580000 UCBSENS EQU UCBOBS04+00000000 2 BYTE(S) 62590000 UCBOPEN EQU UCBOBS04+00000002 1 BYTE POINTER 62600000 UCBGCB EQU UCBOBS04+00000003 1 BYTE(S) 62610000 UCBTEB EQU UCBOBS04+00000004 FULLWORD POINTER 62620000 UCBSTART EQU UCBOBS04+00000008 FULLWORD POINTER 62630000 UCBBTA EQU UCBOBS04+00000012 FULLWORD POINTER 62640000 UCBDI EQU UCBOBS04+00000012 1 BYTE POINTER 62650000 UCBBTB EQU UCBOBS04+00000013 3 BYTE POINTER 62660000 UCBOBS05 EQU 00000024 4 BYTE(S) ON WORD 62670000 UCBCRWKA EQU UCBOBS05+00000000 FULLWORD POINTER 62680000 UCBOBS06 EQU 00000056 FULLWORD INTEGER 62690000 UCBDCLL EQU 00000000 16 BYTE(S) ON WORD 62700000 UCBDCELL EQU UCBDCLL+00000000 16 BYTE(S) ON WORD 62710000 UCBDBBNR EQU UCBDCLL+00000000 HALFWORD INTEGER 62720000 UCBDSTAB EQU UCBDCLL+00000002 1 BYTE(S) 62730000 UCBDBSVL EQU UCBDCLL+00000002 1 BIT(S) 62740000 A00183 EQU UCBDCLL+00000002 1 BIT(S) 62750000 UCBDBPRS EQU UCBDCLL+00000002 1 BIT(S) 62760000 UCBDBPRV EQU UCBDCLL+00000002 1 BIT(S) 62770000 UCBDBPUB EQU UCBDCLL+00000002 1 BIT(S) 62780000 UCBDBSTR EQU UCBDCLL+00000002 1 BIT(S) 62790000 UCBDBJLB EQU UCBDCLL+00000002 1 BIT(S) 62800000 UCBDBNUL EQU UCBDCLL+00000002 1 BIT(S) 62810000 UCBDSTAT EQU UCBDCLL+00000003 1 BYTE(S) 62820000 UCBDNORM EQU UCBDCLL+00000003 1 BIT(S) 62830000 A00184 EQU UCBDCLL+00000003 1 BIT(S) 62840000 UCBDRESV EQU UCBDCLL+00000003 1 BIT(S) 62850000 UCBDUNLD EQU UCBDCLL+00000003 1 BIT(S) 62860000 UCBDALOC EQU UCBDCLL+00000003 1 BIT(S) 62870000 UCBDPRES EQU UCBDCLL+00000003 1 BIT(S) 62880000 A00185 EQU UCBDCLL+00000003 1 BIT(S) 62890000 A00186 EQU UCBDCLL+00000003 1 BIT(S) 62900000 UCBDVOLI EQU UCBDCLL+00000004 6 BYTE(S) 62910000 UCBDJBNR EQU UCBDCLL+00000010 1 BYTE POINTER 62920000 UCBDDMCT EQU UCBDCLL+00000011 1 BYTE POINTER 62930000 UCBDDMNT EQU UCBDCLL+00000011 1 BIT(S) 62940000 A00187 EQU UCBDCLL+00000011 7 BIT(S) 62950000 UCBDVTOC EQU UCBDCLL+00000012 3 BYTE(S) 62960000 UCBDUSER EQU UCBDCLL+00000015 1 BYTE POINTER 62970000 UCBDA EQU 00000000 184 BYTE(S) ON WORD 62980000 A00188 EQU UCBDA+00000000 104 BYTE(S) 62990000 UCBERP EQU UCBDA+00000104 40 BYTE(S) 63000000 UCBOVFLW EQU UCBDA+00000144 40 BYTE(S) 63010000 UCBMT EQU 00000000 24 BYTE(S) ON WORD 63020000 UCBROR EQU UCBMT+00000000 8 BYTE(S) 63030000 UCBSUM EQU UCBMT+00000008 2 BYTE(S) 63040000 UCBSUMA EQU UCBMT+00000008 1 BYTE(S) 63050000 UCBSUMTR EQU UCBMT+00000008 1 BIT(S) 63060000 UCBSUMTW EQU UCBMT+00000008 1 BIT(S) 63070000 UCBSUMSC EQU UCBMT+00000008 2 BIT(S) 63080000 UCBSUMPR EQU UCBMT+00000008 1 BIT(S) 63090000 UCBSUMPW EQU UCBMT+00000008 1 BIT(S) 63100000 UCBSUMNB EQU UCBMT+00000008 1 BIT(S) 63110000 A00189 EQU UCBMT+00000008 1 BIT(S) 63120000 UCBSUMB EQU UCBMT+00000009 1 BYTE(S) 63130000 UCBSUMEG EQU UCBMT+00000009 2 BIT(S) 63140000 UCBSUMCA EQU UCBMT+00000009 2 BIT(S) 63150000 A00190 EQU UCBMT+00000009 1 BIT(S) 63160000 A00191 EQU UCBMT+00000009 1 BIT(S) 63170000 A00192 EQU UCBMT+00000009 1 BIT(S) 63180000 A00193 EQU UCBMT+00000009 1 BIT(S) 63190000 UCBTRT EQU UCBMT+00000010 1 BYTE POINTER 63200000 UCBTWT EQU UCBMT+00000011 1 BYTE POINTER 63210000 UCBTR EQU UCBMT+00000012 1 BYTE POINTER 63220000 UCBTW EQU UCBMT+00000013 1 BYTE POINTER 63230000 UCBSIO EQU UCBMT+00000014 HALFWORD INTEGER 63240000 UCBPR EQU UCBMT+00000016 1 BYTE POINTER 63250000 UCBPW EQU UCBMT+00000017 1 BYTE POINTER 63260000 UCBNB EQU UCBMT+00000018 1 BYTE POINTER 63270000 UCBMS EQU UCBMT+00000019 1 BYTE(S) 63280000 UCBERG EQU UCBMT+00000020 HALFWORD INTEGER 63290000 UCBCLN EQU UCBMT+00000022 HALFWORD INTEGER 63300000 UCBTCR EQU 00000000 32 BYTE(S) ON DWORD 63310000 UCBTCERP EQU UCBTCR+00000000 24 BYTE(S) ON DWORD 63320000 UCBRCCW1 EQU UCBTCR+00000000 8 BYTE(S) ON DWORD 63330000 UCBRCCW2 EQU UCBTCR+00000008 8 BYTE(S) ON DWORD 63340000 UCBRCCW3 EQU UCBTCR+00000016 8 BYTE(S) ON DWORD 63350000 UCBCSWSA EQU UCBTCR+00000024 8 BYTE(S) 63360000 UCBOR EQU 00000000 8 BYTE(S) ON WORD 63370000 UCBCRDDC EQU UCBOR+00000000 1 BYTE POINTER 63380000 UCBCRILC EQU UCBOR+00000001 1 BYTE POINTER 63390000 UCBCRECC EQU UCBOR+00000002 1 BYTE POINTER 63400000 A00194 EQU UCBOR+00000003 5 BYTE(S) 63410000 UCBUCS EQU 00000000 16 BYTE(S) ON WORD 63420000 UCBUCSID EQU UCBUCS+00000000 4 BYTE(S) 63430000 UCBUCSOP EQU UCBUCS+00000004 1 BYTE(S) 63440000 UCBUCSO1 EQU UCBUCS+00000004 1 BIT(S) 63450000 UCBUCSO2 EQU UCBUCS+00000004 1 BIT(S) 63460000 A00195 EQU UCBUCS+00000004 5 BIT(S) 63470000 UCBUCSPE EQU UCBUCS+00000004 1 BIT(S) 63480000 UCBFCBOP EQU UCBUCS+00000005 1 BYTE(S) 63490000 UCBFCBO1 EQU UCBUCS+00000005 1 BIT(S) 63500000 A00196 EQU UCBUCS+00000005 7 BIT(S) 63510000 A00197 EQU UCBUCS+00000006 1 BYTE(S) 63520000 UCBERCNT EQU UCBUCS+00000007 1 BYTE POINTER 63530000 UCBFCBID EQU UCBUCS+00000008 4 BYTE(S) 63540000 UCBERADR EQU UCBUCS+00000012 FULLWORD POINTER 63550000 UCBSNINF EQU 00000000 8 BYTE(S) ON WORD 63560000 UCBSNSXT EQU UCBSNINF+00000000 6 BYTE(S) 63570000 A00198 EQU UCBSNINF+00000006 2 BYTE(S) 63580000 UCBM65MP EQU 00000004 4 BYTE(S) ON WORD 63590000 UCBFL3 EQU UCBM65MP+00000000 1 BYTE(S) 63600000 UCBACU EQU UCBM65MP+00000000 1 BIT(S) 63610000 A00199 EQU UCBM65MP+00000000 1 BIT(S) 63620000 UCBHIOB EQU UCBM65MP+00000000 1 BIT(S) 63630000 UCBHIOA EQU UCBM65MP+00000000 1 BIT(S) 63640000 UCBSIOB EQU UCBM65MP+00000000 1 BIT(S) 63650000 A00200 EQU UCBM65MP+00000000 1 BIT(S) 63660000 UCBNOB EQU UCBM65MP+00000000 1 BIT(S) 63670000 UCBNOA EQU UCBM65MP+00000000 1 BIT(S) 63680000 A00201 EQU UCBM65MP+00000001 2 BYTE(S) 63690000 UCBMPFLG EQU UCBM65MP+00000003 1 BYTE(S) 63700000 A00202 EQU UCBM65MP+00000003 2 BIT(S) 63710000 UCBRIC EQU UCBM65MP+00000003 1 BIT(S) 63720000 UCBRNIC EQU UCBM65MP+00000003 1 BIT(S) 63730000 A00203 EQU UCBM65MP+00000003 1 BIT(S) 63740000 UCBNRO EQU UCBM65MP+00000003 1 BIT(S) 63750000 UCBPROC EQU UCBM65MP+00000003 1 BIT(S) 63760000 UCBIPL EQU UCBM65MP+00000003 1 BIT(S) 63770000 INDMSIOT EQU 00000000 174 BYTE(S) ON DWORD 63780000 SIOTDSKA EQU INDMSIOT+00000000 3 BYTE POINTER ON WORD 63790000 SIOTTYPE EQU INDMSIOT+00000003 1 BYTE(S) 63800000 SCTDDNAM EQU INDMSIOT+00000004 8 BYTE(S) 63810000 SCTCSADD EQU INDMSIOT+00000012 8 BYTE(S) 63820000 SCTUSADD EQU INDMSIOT+00000020 8 BYTE(S) 63830000 SCTPSIOT EQU INDMSIOT+00000028 3 BYTE POINTER ON WORD 63840000 A00204 EQU INDMSIOT+00000031 1 BYTE(S) 63850000 SCTPJFCB EQU INDMSIOT+00000032 3 BYTE POINTER ON WORD 63860000 A00205 EQU INDMSIOT+00000035 1 BYTE(S) 63870000 SIOTVRSB EQU INDMSIOT+00000036 3 BYTE POINTER ON WORD 63880000 A00206 EQU INDMSIOT+00000039 1 BYTE(S) 63890000 SIOTSTDP EQU INDMSIOT+00000040 3 BYTE POINTER ON WORD 63900000 A00207 EQU INDMSIOT+00000043 1 BYTE(S) 63910000 A00208 EQU INDMSIOT+00000044 3 BYTE(S) 63920000 SIOTTSTC EQU INDMSIOT+00000047 8 BIT(S) 63930000 SIOTDYNA EQU INDMSIOT+00000047 1 BIT(S) 63940000 SIOTTERM EQU INDMSIOT+00000047 1 BIT(S) 63950000 SIOTLMC EQU INDMSIOT+00000047 1 BIT(S) 63960000 A00209 EQU INDMSIOT+00000047 4 BIT(S) 63970000 SIOTQNAM EQU INDMSIOT+00000047 1 BIT(S) 63980000 SCTSPOOL EQU INDMSIOT+00000048 1 BYTE(S) 63990000 SCTVOLCT EQU INDMSIOT+00000049 1 BYTE(S) 64000000 SCTVLPTR EQU INDMSIOT+00000050 HALFWORD POINTER 64010000 SCTDDINO EQU INDMSIOT+00000052 1 BYTE(S) 64020000 SCTNMBUT EQU INDMSIOT+00000053 1 BYTE(S) 64030000 SIOTVLCT EQU INDMSIOT+00000054 1 BYTE(S) 64040000 SCTSDISP EQU INDMSIOT+00000055 8 BIT(S) 64050000 A00210 EQU INDMSIOT+00000055 1 BIT(S) 64060000 SIOTRTAN EQU INDMSIOT+00000055 1 BIT(S) 64070000 SIOTPRIV EQU INDMSIOT+00000055 1 BIT(S) 64080000 SIOTPASS EQU INDMSIOT+00000055 1 BIT(S) 64090000 SIOTKEEP EQU INDMSIOT+00000055 1 BIT(S) 64100000 SIOTDLET EQU INDMSIOT+00000055 1 BIT(S) 64110000 SIOTCTLG EQU INDMSIOT+00000055 1 BIT(S) 64120000 SIOTUNCT EQU INDMSIOT+00000055 1 BIT(S) 64130000 SCTSBYT1 EQU INDMSIOT+00000056 8 BIT(S) 64140000 SCTDUMMY EQU INDMSIOT+00000056 1 BIT(S) 64150000 SCTSYSIN EQU INDMSIOT+00000056 1 BIT(S) 64160000 SCTSPLTP EQU INDMSIOT+00000056 1 BIT(S) 64170000 SCTSPLTS EQU INDMSIOT+00000056 1 BIT(S) 64180000 SCTSBALC EQU INDMSIOT+00000056 1 BIT(S) 64190000 SCTPARLM EQU INDMSIOT+00000056 1 BIT(S) 64200000 SCTUNAFF EQU INDMSIOT+00000056 1 BIT(S) 64210000 SCTUNSEP EQU INDMSIOT+00000056 1 BIT(S) 64220000 SCTSBYT2 EQU INDMSIOT+00000057 8 BIT(S) 64230000 SCTCHAFF EQU INDMSIOT+00000057 1 BIT(S) 64240000 SCTCHSEP EQU INDMSIOT+00000057 1 BIT(S) 64250000 SCTVOLAF EQU INDMSIOT+00000057 1 BIT(S) 64260000 SCTJOBLB EQU INDMSIOT+00000057 1 BIT(S) 64270000 SCTUNLBD EQU INDMSIOT+00000057 1 BIT(S) 64280000 SCTLABEL EQU INDMSIOT+00000057 1 BIT(S) 64290000 SCTDEFER EQU INDMSIOT+00000057 1 BIT(S) 64300000 SCTRECVD EQU INDMSIOT+00000057 1 BIT(S) 64310000 SCTSBYT3 EQU INDMSIOT+00000058 8 BIT(S) 64320000 SCTDSNRF EQU INDMSIOT+00000058 1 BIT(S) 64330000 SCTSYSNE EQU INDMSIOT+00000058 1 BIT(S) 64340000 SCTSNVYV EQU INDMSIOT+00000058 1 BIT(S) 64350000 SCTVREF EQU INDMSIOT+00000058 1 BIT(S) 64360000 SCTSYSOU EQU INDMSIOT+00000058 1 BIT(S) 64370000 SCTSNEW EQU INDMSIOT+00000058 1 BIT(S) 64380000 SCTSMOD EQU INDMSIOT+00000058 1 BIT(S) 64390000 SCTSOLD EQU INDMSIOT+00000058 1 BIT(S) 64400000 SCTSBYT4 EQU INDMSIOT+00000059 8 BIT(S) 64410000 SCTSGDGS EQU INDMSIOT+00000059 1 BIT(S) 64420000 SIOTGDGA EQU INDMSIOT+00000059 1 BIT(S) 64430000 SIOTNPDQ EQU INDMSIOT+00000059 1 BIT(S) 64440000 SIOTASCI EQU INDMSIOT+00000059 1 BIT(S) 64450000 SIOTSTEP EQU INDMSIOT+00000059 1 BIT(S) 64460000 SIOTVAFF EQU INDMSIOT+00000059 1 BIT(S) 64470000 SIOTIPDQ EQU INDMSIOT+00000059 1 BIT(S) 64480000 SIOTOMN EQU INDMSIOT+00000059 1 BIT(S) 64490000 SCTUTYPE EQU INDMSIOT+00000060 8 BYTE(S) 64500000 SCTOUTNM EQU INDMSIOT+00000068 8 BYTE(S) 64510000 SCTOUTNO EQU INDMSIOT+00000076 4 BYTE(S) 64520000 SCTOUTPN EQU INDMSIOT+00000080 1 BYTE(S) 64530000 SCTDDDUP EQU INDMSIOT+00000081 1 BYTE(S) 64540000 SIOTDPCD EQU INDMSIOT+00000082 2 BYTE(S) 64550000 SIOTDPOP EQU INDMSIOT+00000084 3 BYTE POINTER ON WORD 64560000 SIOTDSCT EQU INDMSIOT+00000087 1 BYTE(S) 64570000 SIOTNDSB EQU INDMSIOT+00000088 3 BYTE POINTER ON WORD 64580000 A00211 EQU INDMSIOT+00000091 1 BYTE(S) 64590000 SIOTALTD EQU INDMSIOT+00000092 8 BIT(S) 64600000 A00212 EQU INDMSIOT+00000092 1 BIT(S) 64610000 A00213 EQU INDMSIOT+00000092 1 BIT(S) 64620000 A00214 EQU INDMSIOT+00000092 1 BIT(S) 64630000 SIOTNPRV EQU INDMSIOT+00000092 1 BIT(S) 64640000 SIOTAKEP EQU INDMSIOT+00000092 1 BIT(S) 64650000 SIOTADEL EQU INDMSIOT+00000092 1 BIT(S) 64660000 SIOTACAT EQU INDMSIOT+00000092 1 BIT(S) 64670000 SIOTAUNC EQU INDMSIOT+00000092 1 BIT(S) 64680000 SIOTPDQ EQU INDMSIOT+00000093 3 BYTE POINTER ON WORD+1 64690000 SIOTOUTC EQU INDMSIOT+00000096 1 BYTE(S) 64700000 SIOTOUTR EQU INDMSIOT+00000097 2 BYTE(S) 64710000 SIOTOPUC EQU INDMSIOT+00000099 4 BYTE(S) 64720000 A00215 EQU INDMSIOT+00000103 19 BYTE(S) 64730000 SCTANAME EQU INDMSIOT+00000122 8 BYTE(S) 64740000 SIOTDCBR EQU INDMSIOT+00000130 44 BYTE(S) 64750000 INFMJFCB EQU 00000000 94 BYTE(S) ON WORD 64760000 JFCBDSNM EQU INFMJFCB+00000000 44 BYTE(S) 64770000 JFCBQNAM EQU INFMJFCB+00000000 8 BYTE(S) 64780000 JFCBELNM EQU INFMJFCB+00000044 8 BYTE(S) 64790000 JFCBTSDM EQU INFMJFCB+00000052 8 BIT(S) 64800000 JFCCAT EQU INFMJFCB+00000052 1 BIT(S) 64810000 JFCVSL EQU INFMJFCB+00000052 1 BIT(S) 64820000 JFCSDS EQU INFMJFCB+00000052 1 BIT(S) 64830000 JFCTTR EQU INFMJFCB+00000052 1 BIT(S) 64840000 JFCNWRIT EQU INFMJFCB+00000052 1 BIT(S) 64850000 JFCNDSCB EQU INFMJFCB+00000052 1 BIT(S) 64860000 JFCNDCB EQU INFMJFCB+00000052 1 BIT(S) 64870000 JFCPAT EQU INFMJFCB+00000052 1 BIT(S) 64880000 JFCBSYSC EQU INFMJFCB+00000053 13 BYTE(S) 64890000 JFCBDSCB EQU INFMJFCB+00000053 3 BYTE(S) 64900000 JFCFCBID EQU INFMJFCB+00000056 4 BYTE(S) 64910000 A00216 EQU INFMJFCB+00000060 6 BYTE(S) 64920000 JFCBLTYP EQU INFMJFCB+00000066 8 BIT(S) 64930000 A00217 EQU INFMJFCB+00000066 1 BIT(S) 64940000 JFCBAL EQU INFMJFCB+00000066 1 BIT(S) 64950000 JFCBLTM EQU INFMJFCB+00000066 1 BIT(S) 64960000 JFCBLP EQU INFMJFCB+00000066 1 BIT(S) 64970000 JFCSUL EQU INFMJFCB+00000066 1 BIT(S) 64980000 JFCNSL EQU INFMJFCB+00000066 1 BIT(S) 64990000 JFCSL EQU INFMJFCB+00000066 1 BIT(S) 65000000 JFCNL EQU INFMJFCB+00000066 1 BIT(S) 65010000 JFCBOTTR EQU INFMJFCB+00000067 3 BYTE(S) 65020000 JFCBUFOF EQU INFMJFCB+00000067 1 BYTE POINTER 65030000 JFCBFOFL EQU INFMJFCB+00000067 1 BIT(S) 65040000 JFCBFLSQ EQU INFMJFCB+00000068 2 BYTE INTEGER 65050000 JFCFUNC EQU INFMJFCB+00000068 1 BYTE(S) 65060000 JFCFNCBI EQU INFMJFCB+00000068 1 BIT(S) 65070000 JFCFNCBR EQU INFMJFCB+00000068 1 BIT(S) 65080000 JFCFNCBP EQU INFMJFCB+00000068 1 BIT(S) 65090000 JFCFNCBW EQU INFMJFCB+00000068 1 BIT(S) 65100000 JFCFNCBD EQU INFMJFCB+00000068 1 BIT(S) 65110000 JFCFNCBX EQU INFMJFCB+00000068 1 BIT(S) 65120000 JFCFNCBT EQU INFMJFCB+00000068 1 BIT(S) 65130000 A00218 EQU INFMJFCB+00000068 1 BIT(S) 65140000 JFCBVLSQ EQU INFMJFCB+00000070 HALFWORD INTEGER 65150000 JFCBMASK EQU INFMJFCB+00000072 8 BYTE(S) 65160000 JFCBOPS1 EQU INFMJFCB+00000072 5 BYTE(S) 65170000 A00219 EQU INFMJFCB+00000072 4 BYTE(S) 65180000 A00220 EQU INFMJFCB+00000076 7 BIT(S) 65190000 JFCBPTTR EQU INFMJFCB+00000076 1 BIT(S) 65200000 JFCBFLG1 EQU INFMJFCB+00000077 8 BIT(S) 65210000 JFCSTAND EQU INFMJFCB+00000077 1 BIT(S) 65220000 JFCSLCRE EQU INFMJFCB+00000077 1 BIT(S) 65230000 JFCSLDES EQU INFMJFCB+00000077 1 BIT(S) 65240000 JFCDUAL EQU INFMJFCB+00000077 1 BIT(S) 65250000 JFCOPEN EQU INFMJFCB+00000077 4 BIT(S) 65260000 JFCBFLG2 EQU INFMJFCB+00000078 8 BIT(S) 65270000 JFCINOP EQU INFMJFCB+00000078 1 BIT(S) 65280000 JFCOUTOP EQU INFMJFCB+00000078 1 BIT(S) 65290000 JFCDEFER EQU INFMJFCB+00000078 1 BIT(S) 65300000 JFCMODNW EQU INFMJFCB+00000078 1 BIT(S) 65310000 JFCSDRPS EQU INFMJFCB+00000078 1 BIT(S) 65320000 JFCTRACE EQU INFMJFCB+00000078 1 BIT(S) 65330000 JFCBBUFF EQU INFMJFCB+00000078 1 BIT(S) 65340000 JFCRCTLG EQU INFMJFCB+00000078 1 BIT(S) 65350000 JFCBOPS2 EQU INFMJFCB+00000079 8 BIT(S) 65360000 JFCBCRDT EQU INFMJFCB+00000080 3 BYTE(S) 65370000 JFCBXPDT EQU INFMJFCB+00000083 3 BYTE(S) 65380000 JFCBIND1 EQU INFMJFCB+00000086 8 BIT(S) 65390000 JFCRLSE EQU INFMJFCB+00000086 2 BIT(S) 65400000 JFCLOC EQU INFMJFCB+00000086 2 BIT(S) 65410000 JFCADDED EQU INFMJFCB+00000086 2 BIT(S) 65420000 JFCGDG EQU INFMJFCB+00000086 1 BIT(S) 65430000 JFCPDS EQU INFMJFCB+00000086 1 BIT(S) 65440000 JFCBIND2 EQU INFMJFCB+00000087 8 BIT(S) 65450000 JFCDISP EQU INFMJFCB+00000087 2 BIT(S) 65460000 JFCSECUR EQU INFMJFCB+00000087 2 BIT(S) 65470000 JFCSHARE EQU INFMJFCB+00000087 1 BIT(S) 65480000 JFCENT EQU INFMJFCB+00000087 1 BIT(S) 65490000 JFCREQ EQU INFMJFCB+00000087 1 BIT(S) 65500000 JFCTEMP EQU INFMJFCB+00000087 1 BIT(S) 65510000 JFCBUFNO EQU INFMJFCB+00000088 1 BYTE(S) 65520000 JFCBUFIN EQU INFMJFCB+00000088 1 BYTE(S) 65530000 JFCBFOUT EQU INFMJFCB+00000088 1 BYTE(S) 65540000 JFCBUFRQ EQU INFMJFCB+00000088 1 BYTE(S) 65550000 JFCBHIAR EQU INFMJFCB+00000089 1 BYTE(S) 65560000 JFCBFALN EQU INFMJFCB+00000089 1 BYTE(S) 65570000 JFCBFTEK EQU INFMJFCB+00000089 8 BIT(S) 65580000 JFCSIM EQU INFMJFCB+00000089 1 BIT(S) 65590000 JFCEXC EQU INFMJFCB+00000089 1 BIT(S) 65600000 JFCDYN EQU INFMJFCB+00000089 1 BIT(S) 65610000 JFCHIER1 EQU INFMJFCB+00000089 1 BIT(S) 65620000 JFCDWORD EQU INFMJFCB+00000089 1 BIT(S) 65630000 JFCFWORD EQU INFMJFCB+00000089 1 BIT(S) 65640000 JFCBUFL EQU INFMJFCB+00000090 HALFWORD INTEGER 65650000 JFCEROPT EQU INFMJFCB+00000092 8 BIT(S) 65660000 JFCACC EQU INFMJFCB+00000092 1 BIT(S) 65670000 JFCSKP EQU INFMJFCB+00000092 1 BIT(S) 65680000 JFCABN EQU INFMJFCB+00000092 1 BIT(S) 65690000 A00221 EQU INFMJFCB+00000092 5 BIT(S) 65700000 JFCTRTCH EQU INFMJFCB+00000093 1 BYTE(S) 65710000 JFCKEYLE EQU 00000093 1 BYTE(S) 65720000 JFCCODE EQU JFCKEYLE+00000000 8 BIT(S) ON BYTE 65730000 JFCNOCON EQU JFCKEYLE+00000000 1 BIT(S) 65740000 JFCBCD EQU JFCKEYLE+00000000 1 BIT(S) 65750000 JFCFRI EQU JFCKEYLE+00000000 1 BIT(S) 65760000 JFCBUR EQU JFCKEYLE+00000000 1 BIT(S) 65770000 JFCNCR EQU JFCKEYLE+00000000 1 BIT(S) 65780000 JFCASCII EQU JFCKEYLE+00000000 1 BIT(S) 65790000 JFCTTY EQU JFCKEYLE+00000000 1 BIT(S) 65800000 A00222 EQU JFCKEYLE+00000000 1 BIT(S) 65810000 JFCSTACK EQU 00000093 8 BIT(S) ON BYTE 65820000 JFCMODE EQU JFCSTACK+00000000 8 BIT(S) ON BYTE 65830000 JFCBIN EQU JFCSTACK+00000000 1 BIT(S) 65840000 JFCEBCD EQU JFCSTACK+00000000 1 BIT(S) 65850000 JFCMODEO EQU JFCSTACK+00000000 1 BIT(S) 65860000 JFCMODER EQU JFCSTACK+00000000 1 BIT(S) 65870000 A00223 EQU JFCSTACK+00000000 2 BIT(S) 65880000 JFCTWO EQU JFCSTACK+00000000 1 BIT(S) 65890000 JFCONE EQU JFCSTACK+00000000 1 BIT(S) 65900000 JFCSPPRT EQU 00000093 20 BYTE(S) ON WORD 65910000 JFCPRTSP EQU JFCSPPRT+00000000 8 BIT(S) ON BYTE 65920000 JFCDEN EQU JFCSPPRT+00000001 8 BIT(S) 65930000 JFCLIMCT EQU JFCSPPRT+00000002 3 BYTE(S) 65940000 A00224 EQU JFCSPPRT+00000002 1 BYTE(S) 65950000 JFCTRKBL EQU JFCSPPRT+00000003 2 BYTE(S) 65960000 JFCDSORG EQU JFCSPPRT+00000005 16 BIT(S) 65970000 JFCDSRG1 EQU JFCSPPRT+00000005 8 BIT(S) 65980000 JFCORGIS EQU JFCSPPRT+00000005 1 BIT(S) 65990000 JFCORGPS EQU JFCSPPRT+00000005 1 BIT(S) 66000000 JFCORGDA EQU JFCSPPRT+00000005 1 BIT(S) 66010000 A00225 EQU JFCSPPRT+00000005 3 BIT(S) 66020000 JFCORGPO EQU JFCSPPRT+00000005 1 BIT(S) 66030000 JFCORGU EQU JFCSPPRT+00000005 1 BIT(S) 66040000 JFCDSRG2 EQU JFCSPPRT+00000006 8 BIT(S) 66050000 JFCORGGS EQU JFCSPPRT+00000006 1 BIT(S) 66060000 A00226 EQU JFCSPPRT+00000006 7 BIT(S) 66070000 JFCRECFM EQU JFCSPPRT+00000007 8 BIT(S) 66080000 JFCFMRC EQU JFCSPPRT+00000007 3 BIT(S) 66090000 JFCFMREC EQU JFCSPPRT+00000007 2 BIT(S) 66100000 JFCRFO EQU JFCSPPRT+00000007 1 BIT(S) 66110000 JFCRFB EQU JFCSPPRT+00000007 1 BIT(S) 66120000 JFCRFS EQU JFCSPPRT+00000007 1 BIT(S) 66130000 JFCCHAR EQU JFCSPPRT+00000007 2 BIT(S) 66140000 A00227 EQU JFCSPPRT+00000007 1 BIT(S) 66150000 JFCOPTCD EQU JFCSPPRT+00000008 8 BIT(S) 66160000 JFCWVCSP EQU JFCSPPRT+00000008 1 BIT(S) 66170000 JFCWVCIS EQU JFCSPPRT+00000008 1 BIT(S) 66180000 JFCWVCBD EQU JFCSPPRT+00000008 1 BIT(S) 66190000 JFCSDNAM EQU JFCSPPRT+00000008 1 BIT(S) 66200000 JFCALLOW EQU JFCSPPRT+00000008 1 BIT(S) 66210000 A00228 EQU JFCSPPRT+00000008 1 BIT(S) 66220000 JFCOVER EQU JFCSPPRT+00000008 1 BIT(S) 66230000 JFCWUMSG EQU JFCSPPRT+00000008 1 BIT(S) 66240000 JFCPCIBT EQU JFCSPPRT+00000008 1 BIT(S) 66250000 JFCMAST EQU JFCSPPRT+00000008 1 BIT(S) 66260000 JFCEXT EQU JFCSPPRT+00000008 1 BIT(S) 66270000 JFCCBWU EQU JFCSPPRT+00000008 1 BIT(S) 66280000 JFCBCKPT EQU JFCSPPRT+00000008 1 BIT(S) 66290000 JFCIND EQU JFCSPPRT+00000008 1 BIT(S) 66300000 JFCFEED EQU JFCSPPRT+00000008 1 BIT(S) 66310000 A00229 EQU JFCSPPRT+00000008 1 BIT(S) 66320000 JFCCYL EQU JFCSPPRT+00000008 1 BIT(S) 66330000 JFCACT EQU JFCSPPRT+00000008 1 BIT(S) 66340000 JFCOPTQ EQU JFCSPPRT+00000008 1 BIT(S) 66350000 JFCREDUC EQU JFCSPPRT+00000008 1 BIT(S) 66360000 A00230 EQU JFCSPPRT+00000008 1 BIT(S) 66370000 A00231 EQU JFCSPPRT+00000008 1 BIT(S) 66380000 JFCSRCHD EQU JFCSPPRT+00000008 1 BIT(S) 66390000 A00232 EQU JFCSPPRT+00000008 1 BIT(S) 66400000 JFCDEL EQU JFCSPPRT+00000008 1 BIT(S) 66410000 A00233 EQU JFCSPPRT+00000008 1 BIT(S) 66420000 A00234 EQU JFCSPPRT+00000008 1 BIT(S) 66430000 JFCREORG EQU JFCSPPRT+00000008 1 BIT(S) 66440000 JFCREL EQU JFCSPPRT+00000008 1 BIT(S) 66450000 JFCBLKSI EQU JFCSPPRT+00000009 2 BYTE INTEGER 66460000 JFCBUFSI EQU JFCSPPRT+00000009 2 BYTE INTEGER 66470000 JFCLRECL EQU JFCSPPRT+00000011 2 BYTE INTEGER 66480000 JFCNCP EQU JFCSPPRT+00000013 1 BYTE(S) 66490000 JFCBUFMX EQU JFCSPPRT+00000013 1 BYTE(S) 66500000 JFCNTM EQU JFCSPPRT+00000014 1 BYTE(S) 66510000 JFCPCI EQU JFCSPPRT+00000014 1 BYTE(S) 66520000 JFCRKP EQU JFCSPPRT+00000015 2 BYTE INTEGER 66530000 JFCRESRV EQU JFCSPPRT+00000015 2 BYTE INTEGER 66540000 JFCCYLOF EQU JFCSPPRT+00000017 1 BYTE(S) 66550000 JFCDBUFN EQU JFCSPPRT+00000018 1 BYTE(S) 66560000 JFCINTVL EQU JFCSPPRT+00000019 1 BYTE(S) 66570000 JFCUCSEG EQU 00000108 68 BYTE(S) ON WORD 66580000 JFCUCSID EQU JFCUCSEG+00000000 4 BYTE(S) 66590000 JFCUCSOP EQU JFCUCSEG+00000004 8 BIT(S) 66600000 A00235 EQU JFCUCSEG+00000004 1 BIT(S) 66610000 JFCFOLD EQU JFCUCSEG+00000004 1 BIT(S) 66620000 A00236 EQU JFCUCSEG+00000004 1 BIT(S) 66630000 JFCVER EQU JFCUCSEG+00000004 1 BIT(S) 66640000 JFCFCBAL EQU JFCUCSEG+00000004 1 BIT(S) 66650000 JFCFCBVR EQU JFCUCSEG+00000004 1 BIT(S) 66660000 A00237 EQU JFCUCSEG+00000004 2 BIT(S) 66670000 JFCOUTLI EQU JFCUCSEG+00000005 1 BYTE(S) 66680000 JFCTHRSH EQU JFCUCSEG+00000005 1 BYTE(S) 66690000 JFCCPRI EQU JFCUCSEG+00000005 8 BIT(S) 66700000 JFCSEND EQU JFCUCSEG+00000005 1 BIT(S) 66710000 JFCEQUAL EQU JFCUCSEG+00000005 1 BIT(S) 66720000 JFCRECV EQU JFCUCSEG+00000005 1 BIT(S) 66730000 A00238 EQU JFCUCSEG+00000005 5 BIT(S) 66740000 JFCSOWA EQU JFCUCSEG+00000006 HALFWORD INTEGER 66750000 JFCBNTCS EQU JFCUCSEG+00000008 1 BYTE(S) 66760000 JFCBNVOL EQU JFCUCSEG+00000009 1 BYTE(S) 66770000 JFCBVOLS EQU JFCUCSEG+00000010 30 BYTE(S) 66780000 JFCBEXTL EQU JFCUCSEG+00000040 1 BYTE(S) 66790000 JFCBEXAD EQU JFCUCSEG+00000041 3 BYTE(S) 66800000 JFCBPQTY EQU JFCUCSEG+00000044 3 BYTE(S) 66810000 JFCBCTRI EQU JFCUCSEG+00000047 8 BIT(S) 66820000 JFCBSPAC EQU JFCUCSEG+00000047 2 BIT(S) 66830000 A00239 EQU JFCUCSEG+00000047 1 BIT(S) 66840000 A00240 EQU JFCUCSEG+00000047 1 BIT(S) 66850000 JFCONTIG EQU JFCUCSEG+00000047 1 BIT(S) 66860000 JFCMIXG EQU JFCUCSEG+00000047 1 BIT(S) 66870000 JFCALX EQU JFCUCSEG+00000047 1 BIT(S) 66880000 JFCROUND EQU JFCUCSEG+00000047 1 BIT(S) 66890000 JFCBSQTY EQU JFCUCSEG+00000048 3 BYTE(S) 66900000 A00241 EQU JFCUCSEG+00000051 1 BYTE(S) 66910000 JFCBDQTY EQU JFCUCSEG+00000052 3 BYTE(S) 66920000 JFCBSPNM EQU JFCUCSEG+00000055 3 BYTE POINTER 66930000 JFCBABST EQU JFCUCSEG+00000058 HALFWORD INTEGER 66940000 JFCBSBNM EQU JFCUCSEG+00000060 3 BYTE POINTER 66950000 JFCBDRLH EQU JFCUCSEG+00000063 3 BYTE(S) 66960000 JFCBVLCT EQU JFCUCSEG+00000066 1 BYTE(S) 66970000 JFCBSPTN EQU JFCUCSEG+00000067 1 BYTE(S) 66980000 JFCBEND EQU JFCUCSEG+00000068 BYTE(S) 66990000 INSMSCT EQU 00000000 176 BYTE(S) ON DWORD 67000000 SCTDISKA EQU INSMSCT+00000000 3 BYTE POINTER ON WORD 67010000 SCTTBLID EQU INSMSCT+00000003 1 BYTE(S) 67020000 SCTSSTAT EQU INSMSCT+00000004 8 BIT(S) 67030000 EAOUTABL EQU INSMSCT+00000004 1 BIT(S) 67040000 EACAUSER EQU INSMSCT+00000004 1 BIT(S) 67050000 SCTNORST EQU INSMSCT+00000004 1 BIT(S) 67060000 SCTNOCKP EQU INSMSCT+00000004 1 BIT(S) 67070000 SCTDORST EQU INSMSCT+00000004 1 BIT(S) 67080000 SCTKEY0 EQU INSMSCT+00000004 1 BIT(S) 67090000 SCTGRPH EQU INSMSCT+00000004 1 BIT(S) 67100000 INCMSSTS EQU INSMSCT+00000004 1 BIT(S) 67110000 SCTSTIME EQU INSMSCT+00000005 3 BYTE POINTER ON WORD+1 67120000 SCTSEXEC EQU INSMSCT+00000008 2 BYTE(S) 67130000 SCTLALOC EQU INSMSCT+00000010 HALFWORD POINTER 67140000 SCTFSIOT EQU INSMSCT+00000012 3 BYTE POINTER ON WORD 67150000 A00242 EQU INSMSCT+00000015 1 BYTE(S) 67160000 SCTAALOC EQU INSMSCT+00000016 3 BYTE POINTER ON WORD 67170000 A00243 EQU INSMSCT+00000019 1 BYTE(S) 67180000 SCTANSCT EQU INSMSCT+00000020 3 BYTE POINTER ON WORD 67190000 A00244 EQU INSMSCT+00000023 1 BYTE(S) 67200000 SCTAFSMB EQU INSMSCT+00000024 3 BYTE POINTER ON WORD 67210000 A00245 EQU INSMSCT+00000027 1 BYTE(S) 67220000 SCTADSMB EQU INSMSCT+00000028 3 BYTE POINTER ON WORD 67230000 A00246 EQU INSMSCT+00000031 1 BYTE(S) 67240000 SCTAFACT EQU INSMSCT+00000032 3 BYTE POINTER ON WORD 67250000 A00247 EQU INSMSCT+00000035 1 BYTE(S) 67260000 SCTVOLTB EQU INSMSCT+00000036 3 BYTE POINTER ON WORD 67270000 A00248 EQU INSMSCT+00000039 1 BYTE(S) 67280000 SCTADSTB EQU INSMSCT+00000040 3 BYTE POINTER ON WORD 67290000 A00249 EQU INSMSCT+00000043 1 BYTE(S) 67300000 SCTSCLPC EQU INSMSCT+00000044 8 BYTE(S) 67310000 SCTSNAME EQU INSMSCT+00000052 8 BYTE(S) 67320000 SCTRPACT EQU INSMSCT+00000060 HALFWORD POINTER 67330000 SCTVOLTL EQU INSMSCT+00000062 HALFWORD POINTER 67340000 SCTNSIOT EQU INSMSCT+00000064 1 BYTE POINTER 67350000 SCTNSMSG EQU INSMSCT+00000065 1 BYTE POINTER 67360000 SCTNJFCB EQU INSMSCT+00000066 1 BYTE POINTER 67370000 SCTSTYPE EQU INSMSCT+00000067 8 BIT(S) 67380000 SCTGOSTP EQU INSMSCT+00000067 1 BIT(S) 67390000 SCTINPUT EQU INSMSCT+00000067 1 BIT(S) 67400000 SCTOUTMC EQU INSMSCT+00000067 1 BIT(S) 67410000 SCTSJFHK EQU INSMSCT+00000067 1 BIT(S) 67420000 SCTINITB EQU INSMSCT+00000067 3 BIT(S) 67430000 A00250 EQU INSMSCT+00000067 1 BIT(S) 67440000 SCTXBTTR EQU INSMSCT+00000068 3 BYTE POINTER ON WORD 67450000 A00251 EQU INSMSCT+00000071 1 BYTE(S) 67460000 SCTMSADR EQU INSMSCT+00000072 FULLWORD POINTER 67470000 SCTLCSAD EQU INSMSCT+00000076 FULLWORD POINTER 67480000 SCTCRWTP EQU INSMSCT+00000080 3 BYTE POINTER ON WORD 67490000 SCTCRCNT EQU INSMSCT+00000083 1 BYTE POINTER 67500000 A00252 EQU INSMSCT+00000084 1 BYTE(S) 67510000 SCTTEXT EQU INSMSCT+00000085 3 BYTE(S) 67520000 SCTMSSZE EQU INSMSCT+00000088 HALFWORD POINTER 67530000 SCTLCSSZ EQU INSMSCT+00000090 HALFWORD POINTER 67540000 A00253 EQU INSMSCT+00000092 HALFWORD POINTER 67550000 SCTSDPTY EQU INSMSCT+00000094 8 BIT(S) 67560000 A00254 EQU INSMSCT+00000094 1 BIT(S) 67570000 A00255 EQU INSMSCT+00000094 1 BIT(S) 67580000 SCTFSTEP EQU INSMSCT+00000094 1 BIT(S) 67590000 SCTSDP EQU INSMSCT+00000094 5 BIT(S) 67600000 A00256 EQU INSMSCT+00000095 1 BYTE(S) 67610000 SCTSMF EQU INSMSCT+00000096 FULLWORD POINTER 67620000 SCTGOTTR EQU INSMSCT+00000100 FULLWORD POINTER 67630000 SCTSTAT2 EQU INSMSCT+00000104 8 BIT(S) 67640000 SCTBCT EQU INSMSCT+00000104 8 BIT(S) 67650000 A00257 EQU INSMSCT+00000104 1 BIT(S) 67660000 SCTDSOCL EQU INSMSCT+00000104 1 BIT(S) 67670000 SCTMCVOL EQU INSMSCT+00000104 1 BIT(S) 67680000 A00258 EQU INSMSCT+00000104 1 BIT(S) 67690000 SCTSTPLB EQU INSMSCT+00000104 1 BIT(S) 67700000 SCTSPSYS EQU INSMSCT+00000104 1 BIT(S) 67710000 SCTJBEND EQU INSMSCT+00000104 1 BIT(S) 67720000 SCTBCTU EQU INSMSCT+00000104 1 BIT(S) 67730000 SCTTIOT EQU INSMSCT+00000105 3 BYTE POINTER ON WORD+1 67740000 SCTPGMNM EQU INSMSCT+00000108 8 BYTE(S) 67750000 SCTLDSTB EQU INSMSCT+00000116 HALFWORD POINTER 67760000 SCTCDENT EQU INSMSCT+00000118 8*6 BYTE(S) 67770000 SCTSDPCD EQU INSMSCT+00000118 2 BYTE(S) 67780000 SCTSDPOP EQU INSMSCT+00000120 1 BYTE(S) 67790000 SCTSDPSA EQU INSMSCT+00000121 3 BYTE POINTER 67800000 SCTEQREG EQU INSMSCT+00000166 2 BYTE(S) 67810000 SCTEQTTR EQU INSMSCT+00000168 3 BYTE POINTER ON WORD 67820000 SCTEQCMC EQU INSMSCT+00000171 1 BYTE POINTER 67830000 SCTSTEND EQU INSMSCT+00000172 8 BIT(S) 67840000 SCTSTSRT EQU INSMSCT+00000172 1 BIT(S) 67850000 SCTSTPND EQU INSMSCT+00000172 1 BIT(S) 67860000 A00259 EQU INSMSCT+00000172 6 BIT(S) 67870000 SCTAISMB EQU INSMSCT+00000173 3 BYTE POINTER ON WORD+1 67880000 INDMVOLT EQU 00000176 180 BYTE(S) ON WORD 67890000 INDMDSNT EQU 00000356 180 BYTE(S) ON WORD 67900000 A00260 EQU 00000160 6 BYTE(S) ON WORD 67910000 SCTABCND EQU A00260+00000000 8 BIT(S) 67920000 A00261 EQU A00260+00000000 3 BIT(S) 67930000 SCTABCAN EQU A00260+00000000 1 BIT(S) 67940000 SCTONLYC EQU A00260+00000000 1 BIT(S) 67950000 SCTABEND EQU A00260+00000000 1 BIT(S) 67960000 SCTEVEN EQU A00260+00000000 1 BIT(S) 67970000 SCTONLY EQU A00260+00000000 1 BIT(S) 67980000 A00262 EQU A00260+00000001 5 BYTE(S) 67990000 TEMMEN EQU 00000000 8 BYTE(S) ON WORD 68000000 DSEMEMN EQU TEMMEN+00000000 8 BYTE(S) 68010000 DSCB EQU 00000000 39 BYTE(S) ON WORD 68020000 A00263 EQU DSCB+00000000 38 BYTE(S) 68030000 DS1DSORG EQU DSCB+00000038 1 BYTE(S) 68040000 AREASAVE EQU 00000000 20 BYTE(S) ON WORD 68050000 A00264 EQU AREASAVE+00000000 4 BYTE(S) 68060000 NXTSAVE EQU AREASAVE+00000004 FULLWORD POINTER 68070000 A00265 EQU AREASAVE+00000008 8 BYTE(S) 68080000 RTNCODE EQU AREASAVE+00000016 FULLWORD INTEGER 68090000 LOOPER EQU 00000000 44 BYTE(S) 68100000 MSG600 EQU 00000000 79 BYTE(S) ON WORD 68110000 A00266 EQU MSG600+00000000 4 BYTE(S) 68120000 A00267 EQU MSG600+00000004 17 BYTE(S) 68130000 TYPEE EQU MSG600+00000021 7 BYTE(S) 68140000 OCODE EQU MSG600+00000028 HALFWORD INTEGER 68150000 A00268 EQU MSG600+00000030 14 BYTE(S) 68160000 DNAME EQU MSG600+00000044 8 BYTE(S) 68170000 A00269 EQU MSG600+00000052 6 BYTE(S) 68180000 TUSER EQU MSG600+00000058 7 BYTE(S) 68190000 A00270 EQU MSG600+00000065 6 BYTE(S) 68200000 TPROC EQU MSG600+00000071 8 BYTE(S) 68210000 MSG600A EQU 00000000 73 BYTE(S) ON WORD 68220000 A00271 EQU MSG600A+00000000 4 BYTE(S) 68230000 A00272 EQU MSG600A+00000004 17 BYTE(S) 68240000 ITYPEE EQU MSG600A+00000021 4 BYTE(S) 68250000 A00273 EQU MSG600A+00000025 13 BYTE(S) 68260000 IDNAME EQU MSG600A+00000038 8 BYTE(S) 68270000 A00274 EQU MSG600A+00000046 6 BYTE(S) 68280000 ITUSER EQU MSG600A+00000052 7 BYTE(S) 68290000 A00275 EQU MSG600A+00000059 6 BYTE(S) 68300000 ITPROC EQU MSG600A+00000065 8 BYTE(S) 68310000 MSG602 EQU 00000000 65 BYTE(S) ON WORD 68320000 A00276 EQU MSG602+00000000 4 BYTE(S) 68330000 A00277 EQU MSG602+00000004 30 BYTE(S) 68340000 ETYPE EQU MSG602+00000034 4 BYTE INTEGER ON HWORD 68350000 A00278 EQU MSG602+00000038 6 BYTE(S) 68360000 PUSER EQU MSG602+00000044 7 BYTE(S) 68370000 A00279 EQU MSG602+00000051 6 BYTE(S) 68380000 PROCT EQU MSG602+00000057 8 BYTE(S) 68390000 STPLINE EQU 00000000 24 BYTE(S) ON WORD 68400000 UPTADR EQU STPLINE+00000000 FULLWORD POINTER 68410000 ECTPTR EQU STPLINE+00000004 FULLWORD POINTER 68420000 ECBPTR EQU STPLINE+00000008 FULLWORD POINTER 68430000 NUMPTR EQU STPLINE+00000012 FULLWORD POINTER 68440000 TYPMSG EQU STPLINE+00000016 FULLWORD INTEGER 68450000 MSGPTR EQU STPLINE+00000020 FULLWORD POINTER 68460000 ECBOVLY EQU 00000028 4 BYTE(S) ON WORD 68470000 ACTECB EQU ECBOVLY+00000000 FULLWORD INTEGER 68480000 AECBWBIT EQU ECBOVLY+00000000 1 BIT(S) 68490000 AECBPBIT EQU ECBOVLY+00000000 1 BIT(S) 68500000 DSNCHK EQU 00000000 44 BYTE(S) ON WORD 68510000 DSNSTG EQU DSNCHK+00000000 44 BYTE(S) 68520000 A00280 EQU DSNCHK+00000000 8 BYTE(S) 68530000 AP EQU DSNCHK+00000008 1 BYTE(S) 68540000 A00281 EQU DSNCHK+00000009 7 BYTE(S) 68550000 BP EQU DSNCHK+00000016 1 BYTE(S) 68560000 A00282 EQU DSNCHK+00000017 5 BYTE(S) 68570000 CP EQU DSNCHK+00000022 1 BYTE(S) 68580000 STPTEST EQU * 8 BYTE(S) 68590000 DC C'STEPLIB ' 68600000 QMGRPTR EQU 00000076 FULLWORD POINTER 68610000 NULTEST EQU * 8 BYTE(S) 68620000 DC C'NULLFILE' 68630000 MESSAGES EQU JMSGMOD+00000000 233 BYTE(S) ON WORD 68640000 M600 EQU MESSAGES+00000000 83 BYTE(S) ON WORD 68650000 M600A EQU MESSAGES+00000084 77 BYTE(S) ON WORD 68660000 M602 EQU MESSAGES+00000164 69 BYTE(S) ON WORD 68670000 ORG @DATA 68680000 DS 00000016C 68690000 @L EQU 3 68700000 @DATD DSECT 68710000 @SAV001 EQU @DATD+00000000 72 BYTE(S) ON WORD 68720000 LCTPTR EQU @DATD+00000072 FULLWORD POINTER 68730000 QMPAPTR EQU @DATD+00000076 FULLWORD POINTER 68740000 TIOTPTR EQU @DATD+00000080 FULLWORD POINTER 68750000 TEMPWRK EQU @DATD+00000084 4 BYTE(S) 68760000 LJBITS EQU @DATD+00000088 8 BIT(S) ON BYTE 68770000 A00000 EQU LJBITS+00000000 7 BIT(S) 68780000 DUMPBT EQU LJBITS+00000000 1 BIT(S) 68790000 GMLIST EQU @DATD+00000092 24 BYTE(S) ON WORD 68800000 DSCBARA EQU GMLIST+00000000 FULLWORD POINTER 68810000 SIOTARA EQU GMLIST+00000004 FULLWORD POINTER 68820000 JFCBARA EQU GMLIST+00000008 FULLWORD POINTER 68830000 DSCBLTH EQU GMLIST+00000012 FULLWORD INTEGER 68840000 SIOTLTH EQU GMLIST+00000016 FULLWORD INTEGER 68850000 JFCBLTH EQU GMLIST+00000020 FULLWORD INTEGER 68860000 LISTEND EQU GMLIST+00000020 1 BIT(S) 68870000 DSCBLST EQU @DATD+00000116 16 BYTE(S) ON WORD 68880000 CAMFLGS EQU DSCBLST+00000000 FULLWORD INTEGER 68890000 CAMADR1 EQU DSCBLST+00000004 FULLWORD POINTER 68900000 CAMADR2 EQU DSCBLST+00000008 FULLWORD POINTER 68910000 CAMADR3 EQU DSCBLST+00000012 FULLWORD POINTER 68920000 PARMAREA EQU @DATD+00000132 8 BYTE(S) ON WORD 68930000 PARMIN EQU PARMAREA+00000000 FULLWORD POINTER 68940000 PARMTTRA EQU PARMAREA+00000004 FULLWORD INTEGER 68950000 PARMTTR EQU PARMAREA+00000004 3 BYTE(S) 68960000 GFLIST EQU @DATD+00000140 10 BYTE(S) ON WORD 68970000 LAADDR EQU GFLIST+00000000 4 BYTE(S) 68980000 AADDR EQU GFLIST+00000004 4 BYTE(S) 68990000 FLAGS EQU GFLIST+00000008 1 BYTE(S) 69000000 SPNBR EQU GFLIST+00000009 1 BYTE(S) 69010000 K EQU @DATD+00000152 FULLWORD INTEGER 69020000 I EQU @DATD+00000156 FULLWORD INTEGER 69030000 DS 00000160C 69040000 @TEMPS DS 0F 69050000 @TEMP3 DC F'0' 69060000 @TEMP4 DC F'0' 69070000 PUTOUT PUTLINE MF=L 69080000 @DATD DSECT 69090000 @DATEND EQU * 69100000 IKJEFLJ CSECT , 69110000 @9E7 EQU DOOBTN 69120000 @9E8 EQU DOOBTN 69130000 @9E5 EQU ERROR1 69140000 @9E4 EQU ERROR1 69150000 @9E3 EQU ERROR1 69160000 @9DF EQU WTOAFA 69170000 @9DD EQU WTOAFA 69180000 ENDLJ EQU @EL01 69190000 @9D7 EQU ENDLJ 69200000 END 69210000 ./ ADD SSI=21381555,NAME=IKJEFLK,SOURCE=1 TITLE 'POST-INVOCATION INITIATOR EXIT ROUTINE, IKJEFLK' 00010000 EFLK TITLE 'POST-INVOCATION INITIATOR EXIT ROUTINE, IKJEFLK' 00020000 EJECT 00030000 LCLA &T,&SPN 0003 00040000 .@001 ANOP 0003 00050000 IKJEFLK CSECT , 0003 00060000 STM @E,@C,12(@D) 0003 00070000 BALR @B,0 0003 00080000 @PSTART DS 0H 0003 00090000 USING @PSTART+00000,@B 0003 00100000 L @0,@SIZ001 0003 00110000 GETMAIN R,LV=(0) 0003 00120000 LR @C,@1 0003 00130000 USING @DATD+00000,@C 0003 00140000 LM @0,@1,20(@D) 0003 00150000 XC @TEMPS(@L),@TEMPS 0003 00160000 ST @D,@SAV001+4 0003 00170000 LA @F,@SAV001 0003 00180000 ST @F,8(0,@D) 0003 00190000 LR @D,@F 0003 00200000 B AROUND GET AROUND THE HEADER INFORMATION 00210000 DC CL8'IKJEFLK' MODULE IDENTIFIER 00220000 DC X'09091971' DATE OF LAST MODIFICATION C99236 00230000 AROUND DS 0H A NICE PLACE TO BRANCH TO 00240000 DS 0H 00250000 * GEN(EJECT); 00260000 EJECT 00270000 DS 0H 00280000 * DCL FMAPTR PTR(24) REG(1) /*POINTER TO AREA TO BE FREED */ 00290000 * DCL PARMPTR PTR(31) REG(1) /*POINTER TO A PARAMETER LIST */ 00300000 * DCL LCTPTR PTR(31) REG(2) /*ADDRESS OF THE LINKAGE 00310000 * CONTROL TABLE */ 00320000 * DCL DSEPTR PTR(24) REG(3) /*POINTER TO CURRENT DSE */ 00330000 * DCL DSEMPTR PTR(24) REG(4) /*POINTER TO DSE MEMBER NAME */ 00340000 * DCL ATRCBPTR PTR(31) REG(3) /*PTR TO ATRCB C99236*/ 00350000 * DCL FMLENGTH FIXED(31) REG(5) /*LENGTH TO BE FREED */ 00360000 * DCL SAVEPTR PTR(24) REG(13) /*ADDRESS OF THE CURRENT SAVE 00370000 * AREA */ 00380000 * DCL HSAPTR PTR(31) BASED(SAVEPTR+4) /*ADDRESS OF THE 00390000 * HIGHER SAVE AREA */ 00400000 * DCL RTNCODE FIXED(31) BASED(HSAPTR+16) /*LOCATION OF 00410000 * REGISTER 15 IN THE HIGHER SAVE 00420000 * AREA */ 00430000 * DCL THELCT PTR(31) /*LCT POINTER IS IN REG ONE ON 00440000 * ENTRY AND THIS FORCES BSL TO 00450000 * RESTORE REGISTER ONE AFTER THE 00460000 * GETMAIN FOR OUR SAVE AREA */ 00470000 * GEN(EJECT); 00480000 EJECT 00490000 DS 0H 00500000 ** DECLARE 00510000 ** 1 LCT BASED(LCTPTR) BDY(WORD), 00520000 ** 3 LCTQDRTY PTR(31), 00530000 ** 5 * BIT(8), /* LPMOD VALUE USED WHEN 00540000 ** ATTACHING PROBLEM PROGRAM * 00550000 ** 5 * PTR(24), /* ADDRESS OF THE JOB'S CSCB * 00560000 ** 3 LCTSRTAD PTR(31), 00570000 ** 5 * BIT(8), 00580000 ** 5 * PTR(24), /* SRT ADDRESS * 00590000 ** 3 LCTTCBAD PTR(31), 00600000 ** 5 * BIT(8), 00610000 ** 5 * PTR(24), /* JOB STEP TCB ADDRESS * 00620000 ** 3 LCTQENTY PTR(31), 00630000 ** 5 * BIT(8), 00640000 ** 7 * BIT(1), /* UNUSED * 00650000 ** 7 * BIT(1), /* USED IN CONJUCTION WITH NOSEP * 00660000 ** 7 * BIT(1), /* DEVICE WAIT RECOVERY * 00670000 ** 7 * BIT(1), /* SPACE WAIT RECOVERY * 00680000 ** 7 * BIT(1), /* UNUSED * 00690000 ** 7 * BIT(1), /* UNUSED * 00700000 ** 7 * BIT(1), /* UNUSED * 00710000 ** 7 LCTERRM BIT(1), /* JOB TERMINATION STATUS * 00720000 ** 5 * PTR(24), /* ADDRESS OF LINKOR'S 00730000 ** SAVE AREA * 00740000 ** 3 LCTJCTAD PTR(31), 00750000 ** 5 * BIT(8), 00760000 ** 5 * PTR(24), /* JOB CONTROL TABLE ADDRESS * 00770000 ** 3 LCTSCTAD PTR(31), 00780000 ** 5 * BIT(8), 00790000 ** 5 * PTR(24), /* STEP CONTROL TABLE ADDRESS * 00800000 ** 3 LCTSCTDA PTR(31), 00810000 ** 5 * BIT(8), 00820000 ** 5 * PTR(24), /* CURRENT SCT DISK ADDRESS * 00830000 ** 3 LCTPSPAR PTR(31), 00840000 ** 5 * BIT(8), 00850000 ** 5 * PTR(24), /* ADDRESS OF ALLOC/TERM 00860000 ** COMMUNICATION AREA * 00870000 ** 3 LCTERROR FIXED(31), /* ERROR CODES * 00880000 ** 3 LCTPARM1 FIXED(31), /* MULTI USE PARAMETER FIELD * 00890000 ** 3 LCTPARM2 FIXED(31), /* MULTI USE PARAMETER FIELD * 00900000 ** 3 LCTPARM3 FIXED(31), /* MULTI USE PARAMETER FIELD * 00910000 ** 3 LCTPARM4 FIXED(31), /* MULTI USE PARAMETER FIELD * 00920000 ** 3 LCTCMCBA PTR(31), 00930000 ** 5 * BIT(8), 00940000 ** 5 * PTR(24), /* CORE ADDRESS OF CONTROL 00950000 ** BYTES FOR CORE MANAGEMENT * 00960000 ** 3 LCTNSPAD BIT(8), /* NON SETUP PADDING BYTE * 00970000 ** 3 LCTJFCBH BIT(8), /* JFCB HOUSEKEEPING BYTE * 00980000 ** 5 LCTS2PEM BIT(1), /* FIRST PDQ TABLE ENTRY MADE * 00990000 ** 5 LCTS2COP BIT(1), /* CORE OBTAINED FOR PDQ TABLE * 01000000 ** 5 LCTS2FES BIT(1), /* FIRST ENTRY IN PDQ FOR STEP * 01010000 ** 5 * BIT(1), 01020000 ** 5 * BIT(1), 01030000 ** 5 * BIT(1), 01040000 ** 5 * BIT(1), 01050000 ** 5 * BIT(1), 01060000 ** 3 LCTSNUMB PTR(8), /* CURRENT STEP NUMBER * 01070000 ** 3 LCTACTON PTR(8), /* ACTION CODE * 01080000 ** 3 LCTSMBAD PTR(31), 01090000 ** 5 * BIT(8), 01100000 ** 5 * PTR(24), /* SMB ADDRESS * 01110000 ** 3 LCTBATMN FIXED(31), /* USED IN GENERATING A UNIQUE 01120000 ** VOLUME SERIAL NUMBER WHEN 01130000 ** THE USER DOESN'T SPECIFY ONE 01140000 ** ON HIS DD CARD AND DOES 01150000 ** SPECIFY A PASSED DATA SET ON 01160000 ** UNLABELED TAPE. * 01170000 ** 3 LCTSOQMP PTR(31), 01180000 ** 5 * BIT(8), 01190000 ** 5 * PTR(24), /* ADDRESS OF MESSAGE CLASS 01200000 ** QUEUE MGR PARAMETER AREA * 01210000 ** 3 LCTRTRN PTR(31), 01220000 ** 5 * BIT(8), 01230000 ** 5 * PTR(24), /* RETURN ADDRESS TO MASTER 01240000 ** SCHEDULER(FOR STOP 01250000 ** INITIATOR) * 01260000 ** 3 LCTCSCB PTR(31), 01270000 ** 5 LCTINTSW BIT(8), /* INITIATOR INTERNAL SWITCH * 01280000 ** 7 LCTIHIER BIT(1), /* RUN IN HIERARCHY ONE * 01290000 ** 7 * BIT(1), 01300000 ** 7 LCTSDOXX BIT(1), /* ATTACH IEFSDOXX * 01310000 ** 7 LCTMINRG BIT(1), /* JOB FLUSH - USE MINPAR * 01320000 ** 7 LCTSTART BIT(1), /* TASKNAME NOT FOUNND ON 01330000 ** COMMAND * 01340000 ** 7 LCTSTOP BIT(1), /* INITIATOR INTERNAL STOP * 01350000 ** 7 * BIT(1), 01360000 ** 7 * BIT(1), 01370000 ** 5 * PTR(24), /* ADDRESS OF INITIATOR CSCB * 01380000 ** 3 LCTTMWRK CHAR(16), /* TIMER WORK AREA * 01390000 ** 3 LCTJOBLB PTR(31), 01400000 ** 5 * BIT(8), 01410000 ** 5 * PTR(24), /* POINTER TO JOBLIB OR 01420000 ** STEPLIB DCB * 01430000 ** 3 LCTATLST PTR(31), 01440000 ** 5 * BIT(8), 01450000 ** 5 * PTR(24), /* ADDRESS OF ALLOCATE/TERMINATE 01460000 ** PARAMETER LIST * 01470000 ** 3 REGSAVE (36)FIXED(31), /* ALLOC/TERM REGISTER 01480000 ** SAVE AREA * 01490000 ** 3 QMGR1 (9) FIXED(31), /* QUEUE MGR PARAMETER AREA * 01500000 ** 3 QMGR2 (9) FIXED(31), /* ALTERNATE Q-MGR PARM AREA * 01510000 ** 3 TRSTKINF (2) FIXED(31), /* TRACK STACKING AND QUEUE 01520000 ** BREAK INFORMATION * 01530000 ** 3 LCTECBAD PTR(31), 01540000 ** 5 * BIT(8), 01550000 ** 5 * PTR(24), 01560000 ** 3 LCTIDENT (2)FIXED(31), /* HOLDER FOR IDENTIFIER * 01570000 ** 3 LCTFORCE (2)FIXED(31), /* POSSIBLE FORCE VALUES * 01580000 ** 3 LCTLIMIT CHAR(1), /* LIMIT VALUE * 01590000 ** 3 FRCPRTY CHAR(1), /* FORCE PARITY HOLDER * 01600000 ** 3 INITPRTY CHAR(1), /* INITIATOR'S PRIORITY * 01610000 ** 3 LCTENTR PTR(31), 01620000 ** 5 LCTOPSW1 BIT(8), /* INITIATOR OPTION BYTE 1 * 01630000 ** 7 LCTPKEYF BIT(1), /* DON'T GET PROTECT KEY * 01640000 ** 7 LCTDWFF BIT(1), /* DON'T PROCESS DEDICATED 01650000 ** WORK FILE * 01660000 ** 7 LCTSTMDF BIT(1), /* DON'T PROCESS STOP/MODIFY * 01670000 ** 7 LCTMINPF BIT(1), /* GET REGION SIZE SPECIFIED * 01680000 ** 7 LCTCANF BIT(1), /* ALLOW CANCEL ONLY AT ALLOC * 01690000 ** 7 LCTONEJF BIT(1), /* PROCESS ONLY ONE JOB * 01700000 ** 7 LCTICMDF BIT(1), /* DON'T PROCESS INIT'S CMDS * 01710000 ** 7 * BIT(1), 01720000 ** 5 * PTR(24), /* INITIATOR EXIT LIST * 01730000 ** 3 LCTCOM PTR(31), 01740000 ** 5 LCTOPSW2 BIT(8), /* INITIATOR OPTION BYTE 2 * 01750000 ** 7 LCTTIMEF BIT(1), /* DON'T TIME THIS * 01760000 ** 7 LCTCRF BIT(1), /* DON'T ALLOW CHECK/RESTART * 01770000 ** 7 LCTDSOF BIT(1), /* DON'T PROCESS DSO * 01780000 ** 7 LCTINTH0 BIT(1), /* INIT IN HIERARCHY ZERO * 01790000 ** 7 LCTINTH1 BIT(1), /* INIT IN HIERARCHY ONE * 01800000 ** 7 * BIT(1), 01810000 ** 7 * BIT(1), 01820000 ** 7 * BIT(1), 01830000 ** 5 * PTR(24), /* COMMUNICATIONS PARAMETER 01840000 ** AREA POINTER * 01850000 ** 3 LCTJSCB PTR(31), 01860000 ** 5 LCTOPSW3 BIT(8), /* INITITIATOR OPTION BYTE THREE * 01870000 ** 7 * BIT(1), /* UNUSED * 01880000 ** 7 * BIT(1), /* UNUSED * 01890000 ** 7 * BIT(1), /* UNUSED * 01900000 ** 7 * BIT(1), /* UNUSED * 01910000 ** 7 * BIT(1), /* UNUSED * 01920000 ** 7 LCTTRSTK BIT(1), /* INDICATES THAT TRACK STACKING 01930000 ** IS IN * 01940000 ** 7 * BIT(1), /* UNUSED * 01950000 ** 7 * BIT(1), /* UNUSED * 01960000 ** 5 * PTR(24), /* ADDRESS OF JSCB * 01970000 ** 3 * (4) FIXED(31); /* UNUSED IN MVT - PART OF ECB 01980000 ** LIST IN MFT * 01990000 **/* THESE FIELDS ARE EQUATED TO FIELDS IN THE STRUCTURE AND AS * 02000000 **/* SUCH MAY NOT APPEAR IN THE STRUCTURE * 02010000 ** DECLARE 02020000 ** LCTWORKA BASED(ADDR(LCTSCTDA)), /* MINSYS 3 INSERT * 02030000 ** LCTSTIND BASED(ADDR(LCTNSPAD)), /* STATUS INDICATOR * 02040000 ** LCTSMF BASED(ADDR(LCTTMWRK)+8), /* POINTER TO DEVICES USED 02050000 ** OR TO JMR * 02060000 ** LCTPIB BASED(ADDR(LCTIDENT)), 02070000 ** LCTSPIL BASED(ADDR(LCTIDENT)+4), 02080000 ** LCTECBLT BASED(ADDR(LCTFORCE)); /* MFT ONLY * 02090000 * GEN(EJECT); 02100000 EJECT 02110000 DS 0H 02120000 * GEN(EJECT); 02130000 EJECT 02140000 DS 0H 02150000 **/* 02160000 ** USE OF THIS MAPPING MACRO IN BSL CAN BE FACILITATED BY USING 02170000 ** MACRO IEZIELDF WHICH DECLARES THE DEFAULT VALUES FOR THE IEL 02180000 ** EXITS. THE CALLING SEQUENCE FOR IEZIELDF AND IEZIEL IS: 02190000 ** % INCLUDE SYSLIB(IEZIELDF), 02200000 ** (SPECIFY EXIT LISTS TO BE GENERATED LEAVING OUT REFERENCES TO 02210000 ** EXITS WHICH ARE NOT TO BE GENERATED) 02220000 ** % RTNEXIT = 'Y', - RETURN EXIT 02230000 ** % PREEXIT = 'Y', - PRE INITIATION EXIT 02240000 ** % PSTEXIT = 'Y', - POST INITIATION EXIT 02250000 ** % INCLUDE SYSLIB(IEZIEL), 02260000 ** * 02270000 **/* **************************************************************** * 02280000 **/* * 02290000 **/* INITIATOR CONTROL INTERFACE * 02300000 **/* * 02310000 **/* RELEASE 20, 3/22/71, LEVEL=1 * 02320000 **/* RELEASE 21, 6/08/71, LEVEL=2 * 02330000 **/* **************************************************************** * 02340000 ** DECLARE 02350000 ** 1 IEL BASED (LCTENTR) BDY(DWORD), 02360000 ** 2 IELLIST CHAR(24) BDY(DWORD), 02370000 **/* **************************************************************** * 02380000 **/* * 02390000 **/* INITIATOR ENTRANCE LIST * 02400000 **/* * 02410000 **/* **************************************************************** * 02420000 ** 3 IELPARM PTR (31), /*ADDRESS OF 'PARM' FIELD*/ 02430000 ** 3 IELCSCB PTR (31), /*ADDRESS OF CSCB*/ 02440000 ** 3 IELOPLST PTR (31), /*ADDRESS OF INITIATOR OPTION LIST*/ 02450000 ** 3 IELQMPA PTR (31), /*ADDRESS OF QUEUE MGR PARAMETER AREA*/ 02460000 ** 3 IELJCT PTR (31), /*ADDRESS OF JOB CONTROL TABLE*/ 02470000 ** 3 IELEXIT PTR (31), /*ADDRESS OF INITIATOR EXIT LIST*/ 02480000 ** 4 IELLAST CHAR (1), /*SYMBOL USED TO SET HIGH ORDER BIT 02490000 ** INDICATING END OF LIST*/ 02500000 ** 5 IELEND BIT (1), /*HIGH ORDER BIT*/ 02510000 ** 5 * BIT (7); 02520000 **/* **************************************************************** * 02530000 **/* * 02540000 **/* INITIATOR OPTION LIST * 02550000 **/* * 02560000 **/* **************************************************************** * 02570000 ** DECLARE 02580000 ** 1 IELOPTS CHAR (8) BASED (IELOPLST) BDY (DWORD), 02590000 ** 3 IELOPLEN FIXED (15), /*LENGTH OF OPTION LIST*/ 02600000 ** 3 IELOPSW1 CHAR (1), /*OPTION SWITCH ONE*/ 02610000 ** 4 IELPKEYF BIT (1), /*INIT TO ATTACH TASK IN PROTECT KEY 02620000 ** PROVIDED IN IELPKEY*/ 02630000 ** 4 IELDWFF BIT (1), /*DO NOT USE DEDICATED WORK FILES*/ 02640000 ** 4 IELSTMDF BIT (1), /*DO NOT PROCESS STOP OR MODIFY COMMANDS* 02650000 ** 4 IELMINPF BIT (1), /*GET REGION EVEN IF LESS THAN MINPART*/ 02660000 ** 4 IELCANF BIT (1), /*SUPPRESS CANCEL EXCEPT DURING ALLOCATE* 02670000 ** 4 IELONJF BIT (1), /*PROCESS ONLY ONE JOB*/ 02680000 ** 4 IELICMDF BIT (1), /*BYPASS PROCESSING OF START/MODIFY CIB 02690000 ** AND CHECK OF 'PARM' INFORMATION*/ 02700000 ** 4 IELWTPF BIT (1), /*SET UP WRITE-TO-PROGRAMMER CHAIN*/ 02710000 ** 02720000 ** 3 IELOPSW2 CHAR (1), /*OPTION SWITCH TWO*/ 02730000 ** 4 IELTIMEF BIT (1), /*DO NOT TIME STEPS*/ 02740000 ** 4 IELCRF BIT (1), /*DO NOT PROCESS CHECKPOINT/RESTART*/ 02750000 ** 4 IELDSOF BIT (1), /*SUPPRESS DIRECT SYSOUT*/ 02760000 ** 4 IELINTH0 BIT (1), /*INIT TO RUN IN HIERARCHY ZERO*/ 02770000 ** 4 IELINTH1 BIT (1), /*INIT TO RUN IN HIERARCHY ONE*/ 02780000 ** 4 IELOTSTK BIT (1), /*INIT TO USE TRACK STACKING*/ 02790000 ** 4 IELONORC BIT (1), /*BYPASS ALLOCATION RECOVERY*/ 02800000 ** 4 IELOENQU BIT (1), /*DO NOT WAIT FOR DATA SETS*/ 02810000 ** 02820000 ** 3 IELPKEY CHAR (1), /*PROTECT KEY FOR ATTACHED TASK (HEX)*/ 02830000 ** 02840000 ** 3 IELOPSW3 CHAR (1), /*OPTION SWITCH THREE*/ 02850000 ** 4 IELONOQW BIT (1), /*DO NOT WAIT FOR JOB QUEUE SPACE*/ 02860000 ** 4 IELCLEAR BIT(1), /* MANDATORY REGION CLEARING IS IN 02870000 ** EFFECT FOR THIS CALL OF THE JOB 02880000 ** SCHEDULING SUBROUTINE * 02890000 ** 4 * BIT(6), /* RESERVED * 02900000 ** 02910000 ** 3 * CHAR (2); /*RESERVED*/ 02920000 **/* **************************************************************** * 02930000 **/* * 02940000 **/* INITIATOR EXIT LIST * 02950000 **/* * 02960000 **/* **************************************************************** * 02970000 **/* **************************************************************** * 02980000 **/* LINKAGE IDENTIFIERS * 02990000 **/* **************************************************************** * 03000000 **/* **************************************************************** * 03010000 **/* EXIT IDENTIFIERS * 03020000 **/* **************************************************************** * 03030000 **/* **************************************************************** * 03040000 **/* **************************************************************** * 03050000 ** DECLARE 03060000 ** 1 IELEXITS BDY(DWORD) BASED(IELEXIT), 03070000 ** 2 IELEXHDR BDY (WORD), /*EXIT LIST HEADER*/ 03080000 ** 3 IELXTLEN FIXED (15), /*EXIT LIST LENGTH*/ 03090000 ** 3 IELRTNCD CHAR (1), /*RETURN CODE*/ 03100000 ** 3 * CHAR (1), /*RESERVED*/ 03110000 ** 3 IELCOM PTR (31), /*ADDRESS OF ECB/CIB COMM LIST*/ 03120000 **/* **************************************************************** * 03130000 **/* **************************************************************** * 03140000 ** 2 RTNEXT CHAR (8) BDY (WORD), 03150000 ** 3 RTNEXLK CHAR (1), /*LINKAGE DEFINITION*/ 03160000 ** 3 RTNEXID CHAR (1), /*EXIT DEFINITION*/ 03170000 ** 3 RTNEXNM CHAR (6)BDY(WORD,3), /*EXIT NAME*/ 03180000 ** 4 * CHAR (2), 03190000 ** 4 RTNEXAD PTR (31), /*EXIT ADDRESS*/ 03200000 **/* **************************************************************** * 03210000 **/* **************************************************************** * 03220000 ** 2 PREEXT CHAR (8) BDY (WORD), 03230000 ** 3 PREEXLK CHAR (1), /*LINKAGE DEFINITION*/ 03240000 ** 3 PREEXID CHAR (1), /*EXIT DEFINITION*/ 03250000 ** 3 PREEXNM CHAR (6)BDY(WORD,3), /*EXIT NAME*/ 03260000 ** 4 * CHAR (2), 03270000 ** 4 PREEXAD PTR (31), /*EXIT ADDRESS*/ 03280000 **/* **************************************************************** * 03290000 **/* **************************************************************** * 03300000 ** 2 PSTEXT CHAR (8) BDY(WORD), 03310000 ** 3 PSTEXLK CHAR (1), /*LINKAGE DEFINITION*/ 03320000 ** 3 PSTEXID CHAR (1), /*EXIT DEFINITION*/ 03330000 ** 3 PSTEXNM CHAR (6)BDY(WORD,3), /*EXIT NAME*/ 03340000 ** 4 * CHAR (2), 03350000 ** 4 PSTEXAD PTR (31), /*EXIT ADDRESS*/ 03360000 **/* **************************************************************** * 03370000 ** 10 * CHAR(1); 03380000 * GEN(EJECT); 03390000 EJECT 03400000 DS 0H 03410000 ** /******************************************************************* 03420000 ** DEFINE THE JOB SCHEDULING WORK AREA 03430000 ** ******************************************************************** 03440000 ** DECLARE 03450000 ** 1 JSWA BASED(IELCOM) BOUNDARY(DWORD), 03460000 ** /*********************************************************** 03470000 ** LENGTH FIELD 03480000 ** ************************************************************ 03490000 ** 2 JSWALGTH FIXED(15), 03500000 ** /*********************************************************** 03510000 ** PRIMARY OPTIONS FLAG FIELD 03520000 ** ************************************************************ 03530000 ** 2 JSWAOPT BIT(8), 03540000 ** /* PROCESS 'TERM=TS' FLAG */ 03550000 ** 3 JSWATERM BIT(1), 03560000 ** /* TRACK STACKING FLAG */ 03570000 ** 3 JSWATRST BIT(1), 03580000 ** /* DEDICATED WORKFILES FLAG */ 03590000 ** 3 JSWAWKFI BIT(1), 03600000 ** /* RESERVED */ 03610000 ** 3 * BIT(1), 03620000 ** /* PROTECTION KEY OPTION FLAG */ 03630000 ** 3 JSWAPKO BIT(1), 03640000 ** /* BY-PASS ALLOCATION RECOVERY FLAG */ 03650000 ** 3 JSWANORC BIT(1), 03660000 ** /* FLAG TO INDICATE WHETHER THE JOB SCHEDULING * 03670000 ** /* SUBROUTINE IS TO CANCEL A JOB AUTOMATICALLY * 03680000 ** /* RATHER THAN WAITING FOR JOBQ SPACE. * 03690000 ** 3 JSWANOQW BIT(1), 03700000 ** /* FLAG TO INDICATE WHETHER THE JOB SCHEDULING * 03710000 ** /* SUBROUTINE IS TO CANCEL A JOB AUTOMATICALLY * 03720000 ** /* FOR A DATA SET TO BECOME AVAILABLE FOR THE * 03730000 ** /* JOB. * 03740000 ** 3 JSWAENQU BIT(1), 03750000 ** /*********************************************************** 03760000 ** SMF OPTIONS FLAG FIELD 03770000 ** ************************************************************ 03780000 ** 2 JSWASMF BIT(8), 03790000 ** /*********************************************************** 03800000 ** COMPOSITE FIELD 03810000 ** ************************************************************ 03820000 ** 2 JSWAJSEL POINTER(32), 03830000 ** /***************************************************** 03840000 ** SECONDARY OPTIONS FLAG FIELD 03850000 ** ****************************************************** 03860000 ** 3 JSWAOPT2 BIT(8), 03870000 ** /* PROHIBIT SYSTEM TASK FLAG */ 03880000 ** 4 JSWAPSYS BIT(1), 03890000 ** /* SUPPRESS SYSTEM TASK CONTROL MESSAGE FLAG */ 03900000 ** 4 JSWASMS1 BIT(1), 03910000 ** /* SUPPRESS 'INIT=JOBNAME' WARM START MESSAGE */ 03920000 ** 4 JSWASMS2 BIT(1), 03930000 ** /* RESERVED */ 03940000 ** 4 * BIT(5), 03950000 ** /***************************************************** 03960000 ** POINTER TO THE JOB SCHEDULING ENTRANCE LIST 03970000 ** ****************************************************** 03980000 ** 3 JSWAJSE1 POINTER(24), 03990000 ** /*********************************************************** 04000000 ** NAME OF THE JOB SCHEDULING SUBROUTINE MODULE TO WHICH 04010000 ** THE LAST XCTL WAS MADE 04020000 ** ************************************************************ 04030000 ** 2 JSWAMOD CHARACTER(8), 04040000 ** /*********************************************************** 04050000 ** POINTER TO THE TRACK STACK IF TRACK STACKING HAS BEEN 04060000 ** SPECIFIED. 04070000 ** ************************************************************ 04080000 ** 2 JSWATSTK POINTER(32), 04090000 ** 3 JSWANTRK POINTER(8), 04100000 ** 3 JSWATKST POINTER(24), 04110000 ** /*********************************************************** 04120000 ** THE PROTECTION KEY TO BE USED IF THE PROGRAM(S) INVOKE 04130000 ** FOR THIS JOB ARE NOT MENTIONED IN THE LINKAGE TABLE AN 04140000 ** IF THE PROTECTION KEY OPTION HAS BEEN SELECTED BY THE 04150000 ** INVOKER OF THE JOB SCHEDULING SUBROUTINE. 04160000 ** ************************************************************ 04170000 ** 2 JSWAPKEY POINTER(8), 04180000 ** /*********************************************************** 04190000 ** POINTER TO THE INPUT TIOT FOR THE JOB SCHEDULING 04200000 ** SUBROUTINE 04210000 ** ************************************************************ 04220000 ** 2 JSWATIOT POINTER(24), 04230000 ** /*********************************************************** 04240000 ** L-FORM OF THE XCTL MACRO-INSTRUCTION -- USED BY THE 04250000 ** MODULES OF THE JOB SCHEDULING SUBROUTINE WHICH USE XCT 04260000 ** TO PASS CONTROL TO ONE ANOTHER. 04270000 ** ************************************************************ 04280000 ** 2 JSWAXCTL BIT(64), 04290000 ** /* NEL POINTER USED INTERNALLY BY IEEVRCTL */ 04300000 ** 3 JSWANEL POINTER(32); 04310000 * GEN(EJECT); 04320000 EJECT 04330000 DS 0H 04340000 ** /******************************************************************* 04350000 ** /* DEFINE A JOB SCHEDULING ENTRANCE LIST * 04360000 ** /******************************************************************* 04370000 ** DECLARE 04380000 ** 1 JSEL BASED( JSWAJSEL), 04390000 ** 04400000 ** /* POINTER TO AN EBCDIC STRING, PRECEDED BY A 2-BYTE * 04410000 ** /* BINARY LENGTH FIELD. THIS CHARACTER STRING * 04420000 ** /* SPECIFIES OPTIONS OF THE JOB SCHEDULING SUBROUTINE * 04430000 ** /* THE FOLLOWING KEYWORD VALUES MAY APPEAR IN THE * 04440000 ** /* OPTIONS STRING * 04450000 ** 04460000 ** /* RCVRY OR NORCVRY WHERE THE FORMER SPECIFIES THAT ANY * 04470000 ** /* JOB PROCESSED BY THE JOB SCHEDULING SUBROUTINE IS * 04480000 ** /* TO BE CONSIDERED ELIGIBLE FOR ALLOCATION RECOVERY * 04490000 ** /* WHILE THE LATTER SPECIFIES THAT ANY JOB WHICH * 04500000 ** /* WOULD OTHERWISE REQUIRE ALLOCATION RECOVERY IN * 04510000 ** /* ORDER TO BE RUN IS TO BE FAILED. RCVRY IS THE * 04520000 ** /* DEFAULT VALUE. * 04530000 ** 04540000 ** /* DDTERM=TERM OR DDTERM=IGNORE WHERE THE FORMER * 04550000 ** /* SPECIFIES THAT ANY TERMINAL DD STATEMENTS FOR THE * 04560000 ** /* JOB ARE TO BE PROCESSED AS TERMINAL DD STATEMENTS * 04570000 ** /* WHILE THE LATTER SPECIFIES THAT SUCH DD * 04580000 ** /* STATEMENTS ARE TO BE TREATED AS THOUGH THE * 04590000 ** /* 'TERM=TS' HAD NOT BEEN CODED. * 04600000 ** 04610000 ** /* TSTACK OR NOTSTACK WHICH SPECIFIES THAT TRACK * 04620000 ** /* STACKING IS OR IS NOT TO BE USED DURING JOB * 04630000 ** /* SCHEDULING SUBROUTINE PROCESSING. NOTSTACK IS * 04640000 ** /* THE DEFAULT OPTION. * 04650000 ** 04660000 ** /* WKFILE OR NOWKFILE WHICH SPECIFIES THAT DEDICATED * 04670000 ** /* WORKFILE LOGIC IS OR IS NOT TO BE APPLIED DURING * 04680000 ** /* JOB SCHEDULING SUBROUTINE PROCESSING. NOWKFILE IS * 04690000 ** /* THE DEFAULT OPTION. * 04700000 ** 04710000 ** /* ENQ=USE OR ENQ=HAVE WHICH SPECIFIES THAT THE JOB(S) * 04720000 ** /* TO BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE * 04730000 ** /* ARE TO BE FAILED IF THE DATA SETS WHICH THEY * 04740000 ** /* REQUIRE CANNOT BE OBTAINED IMMEDIATELY OR CANNOT * 04750000 ** /* BE OBTAINED AT ALL RESPECIVELY. ENQ=HAVE IS THE * 04760000 ** /* DEFAULT OPTION. * 04770000 ** 04780000 ** /* QWAIT OR NOQWAIT WHICH SPECIFIES THAT THE JOB(S) TO * 04790000 ** /* BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE ARE * 04800000 ** /* ELIGIBLE OR INELIGIBLE TO WAIT FOR SYSJOBQE SPACE.* 04810000 ** /* (THIS OPTION IS ONLY PARTIALLY SUPPORTED IN * 04820000 ** /* RELEASE 20.) QWAIT IS THE DEFAULT OPTION. * 04830000 ** 2 JSELOPT POINTER(32), 04840000 ** 04850000 ** /* POINTER TO A JOB SCHEDULING OPTIONS LIST SPECIFYING * 04860000 ** /* OPTIONS OF THE JOB SCHEDULING SUBROUTINE * 04870000 ** 2 JSELJSOL POINTER(32), 04880000 ** 04890000 ** /* POINTER TO A CSCB TO BE USED DURING THE SCHEDULING * 04900000 ** /* OF THE JOB * 04910000 ** 2 JSELCSCB POINTER(32), 04920000 ** 04930000 ** /* POINTER TO A SOURCE OF JOB CONTROL LANGUAGE * 04940000 ** /* DESCRIBING THE JOB TO BE SCHEDULED * 04950000 ** 2 JSELJCL POINTER(32), 04960000 ** 04970000 ** /* POINTER TO A JOB SCHEDULING EXIT LIST SPECIFYING ANY * 04980000 ** /* SPECIAL EXIT ROUTINES WHICH ARE TO BE INVOKED DURING * 04990000 ** /* JOB SCHEDULING SUBROUTINE PROCESSING. * 05000000 ** 2 JSELJSXL POINTER(32), 05010000 ** 05020000 ** /* THIS IS A VARIABLE-LENGTH PARAMETER LIST, SO * 05030000 ** /* THE HIGH-ORDER BIT OF THE LAST POINTER MUST * 05040000 ** /* BE SET TO 1. * 05050000 ** 3 JSELEOL BIT(1); 05060000 * GEN(EJECT); 05070000 EJECT 05080000 DS 0H 05090000 ** /******************************************************************* 05100000 ** DEFINE THE JOB SCHEDULING EXIT LIST 05110000 ** ******************************************************************** 05120000 ** DECLARE 05130000 ** 1 JSXL BASED(JSELJSXL) BOUNDARY(WORD), 05140000 ** /*********************************************************** 05150000 ** LENGTH OF JSXL 05160000 ** ************************************************************ 05170000 ** 2 JSXLLGTH FIXED(15), 05180000 ** /*********************************************************** 05190000 ** RETURN CODE 05200000 ** ************************************************************ 05210000 ** 2 JSXLRCOD POINTER(8), 05220000 ** /*********************************************************** 05230000 ** RETURN CODE EXTENSION FIELD -- INDICATES ORIGIN OF 05240000 ** RETURN CODE 05250000 ** ************************************************************ 05260000 ** 2 JSXLRCXT POINTER(8), 05270000 ** /*********************************************************** 05280000 ** COMMON POINTER FOR COMMUNICATION BETWEEN EXIT 05290000 ** ROUTINES 05300000 ** ************************************************************ 05310000 ** 2 JSXLCOMM POINTER(32), 05320000 ** /*********************************************************** 05330000 ** ARRAY OF EXIT DEFINITIONS 05340000 ** ************************************************************ 05350000 ** 2 JSXLLDEF(256), 05360000 ** /***************************************************** 05370000 ** DEFINITION OF LINKAGE TO BE USED -- THE FOLLOWING 05380000 ** VALUES MAY BE USED IN THIS FIELD: 05390000 ** JSXNULL -- NO EXIT SPECIFICATION 05400000 ** JSXBR -- BRANCH TO ADDRESS 05410000 ** JSXLNK -- LINK TO NAME 05420000 ** JSXXCTL -- XCTL TO NAME 05430000 ** ****************************************************** 05440000 ** 3 JSXLLINK POINTER(8), 05450000 ** /***************************************************** 05460000 ** EXIT IDENTIFIER 05470000 ** ****************************************************** 05480000 ** 3 JSXLID BIT(8), 05490000 ** /************************************************** 05500000 ** POST-PROCESSING EXIT BIT 05510000 ** *************************************************** 05520000 ** 4 JSXPOST BIT(1), 05530000 ** /************************************************** 05540000 ** PRE-INVOCATION EXIT BIT 05550000 ** *************************************************** 05560000 ** 4 JSXPRINI BIT(1), 05570000 ** /************************************************** 05580000 ** POST-INVOCATION EXIT BIT 05590000 ** *************************************************** 05600000 ** 4 JSXPTINI BIT(1), 05610000 ** /************************************************** 05620000 ** SPECIAL ACCESS METHOD BIT 05630000 ** *************************************************** 05640000 ** 4 JSXRDRAM BIT(1), 05650000 ** /************************************************** 05660000 ** POST-SCAN EXIT BIT 05670000 ** *************************************************** 05680000 ** 4 JSXPTRDR BIT(1), 05690000 ** /************************************************** 05700000 ** RESERVED 05710000 ** *************************************************** 05720000 ** 4 * BIT(3), 05730000 ** /***************************************************** 05740000 ** LINKAGE DATA -- THE FOLLOWING VALUES MAY BE USED IN 05750000 ** THIS FIELD: 05760000 ** 1. IF THE SPECIFIED LINKAGE IS 'LINK' OR 'XCTL', 05770000 ** THEN THE 6-BYTE EBCDIC NAME OF THE ROUTINE TO BE 05780000 ** GIVEN CONTROL SHOULD BE PLACED IN THIS FIELD, 05790000 ** LEFT-JUSTIFIED AND PADDED WITH BLANKS IF 05800000 ** NECESSARY. 05810000 ** 2. IF THE SPECIFIED LINKAGE IS A 'BRANCH', THEN THE 05820000 ** ADDRESS OF THE ROUTINE TO RECEIVE CONTROL SHOULD 05830000 ** BE PLACED IN THIS FIELD, AND THE HIGH-ORDER 05840000 ** BYTES OF THIS FIELD SHOULD BE SET TO HEXIDECIMAL 05850000 ** ZEROS. 05860000 ** ****************************************************** 05870000 ** 3 JSXLDATA CHARACTER(6); 05880000 * GEN(EJECT); 05890000 EJECT 05900000 DS 0H 05910000 * /******************************************************************** 05920000 * /* THE LOGON WORK AREA WILL CONTAIN INFORMATION WHICH IS * 05930000 * /* NECESSARY FOR THE LOGON/LOGOFF PROCESSING ROUTINES. IT * 05940000 * /* WILL CONTAIN CONTROL BLOCK POINTERS, ENTRANCE LISTS AND * 05950000 * /* PARAMETER LISTS. * 05960000 * /* A 000000-999999 20032 * 05970000 * /******************************************************************** 05980000 * DECLARE 05990000 * 1 LWA BASED(JSXLCOMM), 06000000 * 2 LWAPPTR POINTER, /* ADDRESS OF THE LOGON WORK* 06010000 * /* AREA * 06020000 * 06030000 * 2 LWATJID FIXED(15), /* TJID USED BY IKJEFLS * 06040000 * /* FOR SEARCHIN THE LCE AND * 06050000 * /* THE CSCB CHAINS. * 06060000 * 2 * FIXED(15), /* RESERVED * 06070000 * /* FOR SEARCHIN THE LCE AND * 06080000 * /* THE CSCB CHAINS. * 06090000 * 2 LWAPRCB POINTER, /* ADDRESS OF THE REGION * 06100000 * /* CONTROL BLOCK * 06110000 * 2 LWAACCT POINTER, /* OFFSET TO ACCT FIELD IN * 06120000 * /* UADS * 06130000 * 2 LWAPSCB POINTER, /* ADDRESS OF THE PROTECTED * 06140000 * /* STEP CONTROL BLOCK * 06150000 * 2 LWAJSEL POINTER, /* ADDRESS OF THE JOB * 06160000 * /* SCHEDULING ENTRANCE LIST * 06170000 * 2 LWAPECT POINTER, /* ADDRESS OF THE ECT * 06180000 * 2 LWAAECB, /* EVENT CONTROL BLOCK FOR * 06190000 * /* THE LOGON/LOGOFF * 06200000 * /* PROMPTING TASK * 06210000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 06220000 * /* LOGOFF CODE * 06230000 * 3 LWAABCE BIT(8),/* COMPLETION CODE BYTE * 06240000 * 2 LWAPECB, /* COMMUNICATIONS ECB * 06250000 * /* FOR COMMUNICATION FROM * 06260000 * /* THE PROMPTING TASK TO * 06270000 * /* THE SCHEDULING TASK * 06280000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 06290000 * /* LOGOFF CODE * 06300000 * 3 LWAPBCE BIT(8),/* COMPLETION CODE BYTE * 06310000 * 2 LWASECB, /* COMMUNICATIONS ECB * 06320000 * /* FOR COMMUNICATION FROM * 06330000 * /* THE SCHEDULING TASK TO * 06340000 * /* THE PROMPTING TASK * 06350000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 06360000 * /* LOGOFF CODE * 06370000 * 3 LWASBCE BIT(8),/* COMPLETION CODE BYTE * 06380000 * 2 LWAFLGS BIT(32), /* FLAGS FOR USE BY LOGON * 06390000 * 3 * BIT(8), 06400000 * 3 * BIT(8), 06410000 * 3 * BIT(8), 06420000 * 3 * BIT(8), 06430000 * 4 * BIT(1), 06440000 * 4 * BIT(1), 06450000 * 4 * BIT(1), 06460000 * 4 LWALTBC BIT(1),/* LIST BC IN CONTROL * 06470000 * 4 LWATNBT BIT(1),/*USED TO INDICATE CANCEL* 06480000 * /*BY THE ATTENTION EXIT * 06490000 * /*ROUTINE. * 06500000 * 4 LWASTAY BIT(1),/*SET BY IKJEFLS1 TO * 06510000 * /*INDICATE TO IKJEFLS * 06520000 * /*THAT NO FURTHER RE- * 06530000 * /*TRYS BE ATTEMPTED. * 06540000 * 4 LWAINX1 BIT(1),/*IVE ROUTINE IN CNTRL. * 06550000 * 4 LWAILGN BIT(1),/*INITIAL LOGON INDICATOR* 06560000 * 2 LWAPTID POINTER, /* PROMPTING TASK IDENTIFIER* 06570000 * /* RETURNED BY ATTACH * 06580000 * 2 LWACTLS BIT(32), /* CONTROL BIT STRING FOR * 06590000 * /* LOGON PROMPTING TASK * 06600000 * 06610000 * 3 LWAUFAI BIT(1), /*INDICATES UNSUCCESSFUL ENQ* 06620000 * /*ON THE RESOURCE ' SYSUADS * 06630000 * /*USERID ' * 06640000 * 3 LWARFAI BIT(1), /*INDICATES AN UNSUCCESSFUL * 06650000 * /*ATTEMPT TO OBTAIN A REGION* 06660000 * /*SUITABLE TO SATISFY THE * 06670000 * /*PREVIOUS LOGON REQUEST. * 06680000 * 3 LWAFAIL BIT(1), /*INDICATES AN UNSUCCESSFUL * 06690000 * /*ATTEMPT TO OBTAIN A SYSTEM* 06700000 * /*RESOURCE.IDENTIFIED BY ANY* 06710000 * /*OTHER BIT. * 06720000 * 3 LWADISC BIT(1), /*INDICATES THAT LOGON IS TO* 06730000 * /*TERMINATE AND DISCONNECT * 06740000 * /*THE TERMINAL. * 06750000 * 3 LWANOPR BIT(1), /*IF BIT IS ONE AN INSTALLA-* 06760000 * /*TION EXIT ROUTINE HAS * 06770000 * /*PROVIDED USERID,PASSWORD, * 06780000 * /*ACCOUNT,PROCEDURE CHARAC- * 06790000 * /*TER STRINGS AND A REGION * 06800000 * /*SIZE FOR USE IN SCHEDULING* 06810000 * /*A TERMINAL JOB. * 06820000 * 3 LWANUAD BIT(1), /*IF THIS BIT IS ONE AND THE* 06830000 * /*BIT LWANOPR IS ALSO ONE NO* 06840000 * /*ACCESS OF THE UADS SHOULD * 06850000 * /*BE MADE FOR THIS TERMINAL * 06860000 * /*JOB. * 06870000 * 3 LWAJJCL BIT(1), /*JCL FOR TERMINAL JOB WAS * 06880000 * /*SUPPLIED BY AN INSTALLA- * 06890000 * /*TION EXIT ROUTINE. * 06900000 * 3 LWAPSCA BIT(1), /*PSCB ACOUNTING INFORMATION* 06910000 * /*SUPPLIED BY INSTALLATION * 06920000 * /*EXIT ROUTINE. * 06930000 * 3 LWAATR1 BIT(1), /*INFORMATION FOR THE ATR1 * 06940000 * /*FIELD OF THE PSCB WAS SUP-* 06950000 * /*PLIED BY AN INSTALLATION * 06960000 * /*EXIT ROUTINE. * 06970000 * 3 LWAATR2 BIT(1), /*INFORMATION FOR THE ATR2 * 06980000 * /*FIELD OF THE PSCB WAS SUP-* 06990000 * /*PLIED BY AN INSTALLATION * 07000000 * /*EXIT ROUTINE. * 07010000 * 3 LWAUNIT BIT(1), /*INFORMATION FOR TJBXUNIT * 07020000 * /*FIELD OF THE TJBX WAS SUP-* 07030000 * /*PLIED BY AN INSTALLATION * 07040000 * /*EXIT ROUTINE. * 07050000 * 3 LWABUPT BIT(1), /*INFORMATION FOR USER PRO- * 07060000 * /*FILE TABLE WAS SUPPLIED BY* 07070000 * /*AN INSTALLATION EXIT RTN. * 07080000 * 3 LWANONQ BIT(1), /*LOGON WILL NOT MAINTAIN AN* 07090000 * /*ENQ ON THE RESOURCE'SYSUAD* 07100000 * /*USERID' DURING THE USER'S * 07110000 * /*SESSION. * 07120000 * 3 * BIT(19), /*THESE BITS ARE RESERVED * 07130000 * 2 LWARTCD FIXED(31), /* RETURN CODE SET BY JKEFLK* 07140000 * 2 LWAPROC PTR(31), /* OFFSET TO PROCEDURE FIELD* 07150000 * /* IN THE UADS. * 07160000 * 2 LWAATXR PTR(31), /* ADDR ATTENTION EXIT RTN. * 07170000 * /* IKJEFLG * 07180000 * 2 LWAMSGR PTR(31), /* ADDR MESSAGE OUTPUT RTN. * 07190000 * /* IKJEFLGM * 07200000 * 2 LWAPP00 PTR(31), /* ADDR OF IKJEFLP00 * 07210000 * 2 LWABLDL, /* BUILD L LIST * 07220000 * 3 LWABLNO CHAR(2), /* NUMBER ENTRIES IN LIST * 07230000 * 3 LWABLEN CHAR(2), /* LENGTH OF 1 ENTRY * 07240000 * 3 LWABNAME CHAR(8),/* NAME FOR BUILD L * 07250000 * 2 LWATTRK, /* RETURN SLOT FOR TTR * 07260000 * 3 LWABLTT PTR(16), /* RELATIVE TRACK * 07270000 * 3 LWABLR PTR(8), /* BLOCK NUMBER ON TRACK * 07280000 * 3 LWABLK PTR(8), /* CONCATENATION NUMBER * 07290000 * 2 LWABLDZ BIT(8), /* LIBRARY TYPE: 0=PRIVATE * 07300000 * /* 1=LINKLIB * 07310000 * /* 2=JOBLIB * 07320000 * 2 LWABLDC BIT(8), /* 0=ALIAS, 1=MEMBER NAME * 07330000 * 2 LWADATA CHAR(42), /* USER DATE AREA * 07340000 * 2 LWANAME, /* EPLOC FOR ATTACH/XCTL * 07350000 * /* NAME * 07360000 * 3 LWARNML CHAR(1), /* USED FOR MINOR * 07370000 * /* RESOURCE NAME * 07380000 * /* LENGTH TO ENQ/DEQ * 07390000 * 3 LWARNM CHAR(7), /* USED FOR MINOR * 07400000 * /* RESOURCE NAME * 07410000 * /* IMAGE * 07420000 * 2 LWAATCH, /* ATTACH LIST * 07430000 * 3 LWAALST CHAR(52),/* ATTACH PARM LIST * 07440000 * 2 LWANQDQ CHAR(12), /* USED FOR ENQ/DEQ * 07450000 * /* PARAMETER LIST * 07460000 * 2 LWASLST CHAR(12), /* STAE CONTROL LIST * 07470000 * 2 LWAPNOT PTR(31), /* ADDR. OF NOTICE CHAIN * 07480000 * 2 LWAPMAL PTR(31), /* ADDR. OF MESSAGE CHAIN * 07490000 * 2 LWAELST, /* ECB LIST HEADER * 07500000 * 3 LWAAECBP PTR(31), /* PTR TO LWAAECB * 07510000 * 3 LWAPECBP PTR(31), /* PTR TO LWAPECB * 07520000 * 4 LWAEOEL BIT(1), /* END OF LIST BIT * 07530000 * 2 LWASARA PTR(31), /* ADDR STAE/STAI SAVE AREA * 07540000 * 2 LWARCDE FIXED(31), /* RTN CODE SET BY IKJEFLJ * 07550000 * 2 LWASTCK, /* TRACK STACKING INFO * 07560000 * 3 LWABFNO CHAR(1),/* NUMBER OF 2K BLOCKS * 07570000 * 3 LWASKAD PTR(24),/* ADDRESS OF THE STACK * 07580000 * 2 LWARES6 FIXED(31), /* RESERVED WORD * 07590000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 07600000 * /* THE FOLLOWING AREA OF THIS MACRO WILL BE USED AS THE ENTRY CODE * 07610000 * /* TO IKJEFLS1 (STAE RETRY ROUTINE). IT WILL BE EXECUTED WHENEVER * 07620000 * /* STAE NEGLECTS TO PASS IKJEFLS (STAE EXIT ROUTINE) A WORK AREA. * 07630000 * /* THE INSTRUCTIONS CONTAINED HEREIN ARE AS FOLLOWS: * 07640000 * /* USING *,15 BASE REGISTER FOR THIS CODE * 07650000 * /* LA R2,*+20 GET ADDRESS OF END OF LWA * 07660000 * /* LA R3,LWALEN GET LENGTH OF LWA * 07670000 * /* SR R2,R3 FIND START OF LWA * 07680000 * /* L R15,*+6 GET ENTRY POINT TO RETRY ROUTINE * 07690000 * /* BR R15 BRANCH TO REAL RETRY ROUTINE * 07700000 * /* DC F'0' ADDRESS OF STAE RETRY ROUTINE * 07710000 * /* DROP R15 RELEASE THE BASE REGISTER * 07720000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 07730000 * 2 LWAINST CHAR(16) BDY(WORD),/*AREA TO CONTAIN CODE * 07740000 * 2 LWARTRY PTR(31); /*ADDRESS OF STAE RETRY RTN * 07750000 * /******************************************************************** 07760000 * /* * 07770000 * /* I K J E F L J R E T U R N C O D E S * 07780000 * /* * 07790000 * /******************************************************************** 07800000 * /* IKJEFLJ COMPLETED NORMALLY * 07810000 * LWAJNRM: GEN(EQU 0); 07820000 LWAJNRM EQU 0 07830000 DS 0H 07840000 * /* JOB QUEUE ERROR * 07850000 * LWAQERR: GEN(EQU 4); 07860000 LWAQERR EQU 4 07870000 DS 0H 07880000 * /* GETMAIN ERROR * 07890000 * LWAGMER: GEN(EQU 8); 07900000 LWAGMER EQU 8 07910000 DS 0H 07920000 * /* OBTAIN ERROR * 07930000 * LWAOBTN: GEN(EQU 12); 07940000 LWAOBTN EQU 12 07950000 DS 0H 07960000 * /* CANCEL ECB POSTED * 07970000 * LWAATHP: GEN(EQU 16); 07980000 LWAATHP EQU 16 07990000 DS 0H 08000000 * /* MULTY STEP PROCEDURE * 08010000 * LWAMSPE: GEN(EQU 20); 08020000 LWAMSPE EQU 20 08030000 DS 0H 08040000 * /******************************************************************** 08050000 * /* * 08060000 * /* P O S T C O D E S F O R P E C B E C B * 08070000 * /* * 08080000 * /******************************************************************** 08090000 * /* INIT PHASE DONE POST CODE * 08100000 * INITDONE: GEN(EQU 4); 08110000 INITDONE EQU 4 08120000 DS 0H 08130000 * /* ENQ ON USER ID POST CODE * 08140000 * NQUSERID: GEN(EQU 8); 08150000 NQUSERID EQU 8 08160000 DS 0H 08170000 * /* DQ ON USER ID * 08180000 * DQUSERID: GEN(EQU 12); 08190000 DQUSERID EQU 12 08200000 DS 0H 08210000 * /* PHASE ONE PRONPTING DONE POST CODE * 08220000 * SCHEDULE: GEN(EQU 16); 08230000 SCHEDULE EQU 16 08240000 DS 0H 08250000 * /* MESSAGE BROADCASTING DONE POST CODE * 08260000 * BCDONE: GEN(EQU 20); 08270000 BCDONE EQU 20 08280000 DS 0H 08290000 * /* TERMINATE THE JOB POST CODE * 08300000 * TERMINAT: GEN(EQU 24); 08310000 TERMINAT EQU 24 08320000 DS 0H 08330000 * /******************************************************************** 08340000 * /* * 08350000 * /* P O S T C O D E S F O R S E C B E C B * 08360000 * /* * 08370000 * /******************************************************************** 08380000 * /* NQDQ RETURN CODES * 08390000 * NQDQ0: GEN(EQU 0); 08400000 NQDQ0 EQU 0 08410000 DS 0H 08420000 * /* NQDQ RETURN CODES * 08430000 * NQDQ4: GEN(EQU 4); 08440000 NQDQ4 EQU 4 08450000 DS 0H 08460000 * /* NQDQ RETURN CODES * 08470000 * NQDQ8: GEN(EQU 8); 08480000 NQDQ8 EQU 8 08490000 DS 0H 08500000 * /* START PHASE 1 PROMPTING * 08510000 * STARTP1: GEN(EQU 12); 08520000 STARTP1 EQU 12 08530000 DS 0H 08540000 * /* START PHASE 2 PROMPTING * 08550000 * STARTP2: GEN(EQU 16); 08560000 STARTP2 EQU 16 08570000 DS 0H 08580000 * /* INITATOR READY TO POST * 08590000 * INITRDY: GEN(EQU 20); 08600000 INITRDY EQU 20 08610000 DS 0H 08620000 * /* TERMINATE PROMPTING TASK * 08630000 * ENDTASK: GEN(EQU 24); 08640000 ENDTASK EQU 24 08650000 DS 0H 08660000 * GEN(EJECT); 08670000 EJECT 08680000 DS 0H 08690000 ** DECLARE 08700000 ** 1 PSCB BASED(LWAPSCB), 08710000 ** /* *************************************************************** * 08720000 ** /* THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND * 08730000 ** /* FILLED IN FROM THE UADS . A FIXED LENGTH TABLE WITH ATTRIBUTE * 08740000 ** /* AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- * 08750000 ** /* BUTES AND ACCOUNTING DATA ON A USERID BASIS. THE ADDRESS OF PS * 08760000 ** /* IS PASSED TO THE TMP. HENCE IT IS AN EXTERNAL INTERFACE * 08770000 ** /* *************************************************************** * 08780000 ** 08790000 ** 2 PSCBUSER CHAR(7) BDY(WORD), 08800000 ** /* USERID PADDED RIGHT WITH 08810000 ** BLANKS * 08820000 ** 2 PSCBUSRL PTR(8), /* LENGTH OF USERID * 08830000 ** 2 PSCBGPNM CHAR(8), /* ESOTERIC GROUP NAME INIT BY 08840000 ** LOGON FROM UADS USED BY DYN 08850000 ** ALLOC WHEN UNITNAME NOT 08860000 ** SPECIFIED BUT IS REQUIRED * 08870000 ** 2 PSCBATR1 CHAR(2), /* A 15 BIT STRING OF USER 08880000 ** ATTRIBUTES * 08890000 ** 3 PSCBCTRL BIT(1), /* OPERATOR COMMAND USER * 08900000 ** 3 PSCBACCT BIT(1), /* ACCOUNT * 08910000 ** 3 PSCBJCL BIT(1), /* SUBMIT BITS * 08920000 ** 3 * BIT(1), /* RESERVED * 08930000 ** 3 * BIT(1), /* RESERVED * 08940000 ** 3 * BIT(1), /* RESERVED * 08950000 ** 3 * BIT(1), /* RESERVED * 08960000 ** 3 * BIT(1), /* RESERVED * 08970000 ** 2 PSCBATR2 CHAR(2), /* A 15 BIT STRING RESERVED FOR 08980000 ** INSTALLATION USE * 08990000 ** 2 PSCBCPU FIXED(31), /* CUMULATIVE CPU TIME USED 09000000 ** DURING SESSION * 09010000 ** 2 PSCBSWP FIXED(31), /* CUMULATIVE TIME RESIDENT IN 09020000 ** THE REGION * 09030000 ** 2 PSCBLTIM FIXED(31), /* ACTUAL LOGON TIME OF DAY * 09040000 ** 2 PSCBTCPU FIXED(31), /* TOTAL CPU TIME USED IN THIS 09050000 ** ACCOUNTING PERIOD,EXCLUDING 09060000 ** THE CURRENT SESSION. * 09070000 ** 2 PSCBTSWP FIXED(31), /* TOTAL TIME USER IS RESIDENT 09080000 ** IN THE REGION DURING THIS 09090000 ** ACCT. PER.,EXCL. THE CURR. 09100000 ** SES * 09110000 ** 2 PSCBTCON FIXED(31), /* TOTAL TIME USER IS CONNECTED 09120000 ** THIS ACCT. PERIOD,EXCLUDING 09130000 ** THIS CURR. SES * 09140000 ** 2 PSCBTCO1 FIXED(31), 09150000 ** 2 PSCBRLGB PTR(31), /* PTR TO RELOGON BUFFER * 09160000 ** 2 PSCBUPT PTR(31), /* PTR TO USER PROFILE TABLE * 09170000 ** 2 PSCBUPTL FIXED(15), /* LENGTH OF UPT * 09180000 ** 2 * BIT(16), /* RESERVED FOR IBM USE * 09190000 ** 2 PSCBRSZ POINTER(32), /* REGION SIZE REQUESTED IN 2K 09200000 ** UNITS * 09210000 ** 2 PSCBU CHAR(8); /* RESERVED FOR INSTALLATION 09220000 ** USE * 09230000 ** 09240000 ** 09250000 * GEN(EJECT); 09260000 EJECT 09270000 DS 0H 09280000 ** DECLARE 09290000 ** 1 RCB BASED(LWAPRCB), 09300000 ** 2 RCBRCT PTR(31), /* ADDR OF RCT'S TCB * 09310000 ** 2 RCBECB FIXED(31), /* RCT'S ECB * 09320000 ** 2 RCBDIECB FIXED(31), /* TSC'S ECB * 09330000 ** 2 RCBTJID FIXED(15), /* TERM JOB ID OF CURRENT TS 09340000 ** JOB EXEC IN REGION * 09350000 ** 2 RCBRSIZE FIXED(15), /* SIZE OF THIS TS REGION * 09360000 ** 2 RCBLSQSZ FIXED(15), /* SIZE OF LOCAL SQS FOR THIS 09370000 ** TS REGION * 09380000 ** 2 RCBNMBR CHAR(1), /* REGION NUMBER ASSIGNED TO 09390000 ** THIS REGION * 09400000 ** 2 RCBPKEY CHAR(1), /* PROTECT KEY OF CURRENT TS 09410000 ** JOB IN THIS REGION * 09420000 ** 2 RCBUMSMN CHAR(1), /* NO OF MAIN STORAGE MAP 09430000 ** ENTRIES * 09440000 ** 2 RCBFLG CHAR(1), /* FIRST BYTE OF RCB FLAGS * 09450000 ** 3 RCBFQU BIT(1), /* QUIESCE FLAG-CURR USER 09460000 ** SHOULD BE QUIESCED * 09470000 ** 3 RCBFSO BIT(1), /* SWAP OUT * 09480000 ** 3 RCBFSI BIT(1), /* SWAP IN USERS TJID IS IN THE 09490000 ** RCB * 09500000 ** 3 RCBFRS BIT(1), /* RESTORE FLAG-USER WHOSE TJID 09510000 ** IS IN THE RCB EQU EQU * 09520000 ** 3 RCBOCAB BIT(1), /* FUNCTION FLG SET BY IKJEAS02 09530000 ** TO INVOKE IKJEAT07 * 09540000 ** 3 RCBSTR3 BIT(1), /* TELLS T05 TO POST TSCECB4 TO 09550000 ** GET T06 OUT OF WAIT FROM 09560000 ** MODIFY COMMAND FOR REG STOP * 09570000 ** 3 RCBFAT BIT(1), /* ATTENTION EXIT- A ATTN EXIT 09580000 ** IS REQ FOR A USER * 09590000 ** 3 RCBFND BIT(1), /* END RCT - RCT SHOULD RETURN 09600000 ** TO TSC-NORMALLY * 09610000 ** 2 RCBFLG2 CHAR(1), /* SECOND BYTE OF RCB FLAGS * 09620000 ** 3 RCBFSE BIT(1), /* SWAP END FLAG-SWAP I/O HAS 09630000 ** COMPLETED * 09640000 ** 3 RCBSTOP BIT(1), /* REGION STOP REQUESTED * 09650000 ** 3 RCBACTV BIT(1), /* INDICATES ACTIVE RCT. SET TO 09660000 ** 1 BY RCT INIT RESET TO 0 BY 09670000 ** RCT TERM * 09680000 ** 3 RCBSTR1 BIT(1), /* INDICATES REGION START 09690000 ** REQUESTED; ATTACH AN RCT * 09700000 ** 3 RCBSTR2 BIT(1), /* INDICATES REGION START 09710000 ** REQUESTED; CREATE SWAP LOGON 09720000 ** IMAGE * 09730000 ** 3 RCBDEAD BIT(1), /* REGION TERMINATED ABNORMALLY * 09740000 ** 3 RCBLOGPR BIT(1), /* INDICATE LOGON IMAGE 09750000 ** PROCESSING IN IKJEAT03 * 09760000 ** 3 RCBMODFY BIT(1), /* INDICATE TO T03 MODIFY IN PROG 09770000 ** FOR THIS REG - DO NOT ACCEPT 09780000 ** ANOTH MODIFY UNTIL RESET BY R0 09790000 ** WHEN REG INIT COMPLETE OR R00 09800000 ** WHEN REG CANCELLED DUE TO 09810000 ** INSUFFICIENT CORE * 09820000 ** 2 RCBFBQE CHAR(1), /* USED TO SAVE NUMBER OF 09830000 ** FBQE'S * 09840000 ** 2 RCBUTTMQ FIXED(15), /* TT MAP QUE PTR TO LOC OF 09850000 ** LOGON IMAGE ON SWAP * 09860000 ** 2 RCBCUSE FIXED(15), /* NO OF USERS CURR LOGGED ON 09870000 ** IN THIS REGION TSC WILL 09880000 ** INCREMENT COUNT BEFORE 09890000 ** DISCONNECTTSC WILL DECREMENT 09900000 ** COUNT IN LOGON * 09910000 ** 2 RCBEXTNT PTR(31), /* PTR TO TJBX CREATED SURING 09920000 ** LOGON INIT FOR REG * 09930000 ** 2 RCBUMSM PTR(31), /* PTR TO MS MAP DESCRIBING 09940000 ** THIS REGION LOGON * 09950000 ** 2 RCBSDCB PTR(31), /* ADDR OF SWAP DS CONTROL 09960000 ** BLOCK * 09970000 ** 2 RCBPQE PTR(31), /* ADDR OF PQE PTR IN SQS-FOR 09980000 ** RCT'S REGION INIT * 09990000 ** 2 RCBPRG CHAR(12), /* SVC PURGE I/O PARM LIST * 10000000 ** 2 RCBQPL PTR(31), /* ADDR OF QUIESCE I/O * 10010000 ** 2 RCBSTECB FIXED(31), /* ECB WAITED ON BY THE TSC. 10020000 ** USED TO INDICATE END OF RTC 10030000 ** PROCESSING IN EVENT OF 10040000 ** SUBSYSTEM RECOVERY * 10050000 ** 2 RCBRCOVR CHAR(1), /* INDICATE CURRENT STATE OF 10060000 ** RCT FOR RECOVERY PURPOSES IN 10070000 ** EVENT SUBSYSTEM FAILURE * 10080000 ** 2 RCBRSFLG CHAR(1), /* INDICATORS FOR OUT OF CORE 10090000 ** ABEND * 10100000 ** 3 RCBRSTRT BIT(1), /* INDICATE RESTORE STARTED * 10110000 ** 3 RCBTCBDN BIT(1), /* INDICATE TCBS REQUEUED * 10120000 ** 3 RCBQELCM BIT(1), /* INDICATE QEL RESTORE 10130000 ** PROCESSING COMPLETE * 10140000 ** 3 RCBTQECM BIT(1), /* INDICATE TQE RESTORE 10150000 ** PROCESSING COMPLETE * 10160000 ** 4 RCBRQIQC BIT(1), /* INDICATE RQE AND IQE RESTORE 10170000 ** PROCESSING COMP * 10180000 ** 3 * BIT(1), /* RESERVED * 10190000 ** 3 RCBIORSC BIT(1), /* INDICATE I/O RESTORE 10200000 ** PROCESSING COMPLETE * 10210000 ** 3 RCBWTORC BIT(1), /* INDICATE WTOR RESTORE 10220000 ** PROCESSING COMPLETE * 10230000 ** 3 RCBTACMP BIT(1), /* INDICATE TRANSIENT AREA 10240000 ** RESTORE * 10250000 ** 2 RCBQUFLG CHAR(1), /* INDICATIONS FOR OUT OF CORE 10260000 ** ABEND * 10270000 ** 3 RCBQUSTR BIT(1), /* QUIESCE STARTED * 10280000 ** 3 RCBIOSTR BIT(1), /* INDICATE 1ST ENTRY I/O PURGE 10290000 ** COMPLETE * 10300000 ** 3 RCBTADON BIT(1), /* TRANSIENT AREA QUIESCE DONE * 10310000 ** 3 RCBWTORD BIT(1), /* WTOR QUIESCE DONE * 10320000 ** 3 RCBQELDN BIT(1), /* QEL QUIESCE DONE * 10330000 ** 3 RCBIODON BIT(1), /* INDICATE 2ND ENTRY I/O PURGE 10340000 ** COMPLETE * 10350000 ** 3 RCBTQEDN BIT(1), /* TQE QUIESCE * 10360000 ** 3 RCBRQIQD BIT(1), /* INDICATE IQE AND RQE 10370000 ** COMPLETE * 10380000 ** 2 RCBSWTCH CHAR(1), /* SET & RESET BY IKJEAT07 TO 10390000 ** INDICATE METHOD OF SEARCH BY 10400000 ** IKJEAT07 * 10410000 ** 3 * BIT(1), /* RESERVED * 10420000 ** 3 RCBSWTON BIT(1), /* WHEN SET WITH BIT 0 SEARCH 10430000 ** BY TJID & TCB ADDR * 10440000 ** 3 RCBEXTRN BIT(1), /* INDICATE USAGE OF EXTERNAL 10450000 ** BY IKJEAR02 AND IKJEAR03 * 10460000 ** 3 RCBRMSAL BIT(1), /* SOLID MACHINE CHECK IN USER 10470000 ** REGION * 10480000 ** 3 RCBRMS1U BIT(1), /* INTERMITTENT MACHINE CHECK 10490000 ** IN USER REGION * 10500000 ** 3 * BIT(1), /* RESERVED * 10510000 ** 3 * BIT(1), /* RESERVED * 10520000 ** 3 * BIT(1), /* RESERVED * 10530000 ** 2 RCBCONID CHAR(1), /* CONSOLE ID FOR START COMMAND 10540000 ** OR MODIFY COMMAND * 10550000 ** 2 RCBSTAEN CHAR(1), /* INDEX VALUE TO SCHEDULE STAE 10560000 ** RETRY ROUTINES FOR RCT * 10570000 ** 2 * CHAR(2); /* RESERVED * 10580000 ** 10590000 * GEN(EJECT); 10600000 EJECT 10610000 DS 0H 10620000 ** DECLARE 10630000 ** 1 TJBX BASED(RCBEXTNT), 10640000 ** 2 TJBXFST PTR(31), /* ADDR LOGON TCB WHICH IS 10650000 ** FIRST IN USER READY QUEUE * 10660000 ** 2 TJBXLAST PTR(31), /* ADDR LAST TCB IN USER READY 10670000 ** QUEUE * 10680000 ** 2 TJBXDSE PTR(31), /* ADDR OF DSE USED BY TSO'S 10690000 ** DYN ALLOC * 10700000 ** 2 TJBXSVRB PTR(31), /* ADDR FIRST SVRB PURGED FROM 10710000 ** TRANSIENT AREA QUEUE * 10720000 ** 2 TJBXRQE PTR(31), /* ADDR FIRST RQE PURGED FROM 10730000 ** ASYNCHRONOUS EXIT QUEUE A * 10740000 ** 2 TJBXIQE PTR(31), /* ADDR FIRST IQE PURGED FROM 10750000 ** ASYNCHRONOUS EXIT QUEUE J * 10760000 ** 2 TJBXTAXE FIXED(31), /* QUEUE OF TAXE'S USED TO 10770000 ** SCHEDULE ATTENTION EXITS * 10780000 ** 2 TJBXLECB FIXED(31), /* LOGON ECB POSTED BY RCT * 10790000 ** 2 TJBXPSWD CHAR(8), /* USERS LOGON PASSWORD-IF 10800000 ** BLANK-NOT REQUIRED * 10810000 ** 2 TJBXATTR PTR(31), /* PTR TO CHAIN OF ATTRCB'S USED 10820000 ** BY DYN ALLOC & CONTAINS DCB 10830000 ** INFO FOR ATTRIB COMMAND * 10840000 ** 2 TJBXAIQE PTR(31), /* ADDR ATTN IQE CURRENTLY 10850000 ** BEING PROCESSED * 10860000 ** 2 TJBXQPL PTR(31), /* ADDR QUIECSE PARM LIST * 10870000 ** 2 TJBXNQPE FIXED(15), /* NUMBER ENTRIES IN QPL * 10880000 ** 2 TJBXNTCB FIXED(15), /* NUMBER TCBS ACTIVE IN USER 10890000 ** JOB STEP * 10900000 ** 2 TJBXLQPL FIXED(15), /* LENGTH QPL * 10910000 ** 2 TJBXHBFL CHAR(1), /* CUR VAL OF LAST HOLDBUF 10920000 ** LEVEL. USED BY STAX SVC 10930000 ** ROUTINE * 10940000 ** 2 * CHAR(1), /* RESERVED * 10950000 ** 2 TJBXACT FIXED(31), /* TTR OF ACT ON SYSJOBQE * 10960000 ** 2 TJBXAECB PTR(31), /* POINTER TO LOGON/LOGOFF ECB 10970000 ** TO CSCB CANCEL ECB AFTER 10980000 ** CSCB IS CREATED * 10990000 ** 2 TJBXKEYA PTR(31); /* ADDRESS OF A STORAGE KEY SAVE 11000000 ** AREA USED BY RCT * 11010000 ** 11020000 * GEN(EJECT); 11030000 EJECT 11040000 DS 0H 11050000 ** DECLARE 11060000 ** 1 DSE BASED(DSEPTR), 11070000 ** /* *************************************************************** * 11080000 ** 11090000 ** 11100000 ** /* IS USED TO MAINTAIN DATA SET INFORMATION, SUCH AS THE DDNAME-- * 11110000 ** /* ME RELATIONSHIP. IT IS A SERIES OF CHAINED ELEMENTS EACH ONE * 11120000 ** /* ABLE IN SIZE DEPENDENT ON THE INFORMATION PRESENT. * 11130000 ** 11140000 ** 11150000 ** /* *************************************************************** * 11160000 ** 2 DSEFORWD PTR(31), /* ADDRESS OF NEXT DSE BLK(ZERO 11170000 ** IN LAST DSE) * 11180000 ** 2 DSEBCKWD PTR(31), /* ADDRESS OF PREV. DSE BLK 11190000 ** (ZERO IN FIRST DSE) * 11200000 ** 2 DSEBLKSZ FIXED(15), /* TOTAL NO. OF BYTES IN THIS 11210000 ** DSE BLK INCLUDES THIS FIELD 11220000 ** AND TWO PRIOR FIELDS * 11230000 ** 2 DSESTAT CHAR(1), /* THE ALLOCATED STATUS OF 11240000 ** THE DATA SET * 11250000 ** 3 * BIT(1), /* RESERVED * 11260000 ** 3 * BIT(1), /* RESERVED * 11270000 ** 3 * BIT(1), /* RESERVED * 11280000 ** 3 * BIT(1), /* RESERVED * 11290000 ** 3 DSESHR BIT(1), /* SHR * 11300000 ** 3 DSENEW BIT(1), /* NEW * 11310000 ** 3 DSEMOD BIT(1), /* MOD * 11320000 ** 3 DSEOLD BIT(1), /* OLD * 11330000 ** 2 DSECNTRL CHAR(1), /* STATUS OF DATA SETS WHEN 11340000 ** BITS ARE ON AS FOLLOWS * 11350000 ** 3 DSEDYN BIT(1), /* DATA SET ALLOCATED 11360000 ** DYNAMICALLY * 11370000 ** 3 DSENUSED BIT(1), /* DATA SET NOT IN USE * 11380000 ** 3 DSEMEM BIT(1), /* MEMBER FIELD IS PRESENT IN 11390000 ** THIS DSE * 11400000 ** 3 DSEDTIOT BIT(1), /* TIOT ENTRY IS DYNAM * 11410000 ** 3 DSECON BIT(1), /* DATA SET CONCATENATED 11420000 ** DYNAMICALLY * 11430000 ** 3 * BIT(1), /* RESERVED * 11440000 ** 3 DSEPERM BIT(1), /* DATA SET IS PERMAMENTLY 11450000 ** ALLOCATED EQU * 11460000 ** 3 * BIT(1), /* RESERVED * 11470000 ** 2 DSEDDNAM CHAR(8), /* DDNAME AS IT APPEARS IN TIOT * 11480000 ** 2 DSETCBAD PTR(31), /* ADD. OF TCB FOR CP WHICH 11490000 ** SECURED DYNAMIC ALLOC. * 11500000 ** 2 DSETTRPW FIXED(31), /* RELATIVE TTR OF PASSWD FOR 11510000 ** THIS FIELD IS ZERO. * 11520000 ** 2 DSENDISP CHAR(1), /* NORMAL DISPOSITION IND. BY 11530000 ** BIT SETTINGS: EQU EQU EQU 11540000 ** EQU * 11550000 ** 3 * BIT(1), /* RESERVED * 11560000 ** 3 * BIT(1), /* RESERVED * 11570000 ** 3 * BIT(1), /* RESERVED * 11580000 ** 3 * BIT(1), /* RESERVED * 11590000 ** 3 DSEKEP BIT(1), /* KEEP * 11600000 ** 3 DSEDEL BIT(1), /* DELETE * 11610000 ** 3 DSECAT BIT(1), /* CATLG * 11620000 ** 3 DSEUCAT BIT(1), /* UNCATLG * 11630000 ** 2 DSEADISP CHAR(1), /* ABNORMAL DISPOSITION IS IND. 11640000 ** BY SETTING BITS IN THIS 11650000 ** FIELD THE SAME AS IN 11660000 ** DSENDISP * 11670000 ** 3 * BIT(1), /* RESERVED */ 11680000 ** 3 * BIT(1), /* RESERVED */ 11690000 ** 3 * BIT(1), /* RESERVED */ 11700000 ** 3 * BIT(1), /* RESERVED */ 11710000 ** 3 DSEAKEP BIT(1), /* KEEP */ 11720000 ** 3 DSEADEL BIT(1), /* DELETE */ 11730000 ** 3 DSEACAT BIT(1), /* CATALOG */ 11740000 ** 3 DSEAUCAT BIT(1), /* UNCATALOG */ 11750000 ** 2 DSEDSORG CHAR(1), /* ORGANIZATION IND. BY 11760000 ** FOLLOWING BITS: * 11770000 ** 3 DSEIS BIT(1), /* INDEXED SEQUENTIAL * 11780000 ** 3 DSEPS BIT(1), /* PHYSICAL SEQUENTIAL * 11790000 ** 3 DSEDA BIT(1), /* DIRECT ORGANIZATION EQU EQU 11800000 ** EQU * 11810000 ** 3 * BIT(1), /* RESERVED * 11820000 ** 3 * BIT(1), /* RESERVED * 11830000 ** 3 * BIT(1), /* RESERVED * 11840000 ** 3 DSEPO BIT(1), /* PARTITIONED ORGANIZATION * 11850000 ** 3 DSEU BIT(1), /* UNMOVABLE * 11860000 ** 2 DSEDSLNG PTR(8), /* LENGTH OF DATA SET NAME IN 11870000 ** BYTES (1-44) * 11880000 ** 2 DSEDSNAM CHAR(44), /* DATA SET NAME DSE DESCRIBES * 11890000 ** 1 DSEMEMBR CHAR(8) BASED(DSEMPTR); /* FIELD CAN ONLY BE PRESENT 11900000 ** WHEN DATA SET IS OF A 11910000 ** PARTITIONED ORGANIZATION. IT 11920000 ** IS THE MEMBER OF THE PDS 11930000 ** CURRENTLY ALLOCATEDAND IS 11940000 ** PRESENT WHEN BIT TWO OF 11950000 ** CONTROL BYTE IS SET * 11960000 ** 11970000 * GEN(EJECT); /* C99236*/ 11980000 EJECT 11990000 DS 0H 12000000 * /******************************************************************** 12010000 * /******************************************************************** 12020000 * /*THE ATRCB IS USED TO PROVIDE DCB PARAMETERS TO THE DYNAMIC * 12030000 * /*ALLOCATION ROUTINE * 12040000 * /******************************************************************** 12050000 * DECLARE 12060000 * 1 ATRCB BASED(ATRCBPTR), 12070000 * 2 ATRFORWD PTR (31), /* ADDRESS OF NEXT ATRCB * 12080000 * 2 ATRBCKWD PTR (31), /* ADDRESS OF PREV. ATRCB * 12090000 * 2 * CHAR (4), /* RESERVED * 12100000 * 2 ATRNAME CHAR (8), /* ATTR-LIST-NAME * 12110000 * 2 ATRLNGH FIXED(15), /* LENGTH OF ATRCB * 12120000 * 2 ATRMASK CHAR(8), /* INOUT-OUTIN * 12130000 * 3 * CHAR(6), /* RESERVED * 12140000 * 3 ATRLABEL CHAR(1), /* OPTION * 12150000 * 4 ATRINOUT BIT(1), /* INOUT * 12160000 * 4 ATROUTIN BIT(1), /* OUTIN * 12170000 * 3 * CHAR(1), /* RESERVED * 12180000 * 2 * CHAR(3), /* RESERVED * 12190000 * 2 ATREXPDT CHAR(3), /* DATA SET EXPIRATION DATE* 12200000 * 2 * CHAR(2), /* RESERVED * 12210000 * 2 ATRBUFNO CHAR(1), /* NO. OF BUFFERS * 12220000 * 2 ATRBFTEK CHAR(1), /* BFTEK/BFALN * 12230000 * 3 ATRBFALN CHAR(1), 12240000 * 4 * BIT(1), 12250000 * 4 ATRAUTO BIT(2), /* AUTO RECORD AREA "A"* 12260000 * 5 ATRSIMPL BIT(1), /* SIMPLE BUFFERING "S"* 12270000 * 5 ATRECRD BIT(1), /* RECORD BUFFERING "R"* 12280000 * 4 ATREXC BIT(1), /* EXCHANGE BUFFERING "E"* 12290000 * 4 * BIT(2), 12300000 * 4 ATRDOUBL BIT(1), /* DOUBLE WORD BDY "D"* 12310000 * 4 ATRFULL BIT(1), /* FULL WORD BDY "F"* 12320000 * 2 ATRBUFL FIXED(15), /* BUFFER LENGTH * 12330000 * 2 ATREROPT CHAR(1), /* ERROR OPTION * 12340000 * 3 ATRACEPT BIT(1), /* ACCEPT "ACC"* 12350000 * 3 ATRSKIP BIT(1), /* SKIP "SKP"* 12360000 * 3 ATRABNOR BIT(1), /* ABNORMAL EOT "ABE"* 12370000 * 2 ATRKEYLE CHAR(1), /* KEY LENGTH * 12380000 * 2 * CHAR(6), /* RESERVED * 12390000 * 2 ATRECFM CHAR(1), /* RECORD FORMAT * 12400000 * 3 ATRUNDEF BIT(2), /* UNDEFINED "U"* 12410000 * 4 ATRFIXED BIT(1), /* FIXED "F"* 12420000 * 4 ATRVARIB BIT(1), /* VARIABLE "V"* 12430000 * 3 ATRTRKOV BIT(1), /* TRACK OVERFLOW "T"* 12440000 * 3 ATRBLOCK BIT(1), /* BLOCKED "B"* 12450000 * 3 ATRSTAND BIT(1), /* STANDARD BLOCKS "S"* 12460000 * 3 ATRASA BIT(1), /* ASA PRINTER CHARS "A"* 12470000 * 3 ATRMACH BIT(1), /* MACH CNTRL CHAR "M"* 12480000 * 2 ATROPTCD CHAR(1), /* OPTION CODES * 12490000 * 3 ATRWRTCK BIT(1), /* WRT VALIDITY CK "W"* 12500000 * 3 * BIT(1), 12510000 * 3 ATRSCHED BIT(1), /* CHAIN SCHEDULING "C"* 12520000 * 3 * BIT(1), 12530000 * 3 ATRANSI BIT(1), /* ANSI TRANSLATE "Q"* 12540000 * 3 * BIT(1), 12550000 * 3 ATRUSERT BIT(1), /* USER TOTALING "T"* 12560000 * 2 ATRBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE * 12570000 * 2 ATRLRECL FIXED(15), /* LOGICAL RECORD LENGTH * 12580000 * 2 ATRNCP CHAR(1), /* MAX# OF READ/WRITE MAC- * 12590000 * /* ROS BEFORE CHECK * 12600000 * 2 * CHAR (4); /* RESERVED * 12610000 * GEN(EJECT); 12620000 EJECT 12630000 DS 0H 12640000 * RESTRICT(LCTPTR); 12650000 * LCTPTR=PARMPTR /*SAVE THE INPUT PARAMETER 12660000 * ADDRESS */ 12670000 LR @2,@1 0064 12680000 * LWARTCD=LCTPARM4 /*PUT THE STEP RETURN CODE IN THE 12690000 * LWA */ 12700000 L @3,352(0,@2) 0065 12710000 L @3,20(0,@3) IEL 0065 12720000 L @3,4(0,@3) IELEXITS 0065 12730000 L @3,4(0,@3) JSWA 0065 12740000 L @3,16(0,@3) JSEL 0065 12750000 L @3,4(0,@3) JSXL 0065 12760000 MVC 52(4,@3),48(@2) 0065 12770000 * RESTRICT(ATRCBPTR) /* C99236*/ 12780000 * ATRCBPTR=LWAPRCB->RCBEXTNT->TJBXATTR /*GET PTR C99236 12790000 * TO FIRST ATRCB C99236*/ 12800000 L @8,352(0,@2) 0067 12810000 L @8,20(0,@8) IEL 0067 12820000 L @8,4(0,@8) IELEXITS 0067 12830000 L @8,4(0,@8) JSWA 0067 12840000 L @8,16(0,@8) JSEL 0067 12850000 L @8,4(0,@8) JSXL 0067 12860000 L @8,8(0,@8) LWA 0067 12870000 L @8,28(0,@8) RCB 0067 12880000 L @3,40(0,@8) 0067 12890000 * ATTRLOOP: IF ATRCBPTRª=0 THEN /*ATRCB EXIST C99236*/ 12900000 ATTRLOOP LTR @3,@3 0068 12910000 BC 08,@9FF 0068 12920000 * DO /*YES C99236*/ 12930000 * FMAPTR=ATRCBPTR /*PTR TO ATRCB TO BE FREED C99236*/ 12940000 LR @1,@3 0070 12950000 * RESTRICT(FMLENGTH) /* C99236*/ 12960000 * FMLENGTH=ATRLNGH /*GET LENGTH TO BE FREED C99236*/ 12970000 LH @5,20(0,@3) 0072 12980000 * ATRCBPTR=ATRFORWD /*GET PTR TO NEXT ATRCB C99236*/ 12990000 L @3,0(0,@3) 0073 13000000 * GENERATE; /* C99236*/ 13010000 FREEMAIN R,LV=(FMLENGTH),A=(FMAPTR),SP=255 C99236 13020000 DS 0H 13030000 * RELEASE(FMLENGTH) /* C99236*/ 13040000 * GO TO ATTRLOOP /*GO SEE IF WE ARE DONE C99236*/ 13050000 BC 15,ATTRLOOP 0076 13060000 * END /* C99236*/ 13070000 * /* NO MORE ATRCB'S C99236*/ 13080000 * LWAPRCB->RCBEXTNT->TJBXATTR=ATRCBPTR /* RESET C99236 13090000 * ATRCB CHAIN POINTER C99236*/ 13100000 @9FF L @8,352(0,@2) 0079 13110000 L @8,20(0,@8) IEL 0079 13120000 L @8,4(0,@8) IELEXITS 0079 13130000 L @8,4(0,@8) JSWA 0079 13140000 L @8,16(0,@8) JSEL 0079 13150000 L @8,4(0,@8) JSXL 0079 13160000 L @8,8(0,@8) LWA 0079 13170000 L @8,28(0,@8) RCB 0079 13180000 ST @3,40(0,@8) 0079 13190000 * RELEASE(ATRCBPTR) /* C99236*/ 13200000 * RESTRICT(DSEPTR); 13210000 * DSEPTR=LWAPRCB->RCBEXTNT->TJBXDSE /*GET POINTER TO 13220000 * FIRST DSE */ 13230000 L @3,8(0,@8) 0082 13240000 * DSENXT: IF DSEPTR=0 /*ARE THERE ANY MORE DSE'S */ 13250000 * THEN /*IF THERE ARE NOT WE ARE DONE */ 13260000 DSENXT LTR @3,@3 0083 13270000 * GO TO DSEEND /*WE ARE DONE -- LET'S GO HOME */ 13280000 BC 08,DSEEND 0084 13290000 * FMAPTR=DSEPTR /*POINT FREEMAIN AT NEXT DSE */ 13300000 LR @1,@3 0085 13310000 * RESTRICT(FMLENGTH); 13320000 * FMLENGTH=DSEBLKSZ /*GET LENGTH TO BE FREED */ 13330000 LH @5,8(0,@3) 0087 13340000 * DSEPTR=DSEFORWD /*GET POINTER TO NEXT DSE */ 13350000 L @3,0(0,@3) 0088 13360000 * /*FREE A DSE FROM SP255 */ 13370000 * GEN(FREEMAIN R,LV=(FMLENGTH),A=(FMAPTR),SP=255); 13380000 FREEMAIN R,LV=(FMLENGTH),A=(FMAPTR),SP=255 13390000 DS 0H 13400000 * RELEASE(FMLENGTH); 13410000 * GO TO DSENXT /*GO SEE IF WE ARE DONE */ 13420000 BC 15,DSENXT 0092 13430000 * DSEEND: LWAPRCB->RCBEXTNT->TJBXDSE=DSEPTR /*RESET DSE CHAIN 13440000 * POINTER */ 13450000 DSEEND L @8,352(0,@2) 0093 13460000 L @8,20(0,@8) IEL 0093 13470000 L @8,4(0,@8) IELEXITS 0093 13480000 L @8,4(0,@8) JSWA 0093 13490000 L @8,16(0,@8) JSEL 0093 13500000 L @8,4(0,@8) JSXL 0093 13510000 L @8,8(0,@8) LWA 0093 13520000 L @8,28(0,@8) RCB 0093 13530000 ST @3,8(0,@8) 0093 13540000 * RELEASE(DSEPTR,LCTPTR); 13550000 * RTNCODE=0 /*SET A ZERO RETURN CODE */ 13560000 SR @F,@F 0095 13570000 L @9,4(0,@D) 0095 13580000 ST @F,16(0,@9) 0095 13590000 * GEN(EJECT); 13600000 EJECT 13610000 DS 0H 13620000 **/*IKJEFLK: CHART (AMODE) */ 13630000 **/*HEADER 13640000 **/*CHARTAA POST-INVOCATION EXIT ROUTINE, 13650000 **/*(IKJEFLK) * 13660000 **/*IKJEFLK: E ENTRY */ 13670000 **/* P SET ROUTINE ADDRESSABILITY */ 13680000 **/* P MOVE RETURN CODE FROM LCT TO LWA */ 13690000 **/*ATTRLOOP: D (YES,,NO,%DS) ATRCB EXIST */ 13700000 **/* P SAVE POINTER TO NEXT ATRCB */ 13710000 **/* L (,ATTRLOOP) FREEMAIN ATRCB CORE */ 13720000 **/*%DS: P GET THE PTR TO FIRST DSE */ 13730000 **/*DSENXT: D (YES,,NO,DSEEND) IS THERE A DSE */ 13740000 **/* P SET UP TO FREE THIS DSE */ 13750000 **/* P GET POINTER TO NEXT DSE */ 13760000 **/* L (BR,DSENXT) FREE THIS DSE FROM SP255 */ 13770000 **/*DSEEND: P ZERO DSE CHAIN POINTER */ 13780000 **/* P SET ZERO RETURN CODE */ 13790000 **/* R RETURN TO INVOKER */ 13800000 **/*IKJEFLK: END */ 13810000 * GEN(EJECT); 13820000 EJECT 13830000 DS 0H 13840000 * END IKJEFLK 13850000 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 13860000 * /*%INCLUDE SYSLIB (IEFALLCT) 13870000 * /*%INCLUDE SYSLIB (IEZIELDF) 13880000 * /*%INCLUDE SYSLIB (IEZIEL ) 13890000 * /*%INCLUDE SYSLIB (IEFVJSWA) 13900000 * /*%INCLUDE SYSLIB (IEFVJSEL) 13910000 * /*%INCLUDE SYSLIB (IEFVJSXL) 13920000 * /*%INCLUDE SYSLIB (IKJEFLWA) 13930000 * /*%INCLUDE SYSLIB (IKJPSCB ) 13940000 * /*%INCLUDE SYSLIB (IKJRCB ) 13950000 * /*%INCLUDE SYSLIB (IKJTJBX ) 13960000 * /*%INCLUDE SYSLIB (IKJDSE ) 13970000 * /*%INCLUDE SYSLIB (IKJATRCB) 13980000 * ; 13990000 @EL01 L @D,4(0,@D) 0098 14000000 LR @1,@C 0098 14010000 L @0,@SIZ001 0098 14020000 FREEMAIN R,LV=(0),A=(1) 0098 14030000 LM @E,@C,12(@D) 0098 14040000 BCR 15,@E 0098 14050000 @DATA1 EQU * 14060000 @0 EQU 00 EQUATES FOR REGISTERS 0-15 14070000 @1 EQU 01 14080000 @2 EQU 02 14090000 @3 EQU 03 14100000 @4 EQU 04 14110000 @5 EQU 05 14120000 @6 EQU 06 14130000 @7 EQU 07 14140000 @8 EQU 08 14150000 @9 EQU 09 14160000 @A EQU 10 14170000 @B EQU 11 14180000 @C EQU 12 14190000 @D EQU 13 14200000 @E EQU 14 14210000 @F EQU 15 14220000 DS 0F 14230000 @SIZ001 DC AL1(&SPN) 14240000 DC AL3(@DATEND-@DATD) 14250000 DS 0D 14260000 @DATA EQU * 14270000 FMAPTR EQU 00000001 3 BYTE POINTER REGISTER 14280000 PARMPTR EQU 00000001 FULLWORD POINTER REGISTER 14290000 LCTPTR EQU 00000002 FULLWORD POINTER REGISTER 14300000 DSEPTR EQU 00000003 3 BYTE POINTER REGISTER 14310000 DSEMPTR EQU 00000004 3 BYTE POINTER REGISTER 14320000 ATRCBPTR EQU 00000003 FULLWORD POINTER REGISTER 14330000 FMLENGTH EQU 00000005 FULLWORD INTEGER REGISTER 14340000 SAVEPTR EQU 00000013 3 BYTE POINTER REGISTER 14350000 HSAPTR EQU 00000004 FULLWORD POINTER 14360000 RTNCODE EQU 00000016 FULLWORD INTEGER 14370000 THELCT EQU 00000000 FULLWORD POINTER 14380000 LCT EQU 00000000 380 BYTE(S) ON WORD 14390000 LCTQDRTY EQU LCT+00000000 FULLWORD POINTER 14400000 A00000 EQU LCT+00000000 8 BIT(S) 14410000 A00001 EQU LCT+00000001 3 BYTE POINTER ON WORD+1 14420000 LCTSRTAD EQU LCT+00000004 FULLWORD POINTER 14430000 A00002 EQU LCT+00000004 8 BIT(S) 14440000 A00003 EQU LCT+00000005 3 BYTE POINTER ON WORD+1 14450000 LCTTCBAD EQU LCT+00000008 FULLWORD POINTER 14460000 A00004 EQU LCT+00000008 8 BIT(S) 14470000 A00005 EQU LCT+00000009 3 BYTE POINTER ON WORD+1 14480000 LCTQENTY EQU LCT+00000012 FULLWORD POINTER 14490000 A00006 EQU LCT+00000012 8 BIT(S) 14500000 A00007 EQU LCT+00000012 1 BIT(S) 14510000 A00008 EQU LCT+00000012 1 BIT(S) 14520000 A00009 EQU LCT+00000012 1 BIT(S) 14530000 A00010 EQU LCT+00000012 1 BIT(S) 14540000 A00011 EQU LCT+00000012 1 BIT(S) 14550000 A00012 EQU LCT+00000012 1 BIT(S) 14560000 A00013 EQU LCT+00000012 1 BIT(S) 14570000 LCTERRM EQU LCT+00000012 1 BIT(S) 14580000 A00014 EQU LCT+00000013 3 BYTE POINTER ON WORD+1 14590000 LCTJCTAD EQU LCT+00000016 FULLWORD POINTER 14600000 A00015 EQU LCT+00000016 8 BIT(S) 14610000 A00016 EQU LCT+00000017 3 BYTE POINTER ON WORD+1 14620000 LCTSCTAD EQU LCT+00000020 FULLWORD POINTER 14630000 A00017 EQU LCT+00000020 8 BIT(S) 14640000 A00018 EQU LCT+00000021 3 BYTE POINTER ON WORD+1 14650000 LCTSCTDA EQU LCT+00000024 FULLWORD POINTER 14660000 A00019 EQU LCT+00000024 8 BIT(S) 14670000 A00020 EQU LCT+00000025 3 BYTE POINTER ON WORD+1 14680000 LCTPSPAR EQU LCT+00000028 FULLWORD POINTER 14690000 A00021 EQU LCT+00000028 8 BIT(S) 14700000 A00022 EQU LCT+00000029 3 BYTE POINTER ON WORD+1 14710000 LCTERROR EQU LCT+00000032 FULLWORD INTEGER 14720000 LCTPARM1 EQU LCT+00000036 FULLWORD INTEGER 14730000 LCTPARM2 EQU LCT+00000040 FULLWORD INTEGER 14740000 LCTPARM3 EQU LCT+00000044 FULLWORD INTEGER 14750000 LCTPARM4 EQU LCT+00000048 FULLWORD INTEGER 14760000 LCTCMCBA EQU LCT+00000052 FULLWORD POINTER 14770000 A00023 EQU LCT+00000052 8 BIT(S) 14780000 A00024 EQU LCT+00000053 3 BYTE POINTER ON WORD+1 14790000 LCTNSPAD EQU LCT+00000056 8 BIT(S) 14800000 LCTJFCBH EQU LCT+00000057 8 BIT(S) 14810000 LCTS2PEM EQU LCT+00000057 1 BIT(S) 14820000 LCTS2COP EQU LCT+00000057 1 BIT(S) 14830000 LCTS2FES EQU LCT+00000057 1 BIT(S) 14840000 A00025 EQU LCT+00000057 1 BIT(S) 14850000 A00026 EQU LCT+00000057 1 BIT(S) 14860000 A00027 EQU LCT+00000057 1 BIT(S) 14870000 A00028 EQU LCT+00000057 1 BIT(S) 14880000 A00029 EQU LCT+00000057 1 BIT(S) 14890000 LCTSNUMB EQU LCT+00000058 1 BYTE POINTER 14900000 LCTACTON EQU LCT+00000059 1 BYTE POINTER 14910000 LCTSMBAD EQU LCT+00000060 FULLWORD POINTER 14920000 A00030 EQU LCT+00000060 8 BIT(S) 14930000 A00031 EQU LCT+00000061 3 BYTE POINTER ON WORD+1 14940000 LCTBATMN EQU LCT+00000064 FULLWORD INTEGER 14950000 LCTSOQMP EQU LCT+00000068 FULLWORD POINTER 14960000 A00032 EQU LCT+00000068 8 BIT(S) 14970000 A00033 EQU LCT+00000069 3 BYTE POINTER ON WORD+1 14980000 LCTRTRN EQU LCT+00000072 FULLWORD POINTER 14990000 A00034 EQU LCT+00000072 8 BIT(S) 15000000 A00035 EQU LCT+00000073 3 BYTE POINTER ON WORD+1 15010000 LCTCSCB EQU LCT+00000076 FULLWORD POINTER 15020000 LCTINTSW EQU LCT+00000076 8 BIT(S) 15030000 LCTIHIER EQU LCT+00000076 1 BIT(S) 15040000 A00036 EQU LCT+00000076 1 BIT(S) 15050000 LCTSDOXX EQU LCT+00000076 1 BIT(S) 15060000 LCTMINRG EQU LCT+00000076 1 BIT(S) 15070000 LCTSTART EQU LCT+00000076 1 BIT(S) 15080000 LCTSTOP EQU LCT+00000076 1 BIT(S) 15090000 A00037 EQU LCT+00000076 1 BIT(S) 15100000 A00038 EQU LCT+00000076 1 BIT(S) 15110000 A00039 EQU LCT+00000077 3 BYTE POINTER ON WORD+1 15120000 LCTTMWRK EQU LCT+00000080 16 BYTE(S) 15130000 LCTJOBLB EQU LCT+00000096 FULLWORD POINTER 15140000 A00040 EQU LCT+00000096 8 BIT(S) 15150000 A00041 EQU LCT+00000097 3 BYTE POINTER ON WORD+1 15160000 LCTATLST EQU LCT+00000100 FULLWORD POINTER 15170000 A00042 EQU LCT+00000100 8 BIT(S) 15180000 A00043 EQU LCT+00000101 3 BYTE POINTER ON WORD+1 15190000 REGSAVE EQU LCT+00000104 36*FULLWORD INTEGER 15200000 QMGR1 EQU LCT+00000248 9*FULLWORD INTEGER 15210000 QMGR2 EQU LCT+00000284 9*FULLWORD INTEGER 15220000 TRSTKINF EQU LCT+00000320 2*FULLWORD INTEGER 15230000 LCTECBAD EQU LCT+00000328 FULLWORD POINTER 15240000 A00044 EQU LCT+00000328 8 BIT(S) 15250000 A00045 EQU LCT+00000329 3 BYTE POINTER ON WORD+1 15260000 LCTIDENT EQU LCT+00000332 2*FULLWORD INTEGER 15270000 LCTFORCE EQU LCT+00000340 2*FULLWORD INTEGER 15280000 LCTLIMIT EQU LCT+00000348 1 BYTE(S) 15290000 FRCPRTY EQU LCT+00000349 1 BYTE(S) 15300000 INITPRTY EQU LCT+00000350 1 BYTE(S) 15310000 LCTENTR EQU LCT+00000352 FULLWORD POINTER 15320000 LCTOPSW1 EQU LCT+00000352 8 BIT(S) 15330000 LCTPKEYF EQU LCT+00000352 1 BIT(S) 15340000 LCTDWFF EQU LCT+00000352 1 BIT(S) 15350000 LCTSTMDF EQU LCT+00000352 1 BIT(S) 15360000 LCTMINPF EQU LCT+00000352 1 BIT(S) 15370000 LCTCANF EQU LCT+00000352 1 BIT(S) 15380000 LCTONEJF EQU LCT+00000352 1 BIT(S) 15390000 LCTICMDF EQU LCT+00000352 1 BIT(S) 15400000 A00046 EQU LCT+00000352 1 BIT(S) 15410000 A00047 EQU LCT+00000353 3 BYTE POINTER ON WORD+1 15420000 LCTCOM EQU LCT+00000356 FULLWORD POINTER 15430000 LCTOPSW2 EQU LCT+00000356 8 BIT(S) 15440000 LCTTIMEF EQU LCT+00000356 1 BIT(S) 15450000 LCTCRF EQU LCT+00000356 1 BIT(S) 15460000 LCTDSOF EQU LCT+00000356 1 BIT(S) 15470000 LCTINTH0 EQU LCT+00000356 1 BIT(S) 15480000 LCTINTH1 EQU LCT+00000356 1 BIT(S) 15490000 A00048 EQU LCT+00000356 1 BIT(S) 15500000 A00049 EQU LCT+00000356 1 BIT(S) 15510000 A00050 EQU LCT+00000356 1 BIT(S) 15520000 A00051 EQU LCT+00000357 3 BYTE POINTER ON WORD+1 15530000 LCTJSCB EQU LCT+00000360 FULLWORD POINTER 15540000 LCTOPSW3 EQU LCT+00000360 8 BIT(S) 15550000 A00052 EQU LCT+00000360 1 BIT(S) 15560000 A00053 EQU LCT+00000360 1 BIT(S) 15570000 A00054 EQU LCT+00000360 1 BIT(S) 15580000 A00055 EQU LCT+00000360 1 BIT(S) 15590000 A00056 EQU LCT+00000360 1 BIT(S) 15600000 LCTTRSTK EQU LCT+00000360 1 BIT(S) 15610000 A00057 EQU LCT+00000360 1 BIT(S) 15620000 A00058 EQU LCT+00000360 1 BIT(S) 15630000 A00059 EQU LCT+00000361 3 BYTE POINTER ON WORD+1 15640000 A00060 EQU LCT+00000364 4*FULLWORD INTEGER 15650000 LCTWORKA EQU 00000024 FULLWORD INTEGER 15660000 LCTSTIND EQU 00000056 FULLWORD INTEGER 15670000 LCTSMF EQU 00000088 FULLWORD INTEGER 15680000 LCTPIB EQU 00000332 FULLWORD INTEGER 15690000 LCTSPIL EQU 00000336 FULLWORD INTEGER 15700000 LCTECBLT EQU 00000340 FULLWORD INTEGER 15710000 IEL EQU 00000000 24 BYTE(S) ON DWORD 15720000 IELLIST EQU IEL+00000000 24 BYTE(S) ON DWORD 15730000 IELPARM EQU IEL+00000000 FULLWORD POINTER 15740000 IELCSCB EQU IEL+00000004 FULLWORD POINTER 15750000 IELOPLST EQU IEL+00000008 FULLWORD POINTER 15760000 IELQMPA EQU IEL+00000012 FULLWORD POINTER 15770000 IELJCT EQU IEL+00000016 FULLWORD POINTER 15780000 IELEXIT EQU IEL+00000020 FULLWORD POINTER 15790000 IELLAST EQU IEL+00000020 1 BYTE(S) 15800000 IELEND EQU IEL+00000020 1 BIT(S) 15810000 A00061 EQU IEL+00000020 7 BIT(S) 15820000 IELOPTS EQU 00000000 8 BYTE(S) ON DWORD 15830000 IELOPLEN EQU IELOPTS+00000000 HALFWORD INTEGER 15840000 IELOPSW1 EQU IELOPTS+00000002 1 BYTE(S) 15850000 IELPKEYF EQU IELOPTS+00000002 1 BIT(S) 15860000 IELDWFF EQU IELOPTS+00000002 1 BIT(S) 15870000 IELSTMDF EQU IELOPTS+00000002 1 BIT(S) 15880000 IELMINPF EQU IELOPTS+00000002 1 BIT(S) 15890000 IELCANF EQU IELOPTS+00000002 1 BIT(S) 15900000 IELONJF EQU IELOPTS+00000002 1 BIT(S) 15910000 IELICMDF EQU IELOPTS+00000002 1 BIT(S) 15920000 IELWTPF EQU IELOPTS+00000002 1 BIT(S) 15930000 IELOPSW2 EQU IELOPTS+00000003 1 BYTE(S) 15940000 IELTIMEF EQU IELOPTS+00000003 1 BIT(S) 15950000 IELCRF EQU IELOPTS+00000003 1 BIT(S) 15960000 IELDSOF EQU IELOPTS+00000003 1 BIT(S) 15970000 IELINTH0 EQU IELOPTS+00000003 1 BIT(S) 15980000 IELINTH1 EQU IELOPTS+00000003 1 BIT(S) 15990000 IELOTSTK EQU IELOPTS+00000003 1 BIT(S) 16000000 IELONORC EQU IELOPTS+00000003 1 BIT(S) 16010000 IELOENQU EQU IELOPTS+00000003 1 BIT(S) 16020000 IELPKEY EQU IELOPTS+00000004 1 BYTE(S) 16030000 IELOPSW3 EQU IELOPTS+00000005 1 BYTE(S) 16040000 IELONOQW EQU IELOPTS+00000005 1 BIT(S) 16050000 IELCLEAR EQU IELOPTS+00000005 1 BIT(S) 16060000 A00062 EQU IELOPTS+00000005 6 BIT(S) 16070000 A00063 EQU IELOPTS+00000006 2 BYTE(S) 16080000 IELEXITS EQU 00000000 32 BYTE(S) ON DWORD 16090000 IELEXHDR EQU IELEXITS+00000000 8 BYTE(S) ON WORD 16100000 IELXTLEN EQU IELEXITS+00000000 HALFWORD INTEGER 16110000 IELRTNCD EQU IELEXITS+00000002 1 BYTE(S) 16120000 A00064 EQU IELEXITS+00000003 1 BYTE(S) 16130000 IELCOM EQU IELEXITS+00000004 FULLWORD POINTER 16140000 RTNEXT EQU IELEXITS+00000008 8 BYTE(S) ON WORD 16150000 RTNEXLK EQU IELEXITS+00000008 1 BYTE(S) 16160000 RTNEXID EQU IELEXITS+00000009 1 BYTE(S) 16170000 RTNEXNM EQU IELEXITS+00000010 6 BYTE(S) ON WORD+2 16180000 A00065 EQU IELEXITS+00000010 2 BYTE(S) 16190000 RTNEXAD EQU IELEXITS+00000012 FULLWORD POINTER 16200000 PREEXT EQU IELEXITS+00000016 8 BYTE(S) ON WORD 16210000 PREEXLK EQU IELEXITS+00000016 1 BYTE(S) 16220000 PREEXID EQU IELEXITS+00000017 1 BYTE(S) 16230000 PREEXNM EQU IELEXITS+00000018 6 BYTE(S) ON WORD+2 16240000 A00066 EQU IELEXITS+00000018 2 BYTE(S) 16250000 PREEXAD EQU IELEXITS+00000020 FULLWORD POINTER 16260000 PSTEXT EQU IELEXITS+00000024 8 BYTE(S) ON WORD 16270000 PSTEXLK EQU IELEXITS+00000024 1 BYTE(S) 16280000 PSTEXID EQU IELEXITS+00000025 1 BYTE(S) 16290000 PSTEXNM EQU IELEXITS+00000026 6 BYTE(S) ON WORD+2 16300000 A00067 EQU IELEXITS+00000026 2 BYTE(S) 16310000 PSTEXAD EQU IELEXITS+00000028 FULLWORD POINTER 16320000 A00068 EQU IELEXITS+00000028 1 BYTE(S) 16330000 JSWA EQU 00000000 32 BYTE(S) ON DWORD 16340000 JSWALGTH EQU JSWA+00000000 HALFWORD INTEGER 16350000 JSWAOPT EQU JSWA+00000002 8 BIT(S) 16360000 JSWATERM EQU JSWA+00000002 1 BIT(S) 16370000 JSWATRST EQU JSWA+00000002 1 BIT(S) 16380000 JSWAWKFI EQU JSWA+00000002 1 BIT(S) 16390000 A00069 EQU JSWA+00000002 1 BIT(S) 16400000 JSWAPKO EQU JSWA+00000002 1 BIT(S) 16410000 JSWANORC EQU JSWA+00000002 1 BIT(S) 16420000 JSWANOQW EQU JSWA+00000002 1 BIT(S) 16430000 JSWAENQU EQU JSWA+00000002 1 BIT(S) 16440000 JSWASMF EQU JSWA+00000003 8 BIT(S) 16450000 JSWAJSEL EQU JSWA+00000004 FULLWORD POINTER 16460000 JSWAOPT2 EQU JSWA+00000004 8 BIT(S) 16470000 JSWAPSYS EQU JSWA+00000004 1 BIT(S) 16480000 JSWASMS1 EQU JSWA+00000004 1 BIT(S) 16490000 JSWASMS2 EQU JSWA+00000004 1 BIT(S) 16500000 A00070 EQU JSWA+00000004 5 BIT(S) 16510000 JSWAJSE1 EQU JSWA+00000005 3 BYTE POINTER ON WORD+1 16520000 JSWAMOD EQU JSWA+00000008 8 BYTE(S) 16530000 JSWATSTK EQU JSWA+00000016 FULLWORD POINTER 16540000 JSWANTRK EQU JSWA+00000016 1 BYTE POINTER 16550000 JSWATKST EQU JSWA+00000017 3 BYTE POINTER ON WORD+1 16560000 JSWAPKEY EQU JSWA+00000020 1 BYTE POINTER 16570000 JSWATIOT EQU JSWA+00000021 3 BYTE POINTER ON WORD+1 16580000 JSWAXCTL EQU JSWA+00000024 64 BIT(S) 16590000 JSWANEL EQU JSWA+00000024 4 BYTE POINTER 16600000 JSEL EQU 00000000 20 BYTE(S) ON WORD 16610000 JSELOPT EQU JSEL+00000000 FULLWORD POINTER 16620000 JSELJSOL EQU JSEL+00000004 FULLWORD POINTER 16630000 JSELCSCB EQU JSEL+00000008 FULLWORD POINTER 16640000 JSELJCL EQU JSEL+00000012 FULLWORD POINTER 16650000 JSELJSXL EQU JSEL+00000016 FULLWORD POINTER 16660000 JSELEOL EQU JSEL+00000016 1 BIT(S) 16670000 JSXL EQU 00000000 2056 BYTE(S) ON WORD 16680000 JSXLLGTH EQU JSXL+00000000 HALFWORD INTEGER 16690000 JSXLRCOD EQU JSXL+00000002 1 BYTE POINTER 16700000 JSXLRCXT EQU JSXL+00000003 1 BYTE POINTER 16710000 JSXLCOMM EQU JSXL+00000004 FULLWORD POINTER 16720000 JSXLLDEF EQU JSXL+00000008 256*8 BYTE(S) ON WORD 16730000 JSXLLINK EQU JSXL+00000008 1 BYTE POINTER 16740000 JSXLID EQU JSXL+00000009 8 BIT(S) 16750000 JSXPOST EQU JSXL+00000009 1 BIT(S) 16760000 JSXPRINI EQU JSXL+00000009 1 BIT(S) 16770000 JSXPTINI EQU JSXL+00000009 1 BIT(S) 16780000 JSXRDRAM EQU JSXL+00000009 1 BIT(S) 16790000 JSXPTRDR EQU JSXL+00000009 1 BIT(S) 16800000 A00071 EQU JSXL+00000009 3 BIT(S) 16810000 JSXLDATA EQU JSXL+00000010 6 BYTE(S) 16820000 LWA EQU 00000000 268 BYTE(S) ON WORD 16830000 LWAPPTR EQU LWA+00000000 FULLWORD POINTER 16840000 LWATJID EQU LWA+00000004 HALFWORD INTEGER 16850000 A00072 EQU LWA+00000006 HALFWORD INTEGER 16860000 LWAPRCB EQU LWA+00000008 FULLWORD POINTER 16870000 LWAACCT EQU LWA+00000012 FULLWORD POINTER 16880000 LWAPSCB EQU LWA+00000016 FULLWORD POINTER 16890000 LWAJSEL EQU LWA+00000020 FULLWORD POINTER 16900000 LWAPECT EQU LWA+00000024 FULLWORD POINTER 16910000 LWAAECB EQU LWA+00000028 4 BYTE(S) ON WORD 16920000 A00073 EQU LWA+00000028 24 BIT(S) 16930000 LWAABCE EQU LWA+00000031 8 BIT(S) 16940000 LWAPECB EQU LWA+00000032 4 BYTE(S) ON WORD 16950000 A00074 EQU LWA+00000032 24 BIT(S) 16960000 LWAPBCE EQU LWA+00000035 8 BIT(S) 16970000 LWASECB EQU LWA+00000036 4 BYTE(S) ON WORD 16980000 A00075 EQU LWA+00000036 24 BIT(S) 16990000 LWASBCE EQU LWA+00000039 8 BIT(S) 17000000 LWAFLGS EQU LWA+00000040 32 BIT(S) 17010000 A00076 EQU LWA+00000040 8 BIT(S) 17020000 A00077 EQU LWA+00000041 8 BIT(S) 17030000 A00078 EQU LWA+00000042 8 BIT(S) 17040000 A00079 EQU LWA+00000043 8 BIT(S) 17050000 A00080 EQU LWA+00000043 1 BIT(S) 17060000 A00081 EQU LWA+00000043 1 BIT(S) 17070000 A00082 EQU LWA+00000043 1 BIT(S) 17080000 LWALTBC EQU LWA+00000043 1 BIT(S) 17090000 LWATNBT EQU LWA+00000043 1 BIT(S) 17100000 LWASTAY EQU LWA+00000043 1 BIT(S) 17110000 LWAINX1 EQU LWA+00000043 1 BIT(S) 17120000 LWAILGN EQU LWA+00000043 1 BIT(S) 17130000 LWAPTID EQU LWA+00000044 FULLWORD POINTER 17140000 LWACTLS EQU LWA+00000048 32 BIT(S) 17150000 LWAUFAI EQU LWA+00000048 1 BIT(S) 17160000 LWARFAI EQU LWA+00000048 1 BIT(S) 17170000 LWAFAIL EQU LWA+00000048 1 BIT(S) 17180000 LWADISC EQU LWA+00000048 1 BIT(S) 17190000 LWANOPR EQU LWA+00000048 1 BIT(S) 17200000 LWANUAD EQU LWA+00000048 1 BIT(S) 17210000 LWAJJCL EQU LWA+00000048 1 BIT(S) 17220000 LWAPSCA EQU LWA+00000048 1 BIT(S) 17230000 LWAATR1 EQU LWA+00000049 1 BIT(S) 17240000 LWAATR2 EQU LWA+00000049 1 BIT(S) 17250000 LWAUNIT EQU LWA+00000049 1 BIT(S) 17260000 LWABUPT EQU LWA+00000049 1 BIT(S) 17270000 LWANONQ EQU LWA+00000049 1 BIT(S) 17280000 A00083 EQU LWA+00000049 19 BIT(S) 17290000 LWARTCD EQU LWA+00000052 FULLWORD INTEGER 17300000 LWAPROC EQU LWA+00000056 FULLWORD POINTER 17310000 LWAATXR EQU LWA+00000060 FULLWORD POINTER 17320000 LWAMSGR EQU LWA+00000064 FULLWORD POINTER 17330000 LWAPP00 EQU LWA+00000068 FULLWORD POINTER 17340000 LWABLDL EQU LWA+00000072 12 BYTE(S) ON WORD 17350000 LWABLNO EQU LWA+00000072 2 BYTE(S) 17360000 LWABLEN EQU LWA+00000074 2 BYTE(S) 17370000 LWABNAME EQU LWA+00000076 8 BYTE(S) 17380000 LWATTRK EQU LWA+00000084 4 BYTE(S) ON WORD 17390000 LWABLTT EQU LWA+00000084 HALFWORD POINTER 17400000 LWABLR EQU LWA+00000086 1 BYTE POINTER 17410000 LWABLK EQU LWA+00000087 1 BYTE POINTER 17420000 LWABLDZ EQU LWA+00000088 8 BIT(S) 17430000 LWABLDC EQU LWA+00000089 8 BIT(S) 17440000 LWADATA EQU LWA+00000090 42 BYTE(S) 17450000 LWANAME EQU LWA+00000132 8 BYTE(S) ON WORD 17460000 LWARNML EQU LWA+00000132 1 BYTE(S) 17470000 LWARNM EQU LWA+00000133 7 BYTE(S) 17480000 LWAATCH EQU LWA+00000140 52 BYTE(S) ON WORD 17490000 LWAALST EQU LWA+00000140 52 BYTE(S) 17500000 LWANQDQ EQU LWA+00000192 12 BYTE(S) 17510000 LWASLST EQU LWA+00000204 12 BYTE(S) 17520000 LWAPNOT EQU LWA+00000216 FULLWORD POINTER 17530000 LWAPMAL EQU LWA+00000220 FULLWORD POINTER 17540000 LWAELST EQU LWA+00000224 8 BYTE(S) ON WORD 17550000 LWAAECBP EQU LWA+00000224 FULLWORD POINTER 17560000 LWAPECBP EQU LWA+00000228 FULLWORD POINTER 17570000 LWAEOEL EQU LWA+00000228 1 BIT(S) 17580000 LWASARA EQU LWA+00000232 FULLWORD POINTER 17590000 LWARCDE EQU LWA+00000236 FULLWORD INTEGER 17600000 LWASTCK EQU LWA+00000240 4 BYTE(S) ON WORD 17610000 LWABFNO EQU LWA+00000240 1 BYTE(S) 17620000 LWASKAD EQU LWA+00000241 3 BYTE POINTER ON WORD+1 17630000 LWARES6 EQU LWA+00000244 FULLWORD INTEGER 17640000 LWAINST EQU LWA+00000248 16 BYTE(S) ON WORD 17650000 LWARTRY EQU LWA+00000264 FULLWORD POINTER 17660000 PSCB EQU 00000000 72 BYTE(S) ON WORD 17670000 PSCBUSER EQU PSCB+00000000 7 BYTE(S) ON WORD 17680000 PSCBUSRL EQU PSCB+00000007 1 BYTE POINTER 17690000 PSCBGPNM EQU PSCB+00000008 8 BYTE(S) 17700000 PSCBATR1 EQU PSCB+00000016 2 BYTE(S) 17710000 PSCBCTRL EQU PSCB+00000016 1 BIT(S) 17720000 PSCBACCT EQU PSCB+00000016 1 BIT(S) 17730000 PSCBJCL EQU PSCB+00000016 1 BIT(S) 17740000 A00084 EQU PSCB+00000016 1 BIT(S) 17750000 A00085 EQU PSCB+00000016 1 BIT(S) 17760000 A00086 EQU PSCB+00000016 1 BIT(S) 17770000 A00087 EQU PSCB+00000016 1 BIT(S) 17780000 A00088 EQU PSCB+00000016 1 BIT(S) 17790000 PSCBATR2 EQU PSCB+00000018 2 BYTE(S) 17800000 PSCBCPU EQU PSCB+00000020 FULLWORD INTEGER 17810000 PSCBSWP EQU PSCB+00000024 FULLWORD INTEGER 17820000 PSCBLTIM EQU PSCB+00000028 FULLWORD INTEGER 17830000 PSCBTCPU EQU PSCB+00000032 FULLWORD INTEGER 17840000 PSCBTSWP EQU PSCB+00000036 FULLWORD INTEGER 17850000 PSCBTCON EQU PSCB+00000040 FULLWORD INTEGER 17860000 PSCBTCO1 EQU PSCB+00000044 FULLWORD INTEGER 17870000 PSCBRLGB EQU PSCB+00000048 FULLWORD POINTER 17880000 PSCBUPT EQU PSCB+00000052 FULLWORD POINTER 17890000 PSCBUPTL EQU PSCB+00000056 HALFWORD INTEGER 17900000 A00089 EQU PSCB+00000058 16 BIT(S) 17910000 PSCBRSZ EQU PSCB+00000060 FULLWORD POINTER 17920000 PSCBU EQU PSCB+00000064 8 BYTE(S) 17930000 RCB EQU 00000000 72 BYTE(S) ON WORD 17940000 RCBRCT EQU RCB+00000000 FULLWORD POINTER 17950000 RCBECB EQU RCB+00000004 FULLWORD INTEGER 17960000 RCBDIECB EQU RCB+00000008 FULLWORD INTEGER 17970000 RCBTJID EQU RCB+00000012 HALFWORD INTEGER 17980000 RCBRSIZE EQU RCB+00000014 HALFWORD INTEGER 17990000 RCBLSQSZ EQU RCB+00000016 HALFWORD INTEGER 18000000 RCBNMBR EQU RCB+00000018 1 BYTE(S) 18010000 RCBPKEY EQU RCB+00000019 1 BYTE(S) 18020000 RCBUMSMN EQU RCB+00000020 1 BYTE(S) 18030000 RCBFLG EQU RCB+00000021 1 BYTE(S) 18040000 RCBFQU EQU RCB+00000021 1 BIT(S) 18050000 RCBFSO EQU RCB+00000021 1 BIT(S) 18060000 RCBFSI EQU RCB+00000021 1 BIT(S) 18070000 RCBFRS EQU RCB+00000021 1 BIT(S) 18080000 RCBOCAB EQU RCB+00000021 1 BIT(S) 18090000 RCBSTR3 EQU RCB+00000021 1 BIT(S) 18100000 RCBFAT EQU RCB+00000021 1 BIT(S) 18110000 RCBFND EQU RCB+00000021 1 BIT(S) 18120000 RCBFLG2 EQU RCB+00000022 1 BYTE(S) 18130000 RCBFSE EQU RCB+00000022 1 BIT(S) 18140000 RCBSTOP EQU RCB+00000022 1 BIT(S) 18150000 RCBACTV EQU RCB+00000022 1 BIT(S) 18160000 RCBSTR1 EQU RCB+00000022 1 BIT(S) 18170000 RCBSTR2 EQU RCB+00000022 1 BIT(S) 18180000 RCBDEAD EQU RCB+00000022 1 BIT(S) 18190000 RCBLOGPR EQU RCB+00000022 1 BIT(S) 18200000 RCBMODFY EQU RCB+00000022 1 BIT(S) 18210000 RCBFBQE EQU RCB+00000023 1 BYTE(S) 18220000 RCBUTTMQ EQU RCB+00000024 HALFWORD INTEGER 18230000 RCBCUSE EQU RCB+00000026 HALFWORD INTEGER 18240000 RCBEXTNT EQU RCB+00000028 FULLWORD POINTER 18250000 RCBUMSM EQU RCB+00000032 FULLWORD POINTER 18260000 RCBSDCB EQU RCB+00000036 FULLWORD POINTER 18270000 RCBPQE EQU RCB+00000040 FULLWORD POINTER 18280000 RCBPRG EQU RCB+00000044 12 BYTE(S) 18290000 RCBQPL EQU RCB+00000056 FULLWORD POINTER 18300000 RCBSTECB EQU RCB+00000060 FULLWORD INTEGER 18310000 RCBRCOVR EQU RCB+00000064 1 BYTE(S) 18320000 RCBRSFLG EQU RCB+00000065 1 BYTE(S) 18330000 RCBRSTRT EQU RCB+00000065 1 BIT(S) 18340000 RCBTCBDN EQU RCB+00000065 1 BIT(S) 18350000 RCBQELCM EQU RCB+00000065 1 BIT(S) 18360000 RCBTQECM EQU RCB+00000065 1 BIT(S) 18370000 RCBRQIQC EQU RCB+00000065 1 BIT(S) 18380000 A00090 EQU RCB+00000065 1 BIT(S) 18390000 RCBIORSC EQU RCB+00000065 1 BIT(S) 18400000 RCBWTORC EQU RCB+00000065 1 BIT(S) 18410000 RCBTACMP EQU RCB+00000065 1 BIT(S) 18420000 RCBQUFLG EQU RCB+00000066 1 BYTE(S) 18430000 RCBQUSTR EQU RCB+00000066 1 BIT(S) 18440000 RCBIOSTR EQU RCB+00000066 1 BIT(S) 18450000 RCBTADON EQU RCB+00000066 1 BIT(S) 18460000 RCBWTORD EQU RCB+00000066 1 BIT(S) 18470000 RCBQELDN EQU RCB+00000066 1 BIT(S) 18480000 RCBIODON EQU RCB+00000066 1 BIT(S) 18490000 RCBTQEDN EQU RCB+00000066 1 BIT(S) 18500000 RCBRQIQD EQU RCB+00000066 1 BIT(S) 18510000 RCBSWTCH EQU RCB+00000067 1 BYTE(S) 18520000 A00091 EQU RCB+00000067 1 BIT(S) 18530000 RCBSWTON EQU RCB+00000067 1 BIT(S) 18540000 RCBEXTRN EQU RCB+00000067 1 BIT(S) 18550000 RCBRMSAL EQU RCB+00000067 1 BIT(S) 18560000 RCBRMS1U EQU RCB+00000067 1 BIT(S) 18570000 A00092 EQU RCB+00000067 1 BIT(S) 18580000 A00093 EQU RCB+00000067 1 BIT(S) 18590000 A00094 EQU RCB+00000067 1 BIT(S) 18600000 RCBCONID EQU RCB+00000068 1 BYTE(S) 18610000 RCBSTAEN EQU RCB+00000069 1 BYTE(S) 18620000 A00095 EQU RCB+00000070 2 BYTE(S) 18630000 TJBX EQU 00000000 72 BYTE(S) ON WORD 18640000 TJBXFST EQU TJBX+00000000 FULLWORD POINTER 18650000 TJBXLAST EQU TJBX+00000004 FULLWORD POINTER 18660000 TJBXDSE EQU TJBX+00000008 FULLWORD POINTER 18670000 TJBXSVRB EQU TJBX+00000012 FULLWORD POINTER 18680000 TJBXRQE EQU TJBX+00000016 FULLWORD POINTER 18690000 TJBXIQE EQU TJBX+00000020 FULLWORD POINTER 18700000 TJBXTAXE EQU TJBX+00000024 FULLWORD INTEGER 18710000 TJBXLECB EQU TJBX+00000028 FULLWORD INTEGER 18720000 TJBXPSWD EQU TJBX+00000032 8 BYTE(S) 18730000 TJBXATTR EQU TJBX+00000040 FULLWORD POINTER 18740000 TJBXAIQE EQU TJBX+00000044 FULLWORD POINTER 18750000 TJBXQPL EQU TJBX+00000048 FULLWORD POINTER 18760000 TJBXNQPE EQU TJBX+00000052 HALFWORD INTEGER 18770000 TJBXNTCB EQU TJBX+00000054 HALFWORD INTEGER 18780000 TJBXLQPL EQU TJBX+00000056 HALFWORD INTEGER 18790000 TJBXHBFL EQU TJBX+00000058 1 BYTE(S) 18800000 A00096 EQU TJBX+00000059 1 BYTE(S) 18810000 TJBXACT EQU TJBX+00000060 FULLWORD INTEGER 18820000 TJBXAECB EQU TJBX+00000064 FULLWORD POINTER 18830000 TJBXKEYA EQU TJBX+00000068 FULLWORD POINTER 18840000 DSE EQU 00000000 76 BYTE(S) ON WORD 18850000 DSEFORWD EQU DSE+00000000 FULLWORD POINTER 18860000 DSEBCKWD EQU DSE+00000004 FULLWORD POINTER 18870000 DSEBLKSZ EQU DSE+00000008 HALFWORD INTEGER 18880000 DSESTAT EQU DSE+00000010 1 BYTE(S) 18890000 A00097 EQU DSE+00000010 1 BIT(S) 18900000 A00098 EQU DSE+00000010 1 BIT(S) 18910000 A00099 EQU DSE+00000010 1 BIT(S) 18920000 A00100 EQU DSE+00000010 1 BIT(S) 18930000 DSESHR EQU DSE+00000010 1 BIT(S) 18940000 DSENEW EQU DSE+00000010 1 BIT(S) 18950000 DSEMOD EQU DSE+00000010 1 BIT(S) 18960000 DSEOLD EQU DSE+00000010 1 BIT(S) 18970000 DSECNTRL EQU DSE+00000011 1 BYTE(S) 18980000 DSEDYN EQU DSE+00000011 1 BIT(S) 18990000 DSENUSED EQU DSE+00000011 1 BIT(S) 19000000 DSEMEM EQU DSE+00000011 1 BIT(S) 19010000 DSEDTIOT EQU DSE+00000011 1 BIT(S) 19020000 DSECON EQU DSE+00000011 1 BIT(S) 19030000 A00101 EQU DSE+00000011 1 BIT(S) 19040000 DSEPERM EQU DSE+00000011 1 BIT(S) 19050000 A00102 EQU DSE+00000011 1 BIT(S) 19060000 DSEDDNAM EQU DSE+00000012 8 BYTE(S) 19070000 DSETCBAD EQU DSE+00000020 FULLWORD POINTER 19080000 DSETTRPW EQU DSE+00000024 FULLWORD INTEGER 19090000 DSENDISP EQU DSE+00000028 1 BYTE(S) 19100000 A00103 EQU DSE+00000028 1 BIT(S) 19110000 A00104 EQU DSE+00000028 1 BIT(S) 19120000 A00105 EQU DSE+00000028 1 BIT(S) 19130000 A00106 EQU DSE+00000028 1 BIT(S) 19140000 DSEKEP EQU DSE+00000028 1 BIT(S) 19150000 DSEDEL EQU DSE+00000028 1 BIT(S) 19160000 DSECAT EQU DSE+00000028 1 BIT(S) 19170000 DSEUCAT EQU DSE+00000028 1 BIT(S) 19180000 DSEADISP EQU DSE+00000029 1 BYTE(S) 19190000 A00107 EQU DSE+00000029 1 BIT(S) 19200000 A00108 EQU DSE+00000029 1 BIT(S) 19210000 A00109 EQU DSE+00000029 1 BIT(S) 19220000 A00110 EQU DSE+00000029 1 BIT(S) 19230000 DSEAKEP EQU DSE+00000029 1 BIT(S) 19240000 DSEADEL EQU DSE+00000029 1 BIT(S) 19250000 DSEACAT EQU DSE+00000029 1 BIT(S) 19260000 DSEAUCAT EQU DSE+00000029 1 BIT(S) 19270000 DSEDSORG EQU DSE+00000030 1 BYTE(S) 19280000 DSEIS EQU DSE+00000030 1 BIT(S) 19290000 DSEPS EQU DSE+00000030 1 BIT(S) 19300000 DSEDA EQU DSE+00000030 1 BIT(S) 19310000 A00111 EQU DSE+00000030 1 BIT(S) 19320000 A00112 EQU DSE+00000030 1 BIT(S) 19330000 A00113 EQU DSE+00000030 1 BIT(S) 19340000 DSEPO EQU DSE+00000030 1 BIT(S) 19350000 DSEU EQU DSE+00000030 1 BIT(S) 19360000 DSEDSLNG EQU DSE+00000031 1 BYTE POINTER 19370000 DSEDSNAM EQU DSE+00000032 44 BYTE(S) 19380000 DSEMEMBR EQU 00000000 8 BYTE(S) 19390000 ATRCB EQU 00000000 61 BYTE(S) ON WORD 19400000 ATRFORWD EQU ATRCB+00000000 FULLWORD POINTER 19410000 ATRBCKWD EQU ATRCB+00000004 FULLWORD POINTER 19420000 A00114 EQU ATRCB+00000008 4 BYTE(S) 19430000 ATRNAME EQU ATRCB+00000012 8 BYTE(S) 19440000 ATRLNGH EQU ATRCB+00000020 HALFWORD INTEGER 19450000 ATRMASK EQU ATRCB+00000022 8 BYTE(S) 19460000 A00115 EQU ATRCB+00000022 6 BYTE(S) 19470000 ATRLABEL EQU ATRCB+00000028 1 BYTE(S) 19480000 ATRINOUT EQU ATRCB+00000028 1 BIT(S) 19490000 ATROUTIN EQU ATRCB+00000028 1 BIT(S) 19500000 A00116 EQU ATRCB+00000029 1 BYTE(S) 19510000 A00117 EQU ATRCB+00000030 3 BYTE(S) 19520000 ATREXPDT EQU ATRCB+00000033 3 BYTE(S) 19530000 A00118 EQU ATRCB+00000036 2 BYTE(S) 19540000 ATRBUFNO EQU ATRCB+00000038 1 BYTE(S) 19550000 ATRBFTEK EQU ATRCB+00000039 1 BYTE(S) 19560000 ATRBFALN EQU ATRCB+00000039 1 BYTE(S) 19570000 A00119 EQU ATRCB+00000039 1 BIT(S) 19580000 ATRAUTO EQU ATRCB+00000039 2 BIT(S) 19590000 ATRSIMPL EQU ATRCB+00000039 1 BIT(S) 19600000 ATRECRD EQU ATRCB+00000039 1 BIT(S) 19610000 ATREXC EQU ATRCB+00000039 1 BIT(S) 19620000 A00120 EQU ATRCB+00000039 2 BIT(S) 19630000 ATRDOUBL EQU ATRCB+00000039 1 BIT(S) 19640000 ATRFULL EQU ATRCB+00000039 1 BIT(S) 19650000 ATRBUFL EQU ATRCB+00000040 HALFWORD INTEGER 19660000 ATREROPT EQU ATRCB+00000042 1 BYTE(S) 19670000 ATRACEPT EQU ATRCB+00000042 1 BIT(S) 19680000 ATRSKIP EQU ATRCB+00000042 1 BIT(S) 19690000 ATRABNOR EQU ATRCB+00000042 1 BIT(S) 19700000 ATRKEYLE EQU ATRCB+00000043 1 BYTE(S) 19710000 A00121 EQU ATRCB+00000044 6 BYTE(S) 19720000 ATRECFM EQU ATRCB+00000050 1 BYTE(S) 19730000 ATRUNDEF EQU ATRCB+00000050 2 BIT(S) 19740000 ATRFIXED EQU ATRCB+00000050 1 BIT(S) 19750000 ATRVARIB EQU ATRCB+00000050 1 BIT(S) 19760000 ATRTRKOV EQU ATRCB+00000050 1 BIT(S) 19770000 ATRBLOCK EQU ATRCB+00000050 1 BIT(S) 19780000 ATRSTAND EQU ATRCB+00000050 1 BIT(S) 19790000 ATRASA EQU ATRCB+00000050 1 BIT(S) 19800000 ATRMACH EQU ATRCB+00000050 1 BIT(S) 19810000 ATROPTCD EQU ATRCB+00000051 1 BYTE(S) 19820000 ATRWRTCK EQU ATRCB+00000051 1 BIT(S) 19830000 A00122 EQU ATRCB+00000051 1 BIT(S) 19840000 ATRSCHED EQU ATRCB+00000051 1 BIT(S) 19850000 A00123 EQU ATRCB+00000051 1 BIT(S) 19860000 ATRANSI EQU ATRCB+00000051 1 BIT(S) 19870000 A00124 EQU ATRCB+00000051 1 BIT(S) 19880000 ATRUSERT EQU ATRCB+00000051 1 BIT(S) 19890000 ATRBLKSI EQU ATRCB+00000052 HALFWORD INTEGER 19900000 ATRLRECL EQU ATRCB+00000054 HALFWORD INTEGER 19910000 ATRNCP EQU ATRCB+00000056 1 BYTE(S) 19920000 A00125 EQU ATRCB+00000057 4 BYTE(S) 19930000 DS 00000000C 19940000 @L EQU 1 19950000 @DATD DSECT 19960000 @SAV001 EQU @DATD+00000000 72 BYTE(S) ON WORD 19970000 DS 00000072C 19980000 @TEMPS DS 0F 19990000 DS C 20000000 @DATEND EQU * 20010000 IKJEFLK CSECT , 20020000 END IKJEFLK 20030000 ./ ADD SSI=21170679,NAME=IKJEFLL,SOURCE=1 TITLE 'IKJEFLL, LOGOFF PROCESSOR ' 00010000 * GEN(TITLE 'IKJEFLL, LOGOFF PROCESSOR '); 00020000 TITLE 'IKJEFLL, LOGOFF PROCESSOR ' 00030000 * /******************************************************************** 00040000 * /* * 00050000 * /* STATUS: * 00060000 * /* CHANGE LEVEL 001. * 00070000 * /* A 0-999999 S20032 * 00080000 * /* C 21974 * 00090000 * /* A 239600-239992,284600-284700,517600-517620 A41867 * 00100000 * /* A 64600-64700 A41867 * 00110000 * /* C 080000,818000-819000 A51284 * 00120000 * /* * 00130000 * /* FUNCTION: * 00140000 * /* IKJEFLL PERFORMS LOGOFF PROCESSING FOR THE PHASE ONE PROMPTING* 00150000 * /* MONITOR (IKJEFLC). LOGOFF PROCESSING INVOLVES UPDATING THE * 00160000 * /* USER ATTRIBUTE DATA SET IF NECESSARY AND INFORMING THE USER * 00170000 * /* THAT HE IS BEING LOGGED OFF. IF THE USER IS RE-LOGGING ON * 00180000 * /* THE LAST STEP COMPLETION CODE IS MADE AVAILABLE TO HIM VIA * 00190000 * /* A SECOND LEVEL INFORMATIONAL MESSAGE. * 00200000 * /* THE DECISION TO UPDATE THE USER ATTIBUTE DATA SET IS MADE BY * 00210000 * /* CHECKING FIELDS IN THE LWA. BITS MAY BE SET IN THE LWA AS A * 00220000 * /* RESULT OF AN INSTALLATION EXIT DURING LOGON, OR AS A RESULT OF* 00230000 * /* THE PROFILE OR TERMINAL COMMAND. IF EITHER THE BIT STRINGS IN * 00240000 * /* THE PSCB OR THE UPT HAVE BEEN CHANGED DURING THE SESSION AND * 00250000 * /* THE TERMINAL USER IS ALLOWED TO MAKE PERMANENT CHANGES TO THE * 00260000 * /* UADS THEN THE APPROPRIATE FIELDS IN THE UADS ARE UPDATED. * 00270000 * /* AFTER UADS PROCESSING IS COMPLETE, THE LAST STEP COMPLETION * 00280000 * /* CODE IS CHECKED. IF IT WAS A SYSTEM CODE OTHER THAN THAT * 00290000 * /* GENERATED AFTER AN ATTENTION EXIT HAS COMPLETED THEN THE * 00300000 * /* RELONGON BUFFER IS REINITIALIZED. IF THE LAST STEP COMPLETION* 00310000 * /* CODE WAS A USER CODE THEN THE RELOGON BUFFER HEADER IS CHECKED* 00320000 * /* TO SEE IF IT HAS BEEN ALTERED. IF IT HAS BEEN ALTERED THEN * 00330000 * /* THE BUFFER IS REINITIALIZED (I.E. THE HEADER IS RE CREATED * 00340000 * /* WITH A LENGTH FIELD OF 256 AND THE TEXT PART OF THE RECORD IS * 00350000 * /* SET TO BLANKS). IF REINITIALIZATION DOES OCCUR A SECOND LEVEL * 00360000 * /* MESSAGE IS MADE AVAILABLE TO THE TERMINAL USER INFORMING HIM * 00370000 * /* THAT LOGON INFORMATION IS NOT AVAILABLE. * 00380000 * /* * 00390000 * /* ENTRY POINTS: * 00400000 * /* IKJEFLL - ONLY ENTRY POINT. IS LINKED TO BY IKJEFLC TO DO ONE * 00410000 * /* OF THE FOLLOWING: * 00420000 * /* 1. UPDATE UPT FIELDS IN UADS * 00430000 * /* 2. UPDATE PSCB FIELDS IN UADS * 00440000 * /* 3. REININTIALIZE THE RELOGON BUFFER IF IT HAS BEEN EXPOSED * 00450000 * /* TO ALTERATION * 00460000 * /* 4. INFORM THE USER THAT HE IS BEING LOGGED OFF * 00470000 * /* 5. MAKE AVAILABLE TO THE USER WHO IS RE-LOGGING ON * 00480000 * /* INFORMATION CONCERNING THE PREVIOUS SESSION * 00490000 * /* * 00500000 * /* INPUT: * 00510000 * /* REGISTER ONE POINTS TO A FULL WORD WHICH POINTS TO THE LOGON * 00520000 * /* WORK AREA (LWA). * 00530000 * /* * 00540000 * /* OUTPUT: * 00550000 * /* THE UPT, UADSIBMT, UADSINST, AND UADSADRF IN THE USER * 00560000 * /* ATTRIBUTE DATA SET (UADS) ARE UPDATED AT LOGOFF UNLESS * 00570000 * /* OTHERWISE REQUESTED BY THE INSTALLATION. * 00580000 * /* IN THE EVENT OF AN UNRECOVERABLE ERROR, IKJEFLL WILL PUT A * 00590000 * /* MESSAGE TO THE SYSTEM OPERATOR OR TO THE USER'S TERMINAL. * 00600000 * /* ALL MESSAGES ARE PUT BY IKJEFLGM ACCORDING TO PARAMETERS * 00610000 * /* PASSED TO IT AT THE TIME OF THE ERROR. THE ERROR MESSAGES * 00620000 * /* USED BY IKJEFLL ARE GIVEN IN THE SECTION COVERING ERROR EXITS.* 00630000 * /* THE FOLLOWING MESSAGES ARE PUT TO THE TERMINAL WHEN THE USER * 00640000 * /* IS LOGGED OFF: * 00650000 * /* 1. IKJ56470I - TO USER. LOGOFF COMPLETED AT INDICATED TIME * 00660000 * /* AND DATE. * 00670000 * /* 2. IKJ56471I - TO USER. LAST STEP COMPLETION CODE (SYSTEM * 00680000 * /* OR USER) IS AS INDICATED. * 00690000 * /* 3. IKJ56472I - TO USER. LOGON INFORMATION (KEPT IN THE * 00700000 * /* RELOGON BUFFER) IS NOT AVAILABLE (BUFFER WAS * 00710000 * /* REINITIALIZED) * 00720000 * /* * 00730000 * /* EXTERNAL REFERENCES: * 00740000 * /* IKJEFLGM - CALL * 00750000 * /* IKJEFLPA - LINK * 00760000 * /* GETMAIN - SVC * 00770000 * /* FREEMAIN - SVC * 00780000 * /* ENQ - SVC * 00790000 * /* DEQ - SVC * 00800000 * /* FIND - SVC * 00810000 * /* READ - BALR * 00820000 * /* WRITE - BALR * 00830000 * /* CHECK - BALR * 00840000 * /* OPEN - SVC * 00850000 * /* CLOSE - SVC * 00860000 * /* POST - SVC * 00870000 * /* WAIT - SVC * 00880000 * /* * 00890000 * /* EXITS,NORMAL: * 00900000 * /* 1. CONTROL IS RETUNED TO IKJEFLC * 00910000 * /* * 00920000 * /* EXITS,ERROR: * 00930000 * /* IF AN OPEN OR I/O ERROR OCCURS DURING UADS PROCESSING THE USER* 00940000 * /* IS MADE AWARE OF THE TYPE OF ERROR (I/O IMPLIES READ,WRITE,OR * 00950000 * /* FIND ERROR). IF AN ERROR OCCURS DURING TERMINAL I/O THEN A * 00960000 * /* MESSAGE DESCRIBING THE ERROR IS SENT (VIA IKJEFLGM) TO * 00970000 * /* THE SYSTEM OPERATOR OR TERMINAL DESCRIBING THE ERROR OR THE * 00980000 * /* COMPONENT IN ERROR. IF THE ERROR IS UNRECOVERABLE, THEN A * 00990000 * /* DUMP ROUTINE WILL BE INVOKED TO PROVIDE APPROPRIATE STATUS * 01000000 * /* INFORMATION. THIS PROCESSING IS DONE BY THE INTERNAL * 01010000 * /* PROCEDURE MSGDUMP. * 01020000 * /* THE FOLLOWING MESSAGES ARE USED BY IKJEFLL: * 01030000 * /* 1. IKJ600I - TO OPERATOR. I/O OR OPEN ERROR HAS OCCURRED * 01040000 * /* ON SYSUADS FOR THE INDICATED USER AND PROCEDURE AT * 01050000 * /* LOGOFF. * 01060000 * /* 2. IKJ56452I - TO USER. THE SYSTEM HAS DETECTED AN ERROR * 01070000 * /* WHILE UPDATING SYSUADS. * 01080000 * /* MESSAGES 3 AND 4 ARE SENT TOGETHER. * 01090000 * /* 3. IKJ56472I - TO USER. RELOGON BUFFER AND HEADER HAVE * 01100000 * /* BEEN RESET TO NULL VALUES BECAUSE OF POSSIBLE * 01110000 * /* DAMAGE. * 01120000 * /* 4. IKJ608I - TO OPERATOR. SERVICE ROUTINE OR MACRO HAS * 01130000 * /* GIVEN INDICATED RETURN CODE FOR USER ID AND * 01140000 * /* PROCEDURE. * 01150000 * /* 5. IKJ56454I - TO USER. SERVICE ROUTINE OR MACRO HAS GIVEN * 01160000 * /* INDICATED RETURN CODE. * 01170000 * /* MESSAGES 7 AND 8 ARE SENT TOGETHER. * 01180000 * /* * 01190000 * /* TABLE/WORK AREAS: * 01200000 * /* LOGON WORK AREA - LWA * 01210000 * /* ENVIRONMENT CONTROL TABLE - ECT * 01220000 * /* JOB SCHEDULING ENTRANCE LIST - JSEL * 01230000 * /* REGION CONTROL BLOCK - RCB * 01240000 * /* TIME SHARING JOB BLOCK - TJB * 01250000 * /* TIME SHARING JOB BLOCK EXTENSION - TJBX * 01260000 * /* COMMAND SCHEDULING CONTROL BLOCK - CSCB * 01270000 * /* PROTECTED STEP CONTROL BLOCK - PSCB * 01280000 * /* USER PROFILE TABLE - UPT * 01290000 * /* COMMUNICATION VECTOR TABLE - CVT * 01300000 * /* TASK CONTROL BLOCK - TCB A41867 * 01310000 * /* JOB SCHEDULING CONTROL BLOCK - JSCB A41867 * 01320000 * /* TIME SHARING COMMUNICATION VECTOR TABLE - TSCVT * 01330000 * /* JOB CONTROL LANGUAGE SET - JCLS * 01340000 * /* LOGON COMMUNICATIONS ELEMENT - LCE * 01350000 * /* RELOGON BUFFER - RLGB * 01360000 * /* USER ATTRIBUTE DATA SET - UADS * 01370000 * /* DATA CONTROL BLOCK - DCB * 01380000 * /* IKJEFLWC * 01390000 * /* WORKAREA - TABLE OF POINTERS AND SWITCHES * 01400000 * /* * 01410000 * /* ATTRIBUTES: * 01420000 * /* RE-ENTRANT. * 01430000 * /* * 01440000 * /* NOTES: * 01450000 * /* THIS MODULE IS DEPENDENT ON THE EBCDIC CHARACTER CODE. * 01460000 * /* THIS MODULE DEVIATES FROM TYPE 1 STANDARDS IN THAT THE * 01470000 * /* COMMENTS IN THE PROGRAM ARE FL/1 SOURCE STATEMENTS * 01480000 * /* * 01490000 * /******************************************************************** 01500000 * /****************************************************** 01510000 * /* * 01520000 * /* GENERATE A MODULE ID * 01530000 * /* * 01540000 * /****************************************************** 01550000 * GEN; 01560000 LCLA &T,&SPN 01570000 &SPN SETA 252 01580000 IKJEFLL CSECT 01590000 B 16(@0,@F) BRANCH AROUND THE ID 01600000 DC AL1(8) LENGTH OF TJE MODULE NAME 01610000 DC CL8'IKJEFLL' NAME OF MODULE 01620000 DC CL3'097' JULIAN DATE OF LAST UPDAT A51284 01630000 AGO .@001 01640000 * 01650000 **/*IKJEFLL: CHART */ 01660000 **/*HEADER 01670000 **/*IKJEFLL LOGOFF PROCESSING * 01680000 **/*IKJEFLL: E ENTRY FROM IKJEFLC * 01690000 * 01700000 * /************************************************************ 01710000 * /* * 01720000 * /* BEGIN IKJEFLL - BSL PROLOG CODE * 01730000 * /* * 01740000 * /************************************************************ 01750000 * IKJEFLL: 01760000 * PROC(LOGONWA) OPTIONS(REENTRANT); 01770000 LCLA &T,&SPN 0003 01780000 .@001 ANOP 0003 01790000 IKJEFLL CSECT , 0003 01800000 STM @E,@C,12(@D) 0003 01810000 BALR @B,0 0003 01820000 @PSTART DS 0H 0003 01830000 USING @PSTART+00000,@B 0003 01840000 L @0,@SIZ001 0003 01850000 GETMAIN R,LV=(0) 0003 01860000 LR @C,@1 0003 01870000 USING @DATD+00000,@C 0003 01880000 LM @0,@1,20(@D) 0003 01890000 XC @TEMPS(@L),@TEMPS 0003 01900000 ST @D,@SAV001+4 0003 01910000 LA @F,@SAV001 0003 01920000 ST @F,8(0,@D) 0003 01930000 LR @D,@F 0003 01940000 * /************************************************************ 01950000 * /* * 01960000 * /* REGISTER DECLARATIONS * 01970000 * /* * 01980000 * /************************************************************ 01990000 * DECLARE 02000000 * TJIDREG FIXED(31) REG(0),/*CONTAINS TJID NEMBER * 02010000 * GMAPTR PTR(24) REG(1), /*POINTER TO GOTTEN CORE * 02020000 * PARMPTR PTR(24) REG(1), /*POINTER TO PASSED PARAMETER * 02030000 * PECBPTR PTR(24) REG(1), /*POINTER TO ECB TO BE POSTED * 02040000 * WECBPTR PTR(24) REG(1), /*POINTER TO ECB TO BE WAITED 02050000 * ON * 02060000 * LWAPTR PTR(24) REG(2), /*REGISTER POINTER TO LWA * 02070000 * BUFRPTR PTR(24) REG(3), /*PTR TO UADS INPUT BUFFER * 02080000 * MEMBRPTR PTR(24) REG(4), /*PTR TO UADS MEMBER NAME * 02090000 * BUFRLEN FIXED(31) REG(4), /*LENGTH OF INPUT BUFFER * 02100000 * DCBPTR PTR(24) REG(5), /*PTR TO DCB * 02110000 * RETCODE FIXED(31) REG(15); /*PROGRAM RETURN CODE * 02120000 * /************************************************************ 02130000 * /* * 02140000 * /* STATIC STORAGE WITH INITIAL VALUES * 02150000 * /* * 02160000 * /************************************************************ 02170000 * DECLARE 02180000 * QNAME CHAR(8) INIT('SYSIKJUA'), /*UADS ENQ MAJOR NAME * 02190000 * RNAME CHAR(8) INIT('OPENUADS'), /*UADS ENQ MINOR NAME * 02200000 * NOZONE STATIC CHAR(3) BDY(WORD) INIT('0F0F0F'X),/*USED 02210000 * FOR CONVERTING TO EBCDIC * 02220000 * EBCDCHAR CHAR(16) BDY(WORD) INIT('0123456789ABCDEF'); 02230000 * /************************************************************ 02240000 * /* * 02250000 * /* DYNAMIC STORAGE * 02260000 * /* * 02270000 * /************************************************************ 02280000 * DECLARE 02290000 * AREAPTR PTR(31), /*PTR TO IN-BUFFER DATA AREA * 02300000 * DATAADDR PTR(31), /*PTR TO IN-CORE UPDATE FIELD * 02310000 * UPTSAVE PTR(31), /*SAVE AREA FOR UADS UPT OFFSET * 02320000 * UPDSW FIXED(31), /*SWITCH FOR UPDATE ROUTINE * 02330000 * INDEXPTR PTR(31), /*TO LOCATE SYSTEM INDEX FIELD * 02340000 * SYSINDEX PTR(8) BASED(INDEXPTR), /*INDEX FIELD * 02350000 * MEMBERID CHAR(8), /*7-CHAR USER ID OF MEMBER * 02360000 * (SEGWTO1, /*PTR TO WTO MSG SEGS FOR IKJEFLGM* 02370000 * SEGWTO2, /*PTR TO WTO MSG SEGS FOR IKJEFLGM* 02380000 * SEGWTO3, /*PTR TO WTO MSG SEGS FOR IKJEFLGM* 02390000 * SEGWTO4) PTR(31), /*PTR TO WTO MSG SEGS FOR IKJEFLGM* 02400000 * (SEGMSG1, /*PTR TO TRM MSG SEGS FOR IKJEFLGM* 02410000 * SEGMSG2, /*PTR TO TRM MSG SEGS FOR IKJEFLGM* 02420000 * SEGMSG3, /*PTR TO TRM MSG SEGS FOR IKJEFLGM* 02430000 * SEGMSG4) PTR(31), /*PTR TO TRM MSG SEGS FOR IKJEFLGM* 02440000 * (ZONEDEC, /*USED FOR CONVERTING TO EBCDIC * 02450000 * PACKDEC) CHAR (8) BDY (DWORD), /*SAME AS ABOVE * 02460000 * RTNCODE FIXED(31), /*SAVED PROGRAM RETURN CODE * 02470000 * 1 COMPCODE BIT(32) BDY(WORD), /*STEP COMPLETION CODE * 02480000 * 2 * BIT(8), /*UNUSED * 02490000 * 2 SYSCODE BIT(12), /*SYSTEM COMPLETION CODE * 02500000 * 2 USERCODE BIT(12), /*USER COMPLETION CODE * 02510000 * 1 ZEROFELD CHAR(8) BDY(WORD),/*DBL-WORD OF ZERO * 02520000 * 2 ZEROECB BIT(32),/*ZERO ECB FOR I/O SERVICE ROUTINE 02530000 * TO CHECK. IS NEVER POSTED * 02540000 * 2 * BIT(32), 02550000 * TJBSAVE PTR(31), /*PTR TO THE TJB * 02560000 * 1 BITSFORL PTR(8), /*BIT SWITCHES FOR IKJEFLL * 02570000 * 2 INITBUFR BIT(1), /*REINITIALIZE RELOGON BUFFER BIT 02580000 * ROUTINE * 02590000 * MEMBEXTN PTR(8); /* MEMBER EXTENT BLOCK NUMBER * 02600000 * /************************************************************ 02610000 * /* * 02620000 * /* LABELS * 02630000 * /* * 02640000 * /************************************************************ 02650000 * DECLARE 02660000 * (UADSDCB, /*LABEL FOR DCB MACRO * 02670000 * UADSOPEN, /*LABEL ON L-FORM OPEN MACRO * 02680000 * UADSCLOS) LABEL GEND,/*LABEL ON CLOSE MACRO * 02690000 * 02700000 * MSGDUMP LABEL LOCAL INTERNAL; /* NAME OF ERROR DUMP */ 02710000 * 02720000 * /************************************************************ 02730000 * /* * 02740000 * /*RSRV SPACE FOR COPY OF MSG CSECT + GET ADDRBILITY TO CSECT* 02750000 * /* * 02760000 * /************************************************************ 02770000 * DECLARE 02780000 * 1 MSGDSEC1, /*MAP COPY OF MSG CSECT * 02790000 * 2 STRTUSID FIXED(15),/*USER ID SEGMENT * 02800000 * 3 LENUSID PTR(15),/*LENGTH OF USER ID * 02810000 * 2 * FIXED(15), 02820000 * 2 MSGUSID CHAR (LENGTH(' ')),/*TEXT FIELD* 02830000 * 02840000 * 2 STRTPROC FIXED(15),/*PROC NM SEGMENT * 02850000 * 02860000 * 2 * FIXED(15), 02870000 * 2 PROCNAME CHAR (LENGTH(' ')),/*TEXT FIELD 02880000 * 02890000 * 2 STRTTOD FIXED(15),/*TIME OF DAY SEGMENT * 02900000 * 2 * FIXED(15), 02910000 * 2 TOD CHAR (LENGTH(' ')), 02920000 * 02930000 * 2 STRTDATE FIXED(15),/*DATE SEGMENT * 02940000 * 2 * FIXED(15), 02950000 * 2 DATE CHAR (LENGTH(' ')), 02960000 * 02970000 * 2 STRTCODE FIXED(15),/*COMPLETION CODE SEGMENT * 02980000 * 2 * FIXED(15), 02990000 * 2 CODESTEP CHAR (LENGTH(' ')), 03000000 * 03010000 * 2 START1 FIXED(15),/*I/O ERROR SEGMENT * 03020000 * 2 * FIXED(15), 03030000 * 2 * CHAR (LENGTH('I/O ')), 03040000 * 03050000 * 2 START2 FIXED(15),/*OPEN ERROR SEGMENT * 03060000 * 2 * FIXED(15), 03070000 * 2 * CHAR (LENGTH('OPEN ')), 03080000 * 03090000 * 2 START3 FIXED(15),/*USER CODE SEGMENT * 03100000 * 2 * FIXED(15), 03110000 * 2 TEXT8 CHAR (LENGTH('USER ')), 03120000 * 03130000 * 2 START4 FIXED(15),/*SYSTEM CODE SEGMENT * 03140000 * 2 * FIXED(15), 03150000 * 2 * CHAR (LENGTH('SYSTEM')), 03160000 * 03170000 * 2 START5 FIXED(15),/*SYSUADS ERROR SEGMENT * 03180000 * 2 * FIXED(15), 03190000 * 2 TEXT10 CHAR (LENGTH('SYSUADS')), 03200000 * 03210000 * 2 START6 FIXED(15),/*IKJEFLGM ERROR SEGMENT * 03220000 * 2 * FIXED(15), 03230000 * 2 * CHAR (LENGTH('IKJEFLGM')), 03240000 * 03250000 * 2 SYSTEMER FIXED(15),/*SYSTEM ERROR MSG SEGMENT * 03260000 * 2 * FIXED(15), 03270000 * 2 * CHAR (LENGTH('SYSTEM ERROR')), 03280000 * 03290000 * 2 MULTSTEP FIXED(15),/*MULTIPLE STEP MSG SEGMENT* 03300000 * 2 * FIXED(15), 03310000 * 2 * CHAR (LENGTH 03320000 * ('MULTIPLE STEPS SPECIFIED IN LOGON PROCEDURE')), 03330000 * 03340000 * 2 PRIVLEGE FIXED(15),/*PRIVILEDGED MSG SEGMENT* 03350000 * 2 * FIXED(15), 03360000 * 2 * CHAR (LENGTH 03370000 * ('PRIVILEGED PROGRAM REFERENCED IN LOGON PROCEDURE')), 03380000 * 03390000 * 03400000 * 1 MSGDSEC2, 03410000 * 2 JCLERROR FIXED(15),/*JCL ERROR MSG SEGMENT * 03420000 * 2 * FIXED(15), 03430000 * 2 * CHAR (LENGTH 03440000 * ('JCL ERROR IN LOGON PROCEDURE')), 03450000 * 03460000 * 2 IOERJOBQ FIXED(15),/*I/O ERR ON JOB QUEUE MSG * 03470000 * 2 * FIXED(15), 03480000 * 2 * CHAR (LENGTH 03490000 * ('I/O ERROR ON JOB QUEUE')), 03500000 * 03510000 * 03520000 * 2 NOQSPACE FIXED(15),/*NO JOB QUEUE SPACE MSG * 03530000 * 2 * FIXED(15), 03540000 * 2 * CHAR (LENGTH 03550000 * ('NOT ENOUGH JOB QUEUE SPACE TO EXECUTE LOGON')), 03560000 * 03570000 * 03580000 * 2 ALLOCERR FIXED(15),/*ALLOCATION ERROR MSG SEG * 03590000 * 2 * FIXED(15), 03600000 * 2 * CHAR (LENGTH 03610000 * ('ALLOCATION UNSUCCESSFUL')), 03620000 * 03630000 * 03640000 * 2 DATAUSED FIXED(15),/*ALLOCATION ERROR MSG SEG * 03650000 * 2 * FIXED(15), 03660000 * 2 * CHAR (LENGTH 03670000 * ('DATA SET REQUESTED IN LOGON PROCEDURE ALREADY IN USE')) 03680000 * 03690000 * 03700000 * 2 NOCORE FIXED(15), /*GETMAIN FAILURE MSG SEG * 03710000 * 2 * FIXED(15), 03720000 * 2 * CHAR (LENGTH 03730000 * ('NOT ENOUGH MAIN STORAGE TO EXECUTE LOGON')), 03740000 * 03750000 * 03760000 * 2 OBTAINER FIXED(15),/*OBTAIN FAILURE MSG SEG * 03770000 * 2 * FIXED(15), 03780000 * 2 * CHAR (LENGTH('OBTAIN ERROR')), 03790000 * 03800000 * 1 MSGDSEC3, /*THIRD PART OF MSG MAP * 03810000 * 2 STEPLBER FIXED(15),/*OPEN ER ON STEPLIB MSG * 03820000 * 2 * FIXED(15), 03830000 * 2 * CHAR (LENGTH 03840000 * ('STEPLIB DATA SET COULD NOT BE OPENED')), 03850000 * 03860000 * 2 JOBLIBER FIXED(15),/*OPEN ER ON JOBLIB MSG * 03870000 * 2 * FIXED(15), 03880000 * 2 * CHAR (LENGTH 03890000 * ('JOBLIB DATA SET COULD NOT BE OPENED')); 03900000 * 03910000 * 03920000 * /************************************************************ 03930000 * /* * 03940000 * /* LOCATE MESSAGE CSECT * 03950000 * /* * 03960000 * /************************************************************ 03970000 * 03980000 * DECLARE 03990000 * 1 MSGCSECT EXT BDY(WORD), /*DESCRIBE STATIC MSG CSECT * 04000000 * 2 MSGCSEC1 CHAR(LENGTH(MSGDSEC1)),/*FIRST PART * 04010000 * 2 MSGCSEC2 CHAR(LENGTH(MSGDSEC2)),/*SECOND PART * 04020000 * 2 MSGCSEC3 CHAR(LENGTH(MSGDSEC3));/*THIRD PART * 04030000 * 04040000 * /************************************************************ 04050000 * /* * 04060000 * /* EXTERNAL AREAS * 04070000 * /* * 04080000 * /************************************************************ 04090000 * DECLARE 04100000 * FIELD CHAR(16) BASED(AREAPTR), /*DUMMY UPDATE FIELD * 04110000 * LOGONWA CHAR(1) BDY(WORD),/*DUMMY DECLARATION FOR 04120000 * INPUT PARAMETER * 04130000 * ZEROFLD BIT(32) BASED, /*ECB ZEROING BIT STRING * 04140000 * 1 EVTCB FIXED(31) BASED BDY(WORD),/*MAPPING OF ECB * 04150000 * 2 ECBITS BIT(8), /*BITS IN ECB IMPORTANT TO LOGON * 04160000 * 3 WAITBIT BIT(1), /*WAIT BIT OF ECB * 04170000 * 3 POSTBIT BIT(1), /*POST BIT OF ECB * 04180000 * 3 POSTCOD1 BIT(6),/*POST CODE OF ECB * 04190000 * 2 POSTCOD2 PTR(24) BDY(WORD,2),/*MORE OF SAME * 04200000 * DCBOFLGS BIT(8) BASED(DCBPTR+48), /*FLAG TO TEST OPEN* 04210000 * DCBBLKSI FIXED(15) BASED(DCBPTR+62), /*PTR TO DCB 04220000 * BLOCKSIZE FOR 04230000 * UADS RECORDS * 04240000 * CVTPTR PTR(31) BASED(16); /*POINTER TO THE CVT * 04250000 * 04260000 * 04270000 * /************************************************************ 04280000 * /* * 04290000 * /* MACRO MAPPINGS OF EXTERNAL AREAS * 04300000 * /* * 04310000 * /************************************************************ 04320000 * /******************************************************************** 04330000 * /* THE LOGON WORK AREA WILL CONTAIN INFORMATION WHICH IS * 04340000 * /* NECESSARY FOR THE LOGON/LOGOFF PROCESSING ROUTINES. IT * 04350000 * /* WILL CONTAIN CONTROL BLOCK POINTERS, ENTRANCE LISTS AND * 04360000 * /* PARAMETER LISTS. * 04370000 * /* A 000000-999999 20032 * 04380000 * /******************************************************************** 04390000 * DECLARE 04400000 * 1 LWA BASED(LWAPTR), 04410000 * 2 LWAPPTR POINTER, /* ADDRESS OF THE LOGON WORK* 04420000 * /* AREA * 04430000 * 04440000 * 2 LWATJID FIXED(15), /* TJID USED BY IKJEFLS * 04450000 * /* FOR SEARCHIN THE LCE AND * 04460000 * /* THE CSCB CHAINS. * 04470000 * 2 * FIXED(15), /* RESERVED * 04480000 * /* FOR SEARCHIN THE LCE AND * 04490000 * /* THE CSCB CHAINS. * 04500000 * 2 LWAPRCB POINTER, /* ADDRESS OF THE REGION * 04510000 * /* CONTROL BLOCK * 04520000 * 2 LWAACCT POINTER, /* OFFSET TO ACCT FIELD IN * 04530000 * /* UADS * 04540000 * 2 LWAPSCB POINTER, /* ADDRESS OF THE PROTECTED * 04550000 * /* STEP CONTROL BLOCK * 04560000 * 2 LWAJSEL POINTER, /* ADDRESS OF THE JOB * 04570000 * /* SCHEDULING ENTRANCE LIST * 04580000 * 2 LWAPECT POINTER, /* ADDRESS OF THE ECT * 04590000 * 2 LWAAECB, /* EVENT CONTROL BLOCK FOR * 04600000 * /* THE LOGON/LOGOFF * 04610000 * /* PROMPTING TASK * 04620000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 04630000 * /* LOGOFF CODE * 04640000 * 3 LWAABCE BIT(8),/* COMPLETION CODE BYTE * 04650000 * 2 LWAPECB, /* COMMUNICATIONS ECB * 04660000 * /* FOR COMMUNICATION FROM * 04670000 * /* THE PROMPTING TASK TO * 04680000 * /* THE SCHEDULING TASK * 04690000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 04700000 * /* LOGOFF CODE * 04710000 * 3 LWAPBCE BIT(8),/* COMPLETION CODE BYTE * 04720000 * 2 LWASECB, /* COMMUNICATIONS ECB * 04730000 * /* FOR COMMUNICATION FROM * 04740000 * /* THE SCHEDULING TASK TO * 04750000 * /* THE PROMPTING TASK * 04760000 * 3 * BIT(24), /* NOT REFERENCED BY LOGON/ * 04770000 * /* LOGOFF CODE * 04780000 * 3 LWASBCE BIT(8),/* COMPLETION CODE BYTE * 04790000 * 2 LWAFLGS BIT(32), /* FLAGS FOR USE BY LOGON * 04800000 * 3 * BIT(8), 04810000 * 3 * BIT(8), 04820000 * 3 * BIT(8), 04830000 * 3 * BIT(8), 04840000 * 4 * BIT(1), 04850000 * 4 * BIT(1), 04860000 * 4 * BIT(1), 04870000 * 4 LWALTBC BIT(1),/* LIST BC IN CONTROL * 04880000 * 4 LWATNBT BIT(1),/*USED TO INDICATE CANCEL* 04890000 * /*BY THE ATTENTION EXIT * 04900000 * /*ROUTINE. * 04910000 * 4 LWASTAY BIT(1),/*SET BY IKJEFLS1 TO * 04920000 * /*INDICATE TO IKJEFLS * 04930000 * /*THAT NO FURTHER RE- * 04940000 * /*TRYS BE ATTEMPTED. * 04950000 * 4 LWAINX1 BIT(1),/*IVE ROUTINE IN CNTRL. * 04960000 * 4 LWAILGN BIT(1),/*INITIAL LOGON INDICATOR* 04970000 * 2 LWAPTID POINTER, /* PROMPTING TASK IDENTIFIER* 04980000 * /* RETURNED BY ATTACH * 04990000 * 2 LWACTLS BIT(32), /* CONTROL BIT STRING FOR * 05000000 * /* LOGON PROMPTING TASK * 05010000 * 05020000 * 3 LWAUFAI BIT(1), /*INDICATES UNSUCCESSFUL ENQ* 05030000 * /*ON THE RESOURCE ' SYSUADS * 05040000 * /*USERID ' * 05050000 * 3 LWARFAI BIT(1), /*INDICATES AN UNSUCCESSFUL * 05060000 * /*ATTEMPT TO OBTAIN A REGION* 05070000 * /*SUITABLE TO SATISFY THE * 05080000 * /*PREVIOUS LOGON REQUEST. * 05090000 * 3 LWAFAIL BIT(1), /*INDICATES AN UNSUCCESSFUL * 05100000 * /*ATTEMPT TO OBTAIN A SYSTEM* 05110000 * /*RESOURCE.IDENTIFIED BY ANY* 05120000 * /*OTHER BIT. * 05130000 * 3 LWADISC BIT(1), /*INDICATES THAT LOGON IS TO* 05140000 * /*TERMINATE AND DISCONNECT * 05150000 * /*THE TERMINAL. * 05160000 * 3 LWANOPR BIT(1), /*IF BIT IS ONE AN INSTALLA-* 05170000 * /*TION EXIT ROUTINE HAS * 05180000 * /*PROVIDED USERID,PASSWORD, * 05190000 * /*ACCOUNT,PROCEDURE CHARAC- * 05200000 * /*TER STRINGS AND A REGION * 05210000 * /*SIZE FOR USE IN SCHEDULING* 05220000 * /*A TERMINAL JOB. * 05230000 * 3 LWANUAD BIT(1), /*IF THIS BIT IS ONE AND THE* 05240000 * /*BIT LWANOPR IS ALSO ONE NO* 05250000 * /*ACCESS OF THE UADS SHOULD * 05260000 * /*BE MADE FOR THIS TERMINAL * 05270000 * /*JOB. * 05280000 * 3 LWAJJCL BIT(1), /*JCL FOR TERMINAL JOB WAS * 05290000 * /*SUPPLIED BY AN INSTALLA- * 05300000 * /*TION EXIT ROUTINE. * 05310000 * 3 LWAPSCA BIT(1), /*PSCB ACOUNTING INFORMATION* 05320000 * /*SUPPLIED BY INSTALLATION * 05330000 * /*EXIT ROUTINE. * 05340000 * 3 LWAATR1 BIT(1), /*INFORMATION FOR THE ATR1 * 05350000 * /*FIELD OF THE PSCB WAS SUP-* 05360000 * /*PLIED BY AN INSTALLATION * 05370000 * /*EXIT ROUTINE. * 05380000 * 3 LWAATR2 BIT(1), /*INFORMATION FOR THE ATR2 * 05390000 * /*FIELD OF THE PSCB WAS SUP-* 05400000 * /*PLIED BY AN INSTALLATION * 05410000 * /*EXIT ROUTINE. * 05420000 * 3 LWAUNIT BIT(1), /*INFORMATION FOR TJBXUNIT * 05430000 * /*FIELD OF THE TJBX WAS SUP-* 05440000 * /*PLIED BY AN INSTALLATION * 05450000 * /*EXIT ROUTINE. * 05460000 * 3 LWABUPT BIT(1), /*INFORMATION FOR USER PRO- * 05470000 * /*FILE TABLE WAS SUPPLIED BY* 05480000 * /*AN INSTALLATION EXIT RTN. * 05490000 * 3 LWANONQ BIT(1), /*LOGON WILL NOT MAINTAIN AN* 05500000 * /*ENQ ON THE RESOURCE'SYSUAD* 05510000 * /*USERID' DURING THE USER'S * 05520000 * /*SESSION. * 05530000 * 3 * BIT(19), /*THESE BITS ARE RESERVED * 05540000 * 2 LWARTCD FIXED(31), /* RETURN CODE SET BY JKEFLK* 05550000 * 2 LWAPROC PTR(31), /* OFFSET TO PROCEDURE FIELD* 05560000 * /* IN THE UADS. * 05570000 * 2 LWAATXR PTR(31), /* ADDR ATTENTION EXIT RTN. * 05580000 * /* IKJEFLG * 05590000 * 2 LWAMSGR PTR(31), /* ADDR MESSAGE OUTPUT RTN. * 05600000 * /* IKJEFLGM * 05610000 * 2 LWAPP00 PTR(31), /* ADDR OF IKJEFLP00 * 05620000 * 2 LWABLDL, /* BUILD L LIST * 05630000 * 3 LWABLNO CHAR(2), /* NUMBER ENTRIES IN LIST * 05640000 * 3 LWABLEN CHAR(2), /* LENGTH OF 1 ENTRY * 05650000 * 3 LWABNAME CHAR(8),/* NAME FOR BUILD L * 05660000 * 2 LWATTRK, /* RETURN SLOT FOR TTR * 05670000 * 3 LWABLTT PTR(16), /* RELATIVE TRACK * 05680000 * 3 LWABLR PTR(8), /* BLOCK NUMBER ON TRACK * 05690000 * 3 LWABLK PTR(8), /* CONCATENATION NUMBER * 05700000 * 2 LWABLDZ BIT(8), /* LIBRARY TYPE: 0=PRIVATE * 05710000 * /* 1=LINKLIB * 05720000 * /* 2=JOBLIB * 05730000 * 2 LWABLDC BIT(8), /* 0=ALIAS, 1=MEMBER NAME * 05740000 * 2 LWADATA CHAR(42), /* USER DATE AREA * 05750000 * 2 LWANAME, /* EPLOC FOR ATTACH/XCTL * 05760000 * /* NAME * 05770000 * 3 LWARNML CHAR(1), /* USED FOR MINOR * 05780000 * /* RESOURCE NAME * 05790000 * /* LENGTH TO ENQ/DEQ * 05800000 * 3 LWARNM CHAR(7), /* USED FOR MINOR * 05810000 * /* RESOURCE NAME * 05820000 * /* IMAGE * 05830000 * 2 LWAATCH, /* ATTACH LIST * 05840000 * 3 LWAALST CHAR(52),/* ATTACH PARM LIST * 05850000 * 2 LWANQDQ CHAR(12), /* USED FOR ENQ/DEQ * 05860000 * /* PARAMETER LIST * 05870000 * 2 LWASLST CHAR(12), /* STAE CONTROL LIST * 05880000 * 2 LWAPNOT PTR(31), /* ADDR. OF NOTICE CHAIN * 05890000 * 2 LWAPMAL PTR(31), /* ADDR. OF MESSAGE CHAIN * 05900000 * 2 LWAELST, /* ECB LIST HEADER * 05910000 * 3 LWAAECBP PTR(31), /* PTR TO LWAAECB * 05920000 * 3 LWAPECBP PTR(31), /* PTR TO LWAPECB * 05930000 * 4 LWAEOEL BIT(1), /* END OF LIST BIT * 05940000 * 2 LWASARA PTR(31), /* ADDR STAE/STAI SAVE AREA * 05950000 * 2 LWARCDE FIXED(31), /* RTN CODE SET BY IKJEFLJ * 05960000 * 2 LWASTCK, /* TRACK STACKING INFO * 05970000 * 3 LWABFNO CHAR(1),/* NUMBER OF 2K BLOCKS * 05980000 * 3 LWASKAD PTR(24),/* ADDRESS OF THE STACK * 05990000 * 2 LWARES6 FIXED(31), /* RESERVED WORD * 06000000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 06010000 * /* THE FOLLOWING AREA OF THIS MACRO WILL BE USED AS THE ENTRY CODE * 06020000 * /* TO IKJEFLS1 (STAE RETRY ROUTINE). IT WILL BE EXECUTED WHENEVER * 06030000 * /* STAE NEGLECTS TO PASS IKJEFLS (STAE EXIT ROUTINE) A WORK AREA. * 06040000 * /* THE INSTRUCTIONS CONTAINED HEREIN ARE AS FOLLOWS: * 06050000 * /* USING *,15 BASE REGISTER FOR THIS CODE * 06060000 * /* LA R2,*+20 GET ADDRESS OF END OF LWA * 06070000 * /* LA R3,LWALEN GET LENGTH OF LWA * 06080000 * /* SR R2,R3 FIND START OF LWA * 06090000 * /* L R15,*+6 GET ENTRY POINT TO RETRY ROUTINE * 06100000 * /* BR R15 BRANCH TO REAL RETRY ROUTINE * 06110000 * /* DC F'0' ADDRESS OF STAE RETRY ROUTINE * 06120000 * /* DROP R15 RELEASE THE BASE REGISTER * 06130000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 06140000 * 2 LWAINST CHAR(16) BDY(WORD),/*AREA TO CONTAIN CODE * 06150000 * 2 LWARTRY PTR(31); /*ADDRESS OF STAE RETRY RTN * 06160000 * /******************************************************************** 06170000 * /* * 06180000 * /* I K J E F L J R E T U R N C O D E S * 06190000 * /* * 06200000 * /******************************************************************** 06210000 * /* IKJEFLJ COMPLETED NORMALLY * 06220000 * LWAJNRM: GEN(EQU 0); 06230000 LWAJNRM EQU 0 06240000 DS 0H 06250000 * /* JOB QUEUE ERROR * 06260000 * LWAQERR: GEN(EQU 4); 06270000 LWAQERR EQU 4 06280000 DS 0H 06290000 * /* GETMAIN ERROR * 06300000 * LWAGMER: GEN(EQU 8); 06310000 LWAGMER EQU 8 06320000 DS 0H 06330000 * /* OBTAIN ERROR * 06340000 * LWAOBTN: GEN(EQU 12); 06350000 LWAOBTN EQU 12 06360000 DS 0H 06370000 * /* CANCEL ECB POSTED * 06380000 * LWAATHP: GEN(EQU 16); 06390000 LWAATHP EQU 16 06400000 DS 0H 06410000 * /* MULTY STEP PROCEDURE * 06420000 * LWAMSPE: GEN(EQU 20); 06430000 LWAMSPE EQU 20 06440000 DS 0H 06450000 * /******************************************************************** 06460000 * /* * 06470000 * /* P O S T C O D E S F O R P E C B E C B * 06480000 * /* * 06490000 * /******************************************************************** 06500000 * /* INIT PHASE DONE POST CODE * 06510000 * INITDONE: GEN(EQU 4); 06520000 INITDONE EQU 4 06530000 DS 0H 06540000 * /* ENQ ON USER ID POST CODE * 06550000 * NQUSERID: GEN(EQU 8); 06560000 NQUSERID EQU 8 06570000 DS 0H 06580000 * /* DQ ON USER ID * 06590000 * DQUSERID: GEN(EQU 12); 06600000 DQUSERID EQU 12 06610000 DS 0H 06620000 * /* PHASE ONE PRONPTING DONE POST CODE * 06630000 * SCHEDULE: GEN(EQU 16); 06640000 SCHEDULE EQU 16 06650000 DS 0H 06660000 * /* MESSAGE BROADCASTING DONE POST CODE * 06670000 * BCDONE: GEN(EQU 20); 06680000 BCDONE EQU 20 06690000 DS 0H 06700000 * /* TERMINATE THE JOB POST CODE * 06710000 * TERMINAT: GEN(EQU 24); 06720000 TERMINAT EQU 24 06730000 DS 0H 06740000 * /******************************************************************** 06750000 * /* * 06760000 * /* P O S T C O D E S F O R S E C B E C B * 06770000 * /* * 06780000 * /******************************************************************** 06790000 * /* NQDQ RETURN CODES * 06800000 * NQDQ0: GEN(EQU 0); 06810000 NQDQ0 EQU 0 06820000 DS 0H 06830000 * /* NQDQ RETURN CODES * 06840000 * NQDQ4: GEN(EQU 4); 06850000 NQDQ4 EQU 4 06860000 DS 0H 06870000 * /* NQDQ RETURN CODES * 06880000 * NQDQ8: GEN(EQU 8); 06890000 NQDQ8 EQU 8 06900000 DS 0H 06910000 * /* START PHASE 1 PROMPTING * 06920000 * STARTP1: GEN(EQU 12); 06930000 STARTP1 EQU 12 06940000 DS 0H 06950000 * /* START PHASE 2 PROMPTING * 06960000 * STARTP2: GEN(EQU 16); 06970000 STARTP2 EQU 16 06980000 DS 0H 06990000 * /* INITATOR READY TO POST * 07000000 * INITRDY: GEN(EQU 20); 07010000 INITRDY EQU 20 07020000 DS 0H 07030000 * /* TERMINATE PROMPTING TASK * 07040000 * ENDTASK: GEN(EQU 24); 07050000 ENDTASK EQU 24 07060000 DS 0H 07070000 * DECLARE 07080000 * IKJEFLGM LABEL BASED(LWAMSGR); 07090000 ** DECLARE 07100000 ** 1 ECT BASED(LWAPECT), 07110000 ** /* *************************************************************** * 07120000 ** /* THE ENVIRONMENT CONTROL TABLE (ECT) IS BUILT BY THE TMP AND * 07130000 ** /* STORED IN A NON-SHARED SUBPOOL. ITS FIELDS CAN BE MODIFIED * 07140000 ** /* BY A CP OR SERVICE RTN BUT NOT FREED. * 07150000 ** /* *************************************************************** * 07160000 ** 07170000 ** 2 ECTRCDF CHAR(1), /* HIGH ORDER BIT INDICATES CP 07180000 ** ABENDED * 07190000 ** 2 ECTRTCD PTR(24), /* RETURN CODE FROM LAST CP OR 07200000 ** ABEND CODE IF ECTRCDF IS SET * 07210000 ** 2 ECTIOWA PTR(31), /* ADDR I/O SRV RTNS WORK AREA * 07220000 ** 2 ECTMSGF CHAR(1), /* HIGH ORDER BIT SET MEANS 07230000 ** DELETE SECOND LEVEL MSG * 07240000 ** 2 ECTSMSG PTR(24) BDY(BYTE), 07250000 ** /* ADDR OF SECOND LEVEL MSG 07260000 ** CHAIN * 07270000 ** 2 ECTPCMD CHAR(8), /* PRIMARY COMMAND NAME * 07280000 ** 2 ECTSCMD CHAR(8), /* SUBCOMMAND NAME * 07290000 ** 2 ECTSWS CHAR(1), /* 4 BYTES OF SWITCHES * 07300000 ** 3 ECTNOPD BIT(1), /* 0 BIT ON= NO OPERANDS EXIST 07310000 ** IN CMD BUFFER * 07320000 ** 3 * BIT(1), /* RESERVED * 07330000 ** 3 ECTATRM BIT(1), /* CP TERMINATED BY TMP DETACH 07340000 ** W/ STAE EQU * 07350000 ** 3 ECTLOGF BIT(1), /* LOGON/OFF REQUESTED TMP TO 07360000 ** LOGOFF USER BITS * 07370000 ** 3 ECTNMAL BIT(1), /* NO USER MSGS TO BE RECVED AT 07380000 ** LOGON * 07390000 ** 3 ECTNNOT BIT(1), /* NO BRDCST NOTICES TO BE RECVED 07400000 ** LOGON * 07410000 ** 3 * BIT(1), /* RESERVED * 07420000 ** 3 * BIT(1), /* RESERVED * 07430000 ** 2 ECTDDNUM PTR(24), /*COUNTER FOR TEMPORARY DDNAMES * 07440000 ** 2 ECTUSER PTR(31), /*RESERVED FOR INSTALLATION USE * 07450000 ** 2 * PTR(31); /*RESERVED * 07460000 ** 07470000 ** /******************************************************************* 07480000 ** /* DEFINE A JOB SCHEDULING ENTRANCE LIST * 07490000 ** /******************************************************************* 07500000 ** DECLARE 07510000 ** 1 JSEL BASED( LWAJSEL), 07520000 ** 07530000 ** /* POINTER TO AN EBCDIC STRING, PRECEDED BY A 2-BYTE * 07540000 ** /* BINARY LENGTH FIELD. THIS CHARACTER STRING * 07550000 ** /* SPECIFIES OPTIONS OF THE JOB SCHEDULING SUBROUTINE * 07560000 ** /* THE FOLLOWING KEYWORD VALUES MAY APPEAR IN THE * 07570000 ** /* OPTIONS STRING * 07580000 ** 07590000 ** /* RCVRY OR NORCVRY WHERE THE FORMER SPECIFIES THAT ANY * 07600000 ** /* JOB PROCESSED BY THE JOB SCHEDULING SUBROUTINE IS * 07610000 ** /* TO BE CONSIDERED ELIGIBLE FOR ALLOCATION RECOVERY * 07620000 ** /* WHILE THE LATTER SPECIFIES THAT ANY JOB WHICH * 07630000 ** /* WOULD OTHERWISE REQUIRE ALLOCATION RECOVERY IN * 07640000 ** /* ORDER TO BE RUN IS TO BE FAILED. RCVRY IS THE * 07650000 ** /* DEFAULT VALUE. * 07660000 ** 07670000 ** /* DDTERM=TERM OR DDTERM=IGNORE WHERE THE FORMER * 07680000 ** /* SPECIFIES THAT ANY TERMINAL DD STATEMENTS FOR THE * 07690000 ** /* JOB ARE TO BE PROCESSED AS TERMINAL DD STATEMENTS * 07700000 ** /* WHILE THE LATTER SPECIFIES THAT SUCH DD * 07710000 ** /* STATEMENTS ARE TO BE TREATED AS THOUGH THE * 07720000 ** /* 'TERM=TS' HAD NOT BEEN CODED. * 07730000 ** 07740000 ** /* TSTACK OR NOTSTACK WHICH SPECIFIES THAT TRACK * 07750000 ** /* STACKING IS OR IS NOT TO BE USED DURING JOB * 07760000 ** /* SCHEDULING SUBROUTINE PROCESSING. NOTSTACK IS * 07770000 ** /* THE DEFAULT OPTION. * 07780000 ** 07790000 ** /* WKFILE OR NOWKFILE WHICH SPECIFIES THAT DEDICATED * 07800000 ** /* WORKFILE LOGIC IS OR IS NOT TO BE APPLIED DURING * 07810000 ** /* JOB SCHEDULING SUBROUTINE PROCESSING. NOWKFILE IS * 07820000 ** /* THE DEFAULT OPTION. * 07830000 ** 07840000 ** /* ENQ=USE OR ENQ=HAVE WHICH SPECIFIES THAT THE JOB(S) * 07850000 ** /* TO BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE * 07860000 ** /* ARE TO BE FAILED IF THE DATA SETS WHICH THEY * 07870000 ** /* REQUIRE CANNOT BE OBTAINED IMMEDIATELY OR CANNOT * 07880000 ** /* BE OBTAINED AT ALL RESPECIVELY. ENQ=HAVE IS THE * 07890000 ** /* DEFAULT OPTION. * 07900000 ** 07910000 ** /* QWAIT OR NOQWAIT WHICH SPECIFIES THAT THE JOB(S) TO * 07920000 ** /* BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE ARE * 07930000 ** /* ELIGIBLE OR INELIGIBLE TO WAIT FOR SYSJOBQE SPACE.* 07940000 ** /* (THIS OPTION IS ONLY PARTIALLY SUPPORTED IN * 07950000 ** /* RELEASE 20.) QWAIT IS THE DEFAULT OPTION. * 07960000 ** 2 JSELOPT POINTER(32), 07970000 ** 07980000 ** /* POINTER TO A JOB SCHEDULING OPTIONS LIST SPECIFYING * 07990000 ** /* OPTIONS OF THE JOB SCHEDULING SUBROUTINE * 08000000 ** 2 JSELJSOL POINTER(32), 08010000 ** 08020000 ** /* POINTER TO A CSCB TO BE USED DURING THE SCHEDULING * 08030000 ** /* OF THE JOB * 08040000 ** 2 JSELCSCB POINTER(32), 08050000 ** 08060000 ** /* POINTER TO A SOURCE OF JOB CONTROL LANGUAGE * 08070000 ** /* DESCRIBING THE JOB TO BE SCHEDULED * 08080000 ** 2 JSELJCL POINTER(32), 08090000 ** 08100000 ** /* POINTER TO A JOB SCHEDULING EXIT LIST SPECIFYING ANY * 08110000 ** /* SPECIAL EXIT ROUTINES WHICH ARE TO BE INVOKED DURING * 08120000 ** /* JOB SCHEDULING SUBROUTINE PROCESSING. * 08130000 ** 2 JSELJSXL POINTER(32), 08140000 ** 08150000 ** /* THIS IS A VARIABLE-LENGTH PARAMETER LIST, SO * 08160000 ** /* THE HIGH-ORDER BIT OF THE LAST POINTER MUST * 08170000 ** /* BE SET TO 1. * 08180000 ** 3 JSELEOL BIT(1); 08190000 ** /******************************************************************* 08200000 ** DEFINE THE JOB SCHEDULING EXIT LIST 08210000 ** ******************************************************************** 08220000 ** DECLARE 08230000 ** 1 JSXL BASED(JSELJSXL) BOUNDARY(WORD), 08240000 ** /*********************************************************** 08250000 ** LENGTH OF JSXL 08260000 ** ************************************************************ 08270000 ** 2 JSXLLGTH FIXED(15), 08280000 ** /*********************************************************** 08290000 ** RETURN CODE 08300000 ** ************************************************************ 08310000 ** 2 JSXLRCOD POINTER(8), 08320000 ** /*********************************************************** 08330000 ** RETURN CODE EXTENSION FIELD -- INDICATES ORIGIN OF 08340000 ** RETURN CODE 08350000 ** ************************************************************ 08360000 ** 2 JSXLRCXT POINTER(8), 08370000 ** /*********************************************************** 08380000 ** COMMON POINTER FOR COMMUNICATION BETWEEN EXIT 08390000 ** ROUTINES 08400000 ** ************************************************************ 08410000 ** 2 JSXLCOMM POINTER(32), 08420000 ** /*********************************************************** 08430000 ** ARRAY OF EXIT DEFINITIONS 08440000 ** ************************************************************ 08450000 ** 2 JSXLLDEF(256), 08460000 ** /***************************************************** 08470000 ** DEFINITION OF LINKAGE TO BE USED -- THE FOLLOWING 08480000 ** VALUES MAY BE USED IN THIS FIELD: 08490000 ** JSXNULL -- NO EXIT SPECIFICATION 08500000 ** JSXBR -- BRANCH TO ADDRESS 08510000 ** JSXLNK -- LINK TO NAME 08520000 ** JSXXCTL -- XCTL TO NAME 08530000 ** ****************************************************** 08540000 ** 3 JSXLLINK POINTER(8), 08550000 ** /***************************************************** 08560000 ** EXIT IDENTIFIER 08570000 ** ****************************************************** 08580000 ** 3 JSXLID BIT(8), 08590000 ** /************************************************** 08600000 ** POST-PROCESSING EXIT BIT 08610000 ** *************************************************** 08620000 ** 4 JSXPOST BIT(1), 08630000 ** /************************************************** 08640000 ** PRE-INVOCATION EXIT BIT 08650000 ** *************************************************** 08660000 ** 4 JSXPRINI BIT(1), 08670000 ** /************************************************** 08680000 ** POST-INVOCATION EXIT BIT 08690000 ** *************************************************** 08700000 ** 4 JSXPTINI BIT(1), 08710000 ** /************************************************** 08720000 ** SPECIAL ACCESS METHOD BIT 08730000 ** *************************************************** 08740000 ** 4 JSXRDRAM BIT(1), 08750000 ** /************************************************** 08760000 ** POST-SCAN EXIT BIT 08770000 ** *************************************************** 08780000 ** 4 JSXPTRDR BIT(1), 08790000 ** /************************************************** 08800000 ** RESERVED 08810000 ** *************************************************** 08820000 ** 4 * BIT(3), 08830000 ** /***************************************************** 08840000 ** LINKAGE DATA -- THE FOLLOWING VALUES MAY BE USED IN 08850000 ** THIS FIELD: 08860000 ** 1. IF THE SPECIFIED LINKAGE IS 'LINK' OR 'XCTL', 08870000 ** THEN THE 6-BYTE EBCDIC NAME OF THE ROUTINE TO BE 08880000 ** GIVEN CONTROL SHOULD BE PLACED IN THIS FIELD, 08890000 ** LEFT-JUSTIFIED AND PADDED WITH BLANKS IF 08900000 ** NECESSARY. 08910000 ** 2. IF THE SPECIFIED LINKAGE IS A 'BRANCH', THEN THE 08920000 ** ADDRESS OF THE ROUTINE TO RECEIVE CONTROL SHOULD 08930000 ** BE PLACED IN THIS FIELD, AND THE HIGH-ORDER 08940000 ** BYTES OF THIS FIELD SHOULD BE SET TO HEXIDECIMAL 08950000 ** ZEROS. 08960000 ** ****************************************************** 08970000 ** 3 JSXLDATA CHARACTER(6); 08980000 ** DECLARE 08990000 ** 1 RCB BASED(LWAPRCB), 09000000 ** 2 RCBRCT PTR(31), /* ADDR OF RCT'S TCB * 09010000 ** 2 RCBECB FIXED(31), /* RCT'S ECB * 09020000 ** 2 RCBDIECB FIXED(31), /* TSC'S ECB * 09030000 ** 2 RCBTJID FIXED(15), /* TERM JOB ID OF CURRENT TS 09040000 ** JOB EXEC IN REGION * 09050000 ** 2 RCBRSIZE FIXED(15), /* SIZE OF THIS TS REGION * 09060000 ** 2 RCBLSQSZ FIXED(15), /* SIZE OF LOCAL SQS FOR THIS 09070000 ** TS REGION * 09080000 ** 2 RCBNMBR CHAR(1), /* REGION NUMBER ASSIGNED TO 09090000 ** THIS REGION * 09100000 ** 2 RCBPKEY CHAR(1), /* PROTECT KEY OF CURRENT TS 09110000 ** JOB IN THIS REGION * 09120000 ** 2 RCBUMSMN CHAR(1), /* NO OF MAIN STORAGE MAP 09130000 ** ENTRIES * 09140000 ** 2 RCBFLG CHAR(1), /* FIRST BYTE OF RCB FLAGS * 09150000 ** 3 RCBFQU BIT(1), /* QUIESCE FLAG-CURR USER 09160000 ** SHOULD BE QUIESCED * 09170000 ** 3 RCBFSO BIT(1), /* SWAP OUT * 09180000 ** 3 RCBFSI BIT(1), /* SWAP IN USERS TJID IS IN THE 09190000 ** RCB * 09200000 ** 3 RCBFRS BIT(1), /* RESTORE FLAG-USER WHOSE TJID 09210000 ** IS IN THE RCB EQU EQU * 09220000 ** 3 RCBOCAB BIT(1), /* FUNCTION FLG SET BY IKJEAS02 09230000 ** TO INVOKE IKJEAT07 * 09240000 ** 3 RCBSTR3 BIT(1), /* TELLS T05 TO POST TSCECB4 TO 09250000 ** GET T06 OUT OF WAIT FROM 09260000 ** MODIFY COMMAND FOR REG STOP * 09270000 ** 3 RCBFAT BIT(1), /* ATTENTION EXIT- A ATTN EXIT 09280000 ** IS REQ FOR A USER * 09290000 ** 3 RCBFND BIT(1), /* END RCT - RCT SHOULD RETURN 09300000 ** TO TSC-NORMALLY * 09310000 ** 2 RCBFLG2 CHAR(1), /* SECOND BYTE OF RCB FLAGS * 09320000 ** 3 RCBFSE BIT(1), /* SWAP END FLAG-SWAP I/O HAS 09330000 ** COMPLETED * 09340000 ** 3 RCBSTOP BIT(1), /* REGION STOP REQUESTED * 09350000 ** 3 RCBACTV BIT(1), /* INDICATES ACTIVE RCT. SET TO 09360000 ** 1 BY RCT INIT RESET TO 0 BY 09370000 ** RCT TERM * 09380000 ** 3 RCBSTR1 BIT(1), /* INDICATES REGION START 09390000 ** REQUESTED; ATTACH AN RCT * 09400000 ** 3 RCBSTR2 BIT(1), /* INDICATES REGION START 09410000 ** REQUESTED; CREATE SWAP LOGON 09420000 ** IMAGE * 09430000 ** 3 RCBDEAD BIT(1), /* REGION TERMINATED ABNORMALLY * 09440000 ** 3 RCBLOGPR BIT(1), /* INDICATE LOGON IMAGE 09450000 ** PROCESSING IN IKJEAT03 * 09460000 ** 3 RCBMODFY BIT(1), /* INDICATE TO T03 MODIFY IN PROG 09470000 ** FOR THIS REG - DO NOT ACCEPT 09480000 ** ANOTH MODIFY UNTIL RESET BY R0 09490000 ** WHEN REG INIT COMPLETE OR R00 09500000 ** WHEN REG CANCELLED DUE TO 09510000 ** INSUFFICIENT CORE * 09520000 ** 2 RCBFBQE CHAR(1), /* USED TO SAVE NUMBER OF 09530000 ** FBQE'S * 09540000 ** 2 RCBUTTMQ FIXED(15), /* TT MAP QUE PTR TO LOC OF 09550000 ** LOGON IMAGE ON SWAP * 09560000 ** 2 RCBCUSE FIXED(15), /* NO OF USERS CURR LOGGED ON 09570000 ** IN THIS REGION TSC WILL 09580000 ** INCREMENT COUNT BEFORE 09590000 ** DISCONNECTTSC WILL DECREMENT 09600000 ** COUNT IN LOGON * 09610000 ** 2 RCBEXTNT PTR(31), /* PTR TO TJBX CREATED SURING 09620000 ** LOGON INIT FOR REG * 09630000 ** 2 RCBUMSM PTR(31), /* PTR TO MS MAP DESCRIBING 09640000 ** THIS REGION LOGON * 09650000 ** 2 RCBSDCB PTR(31), /* ADDR OF SWAP DS CONTROL 09660000 ** BLOCK * 09670000 ** 2 RCBPQE PTR(31), /* ADDR OF PQE PTR IN SQS-FOR 09680000 ** RCT'S REGION INIT * 09690000 ** 2 RCBPRG CHAR(12), /* SVC PURGE I/O PARM LIST * 09700000 ** 2 RCBQPL PTR(31), /* ADDR OF QUIESCE I/O * 09710000 ** 2 RCBSTECB FIXED(31), /* ECB WAITED ON BY THE TSC. 09720000 ** USED TO INDICATE END OF RTC 09730000 ** PROCESSING IN EVENT OF 09740000 ** SUBSYSTEM RECOVERY * 09750000 ** 2 RCBRCOVR CHAR(1), /* INDICATE CURRENT STATE OF 09760000 ** RCT FOR RECOVERY PURPOSES IN 09770000 ** EVENT SUBSYSTEM FAILURE * 09780000 ** 2 RCBRSFLG CHAR(1), /* INDICATORS FOR OUT OF CORE 09790000 ** ABEND * 09800000 ** 3 RCBRSTRT BIT(1), /* INDICATE RESTORE STARTED * 09810000 ** 3 RCBTCBDN BIT(1), /* INDICATE TCBS REQUEUED * 09820000 ** 3 RCBQELCM BIT(1), /* INDICATE QEL RESTORE 09830000 ** PROCESSING COMPLETE * 09840000 ** 3 RCBTQECM BIT(1), /* INDICATE TQE RESTORE 09850000 ** PROCESSING COMPLETE * 09860000 ** 4 RCBRQIQC BIT(1), /* INDICATE RQE AND IQE RESTORE 09870000 ** PROCESSING COMP * 09880000 ** 3 * BIT(1), /* RESERVED * 09890000 ** 3 RCBIORSC BIT(1), /* INDICATE I/O RESTORE 09900000 ** PROCESSING COMPLETE * 09910000 ** 3 RCBWTORC BIT(1), /* INDICATE WTOR RESTORE 09920000 ** PROCESSING COMPLETE * 09930000 ** 3 RCBTACMP BIT(1), /* INDICATE TRANSIENT AREA 09940000 ** RESTORE * 09950000 ** 2 RCBQUFLG CHAR(1), /* INDICATIONS FOR OUT OF CORE 09960000 ** ABEND * 09970000 ** 3 RCBQUSTR BIT(1), /* QUIESCE STARTED * 09980000 ** 3 RCBIOSTR BIT(1), /* INDICATE 1ST ENTRY I/O PURGE 09990000 ** COMPLETE * 10000000 ** 3 RCBTADON BIT(1), /* TRANSIENT AREA QUIESCE DONE * 10010000 ** 3 RCBWTORD BIT(1), /* WTOR QUIESCE DONE * 10020000 ** 3 RCBQELDN BIT(1), /* QEL QUIESCE DONE * 10030000 ** 3 RCBIODON BIT(1), /* INDICATE 2ND ENTRY I/O PURGE 10040000 ** COMPLETE * 10050000 ** 3 RCBTQEDN BIT(1), /* TQE QUIESCE * 10060000 ** 3 RCBRQIQD BIT(1), /* INDICATE IQE AND RQE 10070000 ** COMPLETE * 10080000 ** 2 RCBSWTCH CHAR(1), /* SET & RESET BY IKJEAT07 TO 10090000 ** INDICATE METHOD OF SEARCH BY 10100000 ** IKJEAT07 * 10110000 ** 3 * BIT(1), /* RESERVED * 10120000 ** 3 RCBSWTON BIT(1), /* WHEN SET WITH BIT 0 SEARCH 10130000 ** BY TJID & TCB ADDR * 10140000 ** 3 RCBEXTRN BIT(1), /* INDICATE USAGE OF EXTERNAL 10150000 ** BY IKJEAR02 AND IKJEAR03 * 10160000 ** 3 RCBRMSAL BIT(1), /* SOLID MACHINE CHECK IN USER 10170000 ** REGION * 10180000 ** 3 RCBRMS1U BIT(1), /* INTERMITTENT MACHINE CHECK 10190000 ** IN USER REGION * 10200000 ** 3 * BIT(1), /* RESERVED * 10210000 ** 3 * BIT(1), /* RESERVED * 10220000 ** 3 * BIT(1), /* RESERVED * 10230000 ** 2 RCBCONID CHAR(1), /* CONSOLE ID FOR START COMMAND 10240000 ** OR MODIFY COMMAND * 10250000 ** 2 RCBSTAEN CHAR(1), /* INDEX VALUE TO SCHEDULE STAE 10260000 ** RETRY ROUTINES FOR RCT * 10270000 ** 2 * CHAR(2); /* RESERVED * 10280000 ** 10290000 ** DECLARE 10300000 ** 1 TJB BASED(TJBSAVE), 10310000 ** 2 TJBTSB PTR(31), /* ADDR OF TSB FOR THIS 10320000 ** JOB,0-STARTED BY OPERATOR * 10330000 ** 2 TJBATTN CHAR(1), /* NUMBER OF UNPROCESSED ATTNS 10340000 ** FOR THIS JOB * 10350000 ** 2 TJBSTAX CHAR(1), /* NUMBER OF STAX EXITS YET 10360000 ** UNSCHEDULED * 10370000 ** 2 TJBSTAT CHAR(1), /* STATUS FLAGS * 10380000 ** 3 TJBNJB BIT(1), /* NO JOB,THIS TJB IS CURRENTLY 10390000 ** UNUSED * 10400000 ** 3 TJBINCOR BIT(1), /* USER IN CORE * 10410000 ** 3 TJBLOGON BIT(1), /* LOGON START,SET BY TIOC AT 10420000 ** DIAL-UP,TSC RESET * 10430000 ** 3 TJBIWAIT BIT(1), /* INPUT WAIT,TERMINAL JOB IS 10440000 ** IN INPUT WAIT * 10450000 ** 3 TJBOWAIT BIT(1), /* OUTPUT WAIT,TERMINAL JOB IS 10460000 ** IN OUTPUT WAIT * 10470000 ** 3 TJBSILF BIT(1), /* SYSTEM INITIATED LOGOFF * 10480000 ** 3 TJBDISC BIT(1), /* DISCONNECT SET TO REQUEST 10490000 ** TIOC TO DISCON LINE * 10500000 ** 3 TJBSILF2 BIT(1), /* SYSTEM INITIATED LOGOFF * 10510000 ** 2 TJBSTAT2 CHAR(1), /* STATUS FLAGS * 10520000 ** 3 TJBHUNG BIT(1), /* HUNG UP * 10530000 ** 3 TJBHOLD BIT(1), /* USER IS IN OWAIT DUE TO HOLD 10540000 ** OPTIONS * 10550000 ** 3 TJBOCAB BIT(1), /* TSO FAILURE RESULTING IN 10560000 ** OUT-OF-CORE ABEND * 10570000 ** 3 TJBRNAV BIT(1), /* USER CANNOT BE LOGGED ON 10580000 ** BECAUSE MACHINE CHECK IN 10590000 ** REGION OR NO REGION LARGE 10600000 ** ENOUGH BITS * 10610000 ** 3 TJBSURSV BIT(1), /* ON NEXT SWAP IN,DO NOT MARK 10620000 ** SWAP UNIT AVAILABLE FOR USE * 10630000 ** 3 TJBQUIS BIT(1), /* QUIESCE STARTED FOR USER * 10640000 ** 3 TJBUSERR BIT(1), /* USER READY TO RUN * 10650000 ** 3 TJBDEAD BIT(1), /* INDIACTE ABEND RECURSION 10660000 ** TO IKJEAT07 * 10670000 ** 2 TJBEXTNT PTR(31), /* POINTER TO TJB IN SWAPPED 10680000 ** OUT JOB IMAGE * 10690000 ** 2 TJBRCB PTR(31), /* POINTER TO RCB FOR THIS 10700000 ** REGION * 10710000 ** 2 TJBUMSM PTR(31), /* POINTER TO UMSM * 10720000 ** 2 TJBSDCB PTR(31), /* PTR TO SWAP DCB FOR THIS USR * 10730000 ** 2 TJBUTTMQ FIXED(15), /* OFFSET IN TT MAP OF TT MAP Q 10740000 * FOR THIS USER * 10750000 ** 3 TJBUTTMP BIT(1), /* IF ON INDICATES PARALLEL SWP * 10760000 ** 2 TJBRSTOR CHAR(1), /* RESTORE FLAGS, TESTED BY RCT 10770000 ** RESTORE * 10780000 ** 3 TJBOWP BIT(1), /* POST OUTPUT WAIT,SET BY 10790000 ** TIOC,ENDS AN OWAIT * 10800000 ** 3 TJBIWP BIT(1), /* POST INPUT WAIT,SET BY 10810000 ** TIOC,ENDS AN IWAIT EQU * 10820000 ** 3 * BIT(1), /* RESERVED * 10830000 ** 3 TJBLOGP BIT(1), /* POST LOGON,POST ECB WAITED 10840000 ** ON BY LOGON IMAGE * 10850000 ** 3 TJBLWAIT BIT(1), /* USER IN LONG WAIT,SWAP OUT 10860000 ** IF NOT MADE READY BY RESTORE 10870000 ** PROCESSING EQU * 10880000 ** 3 * BIT(1), /* RESERVED * 10890000 ** 3 TJBFAT BIT(1), /* AN ATTN EXIT IS REQ FOR THIS 10900000 ** USER * 10910000 ** 3 * BIT(1) , /* RESERVED * 10920000 ** 2 TJBUMSMN CHAR(1), /* NUMBER OF MAP ENTRIES IN 10930000 ** UMSM * 10940000 ** 2 TJBUSER CHAR(8), /* USERID OF THIS JOB 10950000 ** OWNER,PADDED RT WITH BLANKS * 10960000 ** 2 TJBIPPB FIXED(31), /* IPPB CHAIN OF ECB'S TO BE 10970000 ** POSTED BY RESTORE * 10980000 ** 2 TJBNEWID PTR(8), /* RGN ID INTO WHICH THIS USER 10990000 ** SHOULD BE LOGGED ON. 0 IF 11000000 ** SELECTED BY DRIVER * 11010000 ** 2 TJBFLUSL CHAR(1), /* STAX LEV OF LAST STAX ISSUED 11020000 ** WITH NOPURGE OPTION * 11030000 ** 2 TJBTJID FIXED(15), /* TERMINAL JOB ID * 11040000 ** 2 TJBMONI CHAR(1), /* MONITOR CMD INDICATING INFO 11050000 ** REQUESTED * 11060000 ** 3 TJBMDSN BIT(1), /* DSNAMES * 11070000 ** 3 TJBMJBN BIT(1), /* JOBNAMES * 11080000 ** 3 TJBMSES BIT(1), /* SESSION * 11090000 ** 3 TJBMSPA BIT(1), /* SPACE * 11100000 ** 3 TJBMSTA BIT(1), /* STATUS * 11110000 ** 3 TJBGETBF BIT(1), /* THIS BIT INDICATES TPUT SHOULD 11120000 ** ATTEMPT TO GET ADDITIONAL 11130000 ** BUFFERS FOR USER BEFORE GOING 11140000 ** INTO A WAIT STATE * 11150000 ** 3 * BIT(1), /* RESERVED * 11160000 ** 3 * BIT(1), /* RESERVED * 11170000 ** 2 TJBSTAT3 CHAR(1), /* STATUS FLAGS * 11180000 ** 3 TJBDISC2 BIT(1), /* TJB GOING TO DISCONNECT * 11190000 ** 2 TJBLINE CHAR(2); /* CONTAINS THE BINARY REP OF THE 11200000 ** UNIT ADR OF LINE BEING USED * 11210000 ** 11220000 ** 11230000 ** /* --------------------------------------------------------------- * 11240000 ** 11250000 ** /* IEECHAIN MAPPING OF CSCB * 11260000 ** /* COMMAND SCHEDULING CONTROL BLOCK * 11270000 ** /* REVISED 9-1-70 * 11280000 ** 11290000 ** /* RELEASE 20.2, 2/10/71, LEVEL=1 * 11300000 ** /* RELEASE 21, 8/02/71,LEVEL=2 * 11310000 ** 11320000 ** /* RUN TIME JOB DESCRIPTOR RESIDENT IN GLOBAL SQS AND * 11330000 ** /* COMMUNICATION AREA PASSED VIA CSCB QUEUE * 11340000 ** /* FROM COMMAND SCHEDULING ROUTINES * 11350000 ** /* TO COMMAND EXECUTION ROUTINES * 11360000 ** 11370000 ** /* CREATED BY COMMAND SCHEDULER FOR LIFE OF TASK * 11380000 ** /* FOR RDR, WTR, INIT OR MOUNT TASKS * 11390000 ** 11400000 ** /* CREATED BY QUEUE MANAGEMENT DEQUEUE FOR LIFE OF JOB * 11410000 ** /* BETWEEN DEQUEUEING AND TERMINATION * 11420000 ** 11430000 ** /* CREATED BY SYSOUT WRITER FOR DSB STRING IN QUEUE ENTRY * 11440000 ** /* TO ALLOW CANCELLATION OF WRITER SUBTASKS * 11450000 ** 11460000 ** /* UPDATED BY COMMAND SCHEDULER IN EVENT OF * 11470000 ** /* CANCEL JOBNAME AFTER SELECTION, CANCEL WRITER DEVICE, * 11480000 ** /* MODIFY, OR NON-PERIODIC STOP * 11490000 ** 11500000 ** DECLARE 11510000 ** 1 CHAIN BASED(JSELCSCB), 11520000 ** 11530000 ** 2 CHPTR PTR(31), /* CHAIN PTR TO NEXT CSCB * 11540000 ** 2 CHFLG CHAR(4), /* FOUR BYTES * 11550000 ** 3 CHVCD CHAR(1), /* COMMAND VERB CODE * 11560000 ** 3 CHSZE PTR(8), /* SIZE OF THIS CSCB IN DOUBLE 11570000 ** WORDS * 11580000 ** 3 CHSTS CHAR(1), /* STATUS FLAGS * 11590000 ** 4 CHAP BIT(1), /* ASSIGNMENT PENDING * 11600000 ** 4 CHSYS BIT(1), /* SYSTEM TASK CSCB * 11610000 ** 4 CHSOUT BIT(1), /* CANCEL ALL SYSOUT * 11620000 ** 4 CHQSPC BIT(1), /* INSUFFICIENT Q SPACE FOR 422 11630000 ** ABEND * 11640000 ** 4 CHAD BIT(1), /* ADD THIS CSCB TO CHAIN * 11650000 ** 4 CHDL BIT(1), /* DELETE THIS CSCB FROM CHAIN * 11660000 ** 4 CHFC BIT(1), /* FREE THIS CSCB'S CORE * 11670000 ** 4 CHABTERM BIT(1), /* EXECUTE BRANCH ENTRY TO 11680000 ** ABTERM * 11690000 ** 3 CHACT CHAR(1), /* FLAGS INDICATING ACTIVITY 11700000 ** INVOLVED * 11710000 ** 4 CHSWAP BIT(1), /* SWAPPABLE JOB * 11720000 ** 4 CHTERM BIT(1), /* TERMINAL JOB * 11730000 ** 4 CHDISC BIT(1), /* CANCEL IMPLIES DISCONNECT * 11740000 ** 4 CHDSI BIT(1), /* ON MEANS NO DATA SET 11750000 ** INTEGRITY * 11760000 ** 4 CHCL BIT(1), /* CANCELABLE JOB STEP * 11770000 ** 4 CHCLD BIT(1), /* CANCEL COMMUNICATION SWITCH * 11780000 ** 4 CHAIFX BIT(1), /* CANCELABLE--MFTII ONLY * 11790000 ** 4 CHIFY BIT(1), /* SYSTEM ASSIGNED 11800000 ** PROCEDURE--MFTII * 11810000 ** 2 CHKEY CHAR(8), /* 1. ID OF A STARTED TASK 11820000 ** (THIS ID IS THE TASK'S 11830000 ** STEPNAME) 2. JOBNAME OF AN 11840000 ** EXECUTED JOB. * 11850000 ** 2 CHCLS CHAR(8), /* 1.PROCNAME OF A STARTED TASK 11860000 ** (THE PROCNAME IS THE TASK'S 11870000 ** JOBNAME.) 2. JOBNAME OF AN 11880000 ** EXECUTED JOB (SAME AS CHKEY) * 11890000 ** 2 CHUNIT CHAR(3), /* UNITNAME (SET FOR STARTED 11900000 ** TASKS ONLY) * 11910000 ** 2 CHCIBCTR PTR(8), /* MAXIMAL NUMBER OF QUEUED 11920000 ** CIB'S * 11930000 ** 2 CHPKE CHAR(1), /* PROTECT KEY * 11940000 ** 2 CHUCMP CHAR(1), /* UCMI (UNIT CONTROL MODULE 11950000 ** INDICATOR) THIS IS THE ID 11960000 ** OF THE CONSOLE WHICH ISSUED 11970000 ** THE COMMAND. * 11980000 ** 2 CHTJID FIXED(15), /* TERMINAL ID * 11990000 ** 12000000 ** 2 CHASM, 12010000 ** /* BEGINNING OF OVERLAY SEGMENT * 12020000 ** 12030000 ** /* BEGINNING OF CONTROL FORMAT MAPPING AFTER * 12040000 ** /* INTERPRETATION OF COMMAND OPERANDS * 12050000 ** 12060000 ** 3 CHECBP PTR(31), /* PTR TO STOP/MODIFY ECB * 12070000 ** 3 CHCIBP PTR(31), /* PTR TO CIB -- * 12080000 ** 4 CHEND BIT(1), /* HIGH ORDER BIT OF LAST 12090000 ** PARAMETER POINTER IS ON * 12100000 ** 12110000 ** /* THE ABOVE ECB AND CIB POINTERS FORM * 12120000 ** /* THE COMMUNICATIONS PARAMETER LIST MAPPED BY IEZCOM * 12130000 ** 12140000 ** 4 * BIT(1), /* RESERVED * 12150000 ** 4 * BIT(1), /* RESERVED * 12160000 ** 4 * BIT(1), /* RESERVED * 12170000 ** 4 * BIT(1), /* RESERVED * 12180000 ** 4 * BIT(1), /* RESERVED * 12190000 ** 4 * BIT(1), /* RESERVED * 12200000 ** 4 * BIT(1), /* RESERVED * 12210000 ** 3 CHRPRTY CHAR(1), /* RESET PRIORITY OF A JOB 12220000 ** WHOSE PRIORITY HAS BEEN 12230000 ** RESET DURING EXECUTION * 12240000 ** 3 * PTR(24) BDY(BYTE), /* RESERVED * 12250000 ** 3 * FIXED(31), /* RESERVED * 12260000 ** 3 CHECB FIXED(31), /* STOP/MODIFY ECB * 12270000 ** 3 CHCECB FIXED(31), /* CANCEL ECB * 12280000 ** 3 * (2) FIXED(31), /* RESERVED * 12290000 ** 12300000 ** 3 CHSHORT, 12310000 ** /* AFTER MVT JOB SELECT TIME, END OF CSCB. * 12320000 ** /* MFTII CSCB IS UNCHANGED. * 12330000 ** 12340000 ** 4 CHSWT CHAR(1), /* COMMUNICATIONS SWITCHES * 12350000 ** 5 CHRESC BIT(1), /* RESERVED * 12360000 ** 5 CHJCT BIT(1), /* READER RETURN WITH IN-CORE 12370000 ** JCT * 12380000 ** 5 CHPSD BIT(1), /* WRITER PAUSE DATASET * 12390000 ** 5 CHPSF BIT(1), /* WRITER PAUSE FORMS * 12400000 ** 5 CHAC BIT(1), /* ID SPECIFIED ON S COMMAND * 12410000 ** 5 CHRESB BIT(1), /* RESERVED * 12420000 ** 5 * BIT(2), /* RESERVED (ICB337) 40890 * 12430000 ** 4 CHTCB PTR(24) BDY(BYTE), /* TCB PTR (MFTII ONLY) * 12440000 ** 4 CHSPB PTR(31), /* TCB PTR FOR ABTERM--MFTII * 12450000 ** 4 CHSPC PTR(31), /* PTR TO SMALL PARTITION 12460000 ** LIST--MFTII TRANSIENT RDR 12470000 ** TTR--MFTII COMPLETION CODE 12480000 ** FOR ABTERM--MFTII * 12490000 ** 4 CHJCL PTR(31), /* JCLS PTR -- IN-CORE JCT PTR 12500000 ** -- DA JCT TTR * 12510000 ** 12520000 ** 4 CHQPA (9) FIXED(31), /* INPUT Q MANAGER PARAMETER 12530000 ** AREA * 12540000 ** 4 CHSQA (9) FIXED(31), /* SYSOUT Q MANAGER PARAMETER 12550000 ** AREA NOTE--THESE 2 QMPAS 12560000 ** EXIST IN MVT CSCBS ONLY 12570000 ** BEFORE INITIATOR JOB SELECT 12580000 ** TIME. * 12590000 ** 12600000 ** 4 CHUSC FIXED(31), /* TIOT LENGTH--MFTII * 12610000 ** 4 CHJSCB PTR(31), /* JSCB PTR--MFTII ONLY * 12620000 ** 4 * (4) FIXED(31); /* RESERVED * 12630000 ** 12640000 ** /* END OF CONTROL FORMAT MAPPING AFTER * 12650000 ** /* INTERPRETATION OF COMMAND OPERANDS * 12660000 ** 12670000 ** DECLARE 1 CHAINS01 12680000 ** BASED(ADDR(CHASM)), /* OVERLAY * 12690000 ** 12700000 ** /* BEGINNING OF INPUT FORMAT MAPPING BEFORE * 12710000 ** /* INTERPRETATION OF COMMAND OPERANDS * 12720000 ** 12730000 ** 2 CHBUF CHAR(124), /* COMMAND IMAGE (OPERAND 12740000 ** FIELD) * 12750000 ** 2 CHTYPE CHAR(1), /* FLAGS * 12760000 ** 3 CHDSTAT BIT(1), /* STATUS DISPLAY (SVC 104) CMD * 12770000 ** 3 * BIT(5), /* RESERVED * 12780000 ** 3 CHHIAR BIT(1), /* ON MEANS H1 SPECIFIED ON 12790000 ** COMMAND (ICB337) 40890 * 12800000 ** 3 CHDEF BIT(1), /* ON MEANS DEFAULT TO 12810000 ** H0 (ICB337) 40890 * 12820000 ** 2 * CHAR(1), /* RESERVED * 12830000 ** 2 CHCNID CHAR(1), /* DISPLAY-RECEIVING CONSOLE ID * 12840000 ** 2 CHARID CHAR(1), /* DISPLAY SCREEN-AREA ID * 12850000 ** 2 CHPEND PTR(31), /* CHAIN PTR FOR PENDING S 12860000 ** CMS--MFTII ONLY * 12870000 ** 2 CHINC FIXED(15), /* UNIQUE CTR FOR INTERPRETER * 12880000 ** 2 CHCSYSO CHAR(1), /* EXPRESS CANCEL SYSOUT * 12890000 ** 3 CHALL BIT(1), /* ALL SPECIFIED * 12900000 ** 3 CHINN BIT(1), /* IN SPECIFIED * 12910000 ** 3 CHOUT BIT(1), /* OUT SPECIFIED * 12920000 ** 3 CHHOLD BIT(1), /* HOLD Q SPECIFIED * 12930000 ** 3 CHQUE BIT(1), /* SPECIFIC QUEUE * 12940000 ** 3 CHDUMP BIT(1), /* DUMP SPECIFIED * 12950000 ** 3 CHJB BIT(1), /* END SCAN SWITCH * 12960000 ** 3 CHRESD BIT(1), /* RESERVED * 12970000 ** 2 CHSPA CHAR(1), /* MFTII STC SWITCHES * 12980000 ** 2 * CHAR(8), /* RESERVED * 12990000 ** 13000000 ** /* END OF INPUT FORMAT MAPPING BEFORE * 13010000 ** /* INTERPRETATION OF COMMAND OPERANDS * 13020000 ** 13030000 ** 2 CHLAST BDY(BYTE); 13040000 ** /* END OF CSCB * 13050000 ** 13060000 ** /* --------------------------------------------------------------- * 13070000 ** 13080000 ** DECLARE 13090000 ** 1 PSCB BASED(LWAPSCB), 13100000 ** /* *************************************************************** * 13110000 ** /* THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND * 13120000 ** /* FILLED IN FROM THE UADS . A FIXED LENGTH TABLE WITH ATTRIBUTE * 13130000 ** /* AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- * 13140000 ** /* BUTES AND ACCOUNTING DATA ON A USERID BASIS. THE ADDRESS OF PS * 13150000 ** /* IS PASSED TO THE TMP. HENCE IT IS AN EXTERNAL INTERFACE * 13160000 ** /* *************************************************************** * 13170000 ** 13180000 ** 2 PSCBUSER CHAR(7) BDY(WORD), 13190000 ** /* USERID PADDED RIGHT WITH 13200000 ** BLANKS * 13210000 ** 2 PSCBUSRL PTR(8), /* LENGTH OF USERID * 13220000 ** 2 PSCBGPNM CHAR(8), /* ESOTERIC GROUP NAME INIT BY 13230000 ** LOGON FROM UADS USED BY DYN 13240000 ** ALLOC WHEN UNITNAME NOT 13250000 ** SPECIFIED BUT IS REQUIRED * 13260000 ** 2 PSCBATR1 CHAR(2), /* A 15 BIT STRING OF USER 13270000 ** ATTRIBUTES * 13280000 ** 3 PSCBCTRL BIT(1), /* OPERATOR COMMAND USER * 13290000 ** 3 PSCBACCT BIT(1), /* ACCOUNT * 13300000 ** 3 PSCBJCL BIT(1), /* SUBMIT BITS * 13310000 ** 3 * BIT(1), /* RESERVED * 13320000 ** 3 * BIT(1), /* RESERVED * 13330000 ** 3 * BIT(1), /* RESERVED * 13340000 ** 3 * BIT(1), /* RESERVED * 13350000 ** 3 * BIT(1), /* RESERVED * 13360000 ** 2 PSCBATR2 CHAR(2), /* A 15 BIT STRING RESERVED FOR 13370000 ** INSTALLATION USE * 13380000 ** 2 PSCBCPU FIXED(31), /* CUMULATIVE CPU TIME USED 13390000 ** DURING SESSION * 13400000 ** 2 PSCBSWP FIXED(31), /* CUMULATIVE TIME RESIDENT IN 13410000 ** THE REGION * 13420000 ** 2 PSCBLTIM FIXED(31), /* ACTUAL LOGON TIME OF DAY * 13430000 ** 2 PSCBTCPU FIXED(31), /* TOTAL CPU TIME USED IN THIS 13440000 ** ACCOUNTING PERIOD,EXCLUDING 13450000 ** THE CURRENT SESSION. * 13460000 ** 2 PSCBTSWP FIXED(31), /* TOTAL TIME USER IS RESIDENT 13470000 ** IN THE REGION DURING THIS 13480000 ** ACCT. PER.,EXCL. THE CURR. 13490000 ** SES * 13500000 ** 2 PSCBTCON FIXED(31), /* TOTAL TIME USER IS CONNECTED 13510000 ** THIS ACCT. PERIOD,EXCLUDING 13520000 ** THIS CURR. SES * 13530000 ** 2 PSCBTCO1 FIXED(31), 13540000 ** 2 PSCBRLGB PTR(31), /* PTR TO RELOGON BUFFER * 13550000 ** 2 PSCBUPT PTR(31), /* PTR TO USER PROFILE TABLE * 13560000 ** 2 PSCBUPTL FIXED(15), /* LENGTH OF UPT * 13570000 ** 2 * BIT(16), /* RESERVED FOR IBM USE * 13580000 ** 2 PSCBRSZ POINTER(32), /* REGION SIZE REQUESTED IN 2K 13590000 ** UNITS * 13600000 ** 2 PSCBU CHAR(8); /* RESERVED FOR INSTALLATION 13610000 ** USE * 13620000 ** 13630000 ** 13640000 * DCL 1 RLGBUFR CHAR(256) BASED(PSCBRLGB) BDY(HWORD), 13650000 * 2 RLGBLEN FIXED(15), /*LENGTH OF RELOGON BUFFER * 13660000 * 2 RLGBZERO FIXED(15), /*ZERO FIELD. IS A NULL OFFSET * 13670000 * 2 RLGBFLD CHAR(252); /*RELOGON BUFFER * 13680000 ** /* *************************************************************** * 13690000 ** /* THE USER PROFILE TABLE (UPT) IS BUILT BY THE LOGON/LOGOFF * 13700000 ** /* SCHEDULER FROM INFORMATION STORED IN THE UADS AND FROM THE * 13710000 ** /* LOGON COMMAND. IT IS IN CORE SHARED BY THE TMP AND THE * 13720000 ** /* LOGON/LOGOFF SCHEDULER. CP'S AND SERVICE ROUTINES CAN MODIFY * 13730000 ** /* THE UPT, BUT THEY CANNOT FREE IT. * 13740000 ** /* *************************************************************** * 13750000 ** DECLARE 13760000 ** 1 UPT BASED(PSCBUPT), 13770000 ** 2 * CHAR(2) BDY(WORD), /* RESERVED * 13780000 ** 2 UPTUSER CHAR(10), /* RESERVED FOR INSTALLATION * 13790000 ** 2 UPTSWS CHAR(1), /* USERS ENVIRONMENT SWITCHES * 13800000 ** 3 * BIT(1), /* RESERVED * 13810000 ** 3 UPTNPRM BIT(1), /* NO PROMPTING TO BE DONE * 13820000 ** 3 UPTMID BIT(1), /* PRINT MESSAGE IDENTIFIERS * 13830000 ** 3 UPTNCOM BIT(1), /* NO USER COMMUNICATION 13840000 ** ALLOWED VIA SEND COMMAND * 13850000 ** 3 UPTPAUS BIT(1), /* PAUSE FOR '?' WHEN IN NON- 13860000 ** INTERACTIVE MODE * 13870000 ** 3 UPTALD BIT(1), /* ATTN HAS BEEN SPECIFIED AS 13880000 ** THE LINE DELETE CHARACTER * 13890000 ** 3 * BIT(1), /* RESERVED * 13900000 ** 3 * BIT(1), /* RESERVED * 13910000 ** 2 UPTCDEL CHAR(1), /* CHAR DELETE CHARACTER * 13920000 ** 2 UPTLDEL CHAR(1), /* LINE DELETE CHARACTER * 13930000 ** 2 * CHAR(1); /* RESERVED * 13940000 ** 13950000 ** 13960000 ** /* COMMUNICATION VECTOR TABLE * 13970000 ** /* RELEASE 20.2, 3/03/71, LEVEL=1 * 13980000 ** /* RELEASE 21, 6/03/71, LEVEL=2 * 13990000 ** 14000000 ** /* CVT PROPER * 14010000 ** 14020000 ** DECLARE 14030000 ** 1 CVTMAP BASED(CVTPTR), 14040000 ** 14050000 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 14060000 ** AND CURRENT TCB * 14070000 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 14080000 ** ASYNCHRONOUS EXITS * 14090000 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 14100000 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 14110000 ** BLOCKS * 14120000 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 14130000 ** CONSOLE INTERRUPTION ROUTINE * 14140000 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 14150000 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 14160000 ** VALIDITY CHECKING ROUTINE * 14170000 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 14180000 ** FOR CONVERTING RELATIVE 14190000 ** TRACK ADDR TO ABSOLUTE * 14200000 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 14210000 ** FOR CONVERTING ABSOLUTE 14220000 ** TRACK ADDR TO RELATIVE * 14230000 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 14240000 ** UNIT SECTION IN UCB LOOKUP 14250000 ** TABLE * 14260000 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 14270000 ** SECTION IN UCB LOOKUP TABLE * 14280000 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 14290000 ** ROUTINE FOR SYSTEM ERROR 14300000 ** ROUTINES * 14310000 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 14320000 ** VOLUME ENTRY IN UCB TABLE * 14330000 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 14340000 ** ROUTINE * 14350000 ** 2 CVTDATE CHAR(4), /* CURRENT DATE IN PACKED 14360000 ** DECIMAL * 14370000 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 14380000 ** (MASTER RESIDENT CORE IN PCP 14390000 ** PLEASE USE CVTMSER INSTEAD 14400000 ** TO ADDRESS MASTER SCHEDULER 14410000 ** RESIDENT DATA AREA * 14420000 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 14430000 ** CHARACTERISTIC TABLE * 14440000 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 14450000 ** ROUTINE * 14460000 ** 14470000 ** 2 CVTDAR PTR(31), /* ADDR OF I/O CONTROL BLOCK 14480000 ** COMPLEX ACCESSED BY DAR * 14490000 ** 14500000 ** 14510000 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 14520000 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 14530000 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 14540000 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 14550000 ** 2 CVTTPC PTR(31), /* ADDR OF PSEUDO CLOCK FOR 14560000 ** TIMER ROUTINE * 14570000 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 14580000 ** TO BLDL ROUTINE * 14590000 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 14600000 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 14610000 ** UCB ADDR * 14620000 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 14630000 ** ROUTINE * 14640000 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 14650000 ** ROUTINE * 14660000 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 14670000 ** TABLE * 14680000 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 14690000 ** CONFIGURATION * 14700000 ** 4 * BIT(1), /* RESERVED * 14710000 ** 4 CVT1SSS BIT(1), /* - PCP * 14720000 ** 4 CVT2SPS BIT(1), /* - MFT * 14730000 ** 4 CVT4MS1 BIT(1), /* - MVT * 14740000 ** 4 * BIT(1), /* RESERVED * 14750000 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 14760000 ** 4 * BIT(1), /* RESERVED * 14770000 ** 4 * BIT(1), /* RESERVED * 14780000 ** 2 CVTDCBA PTR(24) BDY(WORD,2), 14790000 ** /* ADDR OF DCB FOR SYS1.LOGREC * 14800000 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 14810000 ** TABLE * 14820000 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 14830000 ** FREELIST POINTER * 14840000 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 14850000 ** NUCLEUS * 14860000 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 14870000 ** ROUTINE * 14880000 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 14890000 ** DISPATCHER * 14900000 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 14910000 ** TABLE * 14920000 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 14930000 ** QUEUE * 14940000 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 14950000 ** RESIDENT DATA AREA (ADDR OF 14960000 ** MAJOR QCB IN PCP) * 14970000 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 14980000 ** OF POST ROUTINE * 14990000 ** 2 CVTTRMTB PTR(31), /* ADDR OF QTAM TERMINAL TABLE * 15000000 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 15010000 ** IN READY QUEUE * 15020000 ** 2 CVTMZ00 PTR(31), /* HIGHEST STORAGE ADDRESS * 15030000 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 15040000 ** CREATES IRBS FOR EXITS * 15050000 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 15060000 ** WORD, OR ZERO (RESERVED IN 15070000 ** PCP) * 15080000 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 15090000 ** DATA AREA (RESERVED IN PCP) * 15100000 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 15110000 ** NUMBER COUNTER * 15120000 ** 2 CVTOPTA CHAR(1), /* FLAGS * 15130000 ** 3 CVTCCH BIT(1), /* - CCH OPTION PRESENT 15140000 ** (MVT/MFT) * 15150000 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 15160000 ** I/O RECOVERY MGT (MVT/MFT) */ 15170000 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 15180000 ** --I/O RECOVERY MGT (MVT/MFT) * 15190000 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 15200000 ** 3 CVTATTCH BIT(1), /* ATTACH OPERATIVE (MFT) * 15210000 ** 3 CVTHIAR BIT(1), /* MAIN STORAGE HIERARCHY 15220000 ** SUPPORT OPERATIVE * 15230000 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 15240000 ** 3 * BIT(1), /* RESERVED * 15250000 ** 2 CVTOPTB CHAR(1), /* RESERVED * 15260000 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 15270000 ** 3 * BIT(1), /* RESERVED * 15280000 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 15290000 ** 3 * BIT(5), /* RESERVED * 15300000 ** 15310000 ** 2 CVTQCDSR PTR(31), /* MVT/MFT: CDE SEARCH ROUTINE 15320000 ** ADDR */ 15330000 ** 2 CVTQLPAQ PTR(31), /* MVT/MFT: ADDR OF TOP CDE IN LP 15340000 ** QUEUE */ 15350000 ** 15360000 ** 2 CVTMPCVT PTR(31), /* MVT: ADDR OF M65MP SECONDARY 15370000 ** CVT -- MFT/PCP: RESERVED * 15380000 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 15390000 ** 2 CVTABEND PTR(31), /* MVT: ADDR OF SECONDARY CVT 15400000 ** -- MFT/PCP: RESERVED * 15410000 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 15420000 ** 15430000 ** 15440000 ** /* MFT/MVT CVT EXTENSION * 15450000 ** 15460000 ** 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 15470000 ** SUPPORT * 15480000 ** 2 CVTQABST CHAR (2), /* MVT: AN SVC 13 INSTRUCTION 15490000 ** -- MFT: RESERVED * 15500000 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 15510000 ** (MFT WITH SUBTASKING) * 15520000 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 15530000 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 15540000 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS WORK AREA * 15550000 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 15560000 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 15570000 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 15580000 ** 4 * BIT(7), /* RESERVED * 15590000 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 15600000 ** 2 CVT0SCR1 PTR(31), /* ADDR OF RPS SECTOR 15610000 ** CONVERTER * 15620000 ** 2 CVTGTF PTR(31), /* GENERALIZED TRACE FACILITY * 15630000 ** 3 CVTGTFST CHAR(1), /* STATUS FLAGS * 15640000 ** 4 CVTGTFS BIT(2), /* STATE * 15650000 ** 4 CVTSTATE BIT(1), /* IN CONTROL * 15660000 ** 4 CVTMODE BIT(1), /* EXT MODE * 15670000 ** 4 CVTFORM BIT(1), /* ABDUMP TO FORMAT TRACE DATA * 15680000 ** 4 CVTUSR BIT(1), /* USR TRACE * 15690000 ** 4 CVTMCTYP BIT(1), /* MC INSTRUCTION VALID * 15700000 ** 4 * BIT(1), /* RESERVED * 15710000 ** 3 CVTCMT PTR(24) BDY(WORD,2),/* ADDRESS OF CLASS MASK TABLE * 15720000 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 15730000 ** ADDR OF TCAM VECTOR TABLE * 15740000 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 15750000 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 15760000 ** 4 * BIT(7), /* RESERVED * 15770000 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 15780000 ** ADDR OF TCAM VECTOR TABLE * 15790000 ** 15800000 ** /* MFT WITH SUBTASKING CVT EXTENSION * 15810000 ** 15820000 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 15830000 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 15840000 ** TAB ENTRIES * 15850000 ** 3 CVTTAT PTR(24) BDY(WORD,2), 15860000 ** /* ADDR OF P0 TCB POINTER * 15870000 ** 2 CVTATER PTR(31), /* SAME AS CVTATERA BELOW ICB306* 15880000 ** 3 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 15890000 ** 3 CVTATERA PTR(24), /* ADDRESS OF SYSTEM ERROR 15900000 ** TCB ICB306* 15910000 ** 15920000 ** /* MVT/MFT CVT CONTINUATION * 15930000 ** 15940000 ** 2 * PTR(31), /* RESERVED * 15950000 ** 2 * PTR(31), /* RESERVED * 15960000 ** 2 CVTPURG PTR(31), /* ADDRESS OF SUBSYSTEM PURGE 15970000 ** ROUTINE * 15980000 ** 3 * CHAR(1), /* RESERVED * 15990000 ** 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 16000000 ** ROUTINE * 16010000 ** 2 * PTR(31), /* RESERVED * 16020000 ** 2 CVTQMSG PTR(31), /* SAME AS CVTQMSGA BELOW ICB307* 16030000 ** 3 * CHAR(1), /* RESERVED ICB307* 16040000 ** 3 CVTQMSGA PTR(24), /* ADDRESS OF TYPE 1 SVC - ABEND 16050000 ** COMMUNICATION AREA ICB307* 16060000 ** 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB308* 16070000 ** 3 * CHAR(1), /* RESERVED ICB308* 16080000 ** 3 CVTDMSRA PTR(24); /* ADDRESS OF OPEN/CLOSE/EOV 16090000 ** SUPERVISORY ROUTINE ICB308* 16100000 ** 16110000 ** /* PCP OVERLAY * 16120000 ** 16130000 ** DECLARE 16140000 ** 1 * BASED(ADDR(CVTQCDSR ) ), /* PCP OVERLAY * 16150000 ** 2 CVTCRTTR CHAR(3), /* TTR OF JCT FOR RESTART (PCP) * 16160000 ** 2 CVTSTUSA CHAR(1), /* STATUS BYTE A * 16170000 ** 3 * BIT(1), /* RESERVED * 16180000 ** 3 * BIT(1), /* RESERVED * 16190000 ** 3 * BIT(1), /* RESERVED * 16200000 ** 3 * BIT(1), /* RESERVED * 16210000 ** 3 CVTCHPTR BIT(1), /* - REQUESTED AUTOMATIC 16220000 ** CHECKPOINT RESTART WAS 16230000 ** INITIATED * 16240000 ** 3 CVTSTEPR BIT(1), /* - REQUESTED AUTOMATIC STEP 16250000 ** RESTART WAS INITIATED * 16260000 ** 3 CVTDATA BIT(1), /* - DD DATA STATEMENT IN INPUT 16270000 ** STREAM AND DATA HAS NOT BEEN 16280000 ** READ * 16290000 ** 3 * BIT(1), /* RESERVED * 16300000 ** 2 * CHAR(2), /* RESERVED * 16310000 ** 2 * CHAR(2); /* RESERVED * 16320000 ** 16330000 ** /* CVT PREFIX * 16340000 ** 16350000 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 16360000 ** 2 * CHAR(248), /* RESERVED * 16370000 ** 2 * CHAR(2), /* RESERVED * 16380000 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 16390000 ** PACKED DECIMAL, I.E., A MODEL 16400000 ** 50 WOULD BE REPRESENTED AS 16410000 ** 0050 HEX * 16420000 ** 2 CVTRELNO CHAR(4); /* OS RELEASE NUMBER (EBCDIC) * 16430000 ** 16440000 ** /* END OF CVT MACRO * 16450000 ** 16460000 * DCL 1 TCBPTRS BASED(CVTTCBP), /* A41867 * 16470000 * 2 TCBNPTR PTR(31), /* A41867 * 16480000 * 2 TCBCPTR PTR(31); /* A41867 * 16490000 * 16500000 * 16510000 ** /* TASK CONTROL BLOCK * 16520000 ** /* RELEASE 20, 5/20/71, LEVEL=2 * 16530000 ** /* RELEASE 21, 6/11/71, LEVEL=2 * 16540000 ** 16550000 ** /* TCB PREFIX * 16560000 ** 16570000 ** DECLARE 16580000 ** 1 TCBFIX BASED(TCBCPTR-32) BDY(DWORD), 16590000 ** 16600000 ** 2 TCBFRS CHAR(32) BDY(DWORD), /* FLOATING POINT REGISTER SAVE 16610000 ** AREA * 16620000 ** 3 TCBFRS0 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 16630000 ** POINT REGISTER 0 * 16640000 ** 3 TCBFRS2 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 16650000 ** POINT REGISTER 2 * 16660000 ** 3 TCBFRS4 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 16670000 ** POINT REGISTER 4 * 16680000 ** 3 TCBFRS6 CHAR(8) BDY(DWORD); /* SAVE AREA FOR FLOATING 16690000 ** POINT REGISTER 6 * 16700000 ** 16710000 ** /* TCB PROPER * 16720000 ** 16730000 ** DECLARE 16740000 ** 1 TCB BASED(TCBCPTR), 16750000 ** 16760000 ** 2 TCBRBP PTR(31), /* PTR TO TOP RB ON RB CHAIN * 16770000 ** 2 TCBPIE PTR(31), /* ADDR OF PROGRAM INTERRUPT 16780000 ** ELEMENT (PIE) * 16790000 ** 2 TCBDEB PTR(31), /* ADDR OF THE DEB QUEUE * 16800000 ** 2 TCBTIO PTR(31), /* ADDR OF THE TASK I/O TABLE 16810000 ** (TIOT) * 16820000 ** 2 TCBCMP CHAR(4), /* TASK COMPLETION CODE * 16830000 ** 3 TCBCMPF CHAR(1), /* COMPLETION FLAGS * 16840000 ** 4 TCBCREQ BIT(1), /* - A DUMP HAS BEEN REQUESTED * 16850000 ** 4 TCBCSTEP BIT(1), /* - A STEP ABEND HAS BEEN 16860000 ** REQUESTED (MVT) * 16870000 ** 4 TCBCPP BIT(1), /* - SECOND ABEND LOAD OVERLAID 16880000 ** PP STORAGE (PCP/MFT) FOR 16890000 ** FIRST LOAD OVERLAY SEE 16900000 ** TCBFLGS * 16910000 ** 4 * BIT(1), /* RESERVED * 16920000 ** 4 TCBCDBL BIT(1), /* - A DOUBLE ABEND HAS 16930000 ** OCCURRED (MFT) * 16940000 ** 4 TCBCWTO BIT(1), /* - DUMP MSG TO BE ISSUED TO 16950000 ** OPR (MFT) * 16960000 ** 4 TCBCIND BIT(1), /* - SCHEDULER TO PRINT 16970000 ** INDICATIVE DUMP (MFT) * 16980000 ** 4 TCBCMSG BIT(1), /* - ABEND MSG PROVIDED TO BE 16990000 ** PRINTED BY ABDUMP (MFT) * 17000000 ** 3 TCBCMPC CHAR(3), /* SYSTEM (FIRST 12 BITS) AND 17010000 ** USER (SECOND 12) COMPLETION 17020000 ** CODES * 17030000 ** 2 TCBTRN PTR(31), /* ADDR OF CONTROL CORE TABLE * 17040000 ** 3 TCBABF CHAR(1), /* FLAG BYTE * 17050000 ** 4 TCBMOD91 BIT(1), /* - BOTH TESTRAN AND DECIMAL 17060000 ** SIMULATOR ON A MOD 91 * 17070000 ** 4 TCBNOCHK BIT(1), /* - SUPPRESS TAKING 17080000 ** CHECKPOINTS FOR THIS STEP 17090000 ** (MVT/MFT JOB STEP TCB) * 17100000 ** 4 TCBGRPH BIT(1), /* - GRAPHICS FOREGROUND JOB OR 17110000 ** GRAPHIC JOB PROCESSOR * 17120000 ** 4 * BIT(1), /* RESERVED * 17130000 ** 4 TCBTCPP BIT(1), /* - TCAM POST-PENDING (RORI) * 17140000 ** 4 TCBTCP BIT(1), /* - TEST TASK - USED BY TEST 17150000 ** SVC * 17160000 ** 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 17170000 ** CLEAN-UP BEFORE ABNORMAL 17180000 ** TERMINATION CAN BE INVOKED * 17190000 ** 4 * BIT(1), /* RESERVED * 17200000 ** 3 TCBTRNB PTR(24) BDY(BYTE), 17210000 ** /* ADDR OF CONTROL CORE TABLE * 17220000 ** 2 TCBMSS PTR(31), /* ADDR OF THE BOUNDARY BOX 17230000 ** (PCP/MFT) ADDR OF LAST SPQE 17240000 ** ON MSS QUEUE (MVT) * 17250000 ** 3 TCBNROC PTR(8), /* NONROLLOUTABLE COUNT FIELD 17260000 ** (MVT ONLY) ZERO MEANING 17270000 ** ROLLOUTABLE * 17280000 ** 3 TCBMSSB PTR(24) BDY(BYTE), 17290000 ** /* ADDR OF THE BOUNDARY BOX 17300000 ** (PCP/MFT) ADDR OF LAST SPQE 17310000 ** ON MSS QUEUE (MVT) * 17320000 ** 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY * 17330000 ** 3 TCBFLAG BIT(4), /* - PROTECTION KEY * 17340000 ** 3 TCBFP BIT(1), /* MAIN STORAGE ACQUIRED FOR 17350000 ** THIS TASK IS TO BE FETCH 17360000 ** PROTECTED * 17370000 ** 3 TCBZERO BIT(3), /* - ZERO * 17380000 ** 2 TCBFLGS CHAR(5), /* FLAGS * 17390000 ** 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE * 17400000 ** 4 TCBFA BIT(1), /* - ABNORMAL TERMINATION IN 17410000 ** PROGRESS * 17420000 ** 4 TCBFE BIT(1), /* - NORMAL TERMINATION IN 17430000 ** PROGRESS * 17440000 ** 4 TCBFERA BIT(1), /* - ABEND INITIATED BY 17450000 ** RESIDENT ABTERM (PCP/MFT) 17460000 ** ENTER ABEND ERASE ROUTINE 17470000 ** WHEN IN CONTROL AGAIN (MVT) * 17480000 ** 4 TCBGTOFM BIT(1), /* COMPLETE GTF TRACE SYSPENSION 17490000 ** HAS BEEN REQUESTED DURING 17500000 ** PROCESSING OF THIS TASK BY A 17510000 ** ROUTINE SUCH AS DAR, SNAP, 17520000 ** ABEND, ABDUMP OR SVCDUMP 17530000 ** (MFT/MVT) ICB264* 17540000 ** 4 TCBPDUMP BIT(1), /* - PREVENT DUMP INDICATOR 17550000 ** (MVT) * 17560000 ** 4 TCBFT BIT(1), /* - TOP TASK IN TREE BEING 17570000 ** ABTERMED (MVT) 17580000 ** RESERVED (MFT) ICB264 17590000 ** DUMP PROCESSING INITIATED IN 17600000 ** ABEND (PCP) * 17610000 ** 4 TCBFS BIT(1), /* - ABTERM DUMP COMPLETED 17620000 ** (MVT) ABEND OVERLAID 17630000 ** PROBLEM PROGRAM STORAGE 17640000 ** (MFT) * 17650000 ** 4 TCBFX BIT(1), /* - PROHIBIT ASYNCHRONOUS EXIT 17660000 ** QUEUEING (MVT/MFT ONLY) * 17670000 ** 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE * 17680000 ** 4 TCBFOINP BIT(1), /* - ABEND OPERANDS SAVED IN 17690000 ** TCBCMP (MVT) ABEND 17700000 ** PROHIBITED FOR THIS SYSTEM 17710000 ** TASK (PCP/MFT) * 17720000 ** 4 TCBFSTI BIT(1), /* - SECOND JOB STEP INTERVAL 17730000 ** HAS EXPIRED (MVT INITIATOR 17740000 ** TCB) * 17750000 ** 4 TCBFRA BIT(1), /* - JOB STEP CAN CAUSE ROLLOUT 17760000 ** (MVT JOBSTEP TCB) * 17770000 ** 4 TCBFSMC BIT(1), /* - TASK HAS ISSUED SYSTEM 17780000 ** MUST COMPLETE AND SET ALL 17790000 ** OTHER TASKS IN THE SYSTEM 17800000 ** NONDISPATCHABLE * 17810000 ** 4 TCBFJMC BIT(1), /* - TASK HAS ISSUED STEP MUST 17820000 ** COMPLETE AND TURNED OFF ALL 17830000 ** OTHER TASKS IN THE STEP * 17840000 ** 4 TCBFDSOP BIT(1), /* - SYSABEND OPEN FOR JOBSTEP 17850000 ** (MVT) DUMP PROCESSING 17860000 ** INITIATED IN ABEND (PCP/MFT) * 17870000 ** 4 TCBFETXR BIT(1), /* - ETXR TO BE SCHEDULED * 17880000 ** 4 TCBFTS BIT(1), /* - MEMBER OF TIME-SLICING 17890000 ** GROUP (MVT/MFT) * 17900000 ** 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE * 17910000 ** 4 TCBFSM BIT(1), /* - ALL PSW'S IN SUPERVISOR 17920000 ** STATE (MVT) * 17930000 ** 4 TCBFRI BIT(1), /* - STEP HAS CAUSED ROLLOUTS 17940000 ** THAT ARE STILL IN EFFECT 17950000 ** (MVT JOBSTEP TCB) * 17960000 ** 4 TCBABTRM BIT(1), /* - ABTERM BIT TO PREVENT 17970000 ** MULTIPLE ABENDS (MVT) EXIT 17980000 ** EFFECTOR--SYSTEM ERROR 17990000 ** ROUTINES OPERATING FOR THIS 18000000 ** TASK (PCP/MFT) * 18010000 ** 4 * BIT(1), /* RESERVED ICB264* 18020000 ** 4 TCBFLREG BIT(1), /* - FLOATING POINT REGISTERS 18030000 ** EXIST (PCP/MFT) * 18040000 ** 4 TCBSCH BIT(1), /* - JOB SCHEDULER ROUTINES 18050000 ** IN PROCESS (PCP/MFT) * 18060000 ** 4 TCBPKCHG BIT(1), /* - XCTL IS CHANGING PROTECT 18070000 ** KEY IN PSW FROM ZERO 18080000 ** TO THAT USED BY PROBLEM 18090000 ** PROGRAM (PCP/MFT) * 18100000 ** 4 TCBTCTRM BIT(1), /* - TCAM TERMINATION 18110000 ** (MFT) ICB267* 18120000 ** 5 TCBDWSTA BIT(1), /* TASK WAS DISPATCHED WITH 18130000 ** STAE=YES OPTION (MVT) ICB314* 18140000 ** 3 TCBFLGS4 CHAR(1), /* NONDISPATCHABILITY FLAGS 18150000 ** (MVT) * 18160000 ** 4 TCBNDUMP BIT(1), /* - ABDUMP NON-DISP. INDICATOR * 18170000 ** 4 TCBSER BIT(1), /* - SER1 NON-DISP. INDICATOR * 18180000 ** 4 TCBRQENA BIT(1), /* - I/O RQE'S EXHAUSTED * 18190000 ** 4 * BIT(1), /* RESERVED * 18200000 ** 4 TCBUXNDV BIT(1), /* - TASK IS TEMPORARILY 18210000 ** NON-DISPATCHABLE BECAUSE SMF 18220000 ** TIME LIMIT OR SYSOUT LIMIT 18230000 ** USER EXIT ROUTINE IS BEING 18240000 ** EXECUTED FOR THIS STEP * 18250000 ** 4 TCBMPCVQ BIT(1), /* - VARY OR QUIESCE IN 18260000 ** MULTIPROCESSING SYSTEM * 18270000 ** 4 TCBMPCND BIT(1), /* - M65 MULTIPROCESSING 18280000 ** NON-DISP. INDICATOR FOR ALL 18290000 ** CPU'S * 18300000 ** 4 TCBONDSP BIT(1), /* - CURRENT TASK ABTERMED AND 18310000 ** NDSP WHILE DUMP DATA SET 18320000 ** BEING OPENED FOR ANOTHER TASK 18330000 ** IN SAME JOB STEP * 18340000 ** 3 TCBFLGS5 CHAR(1), /* MORE NONDISPATCHABILITY 18350000 ** FLAGS * 18360000 ** 4 TCBFC BIT(1), /* - TASK TERMINATED (MVT) * 18370000 ** 4 TCBABWF BIT(1), /* - ABNORMAL WAIT (MVT) * 18380000 ** 5 TCBUXNDF BIT(1), /* TASK IS TEMPORARILY 18390000 ** NONDISPATCHABLE BECAUSE SMF 18400000 ** TIME LIMIT OR SYSOUT LIMIT 18410000 ** USER EXIT ROUTINE IS BEING 18420000 ** EXECUTED FOR THIS STEP. THIS 18430000 ** BIT IS ONE IN ALL TCB'S FOR 18440000 ** STEP EXCEPT JOB STEP TCB. 18450000 ** (MFT) ICB263* 18460000 ** 4 TCBWFC BIT(1), /* - TASK IS WAITING FOR SPACE 18470000 ** REQUESTED BY ROLLOUT (MVT) * 18480000 ** 4 TCBFRO BIT(1), /* - JOB STEP HAS BEEN ROLLED 18490000 ** OUT (MVT) * 18500000 ** 4 TCBSYS BIT(1), /* - ANOTHER TASK IS IN SYSTEM 18510000 ** MUST COMPLETE STATUS (MVT) * 18520000 ** 4 TCBSTP BIT(1), /* - ANOTHER TASK IN JOB STEP 18530000 ** IS IN STEP MUST COMPLETE 18540000 ** STATUS (MVT) * 18550000 ** 4 TCBFCD1 BIT(1), /* - INITIATOR WAITING FOR 18560000 ** REGION (MVT) * 18570000 ** 4 TCBPNDSP BIT(1), /* - PRIMARY NONDISPATCHABILITY 18580000 ** FLAG (SECONDARY NDSP FLAG 18590000 ** TCBNDSP2 SET) * 18600000 ** 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (MVT) 18610000 ** ENQUEUE COUNT (PCP/MFT) * 18620000 ** 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY * 18630000 ** 2 TCBLLS PTR(31), /* ADDR OF LAST LLE IN LOAD 18640000 ** LIST (MVT) ADDR OF LAST RB 18650000 ** FOR PROGRAM LOADED VIA LOAD 18660000 ** (PCP/MFT) * 18670000 ** 2 TCBJLB PTR(31), /* ADDR OF JOBLIB DCB * 18680000 ** 2 TCBJPQ PTR(31), /* ADDR OF LAST CDE FOR JPA 18690000 ** CONTROL QUEUE (MVT) ADDR OF 18700000 ** FIRST TCB FOR JOBSTEP (MFT 18710000 ** WITH SUBTASKING) * 18720000 ** 3 TCBPURGE CHAR(1), /* PURGE FLAGS (MVT) * 18730000 ** 4 TCBJPQF BIT(1), /* - JPQ PURGE FLAG * 18740000 ** 4 * BIT(1), /* RESERVED * 18750000 ** 4 * BIT(1), /* RESERVED * 18760000 ** 4 * BIT(1), /* RESERVED * 18770000 ** 4 * BIT(1), /* RESERVED * 18780000 ** 4 * BIT(1), /* RESERVED * 18790000 ** 4 * BIT(1), /* RESERVED * 18800000 ** 4 * BIT(1), /* RESERVED * 18810000 ** 3 TCBJPQB PTR(24) BDY(BYTE), 18820000 ** /* ADDR OF LAST CDE FOR JPA 18830000 ** CONTROL QUEUE (MVT) ADDR OF 18840000 ** FIRST TCB FOR JOBSTEP (MFT 18850000 ** WITH SUBTASKING) * 18860000 ** 2 TCBGRS CHAR(64) BDY(WORD), /* GENERAL REGISTER SAVE AREA * 18870000 ** 3 TCBGRS0 PTR(31), /* SAVE AREA FOR REGISTER 0 * 18880000 ** 3 TCBGRS1 PTR(31), /* SAVE AREA FOR REGISTER 1 * 18890000 ** 3 TCBGRS2 PTR(31), /* SAVE AREA FOR REGISTER 2 * 18900000 ** 3 TCBGRS3 PTR(31), /* SAVE AREA FOR REGISTER 3 * 18910000 ** 3 TCBGRS4 PTR(31), /* SAVE AREA FOR REGISTER 4 * 18920000 ** 3 TCBGRS5 PTR(31), /* SAVE AREA FOR REGISTER 5 * 18930000 ** 3 TCBGRS6 PTR(31), /* SAVE AREA FOR REGISTER 6 * 18940000 ** 3 TCBGRS7 PTR(31), /* SAVE AREA FOR REGISTER 7 * 18950000 ** 3 TCBGRS8 PTR(31), /* SAVE AREA FOR REGISTER 8 * 18960000 ** 3 TCBGRS9 PTR(31), /* SAVE AREA FOR REGISTER 9 * 18970000 ** 3 TCBGRS10 PTR(31), /* SAVE AREA FOR REGISTER 10 * 18980000 ** 3 TCBGRS11 PTR(31), /* SAVE AREA FOR REGISTER 11 * 18990000 ** 3 TCBGRS12 PTR(31), /* SAVE AREA FOR REGISTER 12 * 19000000 ** 3 TCBGRS13 PTR(31), /* SAVE AREA FOR REGISTER 13 * 19010000 ** 3 TCBGRS14 PTR(31), /* SAVE AREA FOR REGISTER 14 * 19020000 ** 3 TCBGRS15 PTR(31), /* SAVE AREA FOR REGISTER 15 * 19030000 ** 2 TCBFSA PTR(31), /* ADDR OF FIRST PROBLEM 19040000 ** PROGRAM SAVE AREA * 19050000 ** 3 TCBQEL PTR(8), /* ENQUEUE COUNT (MVT) TCB 19060000 ** IDENTIFIER FIELD (PCP/MFT) * 19070000 ** 3 TCBFSAB PTR(24) BDY(BYTE), 19080000 ** /* ADDR OF FIRST PROBLEM 19090000 ** PROGRAM SAVE AREA * 19100000 ** 2 TCBTCB PTR(31), /* ADDR OF NEXT LOWER PRIRTITY 19110000 ** TCB ON READY QUEUE (MVT/MFT) * 19120000 ** 2 TCBTME PTR(31), /* ADDRESS OF TIMER QUEUE 19130000 ** ELEMENT * 19140000 ** 2 TCBJSTCB PTR(31), /* ADDR OF PARTITION 19150000 ** INFORMATION BLOCK (MFT) ADDR 19160000 ** OF FIRST JOBSTEP TCB (MVT) 19170000 ** OR OF THIS TCB IF KEY ZERO * 19180000 ** 3 TCBPIBT CHAR(1), /* PARTITION TYPE * 19190000 ** 4 TCBPART BIT(2), /* - PARTITION FLAG BITS (MFT 19200000 ** ONLY) * 19210000 ** 4 TCBSIZE BIT(1), /* - LARGE PARTITION (1)--SMALL 19220000 ** PARTITION (0) * 19230000 ** 4 TCBSTOP BIT(1), /* - CPU TIMING STOPPED BY 19240000 ** FINCH UNTIL TRANSIENT 19250000 ** LOADED * 19260000 ** 4 * BIT(1), /* RESERVED * 19270000 ** 4 * BIT(1), /* RESERVED * 19280000 ** 4 TCBWRITE BIT(1), /* - WTR PART (USED BY ABEND) * 19290000 ** 4 TCBSCHED BIT(1), /* - SCHEDULER IN CONTROL - 19300000 ** USED BY ABEND - TURNED OFF 19310000 ** WHEN TIOT WRITTEN TO JOB 19320000 ** QUEUE * 19330000 ** 3 TCBJSTCA PTR(24) BDY(BYTE), 19340000 ** /* ADDR OF PARTITION 19350000 ** INFORMATION BLOCK (MFT) ADDR 19360000 ** OF FIRST JOBSTEP TCB (MVT) 19370000 ** OR OF THIS TCB IF KEY ZERO * 19380000 ** 2 TCBNTC PTR(31), /* ADDR OF NEXT SISTER TCB 19390000 ** (ZERO IF THIS IS LAST 19400000 ** SUBTASK) (MFT WITH 19410000 ** SUBTASKING AND MVT) * 19420000 ** 2 TCBOTC PTR(31), /* ADDR OF MOTHER TCB (MFT WITH 19430000 ** SUBTASKING AND MVT) * 19440000 ** 2 TCBLTC PTR(31), /* ADDR OF LAST DAUGHTER TCB ( 19450000 ** ZERO IF THIS IS IT )(MFT 19460000 ** WITH SUBTASKING AND MVT) * 19470000 ** 2 TCBIQE PTR(31), /* ADDR OF IQE FOR EXTR 19480000 ** SCHEDULING (MFT WITH 19490000 ** SUBTASKING AND MVT) * 19500000 ** 2 TCBECB PTR(31), /* ADDR OF ECB TO BE POSTED 19510000 ** UPON TERMINATION (MFT WITH 19520000 ** SUBTASKING AND MVT) * 19530000 ** 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS * 19540000 ** 3 TCBTSTSK BIT(1), /* - SWAPPED TS TASK * 19550000 ** 3 TCBSTPPR BIT(1), /* - TASK SHOULD BE MADE NDSP 19560000 ** VIA TCBSTPP WHEN IT IS NO 19570000 ** LONGER RUNNING A PRIVILEGED 19580000 ** PGM * 19590000 ** 3 TCBATT BIT(1), /* - TASK SHOULD NOT HAVE 19600000 ** ATTENTION EXITS SCHEDULED ON 19610000 ** IT BY EXIT EFFECTOR * 19620000 ** 3 TCBTIOTG BIT(1), /* - PURGE TGET/TPUT AFTER 19630000 ** ATTENTION * 19640000 ** 3 * BIT(1), /* RESERVED * 19650000 ** 3 * BIT(1), /* RESERVED * 19660000 ** 3 TCBDYDSP BIT(1), /* M195 TASK IS MEMBER OF 19670000 ** DYNAMIC DISPATCHING 19680000 ** GROUP ICB262* 19690000 ** 3 TCBCPUBN BIT(1), /* FOR M195, ZERO MEANS I/O 19700000 ** BOUND AND ONE MEANS CPU 19710000 ** BOUND ICB262* 19720000 ** 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 19730000 ** WHICH MUST BE ISSUED BEFORE 19740000 ** TASK IS MADE DISPATCHABLE - 19750000 ** FIELD NOT RESTRICTED TO TSO * 19760000 ** 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TS TASK * 19770000 ** 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TS 19780000 ** TASK * 19790000 ** 19800000 ** /* MVT OVERLAY * 19810000 ** 19820000 ** 2 TCBPQE PTR(31); /* POINTER TO DPQE MINUS 8 FOR 19830000 ** THE JOB STEP (MVT) * 19840000 ** 19850000 ** /* MFT OVERLAY * 19860000 ** 19870000 ** DECLARE 19880000 ** 1 TCBOVLY1 BASED(ADDR(TCBPQE)), 19890000 ** 19900000 ** 2 TCBFTLMP PTR(8), /* TASK LIMIT PRIORITY (MFT) * 19910000 ** 2 TCBFTFLG CHAR(3), /* ABEND FLAGS (MFT WITH 19920000 ** SUBTASKS) * 19930000 ** 3 TCBFTFL1 CHAR(1), /* ABEND FLAGS (MFT WITH 19940000 ** SUBTASKS) * 19950000 ** 4 * BIT(1), /* RESERVED * 19960000 ** 4 * BIT(1), /* RESERVED * 19970000 ** 4 * BIT(1), /* RESERVED * 19980000 ** 4 * BIT(1), /* RESERVED * 19990000 ** 4 * BIT(1), /* RESERVED * 20000000 ** 4 TCBFTTOP BIT(1), /* - TOP TASK IN TREE BEING 20010000 ** ABTERMED * 20020000 ** 4 TCBFTCOM BIT(1), /* - ABTERM DUMP SUCCESSFULLY 20030000 ** COMPLETED * 20040000 ** 4 TCBFTSYN BIT(1), /* - ASYNCHRONOUS EXITS MAY NOT 20050000 ** BE SCHEDULED * 20060000 ** 3 TCBFTFL2 CHAR(1), /* ABEND FLAGS (MFT WITH 20070000 ** SUBTASKS) * 20080000 ** 4 * BIT(1), /* RESERVED ICB264* 20090000 ** 4 * BIT(1), /* RESERVED * 20100000 ** 4 * BIT(1), /* RESERVED * 20110000 ** 4 * BIT(1), /* RESERVED * 20120000 ** 4 * BIT(1), /* RESERVED * 20130000 ** 4 TCBFTOPN BIT(1), /* - SYSABEND OPEN (JOBSTEP 20140000 ** TCB) * 20150000 ** 4 TCBFTETX BIT(1), /* - ETXR EXIT REQUESTED BY 20160000 ** ATTACHER * 20170000 ** 4 * BIT(1), /* RESERVED * 20180000 ** 3 TCBFTFL3 CHAR(1), /* ABEND FLAGS (MFT WITH 20190000 ** SUBTASKS) * 20200000 ** 4 * BIT(1), /* RESERVED * 20210000 ** 4 * BIT(1), /* RESERVED * 20220000 ** 4 * BIT(1), /* RESERVED * 20230000 ** 4 * BIT(1), /* RESERVED ICB264* 20240000 ** 4 * BIT(1), /* RESERVED * 20250000 ** 4 TCBFTDUM BIT(1), /* - NO ABTERM DUMPS MAY BE 20260000 ** PROVIDED IN THIS STEP * 20270000 ** 4 * BIT(2), /* RESERVED * 20280000 ** 20290000 ** /* END OF OVERLAYS * 20300000 ** 20310000 ** 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 20320000 ** THIS TASK (MVT) * 20330000 ** 2 TCBSTAB PTR(31), /* ADDR OF STAE CONTROL BLOCK * 20340000 ** 3 TCBNSTAE CHAR(1), /* STAE FLAGS * 20350000 ** 4 TCBSTABE BIT(1), /* - ABEND ENTERED BECAUSE OF 20360000 ** ERROR IN STAE PROC * 20370000 ** 4 TCBQUIES BIT(1), /* - STAE INVOKED PURGE I/O 20380000 ** ROUTINE WITH QUIESCE I/O 20390000 ** OPTION * 20400000 ** 4 TCBXCTL BIT(1), /* - CURRENT SCB HAS XCTL=YES 20410000 ** OPTION * 20420000 ** 4 TCBSCAT BIT(1), /* - SCB WAS CREATED BY A 20430000 ** PROGRAM THAT IS SCATTER 20440000 ** LOADED * 20450000 ** 4 TCBHALT BIT(1), /* - PURGE I/O ROUTINE DID NOT 20460000 ** SUCCESSFULLY QUIESCE I/O BUT 20470000 ** I/O WAS HALTED * 20480000 ** 4 TCBSUPER BIT(1), /* - PROGRAM USING STAE IS IN 20490000 ** SUPERVISOR MODE * 20500000 ** 4 TCBRETRY BIT(1), /* - STAE USER REQUESTED THAT A 20510000 ** RETRY ROUTINE BE SCHEDULED 20520000 ** BUT THAT THE RB CHAIN NOT BE 20530000 ** PURGED * 20540000 ** 4 TCBVALID BIT(1), /* - RETRY ROUTINE AND 20550000 ** PARAMETER LIST ADDRESSES ARE 20560000 ** VALID * 20570000 ** 3 TCBSTABB PTR(24) BDY(BYTE), 20580000 ** /* ADDR OF STAE CONTROL BLOCK * 20590000 ** 2 TCBTCT PTR(31), /* ADDR OF TCT (MFT WITH 20600000 ** SUBTASKING - OTHERWISE 0) * 20610000 ** 3 * CHAR(1), /* RESERVED * 20620000 ** 3 TCBTCTB PTR(24) BDY(BYTE), 20630000 ** /* ADDR OF TCT (MFT WITH 20640000 ** SUBTASKING - OTHERWISE 0) * 20650000 ** 2 TCBUSER PTR(31), /* FIELD AVAILABLE TO THE USER * 20660000 ** 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 20670000 ** FLAGS * 20680000 ** 3 TCBDARP BIT(1), /* - PRIMARY DAR RECURSION - - 20690000 ** DAR FAILURE WHILE WRITING 20700000 ** CORE IMAGE * 20710000 ** 3 TCBDARS BIT(1), /* - SECONDARY DAR RECURSION - 20720000 ** - DAR FAILURE WHILE 20730000 ** ATTEMPTING TO REINSTATE 20740000 ** FAILING REGION/PARTITION * 20750000 ** 3 TCBDARD BIT(1), /* - A DUMP HAS BEEN REQUESTED 20760000 ** FOR A WRITER OR SCHEDULER 20770000 ** ABEND AND THE USER HAS NOT 20780000 ** PROVIDED A SYSABEND DD CARD * 20790000 ** 3 TCBDARC BIT(1), /* - RECURSION PERMITTED IN 20800000 ** CLOSE - AFTER DAR PROCESSING 20810000 ** COMPLETED (PCP) * 20820000 ** 4 TCBDARMC BIT(1), /* DAR HAS BEEN ENTERED TO 20830000 ** HANDLE A VALID RECURSION IN 20840000 ** MUST COMPLETE STATUS THROUGH 20850000 ** ABEND (MFT/MVT) ICB264* 20860000 ** 3 TCBDARO BIT(1), /* - SYSTEM ERROR TASK IS 20870000 ** FAILING. DAR DUMP SHOULD NOT 20880000 ** REQUEST ANY ERP PROCESSING 20890000 ** (MVT) ICB315* 20900000 ** 4 TCBDAROL BIT(1), /* PROBLEM PROGRAM STORAGE HAS 20910000 ** BEEN OVERLAID TO PROCESS 20920000 ** DAR (MFT) ICB315* 20930000 ** 3 TCBDARWT BIT(1), /* WTO IN PROCESS FOR DAR 20940000 ** (MFT/MVT) ICB264* 20950000 ** 3 * BIT(1), /* RESERVED * 20960000 ** 3 TCBEXSVC BIT(1), /* SVC DUMP IS EXECUTING FOR 20970000 ** THIS TASK * 20980000 ** 2 TCBSCNDY CHAR(3), /* SECONDARY NONDISPATCHABILITY 20990000 ** FLAGS - (IF ANY BIT IN THESE 21000000 ** BYTES IS ON, THEN SO IS THE 21010000 ** PRIMARY NDSP FLAG) * 21020000 ** 3 TCBNDSP1 CHAR(1), /* FIRST BYTE * 21030000 ** 4 TCBDARTN BIT(1), /* - TASK TEMPORARILY 21040000 ** NONDISPATCHABLE - (DAR) * 21050000 ** 4 TCBDARPN BIT(1), /* - TASK PERMANENTLY 21060000 ** NONDISPATCHABLE - (DAR) * 21070000 ** 4 TCBRSTND BIT(1), /* - TASK TEMPORARILY 21080000 ** NONDISPATCHABLE - (RMS/SER) * 21090000 ** 4 TCBRSPND BIT(1), /* - TASK PERMANENTLY 21100000 ** NONDISPATCHABLE - (RMS/SER) 21110000 ** (IF THIS FLAG IS ON THEN THE 21120000 ** PREVIOUS ONE MUST BE TOO) * 21130000 ** 4 TCBDDRND BIT(1), /* TASK IS IN DEVICE ALLOCATION 21140000 ** AND DYNAMIC DEVICE 21150000 ** RECONFIGURATION (DDR) HAS 21160000 ** MADE IT NONDISPATCHABLE * 21170000 ** 4 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 21180000 ** MUST BE DELAYED UNTIL TCAM 21190000 ** I/O APPENDAGE OR SVC ROUTINE 21200000 ** HAS COMPLETED EXECUTION 21210000 ** (TCAM IN MULTIPROCESSING 21220000 ** ENVIRONMENT) * 21230000 ** 4 * BIT(1), /* RESERVED * 21240000 ** 4 * BIT(1), /* RESERVED * 21250000 ** 3 TCBNDSP2 CHAR(1), /* SECOND BYTE * 21260000 ** 4 TCBABD BIT(1), /* - SET BY ABDUMP - (MFT WITH 21270000 ** SUBTASKING) * 21280000 ** 4 TCBSTPP BIT(1), /* - TASK NDSP BECAUSE STOPPED 21290000 ** BY SETTASK * 21300000 ** 4 TCBNDSVC BIT(1), /* - TASK NDSP BECAUSE SVC 21310000 ** DUMP IS EXECUTING FOR 21320000 ** ANOTHER TASK * 21330000 ** 4 TCBNDTS BIT(1), /* - TASK NDSP BECAUSE BEING 21340000 ** SWAPPED OUT * 21350000 ** 4 TCBIWAIT BIT(1), /* - TASK NDSP DUE TO INPUT 21360000 ** WAIT * 21370000 ** 4 TCBOWAIT BIT(1), /* - TASK NDSP DUE TO OUTPUT 21380000 ** WAIT * 21390000 ** 4 * BIT(1), /* RESERVED * 21400000 ** 4 TCBABE BIT(1), /* - ABEND ENTERED FOR THIS 21410000 ** TASK - WHILE SYSABEND DCB 21420000 ** OPEN FOR ANOTHER TASK (MFT 21430000 ** WITH SUBTASKING) * 21440000 ** 3 TCBNDSP3 CHAR(1), /* THIRD BYTE * 21450000 ** 4 TCBTERM BIT(1), /* TERMINATED (MFT WITH 21460000 ** SUBTASKING * 21470000 ** 4 TCBABTER BIT(1), /* - TO BE TERMINATED BY ABEND 21480000 ** - (MFT WITH SUBTASKING) * 21490000 ** 4 * BIT(1), /* RESERVED * 21500000 ** 4 * BIT(1), /* RESERVED * 21510000 ** 4 * BIT(1), /* RESERVED * 21520000 ** 4 * BIT(1), /* RESERVED * 21530000 ** 4 * BIT(1), /* RESERVED * 21540000 ** 4 * BIT(1), /* RESERVED * 21550000 ** 2 TCBMDIDS FIXED(31), /* RESERVED FOR MODEL-DEPENDENT 21560000 ** SUPPORT AND FOR IBM 21570000 ** PROPRIETARY PROGRAMMING 21580000 ** SUPPORT ICBXXX* 21590000 ** 2 TCBJSCB PTR(31), /* ADDR OF JOB STEP CONTROL 21600000 ** BLOCK * 21610000 ** 3 TCBRECDE CHAR(1), /* ABEND RECURSION BYTE ICB264* 21620000 ** 4 TCBREC BIT(1), /* VALID REENTRY TO ABEND 21630000 ** INDICATED IF NON-ZERO VALUE 21640000 ** IN FOLLOWING 7 BITS ICB264* 21650000 ** 4 * BIT(7), /* ABEND BITS ICB264* 21660000 ** 3 TCBJSCBB PTR(24) BDY(BYTE); 21670000 ** /* ADDR OF JOB STEP CONTROL 21680000 ** BLOCK * 21690000 ** 21700000 ** /* END OF TCB * 21710000 **/*******************************************************************/ 21720000 **/* */ 21730000 **/*NAME ***** JOB/STEP CONTROL BLOCK ***** */ 21740000 **/* */ 21750000 **/*FUNCTION COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS */ 21760000 **/* */ 21770000 **/*NOTE IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR */ 21780000 **/* REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH */ 21790000 **/* ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE */ 21800000 **/* THE GETJSCB AND FREEJSCB MACROS. */ 21810000 **/* */ 21820000 **/*RELEASE 20.2, 4/05/71, LEVEL=1 */ 21830000 **/*RELEASE 21, 08/05/71, LEVEL=3 */ 21840000 **/*******************************************************************/ 21850000 ** 21860000 ** DCL 1 IEZJSCB BASED (TCBJSCB), /* JOB STEP CONTROL BLOCK */ 21870000 ** 21880000 ** 2 * CHAR (240), /* ALLOWS ADDRESSIBILITY 21890000 ** FROM TCBJSCB ICB359*/ 21900000 ** 21910000 **/*-----------------------------------------------------------------*/ 21920000 **/* */ 21930000 **/*SECTION 1 DATA ITEMS USED IN PCP, MFT, AND MVT */ 21940000 **/* */ 21950000 **/*-----------------------------------------------------------------*/ 21960000 ** 21970000 ** 2 JSCBSEC1, /* JSCB SECTION 1 */ 21980000 ** 3 JSCBTTTR CHAR (3), /* JOB Q ADDRESS (TTR) OF TIO 21990000 ** EXTENSION */ 22000000 ** 22010000 ** 3 JSCBSWT1 CHAR (1), /* STATUS SWITCHES */ 22020000 ** 22030000 ** 4 JSCBPASS BIT (1), /* WHEN THIS BIT IS SET TO ONE 22040000 ** AND A CORRESPONDING BIT IN THE 22050000 ** DCB IS SET TO ONE THE OPEN WIL 22060000 ** BYPASS PASSWORD PROTECTION FOR 22070000 ** THE DATA SET BEING OPENED */ 22080000 ** 4 * BIT (1), /* RESERVED ICB359* 22090000 ** 4 JSCBLONG BIT (1), /* LONG RUNNING TASK IN 22100000 ** PARTITION - FAIL 22110000 ** REDEFINE (MFT) ICB359* 22120000 ** 4 * BIT (5), /* RESERVED ICB359* 22130000 ** 22140000 ** 3 JSCBQMPI PTR (31), /* ADDRESS OF THE QMPA FOR THE 22150000 ** JOB'S INPUT QUEUE TABLE ENTRY * 22160000 ** 22170000 ** 3 JSCBQMPO PTR (31), /* ADDRESS OF THE QMPA FOR THE 22180000 ** JOB'S OUTPUT MSGCLASS QUEUE 22190000 ** ENTRY */ 22200000 ** 22210000 ** 3 JSCBWTP PTR (31), /* ADDRESS OF WRITE-TO- 22220000 ** PROGRAMMER WORK AREA USED FOR 22230000 ** WRITING MESSAGES TO JOB'S 22240000 ** SYSOUT LISTING */ 22250000 ** 22260000 ** 2 JSCBEND1; /* END OF SECTION 1 */ 22270000 ** 22280000 **/*-----------------------------------------------------------------*/ 22290000 **/* */ 22300000 **/*SECTION 2 DATA ITEMS USED IN BOTH MFT AND MVT */ 22310000 **/* */ 22320000 **/*-----------------------------------------------------------------*/ 22330000 ** 22340000 ** DCL 1 JSCBSEC2 BASED (ADDR (JSCBEND1)), /* JSCB SECTION 2 */ 22350000 ** 22360000 ** 2 JSCBCSCB PTR (31), /* ADDRESS OF CSCB USED FOR 22370000 ** PROCESSING COMMANDS RECEIVED 22380000 ** FROM JOB */ 22390000 ** 2 JSCBJCT CHAR(4), /* SAME AS JSCBJCTA BELOW * 22400000 ** 3 * CHAR(1), /* RESERVED */ 22410000 ** 3 JSCBJCTA CHAR(3), /* TTR OF JOB'S JCT */ 22420000 ** 22430000 ** 2 JSCBEND2; /* END OF SECTION 2 */ 22440000 ** 22450000 **/*-----------------------------------------------------------------*/ 22460000 **/* */ 22470000 **/*SECTION 3 DATA ITEMS USED ONLY IN PCP */ 22480000 **/* */ 22490000 **/*-----------------------------------------------------------------*/ 22500000 ** 22510000 ** DCL 1 JSCBSEC3 BASED (ADDR (JSCBSEC2)), /* JSCB SECTION 3 */ 22520000 ** 22530000 ** /* CURRENTLY NO PCP-ONLY DATA ITEMS EXIST */ 22540000 ** 22550000 ** 2 JSCBEND3; /* END OF SECTION 3 */ 22560000 ** 22570000 **/*-----------------------------------------------------------------*/ 22580000 **/* */ 22590000 **/*SECTION 4 DATA ITEMS USED ONLY IN MFT */ 22600000 **/* */ 22610000 **/*-----------------------------------------------------------------*/ 22620000 ** 22630000 ** DCL 1 JSCBSEC4 BASED (ADDR (JSCBEND2)), /* JSCB SECTION 4 */ 22640000 ** 22650000 ** /* CURRENTLY NO MFT-ONLY DATA ITEMS EXIST */ 22660000 ** 22670000 ** 2 JSCBEND4; /* END OF SECTION 4 */ 22680000 ** 22690000 **/*-----------------------------------------------------------------*/ 22700000 **/* */ 22710000 **/*SECTION 5 DATA ITEMS USED ONLY IN MVT */ 22720000 **/* */ 22730000 **/*-----------------------------------------------------------------*/ 22740000 ** 22750000 ** DCL 1 JSCBSEC5 BASED (ADDR (JSCBEND2)), /* JSCB SECTION 5 */ 22760000 ** 22770000 ** 2 JSCBPSCB PTR (31), /* ADDRESS OF TSO PROTECTED 22780000 ** STEP CONTROL BLOCK */ 22790000 ** 22800000 ** 2 JSCBTJID FIXED (15), /* TSO TERMINAL JOB IDENTIFIER* 22810000 ** 22820000 ** 2 * CHAR (2), /* RESERVED */ 22830000 ** 22840000 ** 2 JSCBIECB FIXED (31), /* ECB USED FOR COMMUNICATION 22850000 ** BETWEEN DYNAMIC ALLOCATION AND 22860000 ** THE INITIATOR IN ORDER TO 22870000 ** PERFORM DATA SET INTEGRITY */ 22880000 ** 22890000 ** 2 JSCBEND5; /* END OF SECTION 5 */ 22900000 ** 22910000 ** /* MACRO DEFINITIONS OF JSCBDISP, JSCBMFTL, AND JSCBMVTL */ 22920000 ** 22930000 ** JSCBDISP: GEN (EQU 240); 22940000 JSCBDISP EQU 240 22950000 DS 0H 22960000 ** JSCBMFTL: GEN (EQU 24); 22970000 JSCBMFTL EQU 24 22980000 DS 0H 22990000 ** JSCBMVTL: GEN (EQU 36); 23000000 JSCBMVTL EQU 36 23010000 DS 0H 23020000 ** 23030000 ** /* END OF JSCB */ 23040000 ** DECLARE 23050000 ** 1 TSCVT BASED(CVTTSCVT), 23060000 ** 2 TSCVTTJB PTR(31), /* POINTER TO TJB TABLE * 23070000 ** 2 TSCVTRCB PTR(31), /* POINTER TO RCB TABLE * 23080000 ** 2 TSCVTRPT PTR(31), /* PTR TO REFERENCE POINTER 23090000 ** TABLE * 23100000 ** 2 TSCVTFLG CHAR(2), /* FLAGS TO INDICATE FUNCT 23110000 ** REQUESTED OF TSC * 23120000 ** 3 TSCSWPND BIT(1), /* SWAP ENDED * 23130000 ** 3 TSCSWPBG BIT(1), /* SWAP SHOULD BE STARTED * 23140000 ** 3 TSCLOGON BIT(1), /* A LOGON IS TO BE PROCESSED * 23150000 ** 3 TSCDISC BIT(1), /* A DISCONNECT IS TO BE 23160000 ** PROCESSED BITS * 23170000 ** 2 TSCVTFL1 CHAR(2), /* FLAGS TO INDICATE FUNCT 23180000 ** REQUESTED OF TSC * 23190000 ** 3 TSCSSTOP BIT(1), /* SYSTEM STOP REQUESTED AND 23200000 ** TSC IS STOPPING * 23210000 ** 3 TSCRSTOP BIT(1), /* REGION STOP REQUESTED * 23220000 ** 3 TSCASTOP BIT(1), /* ABEND-STOP TS FLG. SET BY 23230000 ** TSO/RMS IF TCAM MCH'SSET BY 23240000 ** TCAM STAE EXIT IF TCAM 23250000 ** ABENDS BITS * 23260000 ** 3 TSCLOGPR BIT(1), /* SET BY S02 WHEN NOT ENOUGH 23270000 ** SWAP SPACE ALLOCATED FOR LOGON 23280000 ** IMAGE PROCESSING * 23290000 ** 3 * BIT(1), /* RESERVED * 23300000 ** 3 * BIT(1), /* RESERVED * 23310000 ** 3 * BIT(1), /* RESERVED * 23320000 ** 3 * BIT(1), /* RESERVED * 23330000 ** 2 TSCVTSDC PTR(31), /* PTR TO 1ST DCB FOR SWAP DS * 23340000 ** 2 TSCVTCUS FIXED(15), /* CURR NO. OF USERS LOGGED ON 23350000 ** TSO * 23360000 ** 2 TSCVTLUS FIXED(15), /* CURRENT LIMIT NO. OF USERS 23370000 ** LOGGED ON TO TSO SET BY TSC * 23380000 ** 2 TSCVTNTJ FIXED(15), /* NO.TJB-TSB'S ALLOC BY TSO 23390000 ** INITIALLY * 23400000 ** 2 TSCVTSZU FIXED(15), /* SIZE OF TJB * 23410000 ** 2 TSCVTCTR FIXED(15), /* NO. OF RCB'S ALLOC BY TSO 23420000 ** INITIALLY * 23430000 ** 2 TSCVTMUS FIXED(15), /* MAX NUMBER OF USERS LOGGED 23440000 ** ON TO TSO SET BY START AND 23450000 ** MODIFY COMMANDS (TSC) * 23460000 ** 2 TSCVTSAV PTR(31), /* PTR TO SAV AREA FOR 23470000 ** TSC,TSIP&TS DISP * 23480000 ** 2 TSCVTECB PTR(31), /* PTR TO TSECBTAB CTL BLK OF 23490000 ** ECB'S * 23500000 ** 2 TSCVTSIA PTR(31), /* PTR TO TSIA * 23510000 ** 2 TSCVTICB PTR(31), /* PTR TO TSICB * 23520000 ** 2 TSCVTI01 PTR(31), /* ADDRESS OF ENTRY POINT 23530000 ** IKJEAI01 TSIP BR ENTRY * 23540000 ** 2 TSCVTTQE PTR(31), /* PTR TO TQE FOR TSO'S TIME 23550000 ** SLICING * 23560000 ** 2 TSCVTI02 PTR(31), /* ADDRESS OF ENTRY POINT 23570000 ** IKJEAI02 IN TS DISPATCH * 23580000 ** 2 TSCVTI03 PTR(31), /* ADDRESS OF ENTRY POINT 23590000 ** IKJEAI03 IN TS DISPATCH * 23600000 ** 2 TSCVTD02 PTR(31), /* ADDRESS OF ENTRY POINT 23610000 ** IKJEAD02 IN TS DRIVER * 23620000 ** 2 TSCVTLCQ PTR(31), /* ADDR OF TOP ELEM ON LOGON 23630000 ** COMM. QUE * 23640000 ** 2 TSCVTTRB PTR(31), /* ADDR OF TRACE CTL BLK CHAIN * 23650000 ** 2 TSCVTLPA PTR(31), /* ADDR OF 1ST CDE IN TS LINK 23660000 ** PACK AREA * 23670000 ** 2 TSCVTSLF FIXED(31), /* SYSTEM INIATED LOGOFF * 23680000 ** 2 TSCVTTSC PTR(31), /* ADDR OF THE * 23690000 ** 2 TSCVTSPL PTR(31), /* ADDRESS OF START PARAMETER 23700000 ** LIST * 23710000 ** 2 TSCVTRSZ FIXED(15), /* MIN REGION SIZE FOR LOGON * 23720000 ** 2 * CHAR(2), /* RESERVED * 23730000 ** 2 TSCVTSVT CHAR(4), /* SVCTBL ENTRY FOR TSIP PRIOR 23740000 ** TO START TS * 23750000 ** 2 TSCVTSVQ CHAR(4), /* SVCTBL ENTRY FOR QTIP PRIOR 23760000 ** TO START TS * 23770000 ** 2 TSCVTABN PTR(31), /* ADDR OF OUT-OF-CORE ABEND 23780000 ** RTN(IKJEAT07) * 23790000 ** 2 TSCVTD03 PTR(31), /* ADDR OF EP IKJEAD03 IN TS 23800000 ** DRIVER * 23810000 ** 2 TSCVTFLM PTR(31), /* ADDR OF EP - IKJEFLM * 23820000 ** 2 TSCVTQTP PTR(31), /* ADDR OF EP OF QTIP SVC - 23830000 ** IKJGGQT1 * 23840000 ** 2 TSCVTT08 PTR(31), /* ADDR OF EP - IKJEAT08 * 23850000 ** 2 TSCVTDMP PTR(31), /* ADDR OF TSO DUMP CONTROL 23860000 ** BLOCK - IKJTSDMP * 23870000 ** 2 TSCVTT06 PTR(31), /* ADDR OF TCB FOR IKJEAT06 * 23880000 ** 2 TSCVTLS3 PTR(31); /* ADDR OF LOGON OUT OF CORE 23890000 ** ABEND RTN * 23900000 ** 23910000 ** /******************************************************************* 23920000 ** /* DEFINE THE PARAMETERS PASSED TO IKJEFLGM * 23930000 ** /******************************************************************* 23940000 ** /*********************************************************** 23950000 ** /* DEFINE THE PARAMETER LIST TO IKJEFLGM * 23960000 ** /*********************************************************** 23970000 ** DECLARE 23980000 ** 1 IKJEFLWC AUTO, 23990000 ** 2 LWCUPTP POINTER(32) BOUNDARY(WORD),/* 24000000 * POINTER TO A USER PROFILE 24010000 ** TABLE (UPT) */ 24020000 ** 2 LWCECTP POINTER(32) BOUNDARY(WORD),/* 24030000 * POINTER TO AN ENVIRONMENT 24040000 ** CONTROL TABLE (ECT) * 24050000 ** 2 LWCECBP POINTER(32) BOUNDARY(WORD),/* 24060000 * POINTER TO A PREMATURE 24070000 ** TERMINATION EVENT CONTROL 24080000 ** BLOCK * 24090000 ** 2 LWCMSGP POINTER(32) BOUNDARY(WORD),/* 24100000 * POINTER TO A HALFWORD 24110000 ** TRANSACTION NUMBER * 24120000 ** 2 LWCINPP POINTER(32) BOUNDARY(WORD),/* 24130000 * POINTER TO AN INPUT BUFFER 24140000 ** POINTER * 24150000 ** 2 LWCOLDP (2) POINTER(31);/* 24160000 * ARRAY OF POINTERS TO OUTPUT 24170000 ** LINE DESCRIPTORS * 24180000 ** /*********************************************************** 24190000 ** /* DEFINE THE ECB AND THE MESSAGE NUMBER * 24200000 ** /*********************************************************** 24210000 ** DECLARE 24220000 ** LWCECB POINTER(32) BASED(LWCECBP) BOUNDARY(WORD), 24230000 ** LWCMSGNO FIXED(15) BDY(HWORD); 24240000 ** 24250000 ** /*********************************************************** 24260000 ** /* DEFINE THE INPUT BUFFER POINTER PASSED INTO IKJEFLGM * 24270000 ** /* AND THE INPUT BUFFER ADDRESSED VIA THE POINTER UPON * 24280000 ** /* RETURN FROM IKJEFLGM * 24290000 ** /*********************************************************** 24300000 ** DECLARE 24310000 ** LWCIBUFP POINTER(32) BASED(LWCINPP) BOUNDARY(WORD),/* 24320000 * INPUT BUFFER POINTER * 24330000 ** 1 LWCIBUF BASED(LWCIBUFP) BOUNDARY(BYTE),/* 24340000 * INPUT BUFFER * 24350000 ** 2 LWCIBFLN FIXED(15) BOUNDARY(BYTE),/* 24360000 * LENGTH FIELD * 24370000 ** 2 LWCIBFST FIXED(15) BOUNDARY(BYTE),/* 24380000 * OFFSET FIELD * 24390000 ** 2 LWCIBFTX CHARACTER(32763) BOUNDARY(BYTE);/* 24400000 * TEXT FIELD -- MAXIMUM LENGTH 24410000 ** SUPPORTED * 24420000 ** /*********************************************************** 24430000 ** /* DEFINE AN OUTPUT LINE DESCRIPTIVE POINTER ARRAY * 24440000 ** /*********************************************************** 24450000 ** DECLARE 24460000 ** LWCOLDPT ; 24470000 ** /*********************************************************** 24480000 ** /* DEFINE A TEXT INSERTION BUFFER * 24490000 ** /*********************************************************** 24500000 ** DECLARE 24510000 ** 1 LWCSEG BASED/*(LWCOLDP(I) -> LWCOLDPT(J))*/BOUNDARY(BY 24520000 * ), 24530000 ** 2 LWCSEGLN FIXED(15) BOUNDARY(BYTE),/* 24540000 * TEXT INSERTION BUFFER LENGTH* 24550000 ** 2 LWCSEGST FIXED(15) BOUNDARY(BYTE),/* 24560000 * OFFSET WITHIN OUTPUT MESSAGE 24570000 * IMAGE AT WHICH TEXT INSERTION I 24580000 * TO BE PERFORMED -- FILLED IN BY 24590000 * IKJEFLGM * 24600000 ** 2 LWCSEGTX CHARACTER(256) BOUNDARY(BYTE);/* 24610000 * TEXT TO BE INSERTED INTO AN 24620000 ** OUTPUT MESSAGE -- MAXIMUM 24630000 ** LENGTH SUPPORTED * 24640000 ** 24650000 **DECLARE 24660000 ** 1 DHED BASED(BUFRPTR), 24670000 ** 24680000 ** 24690000 ** 2 UADSMHDR CHAR(14) BDY(WORD), 24700000 ** /* COMMON HEADER AREA * 24710000 ** 3 UADSBLNG PTR(15) BDY(BYTE), 24720000 ** /* BLOCK LENGTH * 24730000 ** 3 UADSFSQP PTR(15) BDY(BYTE), 24740000 ** /* OFFSET TO INITIAL FSQE (FREE * 24750000 **/* ..SPACE QUEUE ELEMENT) * 24760000 ** 3 UADSUSER CHAR(8), /* USERID * 24770000 ** 4 UADSUSID CHAR(7), /* USERID * 24780000 ** 4 UADSIND1 PTR(8), /* RESERVED * 24790000 ** 3 UADSBN01 PTR(8), /* RESERVED * 24800000 ** 3 UADSBN02 CHAR(1), /* FLAGS * 24810000 ** 4 UADSNUSP BIT(1), /*..NO NON-USABLE SPACE * 24820000 **/* ..1 -- ONLY NON-USABLE SPACE * 24830000 **/* .......EXISTS IN THIS BLOCK * 24840000 ** 4 * BIT(1), /* RESERVED * 24850000 ** 4 * BIT(1), /* RESERVED * 24860000 ** 4 * BIT(1), /* RESERVED * 24870000 ** 4 * BIT(1), /* RESERVED * 24880000 ** 4 * BIT(1), /* RESERVED * 24890000 ** 4 * BIT(1), /* RESERVED * 24900000 ** 4 * BIT(1), /* RESERVED * 24910000 ** 2 UADSMAXC PTR(16) BDY(BYTE), 24920000 ** /* MAXIMUM CORE SIZE ALLOTTABLE * 24930000 **/* ..TO THIS USER * 24940000 ** 2 UADSATTR CHAR(4), /* SYSTEM ATTRIBUTES OF USERID * 24950000 ** 3 UADSIBMT CHAR(2), /* IBM FLAG AREA * 24960000 ** 4 * CHAR(1), /* FIRST BYTE OF FLAGS * 24970000 ** 5 USATR00 BIT(1), /* ..0 -- NO OPERATOR 24980000 ** CAPABILITY * 24990000 **/* ..1 -- OPERATOR CAPABILITY * 25000000 ** 5 USATR01 BIT(1), /* ..0 -- NO ACCOUNT CAPABILITY * 25010000 **/* ..1 -- ACCOUNT CAPABILITY * 25020000 ** 5 USATR02 BIT(1), /* ..0 -- NO JCL CAPABILITY * 25030000 **/* ..1 -- JCL CAPABILITY * 25040000 **/* FLAGS 3 THROUGH 15 ARE * 25050000 **/* ..RESERVED FOR IBM USE * 25060000 ** 5 * BIT(1), /* RESERVED * 25070000 ** 5 * BIT(1), /* RESERVED * 25080000 ** 5 * BIT(1), /* RESERVED * 25090000 ** 5 * BIT(1), /* RESERVED * 25100000 ** 5 * BIT(1), /* RESERVED * 25110000 ** 4 * CHAR(1), /* SECOND BYTE OF FLAGS, 8 -- 25120000 ** 15 * 25130000 ** 25140000 ** 3 UADSINST CHAR(2), /* RESERVED * 25150000 **/* FLAGS 16 THROUGH 31 ARE * 25160000 **/* ..RESERVED FOR INSTALLATION * 25170000 **/* ..USE * 25180000 ** 4 * CHAR(1), /* THIRD BYTE OF FLAGS, 16 -- 25190000 ** 23 * 25200000 ** 4 * CHAR(1), /* FOURTH BYTE OF FLAGS * 25210000 ** 2 UADSUPTP PTR(31), /* OFFSET TO CURRENT UPT * 25220000 ** 2 UADSPWD1 PTR(31); /* OFFSET TO 1ST PASSWD OFFSET * 25230000 ** 25240000 ** 25250000 ** 25260000 * 25270000 * /****************************************************** 25280000 * /* * 25290000 * /* RESERVE SPACE FOR MACROS FOR UADS * 25300000 * /* * 25310000 * /****************************************************** 25320000 * 25330000 * GEN DATA; /*INITIALIZED L-FORM MACROS * 25340000 * 25350000 * /****************************************************** 25360000 * /* * 25370000 * /* INITIALIZE L-FORM MACROS * 25380000 * /* * 25390000 * /****************************************************** 25400000 * 25410000 * GEN; /*EXPANSIONS OF MESSAGE SEGMENTS * 25420000 B LABEL2 BRANCH AROUND STATIC STORAGE 25430000 DS 0F 25440000 MACDSECT EQU * 25450000 DCB DDNAME=SYSUADS,DSORG=PO,MACRF=(R,W),OPTCD=W, *25460000 SYNAD=IOERRMSG,KEYLEN=0 DCB MACRO FOR SYSUADS 25470000 DS 0F 25480000 READ DUMYDECB,SF,,,,'S',,MF=L READ MACRO 25490000 DS 0F 25500000 OPEN (,(UPDAT)),MF=L OPEN MACRO FOR SYSUADS 25510000 DS 0F 25520000 CLOSE (,),MF=L CLOSE MACRO FOR SYSUADS 25530000 DSECTLEN EQU *-MACDSECT CALCULATE LENGTH OF MACRO STORAGE 25540000 LABEL2 EQU * END OF NON-EXECUTABLE STORAGE 25550000 DS 0H 25560000 * RNAMELEN: GEN(EQU 8); /*LENGTH OF ENQ NAME * 25570000 RNAMELEN EQU 8 25580000 DS 0H 25590000 * UNPKLEN: GEN(EQU 8); /*LENGTH TO UNPACK WHEN CONVERTING* 25600000 UNPKLEN EQU 8 25610000 DS 0H 25620000 * RESTRICT(LWAPTR); /*GET REGISTER CONTROL * 25630000 * 25640000 * /****************************************************** 25650000 * /* * 25660000 **/* P INITIALIZE WORK AREAS * 25670000 * /* * 25680000 * /****************************************************** 25690000 * 25700000 * LWAPTR=ADDR(LOGONWA); /*SET UP A REGISTER PTR TO LWA * 25710000 L @3,0(0,@1) ADDRESS OF LOGONWA 0069 25720000 LR @2,@3 0069 25730000 * RTNCODE=0; /*INITIALIZE RETURN CODE FIELD * 25740000 SR @F,@F 0070 25750000 ST @F,RTNCODE 0070 25760000 * ZEROFELD=ZEROFELD&&ZEROFELD; /*INITIALIZE ZERO ECB, IT 25770000 * IS NEVER POSTED * 25780000 XC ZEROFELD(8),ZEROFELD 0071 25790000 * GEN; /*MOVE MACROS TO DYNAMIC STORAGE * 25800000 MVC UADSDCB(DSECTLEN),MACDSECT MOVE L-FORM MACROS 25810000 DS 0H 25820000 * MSGDSEC1=MSGCSEC1; /*MOVE MSGS INTO DYNAMIC STORAGE * 25830000 L @8,@A1 ADDRESS OF MSGCSECT 0073 25840000 MVC MSGDSEC1(244),0(@8) 0073 25850000 * MSGDSEC2=MSGCSEC2; /*MOVE MSGS INTO DYNAMIC STORAGE * 25860000 MVC MSGDSEC2(250),244(@8) 0074 25870000 * MSGDSEC3=MSGCSEC3; /*MOVE MSGS INTO DYNAMIC STORAGE * 25880000 MVC MSGDSEC3(79),494(@8) 0075 25890000 * LWCECBP=ADDR(ZEROECB); /*SET PTR TO ZERO ECB * 25900000 LA @F,ZEROFELD 0076 25910000 ST @F,IKJEFLWC+8 0076 25920000 * LWCUPTP=PSCBUPT; /*SET PTR TO USER'S UPT FOR MSG * 25930000 L @9,16(0,@2) 0077 25940000 MVC IKJEFLWC(4),52(@9) 0077 25950000 * LWCECTP=LWAPECT; /*SET PTR TO USER'S ECT FOR MSG * 25960000 MVC IKJEFLWC+4(4),24(@2) 0078 25970000 * LWCMSGP=ADDR(LWCMSGNO); /*SET PTR TO MESSAGE NUMBER * 25980000 LA @F,LWCMSGNO 0079 25990000 ST @F,IKJEFLWC+12 0079 26000000 * MSGUSID=PSCBUSER; /*GET THE USER ID OF USER * 26010000 MVC MSGDSEC1+4(7),0(@9) 0080 26020000 * LENUSID=PSCBUSRL+4; /*SET LENGTH OF THE USER ID * 26030000 LA @F,4 0081 26040000 SR @0,@0 0081 26050000 IC @0,7(0,@9) 0081 26060000 AR @F,@0 0081 26070000 STH @F,MSGDSEC1 0081 26080000 * INDEXPTR=ADDR(MEMBERID)+PSCBUSRL; /*LOCATE POSITION OF 26090000 * SYSTEM INDEX IN MSGUSID * 26100000 SR @F,@F 0082 26110000 IC @F,7(0,@9) 0082 26120000 LA @0,MEMBERID 0082 26130000 AR @F,@0 0082 26140000 ST @F,INDEXPTR 0082 26150000 * /****************************************************** 26160000 * /* * 26170000 **/* S TSEVENT:UPDATE THE USER'S ACCT INFORMATION * 26180000 * /* * 26190000 * /****************************************************** 26200000 * 26210000 * PROCNAME=CHCLS; /*GET THE NAME OF THE USER'S PROC * 26220000 L @6,20(0,@2) 0083 26230000 L @6,8(0,@6) JSEL 0083 26240000 MVC MSGDSEC1+16(8),16(@6) 0083 26250000 * TJIDREG=RCBTJID; /*PUT TJID IN REG FOR TSIP * 26260000 L @7,8(0,@2) 0084 26270000 LH @0,12(0,@7) 0084 26280000 * GEN(TSEVENT UPDATACC,TJID=(TJIDREG));/*CALL TSIP * 26290000 TSEVENT UPDATACC,TJID=(TJIDREG) 26300000 DS 0H 26310000 * 26320000 * /****************************************************** 26330000 * /* * 26340000 **/* D (NO,DEQUSER,YES,) ARE THE USER'S UADS TO BE UPDATED * 26350000 * /* * 26360000 * /****************************************************** 26370000 * 26380000 * IF LWANOPR='1'B & LWANUAD='1'B /*UPDATE THE UADS? * 26390000 * THEN /*DON'T UPDATE THE UADS * 26400000 TM 48(@2),B'00001000' 0086 26410000 BC 12,@9FF 0086 26420000 TM 48(@2),B'00000100' 0086 26430000 BC 12,@9FE 0086 26440000 * GO TO DEQUSER; /*BRANCH AROUND UPDATE 26450000 * GET EXCLUSIVE USE OF THE UADS * 26460000 BC 15,DEQUSER 0087 26470000 * 26480000 * /****************************************************** 26490000 * /* * 26500000 **/* P SET NO PASSWORD REQUIRED BIT ON * 26510000 **/* P ENQ ON THE UADS FOR UPDATE * 26520000 * /* * 26530000 * /****************************************************** 26540000 * 26550000 * JSCBPASS = '1'B; /* SET NO PASSWORD REQUIRED BIT 26560000 * ON IN THE JSCB. A41867 * 26570000 @9FE EQU * 0088 26580000 @9FF L @3,CVTPTR 0088 26590000 L @3,0(0,@3) CVTMAP 0088 26600000 L @3,4(0,@3) TCBPTRS 0088 26610000 L @3,180(0,@3) TCBOVLY1 0088 26620000 OI 243(@3),B'10000000' 0088 26630000 * GEN(ENQ (QNAME,RNAME,S,RNAMELEN,SYSTEM)); 26640000 ENQ (QNAME,RNAME,S,RNAMELEN,SYSTEM) 26650000 DS 0H 26660000 * RESTRICT(DCBPTR); /*GET CONTROL OF REGISTER * 26670000 * DCBPTR=ADDR(UADSDCB); /*GET THE ADDRESS OF THE DCB * 26680000 LA @5,UADSDCB 0091 26690000 * MEMBERID=PSCBUSER; /*GET USER ID FOR UADS FIND * 26700000 L @4,16(0,@2) 0092 26710000 MVC MEMBERID(7),0(@4) 0092 26720000 MVI MEMBERID+7,C' ' 0092 26730000 * 26740000 * /****************************************************** 26750000 * /* * 26760000 **/* S OPEN:OPEN THE UADS DCB * 26770000 * /* * 26780000 * /****************************************************** 26790000 * 26800000 * PARMPTR=ADDR(UADSOPEN); /*GET PTR TO LIST FORM OF 26810000 * OPEN MACRO * 26820000 LA @1,UADSOPEN 0093 26830000 * GEN(OPEN ((DCBPTR),(UPDAT)),MF=(E,(1))); /*OPEN DCB * 26840000 OPEN ((DCBPTR),(UPDAT)),MF=(E,(1)) 26850000 DS 0H 26860000 * 26870000 * /****************************************************** 26880000 * /* * 26890000 **/* D (YES,,NO,IOERRMSG) WAS OPEN SUCCESSFUL * 26900000 * /* * 26910000 * /****************************************************** 26920000 * 26930000 * IF DCBOFLGS(4)='0'B /*WAS UADS OPENED * 26940000 * THEN /*UADS WAS NOT OPENED SUCCESSFULLY* 26950000 TM 48(@5),B'00010000' 0095 26960000 * GO TO IOERRMSG; /*PUT MSG AND CANCEL * 26970000 BC 08,IOERRMSG 0096 26980000 * 26990000 * /****************************************************** 27000000 * /* * 27010000 **/* P GET CORE FOR THE UADS BUFFER * 27020000 * /* * 27030000 * /****************************************************** 27040000 * 27050000 * RESTRICT(BUFRLEN); /*GET REGISTER CONTROL * 27060000 * BUFRLEN=DCBBLKSI; /*PUT BUFFER LENGTH IN A REGISTER * 27070000 LH @4,62(0,@5) 0098 27080000 * RESTRICT(BUFRPTR); /*GET REGISTER CONTROL * 27090000 * GEN(GETMAIN R,LV=(BUFRLEN),SP=1); /*GET INPUT BUFFER * 27100000 GETMAIN R,LV=(BUFRLEN),SP=1 27110000 DS 0H 27120000 * BUFRPTR=GMAPTR; /*SET POINTER TO INPUT BUFFER * 27130000 LR @3,@1 0101 27140000 * RELEASE(BUFRLEN); /*FREE BUFFER FOR USE * 27150000 * /*THE FOLLOWING TESTS TO SEE IF THE FIRST MEMBER * 27160000 * /*EXTENT BLOCK NEEDS TO BE READ. IF TEST FAILS, FIRST * 27170000 * /*EXTENT BLOCK MIGHT STILL BE READ IN CONNECTION WITH * 27180000 * /*ANOTHER DATA FIELD * 27190000 * 27200000 * /****************************************************** 27210000 * /* * 27220000 **/* D (YES,%READ1,NO,) IS THE HEADER BLOCK TO BE READ * 27230000 * /* * 27240000 * /****************************************************** 27250000 * 27260000 * IF LWAATR1='1'B /*IS UPDATE OF FIRST ATTRIBUTE * 27270000 * & /*BIT REQUESTED * 27280000 * LWAATR2='1'B /*IS UPDATE OF SECOND ATTRIBUTE * 27290000 * & /*BIT STRING REQUESTED * 27300000 * LWABUPT='1'B /*IS UPDATE OF THE USER PROFILE * 27310000 * /*TABLE REQUESTED * 27320000 * THEN /*NONE OF THESE FIELDS IS TO BE * 27330000 TM 49(@2),B'10000000' 0103 27340000 BC 12,@9FD 0103 27350000 TM 49(@2),B'01000000' 0103 27360000 BC 12,@9FC 0103 27370000 TM 49(@2),B'00010000' 0103 27380000 BC 12,@9FB 0103 27390000 * DO; /*UPDATED ,SO SKIP THE UPDATE CODE* 27400000 * 27410000 * /************************************************* 27420000 * /* * 27430000 **/* P (,UPDPSCB) SET SWITCH TO UPDATE PSCB ONLY * 27440000 * /* * 27450000 * /************************************************* 27460000 * 27470000 * UPDSW=0; /*SET SWITCH: DO NOT READ HEADER * 27480000 SR @F,@F 0105 27490000 ST @F,UPDSW 0105 27500000 * /*BLOCK * 27510000 * GO TO UPDPSCB; /*SEE IF PSCB IS TO BE UPDATED * 27520000 BC 15,UPDPSCB 0106 27530000 * END; 27540000 * ELSE; /*AT LEAST 1 FIELD TO BE UPDATED * 27550000 @9FB EQU * 0108 27560000 @9FC EQU * 0108 27570000 @9FD EQU * 0108 27580000 * /*IN HEADER * 27590000 * MEMBEXTN=0; /*SET EXTENT BLK NO. TO READ 27600000 * HEADER BLOCK * 27610000 @9FA MVI MEMBEXTN,0 0109 27620000 * SYSINDEX=MEMBEXTN³240; /*CONVERT EXTENT NUMBER TO 27630000 * EBCDIC, PUT IN MEMBRID * 27640000 LA @F,240 0110 27650000 SR @0,@0 0110 27660000 IC @0,MEMBEXTN 0110 27670000 OR @F,@0 0110 27680000 L @4,INDEXPTR 0110 27690000 STC @F,0(0,@4) 0110 27700000 * 27710000 * /****************************************************** 27720000 * /* * 27730000 **/*%READ1: P GET THE USER ID (I.E. UADS MEMBER NAME) * 27740000 * /* * 27750000 * /****************************************************** 27760000 * 27770000 * RESTRICT(MEMBRPTR); /*GET REGISTER CONTROL * 27780000 * MEMBRPTR=ADDR(MEMBERID); /*SET PTR TO MEMBER NAME * 27790000 LA @4,MEMBERID 0112 27800000 * 27810000 * /****************************************************** 27820000 * /* * 27830000 **/* S FIND:LOCATE THE USER'S UADS RECORD * 27840000 * /* * 27850000 * /****************************************************** 27860000 * 27870000 * GEN(FIND (DCBPTR),(MEMBRPTR),D); /*FIND USERID00 * 27880000 FIND (DCBPTR),(MEMBRPTR),D 27890000 DS 0H 27900000 * IF RETCODEª=0 /*WAS FIND SUCCESSFUL * 27910000 * THEN /*ERROR IN FIND ROUTINE * 27920000 LTR @F,@F 0114 27930000 * GO TO IOERRMSG; /*PUT MESSAGE AND CANCEL * 27940000 BC 07,IOERRMSG 0115 27950000 * 27960000 * /****************************************************** 27970000 * /* * 27980000 **/* I READ THE USER'S HEADER UADS RECORD * 27990000 * /* * 28000000 * /****************************************************** 28010000 * 28020000 * 28030000 * /****************************************************** 28040000 * /* * 28050000 **/* D (NO,IOERRMSG,YES,) WAS READ SUCCESSFUL * 28060000 * /* * 28070000 * /****************************************************** 28080000 * 28090000 * GEN; /*ISSUE MACRO TO READ HEADER BLOCK* 28100000 READ UADSDECB,SF,(DCBPTR),(BUFRPTR),,,,MF=E READ A BLOCK 28110000 CHECK UADSDECB CHECK FOR A SUCCESSFUL READ 28120000 DS 0H 28130000 * /*IF THE READ WAS DONE, THE NEXT INSTRUCTION WILL GET * 28140000 * /*CONTROL. IF NOT, THE SYNAD EXIT ROUTINE WILL GET * 28150000 * /*CONTROL AND CONTINUE. * 28160000 * 28170000 * /****************************************************** 28180000 * /* * 28190000 **/* P UPDATE THE FIRST ATTRIBUTE STRING IF REQUIRED * 28200000 * /* * 28210000 * /****************************************************** 28220000 * 28230000 * IF LWAATR1='0'B /*IS UPDATE OF ATR1 REQUESTED * 28240000 * THEN /*UPDATE IS REQUESTED * 28250000 TM 49(@2),B'10000000' 0117 28260000 BC 05,@9F9 0117 28270000 * UADSIBMT=PSCBATR1; /*MOVE ATR1 INTO BUFFER * 28280000 L @8,16(0,@2) 0118 28290000 MVC 16(2,@3),16(@8) 0118 28300000 * 28310000 * /****************************************************** 28320000 * /* * 28330000 **/* P UPDATE THE SECOND ATTRIBUTE STRING IF REQUIRED * 28340000 * /* * 28350000 * /****************************************************** 28360000 * 28370000 * IF LWAATR2='0'B /*IS UPDATE OF ATR2 REQUESTED * 28380000 * THEN /*UPDATE IS REQUESTED * 28390000 @9F9 TM 49(@2),B'01000000' 0119 28400000 BC 05,@9F8 0119 28410000 * UADSINST=PSCBATR2; /*MOVE ATR2 INTO BUFFER * 28420000 L @8,16(0,@2) 0120 28430000 MVC 18(2,@3),18(@8) 0120 28440000 * 28450000 * /****************************************************** 28460000 * /* * 28470000 **/* D (NO,%NOUPT,YES,) UPDATE THE UPT * 28480000 * /* * 28490000 * /****************************************************** 28500000 * 28510000 * IF LWABUPT='0'B /*IS UPDATE OF UPT REQUESTED * 28520000 * & 28530000 * UADSUPTPª=0 /*IS THE UPT SUPPORTED IN UADS * 28540000 * THEN /*UPDATE IS REQUESTED * 28550000 @9F8 TM 49(@2),B'00010000' 0121 28560000 BC 05,@9F7 0121 28570000 SR @F,@F 0121 28580000 C @F,20(0,@3) 0121 28590000 BC 08,@9F6 0121 28600000 * 28610000 * /************************************************* 28620000 * /* * 28630000 **/* D (NO,%SAVEUPT,YES,) DOES THE UPT GO IN THE HEADER BLOCK * 28640000 * /* * 28650000 * /************************************************* 28660000 * 28670000 * IF MEMBEXTN=UADSUPTP/DCBBLKSI /*DOES UPT GO IN THE 28680000 * HEADER BLOCK * 28690000 * THEN /*IT DOES * 28700000 L @E,20(0,@3) 0122 28710000 SRDA @E,32 0122 28720000 LH @0,62(0,@5) 0122 28730000 DR @E,@0 0122 28740000 SR @0,@0 0122 28750000 IC @0,MEMBEXTN 0122 28760000 CR @F,@0 0122 28770000 BC 07,@9F5 0122 28780000 * DO; /*MOVE UPT INTO BUFFER * 28790000 * 28800000 * /******************************************** 28810000 * /* * 28820000 **/* P MOVE THE UPT TO THE UADS BUFFER * 28830000 * /* * 28840000 * /******************************************** 28850000 * 28860000 * /*GET ADDR OF UPT IN BUFFER * 28870000 * DATAADDR=BUFRPTR+(UADSUPTP//DCBBLKSI); 28880000 L @E,20(0,@3) 0124 28890000 SRDA @E,32 0124 28900000 LH @0,62(0,@5) 0124 28910000 DR @E,@0 0124 28920000 AR @E,@3 0124 28930000 ST @E,DATAADDR 0124 28940000 * DATAADDR->FIELD=UPT; /*MOVE UPT TO BUFFER * 28950000 L @8,16(0,@2) 0125 28960000 L @8,52(0,@8) PSCB 0125 28970000 L @9,DATAADDR 0125 28980000 MVC 0(16,@9),0(@8) 0125 28990000 * 29000000 * /******************************************** 29010000 * /* * 29020000 **/* P (,UPDPSCB) SET SWITCH. UPT IS UPDATED * 29030000 * /* * 29040000 * /******************************************** 29050000 * 29060000 * UPDSW=2; /*SET SWITCH: UPT IS UPDATED * 29070000 LA @F,2 0126 29080000 ST @F,UPDSW 0126 29090000 BC 15,@9F4 0128 29100000 * END; /*END UPDATE OF UPT * 29110000 * ELSE /*UPT DOES NOT GO IN HEADER BLOCK * 29120000 * DO; /*SAVE UPDATE DATA * 29130000 @9F5 EQU * 0128 29140000 * 29150000 * /************************************************* 29160000 * /* * 29170000 **/*%SAVEUPT: P SAVE THE UPT OFFSET INTO THE UADS * 29180000 * /* * 29190000 * /************************************************* 29200000 * 29210000 * UPTSAVE=UADSUPTP; /*SAVE UPT OFFSET FROM UADS * 29220000 MVC UPTSAVE(4),20(@3) 0129 29230000 * 29240000 * /************************************************* 29250000 * /* * 29260000 **/* P (,UPDPSCB) SET SWITCH. UPT TO BE UPDATED LATER * 29270000 * /* * 29280000 * /************************************************* 29290000 * 29300000 * UPDSW=3; /*SET SWITCH: UPDATE UADS IN * 29310000 LA @F,3 0130 29320000 ST @F,UPDSW 0130 29330000 * /*ANOTHER BLOCK * 29340000 * END; /*END SAVING UPT DATA * 29350000 * ELSE /*UPT IS NOT TO BE UPDATED * 29360000 * 29370000 * /****************************************************** 29380000 * /* * 29390000 **/*%NOUPT: P SET SWITCH. NO UPT UPDATE * 29400000 * /* * 29410000 * /****************************************************** 29420000 * 29430000 * UPDSW=1; /*SET SWITCH: NO UPT UPDATE * 29440000 BC 15,@9F3 0132 29450000 @9F6 EQU * 0132 29460000 @9F7 LA @F,1 0132 29470000 ST @F,UPDSW 0132 29480000 * 29490000 * /****************************************************** 29500000 * /* * 29510000 **/*UPDPSCB: D (NO,%NOPSCB,YES,) UPDATE THE PSCB * 29520000 * /* * 29530000 * /****************************************************** 29540000 * 29550000 * UPDPSCB: IF LWAPSCA='0'B /*IS UPDATE OF PSCB ACCOUNTING * 29560000 * & /*BIT STRINGS REQUESTED * 29570000 * LWAACCTª=0 /*IS ACCOUNT SUPPORTED IN UADS * 29580000 * THEN /*UPDATE IS REQUESTED * 29590000 @9F3 EQU * 0133 29600000 UPDPSCB TM 48(@2),B'00000001' 0133 29610000 BC 05,@9F2 0133 29620000 SR @F,@F 0133 29630000 C @F,12(0,@2) 0133 29640000 BC 08,@9F1 0133 29650000 * DO; /*UPDATE PSCB FIELDS IN SYS1.UADS * 29660000 * 29670000 * /************************************************* 29680000 * /* * 29690000 **/* D (NO,%NOPBLK,YES,) IS THERE ALREADY A BLOCK IN CORE * 29700000 * /* * 29710000 * /************************************************* 29720000 * 29730000 * IF UPDSWª=0 /*IS THERE A BLOCK IN CORE * 29740000 * THEN /*A BLOCK HAS BEEN READ PREVIOUSLY* 29750000 C @F,UPDSW 0135 29760000 BC 08,@9F0 0135 29770000 * DO; /*DOES PSCB DATA GO IN THE BLOCK * 29780000 * 29790000 * /******************************************** 29800000 * /* * 29810000 **/* D (NO,,YES,MOVEPSCB) DOES THE PSCB GO IN THE RECORD BLOCK * 29820000 * /* * 29830000 * /******************************************** 29840000 * 29850000 * IF MEMBEXTNª=LWAACCT/DCBBLKSI /*DO PSCB * 29860000 * /*FIELDS GO IN ANOTHER BLOCK * 29870000 * THEN /*YES, THEY GO IN ANOTHER BLOCK * 29880000 L @E,12(0,@2) 0137 29890000 SRDA @E,32 0137 29900000 LH @0,62(0,@5) 0137 29910000 DR @E,@0 0137 29920000 SR @0,@0 0137 29930000 IC @0,MEMBEXTN 0137 29940000 CR @F,@0 0137 29950000 BC 08,@9EF 0137 29960000 * DO; /*WRITE OUT LAST BLOCK UPDATED * 29970000 * 29980000 * /*************************************** 29990000 * /* * 30000000 **/* I WRITE OLD BLOCK TO THE UADS * 30010000 * /* * 30020000 * /*************************************** 30030000 * 30040000 * GEN; /*ISSUE OUTPUT MACROS * 30050000 WRITE UADSDECB,SF,(DCBPTR),(BUFRPTR),,,,MF=E WRITE OLD BLOCK 30060000 CHECK UADSDECB CHECK FOR A GOOD READ 30070000 DS 0H 30080000 * /*IF THE WRITE WAS DONE, THE NEXT * 30090000 * /*INSTRUCTION WILL GET CONTROL. * 30100000 * /*IF NOT, THE SYNAD EXIT ROUTINE * 30110000 * /*WILL GET CONTROL AND CONTINUE. * 30120000 * END; /*END WRITING NEW BLOCK * 30130000 * ELSE /*PSCB FIELDS GO IN PRESENT BLOCK * 30140000 * GO TO MOVEPSCB; /*MOVE PSCB INTO BUFFER * 30150000 * END; /*CORRECT BL0CK READ. UPDATE PSCB * 30160000 @9EE EQU * 0142 30170000 * 30180000 * /************************************************* 30190000 * /* * 30200000 **/*%NOPBLK: P SET PTR TO THE USER ID * 30210000 * /* * 30220000 * /************************************************* 30230000 * 30240000 * MEMBRPTR=ADDR(MEMBERID); /*SET PTR TO MEMBER ID * 30250000 @9F0 LA @4,MEMBERID 0143 30260000 * 30270000 * /************************************************* 30280000 * /* * 30290000 **/* P GET UADS PSCB EXTENT BLK.NUMBER * 30300000 * /* * 30310000 * /************************************************* 30320000 * 30330000 * MEMBEXTN=LWAACCT/DCBBLKSI; /*GET PSCB EXTENT 30340000 * BLOCK NUMBER * 30350000 L @E,12(0,@2) 0144 30360000 SRDA @E,32 0144 30370000 LH @0,62(0,@5) 0144 30380000 DR @E,@0 0144 30390000 STC @F,MEMBEXTN 0144 30400000 * SYSINDEX=MEMBEXTN³240; /*CONVERT EXT NUM TO 30410000 * EBCDIC AND THEN 30420000 * PUT IN MEMBRID * 30430000 LA @F,240 0145 30440000 SR @0,@0 0145 30450000 IC @0,MEMBEXTN 0145 30460000 OR @F,@0 0145 30470000 L @8,INDEXPTR 0145 30480000 STC @F,0(0,@8) 0145 30490000 * 30500000 * /************************************************* 30510000 * /* * 30520000 **/* S FIND:LOCATE USER BLOCK WITH PSCB * 30530000 * /* * 30540000 * /************************************************* 30550000 * 30560000 * GEN(FIND (DCBPTR),(MEMBRPTR),D); /*FIND BLOCK * 30570000 FIND (DCBPTR),(MEMBRPTR),D 30580000 DS 0H 30590000 * 30600000 * /************************************************* 30610000 * /* * 30620000 **/* D (NO,IOERRMSG,YES,) WAS FIND SUCCESSFUL * 30630000 * /* * 30640000 * /************************************************* 30650000 * 30660000 * IF RETCODEª=0 /*WAS FIND SUCCESSFUL * 30670000 * THEN /*FIND NOT SUCCESSFUL * 30680000 LTR @F,@F 0147 30690000 * GO TO IOERRMSG; /*PUT MESSAGE AND CANCEL * 30700000 BC 07,IOERRMSG 0148 30710000 * 30720000 * /************************************************* 30730000 * /* * 30740000 **/* I READ UADS MEMBER BLK. WITH PSCB * 30750000 **/* D (NO,IOERRMSG,YES,) WAS READ SUCCESSFUL * 30760000 * /* * 30770000 * /************************************************* 30780000 * 30790000 * GEN; /*ISSUE MACROS TO READ UADS * 30800000 READ UADSDECB,SF,(DCBPTR),(BUFRPTR),,,,MF=E READ A BLOCK 30810000 CHECK UADSDECB CHECK ECB FOR SUCCESS 30820000 DS 0H 30830000 * /*IF THE READ WAS DONE, THE NEXT INSTRUCTION * 30840000 * /* WILL GET CONTROL. IF NOT, THE SYNAD * 30850000 * /*EXIT ROUTINE WILL GET CONTROL AND CONTINUE. * 30860000 * 30870000 * /************************************************* 30880000 * /* * 30890000 **/*MOVEPSCB: P MOVE THE PSCB TO THE UADS BUFFER * 30900000 * /* * 30910000 * /************************************************* 30920000 * 30930000 * /*GET PTR TO PSCB FIELD IN BUFFER * 30940000 * MOVEPSCB: DATAADDR=BUFRPTR+(LWAACCT//DCBBLKSI)+4; 30950000 MOVEPSCB L @E,12(0,@2) 0150 30960000 SRDA @E,32 0150 30970000 LH @0,62(0,@5) 0150 30980000 DR @E,@0 0150 30990000 AR @E,@3 0150 31000000 AH @E,@D1 0150 31010000 ST @E,DATAADDR 0150 31020000 * AREAPTR=ADDR(PSCBTCPU); /*GET PTR TO PSCB FIELDS* 31030000 L @8,16(0,@2) 0151 31040000 LA @F,32(0,@8) 0151 31050000 ST @F,AREAPTR 0151 31060000 * DATAADDR->FIELD=AREAPTR->FIELD;/*MOVE PSCB 31070000 * FIELD TO BUFFER* 31080000 LR @9,@F 0152 31090000 L @6,DATAADDR 0152 31100000 MVC 0(16,@6),0(@9) 0152 31110000 BC 15,@9ED 0154 31120000 * END; /*END OF PSCB INFO UPDATE * 31130000 * ELSE /*PSCB FIELDS AREN'T TO BE UPDATED* 31140000 * 31150000 * /****************************************************** 31160000 * /* * 31170000 **/*%NOPSCB: D (NO,FREEUADS,YES,) HAVE ANY FIELDS BEEN UPDATED * 31180000 * /* * 31190000 * /****************************************************** 31200000 * 31210000 * IF UPDSW=0 /*ANY OTHER FIELDS TO BE UPDATED * 31220000 * THEN /*NO FIELDS ARE TO BE UPDATED * 31230000 @9F1 EQU * 0154 31240000 @9F2 SR @F,@F 0154 31250000 C @F,UPDSW 0154 31260000 * GO TO FREEUADS; /*OMIT WRITING A LAST BLOCK * 31270000 BC 08,FREEUADS 0155 31280000 * 31290000 * /****************************************************** 31300000 * /* * 31310000 **/* D (NO,%NO2UPT,YES,) UPDATE UPT OUTSIDE HEADER * 31320000 * /* * 31330000 * /****************************************************** 31340000 * 31350000 * IF UPDSW=3 /*IS UADS TO BE UPDATED OUTSIDE * 31360000 * & /*HEADER * 31370000 * UPTSAVEª=0 /*IS UPT SUPPORTED IN THE UADS * 31380000 * THEN /*YES, IT IS * 31390000 @9ED LA @F,3 0156 31400000 C @F,UPDSW 0156 31410000 BC 07,@9EC 0156 31420000 SR @F,@F 0156 31430000 C @F,UPTSAVE 0156 31440000 BC 08,@9EB 0156 31450000 * DO; /*WRITE LAST BLOCK, READ UPT BLOCK* 31460000 * 31470000 * /************************************************* 31480000 * /* * 31490000 **/* D (NO,,YES,%NO2READ) DOES UPT GO IN CURRENT BLOCK * 31500000 * /* * 31510000 * /************************************************* 31520000 * 31530000 * IF MEMBEXTNª=UPTSAVE/DCBBLKSI /*DOES UPT GO IN * 31540000 * /*THE CURRENT BLOCK IN BUFFER * 31550000 * THEN /*UPT MUST BE READ * 31560000 L @E,UPTSAVE 0158 31570000 SRDA @E,32 0158 31580000 LH @0,62(0,@5) 0158 31590000 DR @E,@0 0158 31600000 SR @0,@0 0158 31610000 IC @0,MEMBEXTN 0158 31620000 CR @F,@0 0158 31630000 BC 08,@9EA 0158 31640000 * DO; /*WRITE LAST BLOCK, READ UPT BLOCK* 31650000 * 31660000 * /******************************************** 31670000 * /* * 31680000 **/* I WRITE THE CURRENT BLOCK TO THE UADS * 31690000 **/* D (NO,IOERRMSG,YES,) WAS WRITE SUCCESSFUL * 31700000 * /* * 31710000 * /******************************************** 31720000 * 31730000 * GEN; /* ISSUE OUTPUT MACROS * 31740000 WRITE UADSDECB,SF,(DCBPTR),(BUFRPTR),,,,MF=E WRITE OLD BLOCK 31750000 CHECK UADSDECB CHECK FOR GOOD WRITE 31760000 DS 0H 31770000 * /*IF A WRITE WAS DONE, THE NEXT INSTRUCTION * 31780000 * /* WILL GET CONTROL. IF NOT, THE SYNAD * 31790000 * /*EXIT ROUTINE WILL GET CONTROL AND CONTINUE* 31800000 * 31810000 * /******************************************** 31820000 * /* * 31830000 **/* P GET UADS UPT EXTENT BLK. NUMBER * 31840000 * /* * 31850000 * /******************************************** 31860000 * 31870000 * MEMBEXTN=UPTSAVE/DCBBLKSI; /*GET UPT EXTENT 31880000 * BLOCK NUMBER * 31890000 L @E,UPTSAVE 0161 31900000 SRDA @E,32 0161 31910000 LH @0,62(0,@5) 0161 31920000 DR @E,@0 0161 31930000 STC @F,MEMBEXTN 0161 31940000 * SYSINDEX=MEMBEXTN³240; /*CONVERT EXT NUM 31950000 * TO EBCDIC AND 31960000 * PUT IN MEMBRID* 31970000 LA @F,240 0162 31980000 SR @0,@0 0162 31990000 IC @0,MEMBEXTN 0162 32000000 OR @F,@0 0162 32010000 L @8,INDEXPTR 0162 32020000 STC @F,0(0,@8) 0162 32030000 * 32040000 * /******************************************** 32050000 * /* * 32060000 **/* S FIND:LOCATE UADS BLOCK WITH UPT * 32070000 * /* * 32080000 * /******************************************** 32090000 * 32100000 * GEN(FIND (DCBPTR),(MEMBRPTR),D); /*FIND NEW 32110000 * BLOCK 32120000 * WITH UPT * 32130000 FIND (DCBPTR),(MEMBRPTR),D 32140000 DS 0H 32150000 * 32160000 * /******************************************** 32170000 * /* * 32180000 **/* D (NO,IOERRMSG,YES,) WAS FIND SUCCESSFUL * 32190000 * /* * 32200000 * /******************************************** 32210000 * 32220000 * IF RETCODEª=0 /*WAS FIND SUCCESSFUL * 32230000 * THEN /* NO FIND * 32240000 LTR @F,@F 0164 32250000 * GO TO IOERRMSG; /*PUT MESSAGE & CANCEL * 32260000 BC 07,IOERRMSG 0165 32270000 * RELEASE(MEMBRPTR); /*FREE REGISTER FOR USE * 32280000 * 32290000 * /******************************************** 32300000 * /* * 32310000 **/* I READ UADS BLOCK WITH THE UPT * 32320000 **/* D (NO,IOERRMSG,YES,) WAS READ SUCCESSFUL * 32330000 * /* * 32340000 * /******************************************** 32350000 * 32360000 * GEN; /*ISSUE MACROS TO READ UADS * 32370000 READ UADSDECB,SF,(DCBPTR),(BUFRPTR),,,,MF=E READ A BLOCK 32380000 CHECK UADSDECB 32390000 DS 0H 32400000 BC 15,@9E9 0169 32410000 * /*IF A READ WAS DONE, THE NEXT INSTRUCTION * 32420000 * /* WILL GET CONTROL. IF NOT, THE SYNAD * 32430000 * /*EXIT ROUTINE WILL GET CONTROL AND CONTINUE * 32440000 * END; /* END WRITE-READ: UPDATE UPT * 32450000 * ELSE; /*UPT IN CORE TO BE UPDATED * 32460000 @9EA EQU * 0169 32470000 * 32480000 * /************************************************* 32490000 * /* * 32500000 **/*%NO2READ: P MOVE THE UPT TO THE RECORD BUFFER * 32510000 * /* * 32520000 * /************************************************* 32530000 * 32540000 * DATAADDR=BUFRPTR+(UPTSAVE//DCBBLKSI); /*GET ADDR 32550000 * OF UPT * 32560000 @9E9 L @E,UPTSAVE 0170 32570000 SRDA @E,32 0170 32580000 LH @0,62(0,@5) 0170 32590000 DR @E,@0 0170 32600000 AR @E,@3 0170 32610000 ST @E,DATAADDR 0170 32620000 * DATAADDR->FIELD=UPT; /*MOVE UPT INTO BUFFER * 32630000 L @4,16(0,@2) 0171 32640000 L @4,52(0,@4) PSCB 0171 32650000 L @8,DATAADDR 0171 32660000 MVC 0(16,@8),0(@4) 0171 32670000 BC 15,@9E8 0173 32680000 * END; /*END UPDATE OF UPT IN UADS * 32690000 * ELSE; /*UPT DOES NOT NEED UPDATING 32700000 * WRITE THE FINAL BLOCK TO UADS * 32710000 @9EB EQU * 0173 32720000 @9EC EQU * 0173 32730000 * 32740000 * /****************************************************** 32750000 * /* * 32760000 **/*%NO2UPT: I WRITE LAST BLOCK TO UADS * 32770000 * /* * 32780000 * /****************************************************** 32790000 * 32800000 * GEN; /*ISSUE OUTPUT MACROS * 32810000 @9E8 EQU * 0174 32820000 WRITE UADSDECB,SF,(DCBPTR),(BUFRPTR),,,,MF=E WRITE LAST BLOCK 32830000 CHECK UADSDECB CHECK FOR GOOD WRITE 32840000 DS 0H 32850000 * /*IF THE WRIT WAS DONE, THE NEXT INSTRUCTION WILL GET * 32860000 * /*CONTROL. IF NOT, THE SYNAD EXIT ROUTINE WILL GET * 32870000 * /*CONTROL AND CONTINUE. * 32880000 * RESTRICT(BUFRLEN); /*GET REGISTER CONTROL * 32890000 * 32900000 * /****************************************************** 32910000 * /* * 32920000 **/*FREEUADS: P FREE THE INPUT BUFFER * 32930000 * /* * 32940000 * /****************************************************** 32950000 * 32960000 * FREEUADS: BUFRLEN=DCBBLKSI; /*PUT BUFFER LENGTH IN A REGISTER * 32970000 FREEUADS LH @4,62(0,@5) 0176 32980000 * /*FREE THE INPUT BUFFER * 32990000 * GEN(FREEMAIN R,LV=(BUFRLEN),A=(BUFRPTR),SP=1); 33000000 FREEMAIN R,LV=(BUFRLEN),A=(BUFRPTR),SP=1 33010000 DS 0H 33020000 * PARMPTR=ADDR(UADSCLOS); /*GET PTR TO LIST FORM OF * 33030000 LA @1,UADSCLOS 0178 33040000 * 33050000 * /****************************************************** 33060000 * /* * 33070000 **/* P CLOSE THE DCB AND DEQ FROM USER ID * 33080000 **/* P SET NO PASSWORD REQUIRED BIT OFF * 33090000 * /* * 33100000 * /****************************************************** 33110000 * 33120000 * /*CLOSE MACRO * 33130000 * GEN(CLOSE ((DCBPTR)),MF=(E,(1))); /*CLOSE UADS DCB * 33140000 CLOSE ((DCBPTR)),MF=(E,(1)) 33150000 DS 0H 33160000 * JSCBPASS = '0'B; /* SET NO PASSWORD REQUIRED BIT 33170000 * OFF IN THE JSCB. A41867 * 33180000 L @8,CVTPTR 0180 33190000 L @8,0(0,@8) CVTMAP 0180 33200000 L @8,4(0,@8) TCBPTRS 0180 33210000 L @8,180(0,@8) TCBOVLY1 0180 33220000 NI 243(@8),B'01111111' 0180 33230000 * 33240000 * /****************************************************** 33250000 * /* * 33260000 * /* CONTROL PASSES HERE AFTER HANDLING OF OPEN FAILURE * 33270000 * /* * 33280000 * /****************************************************** 33290000 * 33300000 * DEQUADS: 33310000 * GEN(DEQ (QNAME,RNAME,8,SYSTEM)); /*RELEASE UADS ENQ * 33320000 DEQUADS DEQ (QNAME,RNAME,8,SYSTEM) 33330000 DS 0H 33340000 * RELEASE(DCBPTR,BUFRLEN);/*RELINQUISH REGISTER CONTROL * 33350000 * 33360000 * /****************************************************** 33370000 * /* * 33380000 **/* DEQUSER: P RE-INITIALIZE THE USER ID FIELD * 33390000 * /* * 33400000 * /****************************************************** 33410000 * 33420000 * DEQUSER: TJBSAVE=(RCBTJID*TSCVTSZU)+TSCVTTJB;/*GET TJB ADDR * 33430000 DEQUSER L @8,CVTPTR 0183 33440000 L @8,228(0,@8) CVTMAP 0183 33450000 LH @E,26(0,@8) 0183 33460000 L @9,8(0,@2) 0183 33470000 MH @E,12(0,@9) 0183 33480000 A @E,0(0,@8) 0183 33490000 ST @E,TJBSAVE 0183 33500000 * TJBUSER='STARTING'; /*ALTER USER FIELD IN TJB * 33510000 L @6,TJBSAVE 0184 33520000 MVC 28(8,@6),@C3 0184 33530000 * 33540000 * /****************************************************** 33550000 * /* * 33560000 **/* W POST ECB, WAIT FOR DEQ FROM USER ID * 33570000 * /* * 33580000 * /****************************************************** 33590000 * 33600000 * IF LWANONQ='0'B /*IS AN ENQ MAINTAINED ON THE * 33610000 * ³ LWANOPR='0'B /*USERID OR ARE THE LWACTLS * 33620000 * ³ LWANUAD='0'B /*BITS TO BE IGNORED * 33630000 * THEN /*WE ARE TO ENQ/DEQ FROM USER ID * 33640000 TM 49(@2),B'00001000' 0185 33650000 BC 08,@9E7 0185 33660000 TM 48(@2),B'00001000' 0185 33670000 BC 08,@9E6 0185 33680000 TM 48(@2),B'00000100' 0185 33690000 BC 05,@9E5 0185 33700000 * DO; /*POST TO DEQ FROM THE USER ID * 33710000 @9E6 EQU * 0186 33720000 * WECBPTR=ADDR(LWASECB); /*GET WAIT ECB ADDRESS * 33730000 @9E7 LA @1,36(0,@2) 0187 33740000 * WECBPTR->ZEROFLD=''B; /*ZERO OUT WAIT ECB * 33750000 XC 0(4,@1),0(@1) 0188 33760000 * PECBPTR=ADDR(LWAPECB); /*GET POST ECB ADDRESS * 33770000 LA @1,32(0,@2) 0189 33780000 * /*POST TO DEQ FROM THE USER ID * 33790000 * GEN(POST (PECBPTR),DQUSERID); 33800000 POST (PECBPTR),DQUSERID 33810000 DS 0H 33820000 * WECBPTR=ADDR(LWASECB); /*GET WAIT ECB ADDRESS * 33830000 LA @1,36(0,@2) 0191 33840000 * /*WAIT TO BE POSTED FROM DEQ * 33850000 * GEN(WAIT ECB=(WECBPTR)); 33860000 WAIT ECB=(WECBPTR) 33870000 DS 0H 33880000 * END; /*END DEQ PROCESSING * 33890000 * 33900000 * /****************************************************** 33910000 * /* * 33920000 **/* P SET UP PARAMETERS TO IKJEFLGM (MESSAGE MODULE) * 33930000 * /* * 33940000 * /****************************************************** 33950000 * 33960000 * LWCOLDP(1)=ADDR(SEGWTO1); /*SET PTR TO TEXT PTRS * 33970000 @9E5 LA @F,SEGWTO1 0194 33980000 ST @F,IKJEFLWC+20 0194 33990000 * SEGWTO1=ADDR(STRTUSID); /*SET PTR TO USER ID TEXT * 34000000 LA @F,MSGDSEC1 0195 34010000 ST @F,SEGWTO1 0195 34020000 * SEGWTO2=ADDR(STRTTOD); /*SET PTR TO TIME OF DAY TEXT * 34030000 LA @F,MSGDSEC1+24 0196 34040000 ST @F,SEGWTO2 0196 34050000 * SEGWTO3=ADDR(STRTDATE); /*SET PTR TO DATE TEXT * 34060000 LA @F,MSGDSEC1+36 0197 34070000 ST @F,SEGWTO3 0197 34080000 * PARMPTR=ADDR(SEGWTO2); /*SET PTR TO TOD & DATE BUFFERS* 34090000 LA @1,SEGWTO2 0198 34100000 * BITSFORL=0; /*INITIALIZE BIT SWITCHES TO 0 * 34110000 MVI BITSFORL,0 0199 34120000 * 34130000 * /****************************************************** 34140000 * /* * 34150000 **/* S IKJEFLPA: GET CURRENT TIME OF DAY IN EBCDIC * 34160000 * /* * 34170000 * /****************************************************** 34180000 * 34190000 * GEN(LINK EP=IKJEFLPA); /*GO TO TOD & DATE ROUTINE * 34200000 LINK EP=IKJEFLPA 34210000 DS 0H 34220000 * SEGMSG2=ADDR(STRTCODE); /*SET PTR TO STEP COMP CODE * 34230000 LA @F,MSGDSEC1+58 0201 34240000 ST @F,SEGMSG2 0201 34250000 * LWCOLDP(2)=ADDR(SEGMSG1); /*SET PTR TO MSG TEXT * 34260000 LA @F,SEGMSG1 0202 34270000 ST @F,IKJEFLWC+24 0202 34280000 * 34290000 * /****************************************************** 34300000 * /* * 34310000 **/* D (YES,,NO,%NOFLUSH) DID JOB SCHED SUBRTN HAVE AN ERR * 34320000 * /* * 34330000 * /****************************************************** 34340000 * 34350000 * IF JSXLRCODª=0 /*IF JOB SCHEDULING SUBROUTINE 34360000 * ENCOUNTERED AN ERROR * 34370000 * THEN 34380000 L @8,20(0,@2) 0203 34390000 L @8,16(0,@8) JSEL 0203 34400000 CLI 2(@8),0 0203 34410000 BC 08,@9E4 0203 34420000 * DO; 34430000 * 34440000 * /********************************************* 34450000 * /* * 34460000 **/* P INIT FLUSH MSG TO SYSTEM ERROR * 34470000 * /* * 34480000 * /********************************************* 34490000 * 34500000 * SEGMSG1=ADDR(SYSTEMER); /*INIT SEG TO SYS ERR* 34510000 LA @F,MSGDSEC1+128 0205 34520000 ST @F,SEGMSG1 0205 34530000 * 34540000 * /********************************************* 34550000 * /* * 34560000 **/* D (YES,,NO,%RDRINT) DID ERROR OCCUR IN JOB SCHED SUBRTN * 34570000 * /* * 34580000 * /********************************************* 34590000 * 34600000 * IF JSXLRCXT=0 /*IF THE ERROR CAME FROM 34610000 * JOB SCHED SUBROUTINE * 34620000 * THEN 34630000 CLI 3(@8),0 0206 34640000 BC 07,@9E3 0206 34650000 * DO; /*CHECK RETURN CODES * 34660000 * 34670000 * /************************************ 34680000 * /* * 34690000 **/* P (,FLUSHMSG) IF RC=4 THEN FILL IN MULTI STEP MSG * 34700000 * /* * 34710000 * /************************************ 34720000 * /*IF THE ERROR FROM THEJOB SCHED SUB* 34730000 * /*WAS FOUR * 34740000 * IF JSXLRCOD=4 34750000 * THEN 34760000 CLI 2(@8),4 0208 34770000 BC 07,@9E2 0208 34780000 * DO; /*SET UP MSG * 34790000 * /*FILL THE MSG SEG PTR WITH* 34800000 * /*PRIVILEGED ERR SEG ADDR * 34810000 * SEGMSG1=ADDR(PRIVLEGE); 34820000 LA @F,MSGDSEC1+192 0210 34830000 ST @F,SEGMSG1 0210 34840000 * END;/*END MSG SETUP * 34850000 * GOTO FLUSHMSG;/*GO SET TRANSACTION #* 34860000 BC 15,FLUSHMSG 0212 34870000 * END; /*END JOB SCHEDULING ERROR CODE * 34880000 * 34890000 * /********************************************* 34900000 * /* * 34910000 **/*%RDRINT: D (YES,,NO,%INIT) DID ERROR OCCUR IN RDR INTREPTR * 34920000 * /* * 34930000 * /********************************************* 34940000 * 34950000 * IF JSXLRCXT=2 /*IF ERROR ORIGINATED IN 34960000 * READER INTERPRETTER * 34970000 * THEN 34980000 @9E3 EQU * 0214 34990000 L @8,20(0,@2) 0214 35000000 L @8,16(0,@8) JSEL 0214 35010000 CLI 3(@8),2 0214 35020000 BC 07,@9E1 0214 35030000 * DO; /*FILL IN APPROPRIATE ERROR * 35040000 * 35050000 * /************************************ 35060000 * /* * 35070000 **/* P IF RC=4 THEN FILL IN JCL ERROR MSG* 35080000 * /* * 35090000 * /************************************ 35100000 * 35110000 * IF JSXLRCOD=4 /*IF RETURN CODE 35120000 * FROM RDR INT IS 4* 35130000 * 35140000 * THEN 35150000 CLI 2(@8),4 0216 35160000 BC 07,@9E0 0216 35170000 * /*POINT TO JCL EROR MESSAGE* 35180000 * SEGMSG1=ADDR(JCLERROR); 35190000 LA @F,MSGDSEC2 0217 35200000 ST @F,SEGMSG1 0217 35210000 * 35220000 * 35230000 * /************************************ 35240000 * /* * 35250000 **/* P IF RC=8 FILL IN I/O ERR JOBQ MSG * 35260000 * /* * 35270000 * /************************************ 35280000 * 35290000 * IF JSXLRCOD=8 /*IF RETURN CODE 35300000 * FROM RDR INT IS 8* 35310000 * 35320000 * THEN 35330000 @9E0 CLI 2(@8),8 0218 35340000 BC 07,@9DF 0218 35350000 * JOBQERR: 35360000 * /*SEG = I/O ERR ON JOBQ MSG* 35370000 * SEGMSG1=ADDR(IOERJOBQ); 35380000 JOBQERR LA @F,MSGDSEC2+32 0219 35390000 ST @F,SEGMSG1 0219 35400000 * 35410000 * 35420000 * /************************************ 35430000 * /* * 35440000 **/* P (,FLUSHMSG) IF RC=12 FILL IN NO SPACE MSG * 35450000 * /* * 35460000 * /************************************ 35470000 * 35480000 * IF JSXLRCOD=12 /*IF RCODE IS 12 * 35490000 * THEN 35500000 @9DF L @8,20(0,@2) 0220 35510000 L @8,16(0,@8) JSEL 0220 35520000 CLI 2(@8),12 0220 35530000 BC 07,@9DE 0220 35540000 * /*THERE WAS NO JOB QUEUE SPACE* 35550000 * SEGMSG1=ADDR(NOQSPACE); 35560000 LA @F,MSGDSEC2+58 0221 35570000 ST @F,SEGMSG1 0221 35580000 * GOTO FLUSHMSG; /*GO TO SET MSG # * 35590000 BC 15,FLUSHMSG 0222 35600000 * END; /*END RDR INTPR ERROR PROCESSING * 35610000 * 35620000 * /********************************************* 35630000 * /* * 35640000 **/*%INIT: D (YES,,NO,FLUSHMSG) DID ERROR OCCUR IN THE INITIATOR * 35650000 * /* * 35660000 * /********************************************* 35670000 * 35680000 * IF JSXLRCXT=3 /*IF ERROR FROM INITIATR* 35690000 * THEN 35700000 @9E1 L @8,20(0,@2) 0224 35710000 L @8,16(0,@8) JSEL 0224 35720000 CLI 3(@8),3 0224 35730000 BC 07,@9DD 0224 35740000 * DO; /*CHECK RETURN CODES FROM ALLOCATON* 35750000 * 35760000 * /************************************ 35770000 * /* * 35780000 **/* P IF RC=4 FILL IN ALLOCATION ERR MSG* 35790000 * /* * 35800000 * /************************************ 35810000 * 35820000 * IF JSXLRCOD=4 /*IF RETURN CODE 35830000 * FROM THE INIT IS 4* 35840000 * 35850000 * THEN 35860000 CLI 2(@8),4 0226 35870000 BC 07,@9DC 0226 35880000 * /*PNT TO ALLOC ERROR MESSGE* 35890000 * SEGMSG1=ADDR(ALLOCERR); 35900000 LA @F,MSGDSEC2+106 0227 35910000 ST @F,SEGMSG1 0227 35920000 * 35930000 * 35940000 * /************************************ 35950000 * /* * 35960000 **/* P IF RC=8 FILL IN I/O ERR JOBQ MSG * 35970000 * /* * 35980000 * /************************************ 35990000 * 36000000 * 36010000 * IF JSXLRCOD=8 /*IF RETURN CODE 36020000 * FROM THE INIT IS 8* 36030000 * 36040000 * THEN 36050000 @9DC CLI 2(@8),8 0228 36060000 * /*PNT TO I/O ER ON JOBQ MSG* 36070000 * GOTO JOBQERR; 36080000 BC 08,JOBQERR 0229 36090000 * 36100000 * /************************************ 36110000 * /* * 36120000 **/* P IF RC=12 FILL DATA SET IN USE MSG * 36130000 * /* * 36140000 * /************************************ 36150000 * 36160000 * IF JSXLRCOD=12 /*IF RCODE IS 12 * 36170000 * THEN 36180000 CLI 2(@8),12 0230 36190000 BC 07,@9DB 0230 36200000 * /*SAY A DATA SET WAS IN USE* 36210000 * SEGMSG1=ADDR(DATAUSED); 36220000 LA @F,MSGDSEC2+134 0231 36230000 ST @F,SEGMSG1 0231 36240000 * 36250000 * 36260000 * /************************************ 36270000 * /* * 36280000 **/* D (YES,,NO,%MORE16) DID INIT RETURN A CODE OF 16 ? * 36290000 **/* P SEE IF ERR= JOBQ, GETMAIN, OBTAIN,OR MULTI-STEP * 36300000 **/* P FILL IN APPROPRIATE MSG SEG * 36310000 * /* * 36320000 * /************************************ 36330000 * 36340000 * IF JSXLRCOD=16 /*IF RCODE IS 16 * 36350000 * THEN 36360000 @9DB CLI 2(@8),16 0232 36370000 BC 07,@9DA 0232 36380000 * DO; 36390000 * /*IF MOD IKJEFLJ HAD RC 4* 36400000 * IF LWARCDE=ADDR(LWAQERR) 36410000 * 36420000 * THEN 36430000 LA @F,LWAQERR 0234 36440000 C @F,236(0,@2) 0234 36450000 * /*I/O ERR ON JOBQ MSG* 36460000 * GOTO JOBQERR; 36470000 BC 08,JOBQERR 0235 36480000 * 36490000 * /*IF IKJEFLJ RETURN CODE=8* 36500000 * IF LWARCDE=ADDR(LWAGMER) 36510000 * 36520000 * THEN 36530000 LA @F,LWAGMER 0236 36540000 C @F,236(0,@2) 0236 36550000 BC 07,@9D9 0236 36560000 * /*INSUFICIANT COR SEG* 36570000 * SEGMSG1= 36580000 * ADDR(NOCORE); 36590000 LA @F,MSGDSEC2+190 0237 36600000 ST @F,SEGMSG1 0237 36610000 * 36620000 * /*IF IKJEFLJ RETRN CODE=12* 36630000 * IF LWARCDE=ADDR(LWAOBTN) 36640000 * THEN 36650000 @9D9 LA @F,LWAOBTN 0238 36660000 C @F,236(0,@2) 0238 36670000 BC 07,@9D8 0238 36680000 * /* SET MSG SEG TO* 36690000 * /* OBTAIN ERROR * 36700000 * SEGMSG1= 36710000 * ADDR(OBTAINER); 36720000 LA @F,MSGDSEC2+234 0239 36730000 ST @F,SEGMSG1 0239 36740000 * /*IKJEFLJ RETURNED CODE 20 * 36750000 * IF LWARCDE=ADDR(LWAMSPE) 36760000 * THEN 36770000 @9D8 LA @F,LWAMSPE 0240 36780000 C @F,236(0,@2) 0240 36790000 BC 07,@9D7 0240 36800000 * /*FILL IN SEG ADDR * 36810000 * /*WITH MULTI MSG * 36820000 * SEGMSG1= 36830000 * ADDR(MULTSTEP); 36840000 LA @F,MSGDSEC1+144 0241 36850000 ST @F,SEGMSG1 0241 36860000 * END; /*END RCODE OF 16 PROCESS* 36870000 @9D7 EQU * 0242 36880000 * 36890000 * /*RETURN CODE 20 RESERVD FOR RLSE 21* 36900000 * 36910000 * /************************************ 36920000 * /* * 36930000 **/*%MORE16: D (YES,,NO,%ISIT28) DID INIT RETURN A CODE OF 24 ? * 36940000 **/* P (,FLUSHMSG) FILL IN JOBLIB ERR MSG SEG * 36950000 * /* * 36960000 * /************************************ 36970000 * 36980000 * IF JSXLRCOD=24 /*IF RCODE IS 24 * 36990000 * THEN 37000000 @9DA L @8,20(0,@2) 0243 37010000 L @8,16(0,@8) JSEL 0243 37020000 CLI 2(@8),24 0243 37030000 BC 07,@9D6 0243 37040000 * SEGMSG1=ADDR(JOBLIBER);/*POINT 37050000 * TO OPE 37060000 * ERROR 37070000 * MSG * 37080000 LA @F,MSGDSEC3+40 0244 37090000 ST @F,SEGMSG1 0244 37100000 * 37110000 * 37120000 * /************************************ 37130000 * /* * 37140000 **/*%ISIT28: D (YES,,NO,FLUSHMSG) DID INIT RETURN A CODE OF 28 ? * 37150000 **/* P FILL IN STEPLIB ERR MSG SEG * 37160000 * /* * 37170000 * /************************************ 37180000 * 37190000 * IF JSXLRCOD=28 /*IF RCODE IS 24 * 37200000 * THEN 37210000 @9D6 CLI 2(@8),28 0245 37220000 BC 07,@9D5 0245 37230000 * SEGMSG1=ADDR(STEPLBER);/*POINT 37240000 * TO OPE 37250000 * ERROR 37260000 * MSG * 37270000 LA @F,MSGDSEC3 0246 37280000 ST @F,SEGMSG1 0246 37290000 * /*RC OF 32 RESERVED FOR STEPLIB OPEN ER* 37300000 * 37310000 * END; /*END INITIATOR ERROR PROCESSING * 37320000 @9D5 EQU * 0247 37330000 * 37340000 * 37350000 * /********************************************* 37360000 * /* * 37370000 **/*FLUSHMSG: P (,PUTOUT) SET TRANSACTION NO. FOR ERROR MSG * 37380000 * /* * 37390000 * /********************************************* 37400000 * 37410000 * FLUSHMSG: 37420000 * LWCMSGNO=19; /*SET TRANSACTION # FOR FLUSH * 37430000 @9DD EQU * 0248 37440000 FLUSHMSG LA @F,19 0248 37450000 STH @F,LWCMSGNO 0248 37460000 * GOTO PUTOUT; /*GO TO PUT THE MSG OUT * 37470000 BC 15,PUTOUT 0249 37480000 * END; /*END FLUSH MODE PROCESSING * 37490000 * COMPCODE=LWARTCD; /*GET LAST STEP COMPLETION CODE * 37500000 @9E4 MVC COMPCODE(4),52(@2) 0251 37510000 * 37520000 * /****************************************************** 37530000 * /* * 37540000 **/*%NOFLUSH: D (YES,,NO,%USER) WAS STEP COMP CODE A SYSTEM CODE? * 37550000 * /* * 37560000 * /****************************************************** 37570000 * 37580000 * IF SYSCODE(1:8)ª='00000000'B /*IF ALL BITS OF THE SYS * 37590000 * ³ /*COMPLETION CODE ARE NOT ZERO, * 37600000 * SYSCODE(9:12)ª='0000'B /*STEP HAD A SYSTEM COMP CODE* 37610000 * THEN /*SYSTEM CODE MUST BE PUT TO USER * 37620000 CLI COMPCODE+1,B'00000000' 0252 37630000 BC 07,@9D4 0252 37640000 TM COMPCODE+2,B'11110000' 0252 37650000 BC 08,@9D3 0252 37660000 * DO; /*PREPARE TEXT INSERTION SEGMENTS * 37670000 * SEGMSG1=ADDR(START4); /*SET ADDR OF SEGMENT * 37680000 @9D4 LA @F,MSGDSEC1+94 0254 37690000 ST @F,SEGMSG1 0254 37700000 * 37710000 * /********************************************** 37720000 * /* * 37730000 **/* P CONVERT CODE TO EBCDIC * 37740000 * /* * 37750000 * /********************************************** 37760000 * 37770000 * GEN; /*CONVERT CODE FOR PRINTING * 37780000 UNPK ZONEDEC(UNPKLEN),COMPCODE(4) UNPCK THE COMP CODE 37790000 MVC CODESTEP(3),ZONEDEC+3 MOVE CODE TO INSERTION BUFFER 37800000 NC CODESTEP(3),NOZONE REMOVE ZONES TO TRANSLATE 37810000 TR CODESTEP(3),EBCDCHAR TRANSLATE CHARACTERS TO PRINT 37820000 DS 0H 37830000 * 37840000 * /********************************************** 37850000 * /* * 37860000 **/* D (YES,,NO,%REINIT) COMPLETION CODE FOR ATTENTION * 37870000 * /* * 37880000 * /********************************************** 37890000 * 37900000 * 37910000 * IF LWATNBT='1'B /*SYS COMP CODE FOR ATTN? * 37920000 * THEN /*SYS COMP CODE FOR ATTN * 37930000 TM 43(@2),B'00001000' 0256 37940000 BC 12,@9D2 0256 37950000 * DO; /*DON'T BLANK THE RELOGON BUFFER * 37960000 * 37970000 * /**************************************** 37980000 * /* * 37990000 **/* P (,%RLGB) TURN OFF ATTN BIT & INIT RLGB BIT * 38000000 * /* * 38010000 * /**************************************** 38020000 * 38030000 * INITBUFR='0'B; /*DON'T BLANK BUFFER * 38040000 NI BITSFORL,B'01111111' 0258 38050000 * LWATNBT='0'B; /*RESET ATTN BIT * 38060000 NI 43(@2),B'11110111' 0259 38070000 BC 15,@9D1 0261 38080000 * END; 38090000 * ELSE /*SYS COMP CODE NOT FOR ATTN * 38100000 * DO; 38110000 @9D2 EQU * 0261 38120000 * /*************************************** 38130000 * /* * 38140000 **/*%REINIT: P (,%RLGB) TURN ON INIT RLGB BIT * 38150000 * /* * 38160000 * /*************************************** 38170000 * 38180000 * INITBUFR='1'B; /*SET BIT: REINITIALIZE 38190000 * THE RLGB COMMAND FIELD* 38200000 OI BITSFORL,B'10000000' 0262 38210000 * END; /*END SYSTEM ERR NOT ATTN PROCESS * 38220000 * END; /*SYSTEM C.C. MESSAGE READY * 38230000 BC 15,@9D0 0265 38240000 * ELSE /*MUST BE A USER COMPLETION CODE * 38250000 * 38260000 * /****************************************************** 38270000 * /* * 38280000 **/*%USER: P CONVERT USER CODE TO EBCDIC * 38290000 * /* * 38300000 * /****************************************************** 38310000 * 38320000 * DO; /*PREPARE TEXT SEGMENT FOR USER * 38330000 * SEGMSG1=ADDR(START3); /*SET ADDR OF USER TEXT * 38340000 @9D3 LA @F,MSGDSEC1+84 0266 38350000 ST @F,SEGMSG1 0266 38360000 * GEN; /*CONVERT CODE FOR PRINTING * 38370000 L RETCODE,COMPCODE PUT CODE IN A REG FOR CVD 38380000 LA RETCODE,0(RETCODE) CLEAR HIGH ORDER FLAG BYTE 38390000 CVD RETCODE,PACKDEC CONVERT COMP CODE TO PACKED DEC 38400000 UNPK ZONEDEC(UNPKLEN),PACKDEC(UNPKLEN) 38410000 * UNPACK THE USER COMPLETION CODE 38420000 OI ZONEDEC+7,X'F0' SET ZONE FOR PRINTING 38430000 MVC CODESTEP(3),ZONEDEC+5 MOVE CODE TO INSERTION BUFFER 38440000 DS 0H 38450000 * 38460000 * /************************************************* 38470000 * /* * 38480000 **/* P SET INIT BUFFER BIT OFF * 38490000 * /* * 38500000 * /************************************************* 38510000 * 38520000 * INITBUFR='0'B; /*SET BIT:RELOGON BUFFER * 38530000 NI BITSFORL,B'01111111' 0268 38540000 * /*REINITIALIZATION MAY NOT BE * 38550000 * /*NECESSARY * 38560000 * END; /*USER COMP CODE MESSAGE READY * 38570000 * 38580000 * 38590000 * /****************************************************** 38600000 * /* * 38610000 **/*%RLGB: D (YES,,NO,%NORLGB) SHOULD RLGB BE