./ ADD SSI=01010600,NAME=IGC2509I,SOURCE=1 * GENERATE; /* TITLE STATEMENT FOR BAL */ 00000000 TITLE 'IGC25099 - DYNAMIC ALLOCATION DSE UPDATE ROUTINE' 00000010 * /**************************************************************/ 00000020 * /* */ 00000030 * /* STATUS */ 00000040 * /* CHANGE LEVEL 0 */ 00000050 * /* */ 00000060 * /* FUNCTION */ 00000070 * /* MODULE IGC25099 DOES THE INITIAL PROCESSING WHEN ENTRY */ 00000080 * /* IS FROM 'DATASET' OR 'CONVERT'. THE MODULE IS COMPRISED*/ 00000090 * /* OF THE MAIN DSE UPDATING ROUTINE AND A SUBROUTINE, */ 00000100 * /* DSESERCH, WHICH SEARCHES THE DSE CHAIN USING A DDNAME */ 00000110 * /* AS AN ARGUMENT. */ 00000120 * /* IF ENTRY TO THIS MODULE IS FROM THE DYNAMIC ALLOCATION */ 00000130 * /* CONTROL ROUTINE OR 'DECONCAT' AN XCTL TO MODULE */ 00000140 * /* IGC27099 IS DONE. */ 00000150 * /* IF ENTRY IS FROM 'UNALLOC' OR 'CONCAT' AN XCTL TO */ 00000160 * /* MODULE IGC29099 IS DONE. */ 00000170 * /* THE DSESERCH SUBROUTINE IS CALLED TO SEARCH FOR DDNAME1 */ 00000180 * /* AND DDNAME2 WHICH ARE SUPPLIED IN THE 'DATASET' OR */ 00000190 * /* 'CONVERT' PARAMETER LISTS. IF DDNAME1 IS NOT FOUND, */ 00000200 * /* A '504'X RETURN CODE IS PLACED IN THE DYNAMIC ALLOCATION*/ 00000210 * /* WORK TABLE (DAWT) AND AN XCTL TO MODULE IGC26099 IS */ 00000220 * /* DONE. IF THE SEARCH IS SUCCESSFUL AND ENTRY WAS FROM */ 00000230 * /* 'CONVERT' AN XCTL IS ALSO DONE TO MODULE IGC26099. */ 00000240 * /* PROCESSING IS NOW FOR 'DATASET' ONLY. THE SIZE OF A */ 00000250 * /* NEW DSE BLOCK IS CALCULATED. A GETMAIN IS DONE FOR THE */ 00000260 * /* NEW DSE. THE DSE FORWARD AND BACKWARD CHAIN POINTERS */ 00000270 * /* FROM THE DSE ASSOCIATED WITH DDNAME1 AND THE SIZE ARE */ 00000280 * /* MOVED TO THE NEW DSE. IF THERE IS A DDNAME2, IT IS */ 00000290 * /* MOVED TO THE NEW DSE, OTHERWISE DDNAME1. DISPOSITION */ 00000300 * /* FIELDS ARE MOVED IN FROM THE 'DATASET' PARAMETER LIST. */ 00000310 * /* IF ALLOCATION IS TO A TERMINAL, A * IS PLACED INTO THE */ 00000320 * /* DSNAME, OTHERWISE THE DSNAME AND ITS LENGTH ARE MOVED */ 00000330 * /* IN. IF THE SPECIFIED STATUS IS SHARE AND THE NORMAL AND*/ 00000340 * /* CONDITIONAL DISPOSITIONS ARE NOT DELETE, THE NEW DSE */ 00000350 * /* IS MARKED ENQUEUED FOR SHARED USE. AN XCTL TO */ 00000360 * /* MODULE IGC26099 IS DONE. */ 00000370 * /* */ 00000380 * /* ENTRY POINTS */ 00000390 * /* IGC25099 - FROM DYNAMIC ALLOCATION */ 00000400 * /* */ 00000410 * /* INPUT */ 00000420 * /* REGISTER 1 - A POINTER TO THE DAWT */ 00000430 * /* REGISTER 15 - A POINTER TO THE XCTL PARAMETER LIST */ 00000440 * /* */ 00000450 * /* OUTPUT */ 00000460 * /* REGISTER 1 - A POINTER TO THE DAWT */ 00000470 * /* REGISTER 15 - A POINTER TO THE XCTL PARAMETER LIST */ 00000480 * /* */ 00000490 * /* EXTERNAL REFERENCES */ 00000500 * /* THIS ROUTINE USES THE FOLLOWING SYSTEM FUNCTIONS: */ 00000510 * /* GETMAIN - TO GET CORE FROM SP255 FOR A NEW DSE */ 00000520 * /* XCTL - TO PASS CONTROL TO SUBSEQUENT DSE UPDATE */ 00000530 * /* ROUTINE LOAD MODULES */ 00000540 * /* */ 00000550 * /* EXITS, NORMAL */ 00000560 * /* VIA XCTL TO MODULES IGC26099, IGC27099 OR IGC29099 */ 00000570 * /* */ 00000580 * /* EXITS, ERROR */ 00000590 * /* VIA XCTL TO MODULE IGC26099 WITH A RETURN CODE IN THE */ 00000600 * /* DAWT */ 00000610 * /* CODE(HEX) */ 00000620 * /* '504'X - DSE ASSOCIATED WITH REQUESTED DDNAME NOT */ 00000630 * /* FOUND IN DSE CHAIN */ 00000640 * /* */ 00000650 * /* TABLES/WORK AREAS */ 00000660 * /* THE FOLLOWING TABLES ARE REFERENCED: */ 00000670 * /* CVT,DSE,JFCB,JSCB,TCB,TJB,TJBX,TSCVT */ 00000680 * /* */ 00000690 * /* ATTRIBUTES */ 00000700 * /* TYPE IV SVC. REENTRANT */ 00000710 * /* */ 00000720 * /* NOTES */ 00000730 * /* SINCE THIS MODULE WILL NEVER RETURN BUT EITHER EXIT OR */ 00000740 * /* XCTL, THE CODE TO FREE THE AUTOMATIC STORAGE WILL NEVER */ 00000750 * /* BE EXECUTED. IN ORDER TO TAKE ADVANTAGE OF THIS CODE */ 00000760 * /* AND TO SAVE BYTES IN THE MODULE, THE FOLLOWING */ 00000770 * /* INSTRUCTION APPEARS IN THE NORMAL AND ERROR EXITING */ 00000780 * /* PROCEDURES: */ 00000790 * /* BAL @EL01 */ 00000800 * /* THUS THIS MODULE HAS A DEPENDENCY THAT BSL GENERATES */ 00000810 * /* @EL01 AS THE LABEL OF A GROUP OF INSTRUCTIONS THAT */ 00000820 * /* FREES AUTOMATIC STORAGE. */ 00000830 * /* THIS MODULE DEPENDS ON THE COMPILER TO GENERATE THE LABEL * 00000840 * /* .@001 IN ORDER TO GENERATE THE MODULE IDENTIFIER. * 00000850 * /* THIS MODULE IS DEPENDENT ON THE EBCDIC CHARACTER CODE SET * 00000860 * /* WHICH WAS USED FOR ASSEMBLY AND MUST BE REASSEMBLED IF A * 00000870 * /* DIFFERENT CHARACTER SET IS TO BE USED DURING EXECUTION. * 00000880 * /* */ 00000890 * /**************************************************************/ 00000900 * 00000910 * /* GENERATE MODULE IDENTIFIER */ 00000920 * GENERATE; /* DO */ 00000930 LCLA &T,&SPN MODULE 00000940 &SPN SETA 0 ID 00000950 IGC25099 CSECT 00000960 B 16(@0,@F) BRANCH AROUND ID 00000970 DC AL1(8) LENGTH OF MODULE NAME 00000980 DC CL8'IGC25099' MODULE NAME 00000990 DC CL3'316' JULIAN DATE 00001000 AGO .@001 00001010 * 00001020 * IGC25099: 00001030 * PROC (PLIST) 00001040 * OPTIONS(REENTRANT,DONTSAVE,NOSAVEAREA); 00001050 LCLA &T,&SPN 0003 00001060 .@001 ANOP 0003 00001070 IGC25099 CSECT , 0003 00001080 BALR @B,0 0003 00001090 @PSTART DS 0H 0003 00001100 USING @PSTART+00000,@B 0003 00001110 LR @C,@1 0003 00001120 L @0,@SIZ001 0003 00001130 GETMAIN R,LV=(0) 0003 00001140 XR @C,@1 0003 00001150 XR @1,@C 0003 00001160 XR @C,@1 0003 00001170 USING @DATD+00000,@C 0003 00001180 XC @TEMPS(@L),@TEMPS 0003 00001190 * DCL CVTPTR PTR(31) BASED(16); /* CVT ADDRESS */ 00001200 * DCL DSEPTR PTR(31) REG(5); /* FIRST DSE ADDRESS */ 00001210 * DCL DSEMPTR PTR(31); /* DSE MEMBER NAME PTR */ 00001220 * DCL TJBPTR PTR(31); /* TJB ADDRESS */ 00001230 ** 00001240 ** /* COMMUNICATION VECTOR TABLE * 00001250 ** /* RELEASE 20.2 * 00001260 ** 00001270 ** /* CVT PROPER * 00001280 ** 00001290 ** DECLARE 00001300 ** 1 CVTMAP BASED(CVTPTR), 00001310 ** 00001320 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 00001330 ** AND CURRENT TCB * 00001340 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 00001350 ** ASYNCHRONOUS EXITS * 00001360 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 00001370 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 00001380 ** BLOCKS * 00001390 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 00001400 ** CONSOLE INTERRUPTION ROUTINE * 00001410 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 00001420 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 00001430 ** VALIDITY CHECKING ROUTINE * 00001440 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001450 ** FOR CONVERTING RELATIVE 00001460 ** TRACK ADDR TO ABSOLUTE * 00001470 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001480 ** FOR CONVERTING ABSOLUTE 00001490 ** TRACK ADDR TO RELATIVE * 00001500 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 00001510 ** UNIT SECTION IN UCB LOOKUP 00001520 ** TABLE * 00001530 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 00001540 ** SECTION IN UCB LOOKUP TABLE * 00001550 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 00001560 ** ROUTINE FOR SYSTEM ERROR 00001570 ** ROUTINES * 00001580 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 00001590 ** VOLUME ENTRY IN UCB TABLE * 00001600 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 00001610 ** ROUTINE * 00001620 ** 2 CVTDATE CHAR(4), /* CURRENT DATE IN PACKED 00001630 ** DECIMAL * 00001640 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 00001650 ** (MASTER RESIDENT CORE IN PCP 00001660 ** PLEASE USE CVTMSER INSTEAD 00001670 ** TO ADDRESS MASTER SCHEDULER 00001680 ** RESIDENT DATA AREA * 00001690 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 00001700 ** CHARACTERISTIC TABLE * 00001710 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 00001720 ** ROUTINE * 00001730 ** 00001740 ** 2 CVTDAR PTR(31), /* ADDR OF I/O CONTROL BLOCK 00001750 ** COMPLEX ACCESSED BY DAR * 00001760 ** 00001770 ** 00001780 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 00001790 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 00001800 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 00001810 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 00001820 ** 2 CVTTPC PTR(31), /* ADDR OF PSEUDO CLOCK FOR 00001830 ** TIMER ROUTINE * 00001840 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 00001850 ** TO BLDL ROUTINE * 00001860 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 00001870 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 00001880 ** UCB ADDR * 00001890 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 00001900 ** ROUTINE * 00001910 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 00001920 ** ROUTINE * 00001930 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 00001940 ** TABLE * 00001950 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 00001960 ** CONFIGURATION * 00001970 ** 4 * BIT(1), /* RESERVED * 00001980 ** 4 CVT1SSS BIT(1), /* - PCP * 00001990 ** 4 CVT2SPS BIT(1), /* - MFT * 00002000 ** 4 CVT4MS1 BIT(1), /* - MVT * 00002010 ** 4 * BIT(1), /* RESERVED * 00002020 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 00002030 ** 4 * BIT(1), /* RESERVED * 00002040 ** 4 * BIT(1), /* RESERVED * 00002050 ** 2 CVTDCBA PTR(24) BDY(WORD,2), 00002060 ** /* ADDR OF DCB FOR SYS1.LOGREC * 00002070 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 00002080 ** TABLE * 00002090 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 00002100 ** FREELIST POINTER * 00002110 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 00002120 ** NUCLEUS * 00002130 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 00002140 ** ROUTINE * 00002150 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 00002160 ** DISPATCHER * 00002170 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 00002180 ** TABLE * 00002190 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 00002200 ** QUEUE * 00002210 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 00002220 ** RESIDENT DATA AREA (ADDR OF 00002230 ** MAJOR QCB IN PCP) * 00002240 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 00002250 ** OF POST ROUTINE * 00002260 ** 2 CVTTRMTB PTR(31), /* ADDR OF QTAM TERMINAL TABLE * 00002270 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 00002280 ** IN READY QUEUE * 00002290 ** 2 CVTMZ00 PTR(31), /* HIGHEST STORAGE ADDRESS * 00002300 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 00002310 ** CREATES IRBS FOR EXITS * 00002320 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 00002330 ** WORD, OR ZERO (RESERVED IN 00002340 ** PCP) * 00002350 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 00002360 ** DATA AREA (RESERVED IN PCP) * 00002370 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 00002380 ** NUMBER COUNTER * 00002390 ** 2 CVTOPTA CHAR(1), /* FLAGS * 00002400 ** 3 CVTCCH BIT(1), /* - CCH OPTION PRESENT 00002410 ** (MVT/MFT) * 00002420 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 00002430 ** I/O RECOVERY MGT (MVT/MFT) */ 00002440 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 00002450 ** --I/O RECOVERY MGT (MVT/MFT) * 00002460 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 00002470 ** 3 CVTATTCH BIT(1), /* ATTACH OPERATIVE (MFT) * 00002480 ** 3 CVTHIAR BIT(1), /* MAIN STORAGE HIERARCHY 00002490 ** SUPPORT OPERATIVE * 00002500 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 00002510 ** 3 * BIT(1), /* RESERVED * 00002520 ** 2 CVTOPTB CHAR(1), /* RESERVED * 00002530 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 00002540 ** 3 * BIT(1), /* RESERVED * 00002550 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 00002560 ** 3 * BIT(5), /* RESERVED * 00002570 ** 00002580 ** 2 CVTQCDSR PTR(31), /* MVT/MFT: CDE SEARCH ROUTINE 00002590 ** ADDR */ 00002600 ** 2 CVTQLPAQ PTR(31), /* MVT/MFT: ADDR OF TOP CDE IN LP 00002610 ** QUEUE */ 00002620 ** 00002630 ** 2 CVTMPCVT PTR(31), /* MVT: ADDR OF M65MP SECONDARY 00002640 ** CVT -- MFT/PCP: RESERVED * 00002650 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 00002660 ** 2 CVTABEND PTR(31), /* MVT: ADDR OF SECONDARY CVT 00002670 ** -- MFT/PCP: RESERVED * 00002680 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 00002690 ** 00002700 ** 00002710 ** /* MFT/MVT CVT EXTENSION * 00002720 ** 00002730 ** 2 * PTR(31), /* RESERVED * 00002740 ** 2 CVTQABST CHAR (2), /* MVT: AN SVC 13 INSTRUCTION 00002750 ** -- MFT: RESERVED * 00002760 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 00002770 ** (MFT WITH SUBTASKING) * 00002780 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 00002790 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 00002800 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS WORK AREA * 00002810 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 00002820 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 00002830 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 00002840 ** 4 * BIT(7), /* RESERVED * 00002850 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 00002860 ** 2 CVT0SCR1 PTR(31), /* ADDR OF RPS SECTOR 00002870 ** CONVERTER * 00002880 ** 2 * PTR(31), /* RESERVED * 00002890 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 00002900 ** ADDR OF TCAM VECTOR TABLE * 00002910 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 00002920 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 00002930 ** 4 * BIT(7), /* RESERVED * 00002940 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 00002950 ** ADDR OF TCAM VECTOR TABLE */ 00002960 ** 00002970 ** /* MFT WITH SUBTASKING CVT EXTENSION * 00002980 ** 00002990 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 00003000 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 00003010 ** TAB ENTRIES * 00003020 ** 3 CVTTAT PTR(24) BDY(WORD,2), 00003030 ** /* ADDR OF P0 TCB POINTER * 00003040 ** 2 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 00003050 ** 2 * CHAR(3); /* RESERVED * 00003060 ** 00003070 ** /* PCP OVERLAY * 00003080 ** 00003090 ** DECLARE 00003100 ** 1 * BASED(ADDR(CVTQCDSR ) ), /* PCP OVERLAY * 00003110 ** 2 CVTCRTTR CHAR(3), /* TTR OF JCT FOR RESTART (PCP) * 00003120 ** 2 CVTSTUSA CHAR(1), /* STATUS BYTE A * 00003130 ** 3 * BIT(1), /* RESERVED * 00003140 ** 3 * BIT(1), /* RESERVED * 00003150 ** 3 * BIT(1), /* RESERVED * 00003160 ** 3 * BIT(1), /* RESERVED * 00003170 ** 3 CVTCHPTR BIT(1), /* - REQUESTED AUTOMATIC 00003180 ** CHECKPOINT RESTART WAS 00003190 ** INITIATED * 00003200 ** 3 CVTSTEPR BIT(1), /* - REQUESTED AUTOMATIC STEP 00003210 ** RESTART WAS INITIATED * 00003220 ** 3 CVTDATA BIT(1), /* - DD DATA STATEMENT IN INPUT 00003230 ** STREAM AND DATA HAS NOT BEEN 00003240 ** READ * 00003250 ** 3 * BIT(1), /* RESERVED * 00003260 ** 2 * CHAR(2), /* RESERVED * 00003270 ** 2 * CHAR(2); /* RESERVED * 00003280 ** 00003290 ** /* CVT PREFIX * 00003300 ** 00003310 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 00003320 ** 2 * CHAR(248), /* RESERVED * 00003330 ** 2 * CHAR(2), /* RESERVED * 00003340 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 00003350 ** PACKED DECIMAL, I.E., A 00003360 ** MODEL 50 WOULD BE REPRESENTED 00003370 ** AS 0050 HEX * 00003380 ** 2 CVTRELNO CHAR(4); /* OS RELEASE NUMBER (EBCDIC) * 00003390 ** 00003400 ** /* END OF CVT MACRO * 00003410 ** 00003420 * DCL TCBPTR PTR(31) BASED(CVTTCBP + 4); /* CURRENT TCB */ 00003430 * /* ADDRESS */ 00003440 ** /* TASK CONTROL BLOCK * 00003450 ** /* RELEASE 20 * 00003460 ** 00003470 ** /* TCB PREFIX * 00003480 ** 00003490 ** DECLARE 00003500 ** 1 TCBFIX BASED(TCBPTR-32), 00003510 ** 00003520 ** 2 TCBFRS CHAR(32), /* FLOATING POINT REGISTER SAVE 00003530 ** AREA * 00003540 ** 3 TCBFRS0 CHAR(8), /* SAVE AREA FOR FLOATING 00003550 ** POINT REGISTER 0 * 00003560 ** 3 TCBFRS2 CHAR(8), /* SAVE AREA FOR FLOATING 00003570 ** POINT REGISTER 2 * 00003580 ** 3 TCBFRS4 CHAR(8), /* SAVE AREA FOR FLOATING 00003590 ** POINT REGISTER 4 * 00003600 ** 3 TCBFRS6 CHAR(8); /* SAVE AREA FOR FLOATING 00003610 ** POINT REGISTER 6 * 00003620 ** 00003630 ** /* TCB PROPER * 00003640 ** 00003650 ** DECLARE 00003660 ** 1 TCB BASED(TCBPTR), 00003670 ** 00003680 ** 2 TCBRBP PTR(31), /* PTR TO TOP RB ON RB CHAIN * 00003690 ** 2 TCBPIE PTR(31), /* ADDR OF PROGRAM INTERRUPT 00003700 ** ELEMENT (PIE) * 00003710 ** 2 TCBDEB PTR(31), /* ADDR OF THE DEB QUEUE * 00003720 ** 2 TCBTIO PTR(31), /* ADDR OF THE TASK I/O TABLE 00003730 ** (TIOT) * 00003740 ** 2 TCBCMP CHAR(4), /* TASK COMPLETION CODE * 00003750 ** 3 TCBCMPF CHAR(1), /* COMPLETION FLAGS * 00003760 ** 4 TCBCREQ BIT(1), /* - A DUMP HAS BEEN REQUESTED * 00003770 ** 4 TCBCSTEP BIT(1), /* - A STEP ABEND HAS BEEN 00003780 ** REQUESTED (MVT) * 00003790 ** 4 TCBCPP BIT(1), /* - SECOND ABEND LOAD OVERLAID 00003800 ** PP STORAGE (PCP/MFT) FOR 00003810 ** FIRST LOAD OVERLAY SEE 00003820 ** TCBFLGS * 00003830 ** 4 * BIT(1), /* RESERVED * 00003840 ** 4 TCBCDBL BIT(1), /* - A DOUBLE ABEND HAS 00003850 ** OCCURRED * 00003860 ** 4 TCBCWTO BIT(1), /* - DUMP MSG TO BE ISSUED TO 00003870 ** OPR * 00003880 ** 4 TCBCIND BIT(1), /* - SCHEDULER TO PRINT 00003890 ** INDICATIVE DUMP * 00003900 ** 4 TCBCMSG BIT(1), /* - ABEND MSG PROVIDED TO BE 00003910 ** PRINTED BY ABDUMP * 00003920 ** 3 TCBCMPC CHAR(3), /* SYSTEM (FIRST 12 BITS) AND 00003930 ** USER (SECOND 12) COMPLETION 00003940 ** CODES * 00003950 ** 2 TCBTRN PTR(31), /* ADDR OF CONTROL CORE TABLE * 00003960 ** 3 TCBABF CHAR(1), /* FLAG BYTE * 00003970 ** 4 TCBMOD91 BIT(1), /* - BOTH TESTRAN AND DECIMAL 00003980 ** SIMULATOR ON A MOD 91 * 00003990 ** 4 TCBNOCHK BIT(1), /* - SUPPRESS TAKING 00004000 ** CHECKPOINTS FOR THIS STEP 00004010 ** (MVT/MFT JOB STEP TCB) * 00004020 ** 4 TCBGRPH BIT(1), /* - GRAPHICS FOREGROUND JOB OR 00004030 ** GRAPHIC JOB PROCESSOR * 00004040 ** 4 * BIT(1), /* RESERVED * 00004050 ** 4 TCBTCPP BIT(1), /* - TCAM POST-PENDING (RORI) * 00004060 ** 4 TCBTCP BIT(1), /* - TEST TASK - USED BY TEST 00004070 ** SVC * 00004080 ** 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 00004090 ** CLEAN-UP BEFORE ABNORMAL 00004100 ** TERMINATION CAN BE INVOKED * 00004110 ** 4 * BIT(1), /* RESERVED * 00004120 ** 3 TCBTRNB PTR(24) BDY(BYTE), 00004130 ** /* ADDR OF CONTROL CORE TABLE * 00004140 ** 2 TCBMSS PTR(31), /* ADDR OF THE BOUNDARY BOX 00004150 ** (PCP/MFT) ADDR OF LAST SPQE 00004160 ** ON MSS QUEUE (MVT) * 00004170 ** 3 TCBNROC PTR(8), /* NONROLLOUTABLE COUNT FIELD 00004180 ** (MVT ONLY) ZERO MEANING 00004190 ** ROLLOUTABLE * 00004200 ** 3 TCBMSSB PTR(24) BDY(BYTE), 00004210 ** /* ADDR OF THE BOUNDARY BOX 00004220 ** (PCP/MFT) ADDR OF LAST SPQE 00004230 ** ON MSS QUEUE (MVT) * 00004240 ** 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY * 00004250 ** 3 TCBFLAG BIT(4), /* - PROTECTION KEY * 00004260 ** 3 TCBZERO BIT(4), /* - ZERO * 00004270 ** 2 TCBFLGS CHAR(5), /* FLAGS * 00004280 ** 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE * 00004290 ** 4 TCBFA BIT(1), /* - ABNORMAL TERMINATION IN 00004300 ** PROGRESS * 00004310 ** 4 TCBFE BIT(1), /* - NORMAL TERMINATION IN 00004320 ** PROGRESS * 00004330 ** 4 TCBFERA BIT(1), /* - ABEND INITIATED BY 00004340 ** RESIDENT ABTERM (PCP/MFT) 00004350 ** ENTER ABEND ERASE ROUTINE 00004360 ** WHEN IN CONTROL AGAIN (MVT) * 00004370 ** 4 TCBRECUR BIT(1), /* - RECURSION THRU ABEND 00004380 ** PERMITTED (PCP/MFT) ENTER 00004390 ** ABEND PURGE ROUTINE WHEN IN 00004400 ** CONTROL AGAIN (MVT) * 00004410 ** 4 TCBPDUMP BIT(1), /* - PREVENT DUMP INDICATOR 00004420 ** (MVT) * 00004430 ** 4 TCBFT BIT(1), /* - TOP TASK IN TREE BEING 00004440 ** ABTERMED (MVT) CLOSE 00004450 ** INITIATED BY ABEND (MFT) 00004460 ** DUMP PROCESSING INITIATED IN 00004470 ** ABEND (PCP) * 00004480 ** 4 TCBFS BIT(1), /* - ABTERM DUMP COMPLETED 00004490 ** (MVT) ABEND OVERLAID 00004500 ** PROBLEM PROGRAM STORAGE 00004510 ** (MFT) * 00004520 ** 4 TCBFX BIT(1), /* - PROHIBIT ASYNCHRONOUS EXIT 00004530 ** QUEUEING (MVT/MFT ONLY) * 00004540 ** 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE * 00004550 ** 4 TCBFOINP BIT(1), /* - ABEND OPERANDS SAVED IN 00004560 ** TCBCMP (MVT) ABEND 00004570 ** PROHIBITED FOR THIS SYSTEM 00004580 ** TASK (PCP/MFT) * 00004590 ** 4 TCBFSTI BIT(1), /* - SECOND JOB STEP INTERVAL 00004600 ** HAS EXPIRED (MVT INITIATOR 00004610 ** TCB) * 00004620 ** 4 TCBFRA BIT(1), /* - JOB STEP CAN CAUSE ROLLOUT 00004630 ** (MVT JOBSTEP TCB) * 00004640 ** 4 TCBFSMC BIT(1), /* - TASK HAS ISSUED SYSTEM 00004650 ** MUST COMPLETE AND SET ALL 00004660 ** OTHER TASKS IN THE SYSTEM 00004670 ** NONDISPATCHABLE * 00004680 ** 4 TCBFJMC BIT(1), /* - TASK HAS ISSUED STEP MUST 00004690 ** COMPLETE AND TURNED OFF ALL 00004700 ** OTHER TASKS IN THE STEP * 00004710 ** 4 TCBFDSOP BIT(1), /* - SYSABEND OPEN FOR JOBSTEP 00004720 ** (MVT) DUMP PROCESSING 00004730 ** INITIATED IN ABEND (PCP/MFT) * 00004740 ** 4 TCBFETXR BIT(1), /* - ETXR TO BE SCHEDULED * 00004750 ** 4 TCBFTS BIT(1), /* - MEMBER OF TIME-SLICING 00004760 ** GROUP (MVT/MFT) * 00004770 ** 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE * 00004780 ** 4 TCBFSM BIT(1), /* - ALL PSW'S IN SUPERVISOR 00004790 ** STATE (MVT) * 00004800 ** 4 TCBFRI BIT(1), /* - STEP HAS CAUSED ROLLOUTS 00004810 ** THAT ARE STILL IN EFFECT 00004820 ** (MVT JOBSTEP TCB) * 00004830 ** 4 TCBABTRM BIT(1), /* - ABTERM BIT TO PREVENT 00004840 ** MULTIPLE ABENDS (MVT) EXIT 00004850 ** EFFECTOR--SYSTEM ERROR 00004860 ** ROUTINES OPERATING FOR THIS 00004870 ** TASK (PCP/MFT) * 00004880 ** 4 TCBREC BIT(1), /* - VALID RECURSION BIT (MVT) * 00004890 ** 4 TCBRECDE BIT(4), /* - VALID RECURSION 00004900 ** CONFIGURATION BITS (MVT) * 00004910 ** 5 TCBFLREG BIT(1), /* - FLOATING POINT REGISTERS 00004920 ** EXIST (PCP/MFT) * 00004930 ** 5 TCBSCH BIT(1), /* - JOB SCHEDULER ROUTINES 00004940 ** IN PROCESS (PCP/MFT) * 00004950 ** 5 TCBPKCHG BIT(1), /* - XCTL IS CHANGING PROTECT 00004960 ** KEY IN PSW FROM ZERO 00004970 ** TO THAT USED BY PROBLEM 00004980 ** PROGRAM (PCP/MFT) * 00004990 ** 5 * BIT(1), /* - RESERVED (PCP/MFT) * 00005000 ** 3 TCBFLGS4 CHAR(1), /* NONDISPATCHABILITY FLAGS 00005010 ** (MVT) * 00005020 ** 4 TCBNDUMP BIT(1), /* - ABDUMP NON-DISP. INDICATOR * 00005030 ** 4 TCBSER BIT(1), /* - SER1 NON-DISP. INDICATOR * 00005040 ** 4 TCBRQENA BIT(1), /* - I/O RQE'S EXHAUSTED * 00005050 ** 4 * BIT(1), /* RESERVED * 00005060 ** 4 * BIT(1), /* RESERVED * 00005070 ** 4 TCBMPCVQ BIT(1), /* - VARY OR QUIESCE IN 00005080 ** MULTIPROCESSING SYSTEM * 00005090 ** 4 TCBMPCND BIT(1), /* - M65 MULTIPROCESSING 00005100 ** NON-DISP. INDICATOR FOR ALL 00005110 ** CPU'S * 00005120 ** 4 TCBONDSP BIT(1), /* - CURRENT TASK ABTERMED AND 00005130 ** NDSP WHILE DUMP DATA SET 00005140 ** BEING OPENED FOR ANOTHER TASK 00005150 ** IN SAME JOB STEP * 00005160 ** 3 TCBFLGS5 CHAR(1), /* MORE NONDISPATCHABILITY 00005170 ** FLAGS (MVT) * 00005180 ** 4 TCBFC BIT(1), /* - TASK TERMINATED * 00005190 ** 4 TCBABWF BIT(1), /* - ABNORMAL WAIT * 00005200 ** 4 TCBWFC BIT(1), /* - TASK IS WAITING FOR SPACE 00005210 ** REQUESTED BY ROLLOUT * 00005220 ** 4 TCBFRO BIT(1), /* - JOB STEP HAS BEEN ROLLED 00005230 ** OUT * 00005240 ** 4 TCBSYS BIT(1), /* - ANOTHER TASK IS IN SYSTEM 00005250 ** MUST COMPLETE STATUS * 00005260 ** 4 TCBSTP BIT(1), /* - ANOTHER TASK IN JS IS IN 00005270 ** STEP MUST COMPLETE STATUS * 00005280 ** 4 TCBFCD1 BIT(1), /* - INITIATOR WAITING FOR 00005290 ** REGION * 00005300 ** 4 TCBPNDSP BIT(1), /* - PRIMARY NONDISPATCHABILITY 00005310 ** FLAG * 00005320 ** 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (MVT) 00005330 ** ENQUEUE COUNT (PCP/MFT) * 00005340 ** 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY * 00005350 ** 2 TCBLLS PTR(31), /* ADDR OF LAST LLE IN LOAD 00005360 ** LIST (MVT) ADDR OF LAST RB 00005370 ** FOR PROGRAM LOADED VIA LOAD 00005380 ** (PCP/MFT) * 00005390 ** 2 TCBJLB PTR(31), /* ADDR OF JOBLIB DCB * 00005400 ** 2 TCBJPQ PTR(31), /* ADDR OF LAST CDE FOR JPA 00005410 ** CONTROL QUEUE (MVT) ADDR OF 00005420 ** FIRST TCB FOR JOBSTEP (MFT 00005430 ** WITH SUBTASKING) * 00005440 ** 3 TCBPURGE CHAR(1), /* PURGE FLAGS (MVT) * 00005450 ** 4 TCBJPQF BIT(1), /* - JPQ PURGE FLAG * 00005460 ** 4 * BIT(1), /* RESERVED * 00005470 ** 4 * BIT(1), /* RESERVED * 00005480 ** 4 * BIT(1), /* RESERVED * 00005490 ** 4 * BIT(1), /* RESERVED * 00005500 ** 4 * BIT(1), /* RESERVED * 00005510 ** 4 * BIT(1), /* RESERVED * 00005520 ** 4 * BIT(1), /* RESERVED * 00005530 ** 3 TCBJPQB PTR(24) BDY(BYTE), 00005540 ** /* ADDR OF LAST CDE FOR JPA 00005550 ** CONTROL QUEUE (MVT) ADDR OF 00005560 ** FIRST TCB FOR JOBSTEP (MFT 00005570 ** WITH SUBTASKING) * 00005580 ** 2 TCBGRS CHAR(64), /* GENERAL REGISTER SAVE AREA * 00005590 ** 3 TCBGRS0 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 0 * 00005600 ** 3 TCBGRS1 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 1 * 00005610 ** 3 TCBGRS2 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 2 * 00005620 ** 3 TCBGRS3 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 3 * 00005630 ** 3 TCBGRS4 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 4 * 00005640 ** 3 TCBGRS5 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 5 * 00005650 ** 3 TCBGRS6 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 6 * 00005660 ** 3 TCBGRS7 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 7 * 00005670 ** 3 TCBGRS8 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 8 * 00005680 ** 3 TCBGRS9 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 9 * 00005690 ** 3 TCBGRS10 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 10 * 00005700 ** 3 TCBGRS11 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 11 * 00005710 ** 3 TCBGRS12 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 12 * 00005720 ** 3 TCBGRS13 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 13 * 00005730 ** 3 TCBGRS14 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 14 * 00005740 ** 3 TCBGRS15 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 15 * 00005750 ** 2 TCBFSA PTR(31), /* ADDR OF FIRST PROBLEM 00005760 ** PROGRAM SAVE AREA * 00005770 ** 3 TCBQEL PTR(8), /* ENQUEUE COUNT (MVT) TCB 00005780 ** IDENTIFIER FIELD (PCP/MFT) * 00005790 ** 3 TCBFSAB PTR(24) BDY(BYTE), 00005800 ** /* ADDR OF FIRST PROBLEM 00005810 ** PROGRAM SAVE AREA * 00005820 ** 2 TCBTCB PTR(31), /* ADDR OF NEXT LOWER PRIRTITY 00005830 ** TCB ON READY QUEUE (MVT/MFT) * 00005840 ** 2 TCBTME PTR(31), /* ADDRESS OF TIMER QUEUE 00005850 ** ELEMENT * 00005860 ** 2 TCBJSTCB PTR(31), /* ADDR OF PARTITION 00005870 ** INFORMATION BLOCK (MFT) ADDR 00005880 ** OF FIRST JOBSTEP TCB (MVT) 00005890 ** OR OF THIS TCB IF KEY ZERO * 00005900 ** 3 TCBPIBT CHAR(1), /* PARTITION TYPE * 00005910 ** 4 TCBPART BIT(2), /* - PARTITION FLAG BITS (MFT 00005920 ** ONLY) * 00005930 ** 4 TCBSIZE BIT(1), /* - LARGE PARTITION (1)--SMALL 00005940 ** PARTITION (0) * 00005950 ** 4 TCBSTOP BIT(1), /* - CPU TIMING STOPPED BY 00005960 ** FINCH UNTIL TRANSIENT 00005970 ** LOADED * 00005980 ** 4 * BIT(1), /* RESERVED * 00005990 ** 4 * BIT(1), /* RESERVED * 00006000 ** 4 TCBWRITE BIT(1), /* - WTR PART (USED BY ABEND) * 00006010 ** 4 TCBSCHED BIT(1), /* - SCHEDULER IN CONTROL - 00006020 ** USED BY ABEND - TURNED OFF 00006030 ** WHEN TIOT WRITTEN TO JOB 00006040 ** QUEUE * 00006050 ** 3 TCBJSTCA PTR(24) BDY(BYTE), 00006060 ** /* ADDR OF PARTITION 00006070 ** INFORMATION BLOCK (MFT) ADDR 00006080 ** OF FIRST JOBSTEP TCB (MVT) 00006090 ** OR OF THIS TCB IF KEY ZERO * 00006100 ** 2 TCBNTC PTR(31), /* ADDR OF NEXT SISTER TCB 00006110 ** (ZERO IF THIS IS LAST 00006120 ** SUBTASK) (MFT WITH 00006130 ** SUBTASKING AND MVT) * 00006140 ** 2 TCBOTC PTR(31), /* ADDR OF MOTHER TCB (MFT WITH 00006150 ** SUBTASKING AND MVT) * 00006160 ** 2 TCBLTC PTR(31), /* ADDR OF LAST DAUGHTER TCB ( 00006170 ** ZERO IF THIS IS IT )(MFT 00006180 ** WITH SUBTASKING AND MVT) * 00006190 ** 2 TCBIQE PTR(31), /* ADDR OF IQE FOR EXTR 00006200 ** SCHEDULING (MFT WITH 00006210 ** SUBTASKING AND MVT) * 00006220 ** 2 TCBECB PTR(31), /* ADDR OF ECB TO BE POSTED 00006230 ** UPON TERMINATION (MFT WITH 00006240 ** SUBTASKING AND MVT) * 00006250 ** 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS * 00006260 ** 3 TCBTSTSK BIT(1), /* - SWAPPED TS TASK * 00006270 ** 3 TCBSTPPR BIT(1), /* - TASK SHOULD BE MADE NDSP 00006280 ** VIA TCBSTPP WHEN IT IS NO 00006290 ** LONGER RUNNING A PRIVILEGED 00006300 ** PGM * 00006310 ** 3 TCBATT BIT(1), /* - TASK SHOULD NOT HAVE 00006320 ** ATTENTION EXITS SCHEDULED ON 00006330 ** IT BY EXIT EFFECTOR * 00006340 ** 3 TCBTIOTG BIT(1), /* - PURGE TGET/TPUT AFTER 00006350 ** ATTENTION * 00006360 ** 3 * BIT(1), /* RESERVED * 00006370 ** 3 * BIT(1), /* RESERVED * 00006380 ** 3 * BIT(1), /* RESERVED * 00006390 ** 3 * BIT(1), /* RESERVED * 00006400 ** 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 00006410 ** WHICH MUST BE ISSUED BEFORE 00006420 ** TASK IS MADE DISPATCHABLE - 00006430 ** FIELD NOT RESTRICTED TO TSO * 00006440 ** 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TS TASK * 00006450 ** 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TS 00006460 ** TASK * 00006470 ** 00006480 ** /* MVT OVERLAY * 00006490 ** 00006500 ** 2 TCBPQE PTR(31); /* POINTER TO DPQE MINUS 8 FOR 00006510 ** THE JOB STEP (MVT) * 00006520 ** 00006530 ** /* MFT OVERLAY * 00006540 ** 00006550 ** DECLARE 00006560 ** 1 TCBOVLY1 BASED(ADDR(TCBPQE)), 00006570 ** 00006580 ** 2 TCBFTLMP PTR(8), /* TASK LIMIT PRIORITY (MFT) * 00006590 ** 2 TCBFTFLG CHAR(3), /* ABEND FLAGS (MFT WITH 00006600 ** SUBTASKS) * 00006610 ** 3 TCBFTFL1 CHAR(1), /* ABEND FLAGS (MFT WITH 00006620 ** SUBTASKS) * 00006630 ** 4 * BIT(1), /* RESERVED * 00006640 ** 4 * BIT(1), /* RESERVED * 00006650 ** 4 * BIT(1), /* RESERVED * 00006660 ** 4 * BIT(1), /* RESERVED * 00006670 ** 4 * BIT(1), /* RESERVED * 00006680 ** 4 TCBFTTOP BIT(1), /* - TOP TASK IN TREE BEING 00006690 ** ABTERMED * 00006700 ** 4 TCBFTCOM BIT(1), /* - ABTERM DUMP SUCCESSFULLY 00006710 ** COMPLETED * 00006720 ** 4 TCBFTSYN BIT(1), /* - ASYNCHRONOUS EXITS MAY NOT 00006730 ** BE SCHEDULED * 00006740 ** 3 TCBFTFL2 CHAR(1), /* ABEND FLAGS (MFT WITH 00006750 ** SUBTASKS) * 00006760 ** 4 TCBFTCMP BIT(1), /* - ABEND MACRO OPERANDS SAVED 00006770 ** IN TCBCMP FIELD * 00006780 ** 4 * BIT(1), /* RESERVED * 00006790 ** 4 * BIT(1), /* RESERVED * 00006800 ** 4 * BIT(1), /* RESERVED * 00006810 ** 4 * BIT(1), /* RESERVED * 00006820 ** 4 TCBFTOPN BIT(1), /* - SYSABEND OPEN (JOBSTEP 00006830 ** TCB) * 00006840 ** 4 TCBFTETX BIT(1), /* - ETXR EXIT REQUESTED BY 00006850 ** ATTACHER * 00006860 ** 4 * BIT(1), /* RESERVED * 00006870 ** 3 TCBFTFL3 CHAR(1), /* ABEND FLAGS (MFT WITH 00006880 ** SUBTASKS) * 00006890 ** 4 * BIT(1), /* RESERVED * 00006900 ** 4 * BIT(1), /* RESERVED * 00006910 ** 4 * BIT(1), /* RESERVED * 00006920 ** 4 TCBFTISS BIT(1), /* - OPEN ISSUED FOR SYSABEND * 00006930 ** 4 * BIT(1), /* RESERVED * 00006940 ** 4 TCBFTDUM BIT(1), /* - NO ABTERM DUMPS MAY BE 00006950 ** PROVIDED IN THIS STEP * 00006960 ** 4 * BIT(2), /* RESERVED * 00006970 ** 00006980 ** /* END OF OVERLAYS * 00006990 ** 00007000 ** 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 00007010 ** THIS TASK (MVT) * 00007020 ** 2 TCBSTAB PTR(31), /* ADDR OF STAE CONTROL BLOCK * 00007030 ** 3 TCBNSTAE CHAR(1), /* STAE FLAGS * 00007040 ** 4 TCBSTABE BIT(1), /* - ABEND ENTERED BECAUSE OF 00007050 ** ERROR IN STAE PROC * 00007060 ** 4 TCBQUIES BIT(1), /* - STAE INVOKED PURGE I/O 00007070 ** ROUTINE WITH QUIESCE I/O 00007080 ** OPTION * 00007090 ** 4 TCBXCTL BIT(1), /* - CURRENT SCB HAS XCTL=YES 00007100 ** OPTION * 00007110 ** 4 TCBSCAT BIT(1), /* - SCB WAS CREATED BY A 00007120 ** PROGRAM THAT IS SCATTER 00007130 ** LOADED * 00007140 ** 4 TCBHALT BIT(1), /* - PURGE I/O ROUTINE DID NOT 00007150 ** SUCCESSFULLY QUIESCE I/O BUT 00007160 ** I/O WAS HALTED * 00007170 ** 4 TCBSUPER BIT(1), /* - PROGRAM USING STAE IS IN 00007180 ** SUPERVISOR MODE * 00007190 ** 4 TCBRETRY BIT(1), /* - STAE USER REQUESTED THAT A 00007200 ** RETRY ROUTINE BE SCHEDULED 00007210 ** BUT THAT THE RB CHAIN NOT BE 00007220 ** PURGED * 00007230 ** 4 TCBVALID BIT(1), /* - RETRY ROUTINE AND 00007240 ** PARAMETER LIST ADDRESSES ARE 00007250 ** VALID * 00007260 ** 3 TCBSTABB PTR(24) BDY(BYTE), 00007270 ** /* ADDR OF STAE CONTROL BLOCK * 00007280 ** 2 TCBTCT PTR(31), /* ADDR OF TCT (MFT WITH 00007290 ** SUBTASKING - OTHERWISE 0) * 00007300 ** 3 * CHAR(1), /* RESERVED * 00007310 ** 3 TCBTCTB PTR(24) BDY(BYTE), 00007320 ** /* ADDR OF TCT (MFT WITH 00007330 ** SUBTASKING - OTHERWISE 0) * 00007340 ** 2 TCBUSER PTR(31), /* FIELD AVAILABLE TO THE USER * 00007350 ** 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 00007360 ** FLAGS * 00007370 ** 3 TCBDARP BIT(1), /* - PRIMARY DAR RECURSION - - 00007380 ** DAR FAILURE WHILE WRITING 00007390 ** CORE IMAGE * 00007400 ** 3 TCBDARS BIT(1), /* - SECONDARY DAR RECURSION - 00007410 ** - DAR FAILURE WHILE 00007420 ** ATTEMPTING TO REINSTATE 00007430 ** FAILING REGION/PARTITION * 00007440 ** 3 TCBDARD BIT(1), /* - A DUMP HAS BEEN REQUESTED 00007450 ** FOR A WRITER OR SCHEDULER 00007460 ** ABEND AND THE USER HAS NOT 00007470 ** PROVIDED A SYSABEND DD CARD * 00007480 ** 3 TCBDARC BIT(1), /* - RECURSION PERMITTED IN 00007490 ** CLOSE - AFTER DAR PROCESSING 00007500 ** COMPLETED (PCP) * 00007510 ** 3 TCBDARO BIT(1), /* - SYSTEM ERROR TASK IS 00007520 ** FAILING. DAR DUMP SHOULD NOT 00007530 ** REQUEST ANY ERP PROCESSING * 00007540 ** 3 * BIT(1), /* RESERVED * 00007550 ** 3 * BIT(1), /* RESERVED * 00007560 ** 3 TCBEXSVC BIT(1), /* SVC DUMP IS EXECUTING FOR 00007570 ** THIS TASK * 00007580 ** 2 TCBSCNDY CHAR(3), /* SECONDARY NONDISPATCHABILITY 00007590 ** FLAGS - (IF ANY BIT IN THESE 00007600 ** BYTES IS ON, THEN SO IS THE 00007610 ** PRIMARY NDSP FLAG) * 00007620 ** 3 TCBNDSP1 CHAR(1), /* FIRST BYTE * 00007630 ** 4 TCBDARTN BIT(1), /* - TASK TEMPORARILY 00007640 ** NONDISPATCHABLE - (DAR) * 00007650 ** 4 TCBDARPN BIT(1), /* - TASK PERMANENTLY 00007660 ** NONDISPATCHABLE - (DAR) * 00007670 ** 4 TCBRSTND BIT(1), /* - TASK TEMPORARILY 00007680 ** NONDISPATCHABLE - (RMS/SER) * 00007690 ** 4 TCBRSPND BIT(1), /* - TASK PERMANENTLY 00007700 ** NONDISPATCHABLE - (RMS/SER) 00007710 ** (IF THIS FLAG IS ON THEN THE 00007720 ** PREVIOUS ONE MUST BE TOO) * 00007730 ** 4 * BIT(1), /* RESERVED * 00007740 ** 4 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 00007750 ** MUST BE DELAYED UNTIL TCAM 00007760 ** I/O APPENDAGE OR SVC ROUTINE 00007770 ** HAS COMPLETED EXECUTION 00007780 ** (TCAM IN MULTIPROCESSING 00007790 ** ENVIRONMENT) * 00007800 ** 4 * BIT(1), /* RESERVED * 00007810 ** 4 * BIT(1), /* RESERVED * 00007820 ** 3 TCBNDSP2 CHAR(1), /* SECOND BYTE * 00007830 ** 4 TCBABD BIT(1), /* - SET BY ABDUMP - (MFT WITH 00007840 ** SUBTASKING) * 00007850 ** 4 TCBSTPP BIT(1), /* - TASK NDSP BECAUSE STOPPED 00007860 ** BY SETTASK * 00007870 ** 4 TCBNDSVC BIT(1), /* - TASK NDSP BECAUSE SVC 00007880 ** DUMP IS EXECUTING FOR 00007890 ** ANOTHER TASK * 00007900 ** 4 TCBNDTS BIT(1), /* - TASK NDSP BECAUSE BEING 00007910 ** SWAPPED OUT * 00007920 ** 4 TCBIWAIT BIT(1), /* - TASK NDSP DUE TO INPUT 00007930 ** WAIT * 00007940 ** 4 TCBOWAIT BIT(1), /* - TASK NDSP DUE TO OUTPUT 00007950 ** WAIT * 00007960 ** 4 * BIT(1), /* RESERVED * 00007970 ** 4 TCBABE BIT(1), /* - ABEND ENTERED FOR THIS 00007980 ** TASK - WHILE SYSABEND DCB 00007990 ** OPEN FOR ANOTHER TASK (MFT 00008000 ** WITH SUBTASKING) * 00008010 ** 3 TCBNDSP3 CHAR(1), /* THIRD BYTE * 00008020 ** 4 TCBTERM BIT(1), /* TERMINATED (MFT WITH 00008030 ** SUBTASKING * 00008040 ** 4 TCBABTER BIT(1), /* - TO BE TERMINATED BY ABEND 00008050 ** - (MFT WITH SUBTASKING) * 00008060 ** 4 * BIT(1), /* RESERVED * 00008070 ** 4 * BIT(1), /* RESERVED * 00008080 ** 4 * BIT(1), /* RESERVED * 00008090 ** 4 * BIT(1), /* RESERVED * 00008100 ** 4 * BIT(1), /* RESERVED * 00008110 ** 4 * BIT(1), /* RESERVED * 00008120 ** 2 * FIXED(31), /* RESERVED * 00008130 ** 2 TCBJSCB PTR(31), /* ADDR OF JOB STEP CONTROL 00008140 ** BLOCK * 00008150 ** 3 * CHAR(1), /* RESERVED * 00008160 ** 3 TCBJSCBB PTR(24) BDY(BYTE); 00008170 ** /* ADDR OF JOB STEP CONTROL 00008180 ** BLOCK * 00008190 ** 00008200 ** /* END OF TCB * 00008210 * /*******************************************************************/ 00008220 * /* */ 00008230 * /*NAME ***** JOB/STEP CONTROL BLOCK ***** */ 00008240 * /* */ 00008250 * /*FUNCTION COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS */ 00008260 * /* */ 00008270 * /*NOTE IN ADDITION TO THE MANDITORY USE OF THIS MACRO FOR */ 00008280 * /* REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH */ 00008290 * /* ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE */ 00008300 * /* THE GETJSCB AND FREEJSCB MACROS. */ 00008310 * /* */ 00008320 * /*******************************************************************/ 00008330 * 00008340 * DCL 1 IEZJSCB BASED (TCBJSCB), /* JOB STEP CONTROL BLOCK */ 00008350 * 00008360 * 2 * CHAR (240), /* ALLOWS ADDRESSIBILITY 00008370 * FROM TCBJSCB */ 00008380 * 00008390 * /*-----------------------------------------------------------------*/ 00008400 * /* */ 00008410 * /*SECTION 1 DATA ITEMS USED IN PCP, MFT, AND MVT */ 00008420 * /* */ 00008430 * /*-----------------------------------------------------------------*/ 00008440 * 00008450 * 2 JSCBSEC1, /* JSCB SECTION 1 */ 00008460 * 3 JSCBTTTR CHAR (3), /* JOB Q ADDRESS (TTR) OF TIO 00008470 * EXTENTION */ 00008480 * 00008490 * 3 JSCBSWT1 CHAR (1), /* STATUS SWITCHES */ 00008500 * 00008510 * 4 JSCBPASS BIT (1), /* WHEN THIS BIT IS SET TO ONE 00008520 * AND A CORRESPONDING BIT IN THE 00008530 * DCB IS SET TO ONE THE OPEN WIL 00008540 * BYPASS PASSWORD PROTECTION FOR 00008550 * THE DATA SET BEING OPENED */ 00008560 * 00008570 * 4 * BIT (7), /* RESERVED */ 00008580 * 00008590 * 3 JSCBQMPI PTR (31), /* ADDRESS OF THE QMPA FOR THE 00008600 * JOB'S INPUT QUEUE TABLE ENTRY * 00008610 * 00008620 * 3 JSCBQMPO PTR (31), /* ADDRESS OF THE QMPA FOR THE 00008630 * JOB'S OUTPUT MSGCLASS QUEUE 00008640 * ENTRY */ 00008650 * 00008660 * 3 JSCBWTP PTR (31), /* ADDRESS OF WRITE-TO- 00008670 * PROGRAMMER WORK AREA USED FOR 00008680 * WRITING MESSAGES TO JOB'S 00008690 * SYSOUT LISTING */ 00008700 * 00008710 * 2 JSCBEND1; /* END OF SECTION 1 */ 00008720 * 00008730 * /*-----------------------------------------------------------------*/ 00008740 * /* */ 00008750 * /*SECTION 2 DATA ITEMS USED IN BOTH MFT AND MVT */ 00008760 * /* */ 00008770 * /*-----------------------------------------------------------------*/ 00008780 * 00008790 * DCL 1 JSCBSEC2 BASED (ADDR (JSCBEND1)), /* JSCB SECTION 2 */ 00008800 * 00008810 * 2 JSCBCSCB PTR (31), /* ADDRESS OF CSCB USED FOR 00008820 * PROCESSING COMMANDS RECEIVED 00008830 * FROM JOB */ 00008840 * 2 JSCBJCT CHAR(4), 00008850 * 3 JSCBRESV BIT(8), /* RESERVED */ 00008860 * 3 JSCBJCTA CHAR(3), /* TTR OF JCT */ 00008870 * 00008880 * 2 JSCBEND2; /* END OF SECTION 2 */ 00008890 * 00008900 * /*-----------------------------------------------------------------*/ 00008910 * /* */ 00008920 * /*SECTION 3 DATA ITEMS USED ONLY IN PCP */ 00008930 * /* */ 00008940 * /*-----------------------------------------------------------------*/ 00008950 * 00008960 * DCL 1 JSCBSEC3 BASED (ADDR (JSCBSEC2)), /* JSCB SECTION 3 */ 00008970 * 00008980 * /* CURRENTLY NO PCP-ONLY DATA ITEMS EXIST */ 00008990 * 00009000 * 2 JSCBEND3; /* END OF SECTION 3 */ 00009010 * 00009020 * /*-----------------------------------------------------------------*/ 00009030 * /* */ 00009040 * /*SECTION 4 DATA ITEMS USED ONLY IN MFT */ 00009050 * /* */ 00009060 * /*-----------------------------------------------------------------*/ 00009070 * 00009080 * DCL 1 JSCBSEC4 BASED (ADDR (JSCBEND2)), /* JSCB SECTION 4 */ 00009090 * 00009100 * /* CURRENTLY NO MFT-ONLY DATA ITEMS EXIST */ 00009110 * 00009120 * 2 JSCBEND4; /* END OF SECTION 4 */ 00009130 * 00009140 * /*-----------------------------------------------------------------*/ 00009150 * /* */ 00009160 * /*SECTION 5 DATA ITEMS USED ONLY IN MVT */ 00009170 * /* */ 00009180 * /*-----------------------------------------------------------------*/ 00009190 * 00009200 * DCL 1 JSCBSEC5 BASED (ADDR (JSCBEND2)), /* JSCB SECTION 5 */ 00009210 * 00009220 * 2 JSCBPSCB PTR (31), /* ADDRESS OF TSO PROTECTED 00009230 * STEP CONTROL BLOCK */ 00009240 * 00009250 * 2 JSCBTJID FIXED (15), /* TSO TERMINAL JOB IDENTIFIER 00009260 * */ 00009270 * 00009280 * 2 * CHAR (2), /* RESERVED */ 00009290 * 00009300 * 2 JSCBIECB FIXED (31), /* ECB USED FOR COMMUNICATION 00009310 * BETWEEN DYNAMIC ALLOCATION AND 00009320 * THE INITIATOR IN ORDER TO 00009330 * PERFORM DATA SET INTEGRITY */ 00009340 * 00009350 * 2 JSCBEND5; /* END OF SECTION 5 */ 00009360 * 00009370 * /* MACRO DEFINITIONS OF JSCBDISP, JSCBMFTL, AND JSCBMVTL */ 00009380 * 00009390 * JSCBDISP: GEN (EQU 240); 00009400 JSCBDISP EQU 240 00009410 DS 0H 00009420 * JSCBMFTL: GEN (EQU 24); 00009430 JSCBMFTL EQU 24 00009440 DS 0H 00009450 * JSCBMVTL: GEN (EQU 36); 00009460 JSCBMVTL EQU 36 00009470 DS 0H 00009480 * 00009490 * /* END OF JSCB */ 00009500 ** DECLARE 00009510 ** 1 DSE BASED(DSEPTR), 00009520 ** /* *************************************************************** * 00009530 ** 00009540 ** 00009550 ** /* IS USED TO MAINTAIN DATA SET INFORMATION, SUCH AS THE DDNAME-- * 00009560 ** /* ME RELATIONSHIP. IT IS A SERIES OF CHAINED ELEMENTS EACH ONE * 00009570 ** /* ABLE IN SIZE DEPENDENT ON THE INFORMATION PRESENT. * 00009580 ** 00009590 ** 00009600 ** /* *************************************************************** * 00009610 ** 2 DSEFORWD PTR(31), /* ADDRESS OF NEXT DSE BLK(ZERO 00009620 ** IN LAST DSE) * 00009630 ** 2 DSEBCKWD PTR(31), /* ADDRESS OF PREV. DSE BLK 00009640 ** (ZERO IN FIRST DSE) * 00009650 ** 2 DSEBLKSZ FIXED(15), /* TOTAL NO. OF BYTES IN THIS 00009660 ** DSE BLK INCLUDES THIS FIELD 00009670 ** AND TWO PRIOR FIELDS * 00009680 ** 2 DSESTAT CHAR(1), /* THE ALLOCATED STATUS OF 00009690 ** THE DATA SET * 00009700 ** 3 * BIT(1), /* RESERVED * 00009710 ** 3 * BIT(1), /* RESERVED * 00009720 ** 3 * BIT(1), /* RESERVED * 00009730 ** 3 * BIT(1), /* RESERVED * 00009740 ** 3 DSESHR BIT(1), /* SHR * 00009750 ** 3 DSENEW BIT(1), /* NEW * 00009760 ** 3 DSEMOD BIT(1), /* MOD * 00009770 ** 3 DSEOLD BIT(1), /* OLD * 00009780 ** 2 DSECNTRL CHAR(1), /* STATUS OF DATA SETS WHEN 00009790 ** BITS ARE ON AS FOLLOWS * 00009800 ** 3 DSEDYN BIT(1), /* DATA SET ALLOCATED 00009810 ** DYNAMICALLY * 00009820 ** 3 DSENUSED BIT(1), /* DATA SET NOT IN USE * 00009830 ** 3 DSEMEM BIT(1), /* MEMBER FIELD IS PRESENT IN 00009840 ** THIS DSE * 00009850 ** 3 DSEDTIOT BIT(1), /* TIOT ENTRY IS DYNAM * 00009860 ** 3 DSECON BIT(1), /* DATA SET CONCATENATED 00009870 ** DYNAMICALLY * 00009880 ** 3 * BIT(1), /* RESERVED * 00009890 ** 3 DSEPERM BIT(1), /* DATA SET IS PERMAMENTLY 00009900 ** ALLOCATED EQU * 00009910 ** 3 * BIT(1), /* RESERVED * 00009920 ** 2 DSEDDNAM CHAR(8), /* DDNAME AS IT APPEARS IN TIOT * 00009930 ** 2 DSETCBAD PTR(31), /* ADD. OF TCB FOR CP WHICH 00009940 ** SECURED DYNAMIC ALLOC. * 00009950 ** 2 DSETTRPW FIXED(31), /* RELATIVE TTR OF PASSWD FOR 00009960 ** THIS FIELD IS ZERO. * 00009970 ** 2 DSENDISP CHAR(1), /* NORMAL DISPOSITION IND. BY 00009980 ** BIT SETTINGS: EQU EQU EQU 00009990 ** EQU * 00010000 ** 3 * BIT(1), /* RESERVED * 00010010 ** 3 * BIT(1), /* RESERVED * 00010020 ** 3 * BIT(1), /* RESERVED * 00010030 ** 3 * BIT(1), /* RESERVED * 00010040 ** 3 DSEKEP BIT(1), /* KEEP * 00010050 ** 3 DSEDEL BIT(1), /* DELETE * 00010060 ** 3 DSECAT BIT(1), /* CATLG * 00010070 ** 3 DSEUCAT BIT(1), /* UNCATLG * 00010080 ** 2 DSEADISP CHAR(1), /* ABNORMAL DISPOSITION IS IND. 00010090 ** BY SETTING BITS IN THIS 00010100 ** FIELD THE SAME AS IN 00010110 ** DSENDISP * 00010120 ** 3 * BIT(1), /* RESERVED */ 00010130 ** 3 * BIT(1), /* RESERVED */ 00010140 ** 3 * BIT(1), /* RESERVED */ 00010150 ** 3 * BIT(1), /* RESERVED */ 00010160 ** 3 DSEAKEP BIT(1), /* KEEP */ 00010170 ** 3 DSEADEL BIT(1), /* DELETE */ 00010180 ** 3 DSEACAT BIT(1), /* CATALOG */ 00010190 ** 3 DSEAUCAT BIT(1), /* UNCATALOG */ 00010200 ** 2 DSEDSORG CHAR(1), /* ORGANIZATION IND. BY 00010210 ** FOLLOWING BITS: * 00010220 ** 3 DSEIS BIT(1), /* INDEXED SEQUENTIAL * 00010230 ** 3 DSEPS BIT(1), /* PHYSICAL SEQUENTIAL * 00010240 ** 3 DSEDA BIT(1), /* DIRECT ORGANIZATION EQU EQU 00010250 ** EQU * 00010260 ** 3 * BIT(1), /* RESERVED * 00010270 ** 3 * BIT(1), /* RESERVED * 00010280 ** 3 * BIT(1), /* RESERVED * 00010290 ** 3 DSEPO BIT(1), /* PARTITIONED ORGANIZATION * 00010300 ** 3 DSEU BIT(1), /* UNMOVABLE * 00010310 ** 2 DSEDSLNG PTR(8), /* LENGTH OF DATA SET NAME IN 00010320 ** BYTES (1-44) * 00010330 ** 2 DSEDSNAM CHAR(44), /* DATA SET NAME DSE DESCRIBES * 00010340 ** 1 DSEMEMBR CHAR(8) BASED(DSEMPTR); /* FIELD CAN ONLY BE PRESENT 00010350 ** WHEN DATA SET IS OF A 00010360 ** PARTITIONED ORGANIZATION. IT 00010370 ** IS THE MEMBER OF THE PDS 00010380 ** CURRENTLY ALLOCATEDAND IS 00010390 ** PRESENT WHEN BIT TWO OF 00010400 ** CONTROL BYTE IS SET * 00010410 ** 00010420 ** DECLARE 00010430 ** 1 TJB BASED(TJBPTR), 00010440 ** 2 TJBTSB PTR(31), /* ADDR OF TSB FOR THIS 00010450 ** JOB,0-STARTED BY OPERATOR * 00010460 ** 2 TJBATTN CHAR(1), /* NUMBER OF UNPROCESSED ATTNS 00010470 ** FOR THIS JOB * 00010480 ** 2 TJBSTAX CHAR(1), /* NUMBER OF STAX EXITS YET 00010490 ** UNSCHEDULED * 00010500 ** 2 TJBSTAT CHAR(1), /* STATUS FLAGS * 00010510 ** 3 TJBNJB BIT(1), /* NO JOB,THIS TJB IS CURRENTLY 00010520 ** UNUSED * 00010530 ** 3 TJBINCOR BIT(1), /* USER IN CORE * 00010540 ** 3 TJBLOGON BIT(1), /* LOGON START,SET BY TIOC AT 00010550 ** DIAL-UP,TSC RESET * 00010560 ** 3 TJBIWAIT BIT(1), /* INPUT WAIT,TERMINAL JOB IS 00010570 ** IN INPUT WAIT * 00010580 ** 3 TJBOWAIT BIT(1), /* OUTPUT WAIT,TERMINAL JOB IS 00010590 ** IN OUTPUT WAIT * 00010600 ** 3 TJBSILF BIT(1), /* SYSTEM INITIATED LOGOFF * 00010610 ** 3 TJBDISC BIT(1), /* DISCONNECT SET TO REQUEST 00010620 ** TIOC TO DISCON LINE * 00010630 ** 3 TJBSILF2 BIT(1), /* SYSTEM INITIATED LOGOFF * 00010640 ** 2 TJBSTAT2 CHAR(1), /* STATUS FLAGS * 00010650 ** 3 TJBHUNG BIT(1), /* HUNG UP * 00010660 ** 3 TJBHOLD BIT(1), /* USER IS IN OWAIT DUE TO HOLD 00010670 ** OPTIONS * 00010680 ** 3 TJBOCAB BIT(1), /* TSO FAILURE RESULTING IN 00010690 ** OUT-OF-CORE ABEND * 00010700 ** 3 TJBRNAV BIT(1), /* USER CANNOT BE LOGGED ON 00010710 ** BECAUSE MACHINE CHECK IN 00010720 ** REGION OR NO REGION LARGE 00010730 ** ENOUGH BITS * 00010740 ** 3 TJBSURSV BIT(1), /* ON NEXT SWAP IN,DO NOT MARK 00010750 ** SWAP UNIT AVAILABLE FOR USE * 00010760 ** 3 TJBQUIS BIT(1), /* QUIESCE STARTED FOR USER * 00010770 ** 3 TJBUSERR BIT(1), /* USER READY TO RUN * 00010780 ** 3 TJBDEAD BIT(1), /* INDIACTE ABEND RECURSION 00010790 ** TO IKJEAT07 * 00010800 ** 2 TJBEXTNT PTR(31), /* POINTER TO TJB IN SWAPPED 00010810 ** OUT JOB IMAGE * 00010820 ** 2 TJBRCB PTR(31), /* POINTER TO RCB FOR THIS 00010830 ** REGION * 00010840 ** 2 TJBUMSM PTR(31), /* POINTER TO UMSM * 00010850 ** 2 TJBSDCB PTR(31), /* PTR TO SWAP DCB FOR THIS USR * 00010860 ** 2 TJBUTTMQ FIXED(15), /* OFFSET IN TT MAP OF TT MAP Q 00010870 * FOR THIS USER * 00010880 ** 3 TJBUTTMP BIT(1), /* IF ON INDICATES PARALLEL SWP * 00010890 ** 2 TJBRSTOR CHAR(1), /* RESTORE FLAGS, TESTED BY RCT 00010900 ** RESTORE * 00010910 ** 3 TJBOWP BIT(1), /* POST OUTPUT WAIT,SET BY 00010920 ** TIOC,ENDS AN OWAIT * 00010930 ** 3 TJBIWP BIT(1), /* POST INPUT WAIT,SET BY 00010940 ** TIOC,ENDS AN IWAIT EQU * 00010950 ** 3 * BIT(1), /* RESERVED * 00010960 ** 3 TJBLOGP BIT(1), /* POST LOGON,POST ECB WAITED 00010970 ** ON BY LOGON IMAGE * 00010980 ** 3 TJBLWAIT BIT(1), /* USER IN LONG WAIT,SWAP OUT 00010990 ** IF NOT MADE READY BY RESTORE 00011000 ** PROCESSING EQU * 00011010 ** 3 * BIT(1), /* RESERVED * 00011020 ** 3 TJBFAT BIT(1), /* AN ATTN EXIT IS REQ FOR THIS 00011030 ** USER * 00011040 ** 3 * BIT(1) , /* RESERVED * 00011050 ** 2 TJBUMSMN CHAR(1), /* NUMBER OF MAP ENTRIES IN 00011060 ** UMSM * 00011070 ** 2 TJBUSER CHAR(8), /* USERID OF THIS JOB 00011080 ** OWNER,PADDED RT WITH BLANKS * 00011090 ** 2 TJBIPPB FIXED(31), /* IPPB CHAIN OF ECB'S TO BE 00011100 ** POSTED BY RESTORE * 00011110 ** 2 TJBNEWID PTR(8), /* RGN ID INTO WHICH THIS USER 00011120 ** SHOULD BE LOGGED ON. 0 IF 00011130 ** SELECTED BY DRIVER * 00011140 ** 2 TJBFLUSL CHAR(1), /* STAX LEV OF LAST STAX ISSUED 00011150 ** WITH NOPURGE OPTION * 00011160 ** 2 TJBTJID FIXED(15), /* TERMINAL JOB ID * 00011170 ** 2 TJBMONI CHAR(1), /* MONITOR CMD INDICATING INFO 00011180 ** REQUESTED * 00011190 ** 3 TJBMDSN BIT(1), /* DSNAMES * 00011200 ** 3 TJBMJBN BIT(1), /* JOBNAMES * 00011210 ** 3 TJBMSES BIT(1), /* SESSION * 00011220 ** 3 TJBMSPA BIT(1), /* SPACE * 00011230 ** 3 TJBMSTA BIT(1), /* STATUS * 00011240 ** 3 TJBGETBF BIT(1), /* THIS BIT INDICATES TPUT SHOULD 00011250 ** ATTEMPT TO GET ADDITIONAL 00011260 ** BUFFERS FOR USER BEFORE GOING 00011270 ** INTO A WAIT STATE * 00011280 ** 3 * BIT(1), /* RESERVED * 00011290 ** 3 * BIT(1), /* RESERVED * 00011300 ** 2 * CHAR(1), /* RESERVED * 00011310 ** 2 TJBLINE CHAR(2); /* CONTAINS THE BINARY REP OF THE 00011320 ** UNIT ADR OF LINE BEING USED * 00011330 ** DECLARE 00011340 ** 1 TJBX BASED(TJBEXTNT), 00011350 ** 2 TJBXFST PTR(31), /* ADDR LOGON TCB WHICH IS 00011360 ** FIRST IN USER READY QUEUE * 00011370 ** 2 TJBXLAST PTR(31), /* ADDR LAST TCB IN USER READY 00011380 ** QUEUE * 00011390 ** 2 TJBXDSE PTR(31), /* ADDR OF DSE USED BY TSO'S 00011400 ** DYN ALLOC * 00011410 ** 2 TJBXSVRB PTR(31), /* ADDR FIRST SVRB PURGED FROM 00011420 ** TRANSIENT AREA QUEUE * 00011430 ** 2 TJBXRQE PTR(31), /* ADDR FIRST RQE PURGED FROM 00011440 ** ASYNCHRONOUS EXIT QUEUE A * 00011450 ** 2 TJBXIQE PTR(31), /* ADDR FIRST IQE PURGED FROM 00011460 ** ASYNCHRONOUS EXIT QUEUE J * 00011470 ** 2 TJBXTAXE FIXED(31), /* QUEUE OF TAXE'S USED TO 00011480 ** SCHEDULE ATTENTION EXITS * 00011490 ** 2 TJBXLECB FIXED(31), /* LOGON ECB POSTED BY RCT * 00011500 ** 2 TJBXPSWD CHAR(8), /* USERS LOGON PASSWORD-IF 00011510 ** BLANK-NOT REQUIRED * 00011520 ** 2 * FIXED(31), /* RESERVED * 00011530 ** 2 TJBXAIQE PTR(31), /* ADDR ATTN IQE CURRENTLY 00011540 ** BEING PROCESSED * 00011550 ** 2 TJBXQPL PTR(31), /* ADDR QUIECSE PARM LIST * 00011560 ** 2 TJBXNQPE FIXED(15), /* NUMBER ENTRIES IN QPL * 00011570 ** 2 TJBXNTCB FIXED(15), /* NUMBER TCBS ACTIVE IN USER 00011580 ** JOB STEP * 00011590 ** 2 TJBXLQPL FIXED(15), /* LENGTH QPL * 00011600 ** 2 TJBXHBFL CHAR(1), /* CUR VAL OF LAST HOLDBUF 00011610 ** LEVEL. USED BY STAX SVC 00011620 ** ROUTINE * 00011630 ** 2 * CHAR(1), /* RESERVED * 00011640 ** 2 TJBXACT FIXED(31), /* TTR OF ACT ON SYSJOBQE * 00011650 ** 2 TJBXAECB PTR(31), /* POINTER TO LOGON/LOGOFF ECB 00011660 ** UNTIL LOGON PROCESSING THEN 00011670 ** TO CSCB CANCEL ECB AFTER 00011680 ** CSCB IS CREATED * 00011690 ** 2 TJBXKEYA PTR(31); /* ADDRESS OF A STORAGE KEY SAVE 00011700 ** AREA USED BY RCT * 00011710 ** 00011720 ** DECLARE 00011730 ** 1 TSCVT BASED(CVTTSCVT), 00011740 ** 2 TSCVTTJB PTR(31), /* POINTER TO TJB TABLE * 00011750 ** 2 TSCVTRCB PTR(31), /* POINTER TO RCB TABLE * 00011760 ** 2 TSCVTRPT PTR(31), /* PTR TO REFERENCE POINTER 00011770 ** TABLE * 00011780 ** 2 TSCVTFLG CHAR(2), /* FLAGS TO INDICATE FUNCT 00011790 ** REQUESTED OF TSC * 00011800 ** 3 TSCSWPND BIT(1), /* SWAP ENDED * 00011810 ** 3 TSCSWPBG BIT(1), /* SWAP SHOULD BE STARTED * 00011820 ** 3 TSCLOGON BIT(1), /* A LOGON IS TO BE PROCESSED * 00011830 ** 3 TSCDISC BIT(1), /* A DISCONNECT IS TO BE 00011840 ** PROCESSED BITS * 00011850 ** 2 TSCVTFL1 CHAR(2), /* FLAGS TO INDICATE FUNCT 00011860 ** REQUESTED OF TSC * 00011870 ** 3 TSCSSTOP BIT(1), /* SYSTEM STOP REQUESTED AND 00011880 ** TSC IS STOPPING * 00011890 ** 3 TSCRSTOP BIT(1), /* REGION STOP REQUESTED * 00011900 ** 3 TSCASTOP BIT(1), /* ABEND-STOP TS FLG. SET BY 00011910 ** TSO/RMS IF TCAM MCH'SSET BY 00011920 ** TCAM STAE EXIT IF TCAM 00011930 ** ABENDS BITS * 00011940 ** 3 TSCLOGPR BIT(1), /* SET BY S02 WHEN NOT ENOUGH 00011950 ** SWAP SPACE ALLOCATED FOR LOGON 00011960 ** IMAGE PROCESSING * 00011970 ** 3 * BIT(1), /* RESERVED * 00011980 ** 3 * BIT(1), /* RESERVED * 00011990 ** 3 * BIT(1), /* RESERVED * 00012000 ** 3 * BIT(1), /* RESERVED * 00012010 ** 2 TSCVTSDC PTR(31), /* PTR TO 1ST DCB FOR SWAP DS * 00012020 ** 2 TSCVTCUS FIXED(15), /* CURR NO. OF USERS LOGGED ON 00012030 ** TSO * 00012040 ** 2 TSCVTLUS FIXED(15), /* CURRENT LIMIT NO. OF USERS 00012050 ** LOGGED ON TO TSO SET BY TSC * 00012060 ** 2 TSCVTNTJ FIXED(15), /* NO.TJB-TSB'S ALLOC BY TSO 00012070 ** INITIALLY * 00012080 ** 2 TSCVTSZU FIXED(15), /* SIZE OF TJB * 00012090 ** 2 TSCVTCTR FIXED(15), /* NO. OF RCB'S ALLOC BY TSO 00012100 ** INITIALLY * 00012110 ** 2 TSCVTMUS FIXED(15), /* MAX NUMBER OF USERS LOGGED 00012120 ** ON TO TSO SET BY START AND 00012130 ** MODIFY COMMANDS (TSC) * 00012140 ** 2 TSCVTSAV PTR(31), /* PTR TO SAV AREA FOR 00012150 ** TSC,TSIP&TS DISP * 00012160 ** 2 TSCVTECB PTR(31), /* PTR TO TSECBTAB CTL BLK OF 00012170 ** ECB'S * 00012180 ** 2 TSCVTSIA PTR(31), /* PTR TO TSIA * 00012190 ** 2 TSCVTICB PTR(31), /* PTR TO TSICB * 00012200 ** 2 TSCVTI01 PTR(31), /* ADDRESS OF ENTRY POINT 00012210 ** IKJEAI01 TSIP BR ENTRY * 00012220 ** 2 TSCVTTQE PTR(31), /* PTR TO TQE FOR TSO'S TIME 00012230 ** SLICING * 00012240 ** 2 TSCVTI02 PTR(31), /* ADDRESS OF ENTRY POINT 00012250 ** IKJEAI02 IN TS DISPATCH * 00012260 ** 2 TSCVTI03 PTR(31), /* ADDRESS OF ENTRY POINT 00012270 ** IKJEAI03 IN TS DISPATCH * 00012280 ** 2 TSCVTD02 PTR(31), /* ADDRESS OF ENTRY POINT 00012290 ** IKJEAD02 IN TS DRIVER * 00012300 ** 2 TSCVTLCQ PTR(31), /* ADDR OF TOP ELEM ON LOGON 00012310 ** COMM. QUE * 00012320 ** 2 TSCVTTRB PTR(31), /* ADDR OF TRACE CTL BLK CHAIN * 00012330 ** 2 TSCVTLPA PTR(31), /* ADDR OF 1ST CDE IN TS LINK 00012340 ** PACK AREA * 00012350 ** 2 TSCVTSLF FIXED(31), /* SYSTEM INIATED LOGOFF * 00012360 ** 2 TSCVTTSC PTR(31), /* ADDR OF THE * 00012370 ** 2 TSCVTSPL PTR(31), /* ADDRESS OF START PARAMETER 00012380 ** LIST * 00012390 ** 2 TSCVTRSZ FIXED(15), /* MIN REGION SIZE FOR LOGON * 00012400 ** 2 * CHAR(2), /* RESERVED * 00012410 ** 2 TSCVTSVT CHAR(4), /* SVCTBL ENTRY FOR TSIP PRIOR 00012420 ** TO START TS * 00012430 ** 2 TSCVTSVQ CHAR(4), /* SVCTBL ENTRY FOR QTIP PRIOR 00012440 ** TO START TS * 00012450 ** 2 TSCVTABN PTR(31), /* ADDR OF OUT-OF-CORE ABEND 00012460 ** RTN(IKJEAT07) * 00012470 ** 2 TSCVTD03 PTR(31), /* ADDR OF EP IKJEAD03 IN TS 00012480 ** DRIVER * 00012490 ** 2 TSCVTFLM PTR(31), /* ADDR OF EP - IKJEFLM * 00012500 ** 2 TSCVTQTP PTR(31), /* ADDR OF EP OF QTIP SVC - 00012510 ** IKJGGQT1 * 00012520 ** 2 TSCVTT08 PTR(31), /* ADDR OF EP - IKJEAT08 * 00012530 ** 2 TSCVTDMP PTR(31), /* ADDR OF TSO DUMP CONTROL 00012540 ** BLOCK - IKJTSDMP * 00012550 ** 2 TSCVTT06 PTR(31), /* ADDR OF TCB FOR IKJEAT06 * 00012560 ** 2 TSCVTLS3 PTR(31); /* ADDR OF LOGON OUT OF CORE 00012570 ** ABEND RTN * 00012580 ** 00012590 * DCL PARMPTR PTR(31) REG(3); /* ADDRESS OF DAWT */ 00012600 * /****************************************************************** 00012610 * /* * 00012620 * /* THE FOLLOWING DECLARATION DESCRIBES THE DYNAMIC ALLOCATION * 00012630 * /* WORK TABLE (DAWT). IT IS BUILT BY CONTROL, PASSED TO THE * 00012640 * /* ROUTINES CALLED, AND FREED NORMALLY BY DSE UPDATE OR ABNORMALLY* 00012650 * /* BY THE ROUTINE MAKING AN ERROR EXIT TO THE USER * 00012660 * /* * 00012670 * /****************************************************************** 00012680 * DECLARE 1 DAWT BASED (PARMPTR), 00012690 * 4 DAWTDSE, 00012700 * 8 DAWTXCTL, 00012710 * 12 XCTLAD PTR(31), /* PTR TO XCTL ENTRY POINT * 00012720 * 12 XCTLDCB FIXED(31), /* PTR TO DCB * 00012730 * 12 XCTLEP CHAR(8), /* CONTAINS THE ENTRY POINT NM* 00012740 * 8 PPARMP PTR(31), /* PTS TO SVC PARMAMETER LIST * 00012750 * 8 LNGH FIXED(15), /* CONTAINS THE SIZE OF DAWT * 00012760 * 8 * CHAR(1), /* RESERVED * 00012770 * 8 TIOTNO CHAR(1), /* ENTRY NO. OF TIOT ENTRY * 00012780 * 8 TIOTP PTR(31), /* POINTER TO SUBJECT TIOT NTY* 00012790 * 8 RTCODE FIXED(31), /* RETURN CODE TO USER * 00012800 * 4 DAWTQMPA CHAR(36), /* QUEUE MANAGER PARAMETER AREA 00012810 * 4 DAWTEIOB CHAR(84), /* ECB/IOB FOR Q-MNGR S20201* 00012820 * 4 DAWA1 CHAR(176), /* DAWT WORK AREA ONE * 00012830 * 4 DAWA2 CHAR(176), /* DAWT WORK AREA TWO * 00012840 * 4 DAWTVARY CHAR(48); /* USED LOCALLY BY EACH ROUTIN* 00012850 * /* * 00012860 * /**************************************************************/ 00012870 * /********************* DECLARE DAWTVARY ********************/ 00012880 * /****************** FOR DSE SEARCH SUBROUTINE *****************/ 00012890 * /**************************************************************/ 00012900 * 00012910 * DCL 1 * BASED (ADDR(DAWTVARY)), /* DEFINE DAWTVARY */ 00012920 * 4 DD1ADD PTR(31), /* ADDRESS OF DDNAME1 OR */ 00012930 * /* TCB ADDRESS IF BIT 3 OF */ 00012940 * /* VFLAGS IS SET */ 00012950 * 4 DD2ADD PTR(31), /* ADDRESS OF DDNAME2 */ 00012960 * 4 DAW1P PTR(31), /* WORK AREA OR JFCB ADDRESS*/ 00012970 * 4 DSNADD PTR(31), /* DSNAME, DSLENGTH BUFFER */ 00012980 * /* ADDRESS */ 00012990 * 4 ADDNAME1 PTR(31), /* ADDRESS OF DSE CONTAINING*/ 00013000 * /* DDNAME1 OR DSNAME */ 00013010 * 4 ADDNAME2 PTR(31), /* ADDRESS OF DSE CONTAINING*/ 00013020 * /* DDNAME2 */ 00013030 * 4 AFDSE PTR(31), /* ADDRESS OF FIRST DSE */ 00013040 * 4 ANDSE PTR(31), /* ADDRESS OF NEW DSE (FOR */ 00013050 * /* DATASET ONLY) */ 00013060 * 4 ADSNDSE PTR(31), /* ADDRESS OF NEXT DSE ON */ 00013070 * /* CHAIN (AFTER SEARCH) */ 00013080 * 4 * , /* NOT USED BY DSE UPDATE */ 00013090 * 4 * , /* NOT USED BY DSE UPDATE */ 00013100 * 4 * CHAR(4), /* VFLAGS AND CONCOUNT */ 00013110 * 8 VFLAGS, /* VFLAGS */ 00013120 * 12 DDNAME1 BIT(1), /* DDNAME1 FOUND */ 00013130 * 12 DDNAME2 BIT(1), /* DDNAME2 FOUND */ 00013140 * 12 DSNAM BIT(1), /* DSNAME FOUND */ 00013150 * 12 SERCHTCB BIT(1), /* SEARCH ON TCB */ 00013160 * 12 CONCTGRP BIT(1), /* INDICATES THAT A M2055*/ 00013170 * /* CONCAT'D GROUP HAS M2055*/ 00013180 * /* BEEN MARKED IN USE M2055*/ 00013190 * 12 * BIT(3), /* NOT USED BITS M2055*/ 00013200 * 8 CONCOUNT CHAR(1), /* NUMBER OF DD'S TO BE */ 00013210 * /* CONCATENATED */ 00013220 * 8 * CHAR(2); /* NOT USED */ 00013230 * 00013240 * /**************************************************************/ 00013250 * /****** DECLARE DAWTVARY FOR THE DSECHAIN SUBROUTINE ******/ 00013260 * /**************************************************************/ 00013270 * 00013280 * DCL 1 * BASED (ADDR(DAWTVARY)), /* DAWTVARY FOR DSECHAIN */ 00013290 * 4 OLDDSE PTR(31), /* ADDRESS OF DSE TO CHANGE */ 00013300 * 4 NEWDSE PTR(31), /* ADDRESS OF DSE TO REPLACE*/ 00013310 * /* OLDDSE */ 00013320 * 4 * , /* NOT USED */ 00013330 * 4 ADDINIT PTR(31), /* ADDRESS OF FIRST DSE */ 00013340 * 4 LASTDSE PTR(31), /* ADDRESS OF LAST DSE */ 00013350 * 4 * CHAR(24), /* NOT USED */ 00013360 * 4 * , /* VFLAGS AND UNUSED */ 00013370 * 8 *, 00013380 * 12 * BIT(5), 00013390 * 12 ONEBLK BIT(1), /* ONLY ONE DSE IN CHAIN */ 00013400 * 12 DSEFRONT BIT(1), /* CHAIN NEW DSE IN FRONT */ 00013410 * 12 DSEBACK BIT(1); /* CHAIN NEW DSE IN BACK */ 00013420 ** 00013430 ** /* JOB FILE CONTROL BLOCK * 00013440 ** 00013450 ** /* RELEASE 20.2, 3/29/71, LEVEL=2 * 00013460 ** 00013470 ** DECLARE 00013480 ** 1 INFMJFCB BASED(DAW1P), 00013490 ** 5 JFCBDSNM CHAR(44), /* -DATA SET NAME * 00013500 ** 6 JFCBQNAM CHAR(8), /* -NAME OF THE DESTINATION QUEUE T 00013510 ** BE ASSIGNED TO THIS DATA SET * 00013520 ** 5 JFCBELNM CHAR(8), /* -ELEMENT NAME OR GENERATION 00013530 ** NUMBER OR TYPE OF AREA FOR AN 00013540 ** INDEXED SEQUENTIAL DATA SET 00013550 ** ONLY * 00013560 ** 5 JFCBTSDM BIT(8), /* -JOB MANAGEMENT/DATA MANAGEMENT 00013570 ** INTERFACE * 00013580 ** 6 JFCCAT BIT(1), /* -CATALOGED DATA SET * 00013590 ** 6 JFCVSL BIT(1), /* -VOLUME SERIAL LIST ALTERED * 00013600 ** 6 JFCSDS BIT(1), /* -SYSIN OR SYSOUT DATA SET * 00013610 ** 6 JFCTTR BIT(1), /* -USE JFCBOTTR INSTEAD OF 00013620 ** DS1LSTAR FIELD TO REPOSITION 00013630 ** DATA SET IF AUTOMATIC STEP 00013640 ** RESTART OCCURS * 00013650 ** 6 JFCNWRIT BIT(1), /* -DO NOT WRITE BACK THE JFCB 00013660 ** DURING OPEN PROCESSING * 00013670 ** 6 JFCNDSCB BIT(1), /* -DO NOT MERGE DSCB OR LABEL 00013680 ** FIELDS INTO THIS JFCB * 00013690 ** 6 JFCNDCB BIT(1), /* -DO NOT MERGE DCB FIELDS INTO 00013700 ** THIS JFCB * 00013710 ** 6 JFCPAT BIT(1), /* -THE PATTERNING DSCB IS COMPLTE* 00013720 ** 5 JFCBSYSC CHAR(13), /* -SYSTEM CODE * 00013730 ** 10 * CHAR(3), /* RESERVED * 00013740 ** 10 JFCFCBID CHAR(4), /* -FORMS CONTROL BUFFER ID * 00013750 ** 10 * CHAR(6), /* RESERVED * 00013760 ** 5 JFCBLTYP BIT(8), /* -LABEL TYPE * 00013770 ** 6 * BIT(1), /* -RESERVED * 00013780 ** 6 JFCBAL BIT(1), /* -USASI LABELS (AL OR AUL) * 00013790 ** 6 * BIT(1), /* RESERVED * 00013800 ** 6 JFCBLP BIT(1), /* -BYPASS LABEL PROCESSING * 00013810 ** 6 JFCSUL BIT(1), /* -USER LABEL * 00013820 ** 6 JFCNSL BIT(1), /* -NONSTANDARD LABEL * 00013830 ** 6 JFCSL BIT(1), /* -STANDARD LABEL * 00013840 ** 6 JFCNL BIT(1), /* -NO LABEL * 00013850 ** 5 JFCBOTTR CHAR(3), /* -DASD MOD DATA SET - IF AUTOMATI 00013860 ** STEP RESTART WAS REQUESTED TTR 00013870 ** OF EOD INDICATOR EXISTING WHEN 00013880 ** DATA SET WAS FIRST OPENED 00013890 ** DURING ORIGINAL EXECUTION * 00013900 ** 10 JFCBUFOF PTR(8), /* BUFFER OFFSET * 00013910 ** 11 JFCBFOFL BIT(1), /* USASI/USASCII - BLOCK PREFIX IS 00013920 ** 4 BYTES AND CONTAINS BLOCK 00013930 ** LENGTH IN UNPACKED DECIMAL. 00013940 ** SPECIFIED BY BUFOFF=L. * 00013950 ** 10 JFCBFLSQ FIXED(15) BDY(BYTE), /* -2ND & 3RD BYTES OF 00013960 ** JFCBOTTR/FILE 00013970 ** SEQUENCE NUMBER * 00013980 ** 5 JFCBVLSQ FIXED(15), /* -VOLUME SEQUENCE NUMBER * 00013990 ** 5 JFCBMASK CHAR(8), /* -DATA MANAGEMENT TASK * 00014000 ** 10 JFCBOPS1 CHAR(5), /* -OPEN ROUTINE INTERNAL SWITCHES* 00014010 ** 10 JFCBFLG1 BIT(8), /* -FLAG BYTE * 00014020 ** 11 JFCSTAND BIT(1), /* -VOLUME LABEL PROCESSING STNDRD* 00014030 ** 11 JFCSLCRE BIT(1), /* -CREATION OF A STANDARD LABEL 00014040 ** IS NECESSARY * 00014050 ** 11 JFCSLDES BIT(1), /* -DESTRUCTION OF A STANDARD LABEL 00014060 ** IS NECESSARY * 00014070 ** 11 JFCDUAL BIT(1), /* -DUAL DENSITY CHECK DETECTED * 00014080 ** 11 JFCOPEN BIT(4), /* -OPEN ROUTINE INTERNAL SWITCHES* 00014090 ** 10 JFCBFLG2 BIT(8), /* -FLAG BYTE OF OPEN SWITCHES * 00014100 ** 11 JFCINOP BIT(1), /* -TREAT THE INOUT OPTION OF OPEN 00014110 ** AS INPUT * 00014120 ** 11 JFCOUTOP BIT(1), /* -TREAT THE OUTIN OPTION OF OPEN 00014130 ** AS OUTPUT * 00014140 ** 11 JFCDEFER BIT(1), /* -DATA SET RELATED TO THE JFCB 00014150 ** IS BEING PROCESSED SEQUENTIALY 00014160 ** AT THE CHECKPOINT, ON A DIFF- 00014170 ** ERENT VOLUME THAN WHEN 00014180 ** PROCESSING BEGAN -WHEN RESTART 00014190 ** OCCURS, CAUSE DEFERRED VOLUME 00014200 ** MOUNTING * 00014210 ** 11 JFCMODNW BIT(1), /* -DISPOSITION CHANGED FROM MOD TO 00014220 ** NEWDISPOSITION (IN JFCBIND2) 00014230 ** WILL BE RESTORED TO MOD AFTER 00014240 ** OPEN * 00014250 ** 11 * BIT(2), /* -RESERVED * 00014260 ** 11 JFCBBUFF BIT(1), /* -INDICATOR TO OPEN THAT A 00014270 ** NON-ZERO VALUE IN JFCBOTTR IS 00014280 ** NOT TO PREVENT THE NORMAL 00014290 ** STORING BY OPEN OF A TTR IN 00014300 ** JFCBOTTR * 00014310 ** 11 * BIT(1), /* -RESERVED * 00014320 ** 10 JFCBOPS2 BIT(8), /* -OPEN ROUTINE INTERNAL SWITCHES* 00014330 ** 5 JFCBCRDT CHAR(3), /* -DATA SET CREATION DATE (YDD) * 00014340 ** 5 JFCBXPDT CHAR(3), /* -DATA SET EXPIRATION DATE (YDD)* 00014350 ** 5 JFCBIND1 BIT(8), /* -INDICATOR BYTE 1 * 00014360 ** 00014370 ** 6 JFCRLSE BIT(2), /* -RELEASE EXTERNAL STORAGE * 00014380 ** 6 JFCLOC BIT(2), /* -DATA SET HAS BEEN LOCATED * 00014390 ** 6 JFCADDED BIT(2), /* -NEW VOLUME HAS BEEN ADDED TO 00014400 ** DATA SET * 00014410 ** 6 JFCGDG BIT(1), /* -DATA SET IS MEMBER OF A GENERA- 00014420 ** TION DATA GROUP * 00014430 ** 6 JFCPDS BIT(1), /* -DATA SET IS MEMBER OF A PAR- 00014440 ** TIONED DATA SET * 00014450 ** 5 JFCBIND2 BIT(8), /* -INDICATOR BYTE 2 * 00014460 ** 00014470 ** 6 JFCDISP BIT(2), /* -BIT PATTERN FOR NEW,MOD,& OLD * 00014480 ** 00014490 ** 6 JFCSECUR BIT(2), /* -DATA SET SECURITY * 00014500 ** 6 JFCSHARE BIT(1), /* -SHARED DATA SET * 00014510 ** 6 JFCENT BIT(1), /* -DATA SET IS GENERATION OF A GDG 00014520 ** -PROCESSING OF ENTIRE GDG WAS 00014530 ** SPECIFIED- IF AUTOMATIC RESTRT 00014540 ** AT A CHECKPOINT OCCURS, JFCB 00014550 ** WILL BE DELETED * 00014560 ** 6 JFCREQ BIT(1), /* -STORAGE VOLUME REQUESTED * 00014570 ** 6 JFCTEMP BIT(1), /* -TEMPORARY DATA SET * 00014580 ** 5 JFCBUFNO CHAR(1), /* -NUMBER OF BUFFERS REQUIRED FOR 00014590 ** THIS DATA SET * 00014600 ** 6 JFCBUFIN CHAR(1), /* -BITS 0 THRU 3 # REC BUF * 00014610 ** 7 JFCBFOUT CHAR(1), /* -BITS 4 THRU 7 FOR # SEND BUF * 00014620 ** 10 JFCBUFRQ CHAR(1), /* -NUMBER OF BUFFERS REQUIRED FOR 00014630 ** EACH LINE (QTAM) * 00014640 ** 5 JFCBHIAR CHAR(1), /* -BUFFER POOL LOCATION IN MAIN 00014650 ** STORAGE (HIERARCHY) * 00014660 ** 10 JFCBFALN CHAR(1), /* -BUFFER ALIGNMENT * 00014670 ** 15 JFCBFTEK BIT(8), /* -BUFFERING TECHNIQUE/FOR GAM 00014680 ** THIS FIELD IS USED FOR THE 00014690 ** NUMBER OF IOBS CONSTRUCTED BY 00014700 ** THE OPEN ROUTINE- MAXIMUM 00014710 ** NUMBER IS 99 * 00014720 ** 16 JFCSIM BIT(1), /* -SIMPLE BUFFERING * 00014730 ** 16 JFCEXC BIT(1), /* -EXCHANGE BUFFERING * 00014740 ** 16 JFCDYN BIT(1), /* -DYNAMIC BUFFERING * 00014750 ** 16 JFCHIER1 BIT(1), /* -HIERARCHY 1 MAIN STORAGE * 00014760 ** 16 JFCDWORD BIT(1), /* -DOUBLE WORD BOUNDARY * 00014770 ** 16 JFCFWORD BIT(1), /* -FULL WORD BOUNDARY-NOT DOUBLE 00014780 ** WORD * 00014790 ** 5 JFCBUFL FIXED(15), /* -BUFFER LENGTH * 00014800 ** 5 JFCEROPT BIT(8), /* -ERROR OPTION SWITCH * 00014810 ** 15 JFCACC BIT(1), /* -ACCEPT * 00014820 ** 15 JFCSKP BIT(1), /* -SKIP * 00014830 ** 15 JFCABN BIT(1), /* -ABNORMAL END OF TASK * 00014840 ** 15 * BIT(5), /* -RESERVED * 00014850 ** 5 JFCTRTCH CHAR(1) BDY(BYTE); /* -TAPE RECORDING TECHNIQUE 00014860 ** FOR 7 TRACK TAPE * 00014870 ** DECLARE 00014880 ** 1 JFCKEYLE CHAR(1) BASED(ADDR(JFCTRTCH)), /* -DIRECT ACCESS 00014890 ** KEY LENGTH * 00014900 ** 5 JFCMODE BIT(8) BDY(BYTE), /* -MODE OF OPERATION* 00014910 ** 10 JFCCODE BIT(8) BDY(BYTE), /* -CONVERSION CODE * 00014920 ** 11 JFCNOCON BIT(1), /* -NO CONVERSION * 00014930 ** 11 JFCBCD BIT(1), /* -IBM BCD * 00014940 ** 11 JFCFRI BIT(1), /* -FRIDEN * 00014950 ** 11 JFCBUR BIT(1), /* -BURROUGHS * 00014960 ** 11 JFCNCR BIT(1), /*-NATIONAL CASH REGISTER* 00014970 ** 11 JFCASCII BIT(1), /* -ASCII (8-TRACK) * 00014980 ** 11 JFCTTY BIT(1), /* -TELETYPE * 00014990 ** 11 * BIT(1); /* -RESERVED * 00015000 ** DECLARE 00015010 ** 1 JFCSTACK BIT(8) BASED(ADDR(JFCTRTCH)), /* -STACKER SELECTION* 00015020 ** 5 JFCBIN BIT(1), /* -COLUMN BINRY MODE* 00015030 ** 5 JFCEBCD BIT(1), /* -EBCDIC MODE * 00015040 ** 5 * BIT(4), /* -RESERVED * 00015050 ** 5 JFCTWO BIT(1), /* -STACKER TWO * 00015060 ** 5 JFCONE BIT(1); /* -STACKER ONE * 00015070 ** 00015080 ** DECLARE 00015090 ** 1 JFCSPPRT BASED(ADDR(JFCTRTCH)), 00015100 ** 5 JFCPRTSP BIT(8) BDY(BYTE), /* -NORMAL PRINTER 00015110 ** SPACING * 00015120 ** 00015130 ** 00015140 ** 00015150 ** 5 JFCDEN BIT(8), /* -TAPE DENSITY -2400 SERIES 00015160 ** MAGNETIC TAPES * 00015170 ** 00015180 ** 5 JFCLIMCT CHAR(3), /* -SEARCH LIMIT (BDAM) * 00015190 ** 10 * CHAR(1), /* - -1ST BYTE JFCLIMIT (BDAM)/ 00015200 ** RESERVED * 00015210 ** 10 JFCTRKBL CHAR(2), /* -2ND & 3RD BYTES JFCLIMIT (BDAM) 00015220 ** /DATA SET OPENED FOR MOD -IF 00015230 ** AUTOMATIC STEP RESTART WAS 00015240 ** REQUESTED, TRACK BALANCE EXIS- 00015250 ** TING WHEN THE DATA SET WAS 00015260 ** FIRST OPENED DURING THE ORIG- 00015270 ** INAL EXECUTION OF THE CURRENT 00015280 ** STEP * 00015290 ** 5 JFCDSORG BIT(16), /* - DATA SET ORGANIZATION BEING 00015300 ** USED * 00015310 ** 10 JFCDSRG1 BIT(8), /* - BYTE 1 OF JFCDSORG * 00015320 ** 11 JFCORGIS BIT(1), /* - INDEXED SEQUENTIAL * 00015330 ** 11 JFCORGPS BIT(1), /* - PHYSICAL SEQUENTIAL * 00015340 ** 11 JFCORGDA BIT(1), /* - DIRECT * 00015350 ** 11 * BIT(3), /* - RESERVED * 00015360 ** 11 JFCORGPO BIT(1), /* - PARTITIONED * 00015370 ** 11 JFCORGU BIT(1), /* - UNMOVABLE- THE DATA CONTAINS 00015380 ** LOCATION DEPENDENT INFO * 00015390 ** 10 JFCDSRG2 BIT(8), /* -BYTE 2 OF JFCDSORG * 00015400 ** 11 JFCORGGS BIT(1), /* -GRAPHICS * 00015410 ** 11 * BIT(7), /* -RESERVED * 00015420 ** 5 JFCRECFM BIT(8), /* -RECORD FORMAT * 00015430 ** 6 JFCFMRC BIT(3), /* -RECORD FORMAT (USASI/USASCII) * 00015440 ** 7 JFCFMREC BIT(2), /* -BITS INDICATING FORMAT OF THE 00015450 ** RECORD * 00015460 ** 00015470 ** 00015480 ** 7 JFCRFO BIT(1), /* -TRACK OVERFLOW * 00015490 ** 6 JFCRFB BIT(1), /* -BLOCKED -(MAY NOT OCCUR WITH 00015500 ** UNDEFINED) * 00015510 ** 6 JFCRFS BIT(1), /* -STANDARD -NO TRUNCATED BLOCKS 00015520 ** OR UNFILLED BLOCKS ARE ENBEDDED 00015530 ** IN THE DATA SET * 00015540 ** /******************************************************************* 00015550 ** /* THE FOLLOWING THREE ASSIGNED VALUES ARE FOR THE CONTROL CHARACT-* 00015560 ** /* -ERS IN BITS 5 & 6 OF JFCRECFM . * 00015570 ** /******************************************************************* 00015580 ** 6 JFCCHAR BIT(2), 00015590 ** 6 * BIT(1), /* -RESERVED * 00015600 ** 5 JFCOPTCD BIT(8), /* -OPTION CODES * 00015610 ** 6 JFCWVCSP BIT(1), /* -QSAM-BSAM-BPAM-WRITE VALIDITY 00015620 ** CHECK * 00015630 ** 7 JFCWVCIS BIT(1), /* -BISAM-QISAM WRITE VALIDITY 00015640 ** CHECK * 00015650 ** 8 JFCWVCBD BIT(1), /* -BDAM WRITE VALIDITY 00015660 ** CHECK * 00015670 ** 9 JFCSDNAM BIT(1), /* -TCAM--SOURCE OR DESTINATION 00015680 ** NAME PRECEDES MESSAGE (AFTER 00015690 ** CONTROL BYTE) * 00015700 ** 6 JFCALLOW BIT(1), /* -QSAM-BSAM-BPAM-ALLOW A DATA 00015710 ** CHECK CAUSED BY AN INVALID 00015720 ** CHARACTER (1403 PRINTER WITH 00015730 ** UCS * 00015740 ** 7 * BIT(1), /* -RESERVED * 00015750 ** 8 JFCOVER BIT(1), /* -BDAM- TRACK OVERFLOW * 00015760 ** 9 JFCWUMSG BIT(1), /* -TCAM--WORK UNIT IS A MESSAGE. 00015770 ** DEFAULT WORK UNIT IS A RECORD. * 00015780 ** 00015790 ** 6 JFCPCIBT BIT(1), /* -QSAM-BSAM-BPAM-CHAINED SCHEDUL- 00015800 ** ING USING THE PROGRAM CONTRLED 00015810 ** INTERRUPTION * 00015820 ** 7 JFCMAST BIT(1), /* -BISAM-QISAM- MASTER INDEXES * 00015830 ** 8 JFCEXT BIT(1), /* -BDAM- EXTENDED SEARCH* 00015840 ** 9 JFCCBWU BIT(1), /* -TCAM--CONTROL BYTE PRECEDES 00015850 ** WORK UNIT * 00015860 ** 00015870 ** 6 * BIT(1), /* -RESERVED * 00015880 ** 7 JFCIND BIT(1), /* -BISAM-QISAM INDEPENDENT 00015890 ** OVERFLOW AREA * 00015900 ** 8 JFCFEED BIT(1), /* -BDAM- FEEDBACK * 00015910 ** 00015920 ** 00015930 ** 6 * BIT(1), /* -RESERVED * 00015940 ** 7 JFCCYL BIT(1), /* -BISAM-QISAM CYLINDER OVER- 00015950 ** -FLOW AREA * 00015960 ** 8 JFCACT BIT(1), /* -BDAM- ACTUAL ADRESING* 00015970 ** 9 JFCOPTQ BIT(1), /* -USASI/USASCII--EBCDIC TO OR 00015980 ** FROM USASCII TRANSLATION 00015990 ** REQUESTED * 00016000 ** 00016010 ** 6 JFCREDUC BIT(1), /* -QSAM-BSAM-BPAM-USE REDUCED ERR 00016020 ** RECOVERY PROCEDURE-(MAGNETIC 00016030 ** TAPE) * 00016040 ** 7 * BIT(1), /* -RESERVED * 00016050 ** 8 * BIT(1), /* -RESERVED * 00016060 ** 9 JFCSRCHD BIT(1), /* -QSAM-BSAM-BPAM-SEARCH DIRECT 00016070 ** INSTEAD OF SEARCH PREVIOUS- 00016080 ** (ROTATIONAL POSITION SENSING 00016090 ** DEVICES) * 00016100 ** 00016110 ** 6 * BIT(1), /* -RESERVED * 00016120 ** 7 JFCDEL BIT(1), /* -BISAM-QISAM DELETE OPTION * 00016130 ** 8 * BIT(1), /* -RESERVED * 00016140 ** 00016150 ** 00016160 ** 6 * BIT(1), /* -RESERVED * 00016170 ** 7 JFCREORG BIT(1), /* -BISAM-QISAM REORGANIZATION 00016180 ** CRITERIA * 00016190 ** 8 JFCREL BIT(1), /* -BDAM RELATIVE TRACK 00016200 ** ADDRESSING * 00016210 ** 5 JFCBLKSI FIXED(15) BDY(BYTE), /* -MAXIMUM BLOCK SIZE * 00016220 ** 10 JFCBUFSI FIXED(15) BDY(BYTE), 00016230 ** /* 2 BYTES FIR MAX BUFFER SIZE * 00016240 ** 5 JFCLRECL FIXED(15) BDY(BYTE), /* -LOGICAL RECORD LENGTH * 00016250 ** 5 JFCNCP CHAR(1), /* -NUMBER OF CHANNEL PROGRAMS - 00016260 ** NUMBER OF READ OR WRITE RE- 00016270 ** QUESTS THAT MAY BE ISSUED 00016280 ** PRIOR TO A CHECK- NUMBER OF 00016290 ** IOBS GENERATED (MAXIMUM NUMBER 00016300 ** IS 99) 00016310 ** NOTE: GAM USES JFCBFTEK FOR 00016320 ** THIS INFORMATION AND DOES 00016330 ** NOT USE THIS FIELD AT ALL * 00016340 ** 00016350 ** 10 JFCBUFMX CHAR(1), /* MAX NO. BUFFERS FOR DATA TRANS* 00016360 ** 5 JFCNTM CHAR(1), /* -NUMBER OF TRACKS THAT DETERMINE 00016370 ** THE DEVELOPMENT OF A MASTER 00016380 ** INDEX -MAXIMUM NUMBER IS 99 * 00016390 ** 10 JFCPCI CHAR(1), 00016400 ** 00016410 ** /******************************************************************* 00016420 ** /* * 00016430 ** /* NORMAL 108 SEGMENT * 00016440 ** /* * 00016450 ** /******************************************************************* 00016460 ** 00016470 ** 5 JFCRKP FIXED(15) BDY(BYTE), /* -RELATIVE POSITION OF THE FIRST 00016480 ** BYTE OF THE KEY WITHIN EACH 00016490 ** LOGICAL RECORD- MAXUMUM VALU 00016500 ** IS LOGICAL RECORD LENGTH 00016510 ** MINUS KEY LENGTH * 00016520 ** 10 JFCRESRV FIXED(15) BDY(BYTE), 00016530 ** 5 JFCCYLOF CHAR(1), /* -NUMBER OF TRACKS TO RE RESERVED 00016540 ** ON EACH CYLINDER TO HOLD 00016550 ** RECORDS THAT OVERFLOW FROM 00016560 ** OTHER TRACKS ON THAT CYLINDER 00016570 ** -MAXIMUM VALUE IS 99 * 00016580 ** 00016590 ** 5 JFCDBUFN CHAR(1), /* -RESERVED * 00016600 ** 5 JFCINTVL CHAR(1); /* -INTENTIONAL DELAY, IN SECONDS 00016610 ** BETWEEN PASSES THROUGH A POLL 00016620 ** ING LIST (QTAM) * 00016630 ** 00016640 ** /******************************************************************* 00016650 ** /* * 00016660 ** /* END OF NORMAL 108 SEGMENT * 00016670 ** /* * 00016680 ** /******************************************************************* 00016690 ** 00016700 ** /******************************************************************* 00016710 ** /* * 00016720 ** /* 108 PRINTER SEGMENT * 00016730 ** /* * 00016740 ** /******************************************************************* 00016750 ** DECLARE 00016760 ** 1 JFCUCSEG BASED (ADDR(JFCRKP)), 00016770 ** 00016780 ** 5 JFCUCSID CHAR(4), /* -NAME OF THE UCS IMAGE TO BE 00016790 ** LOADED * 00016800 ** 5 JFCUCSOP BIT(8), /* -OPERATION OF THE UCS IMAGE TO 00016810 ** BE LOADED * 00016820 ** 6 * BIT(1), /* -RESERVED * 00016830 ** 6 JFCFOLD BIT(1), /* -UCS IMAGE TO BE LOADED IN THE 00016840 ** FOLD MODE * 00016850 ** 6 * BIT(1), /* -RESERVED * 00016860 ** 6 JFCVER BIT(1), /* -UCS IMAGE TO BE VERIFIED * 00016870 ** 6 JFCFCBAL BIT(1), /* -FORMS CONTROL BUFFER ALIGN * 00016880 ** 6 JFCFCBVR BIT(1), /* -FORMS CONTROL BUFFER VERIFY * 00016890 ** 6 * BIT(2), /* -RESERVED * 00016900 ** 00016910 ** /******************************************************************* 00016920 ** /* * 00016930 ** /* END OF 108 PRINTER SEGMENT * 00016940 ** /* * 00016950 ** /******************************************************************* 00016960 ** 00016970 ** 5 JFCOUTLI CHAR(1) BDY(BYTE), /* OUTPUT LIMIT FOR SMF * 00016980 ** 6 JFCTHRSH CHAR(1), /* RECORDS TO BE USED * 00016990 ** 7 JFCCPRI BIT(8), /* -PRIORITY BETWEEN SEND AND 00017000 ** RECEIVE OPERATIONS (QTAM) * 00017010 ** 8 JFCSEND BIT(1), /* -SEND PRIORITY * 00017020 ** 8 JFCEQUAL BIT(1), /* -EQUAL PRIORITY * 00017030 ** 8 JFCRECV BIT(1), /* -RECEIVE PRIORITY * 00017040 ** 8 * BIT(5), /* -RESERVED * 00017050 ** 5 JFCSOWA FIXED(15), /* -LENGTH, IN BYTES, OF THE USER 00017060 ** PROVIDED WORK AREA (QTAM) * 00017070 ** 5 JFCBNTCS CHAR(1), /* -NUMBER OF OVERFLOW TRACKS * 00017080 ** 5 JFCBNVOL CHAR(1), /* -NUMBER OF VOL. SER. NUMBERS * 00017090 ** 5 JFCBVOLS CHAR(30), /* -THE FIRST 5 VOL.SER. NUMBERS * 00017100 ** 5 JFCBEXTL CHAR(1), /* -LENGTH OF BLOCK OF EXTRA VOL. 00017110 ** SER. NUMBERS BEYOND 5 * 00017120 ** 5 JFCBEXAD CHAR(3), /* -RELATIVE TRACK ADDRESS (TTR) 00017130 ** OF FIRST JFCB EXTENSION BLOCK* 00017140 ** 5 JFCBPQTY CHAR(3), /* -PRIMARY QUANTITY OF DIRECT ACC- 00017150 ** ESS STORAGE REQUIRED * 00017160 ** 5 JFCBCTRI BIT(8), /* -SPACE PARAMETERS * 00017170 ** /******************************************************************* 00017180 ** /* THE FOLLOWING FOUR ASSIGNMENT STATEMENTS OF BINARY VALUES ARE * 00017190 ** /* FOR THE SPACE MASK BITS TO BE SET IN THE HIGH ORDER TWO BITS * 00017200 ** /* OF JFCBCTRI * 00017210 ** /******************************************************************* 00017220 ** 6 JFCBSPAC BIT(2), /* -SPACE MASK BITS * 00017230 ** 00017240 ** 6 * BIT(1), /* -RESERVED * 00017250 ** 6 * BIT(1), /* -RESERVED * 00017260 ** 00017270 ** 6 JFCONTIG BIT(1), /* -'CONTIG' REQUEST * 00017280 ** 6 JFCMIXG BIT(1), /* -'MXIG' REQUEST * 00017290 ** 6 JFCALX BIT(1), /* -'ALX' REQUEST * 00017300 ** 6 JFCROUND BIT(1), /* -'ROUND' REQUEST * 00017310 ** 00017320 ** 5 JFCBSQTY CHAR(3), /* -SECONDARY QUANTITY OF DIRECT 00017330 ** ACCESS STORAGE REQUIRED * 00017340 ** 5 * CHAR(1), /* -RESERVED * 00017350 ** 5 JFCBDQTY CHAR(3), /* -QUANTITY OF DIRECT ACCESS STOR- 00017360 ** AGE REQUIRED FOR A DIRECTORY 00017370 ** OR AN EMBEDDED INDEX AREA * 00017380 ** 5 JFCBSPNM PTR(24) BDY(BYTE), /* -MAIN STORAGE ADDRESS OF THE 00017390 ** JFCB WITH WHICH CYLINDERS ARE 00017400 ** SPLIT * 00017410 ** 5 JFCBABST FIXED(15), /* -RELATIVE ADDRESS OF FIRST TRACK 00017420 ** TO BE ALLOCATED * 00017430 ** 5 JFCBSBNM PTR(24) BDY(BYTE), /* -MAIN STORAGE ADDRESS OF THE 00017440 ** JFCB FROM WHICH SPACE IS TO 00017450 ** BE SUBALLOCATED * 00017460 ** 5 JFCBDRLH CHAR(3), /* -AVERAGE DATA BLOCK LENGTH * 00017470 ** 5 JFCBVLCT CHAR(1), /* -VOLUME COUNT * 00017480 ** 5 JFCBSPTN CHAR(1), /* -NUMBER OF TRACKS PER CYLINDER 00017490 ** TO BE USED BY THIS DATA SET 00017500 ** WHEN SPLIT CYLINDER IS INDI- 00017510 ** CATED * 00017520 ** 5 JFCBEND CHAR(0) BDY(BYTE); 00017530 * 00017540 * /*********** DECLARE PARAMETERS TO PASS BETWEEN DSE ***********/ 00017550 * /*********** UPDATE LOADS ***********/ 00017560 * 00017570 * DCL 1 PASSPARM BASED(ADDR(DAWA2)), /* USE SIOT READ AREA TO */ 00017580 * /* PASS PARAMETERS */ 00017590 * 4 SVDSEPTR, /* DSE ADDRESS */ 00017600 * 4 SVRTCODE, /* FOR 504 RETURN CODE OR 0 */ 00017610 * 4 SVTJBXPR, /* TO ADDRESS 1ST DSE ADDR. */ 00017620 * 4 SVALTPTR, /* ADDRESS OF NEW DSE */ 00017630 * 4 ALOCCNCT; /* NON-ZERO IF CONCATENATED */ 00017640 * /* DATA GROUP OR SET ALLOC */ 00017650 * 00017660 * /******* DEFINE DYNAMIC ALLOCATION PARAMETER LIST *******/ 00017670 * 00017680 * DCL 1 * BASED(PPARMP), 00017690 * 4 PLNGH FIXED(15), /* SIZE OF PARAMETER LIST * 00017700 * 4 PCODE CHAR(1), /* MACRO CODE (1=DATASET) * 00017710 * 4 POPTIONS BIT(8), /* OPTION FLAGS * 00017720 * 7 ODUMMY BIT(1), /* DUMMY SPECIFIED*/ 00017730 * 7 * BIT(1), /* RESERVED */ 00017740 * 7 OTERM BIT(1), /* TERM SPECIFIED */ 00017750 * 7 ODSNAME BIT(1), /* DSNAME SPECIF. */ 00017760 * 7 * BIT(1), /* RESERVED */ 00017770 * 7 * BIT(1), /* RESERVED */ 00017780 * 7 * BIT(1), /* RESERVED */ 00017790 * 7 OEXCH BIT(1), /* INDICATES EXCHANGE */ 00017800 * /* OPTION FOR CONVERT */ 00017810 * 4 PDDNM1 CHAR(8), /* DDNAME1 * 00017820 * 4 * CHAR(1), /* RESERVED * 00017830 * 4 PDDNM2 CHAR(8), /* DDNAME2 * 00017840 * 4 * CHAR(1), /* RESERVED * 00017850 * 4 PDISP1 BIT(8), /* STATUS * 00017860 * 7 * BIT(1), /* RESERVED */ 00017870 * 7 * BIT(1), /* RESERVED */ 00017880 * 7 * BIT(1), /* RESERVED */ 00017890 * 7 * BIT(1), /* RESERVED */ 00017900 * 7 D1SHR BIT(1), /* SHR STATUS */ 00017910 * 7 D1NEW BIT(1), /* NEW STATUS */ 00017920 * 7 D1MOD BIT(1), /* MOD STATUS */ 00017930 * 7 D1OLD BIT(1), /* OLD STATUS */ 00017940 * 4 PDISP2 BIT(8), /* SECONDARY DISPOSITION * 00017950 * 7 * BIT(1), /* RESERVED */ 00017960 * 7 * BIT(1), /* RESERVED */ 00017970 * 7 * BIT(1), /* RESERVED */ 00017980 * 7 * BIT(1), /* RESERVED */ 00017990 * 7 D2KEEP BIT(1), /* KEEP DISP */ 00018000 * 7 D2DEL BIT(1), /* DELETE DISP */ 00018010 * 7 D2CAT BIT(1), /* CATALOG DISP */ 00018020 * 7 D2UNCAT BIT(1), /* UNCATALOC DISP */ 00018030 * 4 PDISP3 BIT(8), /* ALTERNATE DISPOSITION */ 00018040 * 7 * BIT(1), /* RESERVED */ 00018050 * 7 * BIT(1), /* RESERVED */ 00018060 * 7 * BIT(1), /* RESERVED */ 00018070 * 7 * BIT(1), /* RESERVED */ 00018080 * 7 D3KEEP BIT(1), /* KEEP DISP */ 00018090 * 7 D3DEL BIT(1), /* DELETE DISP */ 00018100 * 7 D3CAT BIT(1), /* CATALOC DISP */ 00018110 * 7 D3UNCAT BIT(1), /* UNCATALOG DISP */ 00018120 * 4 PMNM CHAR(8), /* MEMBERNAME * 00018130 * 4 PPRIME CHAR(3), /* PRIME SPACE * 00018140 * 4 PDSNP PTR(31), /* PTR TO DATA SET NAME * 00018150 * 4 PUNM CHAR(8), /* UNIT NAME * 00018160 * 4 PCTB BIT(8), /* SPACE PARAMETER FLAGS * 00018170 * 7 SUNITS BIT(2), /*11=CYL,10=TRK,01=AVGBL* 00018180 * 7 * BIT(1), /* RESERVED */ 00018190 * 7 SRLSE BIT(1), /* RLSE SPECIFIED */ 00018200 * 7 * BIT(1), /* RESERVED */ 00018210 * 7 * BIT(1), /* RESERVED */ 00018220 * 7 * BIT(1), /* RESERVED */ 00018230 * 7 * BIT(1), /* RESERVED */ 00018240 * 4 PSEC CHAR(3), /* SECONDARY SPACE * 00018250 * 4 PCLASS CHAR(1), /* SYSOUT CLASS * 00018260 * 4 PDIREC CHAR(3), /* DIRECTORY SPACE * 00018270 * 4 PFORM CHAR(4), /* SYSOUT FORM NUMBER * 00018280 * 4 PPGMNM CHAR(8), /* SYSOUT PROGRAMNAME * 00018290 * 4 PBLKSIZ FIXED(15), /* AVERAGE BLOCK LENGTH * 00018300 * 4 * CHAR(2), /* RESERVED * 00018310 * 4 PSERNO CHAR(6), /* SERIAL NUMBER * 00018320 * 4 * CHAR(1); /* RESERVED * 00018330 * DCL 1 PARMDSN BASED (PDSNP), /*DSNAME FIELD POINTED TO * 00018340 * 2 PDSLEN PTR(8), /* BY PDSNP IN CALLER'S LIST * 00018350 * 2 PDSNAME CHAR(44); 00018360 * DCL DSELSTPR PTR(31) REG(7); /* DSE UPDATE LIST */ 00018370 * /* ADDRESS */ 00018380 * 00018390 * /******* DEFINE THE UPDATE DSE PARAMETER LIST *******/ 00018400 * 00018410 * DCL 1 DSELIST BASED (DSELSTPR), /*DSE PARAMETER LIST */ 00018420 * 4 * CHAR(4), /* NOT USED */ 00018430 * 4 CONTROL, /* CONTROL BYTE */ 00018440 * 8 * BIT(5), /* BITS RESERVED */ 00018450 * 8 PERMALLC BIT(1), /* SET IF DATA SET IS */ 00018460 * /* PERMANENTLY ALLOCATED */ 00018470 * 8 * BIT(2), /* BITS RESERVED */ 00018480 * 4 TCBADD PTR(24), /* ADDRESS OF TCB FOR TASK */ 00018490 * /* WHICH SECURED ALLOCATION */ 00018500 * /* OF THE DATA SET */ 00018510 * 4 PASSWORD CHAR(8), /* PASSWORD, LEFT JUSTIFIED */ 00018520 * 4 PSWRDTTR CHAR(3), /* TTR OF PASSWORD IN */ 00018530 * /* PASSWORD DATA SET */ 00018540 * 4 DSLNGTH CHAR(1), /* LENGTH OF DATA SET NAME */ 00018550 * 4 DSNAME CHAR(44); /* DSNAME, LEFT JUSTIFIED */ 00018560 * DCL R15 REG(15); /* REG. 15 FOR RETURN CODE */ 00018570 * /* FROM SUBROUTINE */ 00018580 * DCL DSESERCH 00018590 * LABEL LOCAL INTERNAL; /* DSE SEARCH SUBROUTINE */ 00018600 * DCL R0 REG(0); /* REG 0 FOR GETMAIN AND */ 00018610 * /* FREEMAIN */ 00018620 * DCL R1 REG(1) PTR; /* REG 1 FOR FREEMAIN */ 00018630 * DCL R14 REG(14); /* REGISTER 14 */ 00018640 * DCL ALTPTR PTR(31) REG(13); /* ADDR OF NEW DSE */ 00018650 * DCL ALTLEN PTR(8) AUTO; /* LENGTH OF NEW DSE */ 00018660 * DCL DDNM1AD PTR(31) AUTO; /* SAVE DDNAME1 ADDRESS */ 00018670 * DCL DDNM2AD PTR(31) AUTO; /* SAVE DDNAME2 ADDRESS */ 00018680 * DCL ADDNEXT PTR(31) REG(9); /* ADDR OF NEXT DSE WHEN */ 00018690 * /* SCANNING FOR CONCATENATED*/ 00018700 * /* DATA SETS OR GROUPS */ 00018710 * DCL DDNAME CHAR(8) BASED; /* FOR USING DDNAME */ 00018720 * DCL DSNLGTH PTR(8) AUTO; /* SAVE LENGTH OF DSNAME */ 00018730 * DCL DSEADDR PTR(31) AUTO; /* SAVE FOR FIRST DSE ADDRES*/ 00018740 * DCL SAVER14 FIXED(31) AUTO; /* TO SAVE REGISTER 14 */ 00018750 * DCL I FIXED(31) AUTO; /* FOR DSNAME CHAR COUNT */ 00018760 * RESTRICT (3,5,7,9); 00018770 * TJBPTR = TSCVTTJB+(TSCVTSZU*JSCBTJID); /* POINT TO */ 00018780 L @2,CVTPTR 0057 00018790 L @2,0(0,@2) CVTMAP 0057 00018800 L @2,4(0,@2) TCBPTR 0057 00018810 L @2,180(0,@2) TCBOVLY1 0057 00018820 LH @E,268(0,@2) 0057 00018830 L @4,CVTPTR 0057 00018840 L @4,228(0,@4) CVTMAP 0057 00018850 MH @E,26(0,@4) 0057 00018860 A @E,0(0,@4) 0057 00018870 ST @E,TJBPTR 0057 00018880 * /* CORRECT TJB */ 00018890 * DSEPTR = TJBXDSE; /* CORRECT DSE ADDRESS */ 00018900 L @6,TJBPTR 0058 00018910 L @6,8(0,@6) TJB 0058 00018920 L @5,8(0,@6) 0058 00018930 * PARMPTR = R1; /* SAVE ADDRESS OF DAWT */ 00018940 LR @3,@1 0059 00018950 * DAW1P = DD1ADD; /* WORK AREA OR JFCB ADDRESS*/ 00018960 MVC 512(4,@3),504(@3) 0060 00018970 * /* WAS IN DD1ADD */ 00018980 * AFDSE = DSEPTR; /* ADDRESS OF 1ST DSE IN */ 00018990 ST @5,528(0,@3) 0061 00019000 * /* DSE CHAIN */ 00019010 * IF PCODE = '00'X ³ PCODE = '04'X THEN 00019020 L @8,16(0,@3) 0062 00019030 CLI 2(@8),X'00' 0062 00019040 BC 08,@9FF 0062 00019050 CLI 2(@8),X'04' 0062 00019060 BC 07,@9FE 0062 00019070 * DO; /* A ZERO MACRO CODE MEANS */ 00019080 * /* ENTRY WAS NOT MADE FROM */ 00019090 * /* A DYNAMIC ALLOC ROUTINE */ 00019100 * /* A 04 IS FROM DECONCAT */ 00019110 * XCTLEP(5) = '7'; /* NUMBER OF NEXT DSE */ 00019120 @9FF MVI 12(@3),C'7' 0064 00019130 * /* UPDATE LOAD */ 00019140 * GOTO CHKPERM; /* GO TO NEXT LOAD */ 00019150 BC 15,CHKPERM 0065 00019160 * END; 00019170 * IF PCODE = '02'X ³ PCODE = '03'X THEN 00019180 @9FE L @2,16(0,@3) 0067 00019190 CLI 2(@2),X'02' 0067 00019200 BC 08,@9FD 0067 00019210 CLI 2(@2),X'03' 0067 00019220 BC 07,@9FC 0067 00019230 * DO; /* GO TO LOAD FOR CONCAT OR */ 00019240 * /* UNALLOC PROCESSING */ 00019250 * XCTLEP(5) = '9'; /* NUMBER OF NEXT DSE */ 00019260 @9FD MVI 12(@3),C'9' 0069 00019270 * /* UPDATE LOAD */ 00019280 * GOTO CHKPERM; /* GO TO NEXT LOAD */ 00019290 BC 15,CHKPERM 0070 00019300 * END; 00019310 * 00019320 * /******************************************************/ 00019330 * /****** ENTRY IS FROM EITHER DATASET OR CONVERT *****/ 00019340 * /******************************************************/ 00019350 * 00019360 * XCTLEP(5) = '6'; /* NUMBER OF NEXT DSE */ 00019370 @9FC MVI 12(@3),C'6' 0072 00019380 * /* UPDATE LOAD */ 00019390 * DDNM1AD = ADDR(PDDNM1); /* ADDRESS OF DDNAME1 */ 00019400 L @2,16(0,@3) 0073 00019410 LA @F,4(0,@2) 0073 00019420 ST @F,DDNM1AD 0073 00019430 * DD1ADD = ADDR(PDDNM1); /* SET UP DDNAME1 AND */ 00019440 LA @F,4(0,@2) 0074 00019450 ST @F,504(0,@3) 0074 00019460 * DDNM2AD = ADDR(PDDNM2); /* ADDR OF DDNAME2 */ 00019470 L @2,16(0,@3) 0075 00019480 LA @F,13(0,@2) 0075 00019490 ST @F,DDNM2AD 0075 00019500 * DD2ADD = ADDR(PDDNM2); /* DDNAME2 FOR THE DSE */ 00019510 LA @F,13(0,@2) 0076 00019520 ST @F,508(0,@3) 0076 00019530 * /* SEARCH SUBROUTINE */ 00019540 * VFLAGS = 0; /* CLEAR INDICATOR BITS */ 00019550 MVC 548(1,@3),@D1 0077 00019560 * CALL DSESERCH; /* SEARCH DSE'S FOR DDNAMES */ 00019570 BAL @E,DSESERCH 0078 00019580 * IF R15 ª= 0 THEN /* RETURN WITH ERROR CODE */ 00019590 LTR @F,@F 0079 00019600 BC 08,@9FB 0079 00019610 * DO; 00019620 * SVRTCODE = 1284; /* 504 RET CODE IF DDNAME1 */ 00019630 LA @F,1284 0081 00019640 ST @F,332(0,@3) 0081 00019650 * /* NOT FOUND */ 00019660 * GOTO NEXTLOAD; /* RETURN WITH ERROR */ 00019670 BC 15,NEXTLOAD 0082 00019680 * END; 00019690 * DSELSTPR = PPARMP-64; /* ADDR OF DSE UPDATE */ 00019700 @9FB LH @7,@D2 0084 00019710 A @7,16(0,@3) 0084 00019720 * /* PARAMETER LIST */ 00019730 * ADDNEXT = ADDNAME1->DSEFORWD; /* ADDRESS OF NEXT DSE */ 00019740 L @2,520(0,@3) 0085 00019750 L @9,0(0,@2) 0085 00019760 * CHKCONCT: 00019770 * IF ADDNEXT ª= 0 THEN /* IF DDNAME1 IS THE*/ 00019780 CHKCONCT LTR @9,@9 0086 00019790 BC 08,@9FA 0086 00019800 * DO; 00019810 * IF ADDNEXT->DSEDDNAM(1) = ' ' ³ /* BEGINNING OF A */ 00019820 * ADDNEXT->DSEDDNAM = DDNM1AD->DDNAME THEN 00019830 CLI 12(@9),C' ' 0088 00019840 BC 08,@9F9 0088 00019850 L @2,DDNM1AD 0088 00019860 CLC 12(8,@9),0(@2) 0088 00019870 BC 07,@9F8 0088 00019880 * DO; 00019890 * ADDNEXT->DSENUSED='0'B; /* CONCATENATED DATA*/ 00019900 @9F9 NI 11(@9),B'10111111' 0090 00019910 * ADDNEXT->DSETCBAD = TCBADD; /* SET OR */ 00019920 MVC 21(3,@9),5(@7) 0091 00019930 MVI 20(@9),X'00' 0091 00019940 * ADDNEXT=ADDNEXT->DSEFORWD; /* GROUP */ 00019950 L @9,0(0,@9) 0092 00019960 * ADDNAME1->DSENUSED='0'B; /* MARK ALL DSE'S IN*/ 00019970 L @2,520(0,@3) 0093 00019980 NI 11(@2),B'10111111' 0093 00019990 * /* GROUP AS IN USE */ 00020000 * CONCTGRP='1'B; /* INDICATE GRPM2053*/ 00020010 OI 548(@3),B'00001000' 0094 00020020 * GOTO CHKCONCT; /* MARKED IN M2053*/ 00020030 BC 15,CHKCONCT 0095 00020040 * END; /* USE M2053*/ 00020050 * END; 00020060 @9F8 EQU * 0097 00020070 * IF CONCTGRPª='1'B THEN /* AND EXIT TO M2053*/ 00020080 @9FA TM 548(@3),B'00001000' 0098 00020090 BC 01,@9F7 0098 00020100 * DO; 00020110 * ALOCCNCT=0; /* NEXT LOAD MODULE */ 00020120 SR @F,@F 0100 00020130 ST @F,344(0,@3) 0100 00020140 * GOTO ISITCNVT; /* WITHOUT FURTHER */ 00020150 BC 15,ISITCNVT 0101 00020160 * END; 00020170 * /* PROCESSING */ 00020180 * ELSE 00020190 * DO; 00020200 * ADDNAME1->DSETCBAD=TCBADD; /* TCB ADDRESS */ 00020210 @9F7 L @2,520(0,@3) 0104 00020220 MVC 21(3,@2),5(@7) 0104 00020230 MVI 20(@2),X'00' 0104 00020240 * ALOCCNCT=PARMPTR; /* THIS ONLY SERVES TO MAKE */ 00020250 ST @3,344(0,@3) 0105 00020260 * GOTO CHKPERM; /* A NON-ZERO FIELD FOR */ 00020270 BC 15,CHKPERM 0106 00020280 * /* MODULE 26 WHICH WILL */ 00020290 * /* INDICATE NO PROCESSING */ 00020300 * /* TO BE DONE */ 00020310 * END; 00020320 * ISITCNVT: 00020330 * IF PCODE = '06'X THEN /* PERFORM CONVERT */ 00020340 @9F6 EQU * 0108 00020350 ISITCNVT L @2,16(0,@3) 0108 00020360 CLI 2(@2),X'06' 0108 00020370 * GOTO CONVTDSE; /* PROCESSING IF CODE=06 */ 00020380 BC 08,CONVTDSE 0109 00020390 * 00020400 * /******************************************************/ 00020410 * /***** DETERMINE SIZE OF GETMAIN FOR NEW DSE ********/ 00020420 * /******************************************************/ 00020430 * 00020440 * IF OTERM = '1'B THEN /* IF TERM=TS IS SPECIFIED, */ 00020450 TM 3(@2),B'00100000' 0110 00020460 BC 12,@9F5 0110 00020470 * DO; /* SET LENGTH OF DSNAME IN */ 00020480 * R0 = 1; /* DSE TO ONE. THE DSNAME */ 00020490 LA @0,1 0112 00020500 * DSNLGTH = R0; /* SAVE DSNAME LENGTH */ 00020510 STC @0,DSNLGTH 0113 00020520 * GOTO GOTLEN; /* WILL BE MADE AN * */ 00020530 BC 15,GOTLEN 0114 00020540 * END; 00020550 * IF DSLNGTH ª= '00'X THEN /* IF DSNAME IS IN DSE */ 00020560 @9F5 CLI 19(@7),X'00' 0116 00020570 BC 08,@9F4 0116 00020580 * R0 = DSLNGTH; /* UPDATE PARM LIST, USE */ 00020590 SR @0,@0 0117 00020600 IC @0,19(0,@7) 0117 00020610 BC 15,@9F3 0118 00020620 * ELSE /* LENGTH OF DSNAME FROM */ 00020630 * DO; /* THERE.OTHERWISE */ 00020640 * DO I = 1 TO 44; /* CALCULATE LENGTH OF */ 00020650 @9F4 LA @F,1 0119 00020660 ST @F,I 0119 00020670 * IF JFCBDSNM(I) /* DSNAME IN JFCB */ 00020680 * = '40'X THEN GOTO LGTHFND; /* SEARCH FOR BLANK */ 00020690 @DO9F2 L @2,I 0120 00020700 L @4,512(0,@3) 0120 00020710 LA @A,0(@2,@4) 0120 00020720 BCTR @A,0 0120 00020730 CLI 0(@A),X'40' 0120 00020740 BC 08,LGTHFND 0121 00020750 * END; /* AFTER DSNAME */ 00020760 * LGTHFND: 00020770 * R0 = I-1; /* DSNAME LENGTH FOUND, */ 00020780 L @F,I 0122 00020790 AH @F,@D3 0122 00020800 @DO9F1 ST @F,I 0122 00020810 CH @F,@D4 0122 00020820 BC 12,@DO9F2 0122 00020830 LGTHFND LH @0,@D5 0123 00020840 A @0,I 0123 00020850 * END; /* PUT IN R0 TO CALCULATE */ 00020860 * /* GETMAIN SIZE */ 00020870 * DSNLGTH = R0; /* SAVE DSNAME LENGTH */ 00020880 @9F3 STC @0,DSNLGTH 0125 00020890 * R0 = R0+8; /* SPACE FOR MEMBER NAME */ 00020900 AH @0,@D6 0126 00020910 * GOTLEN: 00020920 * R0 = R0+32; /* ADD SIZE OF BASIC DSE */ 00020930 GOTLEN AH @0,@D7 0127 00020940 * ALTLEN = R0; /* SAVE SIZE OF NEW DSE */ 00020950 STC @0,ALTLEN 0128 00020960 * R0 = R0³'FF000000'X; /* GET DSE FROM SP255 */ 00020970 O @0,@X13 0129 00020980 * GENERATE; /* GENERATE TO DO GETMAIN */ 00020990 GETMAIN R,LV=(0) GET CORE TO CREATE DSE 00021000 DS 0H 00021010 * ALTPTR = R1; /* ADDRESS OF NEW DSE */ 00021020 LR @D,@1 0131 00021030 * R1 = ALTLEN-1; /* LENGTH OF NEW DSE TO */ 00021040 LH @1,@D5 0132 00021050 SR @0,@0 0132 00021060 IC @0,ALTLEN 0132 00021070 AR @1,@0 0132 00021080 * /* EXECUTE */ 00021090 * GENERATE; 00021100 EX @1,XOR CLEAR NEW DSE CORE 00021110 DS 0H 00021120 * 00021130 * /******************************************************/ 00021140 * /**************** CONSTRUCT NEW DSE *******************/ 00021150 * /******************************************************/ 00021160 * 00021170 * ALTPTR->DSEBLKSZ=ALTLEN; /* SIZE OF NEW DSE INTO */ 00021180 MVC 9(1,@D),ALTLEN 0134 00021190 MVI 8(@D),X'00' 0134 00021200 * /* ITSELF */ 00021210 * IF DDNM2AD->DDNAMEª='40'X THEN /* DDNAME2 TO NEW DSE */ 00021220 L @2,DDNM2AD 0135 00021230 CLI 0(@2),X'40' 0135 00021240 BC 08,@9EE 0135 00021250 * ALTPTR->DSEDDNAM = /* IF THERE IS ONE */ 00021260 * DDNM2AD->DDNAME; /* OTHERWISE DDNAME1 */ 00021270 MVC 12(8,@D),0(@2) 0136 00021280 BC 15,@9ED 0137 00021290 * ELSE 00021300 * ALTPTR->DSEDDNAM = /* NO DDNAME2, */ 00021310 * DDNM1AD->DDNAME; /* USE DDNAME1 */ 00021320 @9EE L @4,DDNM1AD 0137 00021330 MVC 12(8,@D),0(@4) 0137 00021340 * ALTPTR->DSEDSLNG = DSNLGTH; /* DSNAME LENGTH TO DSE */ 00021350 @9ED MVC 31(1,@D),DSNLGTH 0138 00021360 * IF OTERM = '1'B THEN /* IF THIS REQUEST IS FOR A */ 00021370 L @4,16(0,@3) 0139 00021380 TM 3(@4),B'00100000' 0139 00021390 BC 12,@9EC 0139 00021400 * DO; /* TERMINAL, PLACE AN * IN */ 00021410 * ALTPTR->DSEDSNAM(1) = '*'; /* DSE */ 00021420 MVI 32(@D),C'*' 0141 00021430 * GOTO CHKPERM; /* FOR DAIR */ 00021440 BC 15,CHKPERM 0142 00021450 * END; 00021460 * IF DSLNGTH ª= '00'X THEN /* IF DSNAME IS IN UPDATE */ 00021470 @9EC CLI 19(@7),X'00' 0144 00021480 BC 08,@9EB 0144 00021490 * ALTPTR->DSEDSNAM(1:DSNLGTH) = /* DSE PARM LIST, USE */ 00021500 * DSNAME(1:DSNLGTH); /* IT. */ 00021510 LA @E,20(0,@7) 0145 00021520 SR @2,@2 0145 00021530 IC @2,DSNLGTH 0145 00021540 BCTR @2,0 0145 00021550 LA @A,32(0,@D) 0145 00021560 EX @2,@MVC 0145 00021570 BC 15,@9EA 0146 00021580 * ELSE 00021590 * ALTPTR->DSEDSNAM(1:DSNLGTH) = /* OTHERWISE USE */ 00021600 * JFCBDSNM(1:DSNLGTH); /* DSNAME FROM JFCB */ 00021610 @9EB L @2,512(0,@3) 0146 00021620 LR @E,@2 0146 00021630 SR @4,@4 0146 00021640 IC @4,DSNLGTH 0146 00021650 BCTR @4,0 0146 00021660 LA @A,32(0,@D) 0146 00021670 EX @4,@MVC 0146 00021680 * CONVTDSE: 00021690 * CHKPERM: 00021700 * SVRTCODE = 0; /* CLEAR RETURN CODE */ 00021710 @9EA EQU * 0147 00021720 CONVTDSE EQU * 0147 00021730 CHKPERM SR @F,@F 0147 00021740 ST @F,332(0,@3) 0147 00021750 * NEXTLOAD: 00021760 * SVTJBXPR = TJBEXTNT; /* SAVE TJBX ADDRESS */ 00021770 NEXTLOAD L @2,TJBPTR 0148 00021780 MVC 336(4,@3),8(@2) 0148 00021790 * SVDSEPTR = DSEPTR; /* SAVE DSE POINTER */ 00021800 ST @5,328(0,@3) 0149 00021810 * SVALTPTR = ALTPTR; /* ADRESS OF NEW DSE */ 00021820 ST @D,340(0,@3) 0150 00021830 * GENERATE; 00021840 BAL @E,@EL01 FREE AUTOMATIC STORAGE 00021850 DS 0H 00021860 * 00021870 * /**** TRANSFER CONTROL TO NEXT LOAD OF DSE UPDATE *****/ 00021880 * 00021890 * R1 = PARMPTR; /* ADDRESS OF DAWT IN R1 */ 00021900 LR @1,@3 0152 00021910 * R15 = R1; /* ADDRESS OF XCTL PARMS IN */ 00021920 LR @F,@1 0153 00021930 * /* REGISTER 15 */ 00021940 * GENERATE; 00021950 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00021960 DS 0H 00021970 * 00021980 * /******************************************************/ 00021990 * /* THE DSESERCH SUBROUTINE SEARCHES THE DSE CHAIN */ 00022000 * /* FOR THE DSE(S) ASSOCIATED WITH THE DDNAME(S) IN */ 00022010 * /* THE 'DATASET' OR 'CONVERT' PARAMETER LISTS. */ 00022020 * /******************************************************/ 00022030 * 00022040 * DSESERCH: 00022050 * PROC 00022060 * OPTIONS(NOSAVEAREA,DONTSAVE); 00022070 @EL01 LR @1,@C 0155 00022080 L @0,@SIZ001 0155 00022090 FREEMAIN R,LV=(0),A=(1) 0155 00022100 BCR 15,@E 0155 00022110 * RESTRICT (3,5,7); 00022120 * SAVER14 = R14; /* SAVE FOR RETURN */ 00022130 DSESERCH ST @E,SAVER14 0157 00022140 * DSEADDR = DSEPTR; /* SAVE 1ST DSE ADDRESS */ 00022150 ST @5,DSEADDR 0158 00022160 * GOTO FIRST; /* BYPASS DSE ADDRESS UPDATE*/ 00022170 BC 15,FIRST 0159 00022180 * /* UPON ENTRY */ 00022190 * GETPTR: 00022200 * IF DSEFORWD = 0 THEN /* UPDATE DSE ADDR IF */ 00022210 GETPTR SR @F,@F 0160 00022220 C @F,0(0,@5) 0160 00022230 * GOTO ENDOFDSE; /* THERE IS ANOTHER IN CHAIN*/ 00022240 BC 08,ENDOFDSE 0161 00022250 * DSEPTR = DSEFORWD; /* ADDRESS OF NEXT DSE */ 00022260 L @5,0(0,@5) 0162 00022270 * FIRST: 00022280 * IF DD1ADD = 0 THEN /* IF NO ADDRESS FOR */ 00022290 FIRST SR @F,@F 0163 00022300 C @F,504(0,@3) 0163 00022310 * GOTO CHECKDD2; /* DDNAME1,CHECK FOR DDNAME2*/ 00022320 BC 08,CHECKDD2 0164 00022330 * IF DD1ADD->DDNAME ª= DSEDDNAM THEN /* IF THIS IS NOT */ 00022340 L @1,504(0,@3) 0165 00022350 CLC 0(8,@1),12(@5) 0165 00022360 * GOTO CHECKDD2; /* CORRECT DSE, CHK DDNAME2 */ 00022370 BC 07,CHECKDD2 0166 00022380 * 00022390 * /*** THIS IS THE CORRECT DSE FOR DDNAME1, PLACE DSE ***/ 00022400 * /*** ADDRESS IN DAWTVARY FOR THE CALLER *****/ 00022410 * 00022420 * ADDNAME1 = DSEPTR; /* DSE ADDRESS TO DAWTVARY */ 00022430 ST @5,520(0,@3) 0167 00022440 * DD1ADD = 0; /* CLEAR DDNAME1 ADDRESS */ 00022450 SR @F,@F 0168 00022460 ST @F,504(0,@3) 0168 00022470 * DDNAME1 = '1'B; /* SET DDNAME1 FOUND */ 00022480 OI 548(@3),B'10000000' 0169 00022490 * CHECKDD2: 00022500 * IF DD2ADD = 0 THEN /* IF NO ADDRESS FOR */ 00022510 CHECKDD2 SR @F,@F 0170 00022520 C @F,508(0,@3) 0170 00022530 * GOTO GETPTR; /* DDNAME2, CHECK NEXT DSE */ 00022540 BC 08,GETPTR 0171 00022550 * IF DD2ADD->DDNAME ª= DSEDDNAM THEN /* IF THIS IS NOT */ 00022560 L @1,508(0,@3) 0172 00022570 CLC 0(8,@1),12(@5) 0172 00022580 * GOTO GETPTR; /* CORRECT DSE, CHECK NEXT */ 00022590 BC 07,GETPTR 0173 00022600 * ADDNAME2 = DSEPTR; /* DSE ADDRESS TO DAWTVARY */ 00022610 ST @5,524(0,@3) 0174 00022620 * DD2ADD = 0; /* CLEAR DDNAME2 ADDRESS */ 00022630 SR @F,@F 0175 00022640 ST @F,508(0,@3) 0175 00022650 * DDNAME2 = '1'B; /* SET DDNAME2 FOUND */ 00022660 OI 548(@3),B'01000000' 0176 00022670 * GOTO GETPTR; /* GET NEXT DSE ADDRESS */ 00022680 BC 15,GETPTR 0177 00022690 * ENDOFDSE: 00022700 * R14 = SAVER14; /* R14 FOR RETURN */ 00022710 ENDOFDSE L @E,SAVER14 0178 00022720 * DSEPTR = DSEADDR; /* RESTORE 1SD DSE ADDRESS */ 00022730 L @5,DSEADDR 0179 00022740 * IF DDNAME1 = '1'B THEN /* IF DDNAME1 FOUND */ 00022750 TM 548(@3),B'10000000' 0180 00022760 * GOTO RETURNOK; /* RETURN NORMALLY */ 00022770 BC 01,RETURNOK 0181 00022780 * R15 = 4; /* FUNCTION REQUESTED NOT */ 00022790 LA @F,4 0182 00022800 * /* PERFORMED */ 00022810 * RETURN; /* RETURN TO CALLER */ 00022820 BC 15,@EL02 0183 00022830 * RETURNOK: 00022840 * R15 = 0; /* NORMAL RETURN CODE */ 00022850 RETURNOK SR @F,@F 0184 00022860 * RETURN; /* RETURN TO CALLER */ 00022870 BC 15,@EL02 0185 00022880 * GENERATE; /* CLEAR AREA */ 00022890 XOR XC 0(1,ALTPTR),0(ALTPTR) CLEAR AREA 00022900 DS 0H 00022910 * END DSESERCH; 00022920 @EL02 BCR 15,@E 0187 00022930 * END 00022940 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 00022950 * /* %INCLUDE SYSLIB (CVT ) 00022960 * /* %INCLUDE SYSLIB (IKJTCB ) 00022970 * /* %INCLUDE SYSLIB (IEZJSCB ) 00022980 * /* %INCLUDE SYSLIB (IKJDSE ) 00022990 * /* %INCLUDE SYSLIB (IKJTJB ) 00023000 * /* %INCLUDE SYSLIB (IKJTJBX ) 00023010 * /* %INCLUDE SYSLIB (IKJTSCVT) 00023020 * /* %INCLUDE SYSLIB (IEFJFCBN) 00023030 * ; 00023040 @DATA1 EQU * 0188 00023050 @0 EQU 00 EQUATES FOR REGISTERS 0-15 00023060 @1 EQU 01 00023070 @2 EQU 02 00023080 @3 EQU 03 00023090 @4 EQU 04 00023100 @5 EQU 05 00023110 @6 EQU 06 00023120 @7 EQU 07 00023130 @8 EQU 08 00023140 @9 EQU 09 00023150 @A EQU 10 00023160 @B EQU 11 00023170 @C EQU 12 00023180 @D EQU 13 00023190 @E EQU 14 00023200 @F EQU 15 00023210 @D1 DC F'0' 00023220 @D2 DC H'-64' 00023230 @D3 DC H'1' 00023240 @D4 DC H'44' 00023250 @D5 DC H'-1' 00023260 @D6 DC H'8' 00023270 @D7 DC H'32' 00023280 @MVC MVC 0(1,@A),0(@E) 00023290 DS 0F 00023300 @SIZ001 DC AL1(&SPN) 00023310 DC AL3(@DATEND-@DATD) 00023320 DS 0F 00023330 @X13 DC X'FF000000' 00023340 DS 0D 00023350 @DATA EQU * 00023360 PLIST EQU 00000000 FULLWORD INTEGER 00023370 CVTPTR EQU 00000016 FULLWORD POINTER 00023380 DSEPTR EQU 00000005 FULLWORD POINTER REGISTER 00023390 CVTMAP EQU 00000000 252 BYTE(S) ON WORD 00023400 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 00023410 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 00023420 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 00023430 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 00023440 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 00023450 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 00023460 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 00023470 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 00023480 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 00023490 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 00023500 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 00023510 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 00023520 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 00023530 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 00023540 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 00023550 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 00023560 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 00023570 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 00023580 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 00023590 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 00023600 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 00023610 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 00023620 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 00023630 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 00023640 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 00023650 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 00023660 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 00023670 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 00023680 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 00023690 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 00023700 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 00023710 A00000 EQU CVTMAP+00000116 1 BIT(S) 00023720 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 00023730 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 00023740 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 00023750 A00001 EQU CVTMAP+00000116 1 BIT(S) 00023760 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 00023770 A00002 EQU CVTMAP+00000116 1 BIT(S) 00023780 A00003 EQU CVTMAP+00000116 1 BIT(S) 00023790 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 00023800 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 00023810 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 00023820 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 00023830 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 00023840 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 00023850 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 00023860 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 00023870 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 00023880 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 00023890 CVTTRMTB EQU CVTMAP+00000156 FULLWORD POINTER 00023900 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 00023910 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 00023920 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 00023930 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 00023940 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 00023950 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 00023960 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 00023970 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 00023980 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 00023990 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 00024000 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 00024010 CVTATTCH EQU CVTMAP+00000182 1 BIT(S) 00024020 CVTHIAR EQU CVTMAP+00000182 1 BIT(S) 00024030 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 00024040 A00004 EQU CVTMAP+00000182 1 BIT(S) 00024050 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 00024060 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 00024070 A00005 EQU CVTMAP+00000183 1 BIT(S) 00024080 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 00024090 A00006 EQU CVTMAP+00000183 5 BIT(S) 00024100 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 00024110 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 00024120 CVTMPCVT EQU CVTMAP+00000192 FULLWORD POINTER 00024130 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 00024140 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 00024150 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 00024160 A00007 EQU CVTMAP+00000208 FULLWORD POINTER 00024170 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 00024180 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 00024190 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 00024200 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 00024210 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 00024220 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 00024230 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 00024240 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 00024250 A00008 EQU CVTMAP+00000228 7 BIT(S) 00024260 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 00024270 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 00024280 A00009 EQU CVTMAP+00000236 FULLWORD POINTER 00024290 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 00024300 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 00024310 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 00024320 A00010 EQU CVTMAP+00000240 7 BIT(S) 00024330 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 00024340 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 00024350 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 00024360 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 00024370 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 00024380 A00011 EQU CVTMAP+00000249 3 BYTE(S) 00024390 A00012 EQU 00000184 8 BYTE(S) ON WORD 00024400 CVTCRTTR EQU A00012+00000000 3 BYTE(S) 00024410 CVTSTUSA EQU A00012+00000003 1 BYTE(S) 00024420 A00013 EQU A00012+00000003 1 BIT(S) 00024430 A00014 EQU A00012+00000003 1 BIT(S) 00024440 A00015 EQU A00012+00000003 1 BIT(S) 00024450 A00016 EQU A00012+00000003 1 BIT(S) 00024460 CVTCHPTR EQU A00012+00000003 1 BIT(S) 00024470 CVTSTEPR EQU A00012+00000003 1 BIT(S) 00024480 CVTDATA EQU A00012+00000003 1 BIT(S) 00024490 A00017 EQU A00012+00000003 1 BIT(S) 00024500 A00018 EQU A00012+00000004 2 BYTE(S) 00024510 A00019 EQU A00012+00000006 2 BYTE(S) 00024520 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 00024530 A00020 EQU CVTFIX+00000000 248 BYTE(S) 00024540 A00021 EQU CVTFIX+00000248 2 BYTE(S) 00024550 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 00024560 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 00024570 TCBPTR EQU 00000004 FULLWORD POINTER 00024580 TCBFIX EQU 00000032 32 BYTE(S) ON WORD 00024590 TCBFRS EQU TCBFIX+00000000 32 BYTE(S) 00024600 TCBFRS0 EQU TCBFIX+00000000 8 BYTE(S) 00024610 TCBFRS2 EQU TCBFIX+00000008 8 BYTE(S) 00024620 TCBFRS4 EQU TCBFIX+00000016 8 BYTE(S) 00024630 TCBFRS6 EQU TCBFIX+00000024 8 BYTE(S) 00024640 TCB EQU 00000000 156 BYTE(S) ON WORD 00024650 TCBRBP EQU TCB+00000000 FULLWORD POINTER 00024660 TCBPIE EQU TCB+00000004 FULLWORD POINTER 00024670 TCBDEB EQU TCB+00000008 FULLWORD POINTER 00024680 TCBTIO EQU TCB+00000012 FULLWORD POINTER 00024690 TCBCMP EQU TCB+00000016 4 BYTE(S) 00024700 TCBCMPF EQU TCB+00000016 1 BYTE(S) 00024710 TCBCREQ EQU TCB+00000016 1 BIT(S) 00024720 TCBCSTEP EQU TCB+00000016 1 BIT(S) 00024730 TCBCPP EQU TCB+00000016 1 BIT(S) 00024740 A00022 EQU TCB+00000016 1 BIT(S) 00024750 TCBCDBL EQU TCB+00000016 1 BIT(S) 00024760 TCBCWTO EQU TCB+00000016 1 BIT(S) 00024770 TCBCIND EQU TCB+00000016 1 BIT(S) 00024780 TCBCMSG EQU TCB+00000016 1 BIT(S) 00024790 TCBCMPC EQU TCB+00000017 3 BYTE(S) 00024800 TCBTRN EQU TCB+00000020 FULLWORD POINTER 00024810 TCBABF EQU TCB+00000020 1 BYTE(S) 00024820 TCBMOD91 EQU TCB+00000020 1 BIT(S) 00024830 TCBNOCHK EQU TCB+00000020 1 BIT(S) 00024840 TCBGRPH EQU TCB+00000020 1 BIT(S) 00024850 A00023 EQU TCB+00000020 1 BIT(S) 00024860 TCBTCPP EQU TCB+00000020 1 BIT(S) 00024870 TCBTCP EQU TCB+00000020 1 BIT(S) 00024880 TCBOLTEP EQU TCB+00000020 1 BIT(S) 00024890 A00024 EQU TCB+00000020 1 BIT(S) 00024900 TCBTRNB EQU TCB+00000021 3 BYTE POINTER 00024910 TCBMSS EQU TCB+00000024 FULLWORD POINTER 00024920 TCBNROC EQU TCB+00000024 1 BYTE POINTER 00024930 TCBMSSB EQU TCB+00000025 3 BYTE POINTER 00024940 TCBPKF EQU TCB+00000028 1 BYTE(S) 00024950 TCBFLAG EQU TCB+00000028 4 BIT(S) 00024960 TCBZERO EQU TCB+00000028 4 BIT(S) 00024970 TCBFLGS EQU TCB+00000029 5 BYTE(S) 00024980 TCBFLGS1 EQU TCB+00000029 1 BYTE(S) 00024990 TCBFA EQU TCB+00000029 1 BIT(S) 00025000 TCBFE EQU TCB+00000029 1 BIT(S) 00025010 TCBFERA EQU TCB+00000029 1 BIT(S) 00025020 TCBRECUR EQU TCB+00000029 1 BIT(S) 00025030 TCBPDUMP EQU TCB+00000029 1 BIT(S) 00025040 TCBFT EQU TCB+00000029 1 BIT(S) 00025050 TCBFS EQU TCB+00000029 1 BIT(S) 00025060 TCBFX EQU TCB+00000029 1 BIT(S) 00025070 TCBFLGS2 EQU TCB+00000030 1 BYTE(S) 00025080 TCBFOINP EQU TCB+00000030 1 BIT(S) 00025090 TCBFSTI EQU TCB+00000030 1 BIT(S) 00025100 TCBFRA EQU TCB+00000030 1 BIT(S) 00025110 TCBFSMC EQU TCB+00000030 1 BIT(S) 00025120 TCBFJMC EQU TCB+00000030 1 BIT(S) 00025130 TCBFDSOP EQU TCB+00000030 1 BIT(S) 00025140 TCBFETXR EQU TCB+00000030 1 BIT(S) 00025150 TCBFTS EQU TCB+00000030 1 BIT(S) 00025160 TCBFLGS3 EQU TCB+00000031 1 BYTE(S) 00025170 TCBFSM EQU TCB+00000031 1 BIT(S) 00025180 TCBFRI EQU TCB+00000031 1 BIT(S) 00025190 TCBABTRM EQU TCB+00000031 1 BIT(S) 00025200 TCBREC EQU TCB+00000031 1 BIT(S) 00025210 TCBRECDE EQU TCB+00000031 4 BIT(S) 00025220 TCBFLREG EQU TCB+00000031 1 BIT(S) 00025230 TCBSCH EQU TCB+00000031 1 BIT(S) 00025240 TCBPKCHG EQU TCB+00000031 1 BIT(S) 00025250 A00025 EQU TCB+00000031 1 BIT(S) 00025260 TCBFLGS4 EQU TCB+00000032 1 BYTE(S) 00025270 TCBNDUMP EQU TCB+00000032 1 BIT(S) 00025280 TCBSER EQU TCB+00000032 1 BIT(S) 00025290 TCBRQENA EQU TCB+00000032 1 BIT(S) 00025300 A00026 EQU TCB+00000032 1 BIT(S) 00025310 A00027 EQU TCB+00000032 1 BIT(S) 00025320 TCBMPCVQ EQU TCB+00000032 1 BIT(S) 00025330 TCBMPCND EQU TCB+00000032 1 BIT(S) 00025340 TCBONDSP EQU TCB+00000032 1 BIT(S) 00025350 TCBFLGS5 EQU TCB+00000033 1 BYTE(S) 00025360 TCBFC EQU TCB+00000033 1 BIT(S) 00025370 TCBABWF EQU TCB+00000033 1 BIT(S) 00025380 TCBWFC EQU TCB+00000033 1 BIT(S) 00025390 TCBFRO EQU TCB+00000033 1 BIT(S) 00025400 TCBSYS EQU TCB+00000033 1 BIT(S) 00025410 TCBSTP EQU TCB+00000033 1 BIT(S) 00025420 TCBFCD1 EQU TCB+00000033 1 BIT(S) 00025430 TCBPNDSP EQU TCB+00000033 1 BIT(S) 00025440 TCBLMP EQU TCB+00000034 1 BYTE POINTER 00025450 TCBDSP EQU TCB+00000035 1 BYTE POINTER 00025460 TCBLLS EQU TCB+00000036 FULLWORD POINTER 00025470 TCBJLB EQU TCB+00000040 FULLWORD POINTER 00025480 TCBJPQ EQU TCB+00000044 FULLWORD POINTER 00025490 TCBPURGE EQU TCB+00000044 1 BYTE(S) 00025500 TCBJPQF EQU TCB+00000044 1 BIT(S) 00025510 A00028 EQU TCB+00000044 1 BIT(S) 00025520 A00029 EQU TCB+00000044 1 BIT(S) 00025530 A00030 EQU TCB+00000044 1 BIT(S) 00025540 A00031 EQU TCB+00000044 1 BIT(S) 00025550 A00032 EQU TCB+00000044 1 BIT(S) 00025560 A00033 EQU TCB+00000044 1 BIT(S) 00025570 A00034 EQU TCB+00000044 1 BIT(S) 00025580 TCBJPQB EQU TCB+00000045 3 BYTE POINTER 00025590 TCBGRS EQU TCB+00000048 64 BYTE(S) 00025600 TCBGRS0 EQU TCB+00000048 4 BYTE POINTER 00025610 TCBGRS1 EQU TCB+00000052 4 BYTE POINTER 00025620 TCBGRS2 EQU TCB+00000056 4 BYTE POINTER 00025630 TCBGRS3 EQU TCB+00000060 4 BYTE POINTER 00025640 TCBGRS4 EQU TCB+00000064 4 BYTE POINTER 00025650 TCBGRS5 EQU TCB+00000068 4 BYTE POINTER 00025660 TCBGRS6 EQU TCB+00000072 4 BYTE POINTER 00025670 TCBGRS7 EQU TCB+00000076 4 BYTE POINTER 00025680 TCBGRS8 EQU TCB+00000080 4 BYTE POINTER 00025690 TCBGRS9 EQU TCB+00000084 4 BYTE POINTER 00025700 TCBGRS10 EQU TCB+00000088 4 BYTE POINTER 00025710 TCBGRS11 EQU TCB+00000092 4 BYTE POINTER 00025720 TCBGRS12 EQU TCB+00000096 4 BYTE POINTER 00025730 TCBGRS13 EQU TCB+00000100 4 BYTE POINTER 00025740 TCBGRS14 EQU TCB+00000104 4 BYTE POINTER 00025750 TCBGRS15 EQU TCB+00000108 4 BYTE POINTER 00025760 TCBFSA EQU TCB+00000112 FULLWORD POINTER 00025770 TCBQEL EQU TCB+00000112 1 BYTE POINTER 00025780 TCBFSAB EQU TCB+00000113 3 BYTE POINTER 00025790 TCBTCB EQU TCB+00000116 FULLWORD POINTER 00025800 TCBTME EQU TCB+00000120 FULLWORD POINTER 00025810 TCBJSTCB EQU TCB+00000124 FULLWORD POINTER 00025820 TCBPIBT EQU TCB+00000124 1 BYTE(S) 00025830 TCBPART EQU TCB+00000124 2 BIT(S) 00025840 TCBSIZE EQU TCB+00000124 1 BIT(S) 00025850 TCBSTOP EQU TCB+00000124 1 BIT(S) 00025860 A00035 EQU TCB+00000124 1 BIT(S) 00025870 A00036 EQU TCB+00000124 1 BIT(S) 00025880 TCBWRITE EQU TCB+00000124 1 BIT(S) 00025890 TCBSCHED EQU TCB+00000124 1 BIT(S) 00025900 TCBJSTCA EQU TCB+00000125 3 BYTE POINTER 00025910 TCBNTC EQU TCB+00000128 FULLWORD POINTER 00025920 TCBOTC EQU TCB+00000132 FULLWORD POINTER 00025930 TCBLTC EQU TCB+00000136 FULLWORD POINTER 00025940 TCBIQE EQU TCB+00000140 FULLWORD POINTER 00025950 TCBECB EQU TCB+00000144 FULLWORD POINTER 00025960 TCBTSFLG EQU TCB+00000148 8 BIT(S) 00025970 TCBTSTSK EQU TCB+00000148 1 BIT(S) 00025980 TCBSTPPR EQU TCB+00000148 1 BIT(S) 00025990 TCBATT EQU TCB+00000148 1 BIT(S) 00026000 TCBTIOTG EQU TCB+00000148 1 BIT(S) 00026010 A00037 EQU TCB+00000148 1 BIT(S) 00026020 A00038 EQU TCB+00000148 1 BIT(S) 00026030 A00039 EQU TCB+00000148 1 BIT(S) 00026040 A00040 EQU TCB+00000148 1 BIT(S) 00026050 TCBSTPCT EQU TCB+00000149 1 BYTE POINTER 00026060 TCBTSLP EQU TCB+00000150 1 BYTE POINTER 00026070 TCBTSDP EQU TCB+00000151 1 BYTE(S) 00026080 TCBPQE EQU TCB+00000152 FULLWORD POINTER 00026090 TCBOVLY1 EQU 00000152 32 BYTE(S) ON WORD 00026100 TCBFTLMP EQU TCBOVLY1+00000000 1 BYTE POINTER 00026110 TCBFTFLG EQU TCBOVLY1+00000001 3 BYTE(S) 00026120 TCBFTFL1 EQU TCBOVLY1+00000001 1 BYTE(S) 00026130 A00041 EQU TCBOVLY1+00000001 1 BIT(S) 00026140 A00042 EQU TCBOVLY1+00000001 1 BIT(S) 00026150 A00043 EQU TCBOVLY1+00000001 1 BIT(S) 00026160 A00044 EQU TCBOVLY1+00000001 1 BIT(S) 00026170 A00045 EQU TCBOVLY1+00000001 1 BIT(S) 00026180 TCBFTTOP EQU TCBOVLY1+00000001 1 BIT(S) 00026190 TCBFTCOM EQU TCBOVLY1+00000001 1 BIT(S) 00026200 TCBFTSYN EQU TCBOVLY1+00000001 1 BIT(S) 00026210 TCBFTFL2 EQU TCBOVLY1+00000002 1 BYTE(S) 00026220 TCBFTCMP EQU TCBOVLY1+00000002 1 BIT(S) 00026230 A00046 EQU TCBOVLY1+00000002 1 BIT(S) 00026240 A00047 EQU TCBOVLY1+00000002 1 BIT(S) 00026250 A00048 EQU TCBOVLY1+00000002 1 BIT(S) 00026260 A00049 EQU TCBOVLY1+00000002 1 BIT(S) 00026270 TCBFTOPN EQU TCBOVLY1+00000002 1 BIT(S) 00026280 TCBFTETX EQU TCBOVLY1+00000002 1 BIT(S) 00026290 A00050 EQU TCBOVLY1+00000002 1 BIT(S) 00026300 TCBFTFL3 EQU TCBOVLY1+00000003 1 BYTE(S) 00026310 A00051 EQU TCBOVLY1+00000003 1 BIT(S) 00026320 A00052 EQU TCBOVLY1+00000003 1 BIT(S) 00026330 A00053 EQU TCBOVLY1+00000003 1 BIT(S) 00026340 TCBFTISS EQU TCBOVLY1+00000003 1 BIT(S) 00026350 A00054 EQU TCBOVLY1+00000003 1 BIT(S) 00026360 TCBFTDUM EQU TCBOVLY1+00000003 1 BIT(S) 00026370 A00055 EQU TCBOVLY1+00000003 2 BIT(S) 00026380 TCBAQE EQU TCBOVLY1+00000004 FULLWORD POINTER 00026390 TCBSTAB EQU TCBOVLY1+00000008 FULLWORD POINTER 00026400 TCBNSTAE EQU TCBOVLY1+00000008 1 BYTE(S) 00026410 TCBSTABE EQU TCBOVLY1+00000008 1 BIT(S) 00026420 TCBQUIES EQU TCBOVLY1+00000008 1 BIT(S) 00026430 TCBXCTL EQU TCBOVLY1+00000008 1 BIT(S) 00026440 TCBSCAT EQU TCBOVLY1+00000008 1 BIT(S) 00026450 TCBHALT EQU TCBOVLY1+00000008 1 BIT(S) 00026460 TCBSUPER EQU TCBOVLY1+00000008 1 BIT(S) 00026470 TCBRETRY EQU TCBOVLY1+00000008 1 BIT(S) 00026480 TCBVALID EQU TCBOVLY1+00000008 1 BIT(S) 00026490 TCBSTABB EQU TCBOVLY1+00000009 3 BYTE POINTER 00026500 TCBTCT EQU TCBOVLY1+00000012 FULLWORD POINTER 00026510 A00056 EQU TCBOVLY1+00000012 1 BYTE(S) 00026520 TCBTCTB EQU TCBOVLY1+00000013 3 BYTE POINTER 00026530 TCBUSER EQU TCBOVLY1+00000016 FULLWORD POINTER 00026540 TCBDAR EQU TCBOVLY1+00000020 1 BYTE(S) 00026550 TCBDARP EQU TCBOVLY1+00000020 1 BIT(S) 00026560 TCBDARS EQU TCBOVLY1+00000020 1 BIT(S) 00026570 TCBDARD EQU TCBOVLY1+00000020 1 BIT(S) 00026580 TCBDARC EQU TCBOVLY1+00000020 1 BIT(S) 00026590 TCBDARO EQU TCBOVLY1+00000020 1 BIT(S) 00026600 A00057 EQU TCBOVLY1+00000020 1 BIT(S) 00026610 A00058 EQU TCBOVLY1+00000020 1 BIT(S) 00026620 TCBEXSVC EQU TCBOVLY1+00000020 1 BIT(S) 00026630 TCBSCNDY EQU TCBOVLY1+00000021 3 BYTE(S) 00026640 TCBNDSP1 EQU TCBOVLY1+00000021 1 BYTE(S) 00026650 TCBDARTN EQU TCBOVLY1+00000021 1 BIT(S) 00026660 TCBDARPN EQU TCBOVLY1+00000021 1 BIT(S) 00026670 TCBRSTND EQU TCBOVLY1+00000021 1 BIT(S) 00026680 TCBRSPND EQU TCBOVLY1+00000021 1 BIT(S) 00026690 A00059 EQU TCBOVLY1+00000021 1 BIT(S) 00026700 TCBTPSP EQU TCBOVLY1+00000021 1 BIT(S) 00026710 A00060 EQU TCBOVLY1+00000021 1 BIT(S) 00026720 A00061 EQU TCBOVLY1+00000021 1 BIT(S) 00026730 TCBNDSP2 EQU TCBOVLY1+00000022 1 BYTE(S) 00026740 TCBABD EQU TCBOVLY1+00000022 1 BIT(S) 00026750 TCBSTPP EQU TCBOVLY1+00000022 1 BIT(S) 00026760 TCBNDSVC EQU TCBOVLY1+00000022 1 BIT(S) 00026770 TCBNDTS EQU TCBOVLY1+00000022 1 BIT(S) 00026780 TCBIWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00026790 TCBOWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00026800 A00062 EQU TCBOVLY1+00000022 1 BIT(S) 00026810 TCBABE EQU TCBOVLY1+00000022 1 BIT(S) 00026820 TCBNDSP3 EQU TCBOVLY1+00000023 1 BYTE(S) 00026830 TCBTERM EQU TCBOVLY1+00000023 1 BIT(S) 00026840 TCBABTER EQU TCBOVLY1+00000023 1 BIT(S) 00026850 A00063 EQU TCBOVLY1+00000023 1 BIT(S) 00026860 A00064 EQU TCBOVLY1+00000023 1 BIT(S) 00026870 A00065 EQU TCBOVLY1+00000023 1 BIT(S) 00026880 A00066 EQU TCBOVLY1+00000023 1 BIT(S) 00026890 A00067 EQU TCBOVLY1+00000023 1 BIT(S) 00026900 A00068 EQU TCBOVLY1+00000023 1 BIT(S) 00026910 A00069 EQU TCBOVLY1+00000024 FULLWORD INTEGER 00026920 TCBJSCB EQU TCBOVLY1+00000028 FULLWORD POINTER 00026930 A00070 EQU TCBOVLY1+00000028 1 BYTE(S) 00026940 TCBJSCBB EQU TCBOVLY1+00000029 3 BYTE POINTER 00026950 IEZJSCB EQU 00000000 260 BYTE(S) ON WORD 00026960 A00071 EQU IEZJSCB+00000000 240 BYTE(S) 00026970 JSCBSEC1 EQU IEZJSCB+00000240 16 BYTE(S) ON WORD 00026980 JSCBTTTR EQU IEZJSCB+00000240 3 BYTE(S) 00026990 JSCBSWT1 EQU IEZJSCB+00000243 1 BYTE(S) 00027000 JSCBPASS EQU IEZJSCB+00000243 1 BIT(S) 00027010 A00072 EQU IEZJSCB+00000243 7 BIT(S) 00027020 JSCBQMPI EQU IEZJSCB+00000244 FULLWORD POINTER 00027030 JSCBQMPO EQU IEZJSCB+00000248 FULLWORD POINTER 00027040 JSCBWTP EQU IEZJSCB+00000252 FULLWORD POINTER 00027050 JSCBEND1 EQU IEZJSCB+00000256 FULLWORD INTEGER 00027060 JSCBSEC2 EQU 00000256 12 BYTE(S) ON WORD 00027070 JSCBCSCB EQU JSCBSEC2+00000000 FULLWORD POINTER 00027080 JSCBJCT EQU JSCBSEC2+00000004 4 BYTE(S) 00027090 JSCBRESV EQU JSCBSEC2+00000004 8 BIT(S) 00027100 JSCBJCTA EQU JSCBSEC2+00000005 3 BYTE(S) 00027110 JSCBEND2 EQU JSCBSEC2+00000008 FULLWORD INTEGER 00027120 JSCBSEC3 EQU 00000256 4 BYTE(S) ON WORD 00027130 JSCBEND3 EQU JSCBSEC3+00000000 FULLWORD INTEGER 00027140 JSCBSEC4 EQU 00000264 4 BYTE(S) ON WORD 00027150 JSCBEND4 EQU JSCBSEC4+00000000 FULLWORD INTEGER 00027160 JSCBSEC5 EQU 00000264 16 BYTE(S) ON WORD 00027170 JSCBPSCB EQU JSCBSEC5+00000000 FULLWORD POINTER 00027180 JSCBTJID EQU JSCBSEC5+00000004 HALFWORD INTEGER 00027190 A00073 EQU JSCBSEC5+00000006 2 BYTE(S) 00027200 JSCBIECB EQU JSCBSEC5+00000008 FULLWORD INTEGER 00027210 JSCBEND5 EQU JSCBSEC5+00000012 FULLWORD INTEGER 00027220 DSE EQU 00000000 76 BYTE(S) ON WORD 00027230 DSEFORWD EQU DSE+00000000 FULLWORD POINTER 00027240 DSEBCKWD EQU DSE+00000004 FULLWORD POINTER 00027250 DSEBLKSZ EQU DSE+00000008 HALFWORD INTEGER 00027260 DSESTAT EQU DSE+00000010 1 BYTE(S) 00027270 A00074 EQU DSE+00000010 1 BIT(S) 00027280 A00075 EQU DSE+00000010 1 BIT(S) 00027290 A00076 EQU DSE+00000010 1 BIT(S) 00027300 A00077 EQU DSE+00000010 1 BIT(S) 00027310 DSESHR EQU DSE+00000010 1 BIT(S) 00027320 DSENEW EQU DSE+00000010 1 BIT(S) 00027330 DSEMOD EQU DSE+00000010 1 BIT(S) 00027340 DSEOLD EQU DSE+00000010 1 BIT(S) 00027350 DSECNTRL EQU DSE+00000011 1 BYTE(S) 00027360 DSEDYN EQU DSE+00000011 1 BIT(S) 00027370 DSENUSED EQU DSE+00000011 1 BIT(S) 00027380 DSEMEM EQU DSE+00000011 1 BIT(S) 00027390 DSEDTIOT EQU DSE+00000011 1 BIT(S) 00027400 DSECON EQU DSE+00000011 1 BIT(S) 00027410 A00078 EQU DSE+00000011 1 BIT(S) 00027420 DSEPERM EQU DSE+00000011 1 BIT(S) 00027430 A00079 EQU DSE+00000011 1 BIT(S) 00027440 DSEDDNAM EQU DSE+00000012 8 BYTE(S) 00027450 DSETCBAD EQU DSE+00000020 FULLWORD POINTER 00027460 DSETTRPW EQU DSE+00000024 FULLWORD INTEGER 00027470 DSENDISP EQU DSE+00000028 1 BYTE(S) 00027480 A00080 EQU DSE+00000028 1 BIT(S) 00027490 A00081 EQU DSE+00000028 1 BIT(S) 00027500 A00082 EQU DSE+00000028 1 BIT(S) 00027510 A00083 EQU DSE+00000028 1 BIT(S) 00027520 DSEKEP EQU DSE+00000028 1 BIT(S) 00027530 DSEDEL EQU DSE+00000028 1 BIT(S) 00027540 DSECAT EQU DSE+00000028 1 BIT(S) 00027550 DSEUCAT EQU DSE+00000028 1 BIT(S) 00027560 DSEADISP EQU DSE+00000029 1 BYTE(S) 00027570 A00084 EQU DSE+00000029 1 BIT(S) 00027580 A00085 EQU DSE+00000029 1 BIT(S) 00027590 A00086 EQU DSE+00000029 1 BIT(S) 00027600 A00087 EQU DSE+00000029 1 BIT(S) 00027610 DSEAKEP EQU DSE+00000029 1 BIT(S) 00027620 DSEADEL EQU DSE+00000029 1 BIT(S) 00027630 DSEACAT EQU DSE+00000029 1 BIT(S) 00027640 DSEAUCAT EQU DSE+00000029 1 BIT(S) 00027650 DSEDSORG EQU DSE+00000030 1 BYTE(S) 00027660 DSEIS EQU DSE+00000030 1 BIT(S) 00027670 DSEPS EQU DSE+00000030 1 BIT(S) 00027680 DSEDA EQU DSE+00000030 1 BIT(S) 00027690 A00088 EQU DSE+00000030 1 BIT(S) 00027700 A00089 EQU DSE+00000030 1 BIT(S) 00027710 A00090 EQU DSE+00000030 1 BIT(S) 00027720 DSEPO EQU DSE+00000030 1 BIT(S) 00027730 DSEU EQU DSE+00000030 1 BIT(S) 00027740 DSEDSLNG EQU DSE+00000031 1 BYTE POINTER 00027750 DSEDSNAM EQU DSE+00000032 44 BYTE(S) 00027760 DSEMEMBR EQU 00000000 8 BYTE(S) 00027770 TJB EQU 00000000 48 BYTE(S) ON WORD 00027780 TJBTSB EQU TJB+00000000 FULLWORD POINTER 00027790 TJBATTN EQU TJB+00000004 1 BYTE(S) 00027800 TJBSTAX EQU TJB+00000005 1 BYTE(S) 00027810 TJBSTAT EQU TJB+00000006 1 BYTE(S) 00027820 TJBNJB EQU TJB+00000006 1 BIT(S) 00027830 TJBINCOR EQU TJB+00000006 1 BIT(S) 00027840 TJBLOGON EQU TJB+00000006 1 BIT(S) 00027850 TJBIWAIT EQU TJB+00000006 1 BIT(S) 00027860 TJBOWAIT EQU TJB+00000006 1 BIT(S) 00027870 TJBSILF EQU TJB+00000006 1 BIT(S) 00027880 TJBDISC EQU TJB+00000006 1 BIT(S) 00027890 TJBSILF2 EQU TJB+00000006 1 BIT(S) 00027900 TJBSTAT2 EQU TJB+00000007 1 BYTE(S) 00027910 TJBHUNG EQU TJB+00000007 1 BIT(S) 00027920 TJBHOLD EQU TJB+00000007 1 BIT(S) 00027930 TJBOCAB EQU TJB+00000007 1 BIT(S) 00027940 TJBRNAV EQU TJB+00000007 1 BIT(S) 00027950 TJBSURSV EQU TJB+00000007 1 BIT(S) 00027960 TJBQUIS EQU TJB+00000007 1 BIT(S) 00027970 TJBUSERR EQU TJB+00000007 1 BIT(S) 00027980 TJBDEAD EQU TJB+00000007 1 BIT(S) 00027990 TJBEXTNT EQU TJB+00000008 FULLWORD POINTER 00028000 TJBRCB EQU TJB+00000012 FULLWORD POINTER 00028010 TJBUMSM EQU TJB+00000016 FULLWORD POINTER 00028020 TJBSDCB EQU TJB+00000020 FULLWORD POINTER 00028030 TJBUTTMQ EQU TJB+00000024 HALFWORD INTEGER 00028040 TJBUTTMP EQU TJB+00000024 1 BIT(S) 00028050 TJBRSTOR EQU TJB+00000026 1 BYTE(S) 00028060 TJBOWP EQU TJB+00000026 1 BIT(S) 00028070 TJBIWP EQU TJB+00000026 1 BIT(S) 00028080 A00091 EQU TJB+00000026 1 BIT(S) 00028090 TJBLOGP EQU TJB+00000026 1 BIT(S) 00028100 TJBLWAIT EQU TJB+00000026 1 BIT(S) 00028110 A00092 EQU TJB+00000026 1 BIT(S) 00028120 TJBFAT EQU TJB+00000026 1 BIT(S) 00028130 A00093 EQU TJB+00000026 1 BIT(S) 00028140 TJBUMSMN EQU TJB+00000027 1 BYTE(S) 00028150 TJBUSER EQU TJB+00000028 8 BYTE(S) 00028160 TJBIPPB EQU TJB+00000036 FULLWORD INTEGER 00028170 TJBNEWID EQU TJB+00000040 1 BYTE POINTER 00028180 TJBFLUSL EQU TJB+00000041 1 BYTE(S) 00028190 TJBTJID EQU TJB+00000042 HALFWORD INTEGER 00028200 TJBMONI EQU TJB+00000044 1 BYTE(S) 00028210 TJBMDSN EQU TJB+00000044 1 BIT(S) 00028220 TJBMJBN EQU TJB+00000044 1 BIT(S) 00028230 TJBMSES EQU TJB+00000044 1 BIT(S) 00028240 TJBMSPA EQU TJB+00000044 1 BIT(S) 00028250 TJBMSTA EQU TJB+00000044 1 BIT(S) 00028260 TJBGETBF EQU TJB+00000044 1 BIT(S) 00028270 A00094 EQU TJB+00000044 1 BIT(S) 00028280 A00095 EQU TJB+00000044 1 BIT(S) 00028290 A00096 EQU TJB+00000045 1 BYTE(S) 00028300 TJBLINE EQU TJB+00000046 2 BYTE(S) 00028310 TJBX EQU 00000000 72 BYTE(S) ON WORD 00028320 TJBXFST EQU TJBX+00000000 FULLWORD POINTER 00028330 TJBXLAST EQU TJBX+00000004 FULLWORD POINTER 00028340 TJBXDSE EQU TJBX+00000008 FULLWORD POINTER 00028350 TJBXSVRB EQU TJBX+00000012 FULLWORD POINTER 00028360 TJBXRQE EQU TJBX+00000016 FULLWORD POINTER 00028370 TJBXIQE EQU TJBX+00000020 FULLWORD POINTER 00028380 TJBXTAXE EQU TJBX+00000024 FULLWORD INTEGER 00028390 TJBXLECB EQU TJBX+00000028 FULLWORD INTEGER 00028400 TJBXPSWD EQU TJBX+00000032 8 BYTE(S) 00028410 A00097 EQU TJBX+00000040 FULLWORD INTEGER 00028420 TJBXAIQE EQU TJBX+00000044 FULLWORD POINTER 00028430 TJBXQPL EQU TJBX+00000048 FULLWORD POINTER 00028440 TJBXNQPE EQU TJBX+00000052 HALFWORD INTEGER 00028450 TJBXNTCB EQU TJBX+00000054 HALFWORD INTEGER 00028460 TJBXLQPL EQU TJBX+00000056 HALFWORD INTEGER 00028470 TJBXHBFL EQU TJBX+00000058 1 BYTE(S) 00028480 A00098 EQU TJBX+00000059 1 BYTE(S) 00028490 TJBXACT EQU TJBX+00000060 FULLWORD INTEGER 00028500 TJBXAECB EQU TJBX+00000064 FULLWORD POINTER 00028510 TJBXKEYA EQU TJBX+00000068 FULLWORD POINTER 00028520 TSCVT EQU 00000000 136 BYTE(S) ON WORD 00028530 TSCVTTJB EQU TSCVT+00000000 FULLWORD POINTER 00028540 TSCVTRCB EQU TSCVT+00000004 FULLWORD POINTER 00028550 TSCVTRPT EQU TSCVT+00000008 FULLWORD POINTER 00028560 TSCVTFLG EQU TSCVT+00000012 2 BYTE(S) 00028570 TSCSWPND EQU TSCVT+00000012 1 BIT(S) 00028580 TSCSWPBG EQU TSCVT+00000012 1 BIT(S) 00028590 TSCLOGON EQU TSCVT+00000012 1 BIT(S) 00028600 TSCDISC EQU TSCVT+00000012 1 BIT(S) 00028610 TSCVTFL1 EQU TSCVT+00000014 2 BYTE(S) 00028620 TSCSSTOP EQU TSCVT+00000014 1 BIT(S) 00028630 TSCRSTOP EQU TSCVT+00000014 1 BIT(S) 00028640 TSCASTOP EQU TSCVT+00000014 1 BIT(S) 00028650 TSCLOGPR EQU TSCVT+00000014 1 BIT(S) 00028660 A00099 EQU TSCVT+00000014 1 BIT(S) 00028670 A00100 EQU TSCVT+00000014 1 BIT(S) 00028680 A00101 EQU TSCVT+00000014 1 BIT(S) 00028690 A00102 EQU TSCVT+00000014 1 BIT(S) 00028700 TSCVTSDC EQU TSCVT+00000016 FULLWORD POINTER 00028710 TSCVTCUS EQU TSCVT+00000020 HALFWORD INTEGER 00028720 TSCVTLUS EQU TSCVT+00000022 HALFWORD INTEGER 00028730 TSCVTNTJ EQU TSCVT+00000024 HALFWORD INTEGER 00028740 TSCVTSZU EQU TSCVT+00000026 HALFWORD INTEGER 00028750 TSCVTCTR EQU TSCVT+00000028 HALFWORD INTEGER 00028760 TSCVTMUS EQU TSCVT+00000030 HALFWORD INTEGER 00028770 TSCVTSAV EQU TSCVT+00000032 FULLWORD POINTER 00028780 TSCVTECB EQU TSCVT+00000036 FULLWORD POINTER 00028790 TSCVTSIA EQU TSCVT+00000040 FULLWORD POINTER 00028800 TSCVTICB EQU TSCVT+00000044 FULLWORD POINTER 00028810 TSCVTI01 EQU TSCVT+00000048 FULLWORD POINTER 00028820 TSCVTTQE EQU TSCVT+00000052 FULLWORD POINTER 00028830 TSCVTI02 EQU TSCVT+00000056 FULLWORD POINTER 00028840 TSCVTI03 EQU TSCVT+00000060 FULLWORD POINTER 00028850 TSCVTD02 EQU TSCVT+00000064 FULLWORD POINTER 00028860 TSCVTLCQ EQU TSCVT+00000068 FULLWORD POINTER 00028870 TSCVTTRB EQU TSCVT+00000072 FULLWORD POINTER 00028880 TSCVTLPA EQU TSCVT+00000076 FULLWORD POINTER 00028890 TSCVTSLF EQU TSCVT+00000080 FULLWORD INTEGER 00028900 TSCVTTSC EQU TSCVT+00000084 FULLWORD POINTER 00028910 TSCVTSPL EQU TSCVT+00000088 FULLWORD POINTER 00028920 TSCVTRSZ EQU TSCVT+00000092 HALFWORD INTEGER 00028930 A00103 EQU TSCVT+00000094 2 BYTE(S) 00028940 TSCVTSVT EQU TSCVT+00000096 4 BYTE(S) 00028950 TSCVTSVQ EQU TSCVT+00000100 4 BYTE(S) 00028960 TSCVTABN EQU TSCVT+00000104 FULLWORD POINTER 00028970 TSCVTD03 EQU TSCVT+00000108 FULLWORD POINTER 00028980 TSCVTFLM EQU TSCVT+00000112 FULLWORD POINTER 00028990 TSCVTQTP EQU TSCVT+00000116 FULLWORD POINTER 00029000 TSCVTT08 EQU TSCVT+00000120 FULLWORD POINTER 00029010 TSCVTDMP EQU TSCVT+00000124 FULLWORD POINTER 00029020 TSCVTT06 EQU TSCVT+00000128 FULLWORD POINTER 00029030 TSCVTLS3 EQU TSCVT+00000132 FULLWORD POINTER 00029040 PARMPTR EQU 00000003 FULLWORD POINTER REGISTER 00029050 DAWT EQU 00000000 552 BYTE(S) ON WORD 00029060 DAWTDSE EQU DAWT+00000000 32 BYTE(S) ON WORD 00029070 DAWTXCTL EQU DAWT+00000000 16 BYTE(S) ON WORD 00029080 XCTLAD EQU DAWT+00000000 FULLWORD POINTER 00029090 XCTLDCB EQU DAWT+00000004 FULLWORD INTEGER 00029100 XCTLEP EQU DAWT+00000008 8 BYTE(S) 00029110 PPARMP EQU DAWT+00000016 FULLWORD POINTER 00029120 LNGH EQU DAWT+00000020 HALFWORD INTEGER 00029130 A00104 EQU DAWT+00000022 1 BYTE(S) 00029140 TIOTNO EQU DAWT+00000023 1 BYTE(S) 00029150 TIOTP EQU DAWT+00000024 FULLWORD POINTER 00029160 RTCODE EQU DAWT+00000028 FULLWORD INTEGER 00029170 DAWTQMPA EQU DAWT+00000032 36 BYTE(S) 00029180 DAWTEIOB EQU DAWT+00000068 84 BYTE(S) 00029190 DAWA1 EQU DAWT+00000152 176 BYTE(S) 00029200 DAWA2 EQU DAWT+00000328 176 BYTE(S) 00029210 DAWTVARY EQU DAWT+00000504 48 BYTE(S) 00029220 A00105 EQU 00000504 48 BYTE(S) ON WORD 00029230 DD1ADD EQU A00105+00000000 FULLWORD POINTER 00029240 DD2ADD EQU A00105+00000004 FULLWORD POINTER 00029250 DAW1P EQU A00105+00000008 FULLWORD POINTER 00029260 DSNADD EQU A00105+00000012 FULLWORD POINTER 00029270 ADDNAME1 EQU A00105+00000016 FULLWORD POINTER 00029280 ADDNAME2 EQU A00105+00000020 FULLWORD POINTER 00029290 AFDSE EQU A00105+00000024 FULLWORD POINTER 00029300 ANDSE EQU A00105+00000028 FULLWORD POINTER 00029310 ADSNDSE EQU A00105+00000032 FULLWORD POINTER 00029320 A00106 EQU A00105+00000036 FULLWORD INTEGER 00029330 A00107 EQU A00105+00000040 FULLWORD INTEGER 00029340 A00108 EQU A00105+00000044 4 BYTE(S) 00029350 VFLAGS EQU A00105+00000044 1 BYTE(S) 00029360 DDNAME1 EQU A00105+00000044 1 BIT(S) 00029370 DDNAME2 EQU A00105+00000044 1 BIT(S) 00029380 DSNAM EQU A00105+00000044 1 BIT(S) 00029390 SERCHTCB EQU A00105+00000044 1 BIT(S) 00029400 CONCTGRP EQU A00105+00000044 1 BIT(S) 00029410 A00109 EQU A00105+00000044 3 BIT(S) 00029420 CONCOUNT EQU A00105+00000045 1 BYTE(S) 00029430 A00110 EQU A00105+00000046 2 BYTE(S) 00029440 A00111 EQU 00000504 45 BYTE(S) ON WORD 00029450 OLDDSE EQU A00111+00000000 FULLWORD POINTER 00029460 NEWDSE EQU A00111+00000004 FULLWORD POINTER 00029470 A00112 EQU A00111+00000008 FULLWORD INTEGER 00029480 ADDINIT EQU A00111+00000012 FULLWORD POINTER 00029490 LASTDSE EQU A00111+00000016 FULLWORD POINTER 00029500 A00113 EQU A00111+00000020 24 BYTE(S) 00029510 A00114 EQU A00111+00000044 1 BYTE(S) ON WORD 00029520 A00115 EQU A00111+00000044 1 BYTE(S) ON WORD 00029530 A00116 EQU A00111+00000044 5 BIT(S) 00029540 ONEBLK EQU A00111+00000044 1 BIT(S) 00029550 DSEFRONT EQU A00111+00000044 1 BIT(S) 00029560 DSEBACK EQU A00111+00000044 1 BIT(S) 00029570 INFMJFCB EQU 00000000 94 BYTE(S) ON WORD 00029580 JFCBDSNM EQU INFMJFCB+00000000 44 BYTE(S) 00029590 JFCBQNAM EQU INFMJFCB+00000000 8 BYTE(S) 00029600 JFCBELNM EQU INFMJFCB+00000044 8 BYTE(S) 00029610 JFCBTSDM EQU INFMJFCB+00000052 8 BIT(S) 00029620 JFCCAT EQU INFMJFCB+00000052 1 BIT(S) 00029630 JFCVSL EQU INFMJFCB+00000052 1 BIT(S) 00029640 JFCSDS EQU INFMJFCB+00000052 1 BIT(S) 00029650 JFCTTR EQU INFMJFCB+00000052 1 BIT(S) 00029660 JFCNWRIT EQU INFMJFCB+00000052 1 BIT(S) 00029670 JFCNDSCB EQU INFMJFCB+00000052 1 BIT(S) 00029680 JFCNDCB EQU INFMJFCB+00000052 1 BIT(S) 00029690 JFCPAT EQU INFMJFCB+00000052 1 BIT(S) 00029700 JFCBSYSC EQU INFMJFCB+00000053 13 BYTE(S) 00029710 A00117 EQU INFMJFCB+00000053 3 BYTE(S) 00029720 JFCFCBID EQU INFMJFCB+00000056 4 BYTE(S) 00029730 A00118 EQU INFMJFCB+00000060 6 BYTE(S) 00029740 JFCBLTYP EQU INFMJFCB+00000066 8 BIT(S) 00029750 A00119 EQU INFMJFCB+00000066 1 BIT(S) 00029760 JFCBAL EQU INFMJFCB+00000066 1 BIT(S) 00029770 A00120 EQU INFMJFCB+00000066 1 BIT(S) 00029780 JFCBLP EQU INFMJFCB+00000066 1 BIT(S) 00029790 JFCSUL EQU INFMJFCB+00000066 1 BIT(S) 00029800 JFCNSL EQU INFMJFCB+00000066 1 BIT(S) 00029810 JFCSL EQU INFMJFCB+00000066 1 BIT(S) 00029820 JFCNL EQU INFMJFCB+00000066 1 BIT(S) 00029830 JFCBOTTR EQU INFMJFCB+00000067 3 BYTE(S) 00029840 JFCBUFOF EQU INFMJFCB+00000067 1 BYTE POINTER 00029850 JFCBFOFL EQU INFMJFCB+00000067 1 BIT(S) 00029860 JFCBFLSQ EQU INFMJFCB+00000068 2 BYTE INTEGER 00029870 JFCBVLSQ EQU INFMJFCB+00000070 HALFWORD INTEGER 00029880 JFCBMASK EQU INFMJFCB+00000072 8 BYTE(S) 00029890 JFCBOPS1 EQU INFMJFCB+00000072 5 BYTE(S) 00029900 JFCBFLG1 EQU INFMJFCB+00000077 8 BIT(S) 00029910 JFCSTAND EQU INFMJFCB+00000077 1 BIT(S) 00029920 JFCSLCRE EQU INFMJFCB+00000077 1 BIT(S) 00029930 JFCSLDES EQU INFMJFCB+00000077 1 BIT(S) 00029940 JFCDUAL EQU INFMJFCB+00000077 1 BIT(S) 00029950 JFCOPEN EQU INFMJFCB+00000077 4 BIT(S) 00029960 JFCBFLG2 EQU INFMJFCB+00000078 8 BIT(S) 00029970 JFCINOP EQU INFMJFCB+00000078 1 BIT(S) 00029980 JFCOUTOP EQU INFMJFCB+00000078 1 BIT(S) 00029990 JFCDEFER EQU INFMJFCB+00000078 1 BIT(S) 00030000 JFCMODNW EQU INFMJFCB+00000078 1 BIT(S) 00030010 A00121 EQU INFMJFCB+00000078 2 BIT(S) 00030020 JFCBBUFF EQU INFMJFCB+00000078 1 BIT(S) 00030030 A00122 EQU INFMJFCB+00000078 1 BIT(S) 00030040 JFCBOPS2 EQU INFMJFCB+00000079 8 BIT(S) 00030050 JFCBCRDT EQU INFMJFCB+00000080 3 BYTE(S) 00030060 JFCBXPDT EQU INFMJFCB+00000083 3 BYTE(S) 00030070 JFCBIND1 EQU INFMJFCB+00000086 8 BIT(S) 00030080 JFCRLSE EQU INFMJFCB+00000086 2 BIT(S) 00030090 JFCLOC EQU INFMJFCB+00000086 2 BIT(S) 00030100 JFCADDED EQU INFMJFCB+00000086 2 BIT(S) 00030110 JFCGDG EQU INFMJFCB+00000086 1 BIT(S) 00030120 JFCPDS EQU INFMJFCB+00000086 1 BIT(S) 00030130 JFCBIND2 EQU INFMJFCB+00000087 8 BIT(S) 00030140 JFCDISP EQU INFMJFCB+00000087 2 BIT(S) 00030150 JFCSECUR EQU INFMJFCB+00000087 2 BIT(S) 00030160 JFCSHARE EQU INFMJFCB+00000087 1 BIT(S) 00030170 JFCENT EQU INFMJFCB+00000087 1 BIT(S) 00030180 JFCREQ EQU INFMJFCB+00000087 1 BIT(S) 00030190 JFCTEMP EQU INFMJFCB+00000087 1 BIT(S) 00030200 JFCBUFNO EQU INFMJFCB+00000088 1 BYTE(S) 00030210 JFCBUFIN EQU INFMJFCB+00000088 1 BYTE(S) 00030220 JFCBFOUT EQU INFMJFCB+00000088 1 BYTE(S) 00030230 JFCBUFRQ EQU INFMJFCB+00000088 1 BYTE(S) 00030240 JFCBHIAR EQU INFMJFCB+00000089 1 BYTE(S) 00030250 JFCBFALN EQU INFMJFCB+00000089 1 BYTE(S) 00030260 JFCBFTEK EQU INFMJFCB+00000089 8 BIT(S) 00030270 JFCSIM EQU INFMJFCB+00000089 1 BIT(S) 00030280 JFCEXC EQU INFMJFCB+00000089 1 BIT(S) 00030290 JFCDYN EQU INFMJFCB+00000089 1 BIT(S) 00030300 JFCHIER1 EQU INFMJFCB+00000089 1 BIT(S) 00030310 JFCDWORD EQU INFMJFCB+00000089 1 BIT(S) 00030320 JFCFWORD EQU INFMJFCB+00000089 1 BIT(S) 00030330 JFCBUFL EQU INFMJFCB+00000090 HALFWORD INTEGER 00030340 JFCEROPT EQU INFMJFCB+00000092 8 BIT(S) 00030350 JFCACC EQU INFMJFCB+00000092 1 BIT(S) 00030360 JFCSKP EQU INFMJFCB+00000092 1 BIT(S) 00030370 JFCABN EQU INFMJFCB+00000092 1 BIT(S) 00030380 A00123 EQU INFMJFCB+00000092 5 BIT(S) 00030390 JFCTRTCH EQU INFMJFCB+00000093 1 BYTE(S) 00030400 JFCKEYLE EQU 00000093 1 BYTE(S) 00030410 JFCMODE EQU JFCKEYLE+00000000 8 BIT(S) ON BYTE 00030420 JFCCODE EQU JFCKEYLE+00000000 8 BIT(S) ON BYTE 00030430 JFCNOCON EQU JFCKEYLE+00000000 1 BIT(S) 00030440 JFCBCD EQU JFCKEYLE+00000000 1 BIT(S) 00030450 JFCFRI EQU JFCKEYLE+00000000 1 BIT(S) 00030460 JFCBUR EQU JFCKEYLE+00000000 1 BIT(S) 00030470 JFCNCR EQU JFCKEYLE+00000000 1 BIT(S) 00030480 JFCASCII EQU JFCKEYLE+00000000 1 BIT(S) 00030490 JFCTTY EQU JFCKEYLE+00000000 1 BIT(S) 00030500 A00124 EQU JFCKEYLE+00000000 1 BIT(S) 00030510 JFCSTACK EQU 00000093 8 BIT(S) ON BYTE 00030520 JFCBIN EQU JFCSTACK+00000000 1 BIT(S) 00030530 JFCEBCD EQU JFCSTACK+00000000 1 BIT(S) 00030540 A00125 EQU JFCSTACK+00000000 4 BIT(S) 00030550 JFCTWO EQU JFCSTACK+00000000 1 BIT(S) 00030560 JFCONE EQU JFCSTACK+00000000 1 BIT(S) 00030570 JFCSPPRT EQU 00000093 20 BYTE(S) ON WORD 00030580 JFCPRTSP EQU JFCSPPRT+00000000 8 BIT(S) ON BYTE 00030590 JFCDEN EQU JFCSPPRT+00000001 8 BIT(S) 00030600 JFCLIMCT EQU JFCSPPRT+00000002 3 BYTE(S) 00030610 A00126 EQU JFCSPPRT+00000002 1 BYTE(S) 00030620 JFCTRKBL EQU JFCSPPRT+00000003 2 BYTE(S) 00030630 JFCDSORG EQU JFCSPPRT+00000005 16 BIT(S) 00030640 JFCDSRG1 EQU JFCSPPRT+00000005 8 BIT(S) 00030650 JFCORGIS EQU JFCSPPRT+00000005 1 BIT(S) 00030660 JFCORGPS EQU JFCSPPRT+00000005 1 BIT(S) 00030670 JFCORGDA EQU JFCSPPRT+00000005 1 BIT(S) 00030680 A00127 EQU JFCSPPRT+00000005 3 BIT(S) 00030690 JFCORGPO EQU JFCSPPRT+00000005 1 BIT(S) 00030700 JFCORGU EQU JFCSPPRT+00000005 1 BIT(S) 00030710 JFCDSRG2 EQU JFCSPPRT+00000006 8 BIT(S) 00030720 JFCORGGS EQU JFCSPPRT+00000006 1 BIT(S) 00030730 A00128 EQU JFCSPPRT+00000006 7 BIT(S) 00030740 JFCRECFM EQU JFCSPPRT+00000007 8 BIT(S) 00030750 JFCFMRC EQU JFCSPPRT+00000007 3 BIT(S) 00030760 JFCFMREC EQU JFCSPPRT+00000007 2 BIT(S) 00030770 JFCRFO EQU JFCSPPRT+00000007 1 BIT(S) 00030780 JFCRFB EQU JFCSPPRT+00000007 1 BIT(S) 00030790 JFCRFS EQU JFCSPPRT+00000007 1 BIT(S) 00030800 JFCCHAR EQU JFCSPPRT+00000007 2 BIT(S) 00030810 A00129 EQU JFCSPPRT+00000007 1 BIT(S) 00030820 JFCOPTCD EQU JFCSPPRT+00000008 8 BIT(S) 00030830 JFCWVCSP EQU JFCSPPRT+00000008 1 BIT(S) 00030840 JFCWVCIS EQU JFCSPPRT+00000008 1 BIT(S) 00030850 JFCWVCBD EQU JFCSPPRT+00000008 1 BIT(S) 00030860 JFCSDNAM EQU JFCSPPRT+00000008 1 BIT(S) 00030870 JFCALLOW EQU JFCSPPRT+00000008 1 BIT(S) 00030880 A00130 EQU JFCSPPRT+00000008 1 BIT(S) 00030890 JFCOVER EQU JFCSPPRT+00000008 1 BIT(S) 00030900 JFCWUMSG EQU JFCSPPRT+00000008 1 BIT(S) 00030910 JFCPCIBT EQU JFCSPPRT+00000008 1 BIT(S) 00030920 JFCMAST EQU JFCSPPRT+00000008 1 BIT(S) 00030930 JFCEXT EQU JFCSPPRT+00000008 1 BIT(S) 00030940 JFCCBWU EQU JFCSPPRT+00000008 1 BIT(S) 00030950 A00131 EQU JFCSPPRT+00000008 1 BIT(S) 00030960 JFCIND EQU JFCSPPRT+00000008 1 BIT(S) 00030970 JFCFEED EQU JFCSPPRT+00000008 1 BIT(S) 00030980 A00132 EQU JFCSPPRT+00000008 1 BIT(S) 00030990 JFCCYL EQU JFCSPPRT+00000008 1 BIT(S) 00031000 JFCACT EQU JFCSPPRT+00000008 1 BIT(S) 00031010 JFCOPTQ EQU JFCSPPRT+00000008 1 BIT(S) 00031020 JFCREDUC EQU JFCSPPRT+00000008 1 BIT(S) 00031030 A00133 EQU JFCSPPRT+00000008 1 BIT(S) 00031040 A00134 EQU JFCSPPRT+00000008 1 BIT(S) 00031050 JFCSRCHD EQU JFCSPPRT+00000008 1 BIT(S) 00031060 A00135 EQU JFCSPPRT+00000008 1 BIT(S) 00031070 JFCDEL EQU JFCSPPRT+00000008 1 BIT(S) 00031080 A00136 EQU JFCSPPRT+00000008 1 BIT(S) 00031090 A00137 EQU JFCSPPRT+00000008 1 BIT(S) 00031100 JFCREORG EQU JFCSPPRT+00000008 1 BIT(S) 00031110 JFCREL EQU JFCSPPRT+00000008 1 BIT(S) 00031120 JFCBLKSI EQU JFCSPPRT+00000009 2 BYTE INTEGER 00031130 JFCBUFSI EQU JFCSPPRT+00000009 2 BYTE INTEGER 00031140 JFCLRECL EQU JFCSPPRT+00000011 2 BYTE INTEGER 00031150 JFCNCP EQU JFCSPPRT+00000013 1 BYTE(S) 00031160 JFCBUFMX EQU JFCSPPRT+00000013 1 BYTE(S) 00031170 JFCNTM EQU JFCSPPRT+00000014 1 BYTE(S) 00031180 JFCPCI EQU JFCSPPRT+00000014 1 BYTE(S) 00031190 JFCRKP EQU JFCSPPRT+00000015 2 BYTE INTEGER 00031200 JFCRESRV EQU JFCSPPRT+00000015 2 BYTE INTEGER 00031210 JFCCYLOF EQU JFCSPPRT+00000017 1 BYTE(S) 00031220 JFCDBUFN EQU JFCSPPRT+00000018 1 BYTE(S) 00031230 JFCINTVL EQU JFCSPPRT+00000019 1 BYTE(S) 00031240 JFCUCSEG EQU 00000108 68 BYTE(S) ON WORD 00031250 JFCUCSID EQU JFCUCSEG+00000000 4 BYTE(S) 00031260 JFCUCSOP EQU JFCUCSEG+00000004 8 BIT(S) 00031270 A00138 EQU JFCUCSEG+00000004 1 BIT(S) 00031280 JFCFOLD EQU JFCUCSEG+00000004 1 BIT(S) 00031290 A00139 EQU JFCUCSEG+00000004 1 BIT(S) 00031300 JFCVER EQU JFCUCSEG+00000004 1 BIT(S) 00031310 JFCFCBAL EQU JFCUCSEG+00000004 1 BIT(S) 00031320 JFCFCBVR EQU JFCUCSEG+00000004 1 BIT(S) 00031330 A00140 EQU JFCUCSEG+00000004 2 BIT(S) 00031340 JFCOUTLI EQU JFCUCSEG+00000005 1 BYTE(S) 00031350 JFCTHRSH EQU JFCUCSEG+00000005 1 BYTE(S) 00031360 JFCCPRI EQU JFCUCSEG+00000005 8 BIT(S) 00031370 JFCSEND EQU JFCUCSEG+00000005 1 BIT(S) 00031380 JFCEQUAL EQU JFCUCSEG+00000005 1 BIT(S) 00031390 JFCRECV EQU JFCUCSEG+00000005 1 BIT(S) 00031400 A00141 EQU JFCUCSEG+00000005 5 BIT(S) 00031410 JFCSOWA EQU JFCUCSEG+00000006 HALFWORD INTEGER 00031420 JFCBNTCS EQU JFCUCSEG+00000008 1 BYTE(S) 00031430 JFCBNVOL EQU JFCUCSEG+00000009 1 BYTE(S) 00031440 JFCBVOLS EQU JFCUCSEG+00000010 30 BYTE(S) 00031450 JFCBEXTL EQU JFCUCSEG+00000040 1 BYTE(S) 00031460 JFCBEXAD EQU JFCUCSEG+00000041 3 BYTE(S) 00031470 JFCBPQTY EQU JFCUCSEG+00000044 3 BYTE(S) 00031480 JFCBCTRI EQU JFCUCSEG+00000047 8 BIT(S) 00031490 JFCBSPAC EQU JFCUCSEG+00000047 2 BIT(S) 00031500 A00142 EQU JFCUCSEG+00000047 1 BIT(S) 00031510 A00143 EQU JFCUCSEG+00000047 1 BIT(S) 00031520 JFCONTIG EQU JFCUCSEG+00000047 1 BIT(S) 00031530 JFCMIXG EQU JFCUCSEG+00000047 1 BIT(S) 00031540 JFCALX EQU JFCUCSEG+00000047 1 BIT(S) 00031550 JFCROUND EQU JFCUCSEG+00000047 1 BIT(S) 00031560 JFCBSQTY EQU JFCUCSEG+00000048 3 BYTE(S) 00031570 A00144 EQU JFCUCSEG+00000051 1 BYTE(S) 00031580 JFCBDQTY EQU JFCUCSEG+00000052 3 BYTE(S) 00031590 JFCBSPNM EQU JFCUCSEG+00000055 3 BYTE POINTER 00031600 JFCBABST EQU JFCUCSEG+00000058 HALFWORD INTEGER 00031610 JFCBSBNM EQU JFCUCSEG+00000060 3 BYTE POINTER 00031620 JFCBDRLH EQU JFCUCSEG+00000063 3 BYTE(S) 00031630 JFCBVLCT EQU JFCUCSEG+00000066 1 BYTE(S) 00031640 JFCBSPTN EQU JFCUCSEG+00000067 1 BYTE(S) 00031650 JFCBEND EQU JFCUCSEG+00000068 BYTE(S) 00031660 PASSPARM EQU 00000328 20 BYTE(S) ON WORD 00031670 SVDSEPTR EQU PASSPARM+00000000 FULLWORD INTEGER 00031680 SVRTCODE EQU PASSPARM+00000004 FULLWORD INTEGER 00031690 SVTJBXPR EQU PASSPARM+00000008 FULLWORD INTEGER 00031700 SVALTPTR EQU PASSPARM+00000012 FULLWORD INTEGER 00031710 ALOCCNCT EQU PASSPARM+00000016 FULLWORD INTEGER 00031720 A00145 EQU 00000000 79 BYTE(S) ON WORD 00031730 PLNGH EQU A00145+00000000 HALFWORD INTEGER 00031740 PCODE EQU A00145+00000002 1 BYTE(S) 00031750 POPTIONS EQU A00145+00000003 8 BIT(S) 00031760 ODUMMY EQU A00145+00000003 1 BIT(S) 00031770 A00146 EQU A00145+00000003 1 BIT(S) 00031780 OTERM EQU A00145+00000003 1 BIT(S) 00031790 ODSNAME EQU A00145+00000003 1 BIT(S) 00031800 A00147 EQU A00145+00000003 1 BIT(S) 00031810 A00148 EQU A00145+00000003 1 BIT(S) 00031820 A00149 EQU A00145+00000003 1 BIT(S) 00031830 OEXCH EQU A00145+00000003 1 BIT(S) 00031840 PDDNM1 EQU A00145+00000004 8 BYTE(S) 00031850 A00150 EQU A00145+00000012 1 BYTE(S) 00031860 PDDNM2 EQU A00145+00000013 8 BYTE(S) 00031870 A00151 EQU A00145+00000021 1 BYTE(S) 00031880 PDISP1 EQU A00145+00000022 8 BIT(S) 00031890 A00152 EQU A00145+00000022 1 BIT(S) 00031900 A00153 EQU A00145+00000022 1 BIT(S) 00031910 A00154 EQU A00145+00000022 1 BIT(S) 00031920 A00155 EQU A00145+00000022 1 BIT(S) 00031930 D1SHR EQU A00145+00000022 1 BIT(S) 00031940 D1NEW EQU A00145+00000022 1 BIT(S) 00031950 D1MOD EQU A00145+00000022 1 BIT(S) 00031960 D1OLD EQU A00145+00000022 1 BIT(S) 00031970 PDISP2 EQU A00145+00000023 8 BIT(S) 00031980 A00156 EQU A00145+00000023 1 BIT(S) 00031990 A00157 EQU A00145+00000023 1 BIT(S) 00032000 A00158 EQU A00145+00000023 1 BIT(S) 00032010 A00159 EQU A00145+00000023 1 BIT(S) 00032020 D2KEEP EQU A00145+00000023 1 BIT(S) 00032030 D2DEL EQU A00145+00000023 1 BIT(S) 00032040 D2CAT EQU A00145+00000023 1 BIT(S) 00032050 D2UNCAT EQU A00145+00000023 1 BIT(S) 00032060 PDISP3 EQU A00145+00000024 8 BIT(S) 00032070 A00160 EQU A00145+00000024 1 BIT(S) 00032080 A00161 EQU A00145+00000024 1 BIT(S) 00032090 A00162 EQU A00145+00000024 1 BIT(S) 00032100 A00163 EQU A00145+00000024 1 BIT(S) 00032110 D3KEEP EQU A00145+00000024 1 BIT(S) 00032120 D3DEL EQU A00145+00000024 1 BIT(S) 00032130 D3CAT EQU A00145+00000024 1 BIT(S) 00032140 D3UNCAT EQU A00145+00000024 1 BIT(S) 00032150 PMNM EQU A00145+00000025 8 BYTE(S) 00032160 PPRIME EQU A00145+00000033 3 BYTE(S) 00032170 PDSNP EQU A00145+00000036 FULLWORD POINTER 00032180 PUNM EQU A00145+00000040 8 BYTE(S) 00032190 PCTB EQU A00145+00000048 8 BIT(S) 00032200 SUNITS EQU A00145+00000048 2 BIT(S) 00032210 A00164 EQU A00145+00000048 1 BIT(S) 00032220 SRLSE EQU A00145+00000048 1 BIT(S) 00032230 A00165 EQU A00145+00000048 1 BIT(S) 00032240 A00166 EQU A00145+00000048 1 BIT(S) 00032250 A00167 EQU A00145+00000048 1 BIT(S) 00032260 A00168 EQU A00145+00000048 1 BIT(S) 00032270 PSEC EQU A00145+00000049 3 BYTE(S) 00032280 PCLASS EQU A00145+00000052 1 BYTE(S) 00032290 PDIREC EQU A00145+00000053 3 BYTE(S) 00032300 PFORM EQU A00145+00000056 4 BYTE(S) 00032310 PPGMNM EQU A00145+00000060 8 BYTE(S) 00032320 PBLKSIZ EQU A00145+00000068 HALFWORD INTEGER 00032330 A00169 EQU A00145+00000070 2 BYTE(S) 00032340 PSERNO EQU A00145+00000072 6 BYTE(S) 00032350 A00170 EQU A00145+00000078 1 BYTE(S) 00032360 PARMDSN EQU 00000000 45 BYTE(S) ON WORD 00032370 PDSLEN EQU PARMDSN+00000000 1 BYTE POINTER 00032380 PDSNAME EQU PARMDSN+00000001 44 BYTE(S) 00032390 DSELSTPR EQU 00000007 FULLWORD POINTER REGISTER 00032400 DSELIST EQU 00000000 64 BYTE(S) ON WORD 00032410 A00171 EQU DSELIST+00000000 4 BYTE(S) 00032420 CONTROL EQU DSELIST+00000004 1 BYTE(S) ON WORD 00032430 A00172 EQU DSELIST+00000004 5 BIT(S) 00032440 PERMALLC EQU DSELIST+00000004 1 BIT(S) 00032450 A00173 EQU DSELIST+00000004 2 BIT(S) 00032460 TCBADD EQU DSELIST+00000005 3 BYTE POINTER ON WORD+1 00032470 PASSWORD EQU DSELIST+00000008 8 BYTE(S) 00032480 PSWRDTTR EQU DSELIST+00000016 3 BYTE(S) 00032490 DSLNGTH EQU DSELIST+00000019 1 BYTE(S) 00032500 DSNAME EQU DSELIST+00000020 44 BYTE(S) 00032510 R15 EQU 00000015 FULLWORD INTEGER REGISTER 00032520 R0 EQU 00000000 FULLWORD INTEGER REGISTER 00032530 R1 EQU 00000001 FULLWORD POINTER REGISTER 00032540 R14 EQU 00000014 FULLWORD INTEGER REGISTER 00032550 ALTPTR EQU 00000013 FULLWORD POINTER REGISTER 00032560 ADDNEXT EQU 00000009 FULLWORD POINTER REGISTER 00032570 DDNAME EQU 00000000 8 BYTE(S) 00032580 DS 00000000C 00032590 @L EQU 1 00032600 @DATD DSECT 00032610 DSEMPTR EQU @DATD+00000000 FULLWORD POINTER 00032620 TJBPTR EQU @DATD+00000004 FULLWORD POINTER 00032630 ALTLEN EQU @DATD+00000008 1 BYTE POINTER 00032640 DDNM1AD EQU @DATD+00000012 FULLWORD POINTER 00032650 DDNM2AD EQU @DATD+00000016 FULLWORD POINTER 00032660 DSNLGTH EQU @DATD+00000020 1 BYTE POINTER 00032670 DSEADDR EQU @DATD+00000024 FULLWORD POINTER 00032680 SAVER14 EQU @DATD+00000028 FULLWORD INTEGER 00032690 I EQU @DATD+00000032 FULLWORD INTEGER 00032700 DS 00000036C 00032710 @TEMPS DS 0F 00032720 DS C 00032730 @DATEND EQU * 00032740 IGC25099 CSECT , 00032750 END 00032760 ./ ADD SSI=03011020,NAME=IGC2609I,SOURCE=1 TITLE 'IGC26099 - DYNAMIC ALLOCATION DSE UPDATE ROUTINE' 00010000 TITLE 'IGC26099 - DYNAMIC ALLOCATION DSE UPDATE ROUTINE' 00020000 LCLA &T,&SPN MODULE 00030000 &SPN SETA 0 ID 00040000 IGC26099 CSECT 00050000 B 16(@0,@F) BRANCH AROUND ID 00060000 DC AL1(8) LENGTH OF MODULE NAME 00070000 DC CL8'IGC26099' MODULE NAME 00080000 DC CL3'090' JULIAN DATE A43020 00090000 AGO .@001 00100000 LCLA &T,&SPN 0003 00110000 .@001 ANOP 0003 00120000 IGC26099 CSECT , 0003 00130000 BALR @B,0 0003 00140000 @PSTART DS 0H 0003 00150000 USING @PSTART+00000,@B 0003 00160000 LR @C,@1 0003 00170000 L @0,@SIZ001 0003 00180000 GETMAIN R,LV=(0) 0003 00190000 XR @C,@1 0003 00200000 XR @1,@C 0003 00210000 XR @C,@1 0003 00220000 USING @DATD+00000,@C 0003 00230000 XC @TEMPS(@L),@TEMPS 0003 00240000 * PARMPTR = R1; /* SAVE ADDRESS OF DAWT */ 00250000 LR @3,@1 0063 00260000 * TJBXPTR = SVTJBXPR; /* GET TJBX ADDRESS */ 00270000 MVC TJBXPTR(4),336(@3) 0064 00280000 * TIOTP=TIOTPTER; /* GET ENTRY PTR */ 00290000 L @A,24(0,@3) 0065 00300000 * IF SVRTCODE ª= 0 THEN /* IF AN ERROR CODE */ 00310000 SR @F,@F 0066 00320000 C @F,332(0,@3) 0066 00330000 * GOTO FREEDAWT; /* TO */ 00340000 BC 07,FREEDAWT 0067 00350000 * IF ALOCCNCT ª= 0 THEN /* IF CONCATENATED DATA SET */ 00360000 C @F,344(0,@3) 0068 00370000 * GOTO LEAVE; /* OR GROUP HAS ALREADY BEEN*/ 00380000 BC 07,LEAVE 0069 00390000 * /* MARKED IN USE, LEAVE */ 00400000 * DSEPTR = SVDSEPTR; /* DSE ADDRESS */ 00410000 MVC DSEPTR(4),328(@3) 0070 00420000 * ALTPTR = SVALTPTR; /* NEW DSE ADDRESS */ 00430000 L @D,340(0,@3) 0071 00440000 * PPARMP = XPPARMP; /* SVC PARM LIST ADDRESS */ 00450000 L @8,16(0,@3) 0072 00460000 * DSELSTPR = PPARMP-64; /* ADDRESS OF DSE UPDATE */ 00470000 LH @2,@D1 0073 00480000 AR @2,@8 0073 00490000 * /* PARAMETER LIST */ 00500000 * IF PCODE = '06'X THEN /* PERFORM CONVERT */ 00510000 CLI 2(@8),X'06' 0074 00520000 * GOTO CONVTDSE; /* PROCESSING IF CODE = 06 */ 00530000 BC 08,CONVTDSE 0075 00540000 * IF OTERM = '1'B ³ ODUMMY = '1'B THEN /* IF DUMMY OR */ 00550000 TM 3(@8),B'00100000' 0076 00560000 BC 01,@9FF 0076 00570000 TM 3(@8),B'10000000' 0076 00580000 BC 12,@9FE 0076 00590000 * GOTO CHKPERM; /* TERMINAL SKIP THIS */ 00600000 BC 03,CHKPERM 0077 00610000 * /* PROCESSING */ 00620000 * 00630000 * 00640000 * /*** PLACE DEVICE TYPE AND SERIAL NO. INTO DATASET ****/ 00650000 * /***** PARAMETER LIST ********/ 00660000 * /***** MOVE IF NOT SUB-UCB */ 00670000 * 00680000 * IF TIOEFSRT->UCBID = 'FF'X THEN /* IF MAIN UCB */ 00690000 @9FE L @9,40(0,@A) 0078 00700000 CLI 2(@9),X'FF' 0078 00710000 BC 07,@9FD 0078 00720000 * DO; /* MOVE */ 00730000 * PUNM(1:4)=TIOEFSRT->UCBTYP; /* DEVICE TYPE TO */ 00740000 MVC 40(4,@8),16(@9) 0080 00750000 * /* PARAMETER LIST */ 00760000 * PSERNO = TIOEFSRT->UCBVOLI; /*SERIAL NUMBER */ 00770000 MVC 72(6,@8),28(@9) 0081 00780000 BC 15,@9FC 0083 00790000 * END; /* ALSO */ 00800000 * 00810000 * /** UCB ADDRESS IS FOR SUB-UCB, ADJUST FOR DEV. TYPE **/ 00820000 * 00830000 * ELSE /* USE */ 00840000 * DO; /* SUB-UCB */ 00850000 * UCBDCPTR = TIOEFSRT; /* SUB-UCB ADDRESS */ 00860000 @9FD MVC @TEMP3+1(3),41(@A) 0084 00870000 L @6,@TEMP3 0084 00880000 * PSERNO = UCBDVOLI; /* SERIAL NUMBER TO */ 00890000 MVC 72(6,@8),4(@6) 0085 00900000 * /* PARAMETER LIST */ 00910000 * UCBPTR = UCBDCPTR-56-(16 * UCBDBBNR); /* GET */ 00920000 LH @E,0(0,@6) 0086 00930000 SLA @E,4 0086 00940000 LCR @E,@E 0086 00950000 SH @E,@D2 0086 00960000 AR @E,@6 0086 00970000 LR @7,@E 0086 00980000 * /* MAIN UCB ADDRESS */ 00990000 * PUNM(1:4)=UCBTYP; /* DEVICE TYPE TO LIST */ 01000000 MVC 40(4,@8),16(@7) 0087 01010000 * END; 01020000 * CHKPERM: 01030000 * IF PERMALLC = '1'B THEN /* SET DSE PERMANENTLY */ 01040000 @9FC EQU * 0089 01050000 CHKPERM TM 4(@2),B'00000100' 0089 01060000 BC 12,@9FB 0089 01070000 * ALTPTR->DSEPERM = '1'B; /* ALLOCATED IF IT IS */ 01080000 OI 11(@D),B'00000010' 0090 01090000 * /* REQUESTED */ 01100000 * MOVTCBAD: 01110000 * ALTPTR->DSETCBAD = TCBADD; /* TCB ADDRESS TO NEW DSE */ 01120000 @9FB EQU * 0091 01130000 MOVTCBAD MVC 21(3,@D),5(@2) 0091 01140000 MVI 20(@D),X'00' 0091 01150000 * ALTPTR->DSEDYN = '1'B; /* SET DYNAMICALLY ALLOCATED*/ 01160000 OI 11(@D),B'10000000' 0092 01170000 * 01180000 * 01190000 * /******************************************************/ 01200000 * /**** SET UP TO CALL DSECHAIN SUBROUTINE WHICH WILL ***/ 01210000 * /****** CHAIN THE NEW DSE INTO THE DSE CHAIN ******/ 01220000 * /******************************************************/ 01230000 * 01240000 * OLDDSE = ADDNAME1; /* ADDRESS OF THE OLD DSE */ 01250000 MVC 504(4,@3),520(@3) 0093 01260000 * /* TO BE REMOVED FROM DSE */ 01270000 * /* CHAIN */ 01280000 * NEWDSE = ALTPTR; /* ADDRESS OF NEW DSE TO BE */ 01290000 ST @D,508(0,@3) 0094 01300000 * /* CHAINED */ 01310000 * VFLAGS = '00'X; /* CLEAR INDICATOR BITS */ 01320000 MVI 548(@3),X'00' 0095 01330000 * CALL DSECHAIN; /* CHAIN NEW DSE IN FRONT */ 01340000 BAL @E,DSECHAIN 0096 01350000 * ALTPTR->DSESTAT=PDISP1; /* STATUS TO DSE */ 01360000 MVC 10(1,@D),22(@8) 0097 01370000 * IF JFCTEMP = '1'B & /* IF TEMP DS, AND YM5153*/ 01380000 * PCODE='06'X THEN /* CONVERT FUNC.DONT YM5153*/ 01390000 L @9,512(0,@3) 0098 01400000 TM 87(@9),B'00000001' 0098 01410000 BC 12,@9FA 0098 01420000 CLI 2(@8),X'06' 0098 01430000 * GOTO SKIPDISP; /* ALLOW DISP CHANGE A52105*/ 01440000 BC 08,SKIPDISP 0099 01450000 * IF PDISP2ª='00'X THEN /* IF A NORMAL DISPOSITION */ 01460000 @9F9 EQU * 0100 01470000 @9FA CLI 23(@8),X'00' 0100 01480000 BC 08,@9F8 0100 01490000 * ALTPTR->DSENDISP = /* WAS SPECIFIED, PLACE IT */ 01500000 * PDISP2; /* IN THE DSE */ 01510000 MVC 28(1,@D),23(@8) 0101 01520000 * IF PDISP3ª='00'X THEN /* IF AN ABNORMAL */ 01530000 @9F8 CLI 24(@8),X'00' 0102 01540000 BC 08,@9F7 0102 01550000 * ALTPTR->DSEADISP = /* DISPOSITION WAS SPECIFIED*/ 01560000 * PDISP3; /* PLACE IT IN THE DSE */ 01570000 MVC 29(1,@D),24(@8) 0103 01580000 * SKIPDISP: /* A52105*/ 01590000 * IF TIOEFSRT = 0 THEN /* IF DATA SET IS NOT A52105*/ 01600000 @9F7 EQU * 0104 01610000 SKIPDISP SR @F,@F 0104 01620000 MVC @TEMP3+1(3),41(@A) 0104 01630000 C @F,@TEMP3 0104 01640000 * GOTO NOPASSWD; /* ALLOCATED, BYPASS M2053*/ 01650000 BC 08,NOPASSWD 0105 01660000 * /* GETTING THE DSORG A43020*/ 01670000 * IF ALTPTR->DSEDSORGª='00'X THEN /* IF THE DSORG IS IN */ 01680000 CLI 30(@D),X'00' 0106 01690000 * GOTO CHKMEMBR; /* THE NEW DSE, GO TO CHECK */ 01700000 BC 07,CHKMEMBR 0107 01710000 * ELSE /* FOR A MEMBER NAME */ 01720000 * DO; /* DSORG IS NOT IN DSE, */ 01730000 * IF PCODE = '06'X THEN /* IF THE DISP IS OLD THEN */ 01740000 CLI 2(@8),X'06' 0109 01750000 * GOTO OBTNDSRG; /* GET THE DSORG A43020*/ 01760000 BC 08,OBTNDSRG 0110 01770000 * IF D1OLD = '1'B ³ 01780000 * D1SHR = '1'B THEN /* FROM DSCB VIA THE A43020*/ 01790000 TM 22(@8),B'00000001' 0111 01800000 BC 01,@9F6 0111 01810000 TM 22(@8),B'00001000' 0111 01820000 BC 12,@9F5 0111 01830000 * GOTO OBTNDSRG; /* UPDATE PARM LIST A43020*/ 01840000 BC 03,OBTNDSRG 0112 01850000 * IF D1MOD = '0'B THEN /* IF THE DISP IS NOT MOD, */ 01860000 @9F5 TM 22(@8),B'00000010' 0113 01870000 * GOTO CHKDIREC; /* CHECK DIRECTORY QUANTITY */ 01880000 BC 08,CHKDIREC 0114 01890000 * 01900000 * /* DISP IS MOD, CHECK JFCB TO SEE IF STATUS */ 01910000 * /* IS MARKED AS NEW */ 01920000 * 01930000 * IF JFCMODNWª= '1'B THEN /* IF */ 01940000 L @9,512(0,@3) 0115 01950000 TM 78(@9),B'00010000' 0115 01960000 * GOTO OBTNDSRG; /* DISP IS NOT NEW, */ 01970000 BC 12,OBTNDSRG 0116 01980000 * /* GET DSORG A43020*/ 01990000 * CHKDIREC: 02000000 * IF PDIREC ª= '000000'X THEN/* 02010000 * IF A DIRECTORY A43020*/ 02020000 CHKDIREC CLC 53(3,@8),@X6 0117 02030000 BC 08,@9F4 0117 02040000 * /* QUANTITY A43020*/ 02050000 * DO; /* IS SPECIFIED, SET */ 02060000 * ALTPTR->DSEDSORG='02'X; /* PARTITIONED ORGANIZ*/ 02070000 MVI 30(@D),X'02' 0119 02080000 * /* IN NEW DSE AND GO */ 02090000 * GOTO CHKMEMBR; /* CHECK FOR A PASSWORDM2055*/ 02100000 BC 15,CHKMEMBR 0120 02110000 * END; 02120000 * ALTPTR->DSEDSORG='40'X; /* NO DIRECTORY QUANTITY,*/ 02130000 @9F4 MVI 30(@D),X'40' 0122 02140000 * /* SET DSORG = PS AND */ 02150000 * GOTO CHKPSSWD; /* GO CHECK FOR A PASSWORD */ 02160000 BC 15,CHKPSSWD 0123 02170000 * OBTNDSRG: /* MOVE THE DSORG A43020*/ 02180000 * ALTPTR->DSEDSORG=OBTDSORG; /* PUT DSORG INTOA43020*/ 02190000 OBTNDSRG MVC 30(1,@D),1(@2) 0124 02200000 * /* DSE FROM THE DSCB A43020*/ 02210000 * CHKMEMBR: /* M2053*/ 02220000 * IF ALTPTR->DSEDSORG = '02'X & /* IF DATA SET IS PO*/ 02230000 * PMNM (1) ª= '40'X THEN /* AND MEMBER NAME ISA43020*/ 02240000 CHKMEMBR CLI 30(@D),X'02' 0125 02250000 BC 07,@9F3 0125 02260000 CLI 25(@8),X'40' 0125 02270000 BC 08,@9F2 0125 02280000 * DO; /* SPECIFIED, MOVE IT INTO */ 02290000 * DSEMPTR = ADDR(ALTPTR->DSEDSNAM)+ALTPTR->DSEDSLNG; 02300000 SR @F,@F 0127 02310000 IC @F,31(0,@D) 0127 02320000 LA @0,32(0,@D) 0127 02330000 AR @F,@0 0127 02340000 ST @F,DSEMPTR 0127 02350000 * DSEMEMBR = PMNM; /* THE NEW DSE */ 02360000 LR @9,@F 0128 02370000 MVC 0(8,@9),25(@8) 0128 02380000 * ALTPTR->DSEMEM = '1'B; /* SET MEMBER NAME */ 02390000 OI 11(@D),B'00100000' 0129 02400000 BC 15,@9F1 0131 02410000 * /* PRESENT IN THIS DSE */ 02420000 * END; 02430000 * ELSE 02440000 * ALTPTR->DSEMEM='0'B; /* INDICATE MEMBER NAME */ 02450000 @9F2 EQU * 0131 02460000 @9F3 NI 11(@D),B'11011111' 0131 02470000 * /* NOT PRESENT */ 02480000 * END; 02490000 @9F1 EQU * 0132 02500000 * CHKPSSWD: 02510000 * IF PASSWORD(1:4) = 0 THEN /* IF NO PASSWORD IS IN */ 02520000 CHKPSSWD CLC 8(4,@2),@D3 0133 02530000 * GOTO NOPASSWD; /* DSE UPDATE PARAM LIST, */ 02540000 BC 08,NOPASSWD 0134 02550000 * /* DO NOT CHECK FOR TTR */ 02560000 * IF ALTPTR->DSETTRPWª=0 THEN /* IF TTR IS ALREADY IN*/ 02570000 SR @F,@F 0135 02580000 C @F,24(0,@D) 0135 02590000 * GOTO NOPASSWD; /* DSE, DO NOT TRY TO GET IT*/ 02600000 BC 07,NOPASSWD 0136 02610000 * 02620000 * /******************************************************/ 02630000 * /** USE PROTECT TO GET DESIRED PASSWORD TTR FOR DSE ***/ 02640000 * /******************************************************/ 02650000 * 02660000 * R0 = 16; /* AMOUNT CORE FOR PROTECT */ 02670000 LA @0,16 0137 02680000 * /* PARAMETER LIST */ 02690000 * GENERATE; /* DO GETMAIN */ 02700000 GETMAIN R,LV=(0) GET CORE FOR PARAM LIST 02710000 DS 0H 02720000 * LISTPTR = R1; /* SAVE CORE ADDRESS */ 02730000 LR @5,@1 0139 02740000 * 02750000 * /******************************************************/ 02760000 * /*********** INITIALIZE PROTECT PARAMETER *************/ 02770000 * /************ LIST TO GET PASSWORD TTR ****************/ 02780000 * /******************************************************/ 02790000 * 02800000 * TTRBUFF = 0; /* IN CASE OF FAILURE */ 02810000 SR @F,@F 0140 02820000 ST @F,12(0,@5) 0140 02830000 * BUFFERAD = ADDR(TTRBUFF); /* ADDRESS OF BUFFER FOR TTR*/ 02840000 LA @F,12(0,@5) 0141 02850000 ST @F,0(0,@5) 0141 02860000 * NTRYCODE = '05'X; /* FUNCTION CODE FOR PROTECT*/ 02870000 MVI 0(@5),X'05' 0142 02880000 * DSNADDR = ADDR(ALTPTR->DSEDSNAM); /* DSNAME ADDRESS */ 02890000 LA @F,32(0,@D) 0143 02900000 ST @F,4(0,@5) 0143 02910000 * DSLEN = ALTPTR->DSEDSLNG; /* LENGTH OF DSNAME */ 02920000 MVC 4(1,@5),31(@D) 0144 02930000 * PASSWDAD = ADDR(PASSWORD); /* PASSWORD ADDRESS */ 02940000 LA @F,8(0,@2) 0145 02950000 ST @F,8(0,@5) 0145 02960000 * GENERATE; /* GET PASSWORD TTR */ 02970000 PROTECT (1) GET PASSWORD TTR 02980000 DS 0H 02990000 * ALTPTR->DSETTRPW = TTRBUFF; /* PLACE PASSWORD TTR IN */ 03000000 MVC 24(4,@D),12(@5) 0147 03010000 * /* DSE */ 03020000 * R0=16; /* FREE PROTECT LIST */ 03030000 LA @0,16 0148 03040000 * R1 = LISTPTR; /* ADDRESS OF PARAM LIST */ 03050000 LR @1,@5 0149 03060000 * GENERATE; 03070000 FREEMAIN R,LV=(0),A=(1) FREE PROTECT PARM LIST 03080000 DS 0H 03090000 * NOPASSWD: 03100000 * IF PCODE = '06'X THEN /* IF ENTRY WAS FROM CONVERT*/ 03110000 NOPASSWD CLI 2(@8),X'06' 0151 03120000 * GOTO LEAVE; /* DO NOT FREE OLD DSE */ 03130000 BC 08,LEAVE 0152 03140000 * R0 = OLDDSE->DSEBLKSZ; /* SIZE OF OLD DSE TO FREE */ 03150000 L @9,504(0,@3) 0153 03160000 LH @0,8(0,@9) 0153 03170000 * R0 = R0³'FF000000'X; /* FREE DSE FROM SP255 */ 03180000 O @0,@X10 0154 03190000 * R1 = OLDDSE; /* ADDRESS OF OLD DSE TO BE */ 03200000 L @1,504(0,@3) 0155 03210000 * GENERATE; /* FREED */ 03220000 FREEMAIN R,LV=(0),A=(1) FREE OLD DSE 03230000 DS 0H 03240000 * RELEASE (8); 03250000 * LEAVE: 03260000 * IF TCBTCT ª= 0 & /* IF SMF IS IN */ 03270000 * TCTIOTBLª= 0 THEN /* THE SYSTEM */ 03280000 LEAVE SR @F,@F 0158 03290000 L @8,CVTPTR 0158 03300000 L @8,0(0,@8) CVTMAP 0158 03310000 L @8,4(0,@8) TCBPTR 0158 03320000 C @F,164(0,@8) 0158 03330000 BC 08,@9F0 0158 03340000 L @9,164(0,@8) TCBOVLY1 0158 03350000 C @F,12(0,@9) 0158 03360000 * GOTO SMF; /* GO TO IT */ 03370000 BC 07,SMF 0159 03380000 * 03390000 * /******************************************************/ 03400000 * /********** SMF IS NOT IN THE SYSTEM, *****************/ 03410000 * /********* SET RETURN CODE AND FREE DAWT **************/ 03420000 * /******************************************************/ 03430000 * 03440000 * IF RTCODE ª= 0 THEN /* IF THERE IS A RETURN CODE*/ 03450000 @9EF EQU * 0160 03460000 @9F0 SR @F,@F 0160 03470000 C @F,28(0,@3) 0160 03480000 BC 08,@9EE 0160 03490000 * SVRTCODE = RTCODE; /* SAVE RETURN CODE FOR EXIT*/ 03500000 MVC 332(4,@3),28(@3) 0161 03510000 * 03520000 * /****** FREE THE DAWT AND EXIT ************/ 03530000 * 03540000 * FREEDAWT: 03550000 * R0 = LNGH; /* LENGTH OF DAWT TO FREE */ 03560000 @9EE EQU * 0162 03570000 FREEDAWT LH @0,20(0,@3) 0162 03580000 * R1 = PARMPTR; /* ADDRESS OF DAWT TO FREE */ 03590000 LR @1,@3 0163 03600000 * R13 = SVRTCODE; /* SAVE RETURN CODE FOR EXIT*/ 03610000 L @D,332(0,@3) 0164 03620000 * GENERATE; /* FREE DAWT */ 03630000 FREEMAIN R,LV=(0),A=(1) FREE DAWT 03640000 ******* FREE AUTOMATIC STORAGE ********* 03650000 BAL @E,@EL01 FREE AUTOMATIC STORAGE 03660000 LR @F,@D RETURN CODE TO REGISTER 15 03670000 SVC 3 EXIT 03680000 DS 0H 03690000 * SMF: 03700000 * IF RTCODE = 0 THEN /* IF NO RETURN CODE YET, */ 03710000 SMF SR @F,@F 0166 03720000 C @F,28(0,@3) 0166 03730000 BC 07,@9ED 0166 03740000 * RTCODE = SVRTCODE; /* USE ONE FROM DSE UPDTE */ 03750000 MVC 28(4,@3),332(@3) 0167 03760000 * XCTLEP(5) = '8'; /* SMF ENTRY POINT NAME */ 03770000 @9ED MVI 12(@3),C'8' 0168 03780000 * GENERATE; /* FREE AUTOMATIC STORAGE */ 03790000 BAL @E,@EL01 FREE AUTOMATIC STORAGE 03800000 DS 0H 03810000 * 03820000 * /****** TRANSFER CONTROL TO SMF ROUTINE *************/ 03830000 * 03840000 * R1 = PARMPTR; /* ADDRESS OF DAWT IN R1 */ 03850000 LR @1,@3 0170 03860000 * R15 = R1; /* ADDRESS OF XCTL PARMS IN */ 03870000 LR @F,@1 0171 03880000 * /* REGISTER 15 */ 03890000 * GENERATE; /* XCTL TO SMF */ 03900000 XCTL SF=(E,(15)) XCTL TO SMF 03910000 DS 0H 03920000 * RESTRICT (8); 03930000 * CONVTDSE: 03940000 * IF OEXCH = '1'B THEN /* EXCHANGE OPTION WAS */ 03950000 CONVTDSE TM 3(@8),B'00000001' 0174 03960000 BC 12,@9EC 0174 03970000 * ADDNAME2->DSEDDNAM = /* SPECIFIED, PLACE DDNAME1 */ 03980000 * PDDNM1; /* INTO DDNAME2 DSE */ 03990000 L @9,524(0,@3) 0175 04000000 MVC 12(8,@9),4(@8) 0175 04010000 * IF PDDNM2 (1) ª= '40'X THEN /* IF THERE IS A A43020*/ 04020000 @9EC CLI 13(@8),X'40' 0176 04030000 BC 08,@9EB 0176 04040000 * /* DDNAME2, A43020*/ 04050000 * ADDNAME1->DSEDDNAM = PDDNM2; /* PLACE IT INTO */ 04060000 L @9,520(0,@3) 0177 04070000 MVC 12(8,@9),13(@8) 0177 04080000 * /* DDNAME1 DSE */ 04090000 * ALTPTR = ADDNAME1; /* ADDRESS OF DSE FOR */ 04100000 @9EB L @D,520(0,@3) 0178 04110000 * /* FURTHER PROCESSING */ 04120000 * ALTPTR->DSENUSED = '0'B; /* SET DATA SET IN USE */ 04130000 NI 11(@D),B'10101111' 0179 04140000 * ALTPTR->DSEDTIOT = '0'B; /* TURN OFF DYNAM BIT M4243*/ 04150000 * GOTO CHKPERM; /* CHECK IF DATA SET IS TO */ 04160000 BC 15,CHKPERM 0181 04170000 * /* BE MARKED PERMANENTLY */ 04180000 * /* ALLOCATED */ 04190000 * 04200000 * /******************************************************/ 04210000 * /* THE DSE CHAIN SUBROUTINE WILL CHAIN THE ALLOCATED */ 04220000 * /* DSE ON THE FRONT OF THE DSE CHAIN. */ 04230000 * /******************************************************/ 04240000 * 04250000 * DSECHAIN: 04260000 * PROC 04270000 * OPTIONS(NOSAVEAREA,DONTSAVE); 04280000 @EL01 LR @1,@C 0182 04290000 L @0,@SIZ001 0182 04300000 FREEMAIN R,LV=(0),A=(1) 0182 04310000 BCR 15,@E 0182 04320000 * RESTRICT (2,3,5,8); 04330000 * 04340000 * /***** REMOVE THE OLD DSE FROM THE DSECHAIN ********/ 04350000 * 04360000 * IF OLDDSE->DSEBCKWD ª= 0 THEN /* IF THIS IS NOT THE*/ 04370000 DSECHAIN SR @F,@F 0184 04380000 L @1,504(0,@3) 0184 04390000 C @F,4(0,@1) 0184 04400000 BC 08,@9EA 0184 04410000 * OLDDSE->DSEBCKWD->DSEFORWD = /* 1ST DSE IN CHAIN, */ 04420000 * OLDDSE->DSEFORWD; /* PUT ITS FORWARD CHAIN */ 04430000 L @4,4(0,@1) DSE 0185 04440000 MVC 0(4,@4),0(@1) 0185 04450000 BC 15,@9E9 0186 04460000 * /* ADDRESS IN PREVIOUS DSE */ 04470000 * ELSE TJBXDSE = OLDDSE->DSEFORWD; /* THE OLD DSE WAS */ 04480000 @9EA L @9,TJBXPTR 0186 04490000 MVC 8(4,@9),0(@1) 0186 04500000 * /* THE 1ST IN THE CHAIN, */ 04510000 * /* PLACE ITS FORWARD CHAIN */ 04520000 * /* ADDRESS INTO THE POINTER */ 04530000 * /* TO THE 1ST DSE IN CHAIN */ 04540000 * IF OLDDSE->DSEFORWD = 0 THEN /* IF OLD DSE NOT LAST*/ 04550000 @9E9 SR @F,@F 0187 04560000 C @F,0(0,@1) 0187 04570000 * GOTO NOFORWD; /* ON CHAIN, */ 04580000 BC 08,NOFORWD 0188 04590000 * OLDDSE->DSEFORWD->DSEBCKWD = /* PLACE ITS BACKWARD */ 04600000 * OLDDSE->DSEBCKWD; /* CHAIN ADDRESS INTO THE */ 04610000 L @4,0(0,@1) DSE 0189 04620000 MVC 4(4,@4),4(@1) 0189 04630000 * /* NEXT DSE IN THE CHAIN */ 04640000 * NOFORWD: 04650000 * 04660000 * /*** NEW DSE IS TO BE CHAINED IN FRONT OF DSE CHAIN ***/ 04670000 * 04680000 * NEWDSE->DSEFORWD = TJBXDSE; /* PLACE ADDRESS OF 1ST */ 04690000 NOFORWD L @1,TJBXPTR 0190 04700000 L @4,508(0,@3) 0190 04710000 MVC 0(4,@4),8(@1) 0190 04720000 * /* DSE CURRENTLY ON CHAIN */ 04730000 * /* INTO FORWARD PTR OF NEW */ 04740000 * /* DSE TO BE ADDED */ 04750000 * NEWDSE->DSEBCKWD = 0; /* ZERO BACKWARD PTR OF NEW */ 04760000 SR @F,@F 0191 04770000 ST @F,4(0,@4) 0191 04780000 * /* DSE BECAUSE IT'S 1ST IN */ 04790000 * /* DSE CHAIN */ 04800000 * TJBXDSE = NEWDSE; /* INDICATE NEW DSE IS M4484*/ 04810000 MVC 8(4,@1),508(@3) 0192 04820000 * /* 1ST ON CHAIN M4484*/ 04830000 * IF NEWDSE->DSEFORWD=0 THEN /* IF NEW DSE IS NOT THE*/ 04840000 SR @F,@F 0193 04850000 C @F,0(0,@4) 0193 04860000 * /* ONLY ONE IN THE CHAIN, */ 04870000 * RETURN; 04880000 BC 08,@EL02 0194 04890000 * /* PLACE ITS ADDRESS IN THE */ 04900000 * /* BACKWARD POINTER POSITION*/ 04910000 * /* OF THE NEXT DSE IN THE */ 04920000 * /* CHAIN */ 04930000 * NEWDSE->DSEFORWD->DSEBCKWD = /* PLACE ADDRESS OF NEW */ 04940000 * NEWDSE; /* DSE INTO BACK PTR OF */ 04950000 @9E8 L @9,0(0,@4) DSE 0195 04960000 MVC 4(4,@9),508(@3) 0195 04970000 * /* NEXT DSE */ 04980000 * RETURN; /* RETURN TO CALLER */ 04990000 * END DSECHAIN; 05000000 @EL02 BCR 15,@E 0197 05010000 * END 05020000 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 05030000 * /*%INCLUDE SYSLIB (IKJTJBX ) 05040000 * /*%INCLUDE SYSLIB (CVT ) 05050000 * /*%INCLUDE SYSLIB (IKJTCB ) 05060000 * /*%INCLUDE SYSLIB (IKJDSE ) 05070000 * /*%INCLUDE SYSLIB (IEFUCBOB) 05080000 * /*%INCLUDE SYSLIB (IEFTIOT1) 05090000 * /*%INCLUDE SYSLIB (IEFJFCBN) 05100000 * ; 05110000 @DATA1 EQU * 05120000 @0 EQU 00 EQUATES FOR REGISTERS 0-15 05130000 @1 EQU 01 05140000 @2 EQU 02 05150000 @3 EQU 03 05160000 @4 EQU 04 05170000 @5 EQU 05 05180000 @6 EQU 06 05190000 @7 EQU 07 05200000 @8 EQU 08 05210000 @9 EQU 09 05220000 @A EQU 10 05230000 @B EQU 11 05240000 @C EQU 12 05250000 @D EQU 13 05260000 @E EQU 14 05270000 @F EQU 15 05280000 @D3 DC F'0' 05290000 @D1 DC H'-64' 05300000 @D2 DC H'56' 05310000 DS 0F 05320000 @SIZ001 DC AL1(&SPN) 05330000 DC AL3(@DATEND-@DATD) 05340000 DS 0F 05350000 @X10 DC X'FF000000' 05360000 @X6 DC X'000000' 05370000 DS 0D 05380000 @DATA EQU * 05390000 PLIST EQU 00000000 FULLWORD INTEGER 05400000 CVTPTR EQU 00000016 FULLWORD POINTER 05410000 TJBX EQU 00000000 72 BYTE(S) ON WORD 05420000 TJBXFST EQU TJBX+00000000 FULLWORD POINTER 05430000 TJBXLAST EQU TJBX+00000004 FULLWORD POINTER 05440000 TJBXDSE EQU TJBX+00000008 FULLWORD POINTER 05450000 TJBXSVRB EQU TJBX+00000012 FULLWORD POINTER 05460000 TJBXRQE EQU TJBX+00000016 FULLWORD POINTER 05470000 TJBXIQE EQU TJBX+00000020 FULLWORD POINTER 05480000 TJBXTAXE EQU TJBX+00000024 FULLWORD INTEGER 05490000 TJBXLECB EQU TJBX+00000028 FULLWORD INTEGER 05500000 TJBXPSWD EQU TJBX+00000032 8 BYTE(S) 05510000 TJBXATTR EQU TJBX+00000040 FULLWORD POINTER 05520000 TJBXAIQE EQU TJBX+00000044 FULLWORD POINTER 05530000 TJBXQPL EQU TJBX+00000048 FULLWORD POINTER 05540000 TJBXNQPE EQU TJBX+00000052 HALFWORD INTEGER 05550000 TJBXNTCB EQU TJBX+00000054 HALFWORD INTEGER 05560000 TJBXLQPL EQU TJBX+00000056 HALFWORD INTEGER 05570000 TJBXHBFL EQU TJBX+00000058 1 BYTE(S) 05580000 A00000 EQU TJBX+00000059 1 BYTE(S) 05590000 TJBXACT EQU TJBX+00000060 FULLWORD INTEGER 05600000 TJBXAECB EQU TJBX+00000064 FULLWORD POINTER 05610000 TJBXKEYA EQU TJBX+00000068 FULLWORD POINTER 05620000 CVTMAP EQU 00000000 276 BYTE(S) ON WORD 05630000 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 05640000 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 05650000 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 05660000 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 05670000 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 05680000 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 05690000 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 05700000 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 05710000 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 05720000 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 05730000 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 05740000 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 05750000 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 05760000 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 05770000 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 05780000 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 05790000 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 05800000 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 05810000 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 05820000 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 05830000 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 05840000 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 05850000 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 05860000 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 05870000 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 05880000 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 05890000 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 05900000 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 05910000 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 05920000 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 05930000 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 05940000 A00001 EQU CVTMAP+00000116 1 BIT(S) 05950000 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 05960000 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 05970000 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 05980000 A00002 EQU CVTMAP+00000116 1 BIT(S) 05990000 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 06000000 A00003 EQU CVTMAP+00000116 1 BIT(S) 06010000 A00004 EQU CVTMAP+00000116 1 BIT(S) 06020000 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 06030000 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 06040000 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 06050000 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 06060000 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 06070000 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 06080000 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 06090000 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 06100000 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 06110000 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 06120000 CVTTRMTB EQU CVTMAP+00000156 FULLWORD POINTER 06130000 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 06140000 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 06150000 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 06160000 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 06170000 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 06180000 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 06190000 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 06200000 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 06210000 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 06220000 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 06230000 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 06240000 CVTATTCH EQU CVTMAP+00000182 1 BIT(S) 06250000 CVTHIAR EQU CVTMAP+00000182 1 BIT(S) 06260000 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 06270000 A00005 EQU CVTMAP+00000182 1 BIT(S) 06280000 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 06290000 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 06300000 A00006 EQU CVTMAP+00000183 1 BIT(S) 06310000 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 06320000 A00007 EQU CVTMAP+00000183 5 BIT(S) 06330000 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 06340000 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 06350000 CVTMPCVT EQU CVTMAP+00000192 FULLWORD POINTER 06360000 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 06370000 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 06380000 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 06390000 CVTMDLDS EQU CVTMAP+00000208 FULLWORD POINTER 06400000 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 06410000 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 06420000 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 06430000 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 06440000 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 06450000 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 06460000 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 06470000 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 06480000 A00008 EQU CVTMAP+00000228 7 BIT(S) 06490000 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 06500000 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 06510000 CVTGTF EQU CVTMAP+00000236 FULLWORD POINTER 06520000 CVTGTFST EQU CVTMAP+00000236 1 BYTE(S) 06530000 CVTGTFS EQU CVTMAP+00000236 2 BIT(S) 06540000 CVTSTATE EQU CVTMAP+00000236 1 BIT(S) 06550000 CVTMODE EQU CVTMAP+00000236 1 BIT(S) 06560000 CVTFORM EQU CVTMAP+00000236 1 BIT(S) 06570000 CVTUSR EQU CVTMAP+00000236 1 BIT(S) 06580000 CVTMCTYP EQU CVTMAP+00000236 1 BIT(S) 06590000 A00009 EQU CVTMAP+00000236 1 BIT(S) 06600000 CVTCMT EQU CVTMAP+00000237 3 BYTE POINTER ON WORD+1 06610000 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 06620000 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 06630000 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 06640000 A00010 EQU CVTMAP+00000240 7 BIT(S) 06650000 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 06660000 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 06670000 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 06680000 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 06690000 CVTATER EQU CVTMAP+00000248 FULLWORD POINTER 06700000 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 06710000 CVTATERA EQU CVTMAP+00000249 3 BYTE POINTER ON WORD+1 06720000 A00011 EQU CVTMAP+00000252 FULLWORD POINTER 06730000 A00012 EQU CVTMAP+00000256 FULLWORD POINTER 06740000 CVTPURG EQU CVTMAP+00000260 FULLWORD POINTER 06750000 A00013 EQU CVTMAP+00000260 1 BYTE(S) 06760000 CVTPURGA EQU CVTMAP+00000261 3 BYTE POINTER ON WORD+1 06770000 A00014 EQU CVTMAP+00000264 FULLWORD POINTER 06780000 CVTQMSG EQU CVTMAP+00000268 FULLWORD POINTER 06790000 A00015 EQU CVTMAP+00000268 1 BYTE(S) 06800000 CVTQMSGA EQU CVTMAP+00000269 3 BYTE POINTER ON WORD+1 06810000 CVTDMSR EQU CVTMAP+00000272 FULLWORD POINTER 06820000 A00016 EQU CVTMAP+00000272 1 BYTE(S) 06830000 CVTDMSRA EQU CVTMAP+00000273 3 BYTE POINTER ON WORD+1 06840000 A00017 EQU 00000184 8 BYTE(S) ON WORD 06850000 CVTCRTTR EQU A00017+00000000 3 BYTE(S) 06860000 CVTSTUSA EQU A00017+00000003 1 BYTE(S) 06870000 A00018 EQU A00017+00000003 1 BIT(S) 06880000 A00019 EQU A00017+00000003 1 BIT(S) 06890000 A00020 EQU A00017+00000003 1 BIT(S) 06900000 A00021 EQU A00017+00000003 1 BIT(S) 06910000 CVTCHPTR EQU A00017+00000003 1 BIT(S) 06920000 CVTSTEPR EQU A00017+00000003 1 BIT(S) 06930000 CVTDATA EQU A00017+00000003 1 BIT(S) 06940000 A00022 EQU A00017+00000003 1 BIT(S) 06950000 A00023 EQU A00017+00000004 2 BYTE(S) 06960000 A00024 EQU A00017+00000006 2 BYTE(S) 06970000 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 06980000 A00025 EQU CVTFIX+00000000 248 BYTE(S) 06990000 A00026 EQU CVTFIX+00000248 2 BYTE(S) 07000000 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 07010000 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 07020000 TCBPTR EQU 00000004 FULLWORD POINTER 07030000 TCBFIX EQU 00000032 32 BYTE(S) ON DWORD 07040000 TCBFRS EQU TCBFIX+00000000 32 BYTE(S) ON DWORD 07050000 TCBFRS0 EQU TCBFIX+00000000 8 BYTE(S) ON DWORD 07060000 TCBFRS2 EQU TCBFIX+00000008 8 BYTE(S) ON DWORD 07070000 TCBFRS4 EQU TCBFIX+00000016 8 BYTE(S) ON DWORD 07080000 TCBFRS6 EQU TCBFIX+00000024 8 BYTE(S) ON DWORD 07090000 TCB EQU 00000000 156 BYTE(S) ON WORD 07100000 TCBRBP EQU TCB+00000000 FULLWORD POINTER 07110000 TCBPIE EQU TCB+00000004 FULLWORD POINTER 07120000 TCBDEB EQU TCB+00000008 FULLWORD POINTER 07130000 TCBTIO EQU TCB+00000012 FULLWORD POINTER 07140000 TCBCMP EQU TCB+00000016 4 BYTE(S) 07150000 TCBCMPF EQU TCB+00000016 1 BYTE(S) 07160000 TCBCREQ EQU TCB+00000016 1 BIT(S) 07170000 TCBCSTEP EQU TCB+00000016 1 BIT(S) 07180000 TCBCPP EQU TCB+00000016 1 BIT(S) 07190000 A00027 EQU TCB+00000016 1 BIT(S) 07200000 TCBCDBL EQU TCB+00000016 1 BIT(S) 07210000 TCBCWTO EQU TCB+00000016 1 BIT(S) 07220000 TCBCIND EQU TCB+00000016 1 BIT(S) 07230000 TCBCMSG EQU TCB+00000016 1 BIT(S) 07240000 TCBCMPC EQU TCB+00000017 3 BYTE(S) 07250000 TCBTRN EQU TCB+00000020 FULLWORD POINTER 07260000 TCBABF EQU TCB+00000020 1 BYTE(S) 07270000 TCBMOD91 EQU TCB+00000020 1 BIT(S) 07280000 TCBNOCHK EQU TCB+00000020 1 BIT(S) 07290000 TCBGRPH EQU TCB+00000020 1 BIT(S) 07300000 A00028 EQU TCB+00000020 1 BIT(S) 07310000 TCBTCPP EQU TCB+00000020 1 BIT(S) 07320000 TCBTCP EQU TCB+00000020 1 BIT(S) 07330000 TCBOLTEP EQU TCB+00000020 1 BIT(S) 07340000 A00029 EQU TCB+00000020 1 BIT(S) 07350000 TCBTRNB EQU TCB+00000021 3 BYTE POINTER 07360000 TCBMSS EQU TCB+00000024 FULLWORD POINTER 07370000 TCBNROC EQU TCB+00000024 1 BYTE POINTER 07380000 TCBMSSB EQU TCB+00000025 3 BYTE POINTER 07390000 TCBPKF EQU TCB+00000028 1 BYTE(S) 07400000 TCBFLAG EQU TCB+00000028 4 BIT(S) 07410000 TCBZERO EQU TCB+00000028 4 BIT(S) 07420000 TCBFLGS EQU TCB+00000029 5 BYTE(S) 07430000 TCBFLGS1 EQU TCB+00000029 1 BYTE(S) 07440000 TCBFA EQU TCB+00000029 1 BIT(S) 07450000 TCBFE EQU TCB+00000029 1 BIT(S) 07460000 TCBFERA EQU TCB+00000029 1 BIT(S) 07470000 TCBGTOFM EQU TCB+00000029 1 BIT(S) 07480000 TCBPDUMP EQU TCB+00000029 1 BIT(S) 07490000 TCBFT EQU TCB+00000029 1 BIT(S) 07500000 TCBPOOL EQU TCB+00000029 1 BIT(S) 07510000 TCBFS EQU TCB+00000029 1 BIT(S) 07520000 TCBFX EQU TCB+00000029 1 BIT(S) 07530000 TCBFLGS2 EQU TCB+00000030 1 BYTE(S) 07540000 TCBFOINP EQU TCB+00000030 1 BIT(S) 07550000 TCBFSTI EQU TCB+00000030 1 BIT(S) 07560000 TCBFRA EQU TCB+00000030 1 BIT(S) 07570000 TCBFSMC EQU TCB+00000030 1 BIT(S) 07580000 TCBFJMC EQU TCB+00000030 1 BIT(S) 07590000 TCBFDSOP EQU TCB+00000030 1 BIT(S) 07600000 TCBFETXR EQU TCB+00000030 1 BIT(S) 07610000 TCBFTS EQU TCB+00000030 1 BIT(S) 07620000 TCBFLGS3 EQU TCB+00000031 1 BYTE(S) 07630000 TCBFSM EQU TCB+00000031 1 BIT(S) 07640000 TCBFRI EQU TCB+00000031 1 BIT(S) 07650000 TCBABTRM EQU TCB+00000031 1 BIT(S) 07660000 TCBSXPK0 EQU TCB+00000031 1 BIT(S) 07670000 TCBFLREG EQU TCB+00000031 1 BIT(S) 07680000 TCBSCH EQU TCB+00000031 1 BIT(S) 07690000 TCBPKCHG EQU TCB+00000031 1 BIT(S) 07700000 TCBTCTRM EQU TCB+00000031 1 BIT(S) 07710000 TCBDWSTA EQU TCB+00000031 1 BIT(S) 07720000 TCBFLGS4 EQU TCB+00000032 1 BYTE(S) 07730000 TCBNDUMP EQU TCB+00000032 1 BIT(S) 07740000 TCBSER EQU TCB+00000032 1 BIT(S) 07750000 TCBRQENA EQU TCB+00000032 1 BIT(S) 07760000 A00030 EQU TCB+00000032 1 BIT(S) 07770000 TCBUXNDV EQU TCB+00000032 1 BIT(S) 07780000 TCBMPCVQ EQU TCB+00000032 1 BIT(S) 07790000 TCBMPCND EQU TCB+00000032 1 BIT(S) 07800000 TCBONDSP EQU TCB+00000032 1 BIT(S) 07810000 TCBFLGS5 EQU TCB+00000033 1 BYTE(S) 07820000 TCBFC EQU TCB+00000033 1 BIT(S) 07830000 TCBABWF EQU TCB+00000033 1 BIT(S) 07840000 TCBUXNDF EQU TCB+00000033 1 BIT(S) 07850000 TCBWFC EQU TCB+00000033 1 BIT(S) 07860000 TCBFRO EQU TCB+00000033 1 BIT(S) 07870000 TCBSYS EQU TCB+00000033 1 BIT(S) 07880000 TCBSTP EQU TCB+00000033 1 BIT(S) 07890000 TCBFCD1 EQU TCB+00000033 1 BIT(S) 07900000 TCBPNDSP EQU TCB+00000033 1 BIT(S) 07910000 TCBLMP EQU TCB+00000034 1 BYTE POINTER 07920000 TCBDSP EQU TCB+00000035 1 BYTE POINTER 07930000 TCBLLS EQU TCB+00000036 FULLWORD POINTER 07940000 TCBJLB EQU TCB+00000040 FULLWORD POINTER 07950000 TCBJPQ EQU TCB+00000044 FULLWORD POINTER 07960000 TCBPURGE EQU TCB+00000044 1 BYTE(S) 07970000 TCBJPQF EQU TCB+00000044 1 BIT(S) 07980000 A00031 EQU TCB+00000044 1 BIT(S) 07990000 A00032 EQU TCB+00000044 1 BIT(S) 08000000 A00033 EQU TCB+00000044 1 BIT(S) 08010000 A00034 EQU TCB+00000044 1 BIT(S) 08020000 A00035 EQU TCB+00000044 1 BIT(S) 08030000 A00036 EQU TCB+00000044 1 BIT(S) 08040000 A00037 EQU TCB+00000044 1 BIT(S) 08050000 TCBJPQB EQU TCB+00000045 3 BYTE POINTER 08060000 TCBGRS EQU TCB+00000048 64 BYTE(S) ON WORD 08070000 TCBGRS0 EQU TCB+00000048 FULLWORD POINTER 08080000 TCBGRS1 EQU TCB+00000052 FULLWORD POINTER 08090000 TCBGRS2 EQU TCB+00000056 FULLWORD POINTER 08100000 TCBGRS3 EQU TCB+00000060 FULLWORD POINTER 08110000 TCBGRS4 EQU TCB+00000064 FULLWORD POINTER 08120000 TCBGRS5 EQU TCB+00000068 FULLWORD POINTER 08130000 TCBGRS6 EQU TCB+00000072 FULLWORD POINTER 08140000 TCBGRS7 EQU TCB+00000076 FULLWORD POINTER 08150000 TCBGRS8 EQU TCB+00000080 FULLWORD POINTER 08160000 TCBGRS9 EQU TCB+00000084 FULLWORD POINTER 08170000 TCBGRS10 EQU TCB+00000088 FULLWORD POINTER 08180000 TCBGRS11 EQU TCB+00000092 FULLWORD POINTER 08190000 TCBGRS12 EQU TCB+00000096 FULLWORD POINTER 08200000 TCBGRS13 EQU TCB+00000100 FULLWORD POINTER 08210000 TCBGRS14 EQU TCB+00000104 FULLWORD POINTER 08220000 TCBGRS15 EQU TCB+00000108 FULLWORD POINTER 08230000 TCBFSA EQU TCB+00000112 FULLWORD POINTER 08240000 TCBQEL EQU TCB+00000112 1 BYTE POINTER 08250000 TCBFSAB EQU TCB+00000113 3 BYTE POINTER 08260000 TCBTCB EQU TCB+00000116 FULLWORD POINTER 08270000 TCBTME EQU TCB+00000120 FULLWORD POINTER 08280000 TCBJSTCB EQU TCB+00000124 FULLWORD POINTER 08290000 TCBPIBT EQU TCB+00000124 1 BYTE(S) 08300000 TCBPART EQU TCB+00000124 2 BIT(S) 08310000 TCBSIZE EQU TCB+00000124 1 BIT(S) 08320000 TCBSTOP EQU TCB+00000124 1 BIT(S) 08330000 A00038 EQU TCB+00000124 1 BIT(S) 08340000 A00039 EQU TCB+00000124 1 BIT(S) 08350000 TCBWRITE EQU TCB+00000124 1 BIT(S) 08360000 TCBSCHED EQU TCB+00000124 1 BIT(S) 08370000 TCBJSTCA EQU TCB+00000125 3 BYTE POINTER 08380000 TCBNTC EQU TCB+00000128 FULLWORD POINTER 08390000 TCBOTC EQU TCB+00000132 FULLWORD POINTER 08400000 TCBLTC EQU TCB+00000136 FULLWORD POINTER 08410000 TCBIQE EQU TCB+00000140 FULLWORD POINTER 08420000 TCBECB EQU TCB+00000144 FULLWORD POINTER 08430000 TCBTSFLG EQU TCB+00000148 8 BIT(S) 08440000 TCBTSTSK EQU TCB+00000148 1 BIT(S) 08450000 TCBSTPPR EQU TCB+00000148 1 BIT(S) 08460000 TCBATT EQU TCB+00000148 1 BIT(S) 08470000 TCBTIOTG EQU TCB+00000148 1 BIT(S) 08480000 A00040 EQU TCB+00000148 1 BIT(S) 08490000 A00041 EQU TCB+00000148 1 BIT(S) 08500000 TCBDYDSP EQU TCB+00000148 1 BIT(S) 08510000 TCBCPUBN EQU TCB+00000148 1 BIT(S) 08520000 TCBSTPCT EQU TCB+00000149 1 BYTE POINTER 08530000 TCBTSLP EQU TCB+00000150 1 BYTE POINTER 08540000 TCBTSDP EQU TCB+00000151 1 BYTE(S) 08550000 TCBPQE EQU TCB+00000152 FULLWORD POINTER 08560000 TCBOVLY1 EQU 00000152 40 BYTE(S) ON WORD 08570000 TCBFTLMP EQU TCBOVLY1+00000000 1 BYTE POINTER 08580000 TCBFTFLG EQU TCBOVLY1+00000001 3 BYTE(S) 08590000 TCBFTFL1 EQU TCBOVLY1+00000001 1 BYTE(S) 08600000 A00042 EQU TCBOVLY1+00000001 1 BIT(S) 08610000 A00043 EQU TCBOVLY1+00000001 1 BIT(S) 08620000 A00044 EQU TCBOVLY1+00000001 1 BIT(S) 08630000 A00045 EQU TCBOVLY1+00000001 1 BIT(S) 08640000 A00046 EQU TCBOVLY1+00000001 1 BIT(S) 08650000 TCBFTTOP EQU TCBOVLY1+00000001 1 BIT(S) 08660000 TCBFTCOM EQU TCBOVLY1+00000001 1 BIT(S) 08670000 TCBFTSYN EQU TCBOVLY1+00000001 1 BIT(S) 08680000 TCBFTFL2 EQU TCBOVLY1+00000002 1 BYTE(S) 08690000 A00047 EQU TCBOVLY1+00000002 1 BIT(S) 08700000 A00048 EQU TCBOVLY1+00000002 1 BIT(S) 08710000 A00049 EQU TCBOVLY1+00000002 1 BIT(S) 08720000 A00050 EQU TCBOVLY1+00000002 1 BIT(S) 08730000 A00051 EQU TCBOVLY1+00000002 1 BIT(S) 08740000 TCBFTOPN EQU TCBOVLY1+00000002 1 BIT(S) 08750000 TCBFTETX EQU TCBOVLY1+00000002 1 BIT(S) 08760000 A00052 EQU TCBOVLY1+00000002 1 BIT(S) 08770000 TCBFTFL3 EQU TCBOVLY1+00000003 1 BYTE(S) 08780000 A00053 EQU TCBOVLY1+00000003 1 BIT(S) 08790000 A00054 EQU TCBOVLY1+00000003 1 BIT(S) 08800000 A00055 EQU TCBOVLY1+00000003 1 BIT(S) 08810000 A00056 EQU TCBOVLY1+00000003 1 BIT(S) 08820000 A00057 EQU TCBOVLY1+00000003 1 BIT(S) 08830000 TCBFTDUM EQU TCBOVLY1+00000003 1 BIT(S) 08840000 A00058 EQU TCBOVLY1+00000003 2 BIT(S) 08850000 TCBAQE EQU TCBOVLY1+00000004 FULLWORD POINTER 08860000 TCBSTAB EQU TCBOVLY1+00000008 FULLWORD POINTER 08870000 TCBNSTAE EQU TCBOVLY1+00000008 1 BYTE(S) 08880000 TCBSTABE EQU TCBOVLY1+00000008 1 BIT(S) 08890000 TCBQUIES EQU TCBOVLY1+00000008 1 BIT(S) 08900000 TCBXCTL EQU TCBOVLY1+00000008 1 BIT(S) 08910000 TCBSCAT EQU TCBOVLY1+00000008 1 BIT(S) 08920000 TCBHALT EQU TCBOVLY1+00000008 1 BIT(S) 08930000 TCBSUPER EQU TCBOVLY1+00000008 1 BIT(S) 08940000 TCBRETRY EQU TCBOVLY1+00000008 1 BIT(S) 08950000 TCBVALID EQU TCBOVLY1+00000008 1 BIT(S) 08960000 TCBSTABB EQU TCBOVLY1+00000009 3 BYTE POINTER 08970000 TCBTCT EQU TCBOVLY1+00000012 FULLWORD POINTER 08980000 A00059 EQU TCBOVLY1+00000012 1 BYTE(S) 08990000 TCBTCTB EQU TCBOVLY1+00000013 3 BYTE POINTER 09000000 TCBUSER EQU TCBOVLY1+00000016 FULLWORD POINTER 09010000 TCBDAR EQU TCBOVLY1+00000020 1 BYTE(S) 09020000 TCBDARP EQU TCBOVLY1+00000020 1 BIT(S) 09030000 TCBDARS EQU TCBOVLY1+00000020 1 BIT(S) 09040000 TCBDARD EQU TCBOVLY1+00000020 1 BIT(S) 09050000 TCBDARC EQU TCBOVLY1+00000020 1 BIT(S) 09060000 TCBDARMC EQU TCBOVLY1+00000020 1 BIT(S) 09070000 TCBDARO EQU TCBOVLY1+00000020 1 BIT(S) 09080000 TCBDAROL EQU TCBOVLY1+00000020 1 BIT(S) 09090000 TCBDARWT EQU TCBOVLY1+00000020 1 BIT(S) 09100000 A00060 EQU TCBOVLY1+00000020 1 BIT(S) 09110000 TCBEXSVC EQU TCBOVLY1+00000020 1 BIT(S) 09120000 TCBSCNDY EQU TCBOVLY1+00000021 3 BYTE(S) 09130000 TCBNDSP1 EQU TCBOVLY1+00000021 1 BYTE(S) 09140000 TCBDARTN EQU TCBOVLY1+00000021 1 BIT(S) 09150000 TCBDARPN EQU TCBOVLY1+00000021 1 BIT(S) 09160000 TCBRSTND EQU TCBOVLY1+00000021 1 BIT(S) 09170000 TCBRSPND EQU TCBOVLY1+00000021 1 BIT(S) 09180000 TCBDDRND EQU TCBOVLY1+00000021 1 BIT(S) 09190000 TCBTPSP EQU TCBOVLY1+00000021 1 BIT(S) 09200000 A00061 EQU TCBOVLY1+00000021 1 BIT(S) 09210000 A00062 EQU TCBOVLY1+00000021 1 BIT(S) 09220000 TCBNDSP2 EQU TCBOVLY1+00000022 1 BYTE(S) 09230000 TCBABD EQU TCBOVLY1+00000022 1 BIT(S) 09240000 TCBSTPP EQU TCBOVLY1+00000022 1 BIT(S) 09250000 TCBNDSVC EQU TCBOVLY1+00000022 1 BIT(S) 09260000 TCBNDTS EQU TCBOVLY1+00000022 1 BIT(S) 09270000 TCBIWAIT EQU TCBOVLY1+00000022 1 BIT(S) 09280000 TCBOWAIT EQU TCBOVLY1+00000022 1 BIT(S) 09290000 A00063 EQU TCBOVLY1+00000022 1 BIT(S) 09300000 TCBABE EQU TCBOVLY1+00000022 1 BIT(S) 09310000 TCBNDSP3 EQU TCBOVLY1+00000023 1 BYTE(S) 09320000 TCBTERM EQU TCBOVLY1+00000023 1 BIT(S) 09330000 TCBABTER EQU TCBOVLY1+00000023 1 BIT(S) 09340000 A00064 EQU TCBOVLY1+00000023 6 BIT(S) 09350000 TCBMDIDS EQU TCBOVLY1+00000024 FULLWORD INTEGER 09360000 TCBJSCB EQU TCBOVLY1+00000028 FULLWORD POINTER 09370000 TCBRECDE EQU TCBOVLY1+00000028 1 BYTE(S) 09380000 TCBREC EQU TCBOVLY1+00000028 1 BIT(S) 09390000 A00065 EQU TCBOVLY1+00000028 7 BIT(S) 09400000 TCBJSCBB EQU TCBOVLY1+00000029 3 BYTE POINTER ON WORD+1 09410000 TCBRV001 EQU TCBOVLY1+00000032 FULLWORD POINTER 09420000 TCBIOBRC EQU TCBOVLY1+00000036 FULLWORD POINTER 09430000 DSE EQU 00000000 76 BYTE(S) ON WORD 09440000 DSEFORWD EQU DSE+00000000 FULLWORD POINTER 09450000 DSEBCKWD EQU DSE+00000004 FULLWORD POINTER 09460000 DSEBLKSZ EQU DSE+00000008 HALFWORD INTEGER 09470000 DSESTAT EQU DSE+00000010 1 BYTE(S) 09480000 A00066 EQU DSE+00000010 1 BIT(S) 09490000 A00067 EQU DSE+00000010 1 BIT(S) 09500000 A00068 EQU DSE+00000010 1 BIT(S) 09510000 A00069 EQU DSE+00000010 1 BIT(S) 09520000 DSESHR EQU DSE+00000010 1 BIT(S) 09530000 DSENEW EQU DSE+00000010 1 BIT(S) 09540000 DSEMOD EQU DSE+00000010 1 BIT(S) 09550000 DSEOLD EQU DSE+00000010 1 BIT(S) 09560000 DSECNTRL EQU DSE+00000011 1 BYTE(S) 09570000 DSEDYN EQU DSE+00000011 1 BIT(S) 09580000 DSENUSED EQU DSE+00000011 1 BIT(S) 09590000 DSEMEM EQU DSE+00000011 1 BIT(S) 09600000 DSEDTIOT EQU DSE+00000011 1 BIT(S) 09610000 DSECON EQU DSE+00000011 1 BIT(S) 09620000 A00070 EQU DSE+00000011 1 BIT(S) 09630000 DSEPERM EQU DSE+00000011 1 BIT(S) 09640000 A00071 EQU DSE+00000011 1 BIT(S) 09650000 DSEDDNAM EQU DSE+00000012 8 BYTE(S) 09660000 DSETCBAD EQU DSE+00000020 FULLWORD POINTER 09670000 DSETTRPW EQU DSE+00000024 FULLWORD INTEGER 09680000 DSENDISP EQU DSE+00000028 1 BYTE(S) 09690000 A00072 EQU DSE+00000028 1 BIT(S) 09700000 A00073 EQU DSE+00000028 1 BIT(S) 09710000 A00074 EQU DSE+00000028 1 BIT(S) 09720000 A00075 EQU DSE+00000028 1 BIT(S) 09730000 DSEKEP EQU DSE+00000028 1 BIT(S) 09740000 DSEDEL EQU DSE+00000028 1 BIT(S) 09750000 DSECAT EQU DSE+00000028 1 BIT(S) 09760000 DSEUCAT EQU DSE+00000028 1 BIT(S) 09770000 DSEADISP EQU DSE+00000029 1 BYTE(S) 09780000 A00076 EQU DSE+00000029 1 BIT(S) 09790000 A00077 EQU DSE+00000029 1 BIT(S) 09800000 A00078 EQU DSE+00000029 1 BIT(S) 09810000 A00079 EQU DSE+00000029 1 BIT(S) 09820000 DSEAKEP EQU DSE+00000029 1 BIT(S) 09830000 DSEADEL EQU DSE+00000029 1 BIT(S) 09840000 DSEACAT EQU DSE+00000029 1 BIT(S) 09850000 DSEAUCAT EQU DSE+00000029 1 BIT(S) 09860000 DSEDSORG EQU DSE+00000030 1 BYTE(S) 09870000 DSEIS EQU DSE+00000030 1 BIT(S) 09880000 DSEPS EQU DSE+00000030 1 BIT(S) 09890000 DSEDA EQU DSE+00000030 1 BIT(S) 09900000 A00080 EQU DSE+00000030 1 BIT(S) 09910000 A00081 EQU DSE+00000030 1 BIT(S) 09920000 A00082 EQU DSE+00000030 1 BIT(S) 09930000 DSEPO EQU DSE+00000030 1 BIT(S) 09940000 DSEU EQU DSE+00000030 1 BIT(S) 09950000 DSEDSLNG EQU DSE+00000031 1 BYTE POINTER 09960000 DSEDSNAM EQU DSE+00000032 44 BYTE(S) 09970000 DSEMEMBR EQU 00000000 8 BYTE(S) 09980000 UCBPTR EQU 00000007 FULLWORD POINTER REGISTER 09990000 UCBDCPTR EQU 00000006 FULLWORD POINTER REGISTER 10000000 UCBOB EQU 00000000 28 BYTE(S) ON WORD 10010000 UCBJBNR EQU UCBOB+00000000 1 BYTE(S) 10020000 UCBKEY EQU UCBOB+00000000 4 BIT(S) 10030000 A00083 EQU UCBOB+00000000 1 BIT(S) 10040000 A00084 EQU UCBOB+00000000 1 BIT(S) 10050000 UCBDEM EQU UCBOB+00000000 1 BIT(S) 10060000 UCBMONT EQU UCBOB+00000000 1 BIT(S) 10070000 UCBFL5 EQU UCBOB+00000001 1 BYTE(S) 10080000 A00085 EQU UCBOB+00000001 2 BIT(S) 10090000 UCBTICBT EQU UCBOB+00000001 1 BIT(S) 10100000 UCBVSDR EQU UCBOB+00000001 1 BIT(S) 10110000 UCBEXTSN EQU UCBOB+00000001 1 BIT(S) 10120000 UCBNALOC EQU UCBOB+00000001 1 BIT(S) 10130000 UCBALTCU EQU UCBOB+00000001 1 BIT(S) 10140000 UCBALTPH EQU UCBOB+00000001 1 BIT(S) 10150000 UCBID EQU UCBOB+00000002 1 BYTE(S) 10160000 UCBSTAT EQU UCBOB+00000003 1 BYTE(S) 10170000 UCBONLI EQU UCBOB+00000003 1 BIT(S) 10180000 UCBCHGS EQU UCBOB+00000003 1 BIT(S) 10190000 UCBRESV EQU UCBOB+00000003 1 BIT(S) 10200000 UCBUNLD EQU UCBOB+00000003 1 BIT(S) 10210000 UCBALOC EQU UCBOB+00000003 1 BIT(S) 10220000 UCBPRES EQU UCBOB+00000003 1 BIT(S) 10230000 UCBSYSR EQU UCBOB+00000003 1 BIT(S) 10240000 UCBDADI EQU UCBOB+00000003 1 BIT(S) 10250000 UCBCHA EQU UCBOB+00000004 1 BYTE(S) 10260000 UCBHIO EQU UCBOB+00000004 1 BIT(S) 10270000 UCBMOD EQU UCBOB+00000004 1 BIT(S) 10280000 UCBDSNS EQU UCBOB+00000004 1 BIT(S) 10290000 UCBDHIO EQU UCBOB+00000004 1 BIT(S) 10300000 UCBCHANA EQU UCBOB+00000004 4 BIT(S) 10310000 UCBUA EQU UCBOB+00000005 1 BYTE POINTER 10320000 UCBFL1 EQU UCBOB+00000006 1 BYTE(S) 10330000 UCBBUSYD EQU UCBOB+00000006 1 BIT(S) 10340000 UCBNOTRD EQU UCBOB+00000006 1 BIT(S) 10350000 UCBUSING EQU UCBOB+00000006 1 BIT(S) 10360000 UCBINTER EQU UCBOB+00000006 1 BIT(S) 10370000 UCBNOTRC EQU UCBOB+00000006 1 BIT(S) 10380000 UCBSTS EQU UCBOB+00000006 2 BIT(S) 10390000 UCBERR EQU UCBOB+00000006 1 BIT(S) 10400000 UCBDTI EQU UCBOB+00000007 1 BYTE POINTER 10410000 UCBETI EQU UCBOB+00000008 1 BYTE POINTER 10420000 UCBSTI EQU UCBOB+00000009 1 BYTE POINTER 10430000 UCBLCI EQU UCBOB+00000010 1 BYTE POINTER 10440000 UCBATI EQU UCBOB+00000011 1 BYTE POINTER 10450000 UCBWGT EQU UCBOB+00000012 1 BYTE(S) 10460000 UCBIN EQU UCBOB+00000012 1 BIT(S) 10470000 UCBOUT EQU UCBOB+00000012 1 BIT(S) 10480000 UCBPUB EQU UCBOB+00000012 1 BIT(S) 10490000 UCBREW EQU UCBOB+00000012 1 BIT(S) 10500000 UCBPATH EQU UCBOB+00000012 4 BIT(S) 10510000 UCBPATH0 EQU UCBOB+00000012 1 BIT(S) 10520000 UCBPATH1 EQU UCBOB+00000012 1 BIT(S) 10530000 UCBPATH2 EQU UCBOB+00000012 1 BIT(S) 10540000 UCBPATH3 EQU UCBOB+00000012 1 BIT(S) 10550000 UCBNAME EQU UCBOB+00000013 3 BYTE(S) 10560000 UCBTYP EQU UCBOB+00000016 4 BYTE(S) 10570000 UCBTBYT1 EQU UCBOB+00000016 1 BYTE(S) 10580000 UCB1FEA0 EQU UCBOB+00000016 1 BIT(S) 10590000 UCB1FEA1 EQU UCBOB+00000016 1 BIT(S) 10600000 UCB1FEA2 EQU UCBOB+00000016 1 BIT(S) 10610000 UCB1FEA3 EQU UCBOB+00000016 1 BIT(S) 10620000 UCB1FEA4 EQU UCBOB+00000016 1 BIT(S) 10630000 UCB1FEA5 EQU UCBOB+00000016 1 BIT(S) 10640000 UCB1FEA6 EQU UCBOB+00000016 1 BIT(S) 10650000 UCB1FEA7 EQU UCBOB+00000016 1 BIT(S) 10660000 UCBTBYT2 EQU UCBOB+00000017 1 BYTE(S) 10670000 UCB2OPT0 EQU UCBOB+00000017 1 BIT(S) 10680000 UCB2OPT1 EQU UCBOB+00000017 1 BIT(S) 10690000 UCB2OPT2 EQU UCBOB+00000017 1 BIT(S) 10700000 UCB2OPT3 EQU UCBOB+00000017 1 BIT(S) 10710000 UCB2OPT4 EQU UCBOB+00000017 1 BIT(S) 10720000 UCB2OPT5 EQU UCBOB+00000017 1 BIT(S) 10730000 UCB2OPT6 EQU UCBOB+00000017 1 BIT(S) 10740000 UCB2OPT7 EQU UCBOB+00000017 1 BIT(S) 10750000 UCBTBYT3 EQU UCBOB+00000018 1 BYTE(S) 10760000 UCB3TAPE EQU UCBOB+00000018 1 BIT(S) 10770000 UCB3COMM EQU UCBOB+00000018 1 BIT(S) 10780000 UCB3DACC EQU UCBOB+00000018 1 BIT(S) 10790000 UCB3DISP EQU UCBOB+00000018 1 BIT(S) 10800000 UCB3UREC EQU UCBOB+00000018 1 BIT(S) 10810000 UCB3CHAR EQU UCBOB+00000018 1 BIT(S) 10820000 A00086 EQU UCBOB+00000018 1 BIT(S) 10830000 A00087 EQU UCBOB+00000018 1 BIT(S) 10840000 UCBTBYT4 EQU UCBOB+00000019 1 BYTE(S) 10850000 UCBLTS EQU UCBOB+00000020 2 BYTE(S) 10860000 UCBSNS EQU UCBOB+00000022 2 BYTE(S) 10870000 UCBDEV EQU UCBOB+00000024 4 BYTE INTEGER 10880000 UCBOBS01 EQU 00000024 40 BYTE(S) ON WORD 10890000 UCBSENSE EQU UCBOBS01+00000000 4 BYTE(S) ON WORD 10900000 UCBSENSB EQU UCBOBS01+00000000 FULLWORD POINTER 10910000 UCBSENSN EQU UCBOBS01+00000000 1 BYTE POINTER 10920000 UCBSENSA EQU UCBOBS01+00000001 3 BYTE POINTER ON WORD+1 10930000 UCBVOLI EQU UCBOBS01+00000004 6 BYTE(S) 10940000 UCBSTAB EQU UCBOBS01+00000010 1 BYTE(S) 10950000 UCBBSVL EQU UCBOBS01+00000010 1 BIT(S) 10960000 UCBBVSC EQU UCBOBS01+00000010 1 BIT(S) 10970000 UCBPRSRS EQU UCBOBS01+00000010 1 BIT(S) 10980000 UCBBALB EQU UCBOBS01+00000010 1 BIT(S) 10990000 UCBBPRV EQU UCBOBS01+00000010 1 BIT(S) 11000000 UCBBPUB EQU UCBOBS01+00000010 1 BIT(S) 11010000 UCBBSTR EQU UCBOBS01+00000010 1 BIT(S) 11020000 UCBBJLB EQU UCBOBS01+00000010 1 BIT(S) 11030000 UCBBNUL EQU UCBOBS01+00000010 1 BIT(S) 11040000 UCBDMCT EQU UCBOBS01+00000011 1 BYTE(S) 11050000 UCBMOUNT EQU UCBOBS01+00000011 1 BIT(S) 11060000 UCBDMC EQU UCBOBS01+00000011 7 BIT(S) 11070000 UCBVTOC EQU UCBOBS01+00000012 4 BYTE(S) ON WORD 11080000 UCBFSCT EQU UCBOBS01+00000012 HALFWORD INTEGER 11090000 UCBFSEQ EQU UCBOBS01+00000014 HALFWORD INTEGER 11100000 UCBFSER EQU UCBOBS01+00000016 8 BYTE(S) ON WORD 11110000 UCBSQC EQU UCBOBS01+00000016 1 BYTE POINTER 11120000 UCBDVRES EQU UCBOBS01+00000017 1 BYTE POINTER 11130000 UCBRQESV EQU UCBOBS01+00000018 HALFWORD INTEGER 11140000 UCBORSVA EQU UCBOBS01+00000020 FULLWORD POINTER 11150000 UCBFL4 EQU UCBOBS01+00000020 1 BYTE(S) 11160000 UCBDAV EQU UCBOBS01+00000020 5 BIT(S) 11170000 UCBMNT EQU UCBOBS01+00000020 1 BIT(S) 11180000 UCBVVRTN EQU UCBOBS01+00000020 1 BIT(S) 11190000 UCBFT EQU UCBOBS01+00000020 1 BIT(S) 11200000 UCBTCC EQU UCBOBS01+00000020 1 BIT(S) 11210000 UCBVER EQU UCBOBS01+00000020 1 BIT(S) 11220000 UCBORCNT EQU UCBOBS01+00000020 3 BIT(S) 11230000 UCBORSVB EQU UCBOBS01+00000021 3 BYTE POINTER 11240000 UCBSKA EQU UCBOBS01+00000024 8 BYTE(S) ON WORD 11250000 UCBXTN EQU UCBOBS01+00000024 FULLWORD POINTER 11260000 UCBVOPT EQU UCBOBS01+00000024 1 BYTE(S) 11270000 UCBESV EQU UCBOBS01+00000024 1 BIT(S) 11280000 UCBEVA EQU UCBOBS01+00000024 1 BIT(S) 11290000 UCBESVC EQU UCBOBS01+00000024 1 BIT(S) 11300000 UCBERPC EQU UCBOBS01+00000024 1 BIT(S) 11310000 UCBESVE EQU UCBOBS01+00000024 1 BIT(S) 11320000 A00088 EQU UCBOBS01+00000024 1 BIT(S) 11330000 A00089 EQU UCBOBS01+00000024 1 BIT(S) 11340000 UCBASMDE EQU UCBOBS01+00000024 1 BIT(S) 11350000 UCBXTNB EQU UCBOBS01+00000025 3 BYTE POINTER 11360000 A00090 EQU UCBOBS01+00000028 4 BYTE(S) 11370000 UCBECBB EQU UCBOBS01+00000032 FULLWORD POINTER 11380000 UCBUSER EQU UCBOBS01+00000032 1 BYTE POINTER 11390000 UCBECBA EQU UCBOBS01+00000033 3 BYTE POINTER 11400000 UCBEXT EQU UCBOBS01+00000036 FULLWORD POINTER 11410000 UCBWKADB EQU UCBOBS01+00000036 FULLWORD POINTER 11420000 UCBOBS02 EQU 00000024 196 BYTE(S) ON WORD 11430000 UCBSEN EQU UCBOBS02+00000000 4 BYTE(S) 11440000 UCBERPA EQU UCBOBS02+00000004 12 BYTE(S) 11450000 UCBDASD EQU UCBOBS02+00000016 16 BYTE(S) 11460000 UCBCELLS EQU UCBOBS02+00000032 160 BYTE(S) 11470000 UCBCELL0 EQU UCBOBS02+00000032 16 BYTE(S) 11480000 UCBCELL1 EQU UCBOBS02+00000048 16 BYTE(S) 11490000 UCBCELL2 EQU UCBOBS02+00000064 16 BYTE(S) 11500000 UCBCELL3 EQU UCBOBS02+00000080 16 BYTE(S) 11510000 UCBCELL4 EQU UCBOBS02+00000096 16 BYTE(S) 11520000 UCBCELL5 EQU UCBOBS02+00000112 16 BYTE(S) 11530000 UCBCELL6 EQU UCBOBS02+00000128 16 BYTE(S) 11540000 UCBCELL7 EQU UCBOBS02+00000144 16 BYTE(S) 11550000 UCBCELL8 EQU UCBOBS02+00000160 16 BYTE(S) 11560000 UCBCELL9 EQU UCBOBS02+00000176 16 BYTE(S) 11570000 UCBDC EQU UCBOBS02+00000192 FULLWORD POINTER 11580000 UCBWKADA EQU UCBOBS02+00000192 FULLWORD POINTER 11590000 UCBOBS03 EQU 00000024 8 BYTE(S) ON WORD 11600000 UCBNBRSN EQU UCBOBS03+00000000 1 BYTE POINTER 11610000 UCBSNADR EQU UCBOBS03+00000001 3 BYTE POINTER ON WORD+1 11620000 UCBXTADR EQU UCBOBS03+00000004 FULLWORD POINTER 11630000 UCBOBS04 EQU 00000024 16 BYTE(S) ON WORD 11640000 UCBSENS EQU UCBOBS04+00000000 2 BYTE(S) 11650000 UCBOPEN EQU UCBOBS04+00000002 1 BYTE POINTER 11660000 UCBGCB EQU UCBOBS04+00000003 1 BYTE(S) 11670000 UCBTEB EQU UCBOBS04+00000004 FULLWORD POINTER 11680000 UCBSTART EQU UCBOBS04+00000008 FULLWORD POINTER 11690000 UCBBTA EQU UCBOBS04+00000012 FULLWORD POINTER 11700000 UCBDI EQU UCBOBS04+00000012 1 BYTE POINTER 11710000 UCBBTB EQU UCBOBS04+00000013 3 BYTE POINTER 11720000 UCBOBS05 EQU 00000024 4 BYTE(S) ON WORD 11730000 UCBCRWKA EQU UCBOBS05+00000000 FULLWORD POINTER 11740000 UCBOBS06 EQU 00000056 FULLWORD INTEGER 11750000 UCBDCLL EQU 00000000 16 BYTE(S) ON WORD 11760000 UCBDCELL EQU UCBDCLL+00000000 16 BYTE(S) ON WORD 11770000 UCBDBBNR EQU UCBDCLL+00000000 HALFWORD INTEGER 11780000 UCBDSTAB EQU UCBDCLL+00000002 1 BYTE(S) 11790000 UCBDBSVL EQU UCBDCLL+00000002 1 BIT(S) 11800000 A00091 EQU UCBDCLL+00000002 1 BIT(S) 11810000 UCBDBPRS EQU UCBDCLL+00000002 1 BIT(S) 11820000 UCBDBPRV EQU UCBDCLL+00000002 1 BIT(S) 11830000 UCBDBPUB EQU UCBDCLL+00000002 1 BIT(S) 11840000 UCBDBSTR EQU UCBDCLL+00000002 1 BIT(S) 11850000 UCBDBJLB EQU UCBDCLL+00000002 1 BIT(S) 11860000 UCBDBNUL EQU UCBDCLL+00000002 1 BIT(S) 11870000 UCBDSTAT EQU UCBDCLL+00000003 1 BYTE(S) 11880000 UCBDNORM EQU UCBDCLL+00000003 1 BIT(S) 11890000 A00092 EQU UCBDCLL+00000003 1 BIT(S) 11900000 UCBDRESV EQU UCBDCLL+00000003 1 BIT(S) 11910000 UCBDUNLD EQU UCBDCLL+00000003 1 BIT(S) 11920000 UCBDALOC EQU UCBDCLL+00000003 1 BIT(S) 11930000 UCBDPRES EQU UCBDCLL+00000003 1 BIT(S) 11940000 A00093 EQU UCBDCLL+00000003 1 BIT(S) 11950000 A00094 EQU UCBDCLL+00000003 1 BIT(S) 11960000 UCBDVOLI EQU UCBDCLL+00000004 6 BYTE(S) 11970000 UCBDJBNR EQU UCBDCLL+00000010 1 BYTE POINTER 11980000 UCBDDMCT EQU UCBDCLL+00000011 1 BYTE POINTER 11990000 UCBDDMNT EQU UCBDCLL+00000011 1 BIT(S) 12000000 A00095 EQU UCBDCLL+00000011 7 BIT(S) 12010000 UCBDVTOC EQU UCBDCLL+00000012 3 BYTE(S) 12020000 UCBDUSER EQU UCBDCLL+00000015 1 BYTE POINTER 12030000 UCBDA EQU 00000000 184 BYTE(S) ON WORD 12040000 A00096 EQU UCBDA+00000000 104 BYTE(S) 12050000 UCBERP EQU UCBDA+00000104 40 BYTE(S) 12060000 UCBOVFLW EQU UCBDA+00000144 40 BYTE(S) 12070000 UCBMT EQU 00000000 24 BYTE(S) ON WORD 12080000 UCBROR EQU UCBMT+00000000 8 BYTE(S) 12090000 UCBSUM EQU UCBMT+00000008 2 BYTE(S) 12100000 UCBSUMA EQU UCBMT+00000008 1 BYTE(S) 12110000 UCBSUMTR EQU UCBMT+00000008 1 BIT(S) 12120000 UCBSUMTW EQU UCBMT+00000008 1 BIT(S) 12130000 UCBSUMSC EQU UCBMT+00000008 2 BIT(S) 12140000 UCBSUMPR EQU UCBMT+00000008 1 BIT(S) 12150000 UCBSUMPW EQU UCBMT+00000008 1 BIT(S) 12160000 UCBSUMNB EQU UCBMT+00000008 1 BIT(S) 12170000 A00097 EQU UCBMT+00000008 1 BIT(S) 12180000 UCBSUMB EQU UCBMT+00000009 1 BYTE(S) 12190000 UCBSUMEG EQU UCBMT+00000009 2 BIT(S) 12200000 UCBSUMCA EQU UCBMT+00000009 2 BIT(S) 12210000 A00098 EQU UCBMT+00000009 1 BIT(S) 12220000 A00099 EQU UCBMT+00000009 1 BIT(S) 12230000 A00100 EQU UCBMT+00000009 1 BIT(S) 12240000 A00101 EQU UCBMT+00000009 1 BIT(S) 12250000 UCBTRT EQU UCBMT+00000010 1 BYTE POINTER 12260000 UCBTWT EQU UCBMT+00000011 1 BYTE POINTER 12270000 UCBTR EQU UCBMT+00000012 1 BYTE POINTER 12280000 UCBTW EQU UCBMT+00000013 1 BYTE POINTER 12290000 UCBSIO EQU UCBMT+00000014 HALFWORD INTEGER 12300000 UCBPR EQU UCBMT+00000016 1 BYTE POINTER 12310000 UCBPW EQU UCBMT+00000017 1 BYTE POINTER 12320000 UCBNB EQU UCBMT+00000018 1 BYTE POINTER 12330000 UCBMS EQU UCBMT+00000019 1 BYTE(S) 12340000 UCBERG EQU UCBMT+00000020 HALFWORD INTEGER 12350000 UCBCLN EQU UCBMT+00000022 HALFWORD INTEGER 12360000 UCBTCR EQU 00000000 32 BYTE(S) ON DWORD 12370000 UCBTCERP EQU UCBTCR+00000000 24 BYTE(S) ON DWORD 12380000 UCBRCCW1 EQU UCBTCR+00000000 8 BYTE(S) ON DWORD 12390000 UCBRCCW2 EQU UCBTCR+00000008 8 BYTE(S) ON DWORD 12400000 UCBRCCW3 EQU UCBTCR+00000016 8 BYTE(S) ON DWORD 12410000 UCBCSWSA EQU UCBTCR+00000024 8 BYTE(S) 12420000 UCBOR EQU 00000000 8 BYTE(S) ON WORD 12430000 UCBCRDDC EQU UCBOR+00000000 1 BYTE POINTER 12440000 UCBCRILC EQU UCBOR+00000001 1 BYTE POINTER 12450000 UCBCRECC EQU UCBOR+00000002 1 BYTE POINTER 12460000 A00102 EQU UCBOR+00000003 5 BYTE(S) 12470000 UCBUCS EQU 00000000 16 BYTE(S) ON WORD 12480000 UCBUCSID EQU UCBUCS+00000000 4 BYTE(S) 12490000 UCBUCSOP EQU UCBUCS+00000004 1 BYTE(S) 12500000 UCBUCSO1 EQU UCBUCS+00000004 1 BIT(S) 12510000 UCBUCSO2 EQU UCBUCS+00000004 1 BIT(S) 12520000 A00103 EQU UCBUCS+00000004 5 BIT(S) 12530000 UCBUCSPE EQU UCBUCS+00000004 1 BIT(S) 12540000 UCBFCBOP EQU UCBUCS+00000005 1 BYTE(S) 12550000 UCBFCBO1 EQU UCBUCS+00000005 1 BIT(S) 12560000 A00104 EQU UCBUCS+00000005 7 BIT(S) 12570000 A00105 EQU UCBUCS+00000006 1 BYTE(S) 12580000 UCBERCNT EQU UCBUCS+00000007 1 BYTE POINTER 12590000 UCBFCBID EQU UCBUCS+00000008 4 BYTE(S) 12600000 UCBERADR EQU UCBUCS+00000012 FULLWORD POINTER 12610000 UCBSNINF EQU 00000000 8 BYTE(S) ON WORD 12620000 UCBSNSXT EQU UCBSNINF+00000000 6 BYTE(S) 12630000 A00106 EQU UCBSNINF+00000006 2 BYTE(S) 12640000 UCBM65MP EQU 00000004 4 BYTE(S) ON WORD 12650000 UCBFL3 EQU UCBM65MP+00000000 1 BYTE(S) 12660000 UCBACU EQU UCBM65MP+00000000 1 BIT(S) 12670000 A00107 EQU UCBM65MP+00000000 1 BIT(S) 12680000 UCBHIOB EQU UCBM65MP+00000000 1 BIT(S) 12690000 UCBHIOA EQU UCBM65MP+00000000 1 BIT(S) 12700000 UCBSIOB EQU UCBM65MP+00000000 1 BIT(S) 12710000 A00108 EQU UCBM65MP+00000000 1 BIT(S) 12720000 UCBNOB EQU UCBM65MP+00000000 1 BIT(S) 12730000 UCBNOA EQU UCBM65MP+00000000 1 BIT(S) 12740000 A00109 EQU UCBM65MP+00000001 2 BYTE(S) 12750000 UCBMPFLG EQU UCBM65MP+00000003 1 BYTE(S) 12760000 A00110 EQU UCBM65MP+00000003 2 BIT(S) 12770000 UCBRIC EQU UCBM65MP+00000003 1 BIT(S) 12780000 UCBRNIC EQU UCBM65MP+00000003 1 BIT(S) 12790000 A00111 EQU UCBM65MP+00000003 1 BIT(S) 12800000 UCBNRO EQU UCBM65MP+00000003 1 BIT(S) 12810000 UCBPROC EQU UCBM65MP+00000003 1 BIT(S) 12820000 UCBIPL EQU UCBM65MP+00000003 1 BIT(S) 12830000 PARMPTR EQU 00000003 FULLWORD POINTER REGISTER 12840000 DAWT EQU 00000000 552 BYTE(S) ON WORD 12850000 DAWTDSE EQU DAWT+00000000 32 BYTE(S) ON WORD 12860000 DAWTXCTL EQU DAWT+00000000 16 BYTE(S) ON WORD 12870000 XCTLAD EQU DAWT+00000000 FULLWORD POINTER 12880000 XCTLDCB EQU DAWT+00000004 FULLWORD INTEGER 12890000 XCTLEP EQU DAWT+00000008 8 BYTE(S) 12900000 XPPARMP EQU DAWT+00000016 FULLWORD POINTER 12910000 LNGH EQU DAWT+00000020 HALFWORD INTEGER 12920000 A00112 EQU DAWT+00000022 1 BYTE(S) 12930000 TIOTNO EQU DAWT+00000023 1 BYTE(S) 12940000 TIOTPTER EQU DAWT+00000024 FULLWORD POINTER 12950000 RTCODE EQU DAWT+00000028 FULLWORD INTEGER 12960000 DAWTQMPA EQU DAWT+00000032 36 BYTE(S) 12970000 DAWTEIOB EQU DAWT+00000068 84 BYTE(S) 12980000 DAWA1 EQU DAWT+00000152 176 BYTE(S) 12990000 DAWA2 EQU DAWT+00000328 176 BYTE(S) 13000000 DAWTVARY EQU DAWT+00000504 48 BYTE(S) 13010000 TIOTP EQU 00000010 3 BYTE POINTER REGISTER 13020000 TIOT1 EQU 00000000 24 BYTE(S) ON WORD 13030000 TIOCNJOB EQU TIOT1+00000000 8 BYTE(S) 13040000 TIOCSTEP EQU TIOT1+00000008 16 BYTE(S) 13050000 TIOENTRY EQU 00000024 40 BYTE(S) ON WORD 13060000 TIOELNGH EQU TIOENTRY+00000000 1 BYTE POINTER 13070000 TIOESTTA EQU TIOENTRY+00000001 8 BIT(S) 13080000 TIOSLTYP EQU TIOENTRY+00000001 1 BIT(S) 13090000 TIOSPLTP EQU TIOENTRY+00000001 1 BIT(S) 13100000 TIOSPLTS EQU TIOENTRY+00000001 1 BIT(S) 13110000 TIOSJBLB EQU TIOENTRY+00000001 1 BIT(S) 13120000 TIOSDADS EQU TIOENTRY+00000001 1 BIT(S) 13130000 TIOSLABL EQU TIOENTRY+00000001 1 BIT(S) 13140000 TIOSDSP1 EQU TIOENTRY+00000001 1 BIT(S) 13150000 TIOSDSP2 EQU TIOENTRY+00000001 1 BIT(S) 13160000 TIOERLOC EQU TIOENTRY+00000002 2 BYTE(S) 13170000 TIOEWTCT EQU TIOENTRY+00000002 1 BYTE(S) 13180000 TIOELINK EQU TIOENTRY+00000003 1 BYTE(S) 13190000 TIOSYOUT EQU TIOENTRY+00000003 1 BIT(S) 13200000 TIOTOPEN EQU TIOENTRY+00000003 1 BIT(S) 13210000 TIOTTERM EQU TIOENTRY+00000003 1 BIT(S) 13220000 TIOEDYNM EQU TIOENTRY+00000003 1 BIT(S) 13230000 TIOEQNAM EQU TIOENTRY+00000003 1 BIT(S) 13240000 A00113 EQU TIOENTRY+00000003 3 BIT(S) 13250000 TIOEDDNM EQU TIOENTRY+00000004 8 BYTE(S) 13260000 TIOEJFCB EQU TIOENTRY+00000012 3 BYTE(S) 13270000 TIOESTTC EQU TIOENTRY+00000015 8 BIT(S) 13280000 TIOSDKCR EQU TIOENTRY+00000015 1 BIT(S) 13290000 TIOSDEFR EQU TIOENTRY+00000015 1 BIT(S) 13300000 TIOSAFFP EQU TIOENTRY+00000015 1 BIT(S) 13310000 TIOSAFFS EQU TIOENTRY+00000015 1 BIT(S) 13320000 TIOSVOLP EQU TIOENTRY+00000015 1 BIT(S) 13330000 TIOSVOLS EQU TIOENTRY+00000015 1 BIT(S) 13340000 TIOSBALP EQU TIOENTRY+00000015 1 BIT(S) 13350000 TIOSBALS EQU TIOENTRY+00000015 1 BIT(S) 13360000 TIOESTTB EQU TIOENTRY+00000016 8 BIT(S) 13370000 TIOSUSED EQU TIOENTRY+00000016 1 BIT(S) 13380000 TIOSREQD EQU TIOENTRY+00000016 1 BIT(S) 13390000 TIOSPVIO EQU TIOENTRY+00000016 1 BIT(S) 13400000 TIOSVLSR EQU TIOENTRY+00000016 1 BIT(S) 13410000 TIOSSETU EQU TIOENTRY+00000016 1 BIT(S) 13420000 TIOSMNTD EQU TIOENTRY+00000016 1 BIT(S) 13430000 TIOSUNLD EQU TIOENTRY+00000016 1 BIT(S) 13440000 TIOSVERF EQU TIOENTRY+00000016 1 BIT(S) 13450000 TIOEFSRT EQU TIOENTRY+00000017 3 BYTE POINTER ON WORD+1 13460000 POOLSTAR EQU TIOENTRY+00000020 20 BYTE(S) ON WORD 13470000 A00114 EQU TIOENTRY+00000020 1 BYTE(S) 13480000 TIOPNSLT EQU TIOENTRY+00000021 1 BYTE POINTER 13490000 A00115 EQU TIOENTRY+00000022 1 BYTE(S) 13500000 TIOPNSRT EQU TIOENTRY+00000023 1 BYTE POINTER 13510000 TIOPPOOL EQU TIOENTRY+00000024 8 BYTE(S) 13520000 TIOPSTTB EQU TIOENTRY+00000032 1 BYTE(S) 13530000 TIOPSLOT EQU TIOENTRY+00000033 3 BYTE POINTER ON WORD+1 13540000 TIOTFEND EQU TIOENTRY+00000036 4 BYTE(S) 13550000 A00116 EQU 00000504 45 BYTE(S) ON WORD 13560000 OLDDSE EQU A00116+00000000 FULLWORD POINTER 13570000 NEWDSE EQU A00116+00000004 FULLWORD POINTER 13580000 A00117 EQU A00116+00000008 FULLWORD INTEGER 13590000 ADDINIT EQU A00116+00000012 FULLWORD POINTER 13600000 LASTDSE EQU A00116+00000016 FULLWORD POINTER 13610000 A00118 EQU A00116+00000020 24 BYTE(S) 13620000 A00119 EQU A00116+00000044 1 BYTE(S) ON WORD 13630000 A00120 EQU A00116+00000044 1 BYTE(S) ON WORD 13640000 A00121 EQU A00116+00000044 5 BIT(S) 13650000 ONEBLK EQU A00116+00000044 1 BIT(S) 13660000 DSEFRONT EQU A00116+00000044 1 BIT(S) 13670000 DSEBACK EQU A00116+00000044 1 BIT(S) 13680000 A00122 EQU 00000504 48 BYTE(S) ON WORD 13690000 DD1ADD EQU A00122+00000000 FULLWORD POINTER 13700000 DD2ADD EQU A00122+00000004 FULLWORD POINTER 13710000 DAW1P EQU A00122+00000008 FULLWORD POINTER 13720000 DSNADD EQU A00122+00000012 FULLWORD POINTER 13730000 ADDNAME1 EQU A00122+00000016 FULLWORD POINTER 13740000 ADDNAME2 EQU A00122+00000020 FULLWORD POINTER 13750000 AFDSE EQU A00122+00000024 FULLWORD POINTER 13760000 ANDSE EQU A00122+00000028 FULLWORD POINTER 13770000 ADSNDSE EQU A00122+00000032 FULLWORD POINTER 13780000 A00123 EQU A00122+00000036 FULLWORD INTEGER 13790000 A00124 EQU A00122+00000040 FULLWORD INTEGER 13800000 A00125 EQU A00122+00000044 4 BYTE(S) 13810000 VFLAGS EQU A00122+00000044 1 BYTE(S) 13820000 DDNAME1 EQU A00122+00000044 1 BIT(S) 13830000 DDNAME2 EQU A00122+00000044 1 BIT(S) 13840000 DSNAM EQU A00122+00000044 1 BIT(S) 13850000 SERCHTCB EQU A00122+00000044 1 BIT(S) 13860000 A00126 EQU A00122+00000044 4 BIT(S) 13870000 CONCOUNT EQU A00122+00000045 1 BYTE(S) 13880000 A00127 EQU A00122+00000046 2 BYTE(S) 13890000 INFMJFCB EQU 00000000 94 BYTE(S) ON WORD 13900000 JFCBDSNM EQU INFMJFCB+00000000 44 BYTE(S) 13910000 JFCBQNAM EQU INFMJFCB+00000000 8 BYTE(S) 13920000 JFCBELNM EQU INFMJFCB+00000044 8 BYTE(S) 13930000 JFCIPLTX EQU INFMJFCB+00000044 7 BYTE(S) 13940000 JFCBTSDM EQU INFMJFCB+00000052 8 BIT(S) 13950000 JFCCAT EQU INFMJFCB+00000052 1 BIT(S) 13960000 JFCVSL EQU INFMJFCB+00000052 1 BIT(S) 13970000 JFCSDS EQU INFMJFCB+00000052 1 BIT(S) 13980000 JFCTTR EQU INFMJFCB+00000052 1 BIT(S) 13990000 JFCNWRIT EQU INFMJFCB+00000052 1 BIT(S) 14000000 JFCNDSCB EQU INFMJFCB+00000052 1 BIT(S) 14010000 JFCNDCB EQU INFMJFCB+00000052 1 BIT(S) 14020000 JFCPAT EQU INFMJFCB+00000052 1 BIT(S) 14030000 JFCBSYSC EQU INFMJFCB+00000053 13 BYTE(S) 14040000 JFCBDSCB EQU INFMJFCB+00000053 3 BYTE(S) 14050000 JFCFCBID EQU INFMJFCB+00000056 4 BYTE(S) 14060000 A00128 EQU INFMJFCB+00000060 6 BYTE(S) 14070000 JFCBLTYP EQU INFMJFCB+00000066 8 BIT(S) 14080000 A00129 EQU INFMJFCB+00000066 1 BIT(S) 14090000 JFCBAL EQU INFMJFCB+00000066 1 BIT(S) 14100000 JFCBLTM EQU INFMJFCB+00000066 1 BIT(S) 14110000 JFCBLP EQU INFMJFCB+00000066 1 BIT(S) 14120000 JFCSUL EQU INFMJFCB+00000066 1 BIT(S) 14130000 JFCNSL EQU INFMJFCB+00000066 1 BIT(S) 14140000 JFCSL EQU INFMJFCB+00000066 1 BIT(S) 14150000 JFCNL EQU INFMJFCB+00000066 1 BIT(S) 14160000 JFCBOTTR EQU INFMJFCB+00000067 3 BYTE(S) 14170000 JFCBUFOF EQU INFMJFCB+00000067 1 BYTE POINTER 14180000 JFCBFOFL EQU INFMJFCB+00000067 1 BIT(S) 14190000 JFCBFLSQ EQU INFMJFCB+00000068 2 BYTE INTEGER 14200000 JFCFUNC EQU INFMJFCB+00000068 1 BYTE(S) 14210000 JFCFNCBI EQU INFMJFCB+00000068 1 BIT(S) 14220000 JFCFNCBR EQU INFMJFCB+00000068 1 BIT(S) 14230000 JFCFNCBP EQU INFMJFCB+00000068 1 BIT(S) 14240000 JFCFNCBW EQU INFMJFCB+00000068 1 BIT(S) 14250000 JFCFNCBD EQU INFMJFCB+00000068 1 BIT(S) 14260000 JFCFNCBX EQU INFMJFCB+00000068 1 BIT(S) 14270000 JFCFNCBT EQU INFMJFCB+00000068 1 BIT(S) 14280000 A00130 EQU INFMJFCB+00000068 1 BIT(S) 14290000 JFCBVLSQ EQU INFMJFCB+00000070 HALFWORD INTEGER 14300000 JFCBMASK EQU INFMJFCB+00000072 8 BYTE(S) 14310000 JFCBOPS1 EQU INFMJFCB+00000072 5 BYTE(S) 14320000 A00131 EQU INFMJFCB+00000072 4 BYTE(S) 14330000 A00132 EQU INFMJFCB+00000076 7 BIT(S) 14340000 JFCBPTTR EQU INFMJFCB+00000076 1 BIT(S) 14350000 JFCBFLG1 EQU INFMJFCB+00000077 8 BIT(S) 14360000 JFCSTAND EQU INFMJFCB+00000077 1 BIT(S) 14370000 JFCSLCRE EQU INFMJFCB+00000077 1 BIT(S) 14380000 JFCSLDES EQU INFMJFCB+00000077 1 BIT(S) 14390000 JFCDUAL EQU INFMJFCB+00000077 1 BIT(S) 14400000 JFCOPEN EQU INFMJFCB+00000077 4 BIT(S) 14410000 JFCBFLG2 EQU INFMJFCB+00000078 8 BIT(S) 14420000 JFCINOP EQU INFMJFCB+00000078 1 BIT(S) 14430000 JFCOUTOP EQU INFMJFCB+00000078 1 BIT(S) 14440000 JFCDEFER EQU INFMJFCB+00000078 1 BIT(S) 14450000 JFCMODNW EQU INFMJFCB+00000078 1 BIT(S) 14460000 JFCSDRPS EQU INFMJFCB+00000078 1 BIT(S) 14470000 JFCTRACE EQU INFMJFCB+00000078 1 BIT(S) 14480000 JFCBBUFF EQU INFMJFCB+00000078 1 BIT(S) 14490000 JFCRCTLG EQU INFMJFCB+00000078 1 BIT(S) 14500000 JFCBOPS2 EQU INFMJFCB+00000079 8 BIT(S) 14510000 JFCBCRDT EQU INFMJFCB+00000080 3 BYTE(S) 14520000 JFCBXPDT EQU INFMJFCB+00000083 3 BYTE(S) 14530000 JFCBIND1 EQU INFMJFCB+00000086 8 BIT(S) 14540000 JFCRLSE EQU INFMJFCB+00000086 2 BIT(S) 14550000 JFCLOC EQU INFMJFCB+00000086 2 BIT(S) 14560000 JFCADDED EQU INFMJFCB+00000086 2 BIT(S) 14570000 JFCGDG EQU INFMJFCB+00000086 1 BIT(S) 14580000 JFCPDS EQU INFMJFCB+00000086 1 BIT(S) 14590000 JFCBIND2 EQU INFMJFCB+00000087 8 BIT(S) 14600000 JFCDISP EQU INFMJFCB+00000087 2 BIT(S) 14610000 JFCSECUR EQU INFMJFCB+00000087 2 BIT(S) 14620000 JFCSHARE EQU INFMJFCB+00000087 1 BIT(S) 14630000 JFCENT EQU INFMJFCB+00000087 1 BIT(S) 14640000 JFCREQ EQU INFMJFCB+00000087 1 BIT(S) 14650000 JFCTEMP EQU INFMJFCB+00000087 1 BIT(S) 14660000 JFCBUFNO EQU INFMJFCB+00000088 1 BYTE(S) 14670000 JFCBUFIN EQU INFMJFCB+00000088 1 BYTE(S) 14680000 JFCBFOUT EQU INFMJFCB+00000088 1 BYTE(S) 14690000 JFCBUFRQ EQU INFMJFCB+00000088 1 BYTE(S) 14700000 JFCBHIAR EQU INFMJFCB+00000089 1 BYTE(S) 14710000 JFCBFALN EQU INFMJFCB+00000089 1 BYTE(S) 14720000 JFCBFTEK EQU INFMJFCB+00000089 8 BIT(S) 14730000 JFCSIM EQU INFMJFCB+00000089 1 BIT(S) 14740000 JFCEXC EQU INFMJFCB+00000089 1 BIT(S) 14750000 JFCDYN EQU INFMJFCB+00000089 1 BIT(S) 14760000 JFCHIER1 EQU INFMJFCB+00000089 1 BIT(S) 14770000 JFCDWORD EQU INFMJFCB+00000089 1 BIT(S) 14780000 JFCFWORD EQU INFMJFCB+00000089 1 BIT(S) 14790000 JFCBUFL EQU INFMJFCB+00000090 HALFWORD INTEGER 14800000 JFCEROPT EQU INFMJFCB+00000092 8 BIT(S) 14810000 JFCACC EQU INFMJFCB+00000092 1 BIT(S) 14820000 JFCSKP EQU INFMJFCB+00000092 1 BIT(S) 14830000 JFCABN EQU INFMJFCB+00000092 1 BIT(S) 14840000 A00133 EQU INFMJFCB+00000092 5 BIT(S) 14850000 JFCTRTCH EQU INFMJFCB+00000093 1 BYTE(S) 14860000 JFCKEYLE EQU 00000093 1 BYTE(S) 14870000 JFCCODE EQU JFCKEYLE+00000000 8 BIT(S) ON BYTE 14880000 JFCNOCON EQU JFCKEYLE+00000000 1 BIT(S) 14890000 JFCBCD EQU JFCKEYLE+00000000 1 BIT(S) 14900000 JFCFRI EQU JFCKEYLE+00000000 1 BIT(S) 14910000 JFCBUR EQU JFCKEYLE+00000000 1 BIT(S) 14920000 JFCNCR EQU JFCKEYLE+00000000 1 BIT(S) 14930000 JFCASCII EQU JFCKEYLE+00000000 1 BIT(S) 14940000 JFCTTY EQU JFCKEYLE+00000000 1 BIT(S) 14950000 A00134 EQU JFCKEYLE+00000000 1 BIT(S) 14960000 JFCSTACK EQU 00000093 8 BIT(S) ON BYTE 14970000 JFCMODE EQU JFCSTACK+00000000 8 BIT(S) ON BYTE 14980000 JFCBIN EQU JFCSTACK+00000000 1 BIT(S) 14990000 JFCEBCD EQU JFCSTACK+00000000 1 BIT(S) 15000000 JFCMODEO EQU JFCSTACK+00000000 1 BIT(S) 15010000 JFCMODER EQU JFCSTACK+00000000 1 BIT(S) 15020000 A00135 EQU JFCSTACK+00000000 2 BIT(S) 15030000 JFCTWO EQU JFCSTACK+00000000 1 BIT(S) 15040000 JFCONE EQU JFCSTACK+00000000 1 BIT(S) 15050000 JFCSPPRT EQU 00000093 20 BYTE(S) ON WORD 15060000 JFCPRTSP EQU JFCSPPRT+00000000 8 BIT(S) ON BYTE 15070000 JFCDEN EQU JFCSPPRT+00000001 8 BIT(S) 15080000 JFCLIMCT EQU JFCSPPRT+00000002 3 BYTE(S) 15090000 A00136 EQU JFCSPPRT+00000002 1 BYTE(S) 15100000 JFCTRKBL EQU JFCSPPRT+00000003 2 BYTE(S) 15110000 JFCDSORG EQU JFCSPPRT+00000005 16 BIT(S) 15120000 JFCDSRG1 EQU JFCSPPRT+00000005 8 BIT(S) 15130000 JFCORGIS EQU JFCSPPRT+00000005 1 BIT(S) 15140000 JFCORGPS EQU JFCSPPRT+00000005 1 BIT(S) 15150000 JFCORGDA EQU JFCSPPRT+00000005 1 BIT(S) 15160000 A00137 EQU JFCSPPRT+00000005 3 BIT(S) 15170000 JFCORGPO EQU JFCSPPRT+00000005 1 BIT(S) 15180000 JFCORGU EQU JFCSPPRT+00000005 1 BIT(S) 15190000 JFCDSRG2 EQU JFCSPPRT+00000006 8 BIT(S) 15200000 JFCORGGS EQU JFCSPPRT+00000006 1 BIT(S) 15210000 A00138 EQU JFCSPPRT+00000006 7 BIT(S) 15220000 JFCRECFM EQU JFCSPPRT+00000007 8 BIT(S) 15230000 JFCFMRC EQU JFCSPPRT+00000007 3 BIT(S) 15240000 JFCFMREC EQU JFCSPPRT+00000007 2 BIT(S) 15250000 JFCRFO EQU JFCSPPRT+00000007 1 BIT(S) 15260000 JFCRFB EQU JFCSPPRT+00000007 1 BIT(S) 15270000 JFCRFS EQU JFCSPPRT+00000007 1 BIT(S) 15280000 JFCCHAR EQU JFCSPPRT+00000007 2 BIT(S) 15290000 A00139 EQU JFCSPPRT+00000007 1 BIT(S) 15300000 JFCOPTCD EQU JFCSPPRT+00000008 8 BIT(S) 15310000 JFCWVCSP EQU JFCSPPRT+00000008 1 BIT(S) 15320000 JFCWVCIS EQU JFCSPPRT+00000008 1 BIT(S) 15330000 JFCWVCBD EQU JFCSPPRT+00000008 1 BIT(S) 15340000 JFCSDNAM EQU JFCSPPRT+00000008 1 BIT(S) 15350000 JFCALLOW EQU JFCSPPRT+00000008 1 BIT(S) 15360000 A00140 EQU JFCSPPRT+00000008 1 BIT(S) 15370000 JFCOVER EQU JFCSPPRT+00000008 1 BIT(S) 15380000 JFCWUMSG EQU JFCSPPRT+00000008 1 BIT(S) 15390000 JFCPCIBT EQU JFCSPPRT+00000008 1 BIT(S) 15400000 JFCMAST EQU JFCSPPRT+00000008 1 BIT(S) 15410000 JFCEXT EQU JFCSPPRT+00000008 1 BIT(S) 15420000 JFCCBWU EQU JFCSPPRT+00000008 1 BIT(S) 15430000 JFCBCKPT EQU JFCSPPRT+00000008 1 BIT(S) 15440000 JFCIND EQU JFCSPPRT+00000008 1 BIT(S) 15450000 JFCFEED EQU JFCSPPRT+00000008 1 BIT(S) 15460000 A00141 EQU JFCSPPRT+00000008 1 BIT(S) 15470000 JFCCYL EQU JFCSPPRT+00000008 1 BIT(S) 15480000 JFCACT EQU JFCSPPRT+00000008 1 BIT(S) 15490000 JFCOPTQ EQU JFCSPPRT+00000008 1 BIT(S) 15500000 JFCREDUC EQU JFCSPPRT+00000008 1 BIT(S) 15510000 A00142 EQU JFCSPPRT+00000008 1 BIT(S) 15520000 A00143 EQU JFCSPPRT+00000008 1 BIT(S) 15530000 JFCSRCHD EQU JFCSPPRT+00000008 1 BIT(S) 15540000 A00144 EQU JFCSPPRT+00000008 1 BIT(S) 15550000 JFCDEL EQU JFCSPPRT+00000008 1 BIT(S) 15560000 A00145 EQU JFCSPPRT+00000008 1 BIT(S) 15570000 A00146 EQU JFCSPPRT+00000008 1 BIT(S) 15580000 JFCREORG EQU JFCSPPRT+00000008 1 BIT(S) 15590000 JFCREL EQU JFCSPPRT+00000008 1 BIT(S) 15600000 JFCBLKSI EQU JFCSPPRT+00000009 2 BYTE INTEGER 15610000 JFCBUFSI EQU JFCSPPRT+00000009 2 BYTE INTEGER 15620000 JFCLRECL EQU JFCSPPRT+00000011 2 BYTE INTEGER 15630000 JFCNCP EQU JFCSPPRT+00000013 1 BYTE(S) 15640000 JFCBUFMX EQU JFCSPPRT+00000013 1 BYTE(S) 15650000 JFCNTM EQU JFCSPPRT+00000014 1 BYTE(S) 15660000 JFCPCI EQU JFCSPPRT+00000014 8 BIT(S) 15670000 JFCPCIX1 EQU JFCSPPRT+00000014 1 BIT(S) 15680000 JFCPCIX2 EQU JFCSPPRT+00000014 1 BIT(S) 15690000 JFCPCIA1 EQU JFCSPPRT+00000014 1 BIT(S) 15700000 JFCPCIA2 EQU JFCSPPRT+00000014 1 BIT(S) 15710000 JFCPCIN1 EQU JFCSPPRT+00000014 1 BIT(S) 15720000 JFCPCIN2 EQU JFCSPPRT+00000014 1 BIT(S) 15730000 JFCPCIR1 EQU JFCSPPRT+00000014 1 BIT(S) 15740000 JFCPCIR2 EQU JFCSPPRT+00000014 1 BIT(S) 15750000 JFCRKP EQU JFCSPPRT+00000015 2 BYTE INTEGER 15760000 JFCRESRV EQU JFCSPPRT+00000015 2 BYTE INTEGER 15770000 JFCCYLOF EQU JFCSPPRT+00000017 1 BYTE(S) 15780000 JFCDBUFN EQU JFCSPPRT+00000018 1 BYTE(S) 15790000 JFCINTVL EQU JFCSPPRT+00000019 1 BYTE(S) 15800000 JFCUCSEG EQU 00000108 68 BYTE(S) ON WORD 15810000 JFCUCSID EQU JFCUCSEG+00000000 4 BYTE(S) 15820000 JFCUCSOP EQU JFCUCSEG+00000004 8 BIT(S) 15830000 A00147 EQU JFCUCSEG+00000004 1 BIT(S) 15840000 JFCFOLD EQU JFCUCSEG+00000004 1 BIT(S) 15850000 A00148 EQU JFCUCSEG+00000004 1 BIT(S) 15860000 JFCVER EQU JFCUCSEG+00000004 1 BIT(S) 15870000 JFCFCBAL EQU JFCUCSEG+00000004 1 BIT(S) 15880000 JFCFCBVR EQU JFCUCSEG+00000004 1 BIT(S) 15890000 A00149 EQU JFCUCSEG+00000004 2 BIT(S) 15900000 JFCOUTLI EQU JFCUCSEG+00000005 1 BYTE(S) 15910000 JFCTHRSH EQU JFCUCSEG+00000005 1 BYTE(S) 15920000 JFCCPRI EQU JFCUCSEG+00000005 8 BIT(S) 15930000 JFCSEND EQU JFCUCSEG+00000005 1 BIT(S) 15940000 JFCEQUAL EQU JFCUCSEG+00000005 1 BIT(S) 15950000 JFCRECV EQU JFCUCSEG+00000005 1 BIT(S) 15960000 A00150 EQU JFCUCSEG+00000005 5 BIT(S) 15970000 JFCSOWA EQU JFCUCSEG+00000006 HALFWORD INTEGER 15980000 JFCBNTCS EQU JFCUCSEG+00000008 1 BYTE(S) 15990000 JFCBNVOL EQU JFCUCSEG+00000009 1 BYTE(S) 16000000 JFCBVOLS EQU JFCUCSEG+00000010 30 BYTE(S) 16010000 JFCBEXTL EQU JFCUCSEG+00000040 1 BYTE(S) 16020000 JFCBEXAD EQU JFCUCSEG+00000041 3 BYTE(S) 16030000 JFCBPQTY EQU JFCUCSEG+00000044 3 BYTE(S) 16040000 JFCBCTRI EQU JFCUCSEG+00000047 8 BIT(S) 16050000 JFCBSPAC EQU JFCUCSEG+00000047 2 BIT(S) 16060000 A00151 EQU JFCUCSEG+00000047 1 BIT(S) 16070000 A00152 EQU JFCUCSEG+00000047 1 BIT(S) 16080000 JFCONTIG EQU JFCUCSEG+00000047 1 BIT(S) 16090000 JFCMIXG EQU JFCUCSEG+00000047 1 BIT(S) 16100000 JFCALX EQU JFCUCSEG+00000047 1 BIT(S) 16110000 JFCROUND EQU JFCUCSEG+00000047 1 BIT(S) 16120000 JFCBSQTY EQU JFCUCSEG+00000048 3 BYTE(S) 16130000 A00153 EQU JFCUCSEG+00000051 1 BYTE(S) 16140000 JFCBDQTY EQU JFCUCSEG+00000052 3 BYTE(S) 16150000 JFCBSPNM EQU JFCUCSEG+00000055 3 BYTE POINTER 16160000 JFCBABST EQU JFCUCSEG+00000058 HALFWORD INTEGER 16170000 JFCBSBNM EQU JFCUCSEG+00000060 3 BYTE POINTER 16180000 JFCBDRLH EQU JFCUCSEG+00000063 3 BYTE(S) 16190000 JFCBVLCT EQU JFCUCSEG+00000066 1 BYTE(S) 16200000 JFCBSPTN EQU JFCUCSEG+00000067 1 BYTE(S) 16210000 JFCBEND EQU JFCUCSEG+00000068 BYTE(S) 16220000 PPARMP EQU 00000008 FULLWORD POINTER REGISTER 16230000 A00154 EQU 00000000 79 BYTE(S) ON WORD 16240000 PLNGH EQU A00154+00000000 HALFWORD INTEGER 16250000 PCODE EQU A00154+00000002 1 BYTE(S) 16260000 POPTIONS EQU A00154+00000003 8 BIT(S) 16270000 ODUMMY EQU A00154+00000003 1 BIT(S) 16280000 A00155 EQU A00154+00000003 1 BIT(S) 16290000 OTERM EQU A00154+00000003 1 BIT(S) 16300000 ODSNAME EQU A00154+00000003 1 BIT(S) 16310000 OMODNW EQU A00154+00000003 1 BIT(S) 16320000 A00156 EQU A00154+00000003 1 BIT(S) 16330000 A00157 EQU A00154+00000003 1 BIT(S) 16340000 OEXCH EQU A00154+00000003 1 BIT(S) 16350000 PDDNM1 EQU A00154+00000004 8 BYTE(S) 16360000 A00158 EQU A00154+00000012 1 BYTE(S) 16370000 PDDNM2 EQU A00154+00000013 8 BYTE(S) 16380000 A00159 EQU A00154+00000021 1 BYTE(S) 16390000 PDISP1 EQU A00154+00000022 8 BIT(S) 16400000 A00160 EQU A00154+00000022 1 BIT(S) 16410000 A00161 EQU A00154+00000022 1 BIT(S) 16420000 A00162 EQU A00154+00000022 1 BIT(S) 16430000 A00163 EQU A00154+00000022 1 BIT(S) 16440000 D1SHR EQU A00154+00000022 1 BIT(S) 16450000 D1NEW EQU A00154+00000022 1 BIT(S) 16460000 D1MOD EQU A00154+00000022 1 BIT(S) 16470000 D1OLD EQU A00154+00000022 1 BIT(S) 16480000 PDISP2 EQU A00154+00000023 8 BIT(S) 16490000 A00164 EQU A00154+00000023 1 BIT(S) 16500000 A00165 EQU A00154+00000023 1 BIT(S) 16510000 A00166 EQU A00154+00000023 1 BIT(S) 16520000 A00167 EQU A00154+00000023 1 BIT(S) 16530000 D2KEEP EQU A00154+00000023 1 BIT(S) 16540000 D2DEL EQU A00154+00000023 1 BIT(S) 16550000 D2CAT EQU A00154+00000023 1 BIT(S) 16560000 D2UNCAT EQU A00154+00000023 1 BIT(S) 16570000 PDISP3 EQU A00154+00000024 8 BIT(S) 16580000 A00168 EQU A00154+00000024 1 BIT(S) 16590000 A00169 EQU A00154+00000024 1 BIT(S) 16600000 A00170 EQU A00154+00000024 1 BIT(S) 16610000 A00171 EQU A00154+00000024 1 BIT(S) 16620000 D3KEEP EQU A00154+00000024 1 BIT(S) 16630000 D3DEL EQU A00154+00000024 1 BIT(S) 16640000 D3CAT EQU A00154+00000024 1 BIT(S) 16650000 D3UNCAT EQU A00154+00000024 1 BIT(S) 16660000 PMNM EQU A00154+00000025 8 BYTE(S) 16670000 PPRIME EQU A00154+00000033 3 BYTE(S) 16680000 PDSNP EQU A00154+00000036 FULLWORD POINTER 16690000 PUNM EQU A00154+00000040 8 BYTE(S) 16700000 PCTB EQU A00154+00000048 8 BIT(S) 16710000 SUNITS EQU A00154+00000048 2 BIT(S) 16720000 A00172 EQU A00154+00000048 1 BIT(S) 16730000 SRLSE EQU A00154+00000048 1 BIT(S) 16740000 A00173 EQU A00154+00000048 1 BIT(S) 16750000 A00174 EQU A00154+00000048 1 BIT(S) 16760000 A00175 EQU A00154+00000048 1 BIT(S) 16770000 A00176 EQU A00154+00000048 1 BIT(S) 16780000 PSEC EQU A00154+00000049 3 BYTE(S) 16790000 PCLASS EQU A00154+00000052 1 BYTE(S) 16800000 PDIREC EQU A00154+00000053 3 BYTE(S) 16810000 PFORM EQU A00154+00000056 4 BYTE(S) 16820000 PPGMNM EQU A00154+00000060 8 BYTE(S) 16830000 PBLKSIZ EQU A00154+00000068 HALFWORD INTEGER 16840000 A00177 EQU A00154+00000070 2 BYTE(S) 16850000 PSERNO EQU A00154+00000072 6 BYTE(S) 16860000 A00178 EQU A00154+00000078 1 BYTE(S) 16870000 PARMDSN EQU 00000000 45 BYTE(S) ON WORD 16880000 PDSLEN EQU PARMDSN+00000000 1 BYTE POINTER 16890000 PDSNAME EQU PARMDSN+00000001 44 BYTE(S) 16900000 A00179 EQU 00000000 13 BYTE(S) ON WORD 16910000 A00180 EQU A00179+00000000 HALFWORD INTEGER 16920000 A00181 EQU A00179+00000002 1 BYTE(S) 16930000 A00182 EQU A00179+00000003 1 BYTE(S) 16940000 A00183 EQU A00179+00000004 9 BYTE(S) 16950000 PDDNAME EQU A00179+00000004 8 BYTE(S) 16960000 A00184 EQU A00179+00000012 1 BYTE(S) 16970000 DSELSTPR EQU 00000002 FULLWORD POINTER REGISTER 16980000 DSELIST EQU 00000000 64 BYTE(S) ON WORD 16990000 CODE EQU DSELIST+00000000 1 BYTE(S) 17000000 OBTDSORG EQU DSELIST+00000001 1 BYTE(S) 17010000 FCODE EQU DSELIST+00000002 1 BYTE(S) 17020000 OPTION EQU DSELIST+00000003 1 BYTE(S) 17030000 CONTROL EQU DSELIST+00000004 1 BYTE(S) ON WORD 17040000 A00185 EQU DSELIST+00000004 5 BIT(S) 17050000 PERMALLC EQU DSELIST+00000004 1 BIT(S) 17060000 A00186 EQU DSELIST+00000004 2 BIT(S) 17070000 TCBADD EQU DSELIST+00000005 3 BYTE POINTER ON WORD+1 17080000 PASSWORD EQU DSELIST+00000008 8 BYTE(S) 17090000 PSWRDTTR EQU DSELIST+00000016 3 BYTE(S) 17100000 DSLNGTH EQU DSELIST+00000019 1 BYTE(S) 17110000 DSNAME EQU DSELIST+00000020 44 BYTE(S) 17120000 R15 EQU 00000015 FULLWORD INTEGER REGISTER 17130000 R0 EQU 00000000 FULLWORD INTEGER REGISTER 17140000 R1 EQU 00000001 FULLWORD POINTER REGISTER 17150000 R13 EQU 00000013 FULLWORD INTEGER REGISTER 17160000 ALTPTR EQU 00000013 FULLWORD POINTER REGISTER 17170000 LISTPTR EQU 00000005 FULLWORD POINTER REGISTER 17180000 SVC98LST EQU 00000000 16 BYTE(S) ON WORD 17190000 BUFFERAD EQU SVC98LST+00000000 FULLWORD POINTER 17200000 NTRYCODE EQU SVC98LST+00000000 1 BYTE(S) 17210000 DSNADDR EQU SVC98LST+00000004 FULLWORD POINTER 17220000 DSLEN EQU SVC98LST+00000004 1 BYTE POINTER 17230000 A00187 EQU SVC98LST+00000005 3 BYTE(S) 17240000 PASSWDAD EQU SVC98LST+00000008 FULLWORD POINTER 17250000 TTRBUFF EQU SVC98LST+00000012 FULLWORD INTEGER 17260000 PASSPARM EQU 00000328 20 BYTE(S) ON WORD 17270000 SVDSEPTR EQU PASSPARM+00000000 FULLWORD INTEGER 17280000 SVRTCODE EQU PASSPARM+00000004 FULLWORD INTEGER 17290000 SVTJBXPR EQU PASSPARM+00000008 FULLWORD INTEGER 17300000 SVALTPTR EQU PASSPARM+00000012 FULLWORD INTEGER 17310000 ALOCCNCT EQU PASSPARM+00000016 FULLWORD INTEGER 17320000 TCT EQU 00000000 16 BYTE(S) ON WORD 17330000 A00188 EQU TCT+00000000 12 BYTE(S) 17340000 TCTIOTBL EQU TCT+00000012 FULLWORD POINTER 17350000 DS 00000000C 17360000 @L EQU 3 17370000 @DATD DSECT 17380000 DSEPTR EQU @DATD+00000000 FULLWORD POINTER 17390000 TJBXPTR EQU @DATD+00000004 FULLWORD POINTER 17400000 DSEMPTR EQU @DATD+00000008 FULLWORD POINTER 17410000 DS 00000012C 17420000 @TEMPS DS 0F 17430000 @TEMP3 DC F'0' 17440000 @DATEND EQU * 17450000 IGC26099 CSECT , 17460000 @9FF EQU CHKPERM 17470000 @9F6 EQU OBTNDSRG 17480000 END 17490000 ./ ADD SSI=01010841,NAME=IGC2709I,SOURCE=1 * GENERATE; /* TITLE STATEMENT FOR BAL */ 00000000 TITLE 'IGC27099 - DYNAMIC ALLOCATION DSE UPDATE ROUTINE' 00000010 * /**************************************************************/ 00000020 * /* */ 00000030 * /* STATUS */ 00000040 * /* CHANGE LEVEL 0 */ 00000050 * /* */ 00000060 * /* FUNCTION */ 00000070 * /* IF ENTRY TO MODULE IGC27099 IS FROM THE DYNAMIC */ 00000080 * /* ALLOCATION CONTROL ROUTINE IT IS TO MARK DSE ENTRIES */ 00000090 * /* AS NOT IN USE. IF BIT 31 OF THE FIRST WORD OF THE */ 00000100 * /* DSE UPDATE PARAMETER LIST IS ON, THE TCB ADDRESS FIELD */ 00000110 * /* REALLY CONTAINS THE ADDRESS OF A SINGLE DSE TO BE */ 00000120 * /* MARKED AS NOT IN USE. IF BIT 30 IS ON, ENTRY IS TO */ 00000130 * /* MARK ALL BUT THE DSE'S ALLOCATED TO THE CURRENT TASK */ 00000140 * /* AND ITS ANCESTORS AS NOT IN USE. OTHERWISE THE TCB */ 00000150 * /* ADDRESS FROM THE DSE UPDATE PARAMETER LIST IS USED */ 00000160 * /* AS A SEARCH ARGUMENT AND THE DSESERCH SUBROUTINE IS */ 00000170 * /* ENTERED. UPON RETURN, THE DAWT IS FREED AND SVC 3 */ 00000180 * /* IS ISSUED. */ 00000190 * /* IF THERE IS A DSNAME IT IS USED AS A SEARCH ARGUMENT */ 00000200 * /* AND THE DSESERCH SUBROUTINE IS ENTERED. IF THE DSNAME */ 00000210 * /* IS NOT FOUND THE DAWT IS FREED AND SVC 3 ISSUED. */ 00000220 * /* IF THE DSE ASSOCIATED WITH THE DSNAME IS FOUND A CHECK */ 00000230 * /* IS MADE TO SEE IF THE DSE CONTAINS A PASSWORD TTR. */ 00000240 * /* IF IT DOES, THE TTR IS PLACED INTO THE DSE UPDATE */ 00000250 * /* PARAMETER LIST. IF THE DSE DOES NOT CONTAIN THE TTR */ 00000260 * /* A CHECK IS MADE TO SEE IF A TTR HAS BEEN PLACED INTO */ 00000270 * /* THE DSE UPDATE PARAMETER LIST. IF SUCH A TTR EXISTS */ 00000280 * /* IT IS PLACED INTO THE DSE. IF THE TTR DOES NOT EXIST */ 00000290 * /* A CHECK IS MADE TO SEE IF A PASSWORD IS IN THE DSE */ 00000300 * /* UPDATE PARAMETER LIST. IF NOT, THE DAWT IS FREED */ 00000310 * /* AND SVC 3 IS ISSUED. IF THERE IS A PASSWORD PRESENT */ 00000320 * /* PARAMETERS ARE SET UP AND THE PROTECT SVC IS ISSUED. */ 00000330 * /* ANY TTR RETURNED IS PLACED IN THE DSE AND IF THE */ 00000340 * /* ENTIRE DSE CHAIN HAS NOT BEEN SEARCHED, THE SEARCH */ 00000350 * /* CONTINUES AS ABOVE. WHEN THE ENTIRE DSE CHAIN HAS */ 00000360 * /* BEEN SEARCHED, THE DAWT IS FREED AND SVC 3 IS ISSUED. */ 00000370 * /* */ 00000380 * /* IF MODULE IGC27099 IS ENTERED FOR 'DECONCAT' THE */ 00000390 * /* DDNAMES OF THE DD'S WHICH WERE CONCATENATED MUST BE */ 00000400 * /* RESTORED TO THE DSE'S AND THE DYNAMICALLY CONCATENATED */ 00000410 * /* BIT MUST BE TURNED OFF. */ 00000420 * /* FIRST THE DSESERCH SUBROUTINE IS ENTERED TO SEARCH FOR */ 00000430 * /* THE DDNAME IN THE DSE. THE DYNAMICALLY CONCATENATED */ 00000440 * /* BIT IS TURNED OFF AND THE NEXT DSE BLOCK OBTAINED. */ 00000450 * /* IF THIS DSE BLOCK CONTAINS THE SAME DDNAME THE NEXT */ 00000460 * /* TIOT ENTRY IS OBTAINED, THE DDNAME IS MOVED FROM THE */ 00000470 * /* TIOT TO THE DSE, THE DYNAMICALLY CONCATENATED BIT IS */ 00000480 * /* TURNED OFF AND THE NEXT DSE OBTAINED AS BEFORE. */ 00000490 * /* IF THE DSE OBTAINED DOES NOT CONTAIN THE SAME DDNAME */ 00000500 * /* AS THAT BEING DECONCATENATED PROCESSING IS COMPLETE. */ 00000510 * /* EXIT IS THEN MADE TO MODULE IGC28099 VIA XCTL IF SMF IS */ 00000520 * /* RUNNING FOR TSO OTHERWISE SVC 3 IS ISSUED. */ 00000530 * /* */ 00000540 * /* ENTRY POINTS */ 00000550 * /* IGC27099 - FROM 1ST LOAD OF DSE UPDATE - IGC25099 */ 00000560 * /* */ 00000570 * /* INPUT */ 00000580 * /* REGISTER 1 - A POINTER TO THE DAWT */ 00000590 * /* REGISTER 15 - A POINTER TO THE XCTL PARAMETER LIST */ 00000600 * /* */ 00000610 * /* OUTPUT */ 00000620 * /* REGISTER 1 - A POINTER TO THE DAWT */ 00000630 * /* REGISTER 15 - A POINTER TO THE XCTL PARAMETER LIST */ 00000640 * /* */ 00000650 * /* EXTERNAL REFERENCES */ 00000660 * /* THIS ROUTINE USES THE FOLLOWING SYSTEM FUNCTIONS: */ 00000670 * /* GETMAIN - FOR WORK AREA AND PROTECT PARAMETER LIST */ 00000680 * /* FREEMAIN - FREE GOTTEN CORE, DAWT */ 00000690 * /* PROTECT - TO GET PASSWORD TTR */ 00000700 * /* EXIT - EXIT */ 00000710 * /* XCTL - TO PASS CONTROL TO MODULE IGC28099 */ 00000720 * /* */ 00000730 * /* EXITS, NORMAL */ 00000740 * /* VIA XCTL TO MODULE IGC28099 OR EXIT */ 00000750 * /* */ 00000760 * /* EXITS, ERROR */ 00000770 * /* EXIT WITH A RETURN CODE IN REGISTER 15 */ 00000780 * /* CODE(HEX) */ 00000790 * /* '504'X - DSE ASSOCIATED WITH REQUESTED DDNAME NOT */ 00000800 * /* FOUND IN DSE CHAIN */ 00000810 * /* */ 00000820 * /* TABLES/WORK AREAS */ 00000830 * /* THE FOLLOWING TABLES ARE REFERENCED: */ 00000840 * /* DSE,JMR,TCB,TCT,TIOT */ 00000850 * /* */ 00000860 * /* ATTRIBUTES */ 00000870 * /* TYPE IV SVC. REENTRANT */ 00000880 * /* */ 00000890 * /* NOTES */ 00000900 * /* SINCE THIS MODULE WILL NEVER RETURN BUT EITHER EXIT OR */ 00000910 * /* XCTL, THE CODE TO FREE THE AUTOMATIC STORAGE WILL NEVER */ 00000920 * /* BE EXECUTED. IN ORDER TO TAKE ADVANTAGE OF THIS CODE */ 00000930 * /* AND TO SAVE BYTES IN THE MODULE, THE FOLLOWING */ 00000940 * /* INSTRUCTION APPEARS IN THE NORMAL AND ERROR EXITING */ 00000950 * /* PROCEDURES: */ 00000960 * /* BAL @EL01 */ 00000970 * /* THUS THIS MODULE HAS A DEPENDENCY THAT BSL GENERATES */ 00000980 * /* @EL01 AS THE LABEL OF A GROUP OF INSTRUCTIONS THAT */ 00000990 * /* FREES AUTOMATIC STORAGE. */ 00001000 * /* THIS MODULE DEPENDS ON THE COMPILER TO GENERATE THE */ 00001010 * /* LABEL .@001 IN ORDER TO GENERATE THE MODULE IDENTIFIER. */ 00001020 * /* THIS MODULE IS DEPENDENT ON THE EBCDIC CHARACTER CODE */ 00001030 * /* SET WHICH WAS USED FOR ASSEMBLY AND MUST BE REASSEMBLED */ 00001040 * /* IF A DIFFERENT CHARACTER SET IS TO BE USED DURING */ 00001050 * /* EXECUTION. */ 00001060 * /* */ 00001070 * /**************************************************************/ 00001080 * 00001090 * /* GENERATE MODULE IDENTIFIER */ 00001100 * GENERATE; /* DO */ 00001110 LCLA &T,&SPN MODULE 00001120 &SPN SETA 0 ID 00001130 IGC27099 CSECT 00001140 B 16(@0,@F) BRANCH AROUND ID 00001150 DC AL1(8) LENGTH OF MODULE NAME 00001160 DC CL8'IGC27099' MODULE NAME 00001170 DC CL3'292' JULIAN DATE 00001180 AGO .@001 00001190 * 00001200 * IGC27099: 00001210 * PROC (PLIST) 00001220 * OPTIONS(REENTRANT,DONTSAVE,NOSAVEAREA); 00001230 LCLA &T,&SPN 0003 00001240 .@001 ANOP 0003 00001250 IGC27099 CSECT , 0003 00001260 BALR @B,0 0003 00001270 @PSTART DS 0H 0003 00001280 USING @PSTART+00000,@B 0003 00001290 LR @C,@1 0003 00001300 L @0,@SIZ001 0003 00001310 GETMAIN R,LV=(0) 0003 00001320 XR @C,@1 0003 00001330 XR @1,@C 0003 00001340 XR @C,@1 0003 00001350 USING @DATD+00000,@C 0003 00001360 XC @TEMPS(@L),@TEMPS 0003 00001370 * DCL CVTPTR PTR(31) BASED(16); /* CVT ADDRESS */ 00001380 * DCL DSEPTR PTR(31) REG(4); /* 1ST DSE ADDRESS */ 00001390 ** 00001400 ** /* COMMUNICATION VECTOR TABLE * 00001410 ** /* RELEASE 20.2 * 00001420 ** 00001430 ** /* CVT PROPER * 00001440 ** 00001450 ** DECLARE 00001460 ** 1 CVTMAP BASED(CVTPTR), 00001470 ** 00001480 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 00001490 ** AND CURRENT TCB * 00001500 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 00001510 ** ASYNCHRONOUS EXITS * 00001520 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 00001530 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 00001540 ** BLOCKS * 00001550 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 00001560 ** CONSOLE INTERRUPTION ROUTINE * 00001570 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 00001580 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 00001590 ** VALIDITY CHECKING ROUTINE * 00001600 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001610 ** FOR CONVERTING RELATIVE 00001620 ** TRACK ADDR TO ABSOLUTE * 00001630 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001640 ** FOR CONVERTING ABSOLUTE 00001650 ** TRACK ADDR TO RELATIVE * 00001660 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 00001670 ** UNIT SECTION IN UCB LOOKUP 00001680 ** TABLE * 00001690 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 00001700 ** SECTION IN UCB LOOKUP TABLE * 00001710 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 00001720 ** ROUTINE FOR SYSTEM ERROR 00001730 ** ROUTINES * 00001740 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 00001750 ** VOLUME ENTRY IN UCB TABLE * 00001760 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 00001770 ** ROUTINE * 00001780 ** 2 CVTDATE CHAR(4), /* CURRENT DATE IN PACKED 00001790 ** DECIMAL * 00001800 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 00001810 ** (MASTER RESIDENT CORE IN PCP 00001820 ** PLEASE USE CVTMSER INSTEAD 00001830 ** TO ADDRESS MASTER SCHEDULER 00001840 ** RESIDENT DATA AREA * 00001850 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 00001860 ** CHARACTERISTIC TABLE * 00001870 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 00001880 ** ROUTINE * 00001890 ** 00001900 ** 2 CVTDAR PTR(31), /* ADDR OF I/O CONTROL BLOCK 00001910 ** COMPLEX ACCESSED BY DAR * 00001920 ** 00001930 ** 00001940 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 00001950 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 00001960 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 00001970 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 00001980 ** 2 CVTTPC PTR(31), /* ADDR OF PSEUDO CLOCK FOR 00001990 ** TIMER ROUTINE * 00002000 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 00002010 ** TO BLDL ROUTINE * 00002020 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 00002030 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 00002040 ** UCB ADDR * 00002050 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 00002060 ** ROUTINE * 00002070 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 00002080 ** ROUTINE * 00002090 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 00002100 ** TABLE * 00002110 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 00002120 ** CONFIGURATION * 00002130 ** 4 * BIT(1), /* RESERVED * 00002140 ** 4 CVT1SSS BIT(1), /* - PCP * 00002150 ** 4 CVT2SPS BIT(1), /* - MFT * 00002160 ** 4 CVT4MS1 BIT(1), /* - MVT * 00002170 ** 4 * BIT(1), /* RESERVED * 00002180 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 00002190 ** 4 * BIT(1), /* RESERVED * 00002200 ** 4 * BIT(1), /* RESERVED * 00002210 ** 2 CVTDCBA PTR(24) BDY(WORD,2), 00002220 ** /* ADDR OF DCB FOR SYS1.LOGREC * 00002230 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 00002240 ** TABLE * 00002250 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 00002260 ** FREELIST POINTER * 00002270 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 00002280 ** NUCLEUS * 00002290 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 00002300 ** ROUTINE * 00002310 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 00002320 ** DISPATCHER * 00002330 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 00002340 ** TABLE * 00002350 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 00002360 ** QUEUE * 00002370 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 00002380 ** RESIDENT DATA AREA (ADDR OF 00002390 ** MAJOR QCB IN PCP) * 00002400 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 00002410 ** OF POST ROUTINE * 00002420 ** 2 CVTTRMTB PTR(31), /* ADDR OF QTAM TERMINAL TABLE * 00002430 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 00002440 ** IN READY QUEUE * 00002450 ** 2 CVTMZ00 PTR(31), /* HIGHEST STORAGE ADDRESS * 00002460 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 00002470 ** CREATES IRBS FOR EXITS * 00002480 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 00002490 ** WORD, OR ZERO (RESERVED IN 00002500 ** PCP) * 00002510 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 00002520 ** DATA AREA (RESERVED IN PCP) * 00002530 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 00002540 ** NUMBER COUNTER * 00002550 ** 2 CVTOPTA CHAR(1), /* FLAGS * 00002560 ** 3 CVTCCH BIT(1), /* - CCH OPTION PRESENT 00002570 ** (MVT/MFT) * 00002580 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 00002590 ** I/O RECOVERY MGT (MVT/MFT) */ 00002600 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 00002610 ** --I/O RECOVERY MGT (MVT/MFT) * 00002620 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 00002630 ** 3 CVTATTCH BIT(1), /* ATTACH OPERATIVE (MFT) * 00002640 ** 3 CVTHIAR BIT(1), /* MAIN STORAGE HIERARCHY 00002650 ** SUPPORT OPERATIVE * 00002660 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 00002670 ** 3 * BIT(1), /* RESERVED * 00002680 ** 2 CVTOPTB CHAR(1), /* RESERVED * 00002690 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 00002700 ** 3 * BIT(1), /* RESERVED * 00002710 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 00002720 ** 3 * BIT(5), /* RESERVED * 00002730 ** 00002740 ** 2 CVTQCDSR PTR(31), /* MVT/MFT: CDE SEARCH ROUTINE 00002750 ** ADDR */ 00002760 ** 2 CVTQLPAQ PTR(31), /* MVT/MFT: ADDR OF TOP CDE IN LP 00002770 ** QUEUE */ 00002780 ** 00002790 ** 2 CVTMPCVT PTR(31), /* MVT: ADDR OF M65MP SECONDARY 00002800 ** CVT -- MFT/PCP: RESERVED * 00002810 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 00002820 ** 2 CVTABEND PTR(31), /* MVT: ADDR OF SECONDARY CVT 00002830 ** -- MFT/PCP: RESERVED * 00002840 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 00002850 ** 00002860 ** 00002870 ** /* MFT/MVT CVT EXTENSION * 00002880 ** 00002890 ** 2 * PTR(31), /* RESERVED * 00002900 ** 2 CVTQABST CHAR (2), /* MVT: AN SVC 13 INSTRUCTION 00002910 ** -- MFT: RESERVED * 00002920 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 00002930 ** (MFT WITH SUBTASKING) * 00002940 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 00002950 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 00002960 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS WORK AREA * 00002970 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 00002980 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 00002990 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 00003000 ** 4 * BIT(7), /* RESERVED * 00003010 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 00003020 ** 2 CVT0SCR1 PTR(31), /* ADDR OF RPS SECTOR 00003030 ** CONVERTER * 00003040 ** 2 * PTR(31), /* RESERVED * 00003050 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 00003060 ** ADDR OF TCAM VECTOR TABLE * 00003070 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 00003080 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 00003090 ** 4 * BIT(7), /* RESERVED * 00003100 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 00003110 ** ADDR OF TCAM VECTOR TABLE */ 00003120 ** 00003130 ** /* MFT WITH SUBTASKING CVT EXTENSION * 00003140 ** 00003150 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 00003160 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 00003170 ** TAB ENTRIES * 00003180 ** 3 CVTTAT PTR(24) BDY(WORD,2), 00003190 ** /* ADDR OF P0 TCB POINTER * 00003200 ** 2 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 00003210 ** 2 * CHAR(3); /* RESERVED * 00003220 ** 00003230 ** /* PCP OVERLAY * 00003240 ** 00003250 ** DECLARE 00003260 ** 1 * BASED(ADDR(CVTQCDSR ) ), /* PCP OVERLAY * 00003270 ** 2 CVTCRTTR CHAR(3), /* TTR OF JCT FOR RESTART (PCP) * 00003280 ** 2 CVTSTUSA CHAR(1), /* STATUS BYTE A * 00003290 ** 3 * BIT(1), /* RESERVED * 00003300 ** 3 * BIT(1), /* RESERVED * 00003310 ** 3 * BIT(1), /* RESERVED * 00003320 ** 3 * BIT(1), /* RESERVED * 00003330 ** 3 CVTCHPTR BIT(1), /* - REQUESTED AUTOMATIC 00003340 ** CHECKPOINT RESTART WAS 00003350 ** INITIATED * 00003360 ** 3 CVTSTEPR BIT(1), /* - REQUESTED AUTOMATIC STEP 00003370 ** RESTART WAS INITIATED * 00003380 ** 3 CVTDATA BIT(1), /* - DD DATA STATEMENT IN INPUT 00003390 ** STREAM AND DATA HAS NOT BEEN 00003400 ** READ * 00003410 ** 3 * BIT(1), /* RESERVED * 00003420 ** 2 * CHAR(2), /* RESERVED * 00003430 ** 2 * CHAR(2); /* RESERVED * 00003440 ** 00003450 ** /* CVT PREFIX * 00003460 ** 00003470 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 00003480 ** 2 * CHAR(248), /* RESERVED * 00003490 ** 2 * CHAR(2), /* RESERVED * 00003500 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 00003510 ** PACKED DECIMAL, I.E., A 00003520 ** MODEL 50 WOULD BE REPRESENTED 00003530 ** AS 0050 HEX * 00003540 ** 2 CVTRELNO CHAR(4); /* OS RELEASE NUMBER (EBCDIC) * 00003550 ** 00003560 ** /* END OF CVT MACRO * 00003570 ** 00003580 * DCL TCBPTR PTR(31) BASED(CVTTCBP+4); /* CURRENT */ 00003590 * /* TCB ADDRESS */ 00003600 ** /* TASK CONTROL BLOCK * 00003610 ** /* RELEASE 20 * 00003620 ** 00003630 ** /* TCB PREFIX * 00003640 ** 00003650 ** DECLARE 00003660 ** 1 TCBFIX BASED(TCBPTR-32), 00003670 ** 00003680 ** 2 TCBFRS CHAR(32), /* FLOATING POINT REGISTER SAVE 00003690 ** AREA * 00003700 ** 3 TCBFRS0 CHAR(8), /* SAVE AREA FOR FLOATING 00003710 ** POINT REGISTER 0 * 00003720 ** 3 TCBFRS2 CHAR(8), /* SAVE AREA FOR FLOATING 00003730 ** POINT REGISTER 2 * 00003740 ** 3 TCBFRS4 CHAR(8), /* SAVE AREA FOR FLOATING 00003750 ** POINT REGISTER 4 * 00003760 ** 3 TCBFRS6 CHAR(8); /* SAVE AREA FOR FLOATING 00003770 ** POINT REGISTER 6 * 00003780 ** 00003790 ** /* TCB PROPER * 00003800 ** 00003810 ** DECLARE 00003820 ** 1 TCB BASED(TCBPTR), 00003830 ** 00003840 ** 2 TCBRBP PTR(31), /* PTR TO TOP RB ON RB CHAIN * 00003850 ** 2 TCBPIE PTR(31), /* ADDR OF PROGRAM INTERRUPT 00003860 ** ELEMENT (PIE) * 00003870 ** 2 TCBDEB PTR(31), /* ADDR OF THE DEB QUEUE * 00003880 ** 2 TCBTIO PTR(31), /* ADDR OF THE TASK I/O TABLE 00003890 ** (TIOT) * 00003900 ** 2 TCBCMP CHAR(4), /* TASK COMPLETION CODE * 00003910 ** 3 TCBCMPF CHAR(1), /* COMPLETION FLAGS * 00003920 ** 4 TCBCREQ BIT(1), /* - A DUMP HAS BEEN REQUESTED * 00003930 ** 4 TCBCSTEP BIT(1), /* - A STEP ABEND HAS BEEN 00003940 ** REQUESTED (MVT) * 00003950 ** 4 TCBCPP BIT(1), /* - SECOND ABEND LOAD OVERLAID 00003960 ** PP STORAGE (PCP/MFT) FOR 00003970 ** FIRST LOAD OVERLAY SEE 00003980 ** TCBFLGS * 00003990 ** 4 * BIT(1), /* RESERVED * 00004000 ** 4 TCBCDBL BIT(1), /* - A DOUBLE ABEND HAS 00004010 ** OCCURRED * 00004020 ** 4 TCBCWTO BIT(1), /* - DUMP MSG TO BE ISSUED TO 00004030 ** OPR * 00004040 ** 4 TCBCIND BIT(1), /* - SCHEDULER TO PRINT 00004050 ** INDICATIVE DUMP * 00004060 ** 4 TCBCMSG BIT(1), /* - ABEND MSG PROVIDED TO BE 00004070 ** PRINTED BY ABDUMP * 00004080 ** 3 TCBCMPC CHAR(3), /* SYSTEM (FIRST 12 BITS) AND 00004090 ** USER (SECOND 12) COMPLETION 00004100 ** CODES * 00004110 ** 2 TCBTRN PTR(31), /* ADDR OF CONTROL CORE TABLE * 00004120 ** 3 TCBABF CHAR(1), /* FLAG BYTE * 00004130 ** 4 TCBMOD91 BIT(1), /* - BOTH TESTRAN AND DECIMAL 00004140 ** SIMULATOR ON A MOD 91 * 00004150 ** 4 TCBNOCHK BIT(1), /* - SUPPRESS TAKING 00004160 ** CHECKPOINTS FOR THIS STEP 00004170 ** (MVT/MFT JOB STEP TCB) * 00004180 ** 4 TCBGRPH BIT(1), /* - GRAPHICS FOREGROUND JOB OR 00004190 ** GRAPHIC JOB PROCESSOR * 00004200 ** 4 * BIT(1), /* RESERVED * 00004210 ** 4 TCBTCPP BIT(1), /* - TCAM POST-PENDING (RORI) * 00004220 ** 4 TCBTCP BIT(1), /* - TEST TASK - USED BY TEST 00004230 ** SVC * 00004240 ** 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 00004250 ** CLEAN-UP BEFORE ABNORMAL 00004260 ** TERMINATION CAN BE INVOKED * 00004270 ** 4 * BIT(1), /* RESERVED * 00004280 ** 3 TCBTRNB PTR(24) BDY(BYTE), 00004290 ** /* ADDR OF CONTROL CORE TABLE * 00004300 ** 2 TCBMSS PTR(31), /* ADDR OF THE BOUNDARY BOX 00004310 ** (PCP/MFT) ADDR OF LAST SPQE 00004320 ** ON MSS QUEUE (MVT) * 00004330 ** 3 TCBNROC PTR(8), /* NONROLLOUTABLE COUNT FIELD 00004340 ** (MVT ONLY) ZERO MEANING 00004350 ** ROLLOUTABLE * 00004360 ** 3 TCBMSSB PTR(24) BDY(BYTE), 00004370 ** /* ADDR OF THE BOUNDARY BOX 00004380 ** (PCP/MFT) ADDR OF LAST SPQE 00004390 ** ON MSS QUEUE (MVT) * 00004400 ** 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY * 00004410 ** 3 TCBFLAG BIT(4), /* - PROTECTION KEY * 00004420 ** 3 TCBZERO BIT(4), /* - ZERO * 00004430 ** 2 TCBFLGS CHAR(5), /* FLAGS * 00004440 ** 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE * 00004450 ** 4 TCBFA BIT(1), /* - ABNORMAL TERMINATION IN 00004460 ** PROGRESS * 00004470 ** 4 TCBFE BIT(1), /* - NORMAL TERMINATION IN 00004480 ** PROGRESS * 00004490 ** 4 TCBFERA BIT(1), /* - ABEND INITIATED BY 00004500 ** RESIDENT ABTERM (PCP/MFT) 00004510 ** ENTER ABEND ERASE ROUTINE 00004520 ** WHEN IN CONTROL AGAIN (MVT) * 00004530 ** 4 TCBRECUR BIT(1), /* - RECURSION THRU ABEND 00004540 ** PERMITTED (PCP/MFT) ENTER 00004550 ** ABEND PURGE ROUTINE WHEN IN 00004560 ** CONTROL AGAIN (MVT) * 00004570 ** 4 TCBPDUMP BIT(1), /* - PREVENT DUMP INDICATOR 00004580 ** (MVT) * 00004590 ** 4 TCBFT BIT(1), /* - TOP TASK IN TREE BEING 00004600 ** ABTERMED (MVT) CLOSE 00004610 ** INITIATED BY ABEND (MFT) 00004620 ** DUMP PROCESSING INITIATED IN 00004630 ** ABEND (PCP) * 00004640 ** 4 TCBFS BIT(1), /* - ABTERM DUMP COMPLETED 00004650 ** (MVT) ABEND OVERLAID 00004660 ** PROBLEM PROGRAM STORAGE 00004670 ** (MFT) * 00004680 ** 4 TCBFX BIT(1), /* - PROHIBIT ASYNCHRONOUS EXIT 00004690 ** QUEUEING (MVT/MFT ONLY) * 00004700 ** 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE * 00004710 ** 4 TCBFOINP BIT(1), /* - ABEND OPERANDS SAVED IN 00004720 ** TCBCMP (MVT) ABEND 00004730 ** PROHIBITED FOR THIS SYSTEM 00004740 ** TASK (PCP/MFT) * 00004750 ** 4 TCBFSTI BIT(1), /* - SECOND JOB STEP INTERVAL 00004760 ** HAS EXPIRED (MVT INITIATOR 00004770 ** TCB) * 00004780 ** 4 TCBFRA BIT(1), /* - JOB STEP CAN CAUSE ROLLOUT 00004790 ** (MVT JOBSTEP TCB) * 00004800 ** 4 TCBFSMC BIT(1), /* - TASK HAS ISSUED SYSTEM 00004810 ** MUST COMPLETE AND SET ALL 00004820 ** OTHER TASKS IN THE SYSTEM 00004830 ** NONDISPATCHABLE * 00004840 ** 4 TCBFJMC BIT(1), /* - TASK HAS ISSUED STEP MUST 00004850 ** COMPLETE AND TURNED OFF ALL 00004860 ** OTHER TASKS IN THE STEP * 00004870 ** 4 TCBFDSOP BIT(1), /* - SYSABEND OPEN FOR JOBSTEP 00004880 ** (MVT) DUMP PROCESSING 00004890 ** INITIATED IN ABEND (PCP/MFT) * 00004900 ** 4 TCBFETXR BIT(1), /* - ETXR TO BE SCHEDULED * 00004910 ** 4 TCBFTS BIT(1), /* - MEMBER OF TIME-SLICING 00004920 ** GROUP (MVT/MFT) * 00004930 ** 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE * 00004940 ** 4 TCBFSM BIT(1), /* - ALL PSW'S IN SUPERVISOR 00004950 ** STATE (MVT) * 00004960 ** 4 TCBFRI BIT(1), /* - STEP HAS CAUSED ROLLOUTS 00004970 ** THAT ARE STILL IN EFFECT 00004980 ** (MVT JOBSTEP TCB) * 00004990 ** 4 TCBABTRM BIT(1), /* - ABTERM BIT TO PREVENT 00005000 ** MULTIPLE ABENDS (MVT) EXIT 00005010 ** EFFECTOR--SYSTEM ERROR 00005020 ** ROUTINES OPERATING FOR THIS 00005030 ** TASK (PCP/MFT) * 00005040 ** 4 TCBREC BIT(1), /* - VALID RECURSION BIT (MVT) * 00005050 ** 4 TCBRECDE BIT(4), /* - VALID RECURSION 00005060 ** CONFIGURATION BITS (MVT) * 00005070 ** 5 TCBFLREG BIT(1), /* - FLOATING POINT REGISTERS 00005080 ** EXIST (PCP/MFT) * 00005090 ** 5 TCBSCH BIT(1), /* - JOB SCHEDULER ROUTINES 00005100 ** IN PROCESS (PCP/MFT) * 00005110 ** 5 TCBPKCHG BIT(1), /* - XCTL IS CHANGING PROTECT 00005120 ** KEY IN PSW FROM ZERO 00005130 ** TO THAT USED BY PROBLEM 00005140 ** PROGRAM (PCP/MFT) * 00005150 ** 5 * BIT(1), /* - RESERVED (PCP/MFT) * 00005160 ** 3 TCBFLGS4 CHAR(1), /* NONDISPATCHABILITY FLAGS 00005170 ** (MVT) * 00005180 ** 4 TCBNDUMP BIT(1), /* - ABDUMP NON-DISP. INDICATOR * 00005190 ** 4 TCBSER BIT(1), /* - SER1 NON-DISP. INDICATOR * 00005200 ** 4 TCBRQENA BIT(1), /* - I/O RQE'S EXHAUSTED * 00005210 ** 4 * BIT(1), /* RESERVED * 00005220 ** 4 * BIT(1), /* RESERVED * 00005230 ** 4 TCBMPCVQ BIT(1), /* - VARY OR QUIESCE IN 00005240 ** MULTIPROCESSING SYSTEM * 00005250 ** 4 TCBMPCND BIT(1), /* - M65 MULTIPROCESSING 00005260 ** NON-DISP. INDICATOR FOR ALL 00005270 ** CPU'S * 00005280 ** 4 TCBONDSP BIT(1), /* - CURRENT TASK ABTERMED AND 00005290 ** NDSP WHILE DUMP DATA SET 00005300 ** BEING OPENED FOR ANOTHER TASK 00005310 ** IN SAME JOB STEP * 00005320 ** 3 TCBFLGS5 CHAR(1), /* MORE NONDISPATCHABILITY 00005330 ** FLAGS (MVT) * 00005340 ** 4 TCBFC BIT(1), /* - TASK TERMINATED * 00005350 ** 4 TCBABWF BIT(1), /* - ABNORMAL WAIT * 00005360 ** 4 TCBWFC BIT(1), /* - TASK IS WAITING FOR SPACE 00005370 ** REQUESTED BY ROLLOUT * 00005380 ** 4 TCBFRO BIT(1), /* - JOB STEP HAS BEEN ROLLED 00005390 ** OUT * 00005400 ** 4 TCBSYS BIT(1), /* - ANOTHER TASK IS IN SYSTEM 00005410 ** MUST COMPLETE STATUS * 00005420 ** 4 TCBSTP BIT(1), /* - ANOTHER TASK IN JS IS IN 00005430 ** STEP MUST COMPLETE STATUS * 00005440 ** 4 TCBFCD1 BIT(1), /* - INITIATOR WAITING FOR 00005450 ** REGION * 00005460 ** 4 TCBPNDSP BIT(1), /* - PRIMARY NONDISPATCHABILITY 00005470 ** FLAG * 00005480 ** 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (MVT) 00005490 ** ENQUEUE COUNT (PCP/MFT) * 00005500 ** 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY * 00005510 ** 2 TCBLLS PTR(31), /* ADDR OF LAST LLE IN LOAD 00005520 ** LIST (MVT) ADDR OF LAST RB 00005530 ** FOR PROGRAM LOADED VIA LOAD 00005540 ** (PCP/MFT) * 00005550 ** 2 TCBJLB PTR(31), /* ADDR OF JOBLIB DCB * 00005560 ** 2 TCBJPQ PTR(31), /* ADDR OF LAST CDE FOR JPA 00005570 ** CONTROL QUEUE (MVT) ADDR OF 00005580 ** FIRST TCB FOR JOBSTEP (MFT 00005590 ** WITH SUBTASKING) * 00005600 ** 3 TCBPURGE CHAR(1), /* PURGE FLAGS (MVT) * 00005610 ** 4 TCBJPQF BIT(1), /* - JPQ PURGE FLAG * 00005620 ** 4 * BIT(1), /* RESERVED * 00005630 ** 4 * BIT(1), /* RESERVED * 00005640 ** 4 * BIT(1), /* RESERVED * 00005650 ** 4 * BIT(1), /* RESERVED * 00005660 ** 4 * BIT(1), /* RESERVED * 00005670 ** 4 * BIT(1), /* RESERVED * 00005680 ** 4 * BIT(1), /* RESERVED * 00005690 ** 3 TCBJPQB PTR(24) BDY(BYTE), 00005700 ** /* ADDR OF LAST CDE FOR JPA 00005710 ** CONTROL QUEUE (MVT) ADDR OF 00005720 ** FIRST TCB FOR JOBSTEP (MFT 00005730 ** WITH SUBTASKING) * 00005740 ** 2 TCBGRS CHAR(64), /* GENERAL REGISTER SAVE AREA * 00005750 ** 3 TCBGRS0 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 0 * 00005760 ** 3 TCBGRS1 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 1 * 00005770 ** 3 TCBGRS2 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 2 * 00005780 ** 3 TCBGRS3 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 3 * 00005790 ** 3 TCBGRS4 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 4 * 00005800 ** 3 TCBGRS5 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 5 * 00005810 ** 3 TCBGRS6 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 6 * 00005820 ** 3 TCBGRS7 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 7 * 00005830 ** 3 TCBGRS8 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 8 * 00005840 ** 3 TCBGRS9 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 9 * 00005850 ** 3 TCBGRS10 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 10 * 00005860 ** 3 TCBGRS11 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 11 * 00005870 ** 3 TCBGRS12 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 12 * 00005880 ** 3 TCBGRS13 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 13 * 00005890 ** 3 TCBGRS14 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 14 * 00005900 ** 3 TCBGRS15 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 15 * 00005910 ** 2 TCBFSA PTR(31), /* ADDR OF FIRST PROBLEM 00005920 ** PROGRAM SAVE AREA * 00005930 ** 3 TCBQEL PTR(8), /* ENQUEUE COUNT (MVT) TCB 00005940 ** IDENTIFIER FIELD (PCP/MFT) * 00005950 ** 3 TCBFSAB PTR(24) BDY(BYTE), 00005960 ** /* ADDR OF FIRST PROBLEM 00005970 ** PROGRAM SAVE AREA * 00005980 ** 2 TCBTCB PTR(31), /* ADDR OF NEXT LOWER PRIRTITY 00005990 ** TCB ON READY QUEUE (MVT/MFT) * 00006000 ** 2 TCBTME PTR(31), /* ADDRESS OF TIMER QUEUE 00006010 ** ELEMENT * 00006020 ** 2 TCBJSTCB PTR(31), /* ADDR OF PARTITION 00006030 ** INFORMATION BLOCK (MFT) ADDR 00006040 ** OF FIRST JOBSTEP TCB (MVT) 00006050 ** OR OF THIS TCB IF KEY ZERO * 00006060 ** 3 TCBPIBT CHAR(1), /* PARTITION TYPE * 00006070 ** 4 TCBPART BIT(2), /* - PARTITION FLAG BITS (MFT 00006080 ** ONLY) * 00006090 ** 4 TCBSIZE BIT(1), /* - LARGE PARTITION (1)--SMALL 00006100 ** PARTITION (0) * 00006110 ** 4 TCBSTOP BIT(1), /* - CPU TIMING STOPPED BY 00006120 ** FINCH UNTIL TRANSIENT 00006130 ** LOADED * 00006140 ** 4 * BIT(1), /* RESERVED * 00006150 ** 4 * BIT(1), /* RESERVED * 00006160 ** 4 TCBWRITE BIT(1), /* - WTR PART (USED BY ABEND) * 00006170 ** 4 TCBSCHED BIT(1), /* - SCHEDULER IN CONTROL - 00006180 ** USED BY ABEND - TURNED OFF 00006190 ** WHEN TIOT WRITTEN TO JOB 00006200 ** QUEUE * 00006210 ** 3 TCBJSTCA PTR(24) BDY(BYTE), 00006220 ** /* ADDR OF PARTITION 00006230 ** INFORMATION BLOCK (MFT) ADDR 00006240 ** OF FIRST JOBSTEP TCB (MVT) 00006250 ** OR OF THIS TCB IF KEY ZERO * 00006260 ** 2 TCBNTC PTR(31), /* ADDR OF NEXT SISTER TCB 00006270 ** (ZERO IF THIS IS LAST 00006280 ** SUBTASK) (MFT WITH 00006290 ** SUBTASKING AND MVT) * 00006300 ** 2 TCBOTC PTR(31), /* ADDR OF MOTHER TCB (MFT WITH 00006310 ** SUBTASKING AND MVT) * 00006320 ** 2 TCBLTC PTR(31), /* ADDR OF LAST DAUGHTER TCB ( 00006330 ** ZERO IF THIS IS IT )(MFT 00006340 ** WITH SUBTASKING AND MVT) * 00006350 ** 2 TCBIQE PTR(31), /* ADDR OF IQE FOR EXTR 00006360 ** SCHEDULING (MFT WITH 00006370 ** SUBTASKING AND MVT) * 00006380 ** 2 TCBECB PTR(31), /* ADDR OF ECB TO BE POSTED 00006390 ** UPON TERMINATION (MFT WITH 00006400 ** SUBTASKING AND MVT) * 00006410 ** 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS * 00006420 ** 3 TCBTSTSK BIT(1), /* - SWAPPED TS TASK * 00006430 ** 3 TCBSTPPR BIT(1), /* - TASK SHOULD BE MADE NDSP 00006440 ** VIA TCBSTPP WHEN IT IS NO 00006450 ** LONGER RUNNING A PRIVILEGED 00006460 ** PGM * 00006470 ** 3 TCBATT BIT(1), /* - TASK SHOULD NOT HAVE 00006480 ** ATTENTION EXITS SCHEDULED ON 00006490 ** IT BY EXIT EFFECTOR * 00006500 ** 3 TCBTIOTG BIT(1), /* - PURGE TGET/TPUT AFTER 00006510 ** ATTENTION * 00006520 ** 3 * BIT(1), /* RESERVED * 00006530 ** 3 * BIT(1), /* RESERVED * 00006540 ** 3 * BIT(1), /* RESERVED * 00006550 ** 3 * BIT(1), /* RESERVED * 00006560 ** 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 00006570 ** WHICH MUST BE ISSUED BEFORE 00006580 ** TASK IS MADE DISPATCHABLE - 00006590 ** FIELD NOT RESTRICTED TO TSO * 00006600 ** 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TS TASK * 00006610 ** 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TS 00006620 ** TASK * 00006630 ** 00006640 ** /* MVT OVERLAY * 00006650 ** 00006660 ** 2 TCBPQE PTR(31); /* POINTER TO DPQE MINUS 8 FOR 00006670 ** THE JOB STEP (MVT) * 00006680 ** 00006690 ** /* MFT OVERLAY * 00006700 ** 00006710 ** DECLARE 00006720 ** 1 TCBOVLY1 BASED(ADDR(TCBPQE)), 00006730 ** 00006740 ** 2 TCBFTLMP PTR(8), /* TASK LIMIT PRIORITY (MFT) * 00006750 ** 2 TCBFTFLG CHAR(3), /* ABEND FLAGS (MFT WITH 00006760 ** SUBTASKS) * 00006770 ** 3 TCBFTFL1 CHAR(1), /* ABEND FLAGS (MFT WITH 00006780 ** SUBTASKS) * 00006790 ** 4 * BIT(1), /* RESERVED * 00006800 ** 4 * BIT(1), /* RESERVED * 00006810 ** 4 * BIT(1), /* RESERVED * 00006820 ** 4 * BIT(1), /* RESERVED * 00006830 ** 4 * BIT(1), /* RESERVED * 00006840 ** 4 TCBFTTOP BIT(1), /* - TOP TASK IN TREE BEING 00006850 ** ABTERMED * 00006860 ** 4 TCBFTCOM BIT(1), /* - ABTERM DUMP SUCCESSFULLY 00006870 ** COMPLETED * 00006880 ** 4 TCBFTSYN BIT(1), /* - ASYNCHRONOUS EXITS MAY NOT 00006890 ** BE SCHEDULED * 00006900 ** 3 TCBFTFL2 CHAR(1), /* ABEND FLAGS (MFT WITH 00006910 ** SUBTASKS) * 00006920 ** 4 TCBFTCMP BIT(1), /* - ABEND MACRO OPERANDS SAVED 00006930 ** IN TCBCMP FIELD * 00006940 ** 4 * BIT(1), /* RESERVED * 00006950 ** 4 * BIT(1), /* RESERVED * 00006960 ** 4 * BIT(1), /* RESERVED * 00006970 ** 4 * BIT(1), /* RESERVED * 00006980 ** 4 TCBFTOPN BIT(1), /* - SYSABEND OPEN (JOBSTEP 00006990 ** TCB) * 00007000 ** 4 TCBFTETX BIT(1), /* - ETXR EXIT REQUESTED BY 00007010 ** ATTACHER * 00007020 ** 4 * BIT(1), /* RESERVED * 00007030 ** 3 TCBFTFL3 CHAR(1), /* ABEND FLAGS (MFT WITH 00007040 ** SUBTASKS) * 00007050 ** 4 * BIT(1), /* RESERVED * 00007060 ** 4 * BIT(1), /* RESERVED * 00007070 ** 4 * BIT(1), /* RESERVED * 00007080 ** 4 TCBFTISS BIT(1), /* - OPEN ISSUED FOR SYSABEND * 00007090 ** 4 * BIT(1), /* RESERVED * 00007100 ** 4 TCBFTDUM BIT(1), /* - NO ABTERM DUMPS MAY BE 00007110 ** PROVIDED IN THIS STEP * 00007120 ** 4 * BIT(2), /* RESERVED * 00007130 ** 00007140 ** /* END OF OVERLAYS * 00007150 ** 00007160 ** 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 00007170 ** THIS TASK (MVT) * 00007180 ** 2 TCBSTAB PTR(31), /* ADDR OF STAE CONTROL BLOCK * 00007190 ** 3 TCBNSTAE CHAR(1), /* STAE FLAGS * 00007200 ** 4 TCBSTABE BIT(1), /* - ABEND ENTERED BECAUSE OF 00007210 ** ERROR IN STAE PROC * 00007220 ** 4 TCBQUIES BIT(1), /* - STAE INVOKED PURGE I/O 00007230 ** ROUTINE WITH QUIESCE I/O 00007240 ** OPTION * 00007250 ** 4 TCBXCTL BIT(1), /* - CURRENT SCB HAS XCTL=YES 00007260 ** OPTION * 00007270 ** 4 TCBSCAT BIT(1), /* - SCB WAS CREATED BY A 00007280 ** PROGRAM THAT IS SCATTER 00007290 ** LOADED * 00007300 ** 4 TCBHALT BIT(1), /* - PURGE I/O ROUTINE DID NOT 00007310 ** SUCCESSFULLY QUIESCE I/O BUT 00007320 ** I/O WAS HALTED * 00007330 ** 4 TCBSUPER BIT(1), /* - PROGRAM USING STAE IS IN 00007340 ** SUPERVISOR MODE * 00007350 ** 4 TCBRETRY BIT(1), /* - STAE USER REQUESTED THAT A 00007360 ** RETRY ROUTINE BE SCHEDULED 00007370 ** BUT THAT THE RB CHAIN NOT BE 00007380 ** PURGED * 00007390 ** 4 TCBVALID BIT(1), /* - RETRY ROUTINE AND 00007400 ** PARAMETER LIST ADDRESSES ARE 00007410 ** VALID * 00007420 ** 3 TCBSTABB PTR(24) BDY(BYTE), 00007430 ** /* ADDR OF STAE CONTROL BLOCK * 00007440 ** 2 TCBTCT PTR(31), /* ADDR OF TCT (MFT WITH 00007450 ** SUBTASKING - OTHERWISE 0) * 00007460 ** 3 * CHAR(1), /* RESERVED * 00007470 ** 3 TCBTCTB PTR(24) BDY(BYTE), 00007480 ** /* ADDR OF TCT (MFT WITH 00007490 ** SUBTASKING - OTHERWISE 0) * 00007500 ** 2 TCBUSER PTR(31), /* FIELD AVAILABLE TO THE USER * 00007510 ** 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 00007520 ** FLAGS * 00007530 ** 3 TCBDARP BIT(1), /* - PRIMARY DAR RECURSION - - 00007540 ** DAR FAILURE WHILE WRITING 00007550 ** CORE IMAGE * 00007560 ** 3 TCBDARS BIT(1), /* - SECONDARY DAR RECURSION - 00007570 ** - DAR FAILURE WHILE 00007580 ** ATTEMPTING TO REINSTATE 00007590 ** FAILING REGION/PARTITION * 00007600 ** 3 TCBDARD BIT(1), /* - A DUMP HAS BEEN REQUESTED 00007610 ** FOR A WRITER OR SCHEDULER 00007620 ** ABEND AND THE USER HAS NOT 00007630 ** PROVIDED A SYSABEND DD CARD * 00007640 ** 3 TCBDARC BIT(1), /* - RECURSION PERMITTED IN 00007650 ** CLOSE - AFTER DAR PROCESSING 00007660 ** COMPLETED (PCP) * 00007670 ** 3 TCBDARO BIT(1), /* - SYSTEM ERROR TASK IS 00007680 ** FAILING. DAR DUMP SHOULD NOT 00007690 ** REQUEST ANY ERP PROCESSING * 00007700 ** 3 * BIT(1), /* RESERVED * 00007710 ** 3 * BIT(1), /* RESERVED * 00007720 ** 3 TCBEXSVC BIT(1), /* SVC DUMP IS EXECUTING FOR 00007730 ** THIS TASK * 00007740 ** 2 TCBSCNDY CHAR(3), /* SECONDARY NONDISPATCHABILITY 00007750 ** FLAGS - (IF ANY BIT IN THESE 00007760 ** BYTES IS ON, THEN SO IS THE 00007770 ** PRIMARY NDSP FLAG) * 00007780 ** 3 TCBNDSP1 CHAR(1), /* FIRST BYTE * 00007790 ** 4 TCBDARTN BIT(1), /* - TASK TEMPORARILY 00007800 ** NONDISPATCHABLE - (DAR) * 00007810 ** 4 TCBDARPN BIT(1), /* - TASK PERMANENTLY 00007820 ** NONDISPATCHABLE - (DAR) * 00007830 ** 4 TCBRSTND BIT(1), /* - TASK TEMPORARILY 00007840 ** NONDISPATCHABLE - (RMS/SER) * 00007850 ** 4 TCBRSPND BIT(1), /* - TASK PERMANENTLY 00007860 ** NONDISPATCHABLE - (RMS/SER) 00007870 ** (IF THIS FLAG IS ON THEN THE 00007880 ** PREVIOUS ONE MUST BE TOO) * 00007890 ** 4 * BIT(1), /* RESERVED * 00007900 ** 4 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 00007910 ** MUST BE DELAYED UNTIL TCAM 00007920 ** I/O APPENDAGE OR SVC ROUTINE 00007930 ** HAS COMPLETED EXECUTION 00007940 ** (TCAM IN MULTIPROCESSING 00007950 ** ENVIRONMENT) * 00007960 ** 4 * BIT(1), /* RESERVED * 00007970 ** 4 * BIT(1), /* RESERVED * 00007980 ** 3 TCBNDSP2 CHAR(1), /* SECOND BYTE * 00007990 ** 4 TCBABD BIT(1), /* - SET BY ABDUMP - (MFT WITH 00008000 ** SUBTASKING) * 00008010 ** 4 TCBSTPP BIT(1), /* - TASK NDSP BECAUSE STOPPED 00008020 ** BY SETTASK * 00008030 ** 4 TCBNDSVC BIT(1), /* - TASK NDSP BECAUSE SVC 00008040 ** DUMP IS EXECUTING FOR 00008050 ** ANOTHER TASK * 00008060 ** 4 TCBNDTS BIT(1), /* - TASK NDSP BECAUSE BEING 00008070 ** SWAPPED OUT * 00008080 ** 4 TCBIWAIT BIT(1), /* - TASK NDSP DUE TO INPUT 00008090 ** WAIT * 00008100 ** 4 TCBOWAIT BIT(1), /* - TASK NDSP DUE TO OUTPUT 00008110 ** WAIT * 00008120 ** 4 * BIT(1), /* RESERVED * 00008130 ** 4 TCBABE BIT(1), /* - ABEND ENTERED FOR THIS 00008140 ** TASK - WHILE SYSABEND DCB 00008150 ** OPEN FOR ANOTHER TASK (MFT 00008160 ** WITH SUBTASKING) * 00008170 ** 3 TCBNDSP3 CHAR(1), /* THIRD BYTE * 00008180 ** 4 TCBTERM BIT(1), /* TERMINATED (MFT WITH 00008190 ** SUBTASKING * 00008200 ** 4 TCBABTER BIT(1), /* - TO BE TERMINATED BY ABEND 00008210 ** - (MFT WITH SUBTASKING) * 00008220 ** 4 * BIT(1), /* RESERVED * 00008230 ** 4 * BIT(1), /* RESERVED * 00008240 ** 4 * BIT(1), /* RESERVED * 00008250 ** 4 * BIT(1), /* RESERVED * 00008260 ** 4 * BIT(1), /* RESERVED * 00008270 ** 4 * BIT(1), /* RESERVED * 00008280 ** 2 * FIXED(31), /* RESERVED * 00008290 ** 2 TCBJSCB PTR(31), /* ADDR OF JOB STEP CONTROL 00008300 ** BLOCK * 00008310 ** 3 * CHAR(1), /* RESERVED * 00008320 ** 3 TCBJSCBB PTR(24) BDY(BYTE); 00008330 ** /* ADDR OF JOB STEP CONTROL 00008340 ** BLOCK * 00008350 ** 00008360 ** /* END OF TCB * 00008370 * DCL DSEMPTR PTR(31); /* DSE MEMBER NAME ADDRESS */ 00008380 ** DECLARE 00008390 ** 1 DSE BASED(DSEPTR), 00008400 ** /* *************************************************************** * 00008410 ** 00008420 ** 00008430 ** /* IS USED TO MAINTAIN DATA SET INFORMATION, SUCH AS THE DDNAME-- * 00008440 ** /* ME RELATIONSHIP. IT IS A SERIES OF CHAINED ELEMENTS EACH ONE * 00008450 ** /* ABLE IN SIZE DEPENDENT ON THE INFORMATION PRESENT. * 00008460 ** 00008470 ** 00008480 ** /* *************************************************************** * 00008490 ** 2 DSEFORWD PTR(31), /* ADDRESS OF NEXT DSE BLK(ZERO 00008500 ** IN LAST DSE) * 00008510 ** 2 DSEBCKWD PTR(31), /* ADDRESS OF PREV. DSE BLK 00008520 ** (ZERO IN FIRST DSE) * 00008530 ** 2 DSEBLKSZ FIXED(15), /* TOTAL NO. OF BYTES IN THIS 00008540 ** DSE BLK INCLUDES THIS FIELD 00008550 ** AND TWO PRIOR FIELDS * 00008560 ** 2 DSESTAT CHAR(1), /* THE ALLOCATED STATUS OF 00008570 ** THE DATA SET * 00008580 ** 3 * BIT(1), /* RESERVED * 00008590 ** 3 * BIT(1), /* RESERVED * 00008600 ** 3 * BIT(1), /* RESERVED * 00008610 ** 3 * BIT(1), /* RESERVED * 00008620 ** 3 DSESHR BIT(1), /* SHR * 00008630 ** 3 DSENEW BIT(1), /* NEW * 00008640 ** 3 DSEMOD BIT(1), /* MOD * 00008650 ** 3 DSEOLD BIT(1), /* OLD * 00008660 ** 2 DSECNTRL CHAR(1), /* STATUS OF DATA SETS WHEN 00008670 ** BITS ARE ON AS FOLLOWS * 00008680 ** 3 DSEDYN BIT(1), /* DATA SET ALLOCATED 00008690 ** DYNAMICALLY * 00008700 ** 3 DSENUSED BIT(1), /* DATA SET NOT IN USE * 00008710 ** 3 DSEMEM BIT(1), /* MEMBER FIELD IS PRESENT IN 00008720 ** THIS DSE * 00008730 ** 3 DSEDTIOT BIT(1), /* TIOT ENTRY IS DYNAM * 00008740 ** 3 DSECON BIT(1), /* DATA SET CONCATENATED 00008750 ** DYNAMICALLY * 00008760 ** 3 * BIT(1), /* RESERVED * 00008770 ** 3 DSEPERM BIT(1), /* DATA SET IS PERMAMENTLY 00008780 ** ALLOCATED EQU * 00008790 ** 3 * BIT(1), /* RESERVED * 00008800 ** 2 DSEDDNAM CHAR(8), /* DDNAME AS IT APPEARS IN TIOT * 00008810 ** 2 DSETCBAD PTR(31), /* ADD. OF TCB FOR CP WHICH 00008820 ** SECURED DYNAMIC ALLOC. * 00008830 ** 2 DSETTRPW FIXED(31), /* RELATIVE TTR OF PASSWD FOR 00008840 ** THIS FIELD IS ZERO. * 00008850 ** 2 DSENDISP CHAR(1), /* NORMAL DISPOSITION IND. BY 00008860 ** BIT SETTINGS: EQU EQU EQU 00008870 ** EQU * 00008880 ** 3 * BIT(1), /* RESERVED * 00008890 ** 3 * BIT(1), /* RESERVED * 00008900 ** 3 * BIT(1), /* RESERVED * 00008910 ** 3 * BIT(1), /* RESERVED * 00008920 ** 3 DSEKEP BIT(1), /* KEEP * 00008930 ** 3 DSEDEL BIT(1), /* DELETE * 00008940 ** 3 DSECAT BIT(1), /* CATLG * 00008950 ** 3 DSEUCAT BIT(1), /* UNCATLG * 00008960 ** 2 DSEADISP CHAR(1), /* ABNORMAL DISPOSITION IS IND. 00008970 ** BY SETTING BITS IN THIS 00008980 ** FIELD THE SAME AS IN 00008990 ** DSENDISP * 00009000 ** 3 * BIT(1), /* RESERVED */ 00009010 ** 3 * BIT(1), /* RESERVED */ 00009020 ** 3 * BIT(1), /* RESERVED */ 00009030 ** 3 * BIT(1), /* RESERVED */ 00009040 ** 3 DSEAKEP BIT(1), /* KEEP */ 00009050 ** 3 DSEADEL BIT(1), /* DELETE */ 00009060 ** 3 DSEACAT BIT(1), /* CATALOG */ 00009070 ** 3 DSEAUCAT BIT(1), /* UNCATALOG */ 00009080 ** 2 DSEDSORG CHAR(1), /* ORGANIZATION IND. BY 00009090 ** FOLLOWING BITS: * 00009100 ** 3 DSEIS BIT(1), /* INDEXED SEQUENTIAL * 00009110 ** 3 DSEPS BIT(1), /* PHYSICAL SEQUENTIAL * 00009120 ** 3 DSEDA BIT(1), /* DIRECT ORGANIZATION EQU EQU 00009130 ** EQU * 00009140 ** 3 * BIT(1), /* RESERVED * 00009150 ** 3 * BIT(1), /* RESERVED * 00009160 ** 3 * BIT(1), /* RESERVED * 00009170 ** 3 DSEPO BIT(1), /* PARTITIONED ORGANIZATION * 00009180 ** 3 DSEU BIT(1), /* UNMOVABLE * 00009190 ** 2 DSEDSLNG PTR(8), /* LENGTH OF DATA SET NAME IN 00009200 ** BYTES (1-44) * 00009210 ** 2 DSEDSNAM CHAR(44), /* DATA SET NAME DSE DESCRIBES * 00009220 ** 1 DSEMEMBR CHAR(8) BASED(DSEMPTR); /* FIELD CAN ONLY BE PRESENT 00009230 ** WHEN DATA SET IS OF A 00009240 ** PARTITIONED ORGANIZATION. IT 00009250 ** IS THE MEMBER OF THE PDS 00009260 ** CURRENTLY ALLOCATEDAND IS 00009270 ** PRESENT WHEN BIT TWO OF 00009280 ** CONTROL BYTE IS SET * 00009290 ** 00009300 * DCL PARMPTR PTR(31) REG(3); /* ADDRESS OF DAWT */ 00009310 * /****************************************************************** 00009320 * /* * 00009330 * /* THE FOLLOWING DECLARATION DESCRIBES THE DYNAMIC ALLOCATION * 00009340 * /* WORK TABLE (DAWT). IT IS BUILT BY CONTROL, PASSED TO THE * 00009350 * /* ROUTINES CALLED, AND FREED NORMALLY BY DSE UPDATE OR ABNORMALLY* 00009360 * /* BY THE ROUTINE MAKING AN ERROR EXIT TO THE USER * 00009370 * /* * 00009380 * /****************************************************************** 00009390 * DECLARE 1 DAWT BASED (PARMPTR), 00009400 * 4 DAWTDSE, 00009410 * 8 DAWTXCTL, 00009420 * 12 XCTLAD PTR(31), /* PTR TO XCTL ENTRY POINT * 00009430 * 12 XCTLDCB FIXED(31), /* PTR TO DCB * 00009440 * 12 XCTLEP CHAR(8), /* CONTAINS THE ENTRY POINT NM* 00009450 * 8 PPARMP PTR(31), /* PTS TO SVC PARMAMETER LIST * 00009460 * 8 LNGH FIXED(15), /* CONTAINS THE SIZE OF DAWT * 00009470 * 8 * CHAR(1), /* RESERVED * 00009480 * 8 TIOTNO CHAR(1), /* ENTRY NO. OF TIOT ENTRY * 00009490 * 8 TIOTP PTR(31), /* POINTER TO SUBJECT TIOT NTY* 00009500 * 8 RTCODE FIXED(31), /* RETURN CODE TO USER * 00009510 * 4 DAWTQMPA CHAR(36), /* QUEUE MANAGER PARAMETER AREA 00009520 * 4 DAWTEIOB CHAR(84), /* ECB/IOB FOR Q-MNGR S20201* 00009530 * 4 DAWA1 CHAR(176), /* DAWT WORK AREA ONE * 00009540 * 4 DAWA2 CHAR(176), /* DAWT WORK AREA TWO * 00009550 * 4 DAWTVARY CHAR(48); /* USED LOCALLY BY EACH ROUTIN* 00009560 * /* * 00009570 ** DECLARE 00009580 ** 1 TIOT1 BASED(TIOTP) BDY(WORD), 00009590 ** 5 TIOCNJOB CHAR(8), /* JOB NAME 00009600 ** 5 TIOCSTEP CHAR(16); /* STEP NAME 00009610 **/******************************************************************** 00009620 **/* * 00009630 **/* DD ENTRY: * 00009640 **/* * 00009650 **/* A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, THERE * 00009660 **/* MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY. * 00009670 **/* * 00009680 **/******************************************************************** 00009690 ** DECLARE 00009700 ** 1 TIOENTRY BASED(ADDR(TIOT1)+24), 00009710 ** 10 TIOELNGH PTR(8), /* LENGTH OF THIS ENTRY 00009720 ** 10 TIOESTTA BIT(8), /* STATUS -A- 00009730 ** 11 TIOSLTYP BIT(1), /* NONSTANDARD LABEL (NOTE 1) 00009740 ** 11 TIOSPLTP BIT(1), /* SPLIT CYLINDER PRIMARY 00009750 ** 11 TIOSPLTS BIT(1), /* SPLIT CYLINDER SECONDARY 00009760 ** 11 TIOSJBLB BIT(1), /* JOBLIB INDICATOR 00009770 ** 11 TIOSDADS BIT(1), /* DADSM ALLOCATION NECESSARY 00009780 ** 11 TIOSLABL BIT(1), /* LABELED/UNLABELED (NOTE 1) 00009790 ** 11 TIOSDSP1 BIT(1), /* DISPOSITION BIT 1 00009800 ** 11 TIOSDSP2 BIT(1), /* DISPOSITION BIT 2 00009810 **/* NOTE 1 - IF BOTH BITS TIOSLTYP AND TIOSLABL ARE ON, THE VOLUME 00009820 **/* IS A TAPE AND HAS AN 'ANSI' LABEL. 00009830 ** 10 TIOERLOC CHAR(2), /* REL. LOC OF POOL 00009840 ** 15 TIOEWTCT CHAR(1), /* COUNTOF NUMBER OF DEVICES 00009850 ** DURING ALLOCATION STILL 00009860 ** ELIGIBLE TO DADSM ALLOCATE 00009870 ** THIS DATA SET REQUEST 00009880 ** 15 TIOELINK CHAR(1), /* DURING ALLOCATION OF 00009890 ** ALL BUT POOLS THIS WILL BE 00009900 ** A LINK TO THE APPROPRIATE 00009910 ** PRIME SPLIT,UNIT AFFIN 00009920 ** VOL.,AFFIN OR SUBALLOCATE 00009930 **/* FOLLOWING BIT MASKS APPLY TO 'TIOELINK' FIELD */ 00009940 ** 17 TIOSYOUT BIT(1), /* SYSOUT D.S.THAT HAS DATA 00009950 ** 17 TIOTOPEN BIT(1), /* DATA SET IS OPEN 00009960 ** 17 TIOTTERM BIT(1), /* THIS IS A TERMINAL 00009970 ** 17 TIOEDYNM BIT(1), /* 'DYNAM' KEYWORD USED 00009980 ** 17 TIOEQNAM BIT(1), /* 'QNAME' KEYWORD USED 00009990 ** 17 * BIT(3), /* RESERVED */ 00010000 ** 10 TIOEDDNM CHAR(8), /* DDNAME 00010010 ** 10 TIOEJFCB CHAR(3), /* JFCB DISK ADDR 00010020 ** 10 TIOESTTC BIT(8), /* STATUS -C- 00010030 ** 11 TIOSDKCR BIT(1), /* CORE/DISK ADDRESS 00010040 ** 11 TIOSDEFR BIT(1), /* DEFERRED MOUNT 00010050 ** 11 TIOSAFFP BIT(1), /* UNIT AFFINITY PRIMARY 00010060 ** 11 TIOSAFFS BIT(1), /* UNIT AFFINITY SECONDARY 00010070 ** 11 TIOSVOLP BIT(1), /* VOLUME AFFINITY PRIMARY 00010080 ** 11 TIOSVOLS BIT(1), /* VOLUME AFFINITY SECONDARY 00010090 ** 11 TIOSBALP BIT(1), /* SUBALLOCATE PRIMARY 00010100 ** 11 TIOSBALS BIT(1), /* SUBALLOCATE SECONDARY 00010110 **/******************************************************************** 00010120 **/* * 00010130 **/* DEVICE ENTRIES: * 00010140 **/* * 00010150 **/* 1. DURING ALLOCATION: * 00010160 **/* ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR * 00010170 **/* EACH PUBLIC DEVICE ELIGIBLE. * 00010180 **/* * 00010190 **/* 2. DURING PROBLEM PROGRAM: * 00010200 **/* ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE * 00010210 **/* * 00010220 **/******************************************************************** 00010230 ** 10 TIOESTTB BIT(8), /* STATUS -B- 00010240 ** 11 TIOSUSED BIT(1), /* DATA SET IS ON DEVICE 00010250 ** 11 TIOSREQD BIT(1), /* DATA SET WILL USE DEVICE 00010260 ** 11 TIOSPVIO BIT(1), /* DEVICE VIOLATES SEPARATION 00010270 ** 11 TIOSVLSR BIT(1), /* VOLUME SERIAL PRESENT 00010280 ** 11 TIOSSETU BIT(1), /* SETUP MESSAGE REQUIRED 00010290 ** 11 TIOSMNTD BIT(1), /* MOUNTED 00010300 ** 11 TIOSUNLD BIT(1), /* UNLOAD REQUIRED 00010310 ** 11 TIOSVERF BIT(1), /* VERIFICATION REQUIRED 00010320 ** 10 TIOEFSRT PTR(24), /* SRT POINTER 00010330 **/******************************************************************** 00010340 **/* 00010350 **/* TIOT POOL ENTRY 00010360 **/* 00010370 **/******************************************************************** 00010380 ** 5 POOLSTAR, 00010390 ** 10 * CHAR(1), 00010400 ** 10 TIOPNSLT PTR(8), /* NR. OF SLOTS FOR POOL * 00010410 ** 10 * CHAR(1), 00010420 ** 10 TIOPNSRT PTR(8), /* NR. OF DEVICES (FILLED 00010430 ** SLOTS) 00010440 ** 10 TIOPPOOL CHAR(8), /* POOL NAME 00010450 ** 10 TIOPSTTB CHAR(1), /* STATUS OF SLOT 00010460 ** 10 TIOPSLOT PTR(24), /* SRT ADDRESS OF EMPTY SLOT 00010470 ** 10 TIOTFEND CHAR(4); /* FINAL END OF AN ENTRY OR 00010480 ** THE TIOT 00010490 * /**************************************************************/ 00010500 * /********************* DECLARE DAWTVARY ********************/ 00010510 * DCL 1 * BASED (ADDR(DAWTVARY)), /* DEFINE DAWTVARY */ 00010520 * 4 * PTR(31), /* ADDRESS OF DDNAME1 OR */ 00010530 * /* TCB ADDRESS IF BIT 3 OF */ 00010540 * /* VFLAGS IS SET */ 00010550 * /* THIS FIELD WAS FORMERLY */ 00010560 * /* CALLED DD1ADD BUT THIS */ 00010570 * /* NAME IS NOW ASSOCIATED */ 00010580 * /* WITH A REGISTER IN ORDER */ 00010590 * /* TO OPTIMIZE GENERATED */ 00010600 * /* CODE IN THIS MODULE */ 00010610 * 4 DD2ADD PTR(31), /* ADDRESS OF DDNAME2 */ 00010620 * 4 DAW1P PTR(31), /* WORK AREA OR JFCB ADDRESS*/ 00010630 * 4 DSNADD PTR(31), /* DSNAME, DSLENGTH BUFFER */ 00010640 * /* ADDRESS */ 00010650 * 4 ADNAME1 PTR(31), /* ADDRESS OF DSE FOR M5513*/ 00010660 * /* DDNAME1 OR DSNAME M5513*/ 00010670 * /* THE PTR NAMED M5513*/ 00010680 * /* ADDNAME1 HAS NOW M5513*/ 00010690 * /* BEEN DECLARED AS M5513*/ 00010700 * /* A REGISTER FOR M5513*/ 00010710 * /* OPTIMIZATION M5513*/ 00010720 * 4 ADDNAME2 PTR(31), /* ADDRESS OF DSE CONTAINING*/ 00010730 * /* DDNAME2 */ 00010740 * 4 AFDSE PTR(31), /* ADDRESS OF FIRST DSE */ 00010750 * 4 ANDSE PTR(31), /* ADDRESS OF NEW DSE (FOR */ 00010760 * /* DATASET ONLY) */ 00010770 * 4 ADSNDSE PTR(31), /* ADDRESS OF NEXT DSE ON */ 00010780 * /* CHAIN (AFTER SEARCH) */ 00010790 * 4 * , /* NOT USED BY DSE UPDATE */ 00010800 * 4 * , /* NOT USED BY DSE UPDATE */ 00010810 * 4 * CHAR(4), /* VFLAGS AND CONCOUNT */ 00010820 * 8 VFLAGS, /* VFLAGS */ 00010830 * 12 DDNAME1 BIT(1), /* DDNAME1 FOUND */ 00010840 * 12 DDNAME2 BIT(1), /* DDNAME2 FOUND */ 00010850 * 12 DSNAM BIT(1), /* DSNAME FOUND */ 00010860 * 12 SERCHTCB BIT(1), /* SEARCH ON TCB */ 00010870 * 12 * BIT(4), /* NOT USED BITS */ 00010880 * 8 CONCOUNT CHAR(1), /* NUMBER OF DD'S TO BE */ 00010890 * /* CONCATENATED */ 00010900 * 8 * CHAR(2); /* NOT USED */ 00010910 * 00010920 * 00010930 * /**************************************************************/ 00010940 * /******* DEFINE DYNAMIC ALLOCATION PARAMETER LIST *******/ 00010950 * /**************************************************************/ 00010960 * 00010970 * DCL 1 * BASED(PPARMP), 00010980 * 4 PLNGH FIXED(15), /* SIZE OF PARAMETER LIST * 00010990 * 4 PCODE CHAR(1), /* MACRO CODE (1=DATASET) * 00011000 * 4 POPTIONS BIT(8), /* OPTION FLAGS * 00011010 * 7 ODUMMY BIT(1), /* DUMMY SPECIFIED*/ 00011020 * 7 * BIT(1), /* RESERVED */ 00011030 * 7 OTERM BIT(1), /* TERM SPECIFIED */ 00011040 * 7 ODSNAME BIT(1), /* DSNAME SPECIF. */ 00011050 * 7 * BIT(1), /* RESERVED */ 00011060 * 7 * BIT(1), /* RESERVED */ 00011070 * 7 * BIT(1), /* RESERVED */ 00011080 * 7 OEXCH BIT(1), /* INDICATES EXCHANGE */ 00011090 * /* OPTION FOR CONVERT */ 00011100 * 4 PDDNM1 CHAR(8), /* DDNAME1 * 00011110 * 4 * CHAR(1), /* RESERVED * 00011120 * 4 PDDNM2 CHAR(8), /* DDNAME2 * 00011130 * 4 * CHAR(1), /* RESERVED * 00011140 * 4 PDISP1 BIT(8), /* STATUS * 00011150 * 7 * BIT(1), /* RESERVED */ 00011160 * 7 * BIT(1), /* RESERVED */ 00011170 * 7 * BIT(1), /* RESERVED */ 00011180 * 7 * BIT(1), /* RESERVED */ 00011190 * 7 D1SHR BIT(1), /* SHR STATUS */ 00011200 * 7 D1NEW BIT(1), /* NEW STATUS */ 00011210 * 7 D1MOD BIT(1), /* MOD STATUS */ 00011220 * 7 D1OLD BIT(1), /* OLD STATUS */ 00011230 * 4 PDISP2 BIT(8), /* SECONDARY DISPOSITION * 00011240 * 7 * BIT(1), /* RESERVED */ 00011250 * 7 * BIT(1), /* RESERVED */ 00011260 * 7 * BIT(1), /* RESERVED */ 00011270 * 7 * BIT(1), /* RESERVED */ 00011280 * 7 D2KEEP BIT(1), /* KEEP DISP */ 00011290 * 7 D2DEL BIT(1), /* DELETE DISP */ 00011300 * 7 D2CAT BIT(1), /* CATALOG DISP */ 00011310 * 7 D2UNCAT BIT(1), /* UNCATALOC DISP */ 00011320 * 4 PDISP3 BIT(8), /* ALTERNATE DISPOSITION */ 00011330 * 7 * BIT(1), /* RESERVED */ 00011340 * 7 * BIT(1), /* RESERVED */ 00011350 * 7 * BIT(1), /* RESERVED */ 00011360 * 7 * BIT(1), /* RESERVED */ 00011370 * 7 D3KEEP BIT(1), /* KEEP DISP */ 00011380 * 7 D3DEL BIT(1), /* DELETE DISP */ 00011390 * 7 D3CAT BIT(1), /* CATALOC DISP */ 00011400 * 7 D3UNCAT BIT(1), /* UNCATALOG DISP */ 00011410 * 4 PMNM CHAR(8), /* MEMBERNAME * 00011420 * 4 PPRIME CHAR(3), /* PRIME SPACE * 00011430 * 4 PDSNP PTR(31), /* PTR TO DATA SET NAME * 00011440 * 4 PUNM CHAR(8), /* UNIT NAME * 00011450 * 4 PCTB BIT(8), /* SPACE PARAMETER FLAGS * 00011460 * 7 SUNITS BIT(2), /*11=CYL,10=TRK,01=AVGBL* 00011470 * 7 * BIT(1), /* RESERVED */ 00011480 * 7 SRLSE BIT(1), /* RLSE SPECIFIED */ 00011490 * 7 * BIT(1), /* RESERVED */ 00011500 * 7 * BIT(1), /* RESERVED */ 00011510 * 7 * BIT(1), /* RESERVED */ 00011520 * 7 * BIT(1), /* RESERVED */ 00011530 * 4 PSEC CHAR(3), /* SECONDARY SPACE * 00011540 * 4 PCLASS CHAR(1), /* SYSOUT CLASS * 00011550 * 4 PDIREC CHAR(3), /* DIRECTORY SPACE * 00011560 * 4 PFORM CHAR(4), /* SYSOUT FORM NUMBER * 00011570 * 4 PPGMNM CHAR(8), /* SYSOUT PROGRAMNAME * 00011580 * 4 PBLKSIZ FIXED(15), /* AVERAGE BLOCK LENGTH * 00011590 * 4 * CHAR(2), /* RESERVED * 00011600 * 4 PSERNO CHAR(6), /* SERIAL NUMBER * 00011610 * 4 * CHAR(1); /* RESERVED * 00011620 * DCL 1 PARMDSN BASED (PDSNP), /*DSNAME FIELD POINTED TO * 00011630 * 2 PDSLEN PTR(8), /* BY PDSNP IN CALLER'S LIST * 00011640 * 2 PDSNAME CHAR(44); 00011650 * DCL 1 * BASED(PPARMP), /* CONCAT PARAMETER LIST */ 00011660 * 4 * FIXED(15), 00011670 * 4 * CHAR(1), 00011680 * 4 * CHAR(1), 00011690 * 4 * CHAR(9), 00011700 * 8 PDDNAME CHAR(8), 00011710 * 8 * CHAR(1); 00011720 * 00011730 * 00011740 * 00011750 * 00011760 * DCL DSELSTPR PTR(31) REG(2); /* DSE UPDATE PARAMETER */ 00011770 * /* LIST ADDRESS */ 00011780 * 00011790 * /**************************************************************/ 00011800 * /******* DEFINE THE UPDATE DSE PARAMETER LIST *******/ 00011810 * /**************************************************************/ 00011820 * 00011830 * DCL 1 DSELIST BASED (DSELSTPR), /*DSE PARAMETER LIST */ 00011840 * 4 * CHAR(3), /* NOT USED */ 00011850 * 4 * CHAR(1), 00011860 * 8 * BIT(6), /* NOT USED */ 00011870 * 8 DCR487 BIT(1), /* IF ON, INDICATES THAT ALL*/ 00011880 * /* DSE'S EXCEPT THOSE */ 00011890 * /* ALLOCATED TO THE CURRENT */ 00011900 * /* TASK AND ITS ANCESTORS */ 00011910 * /* SHOULD BE MARKED AS */ 00011920 * /* NOT IN USE */ 00011930 * 8 DCR345 BIT(1), /* INDICATES THAT THE TCBADD*/ 00011940 * /* FIELD CONTAINS THE */ 00011950 * /* ADDRESS OF A DSE TO BE */ 00011960 * /* MARKED AS NOT IN USE */ 00011970 * 4 CONTROL, /* CONTROL BYTE */ 00011980 * 8 * BIT(5), /* BITS RESERVED */ 00011990 * 8 PERMALLC BIT(1), /* SET IF DATA SET IS */ 00012000 * /* PERMANENTLY ALLOCATED */ 00012010 * 8 * BIT(2), /* BITS RESERVED */ 00012020 * 4 TCBADD PTR(24), /* ADDRESS OF TCB FOR TASK */ 00012030 * /* WHICH SECURED ALLOCATION */ 00012040 * /* OF THE DATA SET */ 00012050 * 4 PASSWORD CHAR(8), /* PASSWORD, LEFT JUSTIFIED */ 00012060 * 4 PSWRDTTR CHAR(3), /* TTR OF PASSWORD IN */ 00012070 * /* PASSWORD DATA SET */ 00012080 * 4 DSLNGTH CHAR(1), /* LENGTH OF DATA SET NAME */ 00012090 * 4 DSNAME CHAR(44); /* DSNAME, LEFT JUSTIFIED */ 00012100 * DCL ONEDSEAD PTR(24) BASED(ADDR(TCBADD)); /* ADDRESS */ 00012110 * /* OF ONE */ 00012120 * /* DSE TO BE MARKED AS NOT */ 00012130 * /* IN USE */ 00012140 * DCL R15 REG(15); /* REG. 15 FOR RETURN CODE */ 00012150 * /* FROM SUBROUTINE */ 00012160 * DCL DSESERCH LABEL /* DSE SEARCH */ 00012170 * LOCAL INTERNAL; /* SUBROUTINE */ 00012180 * DCL R0 REG(0); /* REG 0 FOR GETMAIN AND */ 00012190 * /* FREEMAIN */ 00012200 * DCL R1 REG(1) PTR; /* REG 1 FOR FREEMAIN */ 00012210 * DCL DDNAME CHAR(8) BASED; /* FOR USING DDNAME */ 00012220 * DCL LISTPTR PTR(31) AUTO; /* ADDRESS OF OBTAIN PARAM */ 00012230 * /* LIST */ 00012240 * DCL 1 SVC98LST BASED(LISTPTR), /* DECLARE PARAM LIST FOR */ 00012250 * /* SVC 98 TO GET PASSWD TTR */ 00012260 * 4 BUFFERAD PTR(31), /* ADDRESS OF ONE WORD */ 00012270 * /* BUFFER IN WHICH TO PLACE */ 00012280 * /* PASSWORD TTR */ 00012290 * 8 NTRYCODE CHAR(1), /* FUNCTION CODE FOR SVC */ 00012300 * 8 * CHAR(3), /* ADDRESS */ 00012310 * 4 DSNADDR PTR(31), /* DSNAME ADDRESS */ 00012320 * 8 DSLEN PTR(8), /* DSNAME LENGTH */ 00012330 * 8 * CHAR(3), /* ADDRESS */ 00012340 * 4 PASSWDAD PTR(31), /* PASSWORD ADDRESS */ 00012350 * 4 TTRBUFF FIXED(31); /* BUFFER FOR TTR */ 00012360 * 00012370 * DCL DUMMYDSE CHAR(256) BASED; /* DUMMY DSE MAPPING FOR*/ 00012380 * /* CLEARING A DSE */ 00012390 * DCL R14 REG(14); /* R14 FOR RETURN */ 00012400 * DCL R13 REG(13); /* TO SAVE RETURN CODE */ 00012410 * DCL TIOTADD PTR(31) REG(5); /* TIOT ENTRY ADDRESS */ 00012420 * DCL DD1ADD PTR(31) REG(5); /* ADDRESS OF DDNAME1 */ 00012430 * 00012440 * /**************************************************************/ 00012450 * /****** DECLARE PARAMETERS TO PASS BETWEEN DSE UPDATE LOADS ***/ 00012460 * /**************************************************************/ 00012470 * 00012480 * DCL 1 PASSPARM BASED(ADDR(DAWA2)), /* USE SIOT READ AREA TO */ 00012490 * /* PASS PARAMETERS */ 00012500 * 4 SVDSEPTR, /* DSE ADDRESS */ 00012510 * 4 SVRTCODE, /* FOR 504 RETURN CODE OR 0 */ 00012520 * 4 SVTJBXPR, /* TO ADDRESS 1ST DSE ADDR. */ 00012530 * 4 SVALTPTR; /* ADDRESS OF NEW DSE */ 00012540 * DCL 1 TCT BASED(TCBTCT), /* DUMMY TCT TO TEST IF SMF */ 00012550 * 4 * CHAR(12), /* IS ACTIVE */ 00012560 * 4 TCTIOTBL PTR(31); /* ADDRESS OF TCTIOT IF SMF */ 00012570 * /* IS ACTIVE, OTHERWISE 0 */ 00012580 * DCL FIRSTTCB FIXED(31); /* SAVE 1ST JOB STEP TCB ADD*/ 00012590 * DCL TCBLKPTR PTR(31); /* ADDR OF TCB ADDRESS BLOCK*/ 00012600 * DCL TCBS (255) FIXED(31) BASED(TCBLKPTR); /* TCB */ 00012610 * /* ADDRESSES */ 00012620 * DCL TCBLKSIZ FIXED(31); /* SIZE OF BLOCK OF TCB ADDR*/ 00012630 * DCL SAVEDSE FIXED(31); /* SAVE FOR 1ST DSE ADDRESS */ 00012640 * DCL CURRTCB PTR(31) REG(13); /* TCB ADDRESS BEING USED*/ 00012650 * DCL X REG(6) PTR(24); /* TCB COUNTS */ 00012660 * DCL I REG(7) PTR(24); /* TCB COUNTS */ 00012670 * DCL SAVER14 FIXED(31); /* TO SAVE R14 */ 00012680 * DCL TCBADD1 PTR(24) REG(10); /* TCB ADDRESS */ 00012690 * DCL ADDNAME1 PTR(31) REG(7); /* ADDRESS OF DSE M5513*/ 00012700 * /* FOUND BY SEARCH M5513*/ 00012710 * /* ROUTINE M5513*/ 00012720 * DCL 1 FAKEDSE BASED, /* USED TO REFERENCE TTR */ 00012730 * 4 * CHAR(24), /* FIELD IN DSE AS */ 00012740 * 4 DSETRPW CHAR(4); /* CHARACTER */ 00012750 * RESTRICT (2,3,4,5,6,7); 00012760 * PARMPTR = R1; /* SAVE ADDRESS OF DAWT */ 00012770 LR @3,@1 0053 00012780 * DSEPTR = SVDSEPTR; /* DSE ADDRESS */ 00012790 L @4,328(0,@3) 0054 00012800 * IF PCODE = '00'X THEN /* A 0 MACRO CODE MEANS */ 00012810 L @8,16(0,@3) 0055 00012820 CLI 2(@8),X'00' 0055 00012830 * GOTO NOTALLOC; /* ENTRY WAS NOT MADE FROM */ 00012840 BC 08,NOTALLOC 0056 00012850 * /* A DYNAMIC ALLOC ROUTINE */ 00012860 * 00012870 * /******************************************************/ 00012880 * /****** ENTRY IS FROM DECONCAT *****/ 00012890 * /******************************************************/ 00012900 * 00012910 * DD1ADD = ADDR(PDDNM1); /* ADDRESS OF DDNAME TO BE */ 00012920 LA @5,4(0,@8) 0057 00012930 * /* DECONCATENATED */ 00012940 * DSNADD = 0; /* DO NOT SEARCH FOR DSNAME */ 00012950 SR @F,@F 0058 00012960 ST @F,516(0,@3) 0058 00012970 * ADSNDSE = 0; /* START AT BEGIN OF CHAIN */ 00012980 ST @F,536(0,@3) 0059 00012990 * VFLAGS = '00'X; /* CLEAR INDICATOR BITS */ 00013000 MVI 548(@3),X'00' 0060 00013010 * CALL DSESERCH; /* SEARCH FOR DDNAME TO BE */ 00013020 BAL @E,DSESERCH 0061 00013030 * /* DECONCATENATED */ 00013040 * TIOTADD = TIOTP; /* ADDRESS OF CURRENT TIOT */ 00013050 L @5,24(0,@3) 0062 00013060 * /* ENTRY */ 00013070 * BITOFF: 00013080 * ADDNAME1->DSECON = '0'B; /* TURN OFF DYNAMICALLY */ 00013090 BITOFF NI 11(@7),B'11110111' 0063 00013100 * /* CONCATENATED BIT */ 00013110 * ADDNAME1 = ADDNAME1->DSEFORWD; /* ADDRESS OF NEXT */ 00013120 L @7,0(0,@7) 0064 00013130 * /* DSE IN CHAIN */ 00013140 * IF ADDNAME1->DSEDDNAM ª= /* IF THE NEXT DSE IS NOT */ 00013150 * PDDNM1 THEN /* CONCATENATED TO THE */ 00013160 L @8,16(0,@3) 0065 00013170 CLC 12(8,@7),4(@8) 0065 00013180 * GOTO LEAVE; /* REQUESTED DSE, EXIT */ 00013190 BC 07,LEAVE 0066 00013200 * /* DECONCAT THIS DSE ALSO */ 00013210 * TIOTADD = TIOTADD + /* POINT TO NEXT TIOT ENTRY */ 00013220 * TIOTADD->TIOELNGH; /* TO GET THE DDNAME FOR THE*/ 00013230 SR @F,@F 0067 00013240 IC @F,24(0,@5) 0067 00013250 AR @5,@F 0067 00013260 * /* DSE */ 00013270 * ADDNAME1->DSEDDNAM = /* MOVE DDNAME FROM TIOT */ 00013280 * TIOTADD->TIOEDDNM; /* TO DSE */ 00013290 MVC 12(8,@7),28(@5) 0068 00013300 * GOTO BITOFF; /* TURN OFF DYNAMICALLY */ 00013310 BC 15,BITOFF 0069 00013320 * /* DECONCATENATED BIT AND */ 00013330 * /* CHECK NEXT DSE */ 00013340 * 00013350 * /******************************************************/ 00013360 * /*** ENTRY WAS NOT FROM A DYNAMIC ALLOCATION ROUTINE **/ 00013370 * /******************************************************/ 00013380 * 00013390 * NOTALLOC: 00013400 * IF DSEPTR = 0 THEN /* AVOID NO DSE */ 00013410 NOTALLOC LTR @4,@4 0070 00013420 * GOTO FREEDAWT; /* SITUATION */ 00013430 BC 08,FREEDAWT 0071 00013440 * DSELSTPR = PPARMP; /* ADDRESS OF DSE UPDATE */ 00013450 L @2,16(0,@3) 0072 00013460 * /* PARAMETER LIST */ 00013470 * IF DCR345 = '1'B THEN /* IF BIT IS SET, MARK */ 00013480 TM 3(@2),B'00000001' 0073 00013490 BC 12,@9FF 0073 00013500 * DO; 00013510 * VERIFYAD: 00013520 * IF DSEPTRª=ONEDSEAD THEN /* MARK */ 00013530 VERIFYAD MVC @TEMP3+1(3),5(@2) 0075 00013540 L @F,@TEMP3 0075 00013550 CR @F,@4 0075 00013560 BC 08,@9FE 0075 00013570 * DO; 00013580 * IF DSEFORWD=0 THEN /* ONLY */ 00013590 SR @F,@F 0077 00013600 C @F,0(0,@4) 0077 00013610 * GOTO FREEDAWT; /* ONE */ 00013620 BC 08,FREEDAWT 0078 00013630 * DSEPTR=DSEFORWD; /* DSE */ 00013640 L @4,0(0,@4) 0079 00013650 * GOTO VERIFYAD; /* AS */ 00013660 BC 15,VERIFYAD 0080 00013670 * END; 00013680 * ELSE 00013690 * DO; 00013700 * ONEDSEAD->DSENUSED='1'B; /* NOT IN */ 00013710 @9FE L @8,4(0,@2) 0083 00013720 OI 11(@8),B'01000000' 0083 00013730 * GOTO FREEDAWT; /* USE */ 00013740 BC 15,FREEDAWT 0084 00013750 * END; 00013760 * END; 00013770 @9FD EQU * 0086 00013780 * 00013790 * 00013800 * /******************************************************/ 00013810 * /* CHECK TO SEE IF ALL BUT THE DSE'S ALLOCATED TO */ 00013820 * /* THE CURRENT TASK OR ITS ANCESTORS SHOULD BE */ 00013830 * /* MARKED AS NOT IN USE */ 00013840 * /******************************************************/ 00013850 * 00013860 * RESTRICT (10); 00013870 * TCBADD1=TCBPTR; /* TCB ADDR TO REGISTERM4275*/ 00013880 @9FF L @8,CVTPTR 0088 00013890 L @8,0(0,@8) CVTMAP 0088 00013900 L @A,4(0,@8) 0088 00013910 * IF DCR487='1'B THEN /* SHOULD TCB'S BE */ 00013920 TM 3(@2),B'00000010' 0089 00013930 BC 12,@9FC 0089 00013940 * DO; /* SEARCHED? */ 00013950 * FIRSTTCB=TCBADD1->TCBJSTCB;/* GET 1ST JOB STEP TCB */ 00013960 MVC FIRSTTCB(4),124(@A) 0091 00013970 * CURRTCB=TCBADD1; /* SAVE CURRENT TCB ADDRESS */ 00013980 LR @D,@A 0092 00013990 * I=1; /* INITIALIZE COUNT OF TCB'S*/ 00014000 LA @7,1 0093 00014010 * /* FOR CURRENT TASK AND */ 00014020 * /* ITS ANCESTORS */ 00014030 * CHKANCST: 00014040 * I=I+1; /* INCREMENT COUNT */ 00014050 CHKANCST LA @7,1(0,@7) 0094 00014060 * IF CURRTCBª=FIRSTTCB THEN /* IF THIS TCB IS AN */ 00014070 C @D,FIRSTTCB 0095 00014080 BC 08,@9FB 0095 00014090 * DO; /* ANCESTOR, GET THE */ 00014100 * CURRTCB=CURRTCB->TCBOTC; /* ADDRESS OF ITS MOTHER*/ 00014110 L @D,132(0,@D) 0097 00014120 * GOTO CHKANCST; /* CHECK NEXT */ 00014130 BC 15,CHKANCST 0098 00014140 * END; /* TCB */ 00014150 * R0=(4*I); /* SIZE OF GETMAIN TO SAVE */ 00014160 @9FB LR @E,@7 0100 00014170 SLA @E,2 0100 00014180 LR @0,@E 0100 00014190 * TCBLKSIZ=R0; /* ADDRESSES OF CURRENT TCB */ 00014200 ST @0,TCBLKSIZ 0101 00014210 * GENERATE; /* AND ITS ANCESTORS */ 00014220 GETMAIN R,LV=(0) CORE FOR TCB ADDRESSES 00014230 DS 0H 00014240 * TCBLKPTR=R1; /* SAVE TCB ADDR BLOCK ADDR */ 00014250 ST @1,TCBLKPTR 0103 00014260 * 00014270 * /* MOVE CURRENT TCB ADDRESS AND ITS ANCESTORS */ 00014280 * /* TO THE BLOCK JUST GOTTEN */ 00014290 * 00014300 * CURRTCB=TCBADD1; /* START WITH CURRENT TCB */ 00014310 LR @D,@A 0104 00014320 * DO X=I TO 2 BY -1; /* MOVE TCB ADDRESSES */ 00014330 LR @6,@7 0105 00014340 BC 15,@DO9F9 0105 00014350 * TCBS(X)=CURRTCB; /* SAVE TCB'S IN BLOCK */ 00014360 @DO9FA LR @8,@6 0106 00014370 BCTR @8,0 0106 00014380 SLA @8,2 0106 00014390 L @9,TCBLKPTR 0106 00014400 ST @D,0(@8,@9) 0106 00014410 * CURRTCB=CURRTCB->TCBOTC; /* ADDRESS OF MOTHER */ 00014420 L @D,132(0,@D) 0107 00014430 * END; 00014440 * TCBS(1)=0; /* INITIATOR TCB ADDRESS */ 00014450 BCTR @6,0 0108 00014460 @DO9F9 CH @6,@D1 0108 00014470 BC 10,@DO9FA 0108 00014480 SR @F,@F 0109 00014490 L @8,TCBLKPTR 0109 00014500 ST @F,0(0,@8) 0109 00014510 * /* COMPARAND FOR DSE COMPARE*/ 00014520 * SAVEDSE=DSEPTR; /* SAVE 1ST DSE ADDRESS */ 00014530 ST @4,SAVEDSE 0110 00014540 * CHKALDSE: 00014550 * DO X=I TO 1 BY -1; /* MARK ALL BUT DSE'S */ 00014560 CHKALDSE LR @6,@7 0111 00014570 LTR @6,@6 0111 00014580 BC 12,@DO9F5 0111 00014590 * /* ALLOCATED TO THE CURRENT */ 00014600 * /* TASK AND ITS ANCESTORS AS*/ 00014610 * /* NOT IN USE */ 00014620 * IF TCBS(X)=DSETCBAD THEN /* IF THIS DSE HAS A */ 00014630 @DO9F6 L @F,20(0,@4) 0112 00014640 LR @8,@6 0112 00014650 BCTR @8,0 0112 00014660 SLA @8,2 0112 00014670 L @9,TCBLKPTR 0112 00014680 C @F,0(@8,@9) 0112 00014690 * GOTO DONTMKIT; /* CURRENT OR ANCESTOR TCB, */ 00014700 BC 08,DONTMKIT 0113 00014710 * END; /* DON'T MARK NOT IN USE */ 00014720 * DSENUSED='1'B; /* MARK IT NOT IN USE */ 00014730 BCT @6,@DO9F6 0114 00014740 @DO9F5 OI 11(@4),B'01000000' 0115 00014750 * DONTMKIT: 00014760 * IF DSEFORWDª=0 THEN /* IF MORE DSE'S IN CHAIN */ 00014770 DONTMKIT SR @F,@F 0116 00014780 C @F,0(0,@4) 0116 00014790 BC 08,@9F2 0116 00014800 * DO; /* CHECK */ 00014810 * DSEPTR=DSEFORWD; /* THEM AGAINST */ 00014820 L @4,0(0,@4) 0118 00014830 * GOTO CHKALDSE; /* THE TCB */ 00014840 BC 15,CHKALDSE 0119 00014850 * END; /* ADDRESSES */ 00014860 * DSEPTR=SAVEDSE; /* RESTORE 1ST DSE ADDRESS */ 00014870 @9F2 L @4,SAVEDSE 0121 00014880 * R0=TCBLKSIZ; /* SIZE OF BLOCK TO FREE */ 00014890 L @0,TCBLKSIZ 0122 00014900 * R1=TCBLKPTR; /* ADDRESS */ 00014910 L @1,TCBLKPTR 0123 00014920 * GENERATE; /* FREE BLOCK OF TCB ADDS */ 00014930 FREEMAIN R,LV=(0),A=(1) FREE BLOCK 00014940 DS 0H 00014950 * GOTO FREEDAWT; /* EXIT */ 00014960 BC 15,FREEDAWT 0125 00014970 * END; 00014980 * IF DSLNGTH ª= '00'X THEN /* IF THERE IS A DSNAME, */ 00014990 @9FC CLI 19(@2),X'00' 0127 00015000 * GOTO SRCHDSN; /* GO SEARCH DSE CHAIN FOR */ 00015010 BC 07,SRCHDSN 0128 00015020 * /* IT */ 00015030 * IF TCBADD = 0 THEN /* EXIT IF TCB SEARCH M4275*/ 00015040 SR @F,@F 0129 00015050 MVC @TEMP3+1(3),5(@2) 0129 00015060 C @F,@TEMP3 0129 00015070 * GOTO FREEDAWT; /* NOT REQUESTED M4275*/ 00015080 BC 08,FREEDAWT 0130 00015090 * DD1ADD = TCBADD; /* TCB ADDR FOR SEARCH M4275*/ 00015100 MVC @TEMP3+1(3),5(@2) 0131 00015110 L @5,@TEMP3 0131 00015120 * /* OF DSE CHAIN TO MARK */ 00015130 * DSNADD = 0; /* DO NOT SEARCH ON DSNAME */ 00015140 SR @F,@F 0132 00015150 ST @F,516(0,@3) 0132 00015160 * ADSNDSE = 0; /* START AT BEGINNING OF DSE*/ 00015170 ST @F,536(0,@3) 0133 00015180 * VFLAGS = '00'X; /* CLEAR INDICATOR BITS */ 00015190 MVI 548(@3),X'00' 0134 00015200 * SERCHTCB = '1'B; /* ASSOCIATED DSE' AS NOT */ 00015210 OI 548(@3),B'00010000' 0135 00015220 * /* IN USE */ 00015230 * CALL DSESERCH; /* SEARCH DSE CHAIN */ 00015240 BAL @E,DSESERCH 0136 00015250 * GOTO FREEDAWT; /* EXIT */ 00015260 BC 15,FREEDAWT 0137 00015270 * SRCHDSN: 00015280 * DSNADD = ADDR(DSNAME); /* ADDRESS OF DSNAME FOR */ 00015290 SRCHDSN LA @F,20(0,@2) 0138 00015300 ST @F,516(0,@3) 0138 00015310 * /* DSE SEARCH */ 00015320 * ADSNDSE = 0; /* START AT BEGINNING OF DSE*/ 00015330 SR @F,@F 0139 00015340 ST @F,536(0,@3) 0139 00015350 * CLLSERCH:; 00015360 * VFLAGS = '00'X; /* CLEAR INDICATOR BITS */ 00015370 CLLSERCH MVI 548(@3),X'00' 0141 00015380 * CALL DSESERCH; /* LOOK FOR DSE WITH THIS NM*/ 00015390 BAL @E,DSESERCH 0142 00015400 * IF ADDNAME1->DSETTRPW = 0 THEN /* IF THERE IS NO */ 00015410 SR @F,@F 0143 00015420 C @F,24(0,@7) 0143 00015430 * GOTO NOTTR; /* PASSWORD TTR IN DSE, */ 00015440 BC 08,NOTTR 0144 00015450 * /* CHECK DSEUPDATE PARAM LST*/ 00015460 * PSWRDTTR = ADDNAME1->DSETTRPW; /* PUT TTR IN DSE UPDTE*/ 00015470 MVC 16(3,@2),24(@7) 0145 00015480 * ANYMORE: /* PARAM LIST */ 00015490 * IF ADSNDSE = 0 THEN /* IF THERE ARE MORE DSE'S, */ 00015500 ANYMORE SR @F,@F 0146 00015510 C @F,536(0,@3) 0146 00015520 * GOTO FREEDAWT; /* CONTINUE SEARCH ON */ 00015530 BC 08,FREEDAWT 0147 00015540 * /* DSNAME, OTHERWISE EXIT */ 00015550 * GOTO CLLSERCH; /* SERCH FOR MORE DSE'S */ 00015560 BC 15,CLLSERCH 0148 00015570 * NOTTR: 00015580 * IF PSWRDTTR(1:3)='000000'X/* IF NO PASSWORD TTR IN IN */ 00015590 * THEN 00015600 NOTTR CLC 16(3,@2),@X4 0149 00015610 * GOTO CHKPSS; /* PARM LIST, CHECK FOR A */ 00015620 BC 08,CHKPSS 0150 00015630 * /* PASSWORD */ 00015640 * ADDNAME1->DSETRPW(1:3) = /* PUT PASSWORD TTR FROM */ 00015650 * PSWRDTTR; /* PARM LIST INTO DSE */ 00015660 MVC 24(3,@7),16(@2) 0151 00015670 * GOTO ANYMORE; /* SEARCH FOR MORE DSE'S IF */ 00015680 BC 15,ANYMORE 0152 00015690 * /* ANY */ 00015700 * CHKPSS: 00015710 * IF PASSWORD(1)='00'X THEN /* IF THERE IS NO PASSWORD */ 00015720 CHKPSS CLI 8(@2),X'00' 0153 00015730 * GOTO FREEDAWT; /* IN PARM LIST */ 00015740 BC 08,FREEDAWT 0154 00015750 * 00015760 * /* USE PROTECT TO GET THE DESIRED PASSWORD TTR FOR DSE*/ 00015770 * 00015780 * R0 = 16; /* AMOUNT CORE FOR PROTECT */ 00015790 LA @0,16 0155 00015800 * /* PARAMETER LIST */ 00015810 * GENERATE; 00015820 GETMAIN R,LV=(0) GET CORE FOR PARAM LIST 00015830 DS 0H 00015840 * LISTPTR = R1; /* SAVE CORE ADDRESS */ 00015850 ST @1,LISTPTR 0157 00015860 * 00015870 * /** INITIALIZE PROTECT PARAM LIST TO GET PASSWORD TTR**/ 00015880 * 00015890 * BUFFERAD = ADDR(TTRBUFF); /* ADDRESS OF BUFFER FOR TTR*/ 00015900 L @8,LISTPTR 0158 00015910 LA @F,12(0,@8) 0158 00015920 ST @F,0(0,@8) 0158 00015930 * NTRYCODE = '05'X; /* FUNCTION CODE FOR PROTECT*/ 00015940 MVI 0(@8),X'05' 0159 00015950 * DSNADDR = ADDR(DSNAME); /* DSNAME ADDRESS */ 00015960 LA @F,20(0,@2) 0160 00015970 ST @F,4(0,@8) 0160 00015980 * DSLEN = DSLNGTH; /* LENGTH OF DSNAME */ 00015990 MVC 4(1,@8),19(@2) 0161 00016000 * PASSWDAD = ADDR(PASSWORD); /* PASSWORD ADDRESS */ 00016010 LA @F,8(0,@2) 0162 00016020 ST @F,8(0,@8) 0162 00016030 * GENERATE; 00016040 PROTECT (1) GET PASSWORD TTR 00016050 DS 0H 00016060 * ADDNAME1->DSETTRPW = TTRBUFF; /* PLACE PASSWORD TTR */ 00016070 MVC 24(4,@7),12(@8) 0164 00016080 * /* IN DSE */ 00016090 * R0=16; /* FREE PROTECT LIST */ 00016100 LA @0,16 0165 00016110 * R1 = LISTPTR; /* ADDRESS OF PARAM LIST */ 00016120 L @1,LISTPTR 0166 00016130 * GENERATE; 00016140 FREEMAIN R,LV=(0),A=(1) FREE PROTECT PARM LIST 00016150 DS 0H 00016160 * GOTO ANYMORE; /* SEARCH FOR MORE DSE'S IF */ 00016170 BC 15,ANYMORE 0168 00016180 * /* ANY */ 00016190 * LEAVE: 00016200 * IF TCBTCT ª= 0 & /* IF SMF IS */ 00016210 * TCTIOTBLª= 0 THEN /* IN THE SYSTEM */ 00016220 LEAVE SR @F,@F 0169 00016230 L @8,CVTPTR 0169 00016240 L @8,0(0,@8) CVTMAP 0169 00016250 L @8,4(0,@8) TCBPTR 0169 00016260 C @F,164(0,@8) 0169 00016270 BC 08,@9F1 0169 00016280 L @9,164(0,@8) TCBOVLY1 0169 00016290 C @F,12(0,@9) 0169 00016300 * GOTO SMF; /* GO TO IT */ 00016310 BC 07,SMF 0170 00016320 * 00016330 * /****** SMF IS NOT IN THE SYSTEM, ******************/ 00016340 * /****** SET RETURN CODE & FREE DAWT ******************/ 00016350 * 00016360 * IF RTCODE ª= 0 THEN /* IF THERE IS A RETURN CODE*/ 00016370 @9F0 EQU * 0171 00016380 @9F1 SR @F,@F 0171 00016390 C @F,28(0,@3) 0171 00016400 BC 08,@9EF 0171 00016410 * LEAVE1: 00016420 * DO; 00016430 * R13=RTCODE; /* IN THE DAWT, USE IT */ 00016440 LEAVE1 L @D,28(0,@3) 0173 00016450 * GOTO FREDAWT1; /* FREE DAWT */ 00016460 BC 15,FREDAWT1 0174 00016470 * END; 00016480 * 00016490 * /****** FREE THE DAWT AND EXIT ************/ 00016500 * 00016510 * FREEDAWT: 00016520 * R13 = 0; /* NORMAL RETURN */ 00016530 @9EF EQU * 0176 00016540 FREEDAWT SR @D,@D 0176 00016550 * FREDAWT1: 00016560 * R0 = LNGH; /* LENGTH OF DAWT TO FREE */ 00016570 FREDAWT1 LH @0,20(0,@3) 0177 00016580 * R1 = PARMPTR; /* ADDRESS OF DAWT TO FREE */ 00016590 LR @1,@3 0178 00016600 * GENERATE; 00016610 FREEMAIN R,LV=(0),A=(1) FREE DAWT 00016620 ******* FREE AUTOMATIC STORAGE ********* 00016630 BAL @E,@EL01 FREE AUTOMATIC STORAGE 00016640 LR @F,@D RETURN CODE TO REGISTER 15 00016650 SVC 3 EXIT 00016660 DS 0H 00016670 * SMF: 00016680 * XCTLEP(5) = '8'; /* SMF ENTRY POINT NAME */ 00016690 SMF MVI 12(@3),C'8' 0180 00016700 * GENERATE; /* FREE AUTOMATIC STORAGE */ 00016710 BAL @E,@EL01 FREE AUTOMATIC STORAGE 00016720 DS 0H 00016730 * 00016740 * /****** TRANSFER CONTROL TO SMF ROUTINE *************/ 00016750 * 00016760 * R1 = PARMPTR; /* ADDRESS OF DAWT IN R1 */ 00016770 LR @1,@3 0182 00016780 * R15 = R1; /* ADDRESS OF XCTL PARMS IN */ 00016790 LR @F,@1 0183 00016800 * /* REGISTER 15 */ 00016810 * GENERATE; /* XCTL TO SMF */ 00016820 XCTL SF=(E,(15)) XCTL TO SMF 00016830 DS 0H 00016840 * 00016850 * 00016860 * /******************************************************/ 00016870 * /************ DSESERCH SUBROUTINE ******************/ 00016880 * /******************************************************/ 00016890 * 00016900 * DSESERCH: 00016910 * PROC 00016920 * OPTIONS(NOSAVEAREA,DONTSAVE); 00016930 @EL01 LR @1,@C 0185 00016940 L @0,@SIZ001 0185 00016950 FREEMAIN R,LV=(0),A=(1) 0185 00016960 BCR 15,@E 0185 00016970 * RESTRICT (2,3,4,5,7); /* M5513*/ 00016980 * DCL DSEADDR PTR(31) AUTO; /* SAVE FOR FIRST DSE ADDRES*/ 00016990 * SAVER14 = R14; /* SAVE FOR RETURN */ 00017000 DSESERCH ST @E,SAVER14 0188 00017010 * DSEADDR = DSEPTR; /* SAVE 1ST DSE ADDRESS */ 00017020 ST @4,DSEADDR 0189 00017030 * GOTO FIRST; /* BYPASS DSE ADDRESS UPDATE*/ 00017040 BC 15,FIRST 0190 00017050 * /* UPON ENTRY */ 00017060 * GETPTR: 00017070 * IF DSEFORWD = 0 THEN /* UPDATE DSE ADDR IF */ 00017080 GETPTR SR @F,@F 0191 00017090 C @F,0(0,@4) 0191 00017100 * GOTO ENDOFDSE; /* THERE IS ANOTHER IN CHAIN*/ 00017110 BC 08,ENDOFDSE 0192 00017120 * DSEPTR = DSEFORWD; /* ADDRESS OF NEXT DSE */ 00017130 L @4,0(0,@4) 0193 00017140 * FIRST: 00017150 * IF DSNADD ª= 0 THEN /* IF NOT 0, SEARCH ON */ 00017160 FIRST SR @F,@F 0194 00017170 C @F,516(0,@3) 0194 00017180 * GOTO SERCHDSN; /* DSNAME IS REQUESTED */ 00017190 BC 07,SERCHDSN 0195 00017200 * IF SERCHTCB ª= '1'B THEN /* IF SEARCH ON TCB IS NOT */ 00017210 TM 548(@3),B'00010000' 0196 00017220 * GOTO CHECKDD1; /* REQUESTED, USE DDNAME1 */ 00017230 BC 12,CHECKDD1 0197 00017240 * 00017250 * /****** SEARCH ON TCB IS REQUESTED *****************/ 00017260 * 00017270 * IF DD1ADD = DSETCBAD THEN /* IF CORRECT TCB ADDRESS, */ 00017280 C @5,20(0,@4) 0198 00017290 BC 07,@9EE 0198 00017300 * DSENUSED = '1'B; /* SET DSE NOT IN USE */ 00017310 OI 11(@4),B'01000000' 0199 00017320 * GOTO GETPTR; /* GET NEXT DSE */ 00017330 BC 15,GETPTR 0200 00017340 * CHECKDD1: 00017350 * IF DD1ADD->DDNAME ª= DSEDDNAM THEN /* IF THIS IS NOT */ 00017360 CHECKDD1 CLC 0(8,@5),12(@4) 0201 00017370 * GOTO GETPTR; /* CORRECT DSE, CHK NEXT */ 00017380 BC 07,GETPTR 0202 00017390 * 00017400 * /*** THIS IS THE CORRECT DSE FOR DDNAME1, PLACE DSE ***/ 00017410 * /***** ADDRESS IN DAWTVARY FOR THE CALLER *****/ 00017420 * 00017430 * ADDNAME1 = DSEPTR; /* DSE ADDRESS TO DAWTVARY */ 00017440 LR @7,@4 0203 00017450 * DD1ADD = 0; /* CLEAR DDNAME1 ADDRESS */ 00017460 SR @5,@5 0204 00017470 * DDNAME1 = '1'B; /* SET DDNAME1 FOUND */ 00017480 OI 548(@3),B'10000000' 0205 00017490 * GOTO ENDOFDSE; /* LEAVE */ 00017500 BC 15,ENDOFDSE 0206 00017510 * 00017520 * /*** SEARCH THE DSE CHAIN FOR THE REQUESTED DSNAME ***/ 00017530 * 00017540 * SERCHDSN: 00017550 * DSNAM = '0'B; /* CLEAR DSNAME FOUND BIT */ 00017560 SERCHDSN NI 548(@3),B'11011111' 0207 00017570 * IF ADSNDSE = 0 THEN /* IF NO DSE ADDRESS AT */ 00017580 SR @F,@F 0208 00017590 C @F,536(0,@3) 0208 00017600 * GOTO USEFIRST; /* WHICH TO START SEARCH, */ 00017610 BC 08,USEFIRST 0209 00017620 * /* START AT FIRST DSE */ 00017630 * DSEPTR = ADSNDSE; /* ADDRESS OF DSE AT WHICH */ 00017640 L @4,536(0,@3) 0210 00017650 * /* TO START SEARCH */ 00017660 * ADSNDSE = 0; /* CLEAR ADDRESS */ 00017670 ST @F,536(0,@3) 0211 00017680 * USEFIRST: 00017690 * IF DSLNGTHª=DSEDSLNG THEN /* AVOID DIFFERENT M4240*/ 00017700 USEFIRST CLC 19(1,@2),31(@4) 0212 00017710 * GOTO GETPTR; /* DSN LENGTHS M4240*/ 00017720 BC 07,GETPTR 0213 00017730 * IF DSNAME(1:DSLNGTH) ª= /* IF DSNAME IS NOT IN */ 00017740 * DSEDSNAM(1:DSLNGTH) THEN /* DSE, GET NEXT DSE */ 00017750 LA @E,32(0,@4) 0214 00017760 SR @1,@1 0214 00017770 IC @1,19(0,@2) 0214 00017780 BCTR @1,0 0214 00017790 LA @A,20(0,@2) 0214 00017800 EX @1,@CLC 0214 00017810 * GOTO GETPTR; 00017820 BC 07,GETPTR 0215 00017830 * ADDNAME1 = DSEPTR; /* CORRECT DSE FOUND, PLACE */ 00017840 LR @7,@4 0216 00017850 * /* ITS ADDRESS IN DAWTVARY */ 00017860 * ADSNDSE = DSEFORWD; /* ADDRESS OF NEXT DSE TO */ 00017870 MVC 536(4,@3),0(@4) 0217 00017880 * /* DAWTVARY */ 00017890 * DSNAM = '1'B; /* SET DSNAME FOUND BIT */ 00017900 OI 548(@3),B'00100000' 0218 00017910 * RETURN; /* GO TO NORMAL RETURN */ 00017920 BC 15,@EL02 0219 00017930 * ENDOFDSE: 00017940 * R14 = SAVER14; /* R14 FOR RETURN */ 00017950 ENDOFDSE L @E,SAVER14 0220 00017960 * DSEPTR = DSEADDR; /* RESTORE 1SD DSE ADDRESS */ 00017970 L @4,DSEADDR 0221 00017980 * IF DDNAME1 = '1'B ³ /* IF DDNAME1 FOUND OR */ 00017990 * DSNADDª=0 & /* SEARCH ON DSNAME M4802*/ 00018000 * DSNAM = '1'B ³ /* DONE AND DSN FOUND M4802*/ 00018010 * SERCHTCB = '1'B THEN /* OR SEARCH ON TCB DONE, */ 00018020 TM 548(@3),B'10000000' 0222 00018030 BC 01,@9ED 0222 00018040 SR @F,@F 0222 00018050 C @F,516(0,@3) 0222 00018060 BC 08,@9EC 0222 00018070 TM 548(@3),B'00100000' 0222 00018080 BC 01,@9EB 0222 00018090 @9EC TM 548(@3),B'00010000' 0222 00018100 BC 12,@9EA 0222 00018110 * RETURN; /* RETURN NORMALLY */ 00018120 BC 03,@EL02 0223 00018130 * IF RTCODEª=0 THEN /* IF RETURN CODE ALREADY */ 00018140 @9EA SR @F,@F 0224 00018150 C @F,28(0,@3) 0224 00018160 * GOTO LEAVE1; /* EXISTS, USE IT */ 00018170 BC 07,LEAVE1 0225 00018180 * R13=1284; /* OTHERWISE INDICATE */ 00018190 LA @D,1284 0226 00018200 * GOTO FREDAWT1; /* FUNCTION REQUESTED NOT */ 00018210 BC 15,FREDAWT1 0227 00018220 * /* PERFORMED */ 00018230 * END DSESERCH; 00018240 @EL02 BCR 15,@E 0228 00018250 * END 00018260 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 00018270 * /* %INCLUDE SYSLIB (CVT ) 00018280 * /* %INCLUDE SYSLIB (IKJTCB ) 00018290 * /* %INCLUDE SYSLIB (IKJDSE ) 00018300 * /* %INCLUDE SYSLIB (IEFTIOT1) 00018310 * ; 00018320 @DATA1 EQU * 0229 00018330 @0 EQU 00 EQUATES FOR REGISTERS 0-15 00018340 @1 EQU 01 00018350 @2 EQU 02 00018360 @3 EQU 03 00018370 @4 EQU 04 00018380 @5 EQU 05 00018390 @6 EQU 06 00018400 @7 EQU 07 00018410 @8 EQU 08 00018420 @9 EQU 09 00018430 @A EQU 10 00018440 @B EQU 11 00018450 @C EQU 12 00018460 @D EQU 13 00018470 @E EQU 14 00018480 @F EQU 15 00018490 @D1 DC H'2' 00018500 @CLC CLC 0(1,@A),0(@E) 00018510 DS 0F 00018520 @SIZ001 DC AL1(&SPN) 00018530 DC AL3(@DATEND-@DATD) 00018540 DS 0F 00018550 @X4 DC X'000000' 00018560 DS 0D 00018570 @DATA EQU * 00018580 PLIST EQU 00000000 FULLWORD INTEGER 00018590 CVTPTR EQU 00000016 FULLWORD POINTER 00018600 DSEPTR EQU 00000004 FULLWORD POINTER REGISTER 00018610 CVTMAP EQU 00000000 252 BYTE(S) ON WORD 00018620 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 00018630 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 00018640 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 00018650 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 00018660 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 00018670 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 00018680 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 00018690 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 00018700 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 00018710 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 00018720 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 00018730 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 00018740 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 00018750 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 00018760 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 00018770 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 00018780 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 00018790 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 00018800 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 00018810 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 00018820 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 00018830 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 00018840 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 00018850 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 00018860 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 00018870 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 00018880 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 00018890 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 00018900 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 00018910 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 00018920 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 00018930 A00000 EQU CVTMAP+00000116 1 BIT(S) 00018940 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 00018950 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 00018960 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 00018970 A00001 EQU CVTMAP+00000116 1 BIT(S) 00018980 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 00018990 A00002 EQU CVTMAP+00000116 1 BIT(S) 00019000 A00003 EQU CVTMAP+00000116 1 BIT(S) 00019010 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 00019020 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 00019030 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 00019040 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 00019050 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 00019060 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 00019070 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 00019080 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 00019090 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 00019100 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 00019110 CVTTRMTB EQU CVTMAP+00000156 FULLWORD POINTER 00019120 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 00019130 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 00019140 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 00019150 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 00019160 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 00019170 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 00019180 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 00019190 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 00019200 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 00019210 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 00019220 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 00019230 CVTATTCH EQU CVTMAP+00000182 1 BIT(S) 00019240 CVTHIAR EQU CVTMAP+00000182 1 BIT(S) 00019250 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 00019260 A00004 EQU CVTMAP+00000182 1 BIT(S) 00019270 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 00019280 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 00019290 A00005 EQU CVTMAP+00000183 1 BIT(S) 00019300 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 00019310 A00006 EQU CVTMAP+00000183 5 BIT(S) 00019320 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 00019330 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 00019340 CVTMPCVT EQU CVTMAP+00000192 FULLWORD POINTER 00019350 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 00019360 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 00019370 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 00019380 A00007 EQU CVTMAP+00000208 FULLWORD POINTER 00019390 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 00019400 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 00019410 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 00019420 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 00019430 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 00019440 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 00019450 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 00019460 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 00019470 A00008 EQU CVTMAP+00000228 7 BIT(S) 00019480 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 00019490 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 00019500 A00009 EQU CVTMAP+00000236 FULLWORD POINTER 00019510 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 00019520 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 00019530 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 00019540 A00010 EQU CVTMAP+00000240 7 BIT(S) 00019550 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 00019560 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 00019570 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 00019580 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 00019590 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 00019600 A00011 EQU CVTMAP+00000249 3 BYTE(S) 00019610 A00012 EQU 00000184 8 BYTE(S) ON WORD 00019620 CVTCRTTR EQU A00012+00000000 3 BYTE(S) 00019630 CVTSTUSA EQU A00012+00000003 1 BYTE(S) 00019640 A00013 EQU A00012+00000003 1 BIT(S) 00019650 A00014 EQU A00012+00000003 1 BIT(S) 00019660 A00015 EQU A00012+00000003 1 BIT(S) 00019670 A00016 EQU A00012+00000003 1 BIT(S) 00019680 CVTCHPTR EQU A00012+00000003 1 BIT(S) 00019690 CVTSTEPR EQU A00012+00000003 1 BIT(S) 00019700 CVTDATA EQU A00012+00000003 1 BIT(S) 00019710 A00017 EQU A00012+00000003 1 BIT(S) 00019720 A00018 EQU A00012+00000004 2 BYTE(S) 00019730 A00019 EQU A00012+00000006 2 BYTE(S) 00019740 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 00019750 A00020 EQU CVTFIX+00000000 248 BYTE(S) 00019760 A00021 EQU CVTFIX+00000248 2 BYTE(S) 00019770 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 00019780 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 00019790 TCBPTR EQU 00000004 FULLWORD POINTER 00019800 TCBFIX EQU 00000032 32 BYTE(S) ON WORD 00019810 TCBFRS EQU TCBFIX+00000000 32 BYTE(S) 00019820 TCBFRS0 EQU TCBFIX+00000000 8 BYTE(S) 00019830 TCBFRS2 EQU TCBFIX+00000008 8 BYTE(S) 00019840 TCBFRS4 EQU TCBFIX+00000016 8 BYTE(S) 00019850 TCBFRS6 EQU TCBFIX+00000024 8 BYTE(S) 00019860 TCB EQU 00000000 156 BYTE(S) ON WORD 00019870 TCBRBP EQU TCB+00000000 FULLWORD POINTER 00019880 TCBPIE EQU TCB+00000004 FULLWORD POINTER 00019890 TCBDEB EQU TCB+00000008 FULLWORD POINTER 00019900 TCBTIO EQU TCB+00000012 FULLWORD POINTER 00019910 TCBCMP EQU TCB+00000016 4 BYTE(S) 00019920 TCBCMPF EQU TCB+00000016 1 BYTE(S) 00019930 TCBCREQ EQU TCB+00000016 1 BIT(S) 00019940 TCBCSTEP EQU TCB+00000016 1 BIT(S) 00019950 TCBCPP EQU TCB+00000016 1 BIT(S) 00019960 A00022 EQU TCB+00000016 1 BIT(S) 00019970 TCBCDBL EQU TCB+00000016 1 BIT(S) 00019980 TCBCWTO EQU TCB+00000016 1 BIT(S) 00019990 TCBCIND EQU TCB+00000016 1 BIT(S) 00020000 TCBCMSG EQU TCB+00000016 1 BIT(S) 00020010 TCBCMPC EQU TCB+00000017 3 BYTE(S) 00020020 TCBTRN EQU TCB+00000020 FULLWORD POINTER 00020030 TCBABF EQU TCB+00000020 1 BYTE(S) 00020040 TCBMOD91 EQU TCB+00000020 1 BIT(S) 00020050 TCBNOCHK EQU TCB+00000020 1 BIT(S) 00020060 TCBGRPH EQU TCB+00000020 1 BIT(S) 00020070 A00023 EQU TCB+00000020 1 BIT(S) 00020080 TCBTCPP EQU TCB+00000020 1 BIT(S) 00020090 TCBTCP EQU TCB+00000020 1 BIT(S) 00020100 TCBOLTEP EQU TCB+00000020 1 BIT(S) 00020110 A00024 EQU TCB+00000020 1 BIT(S) 00020120 TCBTRNB EQU TCB+00000021 3 BYTE POINTER 00020130 TCBMSS EQU TCB+00000024 FULLWORD POINTER 00020140 TCBNROC EQU TCB+00000024 1 BYTE POINTER 00020150 TCBMSSB EQU TCB+00000025 3 BYTE POINTER 00020160 TCBPKF EQU TCB+00000028 1 BYTE(S) 00020170 TCBFLAG EQU TCB+00000028 4 BIT(S) 00020180 TCBZERO EQU TCB+00000028 4 BIT(S) 00020190 TCBFLGS EQU TCB+00000029 5 BYTE(S) 00020200 TCBFLGS1 EQU TCB+00000029 1 BYTE(S) 00020210 TCBFA EQU TCB+00000029 1 BIT(S) 00020220 TCBFE EQU TCB+00000029 1 BIT(S) 00020230 TCBFERA EQU TCB+00000029 1 BIT(S) 00020240 TCBRECUR EQU TCB+00000029 1 BIT(S) 00020250 TCBPDUMP EQU TCB+00000029 1 BIT(S) 00020260 TCBFT EQU TCB+00000029 1 BIT(S) 00020270 TCBFS EQU TCB+00000029 1 BIT(S) 00020280 TCBFX EQU TCB+00000029 1 BIT(S) 00020290 TCBFLGS2 EQU TCB+00000030 1 BYTE(S) 00020300 TCBFOINP EQU TCB+00000030 1 BIT(S) 00020310 TCBFSTI EQU TCB+00000030 1 BIT(S) 00020320 TCBFRA EQU TCB+00000030 1 BIT(S) 00020330 TCBFSMC EQU TCB+00000030 1 BIT(S) 00020340 TCBFJMC EQU TCB+00000030 1 BIT(S) 00020350 TCBFDSOP EQU TCB+00000030 1 BIT(S) 00020360 TCBFETXR EQU TCB+00000030 1 BIT(S) 00020370 TCBFTS EQU TCB+00000030 1 BIT(S) 00020380 TCBFLGS3 EQU TCB+00000031 1 BYTE(S) 00020390 TCBFSM EQU TCB+00000031 1 BIT(S) 00020400 TCBFRI EQU TCB+00000031 1 BIT(S) 00020410 TCBABTRM EQU TCB+00000031 1 BIT(S) 00020420 TCBREC EQU TCB+00000031 1 BIT(S) 00020430 TCBRECDE EQU TCB+00000031 4 BIT(S) 00020440 TCBFLREG EQU TCB+00000031 1 BIT(S) 00020450 TCBSCH EQU TCB+00000031 1 BIT(S) 00020460 TCBPKCHG EQU TCB+00000031 1 BIT(S) 00020470 A00025 EQU TCB+00000031 1 BIT(S) 00020480 TCBFLGS4 EQU TCB+00000032 1 BYTE(S) 00020490 TCBNDUMP EQU TCB+00000032 1 BIT(S) 00020500 TCBSER EQU TCB+00000032 1 BIT(S) 00020510 TCBRQENA EQU TCB+00000032 1 BIT(S) 00020520 A00026 EQU TCB+00000032 1 BIT(S) 00020530 A00027 EQU TCB+00000032 1 BIT(S) 00020540 TCBMPCVQ EQU TCB+00000032 1 BIT(S) 00020550 TCBMPCND EQU TCB+00000032 1 BIT(S) 00020560 TCBONDSP EQU TCB+00000032 1 BIT(S) 00020570 TCBFLGS5 EQU TCB+00000033 1 BYTE(S) 00020580 TCBFC EQU TCB+00000033 1 BIT(S) 00020590 TCBABWF EQU TCB+00000033 1 BIT(S) 00020600 TCBWFC EQU TCB+00000033 1 BIT(S) 00020610 TCBFRO EQU TCB+00000033 1 BIT(S) 00020620 TCBSYS EQU TCB+00000033 1 BIT(S) 00020630 TCBSTP EQU TCB+00000033 1 BIT(S) 00020640 TCBFCD1 EQU TCB+00000033 1 BIT(S) 00020650 TCBPNDSP EQU TCB+00000033 1 BIT(S) 00020660 TCBLMP EQU TCB+00000034 1 BYTE POINTER 00020670 TCBDSP EQU TCB+00000035 1 BYTE POINTER 00020680 TCBLLS EQU TCB+00000036 FULLWORD POINTER 00020690 TCBJLB EQU TCB+00000040 FULLWORD POINTER 00020700 TCBJPQ EQU TCB+00000044 FULLWORD POINTER 00020710 TCBPURGE EQU TCB+00000044 1 BYTE(S) 00020720 TCBJPQF EQU TCB+00000044 1 BIT(S) 00020730 A00028 EQU TCB+00000044 1 BIT(S) 00020740 A00029 EQU TCB+00000044 1 BIT(S) 00020750 A00030 EQU TCB+00000044 1 BIT(S) 00020760 A00031 EQU TCB+00000044 1 BIT(S) 00020770 A00032 EQU TCB+00000044 1 BIT(S) 00020780 A00033 EQU TCB+00000044 1 BIT(S) 00020790 A00034 EQU TCB+00000044 1 BIT(S) 00020800 TCBJPQB EQU TCB+00000045 3 BYTE POINTER 00020810 TCBGRS EQU TCB+00000048 64 BYTE(S) 00020820 TCBGRS0 EQU TCB+00000048 4 BYTE POINTER 00020830 TCBGRS1 EQU TCB+00000052 4 BYTE POINTER 00020840 TCBGRS2 EQU TCB+00000056 4 BYTE POINTER 00020850 TCBGRS3 EQU TCB+00000060 4 BYTE POINTER 00020860 TCBGRS4 EQU TCB+00000064 4 BYTE POINTER 00020870 TCBGRS5 EQU TCB+00000068 4 BYTE POINTER 00020880 TCBGRS6 EQU TCB+00000072 4 BYTE POINTER 00020890 TCBGRS7 EQU TCB+00000076 4 BYTE POINTER 00020900 TCBGRS8 EQU TCB+00000080 4 BYTE POINTER 00020910 TCBGRS9 EQU TCB+00000084 4 BYTE POINTER 00020920 TCBGRS10 EQU TCB+00000088 4 BYTE POINTER 00020930 TCBGRS11 EQU TCB+00000092 4 BYTE POINTER 00020940 TCBGRS12 EQU TCB+00000096 4 BYTE POINTER 00020950 TCBGRS13 EQU TCB+00000100 4 BYTE POINTER 00020960 TCBGRS14 EQU TCB+00000104 4 BYTE POINTER 00020970 TCBGRS15 EQU TCB+00000108 4 BYTE POINTER 00020980 TCBFSA EQU TCB+00000112 FULLWORD POINTER 00020990 TCBQEL EQU TCB+00000112 1 BYTE POINTER 00021000 TCBFSAB EQU TCB+00000113 3 BYTE POINTER 00021010 TCBTCB EQU TCB+00000116 FULLWORD POINTER 00021020 TCBTME EQU TCB+00000120 FULLWORD POINTER 00021030 TCBJSTCB EQU TCB+00000124 FULLWORD POINTER 00021040 TCBPIBT EQU TCB+00000124 1 BYTE(S) 00021050 TCBPART EQU TCB+00000124 2 BIT(S) 00021060 TCBSIZE EQU TCB+00000124 1 BIT(S) 00021070 TCBSTOP EQU TCB+00000124 1 BIT(S) 00021080 A00035 EQU TCB+00000124 1 BIT(S) 00021090 A00036 EQU TCB+00000124 1 BIT(S) 00021100 TCBWRITE EQU TCB+00000124 1 BIT(S) 00021110 TCBSCHED EQU TCB+00000124 1 BIT(S) 00021120 TCBJSTCA EQU TCB+00000125 3 BYTE POINTER 00021130 TCBNTC EQU TCB+00000128 FULLWORD POINTER 00021140 TCBOTC EQU TCB+00000132 FULLWORD POINTER 00021150 TCBLTC EQU TCB+00000136 FULLWORD POINTER 00021160 TCBIQE EQU TCB+00000140 FULLWORD POINTER 00021170 TCBECB EQU TCB+00000144 FULLWORD POINTER 00021180 TCBTSFLG EQU TCB+00000148 8 BIT(S) 00021190 TCBTSTSK EQU TCB+00000148 1 BIT(S) 00021200 TCBSTPPR EQU TCB+00000148 1 BIT(S) 00021210 TCBATT EQU TCB+00000148 1 BIT(S) 00021220 TCBTIOTG EQU TCB+00000148 1 BIT(S) 00021230 A00037 EQU TCB+00000148 1 BIT(S) 00021240 A00038 EQU TCB+00000148 1 BIT(S) 00021250 A00039 EQU TCB+00000148 1 BIT(S) 00021260 A00040 EQU TCB+00000148 1 BIT(S) 00021270 TCBSTPCT EQU TCB+00000149 1 BYTE POINTER 00021280 TCBTSLP EQU TCB+00000150 1 BYTE POINTER 00021290 TCBTSDP EQU TCB+00000151 1 BYTE(S) 00021300 TCBPQE EQU TCB+00000152 FULLWORD POINTER 00021310 TCBOVLY1 EQU 00000152 32 BYTE(S) ON WORD 00021320 TCBFTLMP EQU TCBOVLY1+00000000 1 BYTE POINTER 00021330 TCBFTFLG EQU TCBOVLY1+00000001 3 BYTE(S) 00021340 TCBFTFL1 EQU TCBOVLY1+00000001 1 BYTE(S) 00021350 A00041 EQU TCBOVLY1+00000001 1 BIT(S) 00021360 A00042 EQU TCBOVLY1+00000001 1 BIT(S) 00021370 A00043 EQU TCBOVLY1+00000001 1 BIT(S) 00021380 A00044 EQU TCBOVLY1+00000001 1 BIT(S) 00021390 A00045 EQU TCBOVLY1+00000001 1 BIT(S) 00021400 TCBFTTOP EQU TCBOVLY1+00000001 1 BIT(S) 00021410 TCBFTCOM EQU TCBOVLY1+00000001 1 BIT(S) 00021420 TCBFTSYN EQU TCBOVLY1+00000001 1 BIT(S) 00021430 TCBFTFL2 EQU TCBOVLY1+00000002 1 BYTE(S) 00021440 TCBFTCMP EQU TCBOVLY1+00000002 1 BIT(S) 00021450 A00046 EQU TCBOVLY1+00000002 1 BIT(S) 00021460 A00047 EQU TCBOVLY1+00000002 1 BIT(S) 00021470 A00048 EQU TCBOVLY1+00000002 1 BIT(S) 00021480 A00049 EQU TCBOVLY1+00000002 1 BIT(S) 00021490 TCBFTOPN EQU TCBOVLY1+00000002 1 BIT(S) 00021500 TCBFTETX EQU TCBOVLY1+00000002 1 BIT(S) 00021510 A00050 EQU TCBOVLY1+00000002 1 BIT(S) 00021520 TCBFTFL3 EQU TCBOVLY1+00000003 1 BYTE(S) 00021530 A00051 EQU TCBOVLY1+00000003 1 BIT(S) 00021540 A00052 EQU TCBOVLY1+00000003 1 BIT(S) 00021550 A00053 EQU TCBOVLY1+00000003 1 BIT(S) 00021560 TCBFTISS EQU TCBOVLY1+00000003 1 BIT(S) 00021570 A00054 EQU TCBOVLY1+00000003 1 BIT(S) 00021580 TCBFTDUM EQU TCBOVLY1+00000003 1 BIT(S) 00021590 A00055 EQU TCBOVLY1+00000003 2 BIT(S) 00021600 TCBAQE EQU TCBOVLY1+00000004 FULLWORD POINTER 00021610 TCBSTAB EQU TCBOVLY1+00000008 FULLWORD POINTER 00021620 TCBNSTAE EQU TCBOVLY1+00000008 1 BYTE(S) 00021630 TCBSTABE EQU TCBOVLY1+00000008 1 BIT(S) 00021640 TCBQUIES EQU TCBOVLY1+00000008 1 BIT(S) 00021650 TCBXCTL EQU TCBOVLY1+00000008 1 BIT(S) 00021660 TCBSCAT EQU TCBOVLY1+00000008 1 BIT(S) 00021670 TCBHALT EQU TCBOVLY1+00000008 1 BIT(S) 00021680 TCBSUPER EQU TCBOVLY1+00000008 1 BIT(S) 00021690 TCBRETRY EQU TCBOVLY1+00000008 1 BIT(S) 00021700 TCBVALID EQU TCBOVLY1+00000008 1 BIT(S) 00021710 TCBSTABB EQU TCBOVLY1+00000009 3 BYTE POINTER 00021720 TCBTCT EQU TCBOVLY1+00000012 FULLWORD POINTER 00021730 A00056 EQU TCBOVLY1+00000012 1 BYTE(S) 00021740 TCBTCTB EQU TCBOVLY1+00000013 3 BYTE POINTER 00021750 TCBUSER EQU TCBOVLY1+00000016 FULLWORD POINTER 00021760 TCBDAR EQU TCBOVLY1+00000020 1 BYTE(S) 00021770 TCBDARP EQU TCBOVLY1+00000020 1 BIT(S) 00021780 TCBDARS EQU TCBOVLY1+00000020 1 BIT(S) 00021790 TCBDARD EQU TCBOVLY1+00000020 1 BIT(S) 00021800 TCBDARC EQU TCBOVLY1+00000020 1 BIT(S) 00021810 TCBDARO EQU TCBOVLY1+00000020 1 BIT(S) 00021820 A00057 EQU TCBOVLY1+00000020 1 BIT(S) 00021830 A00058 EQU TCBOVLY1+00000020 1 BIT(S) 00021840 TCBEXSVC EQU TCBOVLY1+00000020 1 BIT(S) 00021850 TCBSCNDY EQU TCBOVLY1+00000021 3 BYTE(S) 00021860 TCBNDSP1 EQU TCBOVLY1+00000021 1 BYTE(S) 00021870 TCBDARTN EQU TCBOVLY1+00000021 1 BIT(S) 00021880 TCBDARPN EQU TCBOVLY1+00000021 1 BIT(S) 00021890 TCBRSTND EQU TCBOVLY1+00000021 1 BIT(S) 00021900 TCBRSPND EQU TCBOVLY1+00000021 1 BIT(S) 00021910 A00059 EQU TCBOVLY1+00000021 1 BIT(S) 00021920 TCBTPSP EQU TCBOVLY1+00000021 1 BIT(S) 00021930 A00060 EQU TCBOVLY1+00000021 1 BIT(S) 00021940 A00061 EQU TCBOVLY1+00000021 1 BIT(S) 00021950 TCBNDSP2 EQU TCBOVLY1+00000022 1 BYTE(S) 00021960 TCBABD EQU TCBOVLY1+00000022 1 BIT(S) 00021970 TCBSTPP EQU TCBOVLY1+00000022 1 BIT(S) 00021980 TCBNDSVC EQU TCBOVLY1+00000022 1 BIT(S) 00021990 TCBNDTS EQU TCBOVLY1+00000022 1 BIT(S) 00022000 TCBIWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00022010 TCBOWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00022020 A00062 EQU TCBOVLY1+00000022 1 BIT(S) 00022030 TCBABE EQU TCBOVLY1+00000022 1 BIT(S) 00022040 TCBNDSP3 EQU TCBOVLY1+00000023 1 BYTE(S) 00022050 TCBTERM EQU TCBOVLY1+00000023 1 BIT(S) 00022060 TCBABTER EQU TCBOVLY1+00000023 1 BIT(S) 00022070 A00063 EQU TCBOVLY1+00000023 1 BIT(S) 00022080 A00064 EQU TCBOVLY1+00000023 1 BIT(S) 00022090 A00065 EQU TCBOVLY1+00000023 1 BIT(S) 00022100 A00066 EQU TCBOVLY1+00000023 1 BIT(S) 00022110 A00067 EQU TCBOVLY1+00000023 1 BIT(S) 00022120 A00068 EQU TCBOVLY1+00000023 1 BIT(S) 00022130 A00069 EQU TCBOVLY1+00000024 FULLWORD INTEGER 00022140 TCBJSCB EQU TCBOVLY1+00000028 FULLWORD POINTER 00022150 A00070 EQU TCBOVLY1+00000028 1 BYTE(S) 00022160 TCBJSCBB EQU TCBOVLY1+00000029 3 BYTE POINTER 00022170 DSE EQU 00000000 76 BYTE(S) ON WORD 00022180 DSEFORWD EQU DSE+00000000 FULLWORD POINTER 00022190 DSEBCKWD EQU DSE+00000004 FULLWORD POINTER 00022200 DSEBLKSZ EQU DSE+00000008 HALFWORD INTEGER 00022210 DSESTAT EQU DSE+00000010 1 BYTE(S) 00022220 A00071 EQU DSE+00000010 1 BIT(S) 00022230 A00072 EQU DSE+00000010 1 BIT(S) 00022240 A00073 EQU DSE+00000010 1 BIT(S) 00022250 A00074 EQU DSE+00000010 1 BIT(S) 00022260 DSESHR EQU DSE+00000010 1 BIT(S) 00022270 DSENEW EQU DSE+00000010 1 BIT(S) 00022280 DSEMOD EQU DSE+00000010 1 BIT(S) 00022290 DSEOLD EQU DSE+00000010 1 BIT(S) 00022300 DSECNTRL EQU DSE+00000011 1 BYTE(S) 00022310 DSEDYN EQU DSE+00000011 1 BIT(S) 00022320 DSENUSED EQU DSE+00000011 1 BIT(S) 00022330 DSEMEM EQU DSE+00000011 1 BIT(S) 00022340 DSEDTIOT EQU DSE+00000011 1 BIT(S) 00022350 DSECON EQU DSE+00000011 1 BIT(S) 00022360 A00075 EQU DSE+00000011 1 BIT(S) 00022370 DSEPERM EQU DSE+00000011 1 BIT(S) 00022380 A00076 EQU DSE+00000011 1 BIT(S) 00022390 DSEDDNAM EQU DSE+00000012 8 BYTE(S) 00022400 DSETCBAD EQU DSE+00000020 FULLWORD POINTER 00022410 DSETTRPW EQU DSE+00000024 FULLWORD INTEGER 00022420 DSENDISP EQU DSE+00000028 1 BYTE(S) 00022430 A00077 EQU DSE+00000028 1 BIT(S) 00022440 A00078 EQU DSE+00000028 1 BIT(S) 00022450 A00079 EQU DSE+00000028 1 BIT(S) 00022460 A00080 EQU DSE+00000028 1 BIT(S) 00022470 DSEKEP EQU DSE+00000028 1 BIT(S) 00022480 DSEDEL EQU DSE+00000028 1 BIT(S) 00022490 DSECAT EQU DSE+00000028 1 BIT(S) 00022500 DSEUCAT EQU DSE+00000028 1 BIT(S) 00022510 DSEADISP EQU DSE+00000029 1 BYTE(S) 00022520 A00081 EQU DSE+00000029 1 BIT(S) 00022530 A00082 EQU DSE+00000029 1 BIT(S) 00022540 A00083 EQU DSE+00000029 1 BIT(S) 00022550 A00084 EQU DSE+00000029 1 BIT(S) 00022560 DSEAKEP EQU DSE+00000029 1 BIT(S) 00022570 DSEADEL EQU DSE+00000029 1 BIT(S) 00022580 DSEACAT EQU DSE+00000029 1 BIT(S) 00022590 DSEAUCAT EQU DSE+00000029 1 BIT(S) 00022600 DSEDSORG EQU DSE+00000030 1 BYTE(S) 00022610 DSEIS EQU DSE+00000030 1 BIT(S) 00022620 DSEPS EQU DSE+00000030 1 BIT(S) 00022630 DSEDA EQU DSE+00000030 1 BIT(S) 00022640 A00085 EQU DSE+00000030 1 BIT(S) 00022650 A00086 EQU DSE+00000030 1 BIT(S) 00022660 A00087 EQU DSE+00000030 1 BIT(S) 00022670 DSEPO EQU DSE+00000030 1 BIT(S) 00022680 DSEU EQU DSE+00000030 1 BIT(S) 00022690 DSEDSLNG EQU DSE+00000031 1 BYTE POINTER 00022700 DSEDSNAM EQU DSE+00000032 44 BYTE(S) 00022710 DSEMEMBR EQU 00000000 8 BYTE(S) 00022720 PARMPTR EQU 00000003 FULLWORD POINTER REGISTER 00022730 DAWT EQU 00000000 552 BYTE(S) ON WORD 00022740 DAWTDSE EQU DAWT+00000000 32 BYTE(S) ON WORD 00022750 DAWTXCTL EQU DAWT+00000000 16 BYTE(S) ON WORD 00022760 XCTLAD EQU DAWT+00000000 FULLWORD POINTER 00022770 XCTLDCB EQU DAWT+00000004 FULLWORD INTEGER 00022780 XCTLEP EQU DAWT+00000008 8 BYTE(S) 00022790 PPARMP EQU DAWT+00000016 FULLWORD POINTER 00022800 LNGH EQU DAWT+00000020 HALFWORD INTEGER 00022810 A00088 EQU DAWT+00000022 1 BYTE(S) 00022820 TIOTNO EQU DAWT+00000023 1 BYTE(S) 00022830 TIOTP EQU DAWT+00000024 FULLWORD POINTER 00022840 RTCODE EQU DAWT+00000028 FULLWORD INTEGER 00022850 DAWTQMPA EQU DAWT+00000032 36 BYTE(S) 00022860 DAWTEIOB EQU DAWT+00000068 84 BYTE(S) 00022870 DAWA1 EQU DAWT+00000152 176 BYTE(S) 00022880 DAWA2 EQU DAWT+00000328 176 BYTE(S) 00022890 DAWTVARY EQU DAWT+00000504 48 BYTE(S) 00022900 TIOT1 EQU 00000000 24 BYTE(S) ON WORD 00022910 TIOCNJOB EQU TIOT1+00000000 8 BYTE(S) 00022920 TIOCSTEP EQU TIOT1+00000008 16 BYTE(S) 00022930 TIOENTRY EQU 00000024 40 BYTE(S) ON WORD 00022940 TIOELNGH EQU TIOENTRY+00000000 1 BYTE POINTER 00022950 TIOESTTA EQU TIOENTRY+00000001 8 BIT(S) 00022960 TIOSLTYP EQU TIOENTRY+00000001 1 BIT(S) 00022970 TIOSPLTP EQU TIOENTRY+00000001 1 BIT(S) 00022980 TIOSPLTS EQU TIOENTRY+00000001 1 BIT(S) 00022990 TIOSJBLB EQU TIOENTRY+00000001 1 BIT(S) 00023000 TIOSDADS EQU TIOENTRY+00000001 1 BIT(S) 00023010 TIOSLABL EQU TIOENTRY+00000001 1 BIT(S) 00023020 TIOSDSP1 EQU TIOENTRY+00000001 1 BIT(S) 00023030 TIOSDSP2 EQU TIOENTRY+00000001 1 BIT(S) 00023040 TIOERLOC EQU TIOENTRY+00000002 2 BYTE(S) 00023050 TIOEWTCT EQU TIOENTRY+00000002 1 BYTE(S) 00023060 TIOELINK EQU TIOENTRY+00000003 1 BYTE(S) 00023070 TIOSYOUT EQU TIOENTRY+00000003 1 BIT(S) 00023080 TIOTOPEN EQU TIOENTRY+00000003 1 BIT(S) 00023090 TIOTTERM EQU TIOENTRY+00000003 1 BIT(S) 00023100 TIOEDYNM EQU TIOENTRY+00000003 1 BIT(S) 00023110 TIOEQNAM EQU TIOENTRY+00000003 1 BIT(S) 00023120 A00089 EQU TIOENTRY+00000003 3 BIT(S) 00023130 TIOEDDNM EQU TIOENTRY+00000004 8 BYTE(S) 00023140 TIOEJFCB EQU TIOENTRY+00000012 3 BYTE(S) 00023150 TIOESTTC EQU TIOENTRY+00000015 8 BIT(S) 00023160 TIOSDKCR EQU TIOENTRY+00000015 1 BIT(S) 00023170 TIOSDEFR EQU TIOENTRY+00000015 1 BIT(S) 00023180 TIOSAFFP EQU TIOENTRY+00000015 1 BIT(S) 00023190 TIOSAFFS EQU TIOENTRY+00000015 1 BIT(S) 00023200 TIOSVOLP EQU TIOENTRY+00000015 1 BIT(S) 00023210 TIOSVOLS EQU TIOENTRY+00000015 1 BIT(S) 00023220 TIOSBALP EQU TIOENTRY+00000015 1 BIT(S) 00023230 TIOSBALS EQU TIOENTRY+00000015 1 BIT(S) 00023240 TIOESTTB EQU TIOENTRY+00000016 8 BIT(S) 00023250 TIOSUSED EQU TIOENTRY+00000016 1 BIT(S) 00023260 TIOSREQD EQU TIOENTRY+00000016 1 BIT(S) 00023270 TIOSPVIO EQU TIOENTRY+00000016 1 BIT(S) 00023280 TIOSVLSR EQU TIOENTRY+00000016 1 BIT(S) 00023290 TIOSSETU EQU TIOENTRY+00000016 1 BIT(S) 00023300 TIOSMNTD EQU TIOENTRY+00000016 1 BIT(S) 00023310 TIOSUNLD EQU TIOENTRY+00000016 1 BIT(S) 00023320 TIOSVERF EQU TIOENTRY+00000016 1 BIT(S) 00023330 TIOEFSRT EQU TIOENTRY+00000017 3 BYTE POINTER ON WORD+1 00023340 POOLSTAR EQU TIOENTRY+00000020 20 BYTE(S) ON WORD 00023350 A00090 EQU TIOENTRY+00000020 1 BYTE(S) 00023360 TIOPNSLT EQU TIOENTRY+00000021 1 BYTE POINTER 00023370 A00091 EQU TIOENTRY+00000022 1 BYTE(S) 00023380 TIOPNSRT EQU TIOENTRY+00000023 1 BYTE POINTER 00023390 TIOPPOOL EQU TIOENTRY+00000024 8 BYTE(S) 00023400 TIOPSTTB EQU TIOENTRY+00000032 1 BYTE(S) 00023410 TIOPSLOT EQU TIOENTRY+00000033 3 BYTE POINTER ON WORD+1 00023420 TIOTFEND EQU TIOENTRY+00000036 4 BYTE(S) 00023430 A00092 EQU 00000504 48 BYTE(S) ON WORD 00023440 A00093 EQU A00092+00000000 FULLWORD POINTER 00023450 DD2ADD EQU A00092+00000004 FULLWORD POINTER 00023460 DAW1P EQU A00092+00000008 FULLWORD POINTER 00023470 DSNADD EQU A00092+00000012 FULLWORD POINTER 00023480 ADNAME1 EQU A00092+00000016 FULLWORD POINTER 00023490 ADDNAME2 EQU A00092+00000020 FULLWORD POINTER 00023500 AFDSE EQU A00092+00000024 FULLWORD POINTER 00023510 ANDSE EQU A00092+00000028 FULLWORD POINTER 00023520 ADSNDSE EQU A00092+00000032 FULLWORD POINTER 00023530 A00094 EQU A00092+00000036 FULLWORD INTEGER 00023540 A00095 EQU A00092+00000040 FULLWORD INTEGER 00023550 A00096 EQU A00092+00000044 4 BYTE(S) 00023560 VFLAGS EQU A00092+00000044 1 BYTE(S) 00023570 DDNAME1 EQU A00092+00000044 1 BIT(S) 00023580 DDNAME2 EQU A00092+00000044 1 BIT(S) 00023590 DSNAM EQU A00092+00000044 1 BIT(S) 00023600 SERCHTCB EQU A00092+00000044 1 BIT(S) 00023610 A00097 EQU A00092+00000044 4 BIT(S) 00023620 CONCOUNT EQU A00092+00000045 1 BYTE(S) 00023630 A00098 EQU A00092+00000046 2 BYTE(S) 00023640 A00099 EQU 00000000 79 BYTE(S) ON WORD 00023650 PLNGH EQU A00099+00000000 HALFWORD INTEGER 00023660 PCODE EQU A00099+00000002 1 BYTE(S) 00023670 POPTIONS EQU A00099+00000003 8 BIT(S) 00023680 ODUMMY EQU A00099+00000003 1 BIT(S) 00023690 A00100 EQU A00099+00000003 1 BIT(S) 00023700 OTERM EQU A00099+00000003 1 BIT(S) 00023710 ODSNAME EQU A00099+00000003 1 BIT(S) 00023720 A00101 EQU A00099+00000003 1 BIT(S) 00023730 A00102 EQU A00099+00000003 1 BIT(S) 00023740 A00103 EQU A00099+00000003 1 BIT(S) 00023750 OEXCH EQU A00099+00000003 1 BIT(S) 00023760 PDDNM1 EQU A00099+00000004 8 BYTE(S) 00023770 A00104 EQU A00099+00000012 1 BYTE(S) 00023780 PDDNM2 EQU A00099+00000013 8 BYTE(S) 00023790 A00105 EQU A00099+00000021 1 BYTE(S) 00023800 PDISP1 EQU A00099+00000022 8 BIT(S) 00023810 A00106 EQU A00099+00000022 1 BIT(S) 00023820 A00107 EQU A00099+00000022 1 BIT(S) 00023830 A00108 EQU A00099+00000022 1 BIT(S) 00023840 A00109 EQU A00099+00000022 1 BIT(S) 00023850 D1SHR EQU A00099+00000022 1 BIT(S) 00023860 D1NEW EQU A00099+00000022 1 BIT(S) 00023870 D1MOD EQU A00099+00000022 1 BIT(S) 00023880 D1OLD EQU A00099+00000022 1 BIT(S) 00023890 PDISP2 EQU A00099+00000023 8 BIT(S) 00023900 A00110 EQU A00099+00000023 1 BIT(S) 00023910 A00111 EQU A00099+00000023 1 BIT(S) 00023920 A00112 EQU A00099+00000023 1 BIT(S) 00023930 A00113 EQU A00099+00000023 1 BIT(S) 00023940 D2KEEP EQU A00099+00000023 1 BIT(S) 00023950 D2DEL EQU A00099+00000023 1 BIT(S) 00023960 D2CAT EQU A00099+00000023 1 BIT(S) 00023970 D2UNCAT EQU A00099+00000023 1 BIT(S) 00023980 PDISP3 EQU A00099+00000024 8 BIT(S) 00023990 A00114 EQU A00099+00000024 1 BIT(S) 00024000 A00115 EQU A00099+00000024 1 BIT(S) 00024010 A00116 EQU A00099+00000024 1 BIT(S) 00024020 A00117 EQU A00099+00000024 1 BIT(S) 00024030 D3KEEP EQU A00099+00000024 1 BIT(S) 00024040 D3DEL EQU A00099+00000024 1 BIT(S) 00024050 D3CAT EQU A00099+00000024 1 BIT(S) 00024060 D3UNCAT EQU A00099+00000024 1 BIT(S) 00024070 PMNM EQU A00099+00000025 8 BYTE(S) 00024080 PPRIME EQU A00099+00000033 3 BYTE(S) 00024090 PDSNP EQU A00099+00000036 FULLWORD POINTER 00024100 PUNM EQU A00099+00000040 8 BYTE(S) 00024110 PCTB EQU A00099+00000048 8 BIT(S) 00024120 SUNITS EQU A00099+00000048 2 BIT(S) 00024130 A00118 EQU A00099+00000048 1 BIT(S) 00024140 SRLSE EQU A00099+00000048 1 BIT(S) 00024150 A00119 EQU A00099+00000048 1 BIT(S) 00024160 A00120 EQU A00099+00000048 1 BIT(S) 00024170 A00121 EQU A00099+00000048 1 BIT(S) 00024180 A00122 EQU A00099+00000048 1 BIT(S) 00024190 PSEC EQU A00099+00000049 3 BYTE(S) 00024200 PCLASS EQU A00099+00000052 1 BYTE(S) 00024210 PDIREC EQU A00099+00000053 3 BYTE(S) 00024220 PFORM EQU A00099+00000056 4 BYTE(S) 00024230 PPGMNM EQU A00099+00000060 8 BYTE(S) 00024240 PBLKSIZ EQU A00099+00000068 HALFWORD INTEGER 00024250 A00123 EQU A00099+00000070 2 BYTE(S) 00024260 PSERNO EQU A00099+00000072 6 BYTE(S) 00024270 A00124 EQU A00099+00000078 1 BYTE(S) 00024280 PARMDSN EQU 00000000 45 BYTE(S) ON WORD 00024290 PDSLEN EQU PARMDSN+00000000 1 BYTE POINTER 00024300 PDSNAME EQU PARMDSN+00000001 44 BYTE(S) 00024310 A00125 EQU 00000000 13 BYTE(S) ON WORD 00024320 A00126 EQU A00125+00000000 HALFWORD INTEGER 00024330 A00127 EQU A00125+00000002 1 BYTE(S) 00024340 A00128 EQU A00125+00000003 1 BYTE(S) 00024350 A00129 EQU A00125+00000004 9 BYTE(S) 00024360 PDDNAME EQU A00125+00000004 8 BYTE(S) 00024370 A00130 EQU A00125+00000012 1 BYTE(S) 00024380 DSELSTPR EQU 00000002 FULLWORD POINTER REGISTER 00024390 DSELIST EQU 00000000 64 BYTE(S) ON WORD 00024400 A00131 EQU DSELIST+00000000 3 BYTE(S) 00024410 A00132 EQU DSELIST+00000003 1 BYTE(S) 00024420 A00133 EQU DSELIST+00000003 6 BIT(S) 00024430 DCR487 EQU DSELIST+00000003 1 BIT(S) 00024440 DCR345 EQU DSELIST+00000003 1 BIT(S) 00024450 CONTROL EQU DSELIST+00000004 1 BYTE(S) ON WORD 00024460 A00134 EQU DSELIST+00000004 5 BIT(S) 00024470 PERMALLC EQU DSELIST+00000004 1 BIT(S) 00024480 A00135 EQU DSELIST+00000004 2 BIT(S) 00024490 TCBADD EQU DSELIST+00000005 3 BYTE POINTER ON WORD+1 00024500 PASSWORD EQU DSELIST+00000008 8 BYTE(S) 00024510 PSWRDTTR EQU DSELIST+00000016 3 BYTE(S) 00024520 DSLNGTH EQU DSELIST+00000019 1 BYTE(S) 00024530 DSNAME EQU DSELIST+00000020 44 BYTE(S) 00024540 ONEDSEAD EQU 00000005 3 BYTE POINTER ON WORD+1 00024550 R15 EQU 00000015 FULLWORD INTEGER REGISTER 00024560 R0 EQU 00000000 FULLWORD INTEGER REGISTER 00024570 R1 EQU 00000001 FULLWORD POINTER REGISTER 00024580 DDNAME EQU 00000000 8 BYTE(S) 00024590 SVC98LST EQU 00000000 16 BYTE(S) ON WORD 00024600 BUFFERAD EQU SVC98LST+00000000 FULLWORD POINTER 00024610 NTRYCODE EQU SVC98LST+00000000 1 BYTE(S) 00024620 A00136 EQU SVC98LST+00000001 3 BYTE(S) 00024630 DSNADDR EQU SVC98LST+00000004 FULLWORD POINTER 00024640 DSLEN EQU SVC98LST+00000004 1 BYTE POINTER 00024650 A00137 EQU SVC98LST+00000005 3 BYTE(S) 00024660 PASSWDAD EQU SVC98LST+00000008 FULLWORD POINTER 00024670 TTRBUFF EQU SVC98LST+00000012 FULLWORD INTEGER 00024680 DUMMYDSE EQU 00000000 256 BYTE(S) 00024690 R14 EQU 00000014 FULLWORD INTEGER REGISTER 00024700 R13 EQU 00000013 FULLWORD INTEGER REGISTER 00024710 TIOTADD EQU 00000005 FULLWORD POINTER REGISTER 00024720 DD1ADD EQU 00000005 FULLWORD POINTER REGISTER 00024730 PASSPARM EQU 00000328 16 BYTE(S) ON WORD 00024740 SVDSEPTR EQU PASSPARM+00000000 FULLWORD INTEGER 00024750 SVRTCODE EQU PASSPARM+00000004 FULLWORD INTEGER 00024760 SVTJBXPR EQU PASSPARM+00000008 FULLWORD INTEGER 00024770 SVALTPTR EQU PASSPARM+00000012 FULLWORD INTEGER 00024780 TCT EQU 00000000 16 BYTE(S) ON WORD 00024790 A00138 EQU TCT+00000000 12 BYTE(S) 00024800 TCTIOTBL EQU TCT+00000012 FULLWORD POINTER 00024810 TCBS EQU 00000000 255*FULLWORD INTEGER 00024820 CURRTCB EQU 00000013 FULLWORD POINTER REGISTER 00024830 X EQU 00000006 3 BYTE POINTER REGISTER 00024840 I EQU 00000007 3 BYTE POINTER REGISTER 00024850 TCBADD1 EQU 00000010 3 BYTE POINTER REGISTER 00024860 ADDNAME1 EQU 00000007 FULLWORD POINTER REGISTER 00024870 FAKEDSE EQU 00000000 28 BYTE(S) ON WORD 00024880 A00139 EQU FAKEDSE+00000000 24 BYTE(S) 00024890 DSETRPW EQU FAKEDSE+00000024 4 BYTE(S) 00024900 DS 00000000C 00024910 @L EQU 3 00024920 @DATD DSECT 00024930 DSEMPTR EQU @DATD+00000000 FULLWORD POINTER 00024940 LISTPTR EQU @DATD+00000004 FULLWORD POINTER 00024950 FIRSTTCB EQU @DATD+00000008 FULLWORD INTEGER 00024960 TCBLKPTR EQU @DATD+00000012 FULLWORD POINTER 00024970 TCBLKSIZ EQU @DATD+00000016 FULLWORD INTEGER 00024980 SAVEDSE EQU @DATD+00000020 FULLWORD INTEGER 00024990 SAVER14 EQU @DATD+00000024 FULLWORD INTEGER 00025000 DSEADDR EQU @DATD+00000028 FULLWORD POINTER 00025010 DS 00000032C 00025020 @TEMPS DS 0F 00025030 @TEMP3 DC F'0' 00025040 @DATEND EQU * 00025050 IGC27099 CSECT , 00025060 @9EE EQU GETPTR 00025070 @9ED EQU @EL02 00025080 @9EB EQU @EL02 00025090 END 00025100 ./ ADD SSI=01013353,NAME=IGC2809I,SOURCE=1 * /******************************************************************** 00000000 * /* * 00000010 * /* STATUS * 00000020 * /* CHANGE LEVEL 000 * 00000030 * /* NEW FOR RELEASE 20 * 00000040 * /* SUPPORT CODE 20011 * 00000050 * /* * 00000060 * /* FUNCTION * 00000070 * /* THE FUNCTION OF THIS MODULE IS TO UPDATE THE TCTIOT TO * 00000080 * /* REFLECT ANY CHANGES MADE TO THE TIOT BY THE DYNAMIC * 00000090 * /* ALLOCATION ROUTINES OF TSO. FURTHER, IF THE ALLOCATION * 00000100 * /* FUNCTION IS UNALLOC, CONCAT, OR DECONCAT, AN SMF RECORD * 00000110 * /* TYPE 40 IS WRITTEN. * 00000120 * /* * 00000130 * /* ENTRY POINT * 00000140 * /* IGC2809I * 00000150 * /* * 00000160 * /* INPUT * 00000170 * /* REGISTER 1 POINTS TO THE DYNAMIC ALLOCATION WORK TABLE(DAWT). * 00000180 * /* * 00000190 * /* DAWT FORMAT * 00000200 * /* * 00000210 * /* ******************************** * 00000220 * /* 0* * * 00000230 * /* * POINTER TO ENTRY POINT NAME * * 00000240 * /* ******************************** * 00000250 * /* 4* * * 00000260 * /* * POINTER TO DCB * * 00000270 * /* ******************************** * 00000280 * /* 8* * * 00000290 * /* * ENTRY POINT NAME * * 00000300 * /* ******************************** * 00000310 * /* 16* * * 00000320 * /* * POINTER TO SVC PARM LIST * * 00000330 * /* ******************************** * 00000340 * /* 20* * * TIOT * * 00000350 * /* * DAWT LENGTH * RSVD * NO. * * 00000360 * /* ******************************** * 00000370 * /* 24* * * 00000380 * /* * POINTER TO TIOT ENTRY * * 00000390 * /* ******************************** * 00000400 * /* 28* * * 00000410 * /* * RETURN CODE * * 00000420 * /* ******************************** * 00000430 * /* 32* * * 00000440 * /* * WORKAREA * * 00000450 * /* ******************************** * 00000460 * /* * 00000470 * /* THE FOLLOWING CODES IN THE THIRD BYTE OF THE FIRST WORD * 00000480 * /* OF THE SVC PARM LIST INDICATE THE DIFFERENT FUNCTIONS. * 00000490 * /* * 00000500 * /* 01 IS FOR ALLOCATE * 00000510 * /* 02 IS FOR UNALLOCATE * 00000520 * /* 03 IS FOR CONCATENATE * 00000530 * /* 04 IS FOR DECONCATENATE * 00000540 * /* 06 IS FOR CONVERT * 00000550 * /* * 00000560 * /* OUTPUT * 00000570 * /* THE RETURN CODE IS RETURNED IN REGISTER 15. THE MODULE FREES * 00000580 * /* THE DAWT BEFORE EXITING VIA SVC 3. * 00000590 * /* * 00000600 * /* EXTERNAL REFERENCES * 00000610 * /* CONTROL BLOCKS * 00000620 * /* 1. TIOT * 00000630 * /* 2. TCTIOT * 00000640 * /* 3. TCB * 00000650 * /* 4. UCB * 00000660 * /* 5. JMR * 00000670 * /* 6. CVT * 00000680 * /* * 00000690 * /* EXIT,NORMAL * 00000700 * /* SVC 3 WITH RETURN CODE IN REGISTER 15. * 00000710 * /* * 00000720 * /* EXIT,ERROR * 00000730 * /* 80A ABEND IF SUFFICIENT CORE IS NOT AVAILABLE TO BUILD THE * 00000740 * /* SMF RECORD TYPE 40. * 00000750 * /* * 00000760 * /* TABLE/WORK AREAS * 00000770 * /* DAWT * 00000780 * /* * 00000790 * /* ATTRIBUTES * 00000800 * /* THE MODULE IS CODED IN BSL AND IS REENTRANT. IT RESIDES IN * 00000810 * /* SYS1.SVCLIB(IGC2809I) AND EXISTS AS A LOAD OF THE DYNAMIC * 00000820 * /* ALLOCATION SVC 99. * 00000830 * /* NOTES * 00000840 * /* THIS MODULE IS NOT CHARACTER CODE DEPENDENT. * 00000850 * /* * 00000860 * /******************************************************************** 00000870 * GENERATE; 00000880 LCLA &T,&SPN 00000890 IGC28099 CSECT 00000900 B 16(0,15) 00000910 DC AL1(8) 00000920 DC CL8'IGC2809I' 00000930 DC CL3'000' 00000940 AGO .@001 00000950 * IGC28099: /* SMF DYNAMIC DD MODULE */ 00000960 * PROCEDURE(PARMLIST) OPTIONS(DONTSAVE,NOSAVEAREA,REENTRANT); 00000970 LCLA &T,&SPN 0002 00000980 .@001 ANOP 0002 00000990 IGC28099 CSECT , 0002 00001000 BALR @B,0 0002 00001010 @PSTART DS 0H 0002 00001020 USING @PSTART+00000,@B 0002 00001030 LR @C,@1 0002 00001040 L @0,@SIZ001 0002 00001050 GETMAIN R,LV=(0) 0002 00001060 XR @C,@1 0002 00001070 XR @1,@C 0002 00001080 XR @C,@1 0002 00001090 USING @DATD+00000,@C 0002 00001100 XC @TEMPS(@L),@TEMPS 0002 00001110 * 00001120 * 00001130 * 00001140 * /************************************************************ 00001150 * /* REGISTER USAGE * 00001160 * /************************************************************ 00001170 * 00001180 * DCL LNGTHREG REG(0), /* GET/FREEMAIN LV=(0) USE * 00001190 * PARMREG REG(1) PTR(31), /* ADDRESS OF DAWT ON ENTRY * 00001200 * SLOTPTR REG(2) PTR(31), /* POINTER FOR THE DD LOOK UP * 00001210 * /* TABLE ENTRIES IN THE * 00001220 * /* TCTIOT * 00001230 * DEVPTR REG(3) PTR(31), /* POINTER FOR THE DEVICE * 00001240 * /* ENTRIES IN THE TCT I/O * 00001250 * /* COUNTER TABLE * 00001260 * NUMDDS REG(4), /* NUMBER OF DD'S, USED FOR * 00001270 * /* LOOP CONTROL * 00001280 * TDDPTR REG(5) PTR(31), /* POINTER FOR THE SMF RECORD * 00001290 * /* TYPE 40 WHILE IT IS BEING * 00001300 * /* BUILT * 00001310 * DDPTR REG(7) PTR(31), /* TIOT POINTER * 00001320 * NUMUCBS REG(13), /* NUMBER OF UCB'S PER DD, * 00001330 * /* USED FOR LOOP CONTROL * 00001340 * CODEREG REG(15); /* REGISTER FOR RETURN CODE * 00001350 * /* ON EXIT * 00001360 * 00001370 * /************************************************************ 00001380 * /* RESTRICTED FOR ENTIRE EXECUTION OF MODULE * 00001390 * /************************************************************ 00001400 * 00001410 * RESTRICT(NUMDDS, TDDPTR, SLOTPTR, DEVPTR, DDPTR); 00001420 * 00001430 * /************************************************************ 00001440 * /* POINTER USAGE * 00001450 * /************************************************************ 00001460 * 00001470 * DCL PARMPTR PTR(31), /* SAVE AREA FOR REG1 * 00001480 * TENTRY PTR(31), /* POINTER TO FIRST DEVICE * 00001490 * /* ENTRY IN TCTIOT * 00001500 * UCBPTR PTR(31), /* UCB POINTER * 00001510 * SMFPTR PTR(31); /* SMF RECORD TYPE 40 POINTER * 00001520 * /************************************************************ 00001530 * /* CVT AND LOCATION 16 POINTER * 00001540 * /************************************************************ 00001550 * 00001560 * DCL CVTPTR PTR(31) BASED(16); /* CVT PTR * 00001570 ** 00001580 ** /* COMMUNICATION VECTOR TABLE * 00001590 ** /* RELEASE 20.2 * 00001600 ** 00001610 ** /* CVT PROPER * 00001620 ** 00001630 ** DECLARE 00001640 ** 1 CVTMAP BASED(CVTPTR), 00001650 ** 00001660 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 00001670 ** AND CURRENT TCB * 00001680 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 00001690 ** ASYNCHRONOUS EXITS * 00001700 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 00001710 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 00001720 ** BLOCKS * 00001730 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 00001740 ** CONSOLE INTERRUPTION ROUTINE * 00001750 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 00001760 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 00001770 ** VALIDITY CHECKING ROUTINE * 00001780 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001790 ** FOR CONVERTING RELATIVE 00001800 ** TRACK ADDR TO ABSOLUTE * 00001810 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001820 ** FOR CONVERTING ABSOLUTE 00001830 ** TRACK ADDR TO RELATIVE * 00001840 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 00001850 ** UNIT SECTION IN UCB LOOKUP 00001860 ** TABLE * 00001870 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 00001880 ** SECTION IN UCB LOOKUP TABLE * 00001890 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 00001900 ** ROUTINE FOR SYSTEM ERROR 00001910 ** ROUTINES * 00001920 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 00001930 ** VOLUME ENTRY IN UCB TABLE * 00001940 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 00001950 ** ROUTINE * 00001960 ** 2 CVTDATE CHAR(4), /* CURRENT DATE IN PACKED 00001970 ** DECIMAL * 00001980 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 00001990 ** (MASTER RESIDENT CORE IN PCP 00002000 ** PLEASE USE CVTMSER INSTEAD 00002010 ** TO ADDRESS MASTER SCHEDULER 00002020 ** RESIDENT DATA AREA * 00002030 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 00002040 ** CHARACTERISTIC TABLE * 00002050 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 00002060 ** ROUTINE * 00002070 ** 00002080 ** 2 CVTDAR PTR(31), /* ADDR OF I/O CONTROL BLOCK 00002090 ** COMPLEX ACCESSED BY DAR * 00002100 ** 00002110 ** 00002120 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 00002130 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 00002140 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 00002150 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 00002160 ** 2 CVTTPC PTR(31), /* ADDR OF PSEUDO CLOCK FOR 00002170 ** TIMER ROUTINE * 00002180 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 00002190 ** TO BLDL ROUTINE * 00002200 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 00002210 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 00002220 ** UCB ADDR * 00002230 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 00002240 ** ROUTINE * 00002250 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 00002260 ** ROUTINE * 00002270 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 00002280 ** TABLE * 00002290 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 00002300 ** CONFIGURATION * 00002310 ** 4 * BIT(1), /* RESERVED * 00002320 ** 4 CVT1SSS BIT(1), /* - PCP * 00002330 ** 4 CVT2SPS BIT(1), /* - MFT * 00002340 ** 4 CVT4MS1 BIT(1), /* - MVT * 00002350 ** 4 * BIT(1), /* RESERVED * 00002360 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 00002370 ** 4 * BIT(1), /* RESERVED * 00002380 ** 4 * BIT(1), /* RESERVED * 00002390 ** 2 CVTDCBA PTR(24) BDY(WORD,2), 00002400 ** /* ADDR OF DCB FOR SYS1.LOGREC * 00002410 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 00002420 ** TABLE * 00002430 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 00002440 ** FREELIST POINTER * 00002450 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 00002460 ** NUCLEUS * 00002470 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 00002480 ** ROUTINE * 00002490 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 00002500 ** DISPATCHER * 00002510 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 00002520 ** TABLE * 00002530 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 00002540 ** QUEUE * 00002550 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 00002560 ** RESIDENT DATA AREA (ADDR OF 00002570 ** MAJOR QCB IN PCP) * 00002580 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 00002590 ** OF POST ROUTINE * 00002600 ** 2 CVTTRMTB PTR(31), /* ADDR OF QTAM TERMINAL TABLE * 00002610 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 00002620 ** IN READY QUEUE * 00002630 ** 2 CVTMZ00 PTR(31), /* HIGHEST STORAGE ADDRESS * 00002640 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 00002650 ** CREATES IRBS FOR EXITS * 00002660 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 00002670 ** WORD, OR ZERO (RESERVED IN 00002680 ** PCP) * 00002690 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 00002700 ** DATA AREA (RESERVED IN PCP) * 00002710 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 00002720 ** NUMBER COUNTER * 00002730 ** 2 CVTOPTA CHAR(1), /* FLAGS * 00002740 ** 3 CVTCCH BIT(1), /* - CCH OPTION PRESENT 00002750 ** (MVT/MFT) * 00002760 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 00002770 ** I/O RECOVERY MGT (MVT/MFT) */ 00002780 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 00002790 ** --I/O RECOVERY MGT (MVT/MFT) * 00002800 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 00002810 ** 3 CVTATTCH BIT(1), /* ATTACH OPERATIVE (MFT) * 00002820 ** 3 CVTHIAR BIT(1), /* MAIN STORAGE HIERARCHY 00002830 ** SUPPORT OPERATIVE * 00002840 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 00002850 ** 3 * BIT(1), /* RESERVED * 00002860 ** 2 CVTOPTB CHAR(1), /* RESERVED * 00002870 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 00002880 ** 3 * BIT(1), /* RESERVED * 00002890 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 00002900 ** 3 * BIT(5), /* RESERVED * 00002910 ** 00002920 ** 2 CVTQCDSR PTR(31), /* MVT/MFT: CDE SEARCH ROUTINE 00002930 ** ADDR */ 00002940 ** 2 CVTQLPAQ PTR(31), /* MVT/MFT: ADDR OF TOP CDE IN LP 00002950 ** QUEUE */ 00002960 ** 00002970 ** 2 CVTMPCVT PTR(31), /* MVT: ADDR OF M65MP SECONDARY 00002980 ** CVT -- MFT/PCP: RESERVED * 00002990 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 00003000 ** 2 CVTABEND PTR(31), /* MVT: ADDR OF SECONDARY CVT 00003010 ** -- MFT/PCP: RESERVED * 00003020 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 00003030 ** 00003040 ** 00003050 ** /* MFT/MVT CVT EXTENSION * 00003060 ** 00003070 ** 2 * PTR(31), /* RESERVED * 00003080 ** 2 CVTQABST CHAR (2), /* MVT: AN SVC 13 INSTRUCTION 00003090 ** -- MFT: RESERVED * 00003100 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 00003110 ** (MFT WITH SUBTASKING) * 00003120 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 00003130 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 00003140 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS WORK AREA * 00003150 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 00003160 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 00003170 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 00003180 ** 4 * BIT(7), /* RESERVED * 00003190 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 00003200 ** 2 CVT0SCR1 PTR(31), /* ADDR OF RPS SECTOR 00003210 ** CONVERTER * 00003220 ** 2 * PTR(31), /* RESERVED * 00003230 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 00003240 ** ADDR OF TCAM VECTOR TABLE * 00003250 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 00003260 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 00003270 ** 4 * BIT(7), /* RESERVED * 00003280 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 00003290 ** ADDR OF TCAM VECTOR TABLE */ 00003300 ** 00003310 ** /* MFT WITH SUBTASKING CVT EXTENSION * 00003320 ** 00003330 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 00003340 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 00003350 ** TAB ENTRIES * 00003360 ** 3 CVTTAT PTR(24) BDY(WORD,2), 00003370 ** /* ADDR OF P0 TCB POINTER * 00003380 ** 2 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 00003390 ** 2 * CHAR(3); /* RESERVED * 00003400 ** 00003410 ** /* PCP OVERLAY * 00003420 ** 00003430 ** DECLARE 00003440 ** 1 * BASED(ADDR(CVTQCDSR ) ), /* PCP OVERLAY * 00003450 ** 2 CVTCRTTR CHAR(3), /* TTR OF JCT FOR RESTART (PCP) * 00003460 ** 2 CVTSTUSA CHAR(1), /* STATUS BYTE A * 00003470 ** 3 * BIT(1), /* RESERVED * 00003480 ** 3 * BIT(1), /* RESERVED * 00003490 ** 3 * BIT(1), /* RESERVED * 00003500 ** 3 * BIT(1), /* RESERVED * 00003510 ** 3 CVTCHPTR BIT(1), /* - REQUESTED AUTOMATIC 00003520 ** CHECKPOINT RESTART WAS 00003530 ** INITIATED * 00003540 ** 3 CVTSTEPR BIT(1), /* - REQUESTED AUTOMATIC STEP 00003550 ** RESTART WAS INITIATED * 00003560 ** 3 CVTDATA BIT(1), /* - DD DATA STATEMENT IN INPUT 00003570 ** STREAM AND DATA HAS NOT BEEN 00003580 ** READ * 00003590 ** 3 * BIT(1), /* RESERVED * 00003600 ** 2 * CHAR(2), /* RESERVED * 00003610 ** 2 * CHAR(2); /* RESERVED * 00003620 ** 00003630 ** /* CVT PREFIX * 00003640 ** 00003650 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 00003660 ** 2 * CHAR(248), /* RESERVED * 00003670 ** 2 * CHAR(2), /* RESERVED * 00003680 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 00003690 ** PACKED DECIMAL, I.E., A 00003700 ** MODEL 50 WOULD BE REPRESENTED 00003710 ** AS 0050 HEX * 00003720 ** 2 CVTRELNO CHAR(4); /* OS RELEASE NUMBER (EBCDIC) * 00003730 ** 00003740 ** /* END OF CVT MACRO * 00003750 ** 00003760 * 00003770 * /************************************************************ 00003780 * /* LOCATE TCB WORDS * 00003790 * /************************************************************ 00003800 * 00003810 * DCL 1 TCBPAIR BASED(CVTTCBP), /* TCB DOUBLE WORDS * 00003820 * 2 TCBNEW PTR(31), /* NEW TCB * 00003830 * 2 TCBPTR PTR(31); /* CURRENT TCB * 00003840 * /************************************************************ 00003850 * /* TCB * 00003860 * /************************************************************ 00003870 * 00003880 ** /* TASK CONTROL BLOCK * 00003890 ** /* RELEASE 20 * 00003900 ** 00003910 ** /* TCB PREFIX * 00003920 ** 00003930 ** DECLARE 00003940 ** 1 TCBFIX BASED(TCBPTR-32), 00003950 ** 00003960 ** 2 TCBFRS CHAR(32), /* FLOATING POINT REGISTER SAVE 00003970 ** AREA * 00003980 ** 3 TCBFRS0 CHAR(8), /* SAVE AREA FOR FLOATING 00003990 ** POINT REGISTER 0 * 00004000 ** 3 TCBFRS2 CHAR(8), /* SAVE AREA FOR FLOATING 00004010 ** POINT REGISTER 2 * 00004020 ** 3 TCBFRS4 CHAR(8), /* SAVE AREA FOR FLOATING 00004030 ** POINT REGISTER 4 * 00004040 ** 3 TCBFRS6 CHAR(8); /* SAVE AREA FOR FLOATING 00004050 ** POINT REGISTER 6 * 00004060 ** 00004070 ** /* TCB PROPER * 00004080 ** 00004090 ** DECLARE 00004100 ** 1 TCB BASED(TCBPTR), 00004110 ** 00004120 ** 2 TCBRBP PTR(31), /* PTR TO TOP RB ON RB CHAIN * 00004130 ** 2 TCBPIE PTR(31), /* ADDR OF PROGRAM INTERRUPT 00004140 ** ELEMENT (PIE) * 00004150 ** 2 TCBDEB PTR(31), /* ADDR OF THE DEB QUEUE * 00004160 ** 2 TCBTIO PTR(31), /* ADDR OF THE TASK I/O TABLE 00004170 ** (TIOT) * 00004180 ** 2 TCBCMP CHAR(4), /* TASK COMPLETION CODE * 00004190 ** 3 TCBCMPF CHAR(1), /* COMPLETION FLAGS * 00004200 ** 4 TCBCREQ BIT(1), /* - A DUMP HAS BEEN REQUESTED * 00004210 ** 4 TCBCSTEP BIT(1), /* - A STEP ABEND HAS BEEN 00004220 ** REQUESTED (MVT) * 00004230 ** 4 TCBCPP BIT(1), /* - SECOND ABEND LOAD OVERLAID 00004240 ** PP STORAGE (PCP/MFT) FOR 00004250 ** FIRST LOAD OVERLAY SEE 00004260 ** TCBFLGS * 00004270 ** 4 * BIT(1), /* RESERVED * 00004280 ** 4 TCBCDBL BIT(1), /* - A DOUBLE ABEND HAS 00004290 ** OCCURRED * 00004300 ** 4 TCBCWTO BIT(1), /* - DUMP MSG TO BE ISSUED TO 00004310 ** OPR * 00004320 ** 4 TCBCIND BIT(1), /* - SCHEDULER TO PRINT 00004330 ** INDICATIVE DUMP * 00004340 ** 4 TCBCMSG BIT(1), /* - ABEND MSG PROVIDED TO BE 00004350 ** PRINTED BY ABDUMP * 00004360 ** 3 TCBCMPC CHAR(3), /* SYSTEM (FIRST 12 BITS) AND 00004370 ** USER (SECOND 12) COMPLETION 00004380 ** CODES * 00004390 ** 2 TCBTRN PTR(31), /* ADDR OF CONTROL CORE TABLE * 00004400 ** 3 TCBABF CHAR(1), /* FLAG BYTE * 00004410 ** 4 TCBMOD91 BIT(1), /* - BOTH TESTRAN AND DECIMAL 00004420 ** SIMULATOR ON A MOD 91 * 00004430 ** 4 TCBNOCHK BIT(1), /* - SUPPRESS TAKING 00004440 ** CHECKPOINTS FOR THIS STEP 00004450 ** (MVT/MFT JOB STEP TCB) * 00004460 ** 4 TCBGRPH BIT(1), /* - GRAPHICS FOREGROUND JOB OR 00004470 ** GRAPHIC JOB PROCESSOR * 00004480 ** 4 * BIT(1), /* RESERVED * 00004490 ** 4 TCBTCPP BIT(1), /* - TCAM POST-PENDING (RORI) * 00004500 ** 4 TCBTCP BIT(1), /* - TEST TASK - USED BY TEST 00004510 ** SVC * 00004520 ** 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 00004530 ** CLEAN-UP BEFORE ABNORMAL 00004540 ** TERMINATION CAN BE INVOKED * 00004550 ** 4 * BIT(1), /* RESERVED * 00004560 ** 3 TCBTRNB PTR(24) BDY(BYTE), 00004570 ** /* ADDR OF CONTROL CORE TABLE * 00004580 ** 2 TCBMSS PTR(31), /* ADDR OF THE BOUNDARY BOX 00004590 ** (PCP/MFT) ADDR OF LAST SPQE 00004600 ** ON MSS QUEUE (MVT) * 00004610 ** 3 TCBNROC PTR(8), /* NONROLLOUTABLE COUNT FIELD 00004620 ** (MVT ONLY) ZERO MEANING 00004630 ** ROLLOUTABLE * 00004640 ** 3 TCBMSSB PTR(24) BDY(BYTE), 00004650 ** /* ADDR OF THE BOUNDARY BOX 00004660 ** (PCP/MFT) ADDR OF LAST SPQE 00004670 ** ON MSS QUEUE (MVT) * 00004680 ** 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY * 00004690 ** 3 TCBFLAG BIT(4), /* - PROTECTION KEY * 00004700 ** 3 TCBZERO BIT(4), /* - ZERO * 00004710 ** 2 TCBFLGS CHAR(5), /* FLAGS * 00004720 ** 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE * 00004730 ** 4 TCBFA BIT(1), /* - ABNORMAL TERMINATION IN 00004740 ** PROGRESS * 00004750 ** 4 TCBFE BIT(1), /* - NORMAL TERMINATION IN 00004760 ** PROGRESS * 00004770 ** 4 TCBFERA BIT(1), /* - ABEND INITIATED BY 00004780 ** RESIDENT ABTERM (PCP/MFT) 00004790 ** ENTER ABEND ERASE ROUTINE 00004800 ** WHEN IN CONTROL AGAIN (MVT) * 00004810 ** 4 TCBRECUR BIT(1), /* - RECURSION THRU ABEND 00004820 ** PERMITTED (PCP/MFT) ENTER 00004830 ** ABEND PURGE ROUTINE WHEN IN 00004840 ** CONTROL AGAIN (MVT) * 00004850 ** 4 TCBPDUMP BIT(1), /* - PREVENT DUMP INDICATOR 00004860 ** (MVT) * 00004870 ** 4 TCBFT BIT(1), /* - TOP TASK IN TREE BEING 00004880 ** ABTERMED (MVT) CLOSE 00004890 ** INITIATED BY ABEND (MFT) 00004900 ** DUMP PROCESSING INITIATED IN 00004910 ** ABEND (PCP) * 00004920 ** 4 TCBFS BIT(1), /* - ABTERM DUMP COMPLETED 00004930 ** (MVT) ABEND OVERLAID 00004940 ** PROBLEM PROGRAM STORAGE 00004950 ** (MFT) * 00004960 ** 4 TCBFX BIT(1), /* - PROHIBIT ASYNCHRONOUS EXIT 00004970 ** QUEUEING (MVT/MFT ONLY) * 00004980 ** 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE * 00004990 ** 4 TCBFOINP BIT(1), /* - ABEND OPERANDS SAVED IN 00005000 ** TCBCMP (MVT) ABEND 00005010 ** PROHIBITED FOR THIS SYSTEM 00005020 ** TASK (PCP/MFT) * 00005030 ** 4 TCBFSTI BIT(1), /* - SECOND JOB STEP INTERVAL 00005040 ** HAS EXPIRED (MVT INITIATOR 00005050 ** TCB) * 00005060 ** 4 TCBFRA BIT(1), /* - JOB STEP CAN CAUSE ROLLOUT 00005070 ** (MVT JOBSTEP TCB) * 00005080 ** 4 TCBFSMC BIT(1), /* - TASK HAS ISSUED SYSTEM 00005090 ** MUST COMPLETE AND SET ALL 00005100 ** OTHER TASKS IN THE SYSTEM 00005110 ** NONDISPATCHABLE * 00005120 ** 4 TCBFJMC BIT(1), /* - TASK HAS ISSUED STEP MUST 00005130 ** COMPLETE AND TURNED OFF ALL 00005140 ** OTHER TASKS IN THE STEP * 00005150 ** 4 TCBFDSOP BIT(1), /* - SYSABEND OPEN FOR JOBSTEP 00005160 ** (MVT) DUMP PROCESSING 00005170 ** INITIATED IN ABEND (PCP/MFT) * 00005180 ** 4 TCBFETXR BIT(1), /* - ETXR TO BE SCHEDULED * 00005190 ** 4 TCBFTS BIT(1), /* - MEMBER OF TIME-SLICING 00005200 ** GROUP (MVT/MFT) * 00005210 ** 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE * 00005220 ** 4 TCBFSM BIT(1), /* - ALL PSW'S IN SUPERVISOR 00005230 ** STATE (MVT) * 00005240 ** 4 TCBFRI BIT(1), /* - STEP HAS CAUSED ROLLOUTS 00005250 ** THAT ARE STILL IN EFFECT 00005260 ** (MVT JOBSTEP TCB) * 00005270 ** 4 TCBABTRM BIT(1), /* - ABTERM BIT TO PREVENT 00005280 ** MULTIPLE ABENDS (MVT) EXIT 00005290 ** EFFECTOR--SYSTEM ERROR 00005300 ** ROUTINES OPERATING FOR THIS 00005310 ** TASK (PCP/MFT) * 00005320 ** 4 TCBREC BIT(1), /* - VALID RECURSION BIT (MVT) * 00005330 ** 4 TCBRECDE BIT(4), /* - VALID RECURSION 00005340 ** CONFIGURATION BITS (MVT) * 00005350 ** 5 TCBFLREG BIT(1), /* - FLOATING POINT REGISTERS 00005360 ** EXIST (PCP/MFT) * 00005370 ** 5 TCBSCH BIT(1), /* - JOB SCHEDULER ROUTINES 00005380 ** IN PROCESS (PCP/MFT) * 00005390 ** 5 TCBPKCHG BIT(1), /* - XCTL IS CHANGING PROTECT 00005400 ** KEY IN PSW FROM ZERO 00005410 ** TO THAT USED BY PROBLEM 00005420 ** PROGRAM (PCP/MFT) * 00005430 ** 5 * BIT(1), /* - RESERVED (PCP/MFT) * 00005440 ** 3 TCBFLGS4 CHAR(1), /* NONDISPATCHABILITY FLAGS 00005450 ** (MVT) * 00005460 ** 4 TCBNDUMP BIT(1), /* - ABDUMP NON-DISP. INDICATOR * 00005470 ** 4 TCBSER BIT(1), /* - SER1 NON-DISP. INDICATOR * 00005480 ** 4 TCBRQENA BIT(1), /* - I/O RQE'S EXHAUSTED * 00005490 ** 4 * BIT(1), /* RESERVED * 00005500 ** 4 * BIT(1), /* RESERVED * 00005510 ** 4 TCBMPCVQ BIT(1), /* - VARY OR QUIESCE IN 00005520 ** MULTIPROCESSING SYSTEM * 00005530 ** 4 TCBMPCND BIT(1), /* - M65 MULTIPROCESSING 00005540 ** NON-DISP. INDICATOR FOR ALL 00005550 ** CPU'S * 00005560 ** 4 TCBONDSP BIT(1), /* - CURRENT TASK ABTERMED AND 00005570 ** NDSP WHILE DUMP DATA SET 00005580 ** BEING OPENED FOR ANOTHER TASK 00005590 ** IN SAME JOB STEP * 00005600 ** 3 TCBFLGS5 CHAR(1), /* MORE NONDISPATCHABILITY 00005610 ** FLAGS (MVT) * 00005620 ** 4 TCBFC BIT(1), /* - TASK TERMINATED * 00005630 ** 4 TCBABWF BIT(1), /* - ABNORMAL WAIT * 00005640 ** 4 TCBWFC BIT(1), /* - TASK IS WAITING FOR SPACE 00005650 ** REQUESTED BY ROLLOUT * 00005660 ** 4 TCBFRO BIT(1), /* - JOB STEP HAS BEEN ROLLED 00005670 ** OUT * 00005680 ** 4 TCBSYS BIT(1), /* - ANOTHER TASK IS IN SYSTEM 00005690 ** MUST COMPLETE STATUS * 00005700 ** 4 TCBSTP BIT(1), /* - ANOTHER TASK IN JS IS IN 00005710 ** STEP MUST COMPLETE STATUS * 00005720 ** 4 TCBFCD1 BIT(1), /* - INITIATOR WAITING FOR 00005730 ** REGION * 00005740 ** 4 TCBPNDSP BIT(1), /* - PRIMARY NONDISPATCHABILITY 00005750 ** FLAG * 00005760 ** 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (MVT) 00005770 ** ENQUEUE COUNT (PCP/MFT) * 00005780 ** 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY * 00005790 ** 2 TCBLLS PTR(31), /* ADDR OF LAST LLE IN LOAD 00005800 ** LIST (MVT) ADDR OF LAST RB 00005810 ** FOR PROGRAM LOADED VIA LOAD 00005820 ** (PCP/MFT) * 00005830 ** 2 TCBJLB PTR(31), /* ADDR OF JOBLIB DCB * 00005840 ** 2 TCBJPQ PTR(31), /* ADDR OF LAST CDE FOR JPA 00005850 ** CONTROL QUEUE (MVT) ADDR OF 00005860 ** FIRST TCB FOR JOBSTEP (MFT 00005870 ** WITH SUBTASKING) * 00005880 ** 3 TCBPURGE CHAR(1), /* PURGE FLAGS (MVT) * 00005890 ** 4 TCBJPQF BIT(1), /* - JPQ PURGE FLAG * 00005900 ** 4 * BIT(1), /* RESERVED * 00005910 ** 4 * BIT(1), /* RESERVED * 00005920 ** 4 * BIT(1), /* RESERVED * 00005930 ** 4 * BIT(1), /* RESERVED * 00005940 ** 4 * BIT(1), /* RESERVED * 00005950 ** 4 * BIT(1), /* RESERVED * 00005960 ** 4 * BIT(1), /* RESERVED * 00005970 ** 3 TCBJPQB PTR(24) BDY(BYTE), 00005980 ** /* ADDR OF LAST CDE FOR JPA 00005990 ** CONTROL QUEUE (MVT) ADDR OF 00006000 ** FIRST TCB FOR JOBSTEP (MFT 00006010 ** WITH SUBTASKING) * 00006020 ** 2 TCBGRS CHAR(64), /* GENERAL REGISTER SAVE AREA * 00006030 ** 3 TCBGRS0 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 0 * 00006040 ** 3 TCBGRS1 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 1 * 00006050 ** 3 TCBGRS2 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 2 * 00006060 ** 3 TCBGRS3 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 3 * 00006070 ** 3 TCBGRS4 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 4 * 00006080 ** 3 TCBGRS5 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 5 * 00006090 ** 3 TCBGRS6 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 6 * 00006100 ** 3 TCBGRS7 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 7 * 00006110 ** 3 TCBGRS8 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 8 * 00006120 ** 3 TCBGRS9 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 9 * 00006130 ** 3 TCBGRS10 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 10 * 00006140 ** 3 TCBGRS11 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 11 * 00006150 ** 3 TCBGRS12 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 12 * 00006160 ** 3 TCBGRS13 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 13 * 00006170 ** 3 TCBGRS14 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 14 * 00006180 ** 3 TCBGRS15 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 15 * 00006190 ** 2 TCBFSA PTR(31), /* ADDR OF FIRST PROBLEM 00006200 ** PROGRAM SAVE AREA * 00006210 ** 3 TCBQEL PTR(8), /* ENQUEUE COUNT (MVT) TCB 00006220 ** IDENTIFIER FIELD (PCP/MFT) * 00006230 ** 3 TCBFSAB PTR(24) BDY(BYTE), 00006240 ** /* ADDR OF FIRST PROBLEM 00006250 ** PROGRAM SAVE AREA * 00006260 ** 2 TCBTCB PTR(31), /* ADDR OF NEXT LOWER PRIRTITY 00006270 ** TCB ON READY QUEUE (MVT/MFT) * 00006280 ** 2 TCBTME PTR(31), /* ADDRESS OF TIMER QUEUE 00006290 ** ELEMENT * 00006300 ** 2 TCBJSTCB PTR(31), /* ADDR OF PARTITION 00006310 ** INFORMATION BLOCK (MFT) ADDR 00006320 ** OF FIRST JOBSTEP TCB (MVT) 00006330 ** OR OF THIS TCB IF KEY ZERO * 00006340 ** 3 TCBPIBT CHAR(1), /* PARTITION TYPE * 00006350 ** 4 TCBPART BIT(2), /* - PARTITION FLAG BITS (MFT 00006360 ** ONLY) * 00006370 ** 4 TCBSIZE BIT(1), /* - LARGE PARTITION (1)--SMALL 00006380 ** PARTITION (0) * 00006390 ** 4 TCBSTOP BIT(1), /* - CPU TIMING STOPPED BY 00006400 ** FINCH UNTIL TRANSIENT 00006410 ** LOADED * 00006420 ** 4 * BIT(1), /* RESERVED * 00006430 ** 4 * BIT(1), /* RESERVED * 00006440 ** 4 TCBWRITE BIT(1), /* - WTR PART (USED BY ABEND) * 00006450 ** 4 TCBSCHED BIT(1), /* - SCHEDULER IN CONTROL - 00006460 ** USED BY ABEND - TURNED OFF 00006470 ** WHEN TIOT WRITTEN TO JOB 00006480 ** QUEUE * 00006490 ** 3 TCBJSTCA PTR(24) BDY(BYTE), 00006500 ** /* ADDR OF PARTITION 00006510 ** INFORMATION BLOCK (MFT) ADDR 00006520 ** OF FIRST JOBSTEP TCB (MVT) 00006530 ** OR OF THIS TCB IF KEY ZERO * 00006540 ** 2 TCBNTC PTR(31), /* ADDR OF NEXT SISTER TCB 00006550 ** (ZERO IF THIS IS LAST 00006560 ** SUBTASK) (MFT WITH 00006570 ** SUBTASKING AND MVT) * 00006580 ** 2 TCBOTC PTR(31), /* ADDR OF MOTHER TCB (MFT WITH 00006590 ** SUBTASKING AND MVT) * 00006600 ** 2 TCBLTC PTR(31), /* ADDR OF LAST DAUGHTER TCB ( 00006610 ** ZERO IF THIS IS IT )(MFT 00006620 ** WITH SUBTASKING AND MVT) * 00006630 ** 2 TCBIQE PTR(31), /* ADDR OF IQE FOR EXTR 00006640 ** SCHEDULING (MFT WITH 00006650 ** SUBTASKING AND MVT) * 00006660 ** 2 TCBECB PTR(31), /* ADDR OF ECB TO BE POSTED 00006670 ** UPON TERMINATION (MFT WITH 00006680 ** SUBTASKING AND MVT) * 00006690 ** 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS * 00006700 ** 3 TCBTSTSK BIT(1), /* - SWAPPED TS TASK * 00006710 ** 3 TCBSTPPR BIT(1), /* - TASK SHOULD BE MADE NDSP 00006720 ** VIA TCBSTPP WHEN IT IS NO 00006730 ** LONGER RUNNING A PRIVILEGED 00006740 ** PGM * 00006750 ** 3 TCBATT BIT(1), /* - TASK SHOULD NOT HAVE 00006760 ** ATTENTION EXITS SCHEDULED ON 00006770 ** IT BY EXIT EFFECTOR * 00006780 ** 3 TCBTIOTG BIT(1), /* - PURGE TGET/TPUT AFTER 00006790 ** ATTENTION * 00006800 ** 3 * BIT(1), /* RESERVED * 00006810 ** 3 * BIT(1), /* RESERVED * 00006820 ** 3 * BIT(1), /* RESERVED * 00006830 ** 3 * BIT(1), /* RESERVED * 00006840 ** 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 00006850 ** WHICH MUST BE ISSUED BEFORE 00006860 ** TASK IS MADE DISPATCHABLE - 00006870 ** FIELD NOT RESTRICTED TO TSO * 00006880 ** 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TS TASK * 00006890 ** 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TS 00006900 ** TASK * 00006910 ** 00006920 ** /* MVT OVERLAY * 00006930 ** 00006940 ** 2 TCBPQE PTR(31); /* POINTER TO DPQE MINUS 8 FOR 00006950 ** THE JOB STEP (MVT) * 00006960 ** 00006970 ** /* MFT OVERLAY * 00006980 ** 00006990 ** DECLARE 00007000 ** 1 TCBOVLY1 BASED(ADDR(TCBPQE)), 00007010 ** 00007020 ** 2 TCBFTLMP PTR(8), /* TASK LIMIT PRIORITY (MFT) * 00007030 ** 2 TCBFTFLG CHAR(3), /* ABEND FLAGS (MFT WITH 00007040 ** SUBTASKS) * 00007050 ** 3 TCBFTFL1 CHAR(1), /* ABEND FLAGS (MFT WITH 00007060 ** SUBTASKS) * 00007070 ** 4 * BIT(1), /* RESERVED * 00007080 ** 4 * BIT(1), /* RESERVED * 00007090 ** 4 * BIT(1), /* RESERVED * 00007100 ** 4 * BIT(1), /* RESERVED * 00007110 ** 4 * BIT(1), /* RESERVED * 00007120 ** 4 TCBFTTOP BIT(1), /* - TOP TASK IN TREE BEING 00007130 ** ABTERMED * 00007140 ** 4 TCBFTCOM BIT(1), /* - ABTERM DUMP SUCCESSFULLY 00007150 ** COMPLETED * 00007160 ** 4 TCBFTSYN BIT(1), /* - ASYNCHRONOUS EXITS MAY NOT 00007170 ** BE SCHEDULED * 00007180 ** 3 TCBFTFL2 CHAR(1), /* ABEND FLAGS (MFT WITH 00007190 ** SUBTASKS) * 00007200 ** 4 TCBFTCMP BIT(1), /* - ABEND MACRO OPERANDS SAVED 00007210 ** IN TCBCMP FIELD * 00007220 ** 4 * BIT(1), /* RESERVED * 00007230 ** 4 * BIT(1), /* RESERVED * 00007240 ** 4 * BIT(1), /* RESERVED * 00007250 ** 4 * BIT(1), /* RESERVED * 00007260 ** 4 TCBFTOPN BIT(1), /* - SYSABEND OPEN (JOBSTEP 00007270 ** TCB) * 00007280 ** 4 TCBFTETX BIT(1), /* - ETXR EXIT REQUESTED BY 00007290 ** ATTACHER * 00007300 ** 4 * BIT(1), /* RESERVED * 00007310 ** 3 TCBFTFL3 CHAR(1), /* ABEND FLAGS (MFT WITH 00007320 ** SUBTASKS) * 00007330 ** 4 * BIT(1), /* RESERVED * 00007340 ** 4 * BIT(1), /* RESERVED * 00007350 ** 4 * BIT(1), /* RESERVED * 00007360 ** 4 TCBFTISS BIT(1), /* - OPEN ISSUED FOR SYSABEND * 00007370 ** 4 * BIT(1), /* RESERVED * 00007380 ** 4 TCBFTDUM BIT(1), /* - NO ABTERM DUMPS MAY BE 00007390 ** PROVIDED IN THIS STEP * 00007400 ** 4 * BIT(2), /* RESERVED * 00007410 ** 00007420 ** /* END OF OVERLAYS * 00007430 ** 00007440 ** 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 00007450 ** THIS TASK (MVT) * 00007460 ** 2 TCBSTAB PTR(31), /* ADDR OF STAE CONTROL BLOCK * 00007470 ** 3 TCBNSTAE CHAR(1), /* STAE FLAGS * 00007480 ** 4 TCBSTABE BIT(1), /* - ABEND ENTERED BECAUSE OF 00007490 ** ERROR IN STAE PROC * 00007500 ** 4 TCBQUIES BIT(1), /* - STAE INVOKED PURGE I/O 00007510 ** ROUTINE WITH QUIESCE I/O 00007520 ** OPTION * 00007530 ** 4 TCBXCTL BIT(1), /* - CURRENT SCB HAS XCTL=YES 00007540 ** OPTION * 00007550 ** 4 TCBSCAT BIT(1), /* - SCB WAS CREATED BY A 00007560 ** PROGRAM THAT IS SCATTER 00007570 ** LOADED * 00007580 ** 4 TCBHALT BIT(1), /* - PURGE I/O ROUTINE DID NOT 00007590 ** SUCCESSFULLY QUIESCE I/O BUT 00007600 ** I/O WAS HALTED * 00007610 ** 4 TCBSUPER BIT(1), /* - PROGRAM USING STAE IS IN 00007620 ** SUPERVISOR MODE * 00007630 ** 4 TCBRETRY BIT(1), /* - STAE USER REQUESTED THAT A 00007640 ** RETRY ROUTINE BE SCHEDULED 00007650 ** BUT THAT THE RB CHAIN NOT BE 00007660 ** PURGED * 00007670 ** 4 TCBVALID BIT(1), /* - RETRY ROUTINE AND 00007680 ** PARAMETER LIST ADDRESSES ARE 00007690 ** VALID * 00007700 ** 3 TCBSTABB PTR(24) BDY(BYTE), 00007710 ** /* ADDR OF STAE CONTROL BLOCK * 00007720 ** 2 TCBTCT PTR(31), /* ADDR OF TCT (MFT WITH 00007730 ** SUBTASKING - OTHERWISE 0) * 00007740 ** 3 * CHAR(1), /* RESERVED * 00007750 ** 3 TCBTCTB PTR(24) BDY(BYTE), 00007760 ** /* ADDR OF TCT (MFT WITH 00007770 ** SUBTASKING - OTHERWISE 0) * 00007780 ** 2 TCBUSER PTR(31), /* FIELD AVAILABLE TO THE USER * 00007790 ** 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 00007800 ** FLAGS * 00007810 ** 3 TCBDARP BIT(1), /* - PRIMARY DAR RECURSION - - 00007820 ** DAR FAILURE WHILE WRITING 00007830 ** CORE IMAGE * 00007840 ** 3 TCBDARS BIT(1), /* - SECONDARY DAR RECURSION - 00007850 ** - DAR FAILURE WHILE 00007860 ** ATTEMPTING TO REINSTATE 00007870 ** FAILING REGION/PARTITION * 00007880 ** 3 TCBDARD BIT(1), /* - A DUMP HAS BEEN REQUESTED 00007890 ** FOR A WRITER OR SCHEDULER 00007900 ** ABEND AND THE USER HAS NOT 00007910 ** PROVIDED A SYSABEND DD CARD * 00007920 ** 3 TCBDARC BIT(1), /* - RECURSION PERMITTED IN 00007930 ** CLOSE - AFTER DAR PROCESSING 00007940 ** COMPLETED (PCP) * 00007950 ** 3 TCBDARO BIT(1), /* - SYSTEM ERROR TASK IS 00007960 ** FAILING. DAR DUMP SHOULD NOT 00007970 ** REQUEST ANY ERP PROCESSING * 00007980 ** 3 * BIT(1), /* RESERVED * 00007990 ** 3 * BIT(1), /* RESERVED * 00008000 ** 3 TCBEXSVC BIT(1), /* SVC DUMP IS EXECUTING FOR 00008010 ** THIS TASK * 00008020 ** 2 TCBSCNDY CHAR(3), /* SECONDARY NONDISPATCHABILITY 00008030 ** FLAGS - (IF ANY BIT IN THESE 00008040 ** BYTES IS ON, THEN SO IS THE 00008050 ** PRIMARY NDSP FLAG) * 00008060 ** 3 TCBNDSP1 CHAR(1), /* FIRST BYTE * 00008070 ** 4 TCBDARTN BIT(1), /* - TASK TEMPORARILY 00008080 ** NONDISPATCHABLE - (DAR) * 00008090 ** 4 TCBDARPN BIT(1), /* - TASK PERMANENTLY 00008100 ** NONDISPATCHABLE - (DAR) * 00008110 ** 4 TCBRSTND BIT(1), /* - TASK TEMPORARILY 00008120 ** NONDISPATCHABLE - (RMS/SER) * 00008130 ** 4 TCBRSPND BIT(1), /* - TASK PERMANENTLY 00008140 ** NONDISPATCHABLE - (RMS/SER) 00008150 ** (IF THIS FLAG IS ON THEN THE 00008160 ** PREVIOUS ONE MUST BE TOO) * 00008170 ** 4 * BIT(1), /* RESERVED * 00008180 ** 4 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 00008190 ** MUST BE DELAYED UNTIL TCAM 00008200 ** I/O APPENDAGE OR SVC ROUTINE 00008210 ** HAS COMPLETED EXECUTION 00008220 ** (TCAM IN MULTIPROCESSING 00008230 ** ENVIRONMENT) * 00008240 ** 4 * BIT(1), /* RESERVED * 00008250 ** 4 * BIT(1), /* RESERVED * 00008260 ** 3 TCBNDSP2 CHAR(1), /* SECOND BYTE * 00008270 ** 4 TCBABD BIT(1), /* - SET BY ABDUMP - (MFT WITH 00008280 ** SUBTASKING) * 00008290 ** 4 TCBSTPP BIT(1), /* - TASK NDSP BECAUSE STOPPED 00008300 ** BY SETTASK * 00008310 ** 4 TCBNDSVC BIT(1), /* - TASK NDSP BECAUSE SVC 00008320 ** DUMP IS EXECUTING FOR 00008330 ** ANOTHER TASK * 00008340 ** 4 TCBNDTS BIT(1), /* - TASK NDSP BECAUSE BEING 00008350 ** SWAPPED OUT * 00008360 ** 4 TCBIWAIT BIT(1), /* - TASK NDSP DUE TO INPUT 00008370 ** WAIT * 00008380 ** 4 TCBOWAIT BIT(1), /* - TASK NDSP DUE TO OUTPUT 00008390 ** WAIT * 00008400 ** 4 * BIT(1), /* RESERVED * 00008410 ** 4 TCBABE BIT(1), /* - ABEND ENTERED FOR THIS 00008420 ** TASK - WHILE SYSABEND DCB 00008430 ** OPEN FOR ANOTHER TASK (MFT 00008440 ** WITH SUBTASKING) * 00008450 ** 3 TCBNDSP3 CHAR(1), /* THIRD BYTE * 00008460 ** 4 TCBTERM BIT(1), /* TERMINATED (MFT WITH 00008470 ** SUBTASKING * 00008480 ** 4 TCBABTER BIT(1), /* - TO BE TERMINATED BY ABEND 00008490 ** - (MFT WITH SUBTASKING) * 00008500 ** 4 * BIT(1), /* RESERVED * 00008510 ** 4 * BIT(1), /* RESERVED * 00008520 ** 4 * BIT(1), /* RESERVED * 00008530 ** 4 * BIT(1), /* RESERVED * 00008540 ** 4 * BIT(1), /* RESERVED * 00008550 ** 4 * BIT(1), /* RESERVED * 00008560 ** 2 * FIXED(31), /* RESERVED * 00008570 ** 2 TCBJSCB PTR(31), /* ADDR OF JOB STEP CONTROL 00008580 ** BLOCK * 00008590 ** 3 * CHAR(1), /* RESERVED * 00008600 ** 3 TCBJSCBB PTR(24) BDY(BYTE); 00008610 ** /* ADDR OF JOB STEP CONTROL 00008620 ** BLOCK * 00008630 ** 00008640 ** /* END OF TCB * 00008650 * /************************************************************ 00008660 * /* TCT * 00008670 * /************************************************************ 00008680 * 00008690 * DECLARE 1 TCT BASED(TCBTCT), 00008700 * 4 TCTQA PTR(24) BDY(WORD,1), /* QUEUE ADDR OF TCT * 00008710 * 4 TCTSW CHAR(1) BDY(WORD,4), /* TCT SWITCHES * 00008720 * 8 TCTEXP BIT(8), /* JOB/STEP TIME INDICATOR * 00008730 * 4 TCTTCB PTR(31), /* INITIATOR TCB ADDRESS * 00008740 * 4 TCTCRTBL PTR(31), /* TCT CORE TABLE START ADDR * 00008750 * 4 TCTIOTBL PTR(31), /* TCT I/O TABLE START ADDRESS* 00008760 * 4 TCTPOOL, 00008770 * 8 * FIXED(15), /* SUBPOOL NO. OF TCT PROPER * 00008780 * 8 TCTSZE FIXED(15), /* SIZE OF TCT PROPER IN BYTES* 00008790 * 4 TCTUTL PTR(31), /* USER TIME LIMIT RTN PTR * 00008800 * 4 TCTUDATA CHAR(4), /* USER DATA FIELD * 00008810 * 4 TCTJMR PTR(31), /* ADDR OF JMR * 00008820 * 4 TCTUSO PTR(31), /* USER OUTPUT LIMIT RTN PTR * 00008830 * 4 TCTSTOF FIXED(31), /* STEP TASK TIME FIELD OVERFW* 00008840 * 4 TCTSACT FIXED(31), /* STEP ACCUMULATIVE TASK TIME* 00008850 * 4 TCTWLMT FIXED(31), /* STEP ACCUMULATIVE TASK TIME* 00008860 * 4 TCTCORE, /* ONE OF THESE FOR EACH TYPE * 00008870 * /* OF CORE AVAILABLE * 00008880 * 8 TCTLUM FIXED(31), /* HI ADDR ALLOC FROM BOT REG * 00008890 * 8 TCTHWM FIXED(31), /* LO TOP * 00008900 * 8 TCTMINC FIXED(15),/* MIN DIF BET LWM/HWM 2K BLKS* 00008910 * 8 TCTRSZ FIXED(15), /* REG REQUEST IN 2K BLKS * 00008920 * 8 TCTRBC FIXED(15), /* BORROWED CORE 2K BLKS * 00008930 * 8 TCTMBC FIXED(15), /* MAX BORROWED CORE 2K BLKS * 00008940 * 8 TCTLCS (4) FIXED(31); /* LCS CORE * 00008950 * 00008960 * /************************************************************ 00008970 * /* TCTIOT * 00008980 * /************************************************************ 00008990 * 00009000 * DECLARE 1 TCTIOT BASED(TCTIOTBL), 00009010 * 4 TCTPLEXT, 00009020 * 8 * FIXED(15), /* SUBPOOL NO. OF TCT EXT * 00009030 * 8 TCTSZEXT FIXED(15),/* SIZE OF TCT EXT * 00009040 * 4 TCTSZLKP FIXED(15), /* SIZE OF CTR TABLE * 00009050 * 4 * FIXED(15), /* RESERVED * 00009060 * 4 TCTDD, /* SET FOR EACT TIOT DD ENTRY* 00009070 * 8 TCTDCBTD FIXED(15),/* DCB TIOT DD ETY DISPLACEMT* 00009080 * 8 TCTIOTSD FIXED(15),/* TCT SLOT DISP THIS ENTRY * 00009090 * 4 TCTDCBLE FIXED(31), /* END OF LOOK UP TBL ZEROS * 00009100 * 4 TCTUCB, /* SET FOR EACH UCB/TIOT DD * 00009110 * 8 TCTUCBP PTR(16), /* UCB ARG FOR EXCP CTR * 00009120 * 8 TCTSCTR PTR(8), /* NO. UCBS IN THIS DD SLOT * 00009130 * 8 TDDRSVD BIT(8), /* RESERVED * 00009140 * 8 TCTDCTR FIXED(31), /* EXCP COUNTER FOR THIS UCB * 00009150 * 8 TCTOUTLM FIXED(31),/* OUTPUT LIMIT IN EXCPS * 00009160 * /* FOR EACH DD ENTRY AFTER * 00009170 * /* UCB FIELD(S) * 00009180 * 8 TDDRSVD2 FIXED(31); 00009190 * /************************************************************ 00009200 * /* TIOT * 00009210 * /************************************************************ 00009220 * 00009230 ** DECLARE 00009240 ** 1 TIOT1 BASED(TCBTIO) BDY(WORD), 00009250 ** 5 TIOCNJOB CHAR(8), /* JOB NAME 00009260 ** 5 TIOCSTEP CHAR(16); /* STEP NAME 00009270 **/******************************************************************** 00009280 **/* * 00009290 **/* DD ENTRY: * 00009300 **/* * 00009310 **/* A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, THERE * 00009320 **/* MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY. * 00009330 **/* * 00009340 **/******************************************************************** 00009350 ** DECLARE 00009360 ** 1 TIOENTRY BASED(ADDR(TIOT1)+24), 00009370 ** 10 TIOELNGH PTR(8), /* LENGTH OF THIS ENTRY 00009380 ** 10 TIOESTTA BIT(8), /* STATUS -A- 00009390 ** 11 TIOSLTYP BIT(1), /* NONSTANDARD LABEL (NOTE 1) 00009400 ** 11 TIOSPLTP BIT(1), /* SPLIT CYLINDER PRIMARY 00009410 ** 11 TIOSPLTS BIT(1), /* SPLIT CYLINDER SECONDARY 00009420 ** 11 TIOSJBLB BIT(1), /* JOBLIB INDICATOR 00009430 ** 11 TIOSDADS BIT(1), /* DADSM ALLOCATION NECESSARY 00009440 ** 11 TIOSLABL BIT(1), /* LABELED/UNLABELED (NOTE 1) 00009450 ** 11 TIOSDSP1 BIT(1), /* DISPOSITION BIT 1 00009460 ** 11 TIOSDSP2 BIT(1), /* DISPOSITION BIT 2 00009470 **/* NOTE 1 - IF BOTH BITS TIOSLTYP AND TIOSLABL ARE ON, THE VOLUME 00009480 **/* IS A TAPE AND HAS AN 'ANSI' LABEL. 00009490 ** 10 TIOERLOC CHAR(2), /* REL. LOC OF POOL 00009500 ** 15 TIOEWTCT CHAR(1), /* COUNTOF NUMBER OF DEVICES 00009510 ** DURING ALLOCATION STILL 00009520 ** ELIGIBLE TO DADSM ALLOCATE 00009530 ** THIS DATA SET REQUEST 00009540 ** 15 TIOELINK CHAR(1), /* DURING ALLOCATION OF 00009550 ** ALL BUT POOLS THIS WILL BE 00009560 ** A LINK TO THE APPROPRIATE 00009570 ** PRIME SPLIT,UNIT AFFIN 00009580 ** VOL.,AFFIN OR SUBALLOCATE 00009590 **/* FOLLOWING BIT MASKS APPLY TO 'TIOELINK' FIELD */ 00009600 ** 17 TIOSYOUT BIT(1), /* SYSOUT D.S.THAT HAS DATA 00009610 ** 17 TIOTOPEN BIT(1), /* DATA SET IS OPEN 00009620 ** 17 TIOTTERM BIT(1), /* THIS IS A TERMINAL 00009630 ** 17 TIOEDYNM BIT(1), /* 'DYNAM' KEYWORD USED 00009640 ** 17 TIOEQNAM BIT(1), /* 'QNAME' KEYWORD USED 00009650 ** 17 * BIT(3), /* RESERVED */ 00009660 ** 10 TIOEDDNM CHAR(8), /* DDNAME 00009670 ** 10 TIOEJFCB CHAR(3), /* JFCB DISK ADDR 00009680 ** 10 TIOESTTC BIT(8), /* STATUS -C- 00009690 ** 11 TIOSDKCR BIT(1), /* CORE/DISK ADDRESS 00009700 ** 11 TIOSDEFR BIT(1), /* DEFERRED MOUNT 00009710 ** 11 TIOSAFFP BIT(1), /* UNIT AFFINITY PRIMARY 00009720 ** 11 TIOSAFFS BIT(1), /* UNIT AFFINITY SECONDARY 00009730 ** 11 TIOSVOLP BIT(1), /* VOLUME AFFINITY PRIMARY 00009740 ** 11 TIOSVOLS BIT(1), /* VOLUME AFFINITY SECONDARY 00009750 ** 11 TIOSBALP BIT(1), /* SUBALLOCATE PRIMARY 00009760 ** 11 TIOSBALS BIT(1), /* SUBALLOCATE SECONDARY 00009770 **/******************************************************************** 00009780 **/* * 00009790 **/* DEVICE ENTRIES: * 00009800 **/* * 00009810 **/* 1. DURING ALLOCATION: * 00009820 **/* ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR * 00009830 **/* EACH PUBLIC DEVICE ELIGIBLE. * 00009840 **/* * 00009850 **/* 2. DURING PROBLEM PROGRAM: * 00009860 **/* ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE * 00009870 **/* * 00009880 **/******************************************************************** 00009890 ** 10 TIOESTTB BIT(8), /* STATUS -B- 00009900 ** 11 TIOSUSED BIT(1), /* DATA SET IS ON DEVICE 00009910 ** 11 TIOSREQD BIT(1), /* DATA SET WILL USE DEVICE 00009920 ** 11 TIOSPVIO BIT(1), /* DEVICE VIOLATES SEPARATION 00009930 ** 11 TIOSVLSR BIT(1), /* VOLUME SERIAL PRESENT 00009940 ** 11 TIOSSETU BIT(1), /* SETUP MESSAGE REQUIRED 00009950 ** 11 TIOSMNTD BIT(1), /* MOUNTED 00009960 ** 11 TIOSUNLD BIT(1), /* UNLOAD REQUIRED 00009970 ** 11 TIOSVERF BIT(1), /* VERIFICATION REQUIRED 00009980 ** 10 TIOEFSRT PTR(24), /* SRT POINTER 00009990 **/******************************************************************** 00010000 **/* 00010010 **/* TIOT POOL ENTRY 00010020 **/* 00010030 **/******************************************************************** 00010040 ** 5 POOLSTAR, 00010050 ** 10 * CHAR(1), 00010060 ** 10 TIOPNSLT PTR(8), /* NR. OF SLOTS FOR POOL * 00010070 ** 10 * CHAR(1), 00010080 ** 10 TIOPNSRT PTR(8), /* NR. OF DEVICES (FILLED 00010090 ** SLOTS) 00010100 ** 10 TIOPPOOL CHAR(8), /* POOL NAME 00010110 ** 10 TIOPSTTB CHAR(1), /* STATUS OF SLOT 00010120 ** 10 TIOPSLOT PTR(24), /* SRT ADDRESS OF EMPTY SLOT 00010130 ** 10 TIOTFEND CHAR(4); /* FINAL END OF AN ENTRY OR 00010140 ** THE TIOT 00010150 * /************************************************************ 00010160 * /* DYNAMIC ALLOCATION WORK TABLE * 00010170 * /************************************************************ 00010180 * 00010190 * DECLARE 1 DAWT BASED(PARMPTR), 00010200 * 4 DAWTDSE, 00010210 * 8 DAWTXCTL, 00010220 * 12 XCTLAD PTR(31), /* PTR TO XCTL ENTRY POINT * 00010230 * 12 XCTLDCB FIXED(31), /* PTR TO DCB * 00010240 * 12 XCTLEP CHAR(8),/* ENTRY POINT NAME * 00010250 * 8 PPARMP PTR(31), /* PTS TO SVC PARM LIST * 00010260 * 8 LNGTH FIXED(15), /* SIZE OF DAWT * 00010270 * 8 * CHAR(1), /* RESERVED * 00010280 * 8 TIOTNO CHAR(1), /* ENTRY POINT NUMBER * 00010290 * 8 TIOTP PTR(31), /* PTR TO SUBJECT TIOT ENTRY * 00010300 * 8 RTCODE FIXED(31),/* RETURN CODE * 00010310 * 4 WKAREA CHAR(512); /* WORK AREA FOR SMF * 00010320 * 00010330 * /************************************************************ 00010340 * /* SVC PARAMETER LIST * 00010350 * /************************************************************ 00010360 * 00010370 * DECLARE 1 DADARM BASED(PPARMP), /* PARAMETER LIST * 00010380 * 2 * CHAR(2), /* RESERVED * 00010390 * 2 CALLCODE BIT(8), /* FUNCTION CODE * 00010400 * 2 * CHAR(1); /* RESERVED * 00010410 * /************************************************************ 00010420 * /* JMR * 00010430 * /************************************************************ 00010440 * 00010450 * DECLARE 1 JMR BASED(TCTJMR), 00010460 * 4 JMRJNET CHAR(16), 00010470 * 8 JMRJOB CHAR(8), /* JOB NAME * 00010480 * 8 JMRENTRY CHAR(4), /* ENTRY TIME 1/100 SECS * 00010490 * 8 JMREDATE CHAR(4), /* ENTRY DATE * 00010500 * 4 JMRCPUID CHAR(4), /* SID/MDL FROM SMCA * 00010510 * 4 JMRIDSNO CHAR(9), 00010520 * 8 JMRUSEID CHAR(8), /* USER ID * 00010530 * 8 JMRSTEP CHAR(1), /* STEP NUMBER * 00010540 * 4 * CHAR(3) BDY(WORD,2), 00010550 * 4 JMRUCOM FIXED(31), /* USER COMMUNICATIN FIELD * 00010560 * 4 JMRUJVP PTR(31), /* ADDR OF UJV / SYMAN RECORD * 00010570 * 4 JMRDRSTP(2) FIXED(31), /* RDR STOP TIME/DATE * 00010580 * 4 JMRJOBIN FIXED(31),/* JOB SYSIN COUNT * 00010590 * 4 JMRRDR CHAR(2), /* RDR DEVICE CLASS/TYPE * 00010600 * 4 JMROPT CHAR(1), /* OPTION SWITCHES * 00010610 * 4 * CHAR(1), /* RESERVED * 00010620 * 4 JMRSYSOC CHAR(5), /* SYSOUT CLASSES * 00010630 * 4 JMRJCLCD CHAR(1), /* JCL CODE * 00010640 * 4 * CHAR(2), 00010650 * 4 JMRJOBP PTR(31), /* ADDR JOB LOG * 00010660 * 4 JMRJCLP PTR(31), /* ADDR JCL CARD * 00010670 * 4 JMRJCLCP PTR(31); /* ADDR JCL CODE * 00010680 * 00010690 **/* **************************************************************** * 00010700 **/* * 00010710 **/* U N I T C O N T R O L B L O C K * 00010720 **/* * 00010730 **/* **************************************************************** * 00010740 **/* * 00010750 **/* STATUS * 00010760 **/* * 00010770 **/* RELEASE 20.2, 3/29/71, LEVEL=2 * 00010780 **/* * 00010790 **/* FUNCTION * 00010800 **/* * 00010810 **/* A UNIT CONTROL BLOCK * 00010820 **/* INCORPORATING A SYSTEM RESOURCE TABLE * 00010830 **/* RECORDS THE STATUS OF * 00010840 **/* A PHYSICAL INPUT OUTPUT DEVICE ADDRESS * 00010850 **/* IS CREATED AND INITIALIZED DURING SYSTEM GENERATION * 00010860 **/* RESIDES IN THE NUCLEUS BELOW 32 K * 00010870 **/* POINTS TO A DEVICE TYPE DEPENDENT EXTENSION * 00010880 **/* RESIDING HIGHER IN THE NUCLEUS * 00010890 **/* IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY * 00010900 **/* A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRES * 00010910 **/* MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES * 00010920 **/* AND DATA EXTENT BLOCKS * 00010930 **/* CONTAINS INDICES INTO TABLES FOR * 00010940 **/* DEVICE STATISTICS ATTENTION LOGICAL CHANNEL * 00010950 **/* MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMEN * 00010960 **/* * 00010970 **/* ENTRY * 00010980 **/* * 00010990 **/* IEFUCBOB * 00011000 **/* * 00011010 **/* INPUT * 00011020 **/* * 00011030 **/* BAL: DSECT * 00011040 **/* BSL: DCL (UCBPTR, UCBDCPTR) PTR * 00011050 **/* * 00011060 **/* OUTPUT * 00011070 **/* * 00011080 **/* SYSGEN INDEPENDENT COMMON SECTION * 00011090 **/* INCLUDING UCBTYP WORD * 00011100 **/* DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING) * 00011110 **/* DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE * 00011120 **/* DATACELL * 00011130 **/* (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW) * 00011140 **/* UNIT RECORD WITH UNIVERSAL CHARACTER SET * 00011150 **/* GRAPHICS (EXCEPT M85 CRT CONSOLE) * 00011160 **/* TAPE CARTRIDGE READER AND OPTICAL READER * 00011170 **/* CELL DESCRIPTION FOR ONE OF THE TEN CELLS * 00011180 **/* IN THE DATACELL DEVICE SEGMENT ABOVE * 00011190 **/* UCB EXTENSION (ONE OF THE FOLLOWING) * 00011200 **/* DIRECT ACCESS * 00011210 **/* MAGNETIC TAPE * 00011220 **/* TAPE CARTRIDGE READER * 00011230 **/* OPTICAL READER * 00011240 **/* UNIVERSAL CHARACTER SET * 00011250 **/* M65 MULTIPROCESSING PREFIX * 00011260 **/* (CONTIGUOUSLY PRECEDING COMMON SECTION) * 00011270 **/* * 00011280 **/* ATTRIBUTES * 00011290 **/* * 00011300 **/* BILINGUAL * 00011310 **/* * 00011320 **/* **************************************************************** * 00011330 **/* * 00011340 **/* SYSGEN-INDEPENDENT * 00011350 **/* COMMON SECTION * 00011360 **/* * 00011370 **/* * 00011380 **DECLARE 00011390 ** 1 UCBOB BASED(UCBPTR), 00011400 ** /* > UCBOB 00011410 ** * 00011420 **/* **************************************************************** * 00011430 **/* * 00011440 ** 2 UCBJBNR CHAR(1), /* INTERNAL JOB ID * 00011450 ** 3 UCBKEY BIT(4), /* JOB PROTECTION KEY (SET 00011460 ** FOR RETAIN OR PASS) * 00011470 ** 3 * BIT(1), /* RESERVED * 00011480 ** 3 * BIT(1), /* RESERVED * 00011490 ** 3 UCBDEM BIT(1), /* DEMOUNT AND RETAIN OR 00011500 ** PASS (SET DURING DEVICE 00011510 ** ALLOC) * 00011520 ** 3 UCBMONT BIT(1), /* MOUNT AND RETAIN OR PASS 00011530 ** (SET DURING DEVICE 00011540 ** ALLOC) * 00011550 ** 2 UCBFL5 CHAR(1), /* FLAGS * 00011560 ** 3 * BIT(4), /* RESERVED * 00011570 ** 3 UCBEXTSN BIT(1), /* UCBNBRSN CONTAINS LENGTH 00011580 ** AND UCBSNADR ADDRESS OF 00011590 ** SENSE INFO * 00011600 ** 3 UCBNALOC BIT(1), /* DEVICE NOT ALLOCABLE 00011610 ** BECAUSE OWNED BY OLTEP * 00011620 ** 3 UCBALTCU BIT(1), /* DEVICE HAS ALTERNATE CU 00011630 ** ADDRESS * 00011640 ** 3 UCBALTPH BIT(1), /* DEVICE HAS ALTERNATE 00011650 ** PATH * 00011660 ** 2 UCBID CHAR(1), /* UCB ID (FF) * 00011670 ** 2 UCBSTAT CHAR(1), /* DEVICE STATUS * 00011680 ** 3 UCBONLI BIT(1), /* DEVICE ONLINE * 00011690 ** 3 UCBCHGS BIT(1), /* DEVICE TO BE VARIED 00011700 ** OFFLINE * 00011710 ** 3 UCBRESV BIT(1), /* VOLUME RESERVED * 00011720 ** 3 UCBUNLD BIT(1), /* UNLOAD PENDING * 00011730 ** 3 UCBALOC BIT(1), /* DEVICE ALLOCATED * 00011740 ** 3 UCBPRES BIT(1), /* VOLUME PERMANENTLY 00011750 ** RESIDENT * 00011760 ** 3 UCBSYSR BIT(1), /* EITHER SYSTEM RESIDENCE 00011770 ** OR PRIMARY CONSOLE * 00011780 ** 3 UCBDADI BIT(1), /* EITHER STANDARD TAPE 00011790 ** LABELS VERIFIED OR 00011800 ** ALTERNATE CONSOLE * 00011810 ** 2 UCBCHA CHAR(1), /* CHANNEL ADDRESS FLAGS * 00011820 ** 3 UCBHIO BIT(1), /* HALT I/O * 00011830 ** 3 UCBMOD BIT(1), /* STATUS MODIFIER * 00011840 ** 3 UCBCHANA BIT(6), /* CHANNEL ADDRESS * 00011850 ** 2 UCBUA PTR(8), /* UNIT ADDRESS * 00011860 ** 2 UCBFL1 CHAR(1), /* FLAGS * 00011870 ** 3 UCBBUSYD BIT(1), /* DEVICE BUSY * 00011880 ** 3 UCBNOTRD BIT(1), /* DEVICE NOT READY * 00011890 ** 3 UCBUSING BIT(1), /* CHANNEL PROGRAM EXECUTED 00011900 ** AND NOT YET POSTED 00011910 ** COMPLETE * 00011920 ** 3 UCBINTER BIT(1), /* DEVICE END ERROR AFTER 00011930 ** CHANNEL END (IOB 00011940 ** INTERCEPT) * 00011950 ** 3 UCBNOTRC BIT(1), /* CONTROL UNIT BUSY * 00011960 ** 3 UCBSTS BIT(2), /* DEVICE STATUS * 00011970 ** 3 UCBERR BIT(1), /* ERROR ROUTINE USING 00011980 ** DEVICE EXCLUSIVELY * 00011990 ** 2 UCBDTI PTR(8), /* DEVICE TABLE INDEX * 00012000 ** 2 UCBETI PTR(8), /* ERROR TABLE INDEX 00012010 ** (ERROR ROUTINE SUFFIX) * 00012020 ** 2 UCBSTI PTR(8), /* STATUS TABLE INDEX (*10 00012030 ** = STATAB INDEX) * 00012040 ** 2 UCBLCI PTR(8), /* LOGICAL CHANNEL WORD 00012050 ** TABLE INDEX (*8 = LCHTAB 00012060 ** INDEX) * 00012070 ** 2 UCBATI PTR(8), /* ATTENTION TABLE (ANTAB) 00012080 ** INDEX * 00012090 ** 2 UCBWGT CHAR(1), /* FLAGS AND CHANNEL MASK * 00012100 ** 3 UCBIN BIT(1), /* SYSIN * 00012110 ** 3 UCBOUT BIT(1), /* SYSOUT * 00012120 ** 3 UCBPUB BIT(1), /* ASSUME PUBLIC VOLUME * 00012130 ** 3 UCBREW BIT(1), /* REWIND COMMAND * 00012140 ** 3 UCBPATH BIT(4), /* INOPERATIVE PATHS * 00012150 ** 4 UCBPATH0 BIT(1), /* PRIMARY PATH INOPERATIVE * 00012160 ** 4 UCBPATH1 BIT(1), /* OPTIONAL PATH 1 00012170 ** INOPERATIVE * 00012180 ** 4 UCBPATH2 BIT(1), /* OPTIONAL PATH 2 00012190 ** INOPERATIVE * 00012200 ** 4 UCBPATH3 BIT(1), /* OPTIONAL PATH 3 00012210 ** INOPERATIVE * 00012220 ** 2 UCBNAME CHAR(3), /* EBCDIC UNIT NAME * 00012230 ** 2 UCBTYP CHAR(4), /* DEVICE DESCRIPTION * 00012240 ** 3 UCBTBYT1 CHAR(1), /* MODEL BITS * 00012250 ** 4 UCB1FEA0 BIT(1), /* BIT 0 * 00012260 ** 4 UCB1FEA1 BIT(1), /* BIT 1 * 00012270 ** 4 UCB1FEA2 BIT(1), /* BIT 2 * 00012280 ** 4 UCB1FEA3 BIT(1), /* BIT 3 * 00012290 ** 4 UCB1FEA4 BIT(1), /* BIT 4 * 00012300 ** 4 UCB1FEA5 BIT(1), /* BIT 5 * 00012310 ** 4 UCB1FEA6 BIT(1), /* BIT 6 * 00012320 ** 4 UCB1FEA7 BIT(1), /* BIT 7 * 00012330 ** 3 UCBTBYT2 CHAR(1), /* OPTION FLAGS * 00012340 ** 4 UCB2OPT0 BIT(1), /* FLAG 0 * 00012350 ** 4 UCB2OPT1 BIT(1), /* FLAG 1 * 00012360 ** 4 UCB2OPT2 BIT(1), /* FLAG 2 * 00012370 ** 4 UCB2OPT3 BIT(1), /* FLAG 3 * 00012380 ** 4 UCB2OPT4 BIT(1), /* FLAG 4 * 00012390 ** 4 UCB2OPT5 BIT(1), /* FLAG 5 * 00012400 ** 4 UCB2OPT6 BIT(1), /* FLAG 6 * 00012410 ** 4 UCB2OPT7 BIT(1), /* FLAG 7 * 00012420 ** 3 UCBTBYT3 CHAR(1), /* CLASS BITS * 00012430 ** 4 UCB3TAPE BIT(1), /* TAPE * 00012440 ** 4 UCB3COMM BIT(1), /* COMMUNICATIONS * 00012450 ** 4 UCB3DACC BIT(1), /* DIRECT ACCESS * 00012460 ** 4 UCB3DISP BIT(1), /* DISPLAY * 00012470 ** 4 UCB3UREC BIT(1), /* UNIT RECORD * 00012480 ** 4 UCB3CHAR BIT(1), /* CHARACTER READER * 00012490 ** 4 * BIT(1), /* RESERVED * 00012500 ** 4 * BIT(1), /* RESERVED * 00012510 ** 3 UCBTBYT4 CHAR(1), /* DEVICE CODE * 00012520 ** 2 UCBLTS CHAR(2), /* LAST REQUEST ELEMENT * 00012530 ** 2 UCBSNS CHAR(2), /* SENSE INFORMATION 00012540 ** * 00012550 **/* * 00012560 **/* **************************************************************** * 00012570 **/* * 00012580 **/* DEVICE-DEPENDENT UCB SEGMENTS * 00012590 **/* * 00012600 ** 2 UCBDEV BDY(BYTE); 00012610 **/* * 00012620 **/* **************************************************************** * 00012630 **/* * 00012640 **/* DIRECT ACCESS (2300) * 00012650 **/* (EXCEPT DATA CELL) * 00012660 **/* AND MAGNETIC TAPE (2400) * 00012670 **/* UCB SEGMENT * 00012680 **/* * 00012690 **DECLARE 1 UCBOBS01 00012700 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 00012710 ** * 00012720 **/* **************************************************************** * 00012730 **/* * 00012740 ** 2 UCBSENSE CHAR(4) BDY(WORD), /* ADDITIONAL SENSE 00012750 ** INFORMATION FOR DEVICES 00012760 ** WITH SIX SENSE BYTES * 00012770 ** 3 UCBSENSB PTR(31), /* SAME AS UCBSENSA BELOW * 00012780 ** 4 UCBSENSN PTR(8), /* NUMBER OF EXPANDED SENSE 00012790 ** BYTES * 00012800 ** 4 UCBSENSA PTR(24), /* ADDRESS OF EXPANDED 00012810 ** SENSE INFORMATION * 00012820 ** 2 UCBVOLI CHAR(6), /* VOLUME SERIAL NUMBER * 00012830 ** 2 UCBSTAB CHAR(1), /* VOLUME STATUS * 00012840 ** 3 UCBBSVL BIT(1), /* NOT SHARABLE * 00012850 ** 3 UCBBVSC BIT(1), /* RESERVED * 00012860 ** 3 UCBPRSRS BIT(1), /* THIS DEVICE WAS SPECIFIED 00012870 ** IN PRESRES BUT WAS NOT 00012880 ** MOUNTED AT IPL * 00012890 ** 4 UCBBALB BIT(1), /* MORE VOLUME LABEL 00012900 ** PROCESSING * 00012910 ** 3 UCBBPRV BIT(1), /* PRIVATE USE * 00012920 ** 3 UCBBPUB BIT(1), /* PUBLIC USE * 00012930 ** 3 UCBBSTR BIT(1), /* STORAGE USE (DA) ANSI 00012940 ** LABEL (MT) * 00012950 ** 3 UCBBJLB BIT(1), /* JOBLIB VOLUME (DA) * 00012960 ** 3 UCBBNUL BIT(1), /* MCS MOUNT/DEMOUNT MSGS 00012970 ** ISSUED (MESSAGE IDS IN 00012980 ** UCBFSER) (MT) CONTROL 00012990 ** VOLUME (DA) * 00013000 ** 2 UCBDMCT CHAR(1), /* VOLUME USE BYTE * 00013010 ** 3 UCBMOUNT BIT(1), /* MOUNTED OR REQUEST 00013020 ** ISSUED (OFF MEANS 00013030 ** MOUNT VERIFIED) * 00013040 ** 3 UCBDMC BIT(7), /* NUMBER OF OPEN DCBS * 00013050 ** 2 UCBVTOC CHAR(4) BDY (WORD), /* TTR0 OF VTOC (DA) * 00013060 ** 3 UCBFSCT FIXED(15), /* DATASET SEQUENCE COUNT 00013070 ** (MT) * 00013080 ** 3 UCBFSEQ FIXED(15), /* DATASET SEQUENCE NUMBER 00013090 ** (MT) * 00013100 ** 2 UCBFSER CHAR(8) BDY (WORD), /* DATASET SERIAL NUMBER 00013110 ** (MT AFTER OPEN) OR 00013120 ** MESSAGE IDS (MT BEFORE 00013130 ** OPEN) PLUS TWO RESERVED 00013140 ** BYTES (MT) * 00013150 ** 3 UCBSQC PTR(8), /* NUMBER OF RESERVE MACROS 00013160 ** (DA INCLUDING DATACELL) * 00013170 ** 3 UCBDVRES PTR(8), /* DEVICE RESERVATION 00013180 ** (SHARED DASD) (DA 00013190 ** INCLUDING DATACELL) SET 00013200 ** TO UCBSQC AFTER GOOD SIO * 00013210 ** 3 UCBRQESV FIXED(15), /* ADDRESS OF RQE TO VERIFY 00013220 ** VOL SER NUMBER IN UCB 00013230 ** (SET FROM UCBLTS AFTER 00013240 ** UNSOLICITED DEVICE END) 00013250 ** (DA INCLUDING DATACELL) * 00013260 ** 3 UCBORSVA PTR(31), /* ADDRESS OF DEB FOR FIRST 00013270 ** USER ON QUEUE FOR 00013280 ** DEVICE (DA INCLUDING 00013290 ** DATACELL) * 00013300 ** 4 UCBFL4 CHAR(1), /* FLAGS (DA INCLUDING 00013310 ** DATACELL) * 00013320 ** 5 UCBDAV BIT(5), /* VOLUME VERIFICATION 00013330 ** FLAGS * 00013340 ** 6 UCBMNT BIT(1), /* VOL SER VERIFIER ISSUED 00013350 ** MOUNT * 00013360 ** 6 UCBVVRTN BIT(1), /* VOL SER VERIFIER IN 00013370 ** CONTROL * 00013380 ** 6 UCBFT BIT(1), /* FIRST VERIFIER ENTRY FOR 00013390 ** VOL * 00013400 ** 6 UCBTCC BIT(1), /* ALTERNATE TRACK 00013410 ** PROCEDURE HANDLING VOL 00013420 ** LABEL * 00013430 ** 6 UCBVER BIT(1), /* VERIFIER VERIFIED VOL * 00013440 ** 5 UCBORCNT BIT(3), /* NUMBER OF REQUESTS FOR 00013450 ** DEVICE FROM FIRST USER 00013460 ** ON QUEUE * 00013470 ** 4 UCBORSVB PTR(24) BDY(BYTE), /* ADDRESS OF DEB FOR FIRST 00013480 ** USER ON QUEUE FOR 00013490 ** DEVICE (DA INCLUDING 00013500 ** DATACELL) * 00013510 ** 2 UCBSKA CHAR(8) BDY (WORD), /* MBBCCHHR OF LAST SEEK 00013520 ** (DA INCLUDING DATACELL) * 00013530 ** 3 UCBXTN PTR(31), /* ADDRESS OF UCB EXTENSION 00013540 ** (MT) * 00013550 ** 4 UCBVOPT CHAR(1), /* VOLUME STATISTIC FLAGS * 00013560 ** 5 UCBESV BIT(1), /* ESV RECORDS KEPT * 00013570 ** 5 UCBEVA BIT(1), /* EVA RECORDS MAY BE KEPT * 00013580 ** 5 UCBESVC BIT(1), /* ESV RECORDS SENT TO 00013590 ** CONSOLE AS OPPOSED TO 00013600 ** SYS1.MAN * 00013610 ** 5 UCBERPC BIT(1), /* ERROR RECOVERY PROC IN 00013620 ** CONTROL * 00013630 ** 5 UCBESVE BIT(1), /* ESV RECORD ISSUED FOR 00013640 ** VOLUME BECAUSE OF EOV * 00013650 ** 5 * BIT(1), /* RESERVED * 00013660 ** 5 * BIT(1), /* RESERVED * 00013670 ** 5 * BIT(1), /* RESERVED * 00013680 ** 4 UCBXTNB PTR(24) BDY(BYTE), /* ADDRESS OF UCB EXTENSION 00013690 ** (MT) (MAP BELOW) * 00013700 ** 3 * CHAR(4), /* UCBSKA PADDING (NOT IN 00013710 ** UCB) NO LONGER EXISTS 00013720 ** (MT) * 00013730 ** 2 UCBECBB PTR(31), /* ECB ADDRESS (DA) * 00013740 ** 3 UCBUSER PTR(8), /* NUMBER OF CURRENT USERS 00013750 ** (DA) * 00013760 ** 3 UCBECBA PTR(24) BDY(BYTE), /* ECB ADDRESS (DA) * 00013770 ** 2 UCBEXT PTR(31); /* ADDRESS OF UCB EXTENSION 00013780 ** (DA) (MAPPED BELOW) 00013790 ** * 00013800 **/* * 00013810 **/* **************************************************************** * 00013820 **/* * 00013830 **/* DATA CELL (2321) * 00013840 **/* UCB SEGMENT * 00013850 **/* * 00013860 **DECLARE 1 UCBOBS02 00013870 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 00013880 ** * 00013890 **/* **************************************************************** * 00013900 **/* * 00013910 ** 2 UCBSEN CHAR(4), /* MORE SENSE INFORMATION * 00013920 ** 2 UCBERPA CHAR(12), /* ERROR RECOVERY WORK AREA 00013930 ** A * 00013940 ** 2 UCBDASD CHAR(16), /* DATA CELL FIELDS MAPPED 00013950 ** BY UCBSQC (1 BYTE) 00013960 ** UCBDVRES (1 BYTE) 00013970 ** UCBRQESV (2 BYTES) 00013980 ** UCBFL4 (1 FLAG BYTE) 00013990 ** UCBORSVA/B (3 BYTES) 00014000 ** UCBSKA (8 BYTES) UNDER 00014010 ** DIRECT ACCESS ABOVE * 00014020 ** 2 UCBCELLS CHAR(160), /* CELL DESCRIPTIONS 00014030 ** (MAPPED BELOW) * 00014040 ** 3 UCBCELL0 CHAR(16), /* CELL 0 * 00014050 ** 3 UCBCELL1 CHAR(16), /* CELL 1 * 00014060 ** 3 UCBCELL2 CHAR(16), /* CELL 2 * 00014070 ** 3 UCBCELL3 CHAR(16), /* CELL 3 * 00014080 ** 3 UCBCELL4 CHAR(16), /* CELL 4 * 00014090 ** 3 UCBCELL5 CHAR(16), /* CELL 5 * 00014100 ** 3 UCBCELL6 CHAR(16), /* CELL 6 * 00014110 ** 3 UCBCELL7 CHAR(16), /* CELL 7 * 00014120 ** 3 UCBCELL8 CHAR(16), /* CELL 8 * 00014130 ** 3 UCBCELL9 CHAR(16), /* CELL 9 * 00014140 ** 2 UCBDC PTR(31); /* ADDRESS OF DATACELL UCB 00014150 ** EXT (MAPPED BELOW) 00014160 ** * 00014170 **/* **************************************************************** * 00014180 **/* * 00014190 **/* UNIT RECORD WITH * 00014200 **/* UNIVERSAL CHARACTER SET (1403, 3211) * 00014210 **/* UCB SEGMENT * 00014220 **/* * 00014230 **DECLARE 1 UCBOBS03 00014240 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 00014250 ** * 00014260 **/* **************************************************************** * 00014270 ** 00014280 ** 2 UCBNBRSN PTR(8), /* LENGTH OF SENSE INFO 00014290 ** (3211) * 00014300 ** 2 UCBSNADR PTR(24), /* ADDR OF SENSE INFO -- 00014310 ** THAT OF UCBSNS (1403) 00014320 ** OR UCBSNSXT (3211) * 00014330 ** 2 UCBXTADR PTR(31); /* ADDR OF UCS UCB 00014340 ** EXTENSION * 00014350 ** 00014360 **/* **************************************************************** * 00014370 **/* * 00014380 **/* GRAPHICS EXCEPT * 00014390 **/* M85 CRT CONSOLE * 00014400 **/* UCB SEGMENT * 00014410 **/* * 00014420 **DECLARE 1 UCBOBS04 00014430 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 00014440 ** * 00014450 **/* **************************************************************** * 00014460 **/* * 00014470 ** 2 UCBSENS CHAR(2), /* MORE SENSE INFORMATION * 00014480 ** 2 UCBOPEN PTR(8), /* NUMBER OF OPEN DCBS * 00014490 ** 2 UCBGCB CHAR(1), /* GRAPHIC CONTROL BYTE * 00014500 ** 2 UCBTEB PTR(31), /* ADDRESS OF TASK ENTRY 00014510 ** BLOCK * 00014520 ** 2 UCBSTART PTR(31), /* RESTART ADDRESS * 00014530 ** 2 UCBBTA PTR(31), /* ADDRESS OF BUFFER TABLE * 00014540 ** 3 UCBDI PTR(8), /* DEVICES ON A CONTROL 00014550 ** UNIT TO WHICH BUFFER 00014560 ** SECTIONS ARE ASSIGNED * 00014570 ** 3 UCBBTB PTR(24) BDY(BYTE); /* ADDRESS OF BUFFER TABLE 00014580 ** * 00014590 **/* **************************************************************** * 00014600 **/* * 00014610 **/* TAPE CARTRIDGE READER (2495) * 00014620 **/* AND OPTICAL READER (1285, 1287, 1288) * 00014630 **/* UCB SEGMENT * 00014640 **/* * 00014650 **DECLARE 1 UCBOBS05 00014660 ** BASED(ADDR(UCBDEV)), /* DEVICE-DEPENDENT SEGMENT 00014670 ** * 00014680 **/* **************************************************************** * 00014690 **/* * 00014700 ** 2 UCBCRWKA PTR(31); /* ADDRESS OF UCB EXTENSION 00014710 ** FOR THIS DEVICE (MAPPED 00014720 ** BELOW) 00014730 ** * 00014740 **/* **************************************************************** * 00014750 **/* * 00014760 **/* CELL DESCRIPTION * 00014770 **/* FOR UCBCELL0/.../9 * 00014780 **/* IN DATACELL (2321) * 00014790 **/* * 00014800 **DECLARE 1 UCBOBS06 00014810 ** BASED(ADDR(UCBUSER)); 00014820 **/* * 00014830 **DECLARE 00014840 ** 1 UCBDCLL BASED(UCBDC), 00014850 ** /* > UCBDCLL 00014860 ** * 00014870 **/* **************************************************************** * 00014880 **/* * 00014890 ** 2 UCBDCELL CHAR(16) BDY (WORD), /* ONE OF TEN CELLS 00014900 ** * 00014910 ** 3 UCBDBBNR FIXED(15), /* BIN NUMBER * 00014920 ** 3 UCBDSTAB CHAR(1), /* VOLUME STATUS BYTE B 00014930 ** (ANALOGOUS TO UCBSTAB) * 00014940 ** 4 UCBDBSVL BIT(1), /* NOT SHARABLE * 00014950 ** 4 * BIT(1), /* RESERVED * 00014960 ** 4 UCBDBPRS BIT(1), /* THIS DEVICE WAS SPECIFIED 00014970 ** IN PRESRES BUT WAS NOT 00014980 ** MOUNTED AT IPL * 00014990 ** 4 UCBDBPRV BIT(1), /* PRIVATE USE * 00015000 ** 4 UCBDBPUB BIT(1), /* PUBLIC USE * 00015010 ** 4 UCBDBSTR BIT(1), /* STORAGE USE * 00015020 ** 4 UCBDBJLB BIT(1), /* JOBLIB VOLUME * 00015030 ** 4 UCBDBNUL BIT(1), /* CONTROL VOLUME * 00015040 ** 3 UCBDSTAT CHAR(1), /* CELL/BIN STATUS 00015050 ** (ANALOGOUS TO UCBSTAT) * 00015060 ** 4 UCBDNORM BIT(1), /* ONLINE WITH NORMAL CELL 00015070 ** (NOT OFFLINE OR BALLAST) * 00015080 ** 4 * BIT(1), /* RESERVED * 00015090 ** 4 UCBDRESV BIT(1), /* RESERVED CELL * 00015100 ** 4 UCBDUNLD BIT(1), /* UNLOAD PENDING * 00015110 ** 4 UCBDALOC BIT(1), /* BIN ALLOCATED * 00015120 ** 4 UCBDPRES BIT(1), /* CELL PERMANENTLY 00015130 ** RESIDENT * 00015140 ** 4 * BIT(1), /* RESERVED * 00015150 ** 4 * BIT(1), /* RESERVED * 00015160 ** 3 UCBDVOLI CHAR(6), /* VOLUME SERIAL NUMBER * 00015170 ** 3 UCBDJBNR PTR(8), /* INTERNAL JOB NUMBER * 00015180 ** 3 UCBDDMCT PTR(8), /* NUMBER OF OPEN DCBS FOR 00015190 ** THIS CELL (BITS 1-7) * 00015200 ** 4 UCBDDMNT BIT(1), /* IF 0, MOUNT VERIFICATION 00015210 ** HAS BEEN PERFORMED --- 00015220 ** IF 1, MOUNT REQUEST HAS 00015230 ** BEEN ISSUED * 00015240 ** 4 * BIT(7), /* NUMBER OF OPEN DCBS * 00015250 ** 3 UCBDVTOC CHAR(3), /* TTR OF VTOC * 00015260 ** 3 UCBDUSER PTR(8); /* CURRENT NUMBER OF 00015270 ** DATASETS 00015280 ** * 00015290 **/* * 00015300 **/* **************************************************************** * 00015310 **/* * 00015320 **/* UNIT CONTROL BLOCK EXTENSIONS * 00015330 **/* * 00015340 **/* **************************************************************** * 00015350 **/* * 00015360 **/* DIRECT ACCESS (2300) * 00015370 **/* UCB EXTENSION * 00015380 **/* * 00015390 **DECLARE 00015400 ** 1 UCBDA BASED(UCBEXT), 00015410 ** /* > UCBDA 00015420 ** * 00015430 **/* **************************************************************** * 00015440 **/* * 00015450 ** 2 * CHAR(104), /* OFFSET * 00015460 ** 2 UCBERP CHAR(40), /* ERROR RECOVERY WORK AREA * 00015470 ** 2 UCBOVFLW CHAR(40); /* TRACK OVERFLOW WORK AREA 00015480 ** * 00015490 **/* **************************************************************** * 00015500 **/* * 00015510 **/* MAGNETIC TAPE (2400) * 00015520 **/* UCB EXTENSION * 00015530 **/* * 00015540 **DECLARE 00015550 ** 1 UCBMT BASED(UCBXTN), 00015560 ** /* > UCBMT 00015570 ** * 00015580 **/* **************************************************************** * 00015590 **/* * 00015600 ** 2 UCBROR CHAR(8), /* READ OPPOSITE DIRECTION 00015610 ** RECOVERY CCW * 00015620 ** 2 UCBSUM CHAR(2), /* VOLUME STATISTICS UPDATE 00015630 ** MASK * 00015640 ** 3 UCBSUMA CHAR(1), /* FIRST BYTE * 00015650 ** 4 UCBSUMTR BIT(1), /* UPDATE TEMP READ ERRORS * 00015660 ** 4 UCBSUMTW BIT(1), /* UPDATE TEMP WRITE ERRORS * 00015670 ** 4 UCBSUMSC BIT(2), /* SIO COUNTER POSITION * 00015680 ** 4 UCBSUMPR BIT(1), /* UPDATE PERM READ ERRORS * 00015690 ** 4 UCBSUMPW BIT(1), /* UPDATE PERM WRITE ERRORS * 00015700 ** 4 UCBSUMNB BIT(1), /* UPDATE NOISE BLOCKS 00015710 ** COUNTER * 00015720 ** 4 * BIT(1), /* RESERVED * 00015730 ** 3 UCBSUMB CHAR(1), /* SECOND BYTE * 00015740 ** 4 UCBSUMEG BIT(2), /* ERASE GAP COUNTER 00015750 ** POSITION * 00015760 ** 4 UCBSUMCA BIT(2), /* CLEANER ACTION COUNTER 00015770 ** POSITION * 00015780 ** 4 * BIT(1), /* RESERVED * 00015790 ** 4 * BIT(1), /* RESERVED * 00015800 ** 4 * BIT(1), /* RESERVED * 00015810 ** 4 * BIT(1), /* RESERVED * 00015820 ** 2 UCBTRT PTR(8), /* TEMP READ ERROR 00015830 ** THRESHOLD (IF ZERO 00015840 ** THEN EVA ABSENT) * 00015850 ** 2 UCBTWT PTR(8), /* TEMP WRITE ERROR 00015860 ** THRESHOLD (IF ZERO THEN 00015870 ** EVA ABSENT) * 00015880 ** 2 UCBTR PTR(8), /* TEMP READ ERROR COUNT * 00015890 ** 2 UCBTW PTR(8), /* TEMP WRITE ERROR COUNT * 00015900 ** 2 UCBSIO FIXED(15), /* SIO COUNT * 00015910 ** 2 UCBPR PTR(8), /* PERM READ ERROR COUNT * 00015920 ** 2 UCBPW PTR(8), /* PERM WRITE ERROR COUNT * 00015930 ** 2 UCBNB PTR(8), /* NOISE BLOCK COUNT * 00015940 ** 2 * CHAR(1), /* RESERVED * 00015950 ** 2 UCBERG FIXED(15), /* ERASE GAP COUNT * 00015960 ** 2 UCBCLN FIXED(15); /* CLEANER ACTION COUNT 00015970 ** * 00015980 **/* **************************************************************** * 00015990 **/* * 00016000 **/* TAPE CARTRIDGE READER (2495) * 00016010 **/* UCB EXTENSION * 00016020 **/* * 00016030 **DECLARE 00016040 ** 1 UCBTCR BASED(UCBCRWKA) BDY (DWORD), 00016050 ** /* > UCBTCR 00016060 ** * 00016070 **/* **************************************************************** * 00016080 **/* * 00016090 ** 2 UCBTCERP CHAR(24) BDY (DWORD), /* ERROR RECOVERY CHANNEL 00016100 ** PROGRAM * 00016110 ** 3 UCBRCCW1 CHAR(8) BDY(DWORD), /* RETRY CCW 1 * 00016120 ** 3 UCBRCCW2 CHAR(8) BDY(DWORD), /* RETRY CCW 2 * 00016130 ** 3 UCBRCCW3 CHAR(8) BDY(DWORD), /* RETRY CCW 3 * 00016140 ** 2 UCBCSWSA CHAR(8); /* CSW SAVE AREA 00016150 ** * 00016160 **/* **************************************************************** * 00016170 **/* * 00016180 **/* OPTICAL READER (1285, 1287, 1288) * 00016190 **/* UCB EXTENSION * 00016200 **/* * 00016210 **DECLARE 00016220 ** 1 UCBOR BASED(UCBCRWKA), 00016230 ** /* > UCBOR 00016240 ** * 00016250 **/* **************************************************************** * 00016260 **/* * 00016270 ** 2 UCBCRDDC PTR(8), /* DATA CHECK ERROR COUNT * 00016280 ** 2 UCBCRILC PTR(8), /* INCORRECT LENGTH ERROR 00016290 ** COUNT * 00016300 ** 2 UCBCRECC PTR(8), /* EQUIPMENT CHECK ERROR 00016310 ** COUNT * 00016320 ** 2 * CHAR(5); /* RESERVED 00016330 ** * 00016340 **/* **************************************************************** * 00016350 **/* * 00016360 **/* UNIT RECORD WITH * 00016370 **/* UNIVERSAL CHARACTER SET (1403, 3211) * 00016380 **/* UCB EXTENSION * 00016390 **/* * 00016400 **DECLARE 1 UCBUCS 00016410 ** BASED(UCBXTADR), /* DEVICE DEPENDENT SEGMENT * 00016420 ** 00016430 **/* **************************************************************** * 00016440 ** 00016450 ** 2 UCBUCSID CHAR(4), /* ID OF UCS IMAGE IN 00016460 ** BUFFER * 00016470 ** 2 UCBUCSOP CHAR(1), /* FORMAT OF UCS IMAGE IN 00016480 ** BUFFER (O FOR OPTION) * 00016490 ** 3 UCBUCSO1 BIT(1), /* DEFAULT IMAGE * 00016500 ** 3 UCBUCSO2 BIT(1), /* FOLD MODE * 00016510 ** 3 * BIT(5), /* RESERVED * 00016520 ** 3 UCBUCSPE BIT(1), /* IMAGE HAS PARITY ERROR 00016530 ** (3211) * 00016540 ** 2 UCBFCBOP CHAR(1), /* RESERVED (1403) OR FLAGS 00016550 ** (3211) (O FOR OPTION) * 00016560 ** 3 UCBFCBO1 BIT(1), /* FCB DEFAULT IMAGE * 00016570 ** 3 * BIT(7), /* RESERVED * 00016580 ** 2 * CHAR(1), /* RESERVED * 00016590 ** 2 UCBERCNT PTR(8), /* COUNT OF ERRORS THAT HAVE 00016600 ** OCCURRED (3211) * 00016610 ** 2 UCBFCBID CHAR(4), /* FCB IMAGE ID * 00016620 ** 2 UCBERADR PTR(31); /* ADDR OR ERP LOGOUT AREA * 00016630 ** 00016640 **/* **************************************************************** * 00016650 **/* * 00016660 **/* 3211 SENSE INFORMATION UCB EXTENSION * 00016670 **/* * 00016680 **/* THIS EXTENSION IS POINTED TO BY THE UCBSNADR FIELD OF THE * 00016690 **/* UCB AND IS NOT CONTIGUOUS TO THE UCB. * 00016700 **/* * 00016710 **DECLARE 1 UCBSNINF 00016720 ** BASED(UCBSNADR), 00016730 ** 00016740 **/* **************************************************************** * 00016750 ** 00016760 ** 2 UCBSNSXT CHAR(6), /* SENSE INFORMATION * 00016770 ** 2 * CHAR(2); /* RESERVED * 00016780 ** 00016790 **/* **************************************************************** * 00016800 **/* * 00016810 **/* MODEL 65 MULTIPROCESSING UCB PREFIX * 00016820 **/* * 00016830 **DECLARE 00016840 ** 1 UCBM65MP BASED(UCBPTR-4), 00016850 ** /* IF MP65 00016860 ** * 00016870 **/* **************************************************************** * 00016880 **/* * 00016890 ** 2 UCBFL3 CHAR(1), /* M65MP FLAGS * 00016900 ** 3 UCBACU BIT(1), /* ALTERNATE CONTROL UNITS 00016910 ** EXIST * 00016920 ** 3 * BIT(1), /* RESERVED * 00016930 ** 3 UCBHIOB BIT(1), /* CPU B TO USE HIO * 00016940 ** 3 UCBHIOA BIT(1), /* CPU A TO USE HIO * 00016950 ** 3 UCBSIOB BIT(1), /* CPU B ISSUED LAST SIO * 00016960 ** 3 * BIT(1), /* RESERVED * 00016970 ** 3 UCBNOB BIT(1), /* NO PATH TO CPU B * 00016980 ** 3 UCBNOA BIT(1), /* NO PATH TO CPU A * 00016990 ** 2 * CHAR(2), /* RESERVED * 00017000 ** 2 UCBMPFLG CHAR(1), /* FLAGS * 00017010 ** 3 * BIT(1), /* RESERVED * 00017020 ** 3 * BIT(1), /* RESERVED * 00017030 ** 3 * BIT(1), /* RESERVED * 00017040 ** 3 * BIT(1), /* RESERVED * 00017050 ** 3 * BIT(1), /* RESERVED * 00017060 ** 3 * BIT(1), /* RESERVED * 00017070 ** 3 UCBPROC BIT(1), /* USED BY PROCESSING 00017080 ** PROGRAMS * 00017090 ** 3 UCBIPL BIT(1); /* DEVICE OFFLINE AT IPL 00017100 ** * 00017110 **/* **************************************************************** * 00017120 **/* * 00017130 **/* U N I T C O N T R O L B L O C K * 00017140 **/* * 00017150 **/* **************************************************************** * 00017160 ** 00017170 * /************************************************************ 00017180 * /* SMF DYNAMIC DD RECORD TYPE 40 * 00017190 * /************************************************************ 00017200 * 00017210 * DECLARE 1 TDD BASED(TDDPTR), 00017220 * 4 TDDLNGTH FIXED(15),/* LENGTH OF RECORD * 00017230 * 4 TDDCNT FIXED(15), /* SEGMENT DESCRIPTOR * 00017240 * 4 TDDRCDC BIT(8), /* RESERVED * 00017250 * 4 TDDRCDTY BIT(8), /* RECORD TYPE * 00017260 * 4 TDDRCDTS CHAR(8) BDY(HWORD), /* TIME STAMP * 00017270 * 8 TDDTOD CHAR(4), /* TOD 1/100THS SEC * 00017280 * 8 TDDDATE CHAR(4), /* DATE * 00017290 * 4 TDDCPUID CHAR(4), /* CPU ID * 00017300 * 4 TDDUIDLO CHAR(16), 00017310 * 8 TDDUID CHAR(8), /* USER ID * 00017320 * 8 TDDONTME CHAR(8), /* LOGON TIME * 00017330 * 9 TDDONTM CHAR(4), /* TOD * 00017340 * 9 TDDONDT CHAR(4), /* DATE * 00017350 * 4 TDDUDSQ CHAR(9), 00017360 * 8 TDDUDATA CHAR(8), /* USER ID FIELD * 00017370 * 8 TDDINVSQ CHAR(1), /* STEP SEQUENCE NO. * 00017380 * 4 TDDFLG BIT(8), /* DYNAMIC DD FUNCTION FLAG * 00017390 * 4 TDDRVA CHAR(20), /* RESERVED * 00017400 * 4 TDDVAR FIXED(15), /* LENGTH OF REST OF RECORD * 00017410 * 4 TDDEXCP CHAR(8) BDY(HWORD), 00017420 * 8 TDDCLUT CHAR(2), /* DEVICE CLASS/UNIT TYPE * 00017430 * 10 TDDTBYT3 CHAR(1), /* CLASS * 00017440 * 10 TDDTBYT4 CHAR(1), /* TYPE * 00017450 * 8 TDDCHA BIT(8), /* CHANNEL ADDRESS * 00017460 * 8 TDDUTA BIT(8), /* UNIT ADDRESS * 00017470 * 8 TDDXCT CHAR(4); /* EXCP COUNT * 00017480 * 00017490 * /************************************************************ 00017500 * /* MISCELLANEOUS DECLARATIONS * 00017510 * /************************************************************ 00017520 * 00017530 * DCL BYTES FIXED(31); /* LENGTH OF TIOT DD ENTRY * 00017540 * DCL SWITCH FIXED(31); /* TO REMEMBER IF A GETMAIN * 00017550 * /* HAS BEEN ISSUED * 00017560 * DECLARE SIZE FIXED(15); /* SIZE OF THE RECORD 40 * 00017570 * DECLARE SIZUCBS FIXED(15); /* 8 TIMES NUMBER UCBS * 00017580 * DECLARE CALLER CHAR (1) ; /* FUNCTION CODE SAVE AREA * 00017590 * DECLARE ALLOC BIT(8) INIT('01'X); /* ALLOC INDICATOR * 00017600 * DECLARE UNALLOC BIT(8) INIT('02'X); /* UNALLOC INDICATOR * 00017610 * DECLARE CONCAT BIT(8) INIT('03'X); /* CONCAT INDICATOR * 00017620 * DECLARE DECONCAT BIT(8) INIT('04'X);/* DECONCAT INDICATOR * 00017630 * /************************************************************ 00017640 * /* INITIALIZATION * 00017650 * /************************************************************ 00017660 * PARMPTR = PARMREG; /* SAVE REG 1 * 00017670 ST @1,PARMPTR 0046 00017680 * CALLER = CALLCODE ; /* SAVE FUNCTION CODE * 00017690 L @6,PARMPTR 0047 00017700 L @6,16(0,@6) DAWT 0047 00017710 MVC CALLER(1),2(@6) 0047 00017720 * SLOTPTR = TCTIOTBL; /* ADDRESS OF TCTIOT * 00017730 L @8,CVTPTR 0048 00017740 L @8,0(0,@8) CVTMAP 0048 00017750 L @8,4(0,@8) TCBPAIR 0048 00017760 L @8,164(0,@8) TCBOVLY1 0048 00017770 L @2,12(0,@8) 0048 00017780 * SWITCH = 0; /* INITIALIZE EXTRA WKAREA SW * 00017790 SR @F,@F 0049 00017800 ST @F,SWITCH 0049 00017810 * /************************************************************ 00017820 * /* TEST FOR CONVERT FUNCTION * 00017830 * /************************************************************ 00017840 * IF CALLER > DECONCAT THEN /* NO ACTION ON CONVERT * 00017850 CLC CALLER(1),DECONCAT 0050 00017860 * GO TO SORTIE; 00017870 BC 02,SORTIE 0051 00017880 * /************************************************************ 00017890 * /* TEST FOR ALLOCATE/UNALLOCATE FUNCTION * 00017900 * /************************************************************ 00017910 * IF CONCAT > CALLER THEN /* GO TO PROCESS ALLOC/UNALLOC* 00017920 CLC CONCAT(1),CALLER 0052 00017930 * GO TO LLOC; 00017940 BC 02,LLOC 0053 00017950 * /************************************************************ 00017960 * /* INITIAL CONCAT/DECONCAT PROCESSING * 00017970 * /************************************************************ 00017980 * NUMDDS = (TCTIOTSD /* CALCULATE NO. DDS M0276* 00017990 * - 12)/4; /* FROM NUMBER OF 4 BYTE DD 00018000 * ENTRIES IN TCTIOT DD 00018010 * LOOKUP TABLE * 00018020 LH @E,@D1 0054 00018030 L @9,12(0,@8) TCT 0054 00018040 AH @E,10(0,@9) 0054 00018050 SRA @E,2 0054 00018060 LR @4,@E 0054 00018070 * TENTRY = TCTIOTBL 00018080 * + (NUMDDS + 3)*4; /* LOCATE TCTIOT COUNTER TABLE* 00018090 LA @F,3 0055 00018100 AR @F,@4 0055 00018110 SLA @F,2 0055 00018120 A @F,12(0,@8) 0055 00018130 ST @F,TENTRY 0055 00018140 * DEVPTR = TENTRY - 16; /* TCTIOT POINTER FOR 00018150 * FIRST DD ENTRY * 00018160 LH @3,@D2 0056 00018170 A @3,TENTRY 0056 00018180 * GO TO RECORD; /* GO BUILD RECORD 40 * 00018190 BC 15,RECORD 0057 00018200 * /************************************************************ 00018210 * /* CONCAT PROCESSING TO REARRANGE THE TCTIOT * 00018220 * /************************************************************ 00018230 * BACK1: 00018240 * DEVPTR = TENTRY - 16; /* TCT I/O CTR TABLE POINTER * 00018250 BACK1 LH @3,@D2 0058 00018260 A @3,TENTRY 0058 00018270 * DDPTR = TCBTIO; /* POINTER TO TIOT * 00018280 L @6,CVTPTR 0059 00018290 L @6,0(0,@6) CVTMAP 0059 00018300 L @6,4(0,@6) TCBPAIR 0059 00018310 L @7,12(0,@6) 0059 00018320 * CHEKLEN: 00018330 * BYTES = DDPTR -> TIOELNGH; /* LENGTH TIOT DD ENTRY * 00018340 CHEKLEN SR @F,@F 0060 00018350 IC @F,24(0,@7) 0060 00018360 ST @F,BYTES 0060 00018370 * /************************************************************ 00018380 * /* TEST FOR END OF TIOT * 00018390 * /************************************************************ 00018400 * IF BYTES = 0 THEN /* ZEROS AT END OF TIOT * 00018410 SR @F,@F 0061 00018420 C @F,BYTES 0061 00018430 * GO TO EXITRTN; 00018440 BC 08,EXITRTN 0062 00018450 * SLOTPTR -> TCTDCBTD = /* PUT OFFSET TO DD ENTRY * 00018460 * (DDPTR - TCBTIO) + 24; /* IN TIOT INTO TCTIOT * 00018470 L @6,CVTPTR 0063 00018480 L @6,0(0,@6) CVTMAP 0063 00018490 L @6,4(0,@6) TCBPAIR 0063 00018500 L @F,12(0,@6) 0063 00018510 LCR @F,@F 0063 00018520 AR @F,@7 0063 00018530 AH @F,@D3 0063 00018540 STH @F,8(0,@2) 0063 00018550 * SLOTPTR -> TCTIOTSD = /* PUT TCT DD ENTRY OFFSET * 00018560 * (DEVPTR - TCTIOTBL) + 16; /* INTO TCTIOT DD LOOKUP TABLE* 00018570 L @8,164(0,@6) TCBOVLY1 0064 00018580 L @F,12(0,@8) 0064 00018590 LCR @F,@F 0064 00018600 AR @F,@3 0064 00018610 AH @F,@D4 0064 00018620 STH @F,10(0,@2) 0064 00018630 * SLOTPTR = SLOTPTR + 4; /* UPDATE TCTIOT DD PTR * 00018640 AH @2,@D5 0065 00018650 * /************************************************************ 00018660 * /* CONCAT/ALLOCATE PROCESSING TO REARRANGE * 00018670 * /* TCT I/O COUNTER TABLE * 00018680 * /************************************************************ 00018690 * UCBADDRS: 00018700 * NUMUCBS = (DDPTR -> TIOELNGH - 16)/4; /* NO. UCBS/DD ENTRY * 00018710 UCBADDRS LH @E,@D2 0066 00018720 SR @0,@0 0066 00018730 IC @0,24(0,@7) 0066 00018740 AR @E,@0 0066 00018750 SRA @E,2 0066 00018760 LR @D,@E 0066 00018770 * DEVPTR -> TCTSCTR = NUMUCBS; /* NUMBER OF UCBS INTO TCTIOT 00018780 * DEVICE ENTRY * 00018790 STC @D,18(0,@3) 0067 00018800 * DO NUMUCBS = NUMUCBS TO 1 BY -1; /* LOOP FOR EACH UCB/DD * 00018810 LTR @D,@D 0068 00018820 BC 12,@DO9FE 0068 00018830 * DEVPTR -> TCTUCBP = /* PLACE UCB ADDRESS INTO * 00018840 * DDPTR -> TIOEFSRT; /* TCTIOT FROM TIOT * 00018850 @DO9FF MVC 16(2,@3),42(@7) 0069 00018860 * DEVPTR -> TDDRSVD='0'X; /* ZERO RESERVED FIELD * 00018870 MVI 19(@3),X'00' 0070 00018880 * DEVPTR -> TCTDCTR = 0; /* ZERO EXCP COUNT * 00018890 SR @F,@F 0071 00018900 ST @F,20(0,@3) 0071 00018910 * DEVPTR -> TCTOUTLM = 0; /* ZERO OUTLIM VALUE * 00018920 ST @F,24(0,@3) 0072 00018930 * DEVPTR -> TDDRSVD2 = 0; /* ZERO RESERVED FIELD * 00018940 ST @F,28(0,@3) 0073 00018950 * DEVPTR = DEVPTR + 8; /* INCREMENT FOR EXCP FIELD * 00018960 AH @3,@D6 0074 00018970 * DDPTR = DDPTR + 4; /* INCREMENT TO NEXT TIOT DD 00018980 * ENTRY * 00018990 AH @7,@D5 0075 00019000 * END; 00019010 * /************************************************************ 00019020 * /* TEST FOR ALLOCATE FUNCTION * 00019030 * /************************************************************ 00019040 * IF ALLOC = CALLER THEN /* FINISHED FOR ALLOC * 00019050 BCT @D,@DO9FF 0076 00019060 @DO9FE CLC ALLOC(1),CALLER 0077 00019070 * GO TO SORTIE; 00019080 BC 08,SORTIE 0078 00019090 * DEVPTR = DEVPTR + 8; /* ALLOW FOR OUTLIM AND 00019100 * RESERVED WORDS * 00019110 AH @3,@D6 0079 00019120 * DDPTR = DDPTR + 16; /* INCREMENT TO NEXT TIOT 00019130 * DD ENTRY * 00019140 AH @7,@D4 0080 00019150 * GO TO CHEKLEN; /* PROCESS NEXT DD ENTRY * 00019160 BC 15,CHEKLEN 0081 00019170 * /************************************************************ 00019180 * /* MOVE RECORD 40 TO SMF BUFFER * 00019190 * /************************************************************ 00019200 * EXITRTN: 00019210 * PARMREG = SMFPTR; /* POINT REG 1 TO RECORD * 00019220 EXITRTN L @1,SMFPTR 0082 00019230 * GENERATE( SMFWTM (1)); /* MOVE RECORD TO SMF BUFFER * 00019240 SMFWTM (1) 00019250 DS 0H 00019260 * /************************************************************ 00019270 * /* TEST FOR WORKAREA OBTAINED VIA GETMAIN * 00019280 * /************************************************************ 00019290 * IF SWITCH = 0 THEN /* NO EXTRA CORE-DONE * 00019300 SR @F,@F 0084 00019310 C @F,SWITCH 0084 00019320 * GO TO SORTIE; 00019330 BC 08,SORTIE 0085 00019340 * LNGTHREG = SIZE; /* SIZE OF WORK AREA * 00019350 LH @0,SIZE 0086 00019360 * PARMREG = SMFPTR; /* ADDRESS OF WORK AREA * 00019370 L @1,SMFPTR 0087 00019380 * GENERATE( FREEMAIN R,LV=(0),A=(1)); /* FREE WORKAREA * 00019390 FREEMAIN R,LV=(0),A=(1) 00019400 DS 0H 00019410 * /************************************************************ 00019420 * /* BRANCH ENTRY FOR EXIT OF ALLOCATE/CONVERT * 00019430 * /************************************************************ 00019440 * SORTIE: 00019450 * NUMDDS = RTCODE; /* SAVE RETURN CODE * 00019460 SORTIE L @6,PARMPTR 0089 00019470 L @4,28(0,@6) 0089 00019480 * LNGTHREG = LNGTH; /* LENGTH OF DAWT * 00019490 LH @0,20(0,@6) 0090 00019500 * PARMREG = PARMPTR; /* ADDRESS OF DAWT * 00019510 L @1,PARMPTR 0091 00019520 * GENERATE( FREEMAIN R,LV=(0),A=(1)); /* FREE DAWT * 00019530 FREEMAIN R,LV=(0),A=(1) 00019540 DS 0H 00019550 * GENERATE; 00019560 LR @1,@C LENGTH OF COMPILER CORE 00019570 L @0,@SIZ001 ADDRESS OF COMPILER CORE 00019580 FREEMAIN R,LV=(0),A=(1) FREE COMPILER CORE 00019590 LR CODEREG,NUMDDS RESTORE RETURN CODE M0569 00019600 SVC 3 EXIT TO CALLER 00019610 DS 0H 00019620 * /************************************************************ 00019630 * /* INITIAL ALLOCATE/UNALLOCATE PROCESSING * 00019640 * /************************************************************ 00019650 * LLOC: 00019660 * SLOTPTR = SLOTPTR + /* UPDATE SLOTPTR FROM FIRST * 00019670 * 4*(TIOTNO - 1); /* TIOT DD TO ONE AFFECTED BY 00019680 * ALLOC/UNALLOC * 00019690 LLOC LH @F,@D7 0094 00019700 L @6,PARMPTR 0094 00019710 SR @0,@0 0094 00019720 IC @0,23(0,@6) 0094 00019730 AR @F,@0 0094 00019740 SLA @F,2 0094 00019750 AR @2,@F 0094 00019760 * DDPTR = TIOTP; /* DD ENTRY IN TIOT * 00019770 L @7,24(0,@6) 0095 00019780 * DEVPTR = TCTIOTBL + /* LOCATE FIRST DEVICE ENTRY * 00019790 * SLOTPTR -> TCTIOTSD; /* FOR THIS DD IN TCTIOT * 00019800 LH @F,10(0,@2) 0096 00019810 L @8,CVTPTR 0096 00019820 L @8,0(0,@8) CVTMAP 0096 00019830 L @8,4(0,@8) TCBPAIR 0096 00019840 L @8,164(0,@8) TCBOVLY1 0096 00019850 A @F,12(0,@8) 0096 00019860 LR @3,@F 0096 00019870 * DEVPTR = DEVPTR - 16; /* ADJUST FOR STRUCTURE * 00019880 SH @3,@D4 0097 00019890 * /************************************************************ 00019900 * /* TEST FOR ALLOCATE FUNCTION * 00019910 * /************************************************************ 00019920 * IF ALLOC = CALLER THEN /* ONLY FUNCTION IS TO FILLIN * 00019930 CLC ALLOC(1),CALLER 0098 00019940 * GO TO UCBADDRS; /* DEVICE ENTRIES ON ALLOCATE * 00019950 BC 08,UCBADDRS 0099 00019960 * NUMDDS = 1; /* ONLY 1 DD ENTRY IN THE 00019970 * SMF RECORD TYPE 40 ON 00019980 * UNALLOCATE * 00019990 LA @4,1 0100 00020000 * SIZUCBS = DEVPTR /* EACH UCB ENTRY REQUIRES 8 * 00020010 * -> TCTSCTR * 8; /* BYTES IN RECORD 40. FOR 00020020 * UNALLOCATE, ONLY THE DEVICE 00020030 * ENTRIES FOR THE AFFECTED 00020040 * DD APPEAR IN RECORD 40 * 00020050 LA @F,8 0101 00020060 IC @0,18(0,@3) 0101 00020070 MR @E,@0 0101 00020080 STH @F,SIZUCBS 0101 00020090 * GO TO RECHDR; /* CONTINUE TO PROCESS 00020100 * SMF RECORD TYPE 40 * 00020110 BC 15,RECHDR 0102 00020120 * /************************************************************ 00020130 * /* SMF DYNAMIC DD RECORD INITIAL BUILD * 00020140 * /************************************************************ 00020150 * RECORD: 00020160 * SIZUCBS = TCTSZLKP; /* VARIBLE PART REC. 40 M0276* 00020170 RECORD L @6,CVTPTR 0103 00020180 L @6,0(0,@6) CVTMAP 0103 00020190 L @6,4(0,@6) TCBPAIR 0103 00020200 L @6,164(0,@6) TCBOVLY1 0103 00020210 L @6,12(0,@6) TCT 0103 00020220 MVC SIZUCBS(2),4(@6) 0103 00020230 * RECHDR: 00020240 * SIZE = SIZUCBS + 66; /* SIZE EQUALS TOTAL LENGTH OF 00020250 * RECORD 40. THE FIXED 00020260 * FIELDS AT THE BEGINNING OF 00020270 * EVERY RECORD ARE 66 BYTES 00020280 * IN LENGTH. * 00020290 RECHDR LA @F,66 0104 00020300 AH @F,SIZUCBS 0104 00020310 STH @F,SIZE 0104 00020320 * TDDPTR = ADDR(WKAREA); /* WORK AREA IN DAWT * 00020330 L @6,PARMPTR 0105 00020340 LA @5,32(0,@6) 0105 00020350 * /************************************************************ 00020360 * /* DETERMINE IF DAWT WORKAREA IS AS LARGE AS RECORD 40 * 00020370 * /************************************************************ 00020380 * IF SIZE > (LNGTH - (TDDPTR - PARMPTR)) THEN 00020390 LR @F,@5 0106 00020400 S @F,PARMPTR 0106 00020410 LCR @F,@F 0106 00020420 AH @F,20(0,@6) 0106 00020430 CH @F,SIZE 0106 00020440 * GO TO GETMORE; /* WILL THE RECORD FIT INTO 00020450 * THE AVAILABLE WORKAREA IN 00020460 * THE DAWT, IF NOT GO ISSUE 00020470 * A GETMAIN. * 00020480 BC 04,GETMORE 0107 00020490 * RECINIT: 00020500 * SMFPTR = TDDPTR; /* SAVE BEGINING OF RECORD * 00020510 RECINIT ST @5,SMFPTR 0108 00020520 * TDDLNGTH = SIZE; /* LENGTH OF RECORD * 00020530 MVC 0(2,@5),SIZE 0109 00020540 * TDDCNT = 0; /* SEGMENT DESCRIPTOR * 00020550 SR @F,@F 0110 00020560 STH @F,2(0,@5) 0110 00020570 * TDDRCDC = '0'X; /* RESERVED * 00020580 MVI 4(@5),X'00' 0111 00020590 * TDDRCDTY = '28'X; /* RECORD TYPE 40 DECIMAL * 00020600 MVI 5(@5),X'28' 0112 00020610 * TDDCPUID = JMRCPUID; /* CPU ID * 00020620 L @6,CVTPTR 0113 00020630 L @6,0(0,@6) CVTMAP 0113 00020640 L @6,4(0,@6) TCBPAIR 0113 00020650 L @6,164(0,@6) TCBOVLY1 0113 00020660 L @6,28(0,@6) TCT 0113 00020670 MVC 14(4,@5),16(@6) 0113 00020680 * TDDUIDLO = JMRJNET; /* LOGON + USER ID * 00020690 MVC 18(16,@5),0(@6) 0114 00020700 * TDDUDSQ = JMRIDSNO; /* STEP SEGUENCE NUMBER * 00020710 MVC 34(9,@5),20(@6) 0115 00020720 * TDDFLG = CALLER; /* FUNCTION CODE * 00020730 MVC 43(1,@5),CALLER 0116 00020740 * GENERATE( XC TDDRVA(20,TDDPTR),TDDRVA(TDDPTR)); /* RESERVED * 00020750 XC TDDRVA(20,TDDPTR),TDDRVA(TDDPTR) 00020760 DS 0H 00020770 * TDDVAR = SIZUCBS + 2; /* SIZE EXCP PORTION OF RECORD* 00020780 LA @F,2 0118 00020790 AH @F,SIZUCBS 0118 00020800 STH @F,64(0,@5) 0118 00020810 * /************************************************************ 00020820 * /* RECORD 40 PROCESSING FOR TDDEXCP FIELDS * 00020830 * /************************************************************ 00020840 * DDLOOP: 00020850 * DO NUMDDS = NUMDDS TO 1 BY -1; /* PROCESS FOR EACH DD ENTRY * 00020860 DDLOOP LTR @4,@4 0119 00020870 BC 12,@DO9FA 0119 00020880 * NUMUCBS = DEVPTR /* NUMBER UCBS FOR THIS DD * 00020890 * -> TCTSCTR; 00020900 @DO9FB SR @D,@D 0120 00020910 IC @D,18(0,@3) 0120 00020920 * UCBLOOP: 00020930 * DO NUMUCBS = NUMUCBS TO 1 BY -1; /* PROCESS EACH UCB/DD * 00020940 UCBLOOP LTR @D,@D 0121 00020950 BC 12,@DO9F6 0121 00020960 * UCBPTR = DEVPTR /* UCB ADDRESS * 00020970 * -> TCTUCBP; 00020980 @DO9F7 MVC UCBPTR+2(2),16(@3) 0122 00020990 XC UCBPTR(2),UCBPTR 0122 00021000 * /************************************************************ 00021010 * /* TEST FOR A ZERO UCB POINTER * 00021020 * /************************************************************ 00021030 * IF UCBPTR = 0 THEN /* PROCESS ONLY FOR * 00021040 SR @F,@F 0123 00021050 C @F,UCBPTR 0123 00021060 BC 07,@9F3 0123 00021070 * DO; /* ALLOCATED UCBS * 00021080 * TDDCLUT = 0; /* MAKE TDDEXCP FIELD ALL * 00021090 MVC 66(2,@5),@D8 0125 00021100 * TDDCHA = '0'X; /* ZEROS FOR DUMMY OR DYNAM * 00021110 MVI 68(@5),X'00' 0126 00021120 * TDDUTA = '0'X; /* DD ENTRY * 00021130 MVI 69(@5),X'00' 0127 00021140 * TDDXCT = 0; 00021150 MVC 70(4,@5),@D8 0128 00021160 * GO TO NOUCB; /* NO UCB ALLOCATED * 00021170 BC 15,NOUCB 0129 00021180 * END; 00021190 * /************************************************************ 00021200 * /* TEST FOR UNALLOCATE FUNCTION * 00021210 * /************************************************************ 00021220 * IF CALLER = UNALLOC THEN/* ZERO UCB ADDRESS IN TCTIOT * 00021230 @9F3 CLC CALLER(1),UNALLOC 0131 00021240 BC 07,@9F2 0131 00021250 * DEVPTR -> TCTUCBP=0; /* ON UNALLOCATE * 00021260 SR @F,@F 0132 00021270 STH @F,16(0,@3) 0132 00021280 * TDDTBYT3 = UCBTBYT3; /* DEVICE CLASS * 00021290 @9F2 L @6,UCBPTR 0133 00021300 MVC 66(1,@5),18(@6) 0133 00021310 * TDDTBYT4 = UCBTBYT4; /* UNIT TYPE * 00021320 MVC 67(1,@5),19(@6) 0134 00021330 * TDDCHA = UCBCHA; /* CHANNEL ADDRESS * 00021340 MVC 68(1,@5),4(@6) 0135 00021350 * TDDUTA = UCBUA; /* UNIT ADDRESS * 00021360 MVC 69(1,@5),5(@6) 0136 00021370 * TDDXCT = DEVPTR /* EXCP COUNT * 00021380 * -> TCTDCTR; 00021390 MVC 70(4,@5),20(@3) 0137 00021400 * DEVPTR -> TCTDCTR = 0; /* ZERO EXCP COUNT * 00021410 SR @F,@F 0138 00021420 ST @F,20(0,@3) 0138 00021430 * NOUCB: 00021440 * TDDPTR = TDDPTR + 8; 00021450 NOUCB AH @5,@D6 0139 00021460 * DEVPTR = DEVPTR + 8; /* INCREMENT TO NEXT DEVICE 00021470 * ENTRY FOR THIS DD IN TCTIOT* 00021480 AH @3,@D6 0140 00021490 * END UCBLOOP; 00021500 * DEVPTR = DEVPTR + 8; /* UPDATE FOR OUTLIM * 00021510 BCT @D,@DO9F7 0141 00021520 @DO9F6 AH @3,@D6 0142 00021530 * END DDLOOP; 00021540 * /************************************************************ 00021550 * /* TEST FOR CONCATENATE FUNCTION * 00021560 * /************************************************************ 00021570 * IF CALLER = CONCAT THEN /* TCTIOT IS NOW REARRANGED * 00021580 BCT @4,@DO9FB 0143 00021590 @DO9FA CLC CALLER(1),CONCAT 0144 00021600 * GO TO BACK1; /* IF CONCAT * 00021610 BC 08,BACK1 0145 00021620 * GO TO EXITRTN; /* FINISHED ON UNALLOCATE/ 00021630 * DECONCATENATE * 00021640 BC 15,EXITRTN 0146 00021650 * /************************************************************ 00021660 * /* GETMAIN WORKAREA TO BUILD RECORD 40 IF WORKAREA IN * 00021670 * /* DAWT IS SMALLER THAN RECORD 40. SUFFICIENT CORE MUST * 00021680 * /* BE AVAILABLE, ELSE ABEND * 00021690 * /************************************************************ 00021700 * GETMORE: 00021710 * LNGTHREG = SIZE; /* SIZE AREA NEEDED * 00021720 GETMORE LH @0,SIZE 0147 00021730 * GENERATE ( GETMAIN R,LV=(0) ); 00021740 GETMAIN R,LV=(0) 00021750 DS 0H 00021760 * TDDPTR = PARMREG; /* NEW WORK AREA TO BUILD 00021770 * RECORD * 00021780 LR @5,@1 0149 00021790 * SWITCH = 1; /* REMEMBER A GETMAIN WAS 00021800 * WAS ISSUED FOR EXTRA CORE * 00021810 LA @F,1 0150 00021820 ST @F,SWITCH 0150 00021830 * GO TO RECINIT; /* GO BUILD RECORD IN NEW AREA* 00021840 BC 15,RECINIT 0151 00021850 * END IGC28099 00021860 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 00021870 * /* %INCLUDE SYSLIB (CVT ) 00021880 * /* %INCLUDE SYSLIB (IKJTCB ) 00021890 * /* %INCLUDE SYSLIB (IEFTIOT1) 00021900 * /* %INCLUDE SYSLIB (IEFUCBOB) 00021910 * ; 00021920 @EL01 LR @1,@C 0152 00021930 L @0,@SIZ001 0152 00021940 FREEMAIN R,LV=(0),A=(1) 0152 00021950 BCR 15,@E 0152 00021960 @DATA1 EQU * 0152 00021970 @0 EQU 00 EQUATES FOR REGISTERS 0-15 00021980 @1 EQU 01 00021990 @2 EQU 02 00022000 @3 EQU 03 00022010 @4 EQU 04 00022020 @5 EQU 05 00022030 @6 EQU 06 00022040 @7 EQU 07 00022050 @8 EQU 08 00022060 @9 EQU 09 00022070 @A EQU 10 00022080 @B EQU 11 00022090 @C EQU 12 00022100 @D EQU 13 00022110 @E EQU 14 00022120 @F EQU 15 00022130 @D1 DC H'-12' 00022140 @D2 DC H'-16' 00022150 @D3 DC H'24' 00022160 @D4 DC H'16' 00022170 @D5 DC H'4' 00022180 @D6 DC H'8' 00022190 @D7 DC H'-1' 00022200 @D8 DC F'0' 00022210 DS 0F 00022220 @SIZ001 DC AL1(&SPN) 00022230 DC AL3(@DATEND-@DATD) 00022240 DS 0F 00022250 DS 0D 00022260 @DATA EQU * 00022270 PARMLIST EQU 00000000 FULLWORD INTEGER 00022280 LNGTHREG EQU 00000000 FULLWORD INTEGER REGISTER 00022290 PARMREG EQU 00000001 FULLWORD POINTER REGISTER 00022300 SLOTPTR EQU 00000002 FULLWORD POINTER REGISTER 00022310 DEVPTR EQU 00000003 FULLWORD POINTER REGISTER 00022320 NUMDDS EQU 00000004 FULLWORD INTEGER REGISTER 00022330 TDDPTR EQU 00000005 FULLWORD POINTER REGISTER 00022340 DDPTR EQU 00000007 FULLWORD POINTER REGISTER 00022350 NUMUCBS EQU 00000013 FULLWORD INTEGER REGISTER 00022360 CODEREG EQU 00000015 FULLWORD INTEGER REGISTER 00022370 CVTPTR EQU 00000016 FULLWORD POINTER 00022380 CVTMAP EQU 00000000 252 BYTE(S) ON WORD 00022390 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 00022400 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 00022410 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 00022420 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 00022430 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 00022440 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 00022450 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 00022460 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 00022470 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 00022480 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 00022490 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 00022500 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 00022510 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 00022520 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 00022530 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 00022540 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 00022550 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 00022560 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 00022570 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 00022580 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 00022590 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 00022600 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 00022610 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 00022620 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 00022630 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 00022640 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 00022650 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 00022660 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 00022670 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 00022680 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 00022690 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 00022700 A00000 EQU CVTMAP+00000116 1 BIT(S) 00022710 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 00022720 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 00022730 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 00022740 A00001 EQU CVTMAP+00000116 1 BIT(S) 00022750 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 00022760 A00002 EQU CVTMAP+00000116 1 BIT(S) 00022770 A00003 EQU CVTMAP+00000116 1 BIT(S) 00022780 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 00022790 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 00022800 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 00022810 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 00022820 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 00022830 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 00022840 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 00022850 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 00022860 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 00022870 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 00022880 CVTTRMTB EQU CVTMAP+00000156 FULLWORD POINTER 00022890 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 00022900 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 00022910 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 00022920 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 00022930 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 00022940 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 00022950 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 00022960 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 00022970 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 00022980 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 00022990 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 00023000 CVTATTCH EQU CVTMAP+00000182 1 BIT(S) 00023010 CVTHIAR EQU CVTMAP+00000182 1 BIT(S) 00023020 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 00023030 A00004 EQU CVTMAP+00000182 1 BIT(S) 00023040 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 00023050 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 00023060 A00005 EQU CVTMAP+00000183 1 BIT(S) 00023070 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 00023080 A00006 EQU CVTMAP+00000183 5 BIT(S) 00023090 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 00023100 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 00023110 CVTMPCVT EQU CVTMAP+00000192 FULLWORD POINTER 00023120 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 00023130 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 00023140 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 00023150 A00007 EQU CVTMAP+00000208 FULLWORD POINTER 00023160 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 00023170 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 00023180 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 00023190 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 00023200 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 00023210 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 00023220 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 00023230 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 00023240 A00008 EQU CVTMAP+00000228 7 BIT(S) 00023250 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 00023260 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 00023270 A00009 EQU CVTMAP+00000236 FULLWORD POINTER 00023280 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 00023290 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 00023300 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 00023310 A00010 EQU CVTMAP+00000240 7 BIT(S) 00023320 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 00023330 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 00023340 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 00023350 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 00023360 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 00023370 A00011 EQU CVTMAP+00000249 3 BYTE(S) 00023380 A00012 EQU 00000184 8 BYTE(S) ON WORD 00023390 CVTCRTTR EQU A00012+00000000 3 BYTE(S) 00023400 CVTSTUSA EQU A00012+00000003 1 BYTE(S) 00023410 A00013 EQU A00012+00000003 1 BIT(S) 00023420 A00014 EQU A00012+00000003 1 BIT(S) 00023430 A00015 EQU A00012+00000003 1 BIT(S) 00023440 A00016 EQU A00012+00000003 1 BIT(S) 00023450 CVTCHPTR EQU A00012+00000003 1 BIT(S) 00023460 CVTSTEPR EQU A00012+00000003 1 BIT(S) 00023470 CVTDATA EQU A00012+00000003 1 BIT(S) 00023480 A00017 EQU A00012+00000003 1 BIT(S) 00023490 A00018 EQU A00012+00000004 2 BYTE(S) 00023500 A00019 EQU A00012+00000006 2 BYTE(S) 00023510 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 00023520 A00020 EQU CVTFIX+00000000 248 BYTE(S) 00023530 A00021 EQU CVTFIX+00000248 2 BYTE(S) 00023540 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 00023550 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 00023560 TCBPAIR EQU 00000000 8 BYTE(S) ON WORD 00023570 TCBNEW EQU TCBPAIR+00000000 FULLWORD POINTER 00023580 TCBPTR EQU TCBPAIR+00000004 FULLWORD POINTER 00023590 TCBFIX EQU 00000032 32 BYTE(S) ON WORD 00023600 TCBFRS EQU TCBFIX+00000000 32 BYTE(S) 00023610 TCBFRS0 EQU TCBFIX+00000000 8 BYTE(S) 00023620 TCBFRS2 EQU TCBFIX+00000008 8 BYTE(S) 00023630 TCBFRS4 EQU TCBFIX+00000016 8 BYTE(S) 00023640 TCBFRS6 EQU TCBFIX+00000024 8 BYTE(S) 00023650 TCB EQU 00000000 156 BYTE(S) ON WORD 00023660 TCBRBP EQU TCB+00000000 FULLWORD POINTER 00023670 TCBPIE EQU TCB+00000004 FULLWORD POINTER 00023680 TCBDEB EQU TCB+00000008 FULLWORD POINTER 00023690 TCBTIO EQU TCB+00000012 FULLWORD POINTER 00023700 TCBCMP EQU TCB+00000016 4 BYTE(S) 00023710 TCBCMPF EQU TCB+00000016 1 BYTE(S) 00023720 TCBCREQ EQU TCB+00000016 1 BIT(S) 00023730 TCBCSTEP EQU TCB+00000016 1 BIT(S) 00023740 TCBCPP EQU TCB+00000016 1 BIT(S) 00023750 A00022 EQU TCB+00000016 1 BIT(S) 00023760 TCBCDBL EQU TCB+00000016 1 BIT(S) 00023770 TCBCWTO EQU TCB+00000016 1 BIT(S) 00023780 TCBCIND EQU TCB+00000016 1 BIT(S) 00023790 TCBCMSG EQU TCB+00000016 1 BIT(S) 00023800 TCBCMPC EQU TCB+00000017 3 BYTE(S) 00023810 TCBTRN EQU TCB+00000020 FULLWORD POINTER 00023820 TCBABF EQU TCB+00000020 1 BYTE(S) 00023830 TCBMOD91 EQU TCB+00000020 1 BIT(S) 00023840 TCBNOCHK EQU TCB+00000020 1 BIT(S) 00023850 TCBGRPH EQU TCB+00000020 1 BIT(S) 00023860 A00023 EQU TCB+00000020 1 BIT(S) 00023870 TCBTCPP EQU TCB+00000020 1 BIT(S) 00023880 TCBTCP EQU TCB+00000020 1 BIT(S) 00023890 TCBOLTEP EQU TCB+00000020 1 BIT(S) 00023900 A00024 EQU TCB+00000020 1 BIT(S) 00023910 TCBTRNB EQU TCB+00000021 3 BYTE POINTER 00023920 TCBMSS EQU TCB+00000024 FULLWORD POINTER 00023930 TCBNROC EQU TCB+00000024 1 BYTE POINTER 00023940 TCBMSSB EQU TCB+00000025 3 BYTE POINTER 00023950 TCBPKF EQU TCB+00000028 1 BYTE(S) 00023960 TCBFLAG EQU TCB+00000028 4 BIT(S) 00023970 TCBZERO EQU TCB+00000028 4 BIT(S) 00023980 TCBFLGS EQU TCB+00000029 5 BYTE(S) 00023990 TCBFLGS1 EQU TCB+00000029 1 BYTE(S) 00024000 TCBFA EQU TCB+00000029 1 BIT(S) 00024010 TCBFE EQU TCB+00000029 1 BIT(S) 00024020 TCBFERA EQU TCB+00000029 1 BIT(S) 00024030 TCBRECUR EQU TCB+00000029 1 BIT(S) 00024040 TCBPDUMP EQU TCB+00000029 1 BIT(S) 00024050 TCBFT EQU TCB+00000029 1 BIT(S) 00024060 TCBFS EQU TCB+00000029 1 BIT(S) 00024070 TCBFX EQU TCB+00000029 1 BIT(S) 00024080 TCBFLGS2 EQU TCB+00000030 1 BYTE(S) 00024090 TCBFOINP EQU TCB+00000030 1 BIT(S) 00024100 TCBFSTI EQU TCB+00000030 1 BIT(S) 00024110 TCBFRA EQU TCB+00000030 1 BIT(S) 00024120 TCBFSMC EQU TCB+00000030 1 BIT(S) 00024130 TCBFJMC EQU TCB+00000030 1 BIT(S) 00024140 TCBFDSOP EQU TCB+00000030 1 BIT(S) 00024150 TCBFETXR EQU TCB+00000030 1 BIT(S) 00024160 TCBFTS EQU TCB+00000030 1 BIT(S) 00024170 TCBFLGS3 EQU TCB+00000031 1 BYTE(S) 00024180 TCBFSM EQU TCB+00000031 1 BIT(S) 00024190 TCBFRI EQU TCB+00000031 1 BIT(S) 00024200 TCBABTRM EQU TCB+00000031 1 BIT(S) 00024210 TCBREC EQU TCB+00000031 1 BIT(S) 00024220 TCBRECDE EQU TCB+00000031 4 BIT(S) 00024230 TCBFLREG EQU TCB+00000031 1 BIT(S) 00024240 TCBSCH EQU TCB+00000031 1 BIT(S) 00024250 TCBPKCHG EQU TCB+00000031 1 BIT(S) 00024260 A00025 EQU TCB+00000031 1 BIT(S) 00024270 TCBFLGS4 EQU TCB+00000032 1 BYTE(S) 00024280 TCBNDUMP EQU TCB+00000032 1 BIT(S) 00024290 TCBSER EQU TCB+00000032 1 BIT(S) 00024300 TCBRQENA EQU TCB+00000032 1 BIT(S) 00024310 A00026 EQU TCB+00000032 1 BIT(S) 00024320 A00027 EQU TCB+00000032 1 BIT(S) 00024330 TCBMPCVQ EQU TCB+00000032 1 BIT(S) 00024340 TCBMPCND EQU TCB+00000032 1 BIT(S) 00024350 TCBONDSP EQU TCB+00000032 1 BIT(S) 00024360 TCBFLGS5 EQU TCB+00000033 1 BYTE(S) 00024370 TCBFC EQU TCB+00000033 1 BIT(S) 00024380 TCBABWF EQU TCB+00000033 1 BIT(S) 00024390 TCBWFC EQU TCB+00000033 1 BIT(S) 00024400 TCBFRO EQU TCB+00000033 1 BIT(S) 00024410 TCBSYS EQU TCB+00000033 1 BIT(S) 00024420 TCBSTP EQU TCB+00000033 1 BIT(S) 00024430 TCBFCD1 EQU TCB+00000033 1 BIT(S) 00024440 TCBPNDSP EQU TCB+00000033 1 BIT(S) 00024450 TCBLMP EQU TCB+00000034 1 BYTE POINTER 00024460 TCBDSP EQU TCB+00000035 1 BYTE POINTER 00024470 TCBLLS EQU TCB+00000036 FULLWORD POINTER 00024480 TCBJLB EQU TCB+00000040 FULLWORD POINTER 00024490 TCBJPQ EQU TCB+00000044 FULLWORD POINTER 00024500 TCBPURGE EQU TCB+00000044 1 BYTE(S) 00024510 TCBJPQF EQU TCB+00000044 1 BIT(S) 00024520 A00028 EQU TCB+00000044 1 BIT(S) 00024530 A00029 EQU TCB+00000044 1 BIT(S) 00024540 A00030 EQU TCB+00000044 1 BIT(S) 00024550 A00031 EQU TCB+00000044 1 BIT(S) 00024560 A00032 EQU TCB+00000044 1 BIT(S) 00024570 A00033 EQU TCB+00000044 1 BIT(S) 00024580 A00034 EQU TCB+00000044 1 BIT(S) 00024590 TCBJPQB EQU TCB+00000045 3 BYTE POINTER 00024600 TCBGRS EQU TCB+00000048 64 BYTE(S) 00024610 TCBGRS0 EQU TCB+00000048 4 BYTE POINTER 00024620 TCBGRS1 EQU TCB+00000052 4 BYTE POINTER 00024630 TCBGRS2 EQU TCB+00000056 4 BYTE POINTER 00024640 TCBGRS3 EQU TCB+00000060 4 BYTE POINTER 00024650 TCBGRS4 EQU TCB+00000064 4 BYTE POINTER 00024660 TCBGRS5 EQU TCB+00000068 4 BYTE POINTER 00024670 TCBGRS6 EQU TCB+00000072 4 BYTE POINTER 00024680 TCBGRS7 EQU TCB+00000076 4 BYTE POINTER 00024690 TCBGRS8 EQU TCB+00000080 4 BYTE POINTER 00024700 TCBGRS9 EQU TCB+00000084 4 BYTE POINTER 00024710 TCBGRS10 EQU TCB+00000088 4 BYTE POINTER 00024720 TCBGRS11 EQU TCB+00000092 4 BYTE POINTER 00024730 TCBGRS12 EQU TCB+00000096 4 BYTE POINTER 00024740 TCBGRS13 EQU TCB+00000100 4 BYTE POINTER 00024750 TCBGRS14 EQU TCB+00000104 4 BYTE POINTER 00024760 TCBGRS15 EQU TCB+00000108 4 BYTE POINTER 00024770 TCBFSA EQU TCB+00000112 FULLWORD POINTER 00024780 TCBQEL EQU TCB+00000112 1 BYTE POINTER 00024790 TCBFSAB EQU TCB+00000113 3 BYTE POINTER 00024800 TCBTCB EQU TCB+00000116 FULLWORD POINTER 00024810 TCBTME EQU TCB+00000120 FULLWORD POINTER 00024820 TCBJSTCB EQU TCB+00000124 FULLWORD POINTER 00024830 TCBPIBT EQU TCB+00000124 1 BYTE(S) 00024840 TCBPART EQU TCB+00000124 2 BIT(S) 00024850 TCBSIZE EQU TCB+00000124 1 BIT(S) 00024860 TCBSTOP EQU TCB+00000124 1 BIT(S) 00024870 A00035 EQU TCB+00000124 1 BIT(S) 00024880 A00036 EQU TCB+00000124 1 BIT(S) 00024890 TCBWRITE EQU TCB+00000124 1 BIT(S) 00024900 TCBSCHED EQU TCB+00000124 1 BIT(S) 00024910 TCBJSTCA EQU TCB+00000125 3 BYTE POINTER 00024920 TCBNTC EQU TCB+00000128 FULLWORD POINTER 00024930 TCBOTC EQU TCB+00000132 FULLWORD POINTER 00024940 TCBLTC EQU TCB+00000136 FULLWORD POINTER 00024950 TCBIQE EQU TCB+00000140 FULLWORD POINTER 00024960 TCBECB EQU TCB+00000144 FULLWORD POINTER 00024970 TCBTSFLG EQU TCB+00000148 8 BIT(S) 00024980 TCBTSTSK EQU TCB+00000148 1 BIT(S) 00024990 TCBSTPPR EQU TCB+00000148 1 BIT(S) 00025000 TCBATT EQU TCB+00000148 1 BIT(S) 00025010 TCBTIOTG EQU TCB+00000148 1 BIT(S) 00025020 A00037 EQU TCB+00000148 1 BIT(S) 00025030 A00038 EQU TCB+00000148 1 BIT(S) 00025040 A00039 EQU TCB+00000148 1 BIT(S) 00025050 A00040 EQU TCB+00000148 1 BIT(S) 00025060 TCBSTPCT EQU TCB+00000149 1 BYTE POINTER 00025070 TCBTSLP EQU TCB+00000150 1 BYTE POINTER 00025080 TCBTSDP EQU TCB+00000151 1 BYTE(S) 00025090 TCBPQE EQU TCB+00000152 FULLWORD POINTER 00025100 TCBOVLY1 EQU 00000152 32 BYTE(S) ON WORD 00025110 TCBFTLMP EQU TCBOVLY1+00000000 1 BYTE POINTER 00025120 TCBFTFLG EQU TCBOVLY1+00000001 3 BYTE(S) 00025130 TCBFTFL1 EQU TCBOVLY1+00000001 1 BYTE(S) 00025140 A00041 EQU TCBOVLY1+00000001 1 BIT(S) 00025150 A00042 EQU TCBOVLY1+00000001 1 BIT(S) 00025160 A00043 EQU TCBOVLY1+00000001 1 BIT(S) 00025170 A00044 EQU TCBOVLY1+00000001 1 BIT(S) 00025180 A00045 EQU TCBOVLY1+00000001 1 BIT(S) 00025190 TCBFTTOP EQU TCBOVLY1+00000001 1 BIT(S) 00025200 TCBFTCOM EQU TCBOVLY1+00000001 1 BIT(S) 00025210 TCBFTSYN EQU TCBOVLY1+00000001 1 BIT(S) 00025220 TCBFTFL2 EQU TCBOVLY1+00000002 1 BYTE(S) 00025230 TCBFTCMP EQU TCBOVLY1+00000002 1 BIT(S) 00025240 A00046 EQU TCBOVLY1+00000002 1 BIT(S) 00025250 A00047 EQU TCBOVLY1+00000002 1 BIT(S) 00025260 A00048 EQU TCBOVLY1+00000002 1 BIT(S) 00025270 A00049 EQU TCBOVLY1+00000002 1 BIT(S) 00025280 TCBFTOPN EQU TCBOVLY1+00000002 1 BIT(S) 00025290 TCBFTETX EQU TCBOVLY1+00000002 1 BIT(S) 00025300 A00050 EQU TCBOVLY1+00000002 1 BIT(S) 00025310 TCBFTFL3 EQU TCBOVLY1+00000003 1 BYTE(S) 00025320 A00051 EQU TCBOVLY1+00000003 1 BIT(S) 00025330 A00052 EQU TCBOVLY1+00000003 1 BIT(S) 00025340 A00053 EQU TCBOVLY1+00000003 1 BIT(S) 00025350 TCBFTISS EQU TCBOVLY1+00000003 1 BIT(S) 00025360 A00054 EQU TCBOVLY1+00000003 1 BIT(S) 00025370 TCBFTDUM EQU TCBOVLY1+00000003 1 BIT(S) 00025380 A00055 EQU TCBOVLY1+00000003 2 BIT(S) 00025390 TCBAQE EQU TCBOVLY1+00000004 FULLWORD POINTER 00025400 TCBSTAB EQU TCBOVLY1+00000008 FULLWORD POINTER 00025410 TCBNSTAE EQU TCBOVLY1+00000008 1 BYTE(S) 00025420 TCBSTABE EQU TCBOVLY1+00000008 1 BIT(S) 00025430 TCBQUIES EQU TCBOVLY1+00000008 1 BIT(S) 00025440 TCBXCTL EQU TCBOVLY1+00000008 1 BIT(S) 00025450 TCBSCAT EQU TCBOVLY1+00000008 1 BIT(S) 00025460 TCBHALT EQU TCBOVLY1+00000008 1 BIT(S) 00025470 TCBSUPER EQU TCBOVLY1+00000008 1 BIT(S) 00025480 TCBRETRY EQU TCBOVLY1+00000008 1 BIT(S) 00025490 TCBVALID EQU TCBOVLY1+00000008 1 BIT(S) 00025500 TCBSTABB EQU TCBOVLY1+00000009 3 BYTE POINTER 00025510 TCBTCT EQU TCBOVLY1+00000012 FULLWORD POINTER 00025520 A00056 EQU TCBOVLY1+00000012 1 BYTE(S) 00025530 TCBTCTB EQU TCBOVLY1+00000013 3 BYTE POINTER 00025540 TCBUSER EQU TCBOVLY1+00000016 FULLWORD POINTER 00025550 TCBDAR EQU TCBOVLY1+00000020 1 BYTE(S) 00025560 TCBDARP EQU TCBOVLY1+00000020 1 BIT(S) 00025570 TCBDARS EQU TCBOVLY1+00000020 1 BIT(S) 00025580 TCBDARD EQU TCBOVLY1+00000020 1 BIT(S) 00025590 TCBDARC EQU TCBOVLY1+00000020 1 BIT(S) 00025600 TCBDARO EQU TCBOVLY1+00000020 1 BIT(S) 00025610 A00057 EQU TCBOVLY1+00000020 1 BIT(S) 00025620 A00058 EQU TCBOVLY1+00000020 1 BIT(S) 00025630 TCBEXSVC EQU TCBOVLY1+00000020 1 BIT(S) 00025640 TCBSCNDY EQU TCBOVLY1+00000021 3 BYTE(S) 00025650 TCBNDSP1 EQU TCBOVLY1+00000021 1 BYTE(S) 00025660 TCBDARTN EQU TCBOVLY1+00000021 1 BIT(S) 00025670 TCBDARPN EQU TCBOVLY1+00000021 1 BIT(S) 00025680 TCBRSTND EQU TCBOVLY1+00000021 1 BIT(S) 00025690 TCBRSPND EQU TCBOVLY1+00000021 1 BIT(S) 00025700 A00059 EQU TCBOVLY1+00000021 1 BIT(S) 00025710 TCBTPSP EQU TCBOVLY1+00000021 1 BIT(S) 00025720 A00060 EQU TCBOVLY1+00000021 1 BIT(S) 00025730 A00061 EQU TCBOVLY1+00000021 1 BIT(S) 00025740 TCBNDSP2 EQU TCBOVLY1+00000022 1 BYTE(S) 00025750 TCBABD EQU TCBOVLY1+00000022 1 BIT(S) 00025760 TCBSTPP EQU TCBOVLY1+00000022 1 BIT(S) 00025770 TCBNDSVC EQU TCBOVLY1+00000022 1 BIT(S) 00025780 TCBNDTS EQU TCBOVLY1+00000022 1 BIT(S) 00025790 TCBIWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00025800 TCBOWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00025810 A00062 EQU TCBOVLY1+00000022 1 BIT(S) 00025820 TCBABE EQU TCBOVLY1+00000022 1 BIT(S) 00025830 TCBNDSP3 EQU TCBOVLY1+00000023 1 BYTE(S) 00025840 TCBTERM EQU TCBOVLY1+00000023 1 BIT(S) 00025850 TCBABTER EQU TCBOVLY1+00000023 1 BIT(S) 00025860 A00063 EQU TCBOVLY1+00000023 1 BIT(S) 00025870 A00064 EQU TCBOVLY1+00000023 1 BIT(S) 00025880 A00065 EQU TCBOVLY1+00000023 1 BIT(S) 00025890 A00066 EQU TCBOVLY1+00000023 1 BIT(S) 00025900 A00067 EQU TCBOVLY1+00000023 1 BIT(S) 00025910 A00068 EQU TCBOVLY1+00000023 1 BIT(S) 00025920 A00069 EQU TCBOVLY1+00000024 FULLWORD INTEGER 00025930 TCBJSCB EQU TCBOVLY1+00000028 FULLWORD POINTER 00025940 A00070 EQU TCBOVLY1+00000028 1 BYTE(S) 00025950 TCBJSCBB EQU TCBOVLY1+00000029 3 BYTE POINTER 00025960 TCT EQU 00000000 80 BYTE(S) ON WORD 00025970 TCTQA EQU TCT+00000000 3 BYTE POINTER ON WORD 00025980 TCTSW EQU TCT+00000003 1 BYTE(S) ON WORD+3 00025990 TCTEXP EQU TCT+00000003 8 BIT(S) 00026000 TCTTCB EQU TCT+00000004 FULLWORD POINTER 00026010 TCTCRTBL EQU TCT+00000008 FULLWORD POINTER 00026020 TCTIOTBL EQU TCT+00000012 FULLWORD POINTER 00026030 TCTPOOL EQU TCT+00000016 4 BYTE(S) ON WORD 00026040 A00071 EQU TCT+00000016 HALFWORD INTEGER 00026050 TCTSZE EQU TCT+00000018 HALFWORD INTEGER 00026060 TCTUTL EQU TCT+00000020 FULLWORD POINTER 00026070 TCTUDATA EQU TCT+00000024 4 BYTE(S) 00026080 TCTJMR EQU TCT+00000028 FULLWORD POINTER 00026090 TCTUSO EQU TCT+00000032 FULLWORD POINTER 00026100 TCTSTOF EQU TCT+00000036 FULLWORD INTEGER 00026110 TCTSACT EQU TCT+00000040 FULLWORD INTEGER 00026120 TCTWLMT EQU TCT+00000044 FULLWORD INTEGER 00026130 TCTCORE EQU TCT+00000048 32 BYTE(S) ON WORD 00026140 TCTLUM EQU TCT+00000048 FULLWORD INTEGER 00026150 TCTHWM EQU TCT+00000052 FULLWORD INTEGER 00026160 TCTMINC EQU TCT+00000056 HALFWORD INTEGER 00026170 TCTRSZ EQU TCT+00000058 HALFWORD INTEGER 00026180 TCTRBC EQU TCT+00000060 HALFWORD INTEGER 00026190 TCTMBC EQU TCT+00000062 HALFWORD INTEGER 00026200 TCTLCS EQU TCT+00000064 4*FULLWORD INTEGER 00026210 TCTIOT EQU 00000000 32 BYTE(S) ON WORD 00026220 TCTPLEXT EQU TCTIOT+00000000 4 BYTE(S) ON WORD 00026230 A00072 EQU TCTIOT+00000000 HALFWORD INTEGER 00026240 TCTSZEXT EQU TCTIOT+00000002 HALFWORD INTEGER 00026250 TCTSZLKP EQU TCTIOT+00000004 HALFWORD INTEGER 00026260 A00073 EQU TCTIOT+00000006 HALFWORD INTEGER 00026270 TCTDD EQU TCTIOT+00000008 4 BYTE(S) ON WORD 00026280 TCTDCBTD EQU TCTIOT+00000008 HALFWORD INTEGER 00026290 TCTIOTSD EQU TCTIOT+00000010 HALFWORD INTEGER 00026300 TCTDCBLE EQU TCTIOT+00000012 FULLWORD INTEGER 00026310 TCTUCB EQU TCTIOT+00000016 16 BYTE(S) ON WORD 00026320 TCTUCBP EQU TCTIOT+00000016 HALFWORD POINTER 00026330 TCTSCTR EQU TCTIOT+00000018 1 BYTE POINTER 00026340 TDDRSVD EQU TCTIOT+00000019 8 BIT(S) 00026350 TCTDCTR EQU TCTIOT+00000020 FULLWORD INTEGER 00026360 TCTOUTLM EQU TCTIOT+00000024 FULLWORD INTEGER 00026370 TDDRSVD2 EQU TCTIOT+00000028 FULLWORD INTEGER 00026380 TIOT1 EQU 00000000 24 BYTE(S) ON WORD 00026390 TIOCNJOB EQU TIOT1+00000000 8 BYTE(S) 00026400 TIOCSTEP EQU TIOT1+00000008 16 BYTE(S) 00026410 TIOENTRY EQU 00000024 40 BYTE(S) ON WORD 00026420 TIOELNGH EQU TIOENTRY+00000000 1 BYTE POINTER 00026430 TIOESTTA EQU TIOENTRY+00000001 8 BIT(S) 00026440 TIOSLTYP EQU TIOENTRY+00000001 1 BIT(S) 00026450 TIOSPLTP EQU TIOENTRY+00000001 1 BIT(S) 00026460 TIOSPLTS EQU TIOENTRY+00000001 1 BIT(S) 00026470 TIOSJBLB EQU TIOENTRY+00000001 1 BIT(S) 00026480 TIOSDADS EQU TIOENTRY+00000001 1 BIT(S) 00026490 TIOSLABL EQU TIOENTRY+00000001 1 BIT(S) 00026500 TIOSDSP1 EQU TIOENTRY+00000001 1 BIT(S) 00026510 TIOSDSP2 EQU TIOENTRY+00000001 1 BIT(S) 00026520 TIOERLOC EQU TIOENTRY+00000002 2 BYTE(S) 00026530 TIOEWTCT EQU TIOENTRY+00000002 1 BYTE(S) 00026540 TIOELINK EQU TIOENTRY+00000003 1 BYTE(S) 00026550 TIOSYOUT EQU TIOENTRY+00000003 1 BIT(S) 00026560 TIOTOPEN EQU TIOENTRY+00000003 1 BIT(S) 00026570 TIOTTERM EQU TIOENTRY+00000003 1 BIT(S) 00026580 TIOEDYNM EQU TIOENTRY+00000003 1 BIT(S) 00026590 TIOEQNAM EQU TIOENTRY+00000003 1 BIT(S) 00026600 A00074 EQU TIOENTRY+00000003 3 BIT(S) 00026610 TIOEDDNM EQU TIOENTRY+00000004 8 BYTE(S) 00026620 TIOEJFCB EQU TIOENTRY+00000012 3 BYTE(S) 00026630 TIOESTTC EQU TIOENTRY+00000015 8 BIT(S) 00026640 TIOSDKCR EQU TIOENTRY+00000015 1 BIT(S) 00026650 TIOSDEFR EQU TIOENTRY+00000015 1 BIT(S) 00026660 TIOSAFFP EQU TIOENTRY+00000015 1 BIT(S) 00026670 TIOSAFFS EQU TIOENTRY+00000015 1 BIT(S) 00026680 TIOSVOLP EQU TIOENTRY+00000015 1 BIT(S) 00026690 TIOSVOLS EQU TIOENTRY+00000015 1 BIT(S) 00026700 TIOSBALP EQU TIOENTRY+00000015 1 BIT(S) 00026710 TIOSBALS EQU TIOENTRY+00000015 1 BIT(S) 00026720 TIOESTTB EQU TIOENTRY+00000016 8 BIT(S) 00026730 TIOSUSED EQU TIOENTRY+00000016 1 BIT(S) 00026740 TIOSREQD EQU TIOENTRY+00000016 1 BIT(S) 00026750 TIOSPVIO EQU TIOENTRY+00000016 1 BIT(S) 00026760 TIOSVLSR EQU TIOENTRY+00000016 1 BIT(S) 00026770 TIOSSETU EQU TIOENTRY+00000016 1 BIT(S) 00026780 TIOSMNTD EQU TIOENTRY+00000016 1 BIT(S) 00026790 TIOSUNLD EQU TIOENTRY+00000016 1 BIT(S) 00026800 TIOSVERF EQU TIOENTRY+00000016 1 BIT(S) 00026810 TIOEFSRT EQU TIOENTRY+00000017 3 BYTE POINTER ON WORD+1 00026820 POOLSTAR EQU TIOENTRY+00000020 20 BYTE(S) ON WORD 00026830 A00075 EQU TIOENTRY+00000020 1 BYTE(S) 00026840 TIOPNSLT EQU TIOENTRY+00000021 1 BYTE POINTER 00026850 A00076 EQU TIOENTRY+00000022 1 BYTE(S) 00026860 TIOPNSRT EQU TIOENTRY+00000023 1 BYTE POINTER 00026870 TIOPPOOL EQU TIOENTRY+00000024 8 BYTE(S) 00026880 TIOPSTTB EQU TIOENTRY+00000032 1 BYTE(S) 00026890 TIOPSLOT EQU TIOENTRY+00000033 3 BYTE POINTER ON WORD+1 00026900 TIOTFEND EQU TIOENTRY+00000036 4 BYTE(S) 00026910 DAWT EQU 00000000 544 BYTE(S) ON WORD 00026920 DAWTDSE EQU DAWT+00000000 32 BYTE(S) ON WORD 00026930 DAWTXCTL EQU DAWT+00000000 16 BYTE(S) ON WORD 00026940 XCTLAD EQU DAWT+00000000 FULLWORD POINTER 00026950 XCTLDCB EQU DAWT+00000004 FULLWORD INTEGER 00026960 XCTLEP EQU DAWT+00000008 8 BYTE(S) 00026970 PPARMP EQU DAWT+00000016 FULLWORD POINTER 00026980 LNGTH EQU DAWT+00000020 HALFWORD INTEGER 00026990 A00077 EQU DAWT+00000022 1 BYTE(S) 00027000 TIOTNO EQU DAWT+00000023 1 BYTE(S) 00027010 TIOTP EQU DAWT+00000024 FULLWORD POINTER 00027020 RTCODE EQU DAWT+00000028 FULLWORD INTEGER 00027030 WKAREA EQU DAWT+00000032 512 BYTE(S) 00027040 DADARM EQU 00000000 4 BYTE(S) ON WORD 00027050 A00078 EQU DADARM+00000000 2 BYTE(S) 00027060 CALLCODE EQU DADARM+00000002 8 BIT(S) 00027070 A00079 EQU DADARM+00000003 1 BYTE(S) 00027080 JMR EQU 00000000 76 BYTE(S) ON WORD 00027090 JMRJNET EQU JMR+00000000 16 BYTE(S) 00027100 JMRJOB EQU JMR+00000000 8 BYTE(S) 00027110 JMRENTRY EQU JMR+00000008 4 BYTE(S) 00027120 JMREDATE EQU JMR+00000012 4 BYTE(S) 00027130 JMRCPUID EQU JMR+00000016 4 BYTE(S) 00027140 JMRIDSNO EQU JMR+00000020 9 BYTE(S) 00027150 JMRUSEID EQU JMR+00000020 8 BYTE(S) 00027160 JMRSTEP EQU JMR+00000028 1 BYTE(S) 00027170 A00080 EQU JMR+00000029 3 BYTE(S) ON WORD+1 00027180 JMRUCOM EQU JMR+00000032 FULLWORD INTEGER 00027190 JMRUJVP EQU JMR+00000036 FULLWORD POINTER 00027200 JMRDRSTP EQU JMR+00000040 2*FULLWORD INTEGER 00027210 JMRJOBIN EQU JMR+00000048 FULLWORD INTEGER 00027220 JMRRDR EQU JMR+00000052 2 BYTE(S) 00027230 JMROPT EQU JMR+00000054 1 BYTE(S) 00027240 A00081 EQU JMR+00000055 1 BYTE(S) 00027250 JMRSYSOC EQU JMR+00000056 5 BYTE(S) 00027260 JMRJCLCD EQU JMR+00000061 1 BYTE(S) 00027270 A00082 EQU JMR+00000062 2 BYTE(S) 00027280 JMRJOBP EQU JMR+00000064 FULLWORD POINTER 00027290 JMRJCLP EQU JMR+00000068 FULLWORD POINTER 00027300 JMRJCLCP EQU JMR+00000072 FULLWORD POINTER 00027310 UCBOB EQU 00000000 28 BYTE(S) ON WORD 00027320 UCBJBNR EQU UCBOB+00000000 1 BYTE(S) 00027330 UCBKEY EQU UCBOB+00000000 4 BIT(S) 00027340 A00083 EQU UCBOB+00000000 1 BIT(S) 00027350 A00084 EQU UCBOB+00000000 1 BIT(S) 00027360 UCBDEM EQU UCBOB+00000000 1 BIT(S) 00027370 UCBMONT EQU UCBOB+00000000 1 BIT(S) 00027380 UCBFL5 EQU UCBOB+00000001 1 BYTE(S) 00027390 A00085 EQU UCBOB+00000001 4 BIT(S) 00027400 UCBEXTSN EQU UCBOB+00000001 1 BIT(S) 00027410 UCBNALOC EQU UCBOB+00000001 1 BIT(S) 00027420 UCBALTCU EQU UCBOB+00000001 1 BIT(S) 00027430 UCBALTPH EQU UCBOB+00000001 1 BIT(S) 00027440 UCBID EQU UCBOB+00000002 1 BYTE(S) 00027450 UCBSTAT EQU UCBOB+00000003 1 BYTE(S) 00027460 UCBONLI EQU UCBOB+00000003 1 BIT(S) 00027470 UCBCHGS EQU UCBOB+00000003 1 BIT(S) 00027480 UCBRESV EQU UCBOB+00000003 1 BIT(S) 00027490 UCBUNLD EQU UCBOB+00000003 1 BIT(S) 00027500 UCBALOC EQU UCBOB+00000003 1 BIT(S) 00027510 UCBPRES EQU UCBOB+00000003 1 BIT(S) 00027520 UCBSYSR EQU UCBOB+00000003 1 BIT(S) 00027530 UCBDADI EQU UCBOB+00000003 1 BIT(S) 00027540 UCBCHA EQU UCBOB+00000004 1 BYTE(S) 00027550 UCBHIO EQU UCBOB+00000004 1 BIT(S) 00027560 UCBMOD EQU UCBOB+00000004 1 BIT(S) 00027570 UCBCHANA EQU UCBOB+00000004 6 BIT(S) 00027580 UCBUA EQU UCBOB+00000005 1 BYTE POINTER 00027590 UCBFL1 EQU UCBOB+00000006 1 BYTE(S) 00027600 UCBBUSYD EQU UCBOB+00000006 1 BIT(S) 00027610 UCBNOTRD EQU UCBOB+00000006 1 BIT(S) 00027620 UCBUSING EQU UCBOB+00000006 1 BIT(S) 00027630 UCBINTER EQU UCBOB+00000006 1 BIT(S) 00027640 UCBNOTRC EQU UCBOB+00000006 1 BIT(S) 00027650 UCBSTS EQU UCBOB+00000006 2 BIT(S) 00027660 UCBERR EQU UCBOB+00000006 1 BIT(S) 00027670 UCBDTI EQU UCBOB+00000007 1 BYTE POINTER 00027680 UCBETI EQU UCBOB+00000008 1 BYTE POINTER 00027690 UCBSTI EQU UCBOB+00000009 1 BYTE POINTER 00027700 UCBLCI EQU UCBOB+00000010 1 BYTE POINTER 00027710 UCBATI EQU UCBOB+00000011 1 BYTE POINTER 00027720 UCBWGT EQU UCBOB+00000012 1 BYTE(S) 00027730 UCBIN EQU UCBOB+00000012 1 BIT(S) 00027740 UCBOUT EQU UCBOB+00000012 1 BIT(S) 00027750 UCBPUB EQU UCBOB+00000012 1 BIT(S) 00027760 UCBREW EQU UCBOB+00000012 1 BIT(S) 00027770 UCBPATH EQU UCBOB+00000012 4 BIT(S) 00027780 UCBPATH0 EQU UCBOB+00000012 1 BIT(S) 00027790 UCBPATH1 EQU UCBOB+00000012 1 BIT(S) 00027800 UCBPATH2 EQU UCBOB+00000012 1 BIT(S) 00027810 UCBPATH3 EQU UCBOB+00000012 1 BIT(S) 00027820 UCBNAME EQU UCBOB+00000013 3 BYTE(S) 00027830 UCBTYP EQU UCBOB+00000016 4 BYTE(S) 00027840 UCBTBYT1 EQU UCBOB+00000016 1 BYTE(S) 00027850 UCB1FEA0 EQU UCBOB+00000016 1 BIT(S) 00027860 UCB1FEA1 EQU UCBOB+00000016 1 BIT(S) 00027870 UCB1FEA2 EQU UCBOB+00000016 1 BIT(S) 00027880 UCB1FEA3 EQU UCBOB+00000016 1 BIT(S) 00027890 UCB1FEA4 EQU UCBOB+00000016 1 BIT(S) 00027900 UCB1FEA5 EQU UCBOB+00000016 1 BIT(S) 00027910 UCB1FEA6 EQU UCBOB+00000016 1 BIT(S) 00027920 UCB1FEA7 EQU UCBOB+00000016 1 BIT(S) 00027930 UCBTBYT2 EQU UCBOB+00000017 1 BYTE(S) 00027940 UCB2OPT0 EQU UCBOB+00000017 1 BIT(S) 00027950 UCB2OPT1 EQU UCBOB+00000017 1 BIT(S) 00027960 UCB2OPT2 EQU UCBOB+00000017 1 BIT(S) 00027970 UCB2OPT3 EQU UCBOB+00000017 1 BIT(S) 00027980 UCB2OPT4 EQU UCBOB+00000017 1 BIT(S) 00027990 UCB2OPT5 EQU UCBOB+00000017 1 BIT(S) 00028000 UCB2OPT6 EQU UCBOB+00000017 1 BIT(S) 00028010 UCB2OPT7 EQU UCBOB+00000017 1 BIT(S) 00028020 UCBTBYT3 EQU UCBOB+00000018 1 BYTE(S) 00028030 UCB3TAPE EQU UCBOB+00000018 1 BIT(S) 00028040 UCB3COMM EQU UCBOB+00000018 1 BIT(S) 00028050 UCB3DACC EQU UCBOB+00000018 1 BIT(S) 00028060 UCB3DISP EQU UCBOB+00000018 1 BIT(S) 00028070 UCB3UREC EQU UCBOB+00000018 1 BIT(S) 00028080 UCB3CHAR EQU UCBOB+00000018 1 BIT(S) 00028090 A00086 EQU UCBOB+00000018 1 BIT(S) 00028100 A00087 EQU UCBOB+00000018 1 BIT(S) 00028110 UCBTBYT4 EQU UCBOB+00000019 1 BYTE(S) 00028120 UCBLTS EQU UCBOB+00000020 2 BYTE(S) 00028130 UCBSNS EQU UCBOB+00000022 2 BYTE(S) 00028140 UCBDEV EQU UCBOB+00000024 4 BYTE INTEGER 00028150 UCBOBS01 EQU 00000024 40 BYTE(S) ON WORD 00028160 UCBSENSE EQU UCBOBS01+00000000 4 BYTE(S) ON WORD 00028170 UCBSENSB EQU UCBOBS01+00000000 FULLWORD POINTER 00028180 UCBSENSN EQU UCBOBS01+00000000 1 BYTE POINTER 00028190 UCBSENSA EQU UCBOBS01+00000001 3 BYTE POINTER ON WORD+1 00028200 UCBVOLI EQU UCBOBS01+00000004 6 BYTE(S) 00028210 UCBSTAB EQU UCBOBS01+00000010 1 BYTE(S) 00028220 UCBBSVL EQU UCBOBS01+00000010 1 BIT(S) 00028230 UCBBVSC EQU UCBOBS01+00000010 1 BIT(S) 00028240 UCBPRSRS EQU UCBOBS01+00000010 1 BIT(S) 00028250 UCBBALB EQU UCBOBS01+00000010 1 BIT(S) 00028260 UCBBPRV EQU UCBOBS01+00000010 1 BIT(S) 00028270 UCBBPUB EQU UCBOBS01+00000010 1 BIT(S) 00028280 UCBBSTR EQU UCBOBS01+00000010 1 BIT(S) 00028290 UCBBJLB EQU UCBOBS01+00000010 1 BIT(S) 00028300 UCBBNUL EQU UCBOBS01+00000010 1 BIT(S) 00028310 UCBDMCT EQU UCBOBS01+00000011 1 BYTE(S) 00028320 UCBMOUNT EQU UCBOBS01+00000011 1 BIT(S) 00028330 UCBDMC EQU UCBOBS01+00000011 7 BIT(S) 00028340 UCBVTOC EQU UCBOBS01+00000012 4 BYTE(S) ON WORD 00028350 UCBFSCT EQU UCBOBS01+00000012 HALFWORD INTEGER 00028360 UCBFSEQ EQU UCBOBS01+00000014 HALFWORD INTEGER 00028370 UCBFSER EQU UCBOBS01+00000016 8 BYTE(S) ON WORD 00028380 UCBSQC EQU UCBOBS01+00000016 1 BYTE POINTER 00028390 UCBDVRES EQU UCBOBS01+00000017 1 BYTE POINTER 00028400 UCBRQESV EQU UCBOBS01+00000018 HALFWORD INTEGER 00028410 UCBORSVA EQU UCBOBS01+00000020 FULLWORD POINTER 00028420 UCBFL4 EQU UCBOBS01+00000020 1 BYTE(S) 00028430 UCBDAV EQU UCBOBS01+00000020 5 BIT(S) 00028440 UCBMNT EQU UCBOBS01+00000020 1 BIT(S) 00028450 UCBVVRTN EQU UCBOBS01+00000020 1 BIT(S) 00028460 UCBFT EQU UCBOBS01+00000020 1 BIT(S) 00028470 UCBTCC EQU UCBOBS01+00000020 1 BIT(S) 00028480 UCBVER EQU UCBOBS01+00000020 1 BIT(S) 00028490 UCBORCNT EQU UCBOBS01+00000020 3 BIT(S) 00028500 UCBORSVB EQU UCBOBS01+00000021 3 BYTE POINTER 00028510 UCBSKA EQU UCBOBS01+00000024 8 BYTE(S) ON WORD 00028520 UCBXTN EQU UCBOBS01+00000024 FULLWORD POINTER 00028530 UCBVOPT EQU UCBOBS01+00000024 1 BYTE(S) 00028540 UCBESV EQU UCBOBS01+00000024 1 BIT(S) 00028550 UCBEVA EQU UCBOBS01+00000024 1 BIT(S) 00028560 UCBESVC EQU UCBOBS01+00000024 1 BIT(S) 00028570 UCBERPC EQU UCBOBS01+00000024 1 BIT(S) 00028580 UCBESVE EQU UCBOBS01+00000024 1 BIT(S) 00028590 A00088 EQU UCBOBS01+00000024 1 BIT(S) 00028600 A00089 EQU UCBOBS01+00000024 1 BIT(S) 00028610 A00090 EQU UCBOBS01+00000024 1 BIT(S) 00028620 UCBXTNB EQU UCBOBS01+00000025 3 BYTE POINTER 00028630 A00091 EQU UCBOBS01+00000028 4 BYTE(S) 00028640 UCBECBB EQU UCBOBS01+00000032 FULLWORD POINTER 00028650 UCBUSER EQU UCBOBS01+00000032 1 BYTE POINTER 00028660 UCBECBA EQU UCBOBS01+00000033 3 BYTE POINTER 00028670 UCBEXT EQU UCBOBS01+00000036 FULLWORD POINTER 00028680 UCBOBS02 EQU 00000024 196 BYTE(S) ON WORD 00028690 UCBSEN EQU UCBOBS02+00000000 4 BYTE(S) 00028700 UCBERPA EQU UCBOBS02+00000004 12 BYTE(S) 00028710 UCBDASD EQU UCBOBS02+00000016 16 BYTE(S) 00028720 UCBCELLS EQU UCBOBS02+00000032 160 BYTE(S) 00028730 UCBCELL0 EQU UCBOBS02+00000032 16 BYTE(S) 00028740 UCBCELL1 EQU UCBOBS02+00000048 16 BYTE(S) 00028750 UCBCELL2 EQU UCBOBS02+00000064 16 BYTE(S) 00028760 UCBCELL3 EQU UCBOBS02+00000080 16 BYTE(S) 00028770 UCBCELL4 EQU UCBOBS02+00000096 16 BYTE(S) 00028780 UCBCELL5 EQU UCBOBS02+00000112 16 BYTE(S) 00028790 UCBCELL6 EQU UCBOBS02+00000128 16 BYTE(S) 00028800 UCBCELL7 EQU UCBOBS02+00000144 16 BYTE(S) 00028810 UCBCELL8 EQU UCBOBS02+00000160 16 BYTE(S) 00028820 UCBCELL9 EQU UCBOBS02+00000176 16 BYTE(S) 00028830 UCBDC EQU UCBOBS02+00000192 FULLWORD POINTER 00028840 UCBOBS03 EQU 00000024 8 BYTE(S) ON WORD 00028850 UCBNBRSN EQU UCBOBS03+00000000 1 BYTE POINTER 00028860 UCBSNADR EQU UCBOBS03+00000001 3 BYTE POINTER ON WORD+1 00028870 UCBXTADR EQU UCBOBS03+00000004 FULLWORD POINTER 00028880 UCBOBS04 EQU 00000024 16 BYTE(S) ON WORD 00028890 UCBSENS EQU UCBOBS04+00000000 2 BYTE(S) 00028900 UCBOPEN EQU UCBOBS04+00000002 1 BYTE POINTER 00028910 UCBGCB EQU UCBOBS04+00000003 1 BYTE(S) 00028920 UCBTEB EQU UCBOBS04+00000004 FULLWORD POINTER 00028930 UCBSTART EQU UCBOBS04+00000008 FULLWORD POINTER 00028940 UCBBTA EQU UCBOBS04+00000012 FULLWORD POINTER 00028950 UCBDI EQU UCBOBS04+00000012 1 BYTE POINTER 00028960 UCBBTB EQU UCBOBS04+00000013 3 BYTE POINTER 00028970 UCBOBS05 EQU 00000024 4 BYTE(S) ON WORD 00028980 UCBCRWKA EQU UCBOBS05+00000000 FULLWORD POINTER 00028990 UCBOBS06 EQU 00000056 FULLWORD INTEGER 00029000 UCBDCLL EQU 00000000 16 BYTE(S) ON WORD 00029010 UCBDCELL EQU UCBDCLL+00000000 16 BYTE(S) ON WORD 00029020 UCBDBBNR EQU UCBDCLL+00000000 HALFWORD INTEGER 00029030 UCBDSTAB EQU UCBDCLL+00000002 1 BYTE(S) 00029040 UCBDBSVL EQU UCBDCLL+00000002 1 BIT(S) 00029050 A00092 EQU UCBDCLL+00000002 1 BIT(S) 00029060 UCBDBPRS EQU UCBDCLL+00000002 1 BIT(S) 00029070 UCBDBPRV EQU UCBDCLL+00000002 1 BIT(S) 00029080 UCBDBPUB EQU UCBDCLL+00000002 1 BIT(S) 00029090 UCBDBSTR EQU UCBDCLL+00000002 1 BIT(S) 00029100 UCBDBJLB EQU UCBDCLL+00000002 1 BIT(S) 00029110 UCBDBNUL EQU UCBDCLL+00000002 1 BIT(S) 00029120 UCBDSTAT EQU UCBDCLL+00000003 1 BYTE(S) 00029130 UCBDNORM EQU UCBDCLL+00000003 1 BIT(S) 00029140 A00093 EQU UCBDCLL+00000003 1 BIT(S) 00029150 UCBDRESV EQU UCBDCLL+00000003 1 BIT(S) 00029160 UCBDUNLD EQU UCBDCLL+00000003 1 BIT(S) 00029170 UCBDALOC EQU UCBDCLL+00000003 1 BIT(S) 00029180 UCBDPRES EQU UCBDCLL+00000003 1 BIT(S) 00029190 A00094 EQU UCBDCLL+00000003 1 BIT(S) 00029200 A00095 EQU UCBDCLL+00000003 1 BIT(S) 00029210 UCBDVOLI EQU UCBDCLL+00000004 6 BYTE(S) 00029220 UCBDJBNR EQU UCBDCLL+00000010 1 BYTE POINTER 00029230 UCBDDMCT EQU UCBDCLL+00000011 1 BYTE POINTER 00029240 UCBDDMNT EQU UCBDCLL+00000011 1 BIT(S) 00029250 A00096 EQU UCBDCLL+00000011 7 BIT(S) 00029260 UCBDVTOC EQU UCBDCLL+00000012 3 BYTE(S) 00029270 UCBDUSER EQU UCBDCLL+00000015 1 BYTE POINTER 00029280 UCBDA EQU 00000000 184 BYTE(S) ON WORD 00029290 A00097 EQU UCBDA+00000000 104 BYTE(S) 00029300 UCBERP EQU UCBDA+00000104 40 BYTE(S) 00029310 UCBOVFLW EQU UCBDA+00000144 40 BYTE(S) 00029320 UCBMT EQU 00000000 24 BYTE(S) ON WORD 00029330 UCBROR EQU UCBMT+00000000 8 BYTE(S) 00029340 UCBSUM EQU UCBMT+00000008 2 BYTE(S) 00029350 UCBSUMA EQU UCBMT+00000008 1 BYTE(S) 00029360 UCBSUMTR EQU UCBMT+00000008 1 BIT(S) 00029370 UCBSUMTW EQU UCBMT+00000008 1 BIT(S) 00029380 UCBSUMSC EQU UCBMT+00000008 2 BIT(S) 00029390 UCBSUMPR EQU UCBMT+00000008 1 BIT(S) 00029400 UCBSUMPW EQU UCBMT+00000008 1 BIT(S) 00029410 UCBSUMNB EQU UCBMT+00000008 1 BIT(S) 00029420 A00098 EQU UCBMT+00000008 1 BIT(S) 00029430 UCBSUMB EQU UCBMT+00000009 1 BYTE(S) 00029440 UCBSUMEG EQU UCBMT+00000009 2 BIT(S) 00029450 UCBSUMCA EQU UCBMT+00000009 2 BIT(S) 00029460 A00099 EQU UCBMT+00000009 1 BIT(S) 00029470 A00100 EQU UCBMT+00000009 1 BIT(S) 00029480 A00101 EQU UCBMT+00000009 1 BIT(S) 00029490 A00102 EQU UCBMT+00000009 1 BIT(S) 00029500 UCBTRT EQU UCBMT+00000010 1 BYTE POINTER 00029510 UCBTWT EQU UCBMT+00000011 1 BYTE POINTER 00029520 UCBTR EQU UCBMT+00000012 1 BYTE POINTER 00029530 UCBTW EQU UCBMT+00000013 1 BYTE POINTER 00029540 UCBSIO EQU UCBMT+00000014 HALFWORD INTEGER 00029550 UCBPR EQU UCBMT+00000016 1 BYTE POINTER 00029560 UCBPW EQU UCBMT+00000017 1 BYTE POINTER 00029570 UCBNB EQU UCBMT+00000018 1 BYTE POINTER 00029580 A00103 EQU UCBMT+00000019 1 BYTE(S) 00029590 UCBERG EQU UCBMT+00000020 HALFWORD INTEGER 00029600 UCBCLN EQU UCBMT+00000022 HALFWORD INTEGER 00029610 UCBTCR EQU 00000000 32 BYTE(S) ON DWORD 00029620 UCBTCERP EQU UCBTCR+00000000 24 BYTE(S) ON DWORD 00029630 UCBRCCW1 EQU UCBTCR+00000000 8 BYTE(S) ON DWORD 00029640 UCBRCCW2 EQU UCBTCR+00000008 8 BYTE(S) ON DWORD 00029650 UCBRCCW3 EQU UCBTCR+00000016 8 BYTE(S) ON DWORD 00029660 UCBCSWSA EQU UCBTCR+00000024 8 BYTE(S) 00029670 UCBOR EQU 00000000 8 BYTE(S) ON WORD 00029680 UCBCRDDC EQU UCBOR+00000000 1 BYTE POINTER 00029690 UCBCRILC EQU UCBOR+00000001 1 BYTE POINTER 00029700 UCBCRECC EQU UCBOR+00000002 1 BYTE POINTER 00029710 A00104 EQU UCBOR+00000003 5 BYTE(S) 00029720 UCBUCS EQU 00000000 16 BYTE(S) ON WORD 00029730 UCBUCSID EQU UCBUCS+00000000 4 BYTE(S) 00029740 UCBUCSOP EQU UCBUCS+00000004 1 BYTE(S) 00029750 UCBUCSO1 EQU UCBUCS+00000004 1 BIT(S) 00029760 UCBUCSO2 EQU UCBUCS+00000004 1 BIT(S) 00029770 A00105 EQU UCBUCS+00000004 5 BIT(S) 00029780 UCBUCSPE EQU UCBUCS+00000004 1 BIT(S) 00029790 UCBFCBOP EQU UCBUCS+00000005 1 BYTE(S) 00029800 UCBFCBO1 EQU UCBUCS+00000005 1 BIT(S) 00029810 A00106 EQU UCBUCS+00000005 7 BIT(S) 00029820 A00107 EQU UCBUCS+00000006 1 BYTE(S) 00029830 UCBERCNT EQU UCBUCS+00000007 1 BYTE POINTER 00029840 UCBFCBID EQU UCBUCS+00000008 4 BYTE(S) 00029850 UCBERADR EQU UCBUCS+00000012 FULLWORD POINTER 00029860 UCBSNINF EQU 00000000 8 BYTE(S) ON WORD 00029870 UCBSNSXT EQU UCBSNINF+00000000 6 BYTE(S) 00029880 A00108 EQU UCBSNINF+00000006 2 BYTE(S) 00029890 UCBM65MP EQU 00000004 4 BYTE(S) ON WORD 00029900 UCBFL3 EQU UCBM65MP+00000000 1 BYTE(S) 00029910 UCBACU EQU UCBM65MP+00000000 1 BIT(S) 00029920 A00109 EQU UCBM65MP+00000000 1 BIT(S) 00029930 UCBHIOB EQU UCBM65MP+00000000 1 BIT(S) 00029940 UCBHIOA EQU UCBM65MP+00000000 1 BIT(S) 00029950 UCBSIOB EQU UCBM65MP+00000000 1 BIT(S) 00029960 A00110 EQU UCBM65MP+00000000 1 BIT(S) 00029970 UCBNOB EQU UCBM65MP+00000000 1 BIT(S) 00029980 UCBNOA EQU UCBM65MP+00000000 1 BIT(S) 00029990 A00111 EQU UCBM65MP+00000001 2 BYTE(S) 00030000 UCBMPFLG EQU UCBM65MP+00000003 1 BYTE(S) 00030010 A00112 EQU UCBM65MP+00000003 1 BIT(S) 00030020 A00113 EQU UCBM65MP+00000003 1 BIT(S) 00030030 A00114 EQU UCBM65MP+00000003 1 BIT(S) 00030040 A00115 EQU UCBM65MP+00000003 1 BIT(S) 00030050 A00116 EQU UCBM65MP+00000003 1 BIT(S) 00030060 A00117 EQU UCBM65MP+00000003 1 BIT(S) 00030070 UCBPROC EQU UCBM65MP+00000003 1 BIT(S) 00030080 UCBIPL EQU UCBM65MP+00000003 1 BIT(S) 00030090 TDD EQU 00000000 74 BYTE(S) ON WORD 00030100 TDDLNGTH EQU TDD+00000000 HALFWORD INTEGER 00030110 TDDCNT EQU TDD+00000002 HALFWORD INTEGER 00030120 TDDRCDC EQU TDD+00000004 8 BIT(S) 00030130 TDDRCDTY EQU TDD+00000005 8 BIT(S) 00030140 TDDRCDTS EQU TDD+00000006 8 BYTE(S) ON HWORD 00030150 TDDTOD EQU TDD+00000006 4 BYTE(S) 00030160 TDDDATE EQU TDD+00000010 4 BYTE(S) 00030170 TDDCPUID EQU TDD+00000014 4 BYTE(S) 00030180 TDDUIDLO EQU TDD+00000018 16 BYTE(S) 00030190 TDDUID EQU TDD+00000018 8 BYTE(S) 00030200 TDDONTME EQU TDD+00000026 8 BYTE(S) 00030210 TDDONTM EQU TDD+00000026 4 BYTE(S) 00030220 TDDONDT EQU TDD+00000030 4 BYTE(S) 00030230 TDDUDSQ EQU TDD+00000034 9 BYTE(S) 00030240 TDDUDATA EQU TDD+00000034 8 BYTE(S) 00030250 TDDINVSQ EQU TDD+00000042 1 BYTE(S) 00030260 TDDFLG EQU TDD+00000043 8 BIT(S) 00030270 TDDRVA EQU TDD+00000044 20 BYTE(S) 00030280 TDDVAR EQU TDD+00000064 HALFWORD INTEGER 00030290 TDDEXCP EQU TDD+00000066 8 BYTE(S) ON HWORD 00030300 TDDCLUT EQU TDD+00000066 2 BYTE(S) 00030310 TDDTBYT3 EQU TDD+00000066 1 BYTE(S) 00030320 TDDTBYT4 EQU TDD+00000067 1 BYTE(S) 00030330 TDDCHA EQU TDD+00000068 8 BIT(S) 00030340 TDDUTA EQU TDD+00000069 8 BIT(S) 00030350 TDDXCT EQU TDD+00000070 4 BYTE(S) 00030360 ALLOC EQU * 8 BIT(S) ON BYTE 00030370 DC X'01' 00030380 UNALLOC EQU * 8 BIT(S) ON BYTE 00030390 DC X'02' 00030400 CONCAT EQU * 8 BIT(S) ON BYTE 00030410 DC X'03' 00030420 DECONCAT EQU * 8 BIT(S) ON BYTE 00030430 DC X'04' 00030440 ORG @DATA 00030450 DS 00000004C 00030460 @L EQU 1 00030470 @DATD DSECT 00030480 PARMPTR EQU @DATD+00000000 FULLWORD POINTER 00030490 TENTRY EQU @DATD+00000004 FULLWORD POINTER 00030500 UCBPTR EQU @DATD+00000008 FULLWORD POINTER 00030510 SMFPTR EQU @DATD+00000012 FULLWORD POINTER 00030520 BYTES EQU @DATD+00000016 FULLWORD INTEGER 00030530 SWITCH EQU @DATD+00000020 FULLWORD INTEGER 00030540 SIZE EQU @DATD+00000024 HALFWORD INTEGER 00030550 SIZUCBS EQU @DATD+00000026 HALFWORD INTEGER 00030560 CALLER EQU @DATD+00000028 1 BYTE(S) 00030570 DS 00000029C 00030580 @TEMPS DS 0F 00030590 DS C 00030600 @DATEND EQU * 00030610 IGC28099 CSECT , 00030620 END IGC28099 00030630 ./ ADD SSI=01010765,NAME=IGC2909I,SOURCE=1 * GENERATE; /* TITLE STATEMENT FOR BAL */ 00000000 TITLE 'IGC29099 - DYNAMIC ALLOCATION DSE UPDATE ROUTINE' 00000010 * /**************************************************************/ 00000020 * /* */ 00000030 * /* STATUS */ 00000040 * /* CHANGE LEVEL 0 */ 00000050 * /* */ 00000060 * /* FUNCTION */ 00000070 * /* WHEN MODULE IGC29099 IS ENTERED FOR 'CONCAT', THE */ 00000080 * /* DSE ENTRIES FOR THE DDNAMES JUST CONCATENATED MUST BE */ 00000090 * /* PUT IN THE ORDER REFLECTING THE CONCATENATION. THE */ 00000100 * /* DSESERCH SUBROUTINE IS USED TO SEARCH FOR THE DSE'S IN */ 00000110 * /* THE REVERSE ORDER IN WHICH THE ASSOCIATED DDNAMES */ 00000120 * /* APPEAR IN THE 'CONCAT' PARAMETER LIST. AS EACH DSE IS */ 00000130 * /* FOUND, THE DSECHAIN SUBROUTINE IS USED TO CHAIN IT TO */ 00000140 * /* THE FRONT OF THE DSE CHAIN AND THEN IT IS MARKED */ 00000150 * /* DYNAMICALLY CONCATENATED. WHEN ALL DDNAMES HAVE BEEN */ 00000160 * /* PROCESSED, DDNAME1 IS PROPAGATED THROUGH THE DDNAME */ 00000170 * /* FIELDS OF ALL THE DSE'S WHICH WERE PREVIOUSLY MARKED */ 00000180 * /* DYNAMICALLY CONCATENATED. */ 00000190 * /* */ 00000200 * /* WHEN THIS MODULE IS ENTERED FOR 'UNALLOC' THE DSE FOR */ 00000210 * /* THE DDNAME BEING UNALLOCATED IS MADE A DYNAM AND IS */ 00000220 * /* CHAINED AT THE END OF THE DSE CHAIN. */ 00000230 * /* FIRST THE DSESERCH SUBROUTINE IS ENTERED TO SEARCH FOR */ 00000240 * /* THE DDNAME BEING UNALLOCATED. THE DSE IS THEN ZEROED */ 00000250 * /* EXCEPT FOR THE FIRST TEN BYTES. IT IS THEN MARKED AS A */ 00000260 * /* DYNAM AND AS NOT IN USE AND THE DDNAME IS MOVED IN. */ 00000270 * /* THE DSNAME IS THEN MADE 'NULLFILE' AND THE DSE IS */ 00000280 * /* CHAINED AT THE END OF THE DSE CHAIN USING THE DSECHAIN */ 00000290 * /* SUBROUTINE. EXIT IS THEN MADE TO MODULE IGC28099 */ 00000300 * /* IF SMF IS ACTIVE, OTHERWISE THE DAWT IS FREED AND */ 00000310 * /* SVC 3 IS ISSUED. */ 00000320 * /* */ 00000330 * /* ENTRY POINTS */ 00000340 * /* IGC29099 - FROM 1ST LOAD OF DSE UPDATE - IGC25099 */ 00000350 * /* */ 00000360 * /* INPUT */ 00000370 * /* REGISTER 1 - A POINTER TO THE DAWT */ 00000380 * /* REGISTER 15 - A POINTER TO THE XCTL PARAMETER LIST */ 00000390 * /* */ 00000400 * /* OUTPUT */ 00000410 * /* REGISTER 1 - A POINTER TO THE DAWT */ 00000420 * /* REGISTER 15 - A POINTER TO THE XCTL PARAMETER LIST */ 00000430 * /* */ 00000440 * /* EXTERNAL REFERENCES */ 00000450 * /* THIS ROUTINE USES THE FOLLOWING SYSTEM FUNCTIONS: */ 00000460 * /* FREEMAIN - FOR DAWT */ 00000470 * /* EXIT - EXIT */ 00000480 * /* XCTL - TO PASS CONTROL TO MODULE IGC28099 */ 00000490 * /* */ 00000500 * /* EXITS, NORMAL */ 00000510 * /* VIA XCTL TO MODULE IGC28099 OR EXIT */ 00000520 * /* */ 00000530 * /* EXITS, ERROR */ 00000540 * /* VIA XCTL TO MODULE IGC28099 WITH A RETURN CODE IN THE */ 00000550 * /* DAWT */ 00000560 * /* CODE(HEX) */ 00000570 * /* '504'X - DSE ASSOCIATED WITH REQUESTED DDNAME NOT */ 00000580 * /* FOUND IN DSE CHAIN */ 00000590 * /* */ 00000600 * /* TABLES/WORK AREAS */ 00000610 * /* THE FOLLOWING TABLES ARE REFERENCED: */ 00000620 * /* DSE,JMR,TJBX,TCB,TCT */ 00000630 * /* */ 00000640 * /* ATTRIBUTES */ 00000650 * /* TYPE IV SVC. REENTRANT */ 00000660 * /* */ 00000670 * /* NOTES */ 00000680 * /* SINCE THIS MODULE WILL NEVER RETURN BUT EITHER EXIT OR */ 00000690 * /* XCTL, THE CODE TO FREE THE AUTOMATIC STORAGE WILL NEVER */ 00000700 * /* BE EXECUTED. IN ORDER TO TAKE ADVANTAGE OF THIS CODE */ 00000710 * /* AND TO SAVE BYTES IN THE MODULE, THE FOLLOWING */ 00000720 * /* INSTRUCTION APPEARS IN THE NORMAL AND ERROR EXITING */ 00000730 * /* PROCEDURES: */ 00000740 * /* BAL @EL01 */ 00000750 * /* THUS THIS MODULE HAS A DEPENDENCY THAT BSL GENERATES */ 00000760 * /* @EL01 AS THE LABEL OF A GROUP OF INSTRUCTIONS THAT */ 00000770 * /* FREES AUTOMATIC STORAGE. */ 00000780 * /* THIS MODULE DEPENDS ON THE COMPILER TO GENERATE THE */ 00000790 * /* LABEL .@001 IN ORDER TO GENERATE THE MODULE IDENTIFIER. */ 00000800 * /* THIS MODULE IS DEPENDENT ON THE EBCDIC CHARACTER CODE */ 00000810 * /* SET WHICH WAS USED FOR ASSEMBLY AND MUST BE REASSEMBLED */ 00000820 * /* IF A DIFFERENT CHARACTER SET IS TO BE USED DURING */ 00000830 * /* EXECUTION. */ 00000840 * /* */ 00000850 * /**************************************************************/ 00000860 * 00000870 * /* GENERATE MODULE IDENTIFIER */ 00000880 * GENERATE; /* DO */ 00000890 LCLA &T,&SPN MODULE 00000900 &SPN SETA 0 ID 00000910 IGC29099 CSECT 00000920 B 16(@0,@F) BRANCH AROUND ID 00000930 DC AL1(8) LENGTH OF MODULE NAME 00000940 DC CL8'IGC29099' MODULE NAME 00000950 DC CL3'292' JULIAN DATE 00000960 AGO .@001 00000970 * IGC29099: 00000980 * PROC (PLIST) 00000990 * OPTIONS(REENTRANT,DONTSAVE,NOSAVEAREA); 00001000 LCLA &T,&SPN 0003 00001010 .@001 ANOP 0003 00001020 IGC29099 CSECT , 0003 00001030 BALR @B,0 0003 00001040 @PSTART DS 0H 0003 00001050 USING @PSTART+00000,@B 0003 00001060 LR @C,@1 0003 00001070 L @0,@SIZ001 0003 00001080 GETMAIN R,LV=(0) 0003 00001090 XR @C,@1 0003 00001100 XR @1,@C 0003 00001110 XR @C,@1 0003 00001120 USING @DATD+00000,@C 0003 00001130 XC @TEMPS(@L),@TEMPS 0003 00001140 * DCL CVTPTR PTR(31) BASED(16); /* CVT ADDRESS */ 00001150 * DCL DSEPTR PTR(31) REG(2); /* 1ST DSE ADDRESS */ 00001160 * DCL TJBXPTR PTR(31) REG(13); /* TJBX ADDRESS */ 00001170 ** 00001180 ** /* COMMUNICATION VECTOR TABLE * 00001190 ** /* RELEASE 20.2 * 00001200 ** 00001210 ** /* CVT PROPER * 00001220 ** 00001230 ** DECLARE 00001240 ** 1 CVTMAP BASED(CVTPTR), 00001250 ** 00001260 ** 2 CVTTCBP PTR(31), /* PTR TO ADDRESSES FOR NEXT 00001270 ** AND CURRENT TCB * 00001280 ** 2 CVT0EF00 PTR(31), /* ADDR OF ROUTINE TO SCHEDULE 00001290 ** ASYNCHRONOUS EXITS * 00001300 ** 2 CVTLINK PTR(31), /* ADDR OF DCB FOR SYS1.LINKLIB * 00001310 ** 2 CVTJOB PTR(31), /* ADDR OF WORK QUEUE CONTROL 00001320 ** BLOCKS * 00001330 ** 2 CVTBUF PTR(31), /* ADDR OF BUFFER FOR RESIDENT 00001340 ** CONSOLE INTERRUPTION ROUTINE * 00001350 ** 2 CVTXAPG PTR(31), /* ADDR OF IOS APPENDAGE TABLE * 00001360 ** 2 CVT0VL00 PTR(31), /* ENTRY POINT ADDR OF ADDR 00001370 ** VALIDITY CHECKING ROUTINE * 00001380 ** 2 CVTPCNVT PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001390 ** FOR CONVERTING RELATIVE 00001400 ** TRACK ADDR TO ABSOLUTE * 00001410 ** 2 CVTPRLTV PTR(31), /* ENTRY POINT ADDR OF ROUTINE 00001420 ** FOR CONVERTING ABSOLUTE 00001430 ** TRACK ADDR TO RELATIVE * 00001440 ** 2 CVTILK1 PTR(31), /* ADDR OF CHANNEL AND CONTROL 00001450 ** UNIT SECTION IN UCB LOOKUP 00001460 ** TABLE * 00001470 ** 2 CVTILK2 PTR(31), /* ADDR OF UCB ADDR LIST 00001480 ** SECTION IN UCB LOOKUP TABLE * 00001490 ** 2 CVTXTLER PTR(31), /* ENTRY POINT ADDR TO XCTL 00001500 ** ROUTINE FOR SYSTEM ERROR 00001510 ** ROUTINES * 00001520 ** 2 CVTSYSAD PTR(31), /* ADDR OF SYSTEM RESIDENCE 00001530 ** VOLUME ENTRY IN UCB TABLE * 00001540 ** 2 CVTBTERM PTR(31), /* ENTRY POINT ADDR OF ABTERM 00001550 ** ROUTINE * 00001560 ** 2 CVTDATE CHAR(4), /* CURRENT DATE IN PACKED 00001570 ** DECIMAL * 00001580 ** 2 CVTMSLT PTR(31), /* ADDR OF MASTER COMMON AREA 00001590 ** (MASTER RESIDENT CORE IN PCP 00001600 ** PLEASE USE CVTMSER INSTEAD 00001610 ** TO ADDRESS MASTER SCHEDULER 00001620 ** RESIDENT DATA AREA * 00001630 ** 2 CVTZDTAB PTR(31), /* ADDR OF I/O DEVICE 00001640 ** CHARACTERISTIC TABLE * 00001650 ** 2 CVTXITP PTR(31), /* ADDR OF ERROR INTERPRETER 00001660 ** ROUTINE * 00001670 ** 00001680 ** 2 CVTDAR PTR(31), /* ADDR OF I/O CONTROL BLOCK 00001690 ** COMPLEX ACCESSED BY DAR * 00001700 ** 00001710 ** 00001720 ** 2 CVT0FN00 PTR(31), /* ENTRY POINT ADDR TO FINCH * 00001730 ** 2 CVTEXIT CHAR(2), /* AN SVC 3 INSTRUCTION * 00001740 ** 2 CVTBRET CHAR(2), /* A BCR 15,14 INSTRUCTION * 00001750 ** 2 CVTSVDCB PTR(31), /* ADDR OF DCB FOR SYS1.SVCLIB * 00001760 ** 2 CVTTPC PTR(31), /* ADDR OF PSEUDO CLOCK FOR 00001770 ** TIMER ROUTINE * 00001780 ** 2 CVTPBLDL PTR(31), /* BRANCH AND LINK ENTRY POINT 00001790 ** TO BLDL ROUTINE * 00001800 ** 2 CVTSJQ PTR(31), /* ADDR OF SELECTED JOB QUEUE * 00001810 ** 2 CVTCUCB PTR(31), /* ADDR OF TABLE WITH CONSOLE 00001820 ** UCB ADDR * 00001830 ** 2 CVTQTE00 PTR(31), /* ADDR OF TIMER ENQUEUE 00001840 ** ROUTINE * 00001850 ** 2 CVTQTD00 PTR(31), /* ADDR OF TIMER DEQUEUE 00001860 ** ROUTINE * 00001870 ** 2 CVTSTB PTR(31), /* ADDR OF I/O DEVICE STATISTIC 00001880 ** TABLE * 00001890 ** 2 CVTDCB CHAR(1), /* OPERATING SYSTEM 00001900 ** CONFIGURATION * 00001910 ** 4 * BIT(1), /* RESERVED * 00001920 ** 4 CVT1SSS BIT(1), /* - PCP * 00001930 ** 4 CVT2SPS BIT(1), /* - MFT * 00001940 ** 4 CVT4MS1 BIT(1), /* - MVT * 00001950 ** 4 * BIT(1), /* RESERVED * 00001960 ** 4 CVT4MPS BIT(1), /* - MULTIPROCESSING * 00001970 ** 4 * BIT(1), /* RESERVED * 00001980 ** 4 * BIT(1), /* RESERVED * 00001990 ** 2 CVTDCBA PTR(24) BDY(WORD,2), 00002000 ** /* ADDR OF DCB FOR SYS1.LOGREC * 00002010 ** 2 CVTIOQET PTR(31), /* ADDR OF REQUEST ELEMENT 00002020 ** TABLE * 00002030 ** 2 CVTIXAVL PTR(31), /* ADDR OF I/O SUPERVISOR'S 00002040 ** FREELIST POINTER * 00002050 ** 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN 00002060 ** NUCLEUS * 00002070 ** 2 CVTFBOSV PTR(31), /* ADDR OF PROGRAM FETCH 00002080 ** ROUTINE * 00002090 ** 2 CVT0DS PTR(31), /* ADDR OF ENTRY POINT OF 00002100 ** DISPATCHER * 00002110 ** 2 CVTILCH PTR(31), /* ADDR OF LOGICAL CHANNEL WORD 00002120 ** TABLE * 00002130 ** 2 CVTIERLC PTR(31), /* ADDR OF ASYNCHRONOUS EXIT 00002140 ** QUEUE * 00002150 ** 2 CVTMSER PTR(31), /* ADDR OF MASTER SCHEDULER 00002160 ** RESIDENT DATA AREA (ADDR OF 00002170 ** MAJOR QCB IN PCP) * 00002180 ** 2 CVT0PT01 PTR(31), /* ADDR OF BRANCH ENTRY POINT 00002190 ** OF POST ROUTINE * 00002200 ** 2 CVTTRMTB PTR(31), /* ADDR OF QTAM TERMINAL TABLE * 00002210 ** 2 CVTHEAD PTR(31), /* ADDR OF HIGHEST PRIORITY TCB 00002220 ** IN READY QUEUE * 00002230 ** 2 CVTMZ00 PTR(31), /* HIGHEST STORAGE ADDRESS * 00002240 ** 2 CVT1EF00 PTR(31), /* ADDR OF ROUTINE WHICH 00002250 ** CREATES IRBS FOR EXITS * 00002260 ** 2 CVTQOCR PTR(31), /* ADDR OF A GFX PARM LIST 00002270 ** WORD, OR ZERO (RESERVED IN 00002280 ** PCP) * 00002290 ** 2 CVTQMWR PTR(31), /* ADDR OF QMGR COMMUNICATION 00002300 ** DATA AREA (RESERVED IN PCP) * 00002310 ** 2 CVTSNCTR FIXED(15), /* SERIAL DATA SET SEQUENCE 00002320 ** NUMBER COUNTER * 00002330 ** 2 CVTOPTA CHAR(1), /* FLAGS * 00002340 ** 3 CVTCCH BIT(1), /* - CCH OPTION PRESENT 00002350 ** (MVT/MFT) * 00002360 ** 3 CVTAPR BIT(1), /* AUTOMATIC PATH RETRY -- 00002370 ** I/O RECOVERY MGT (MVT/MFT) */ 00002380 ** 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 00002390 ** --I/O RECOVERY MGT (MVT/MFT) * 00002400 ** 3 CVTNIP BIT(1), /* - NIP PROCESSING * 00002410 ** 3 CVTATTCH BIT(1), /* ATTACH OPERATIVE (MFT) * 00002420 ** 3 CVTHIAR BIT(1), /* MAIN STORAGE HIERARCHY 00002430 ** SUPPORT OPERATIVE * 00002440 ** 3 CVTASCII BIT(1), /* USAS(CI)I OPTION PRESENT * 00002450 ** 3 * BIT(1), /* RESERVED * 00002460 ** 2 CVTOPTB CHAR(1), /* RESERVED * 00002470 ** 3 CVTPROT BIT(1), /* STORE PROTECTION SYSGENED * 00002480 ** 3 * BIT(1), /* RESERVED * 00002490 ** 3 CVTTOD BIT(1), /* CPU HAS TIME OF DAY CLOCK * 00002500 ** 3 * BIT(5), /* RESERVED * 00002510 ** 00002520 ** 2 CVTQCDSR PTR(31), /* MVT/MFT: CDE SEARCH ROUTINE 00002530 ** ADDR */ 00002540 ** 2 CVTQLPAQ PTR(31), /* MVT/MFT: ADDR OF TOP CDE IN LP 00002550 ** QUEUE */ 00002560 ** 00002570 ** 2 CVTMPCVT PTR(31), /* MVT: ADDR OF M65MP SECONDARY 00002580 ** CVT -- MFT/PCP: RESERVED * 00002590 ** 2 CVTSMCA PTR(31), /* ADDR OF SMCA * 00002600 ** 2 CVTABEND PTR(31), /* MVT: ADDR OF SECONDARY CVT 00002610 ** -- MFT/PCP: RESERVED * 00002620 ** 2 CVTUSER PTR(31), /* FIELD AVAILABLE TO USER * 00002630 ** 00002640 ** 00002650 ** /* MFT/MVT CVT EXTENSION * 00002660 ** 00002670 ** 2 * PTR(31), /* RESERVED * 00002680 ** 2 CVTQABST CHAR (2), /* MVT: AN SVC 13 INSTRUCTION 00002690 ** -- MFT: RESERVED * 00002700 ** 2 CVTLNKSC CHAR(2), /* AN SVC 6 (LINK) INSTRUCTION 00002710 ** (MFT WITH SUBTASKING) * 00002720 ** 2 CVTTSCE PTR(31), /* ADDR OF FIRST TSCE * 00002730 ** 2 CVTPATCH PTR(31), /* ADDR OF FE PATCH AREA * 00002740 ** 2 CVTRMS PTR(31), /* ADDRESS OF RMS WORK AREA * 00002750 ** 2 CVTTSCVT PTR(31), /* ADDR OF TIME SHARING CVT * 00002760 ** 3 CVTTSFLG CHAR(1), /* TIME SHARING OPTION FLAGS * 00002770 ** 4 CVTTSRDY BIT(1), /* TSO READY AND INIT * 00002780 ** 4 * BIT(7), /* RESERVED * 00002790 ** 3 CVTTSCVB PTR(24), /* ADDR OF TIME SHARING CVT * 00002800 ** 2 CVT0SCR1 PTR(31), /* ADDR OF RPS SECTOR 00002810 ** CONVERTER * 00002820 ** 2 * PTR(31), /* RESERVED * 00002830 ** 2 CVTAQAVT PTR(31), /* POINTER TO WORD CONTAINING 00002840 ** ADDR OF TCAM VECTOR TABLE * 00002850 ** 3 CVTTCMFG CHAR(1), /* TCAM FLAGS * 00002860 ** 4 CVTTCRDY BIT(1), /* TCAM RUNNING * 00002870 ** 4 * BIT(7), /* RESERVED * 00002880 ** 3 CVTAQAVB PTR(24), /* POINTER TO WORD CONTAINING 00002890 ** ADDR OF TCAM VECTOR TABLE */ 00002900 ** 00002910 ** /* MFT WITH SUBTASKING CVT EXTENSION * 00002920 ** 00002930 ** 2 CVTTATA PTR(31), /* ADDR OF P0 TCB POINTER * 00002940 ** 3 CVTTSKS PTR(8), /* MAXIMAL NUMBER OF TCB ADDR 00002950 ** TAB ENTRIES * 00002960 ** 3 CVTTAT PTR(24) BDY(WORD,2), 00002970 ** /* ADDR OF P0 TCB POINTER * 00002980 ** 2 CVTSYST PTR(8), /* NUMBER OF SYSGEN'D TCB'S * 00002990 ** 2 * CHAR(3); /* RESERVED * 00003000 ** 00003010 ** /* PCP OVERLAY * 00003020 ** 00003030 ** DECLARE 00003040 ** 1 * BASED(ADDR(CVTQCDSR ) ), /* PCP OVERLAY * 00003050 ** 2 CVTCRTTR CHAR(3), /* TTR OF JCT FOR RESTART (PCP) * 00003060 ** 2 CVTSTUSA CHAR(1), /* STATUS BYTE A * 00003070 ** 3 * BIT(1), /* RESERVED * 00003080 ** 3 * BIT(1), /* RESERVED * 00003090 ** 3 * BIT(1), /* RESERVED * 00003100 ** 3 * BIT(1), /* RESERVED * 00003110 ** 3 CVTCHPTR BIT(1), /* - REQUESTED AUTOMATIC 00003120 ** CHECKPOINT RESTART WAS 00003130 ** INITIATED * 00003140 ** 3 CVTSTEPR BIT(1), /* - REQUESTED AUTOMATIC STEP 00003150 ** RESTART WAS INITIATED * 00003160 ** 3 CVTDATA BIT(1), /* - DD DATA STATEMENT IN INPUT 00003170 ** STREAM AND DATA HAS NOT BEEN 00003180 ** READ * 00003190 ** 3 * BIT(1), /* RESERVED * 00003200 ** 2 * CHAR(2), /* RESERVED * 00003210 ** 2 * CHAR(2); /* RESERVED * 00003220 ** 00003230 ** /* CVT PREFIX * 00003240 ** 00003250 ** DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX * 00003260 ** 2 * CHAR(248), /* RESERVED * 00003270 ** 2 * CHAR(2), /* RESERVED * 00003280 ** 2 CVTMDL CHAR(2), /* CPU MODEL NUMBER IN SIGNLESS 00003290 ** PACKED DECIMAL, I.E., A 00003300 ** MODEL 50 WOULD BE REPRESENTED 00003310 ** AS 0050 HEX * 00003320 ** 2 CVTRELNO CHAR(4); /* OS RELEASE NUMBER (EBCDIC) * 00003330 ** 00003340 ** /* END OF CVT MACRO * 00003350 ** 00003360 * DCL TCBPTR PTR(31) BASED(CVTTCBP+4); /* CURRENT */ 00003370 * /* TCB ADDRESS */ 00003380 ** /* TASK CONTROL BLOCK * 00003390 ** /* RELEASE 20 * 00003400 ** 00003410 ** /* TCB PREFIX * 00003420 ** 00003430 ** DECLARE 00003440 ** 1 TCBFIX BASED(TCBPTR-32), 00003450 ** 00003460 ** 2 TCBFRS CHAR(32), /* FLOATING POINT REGISTER SAVE 00003470 ** AREA * 00003480 ** 3 TCBFRS0 CHAR(8), /* SAVE AREA FOR FLOATING 00003490 ** POINT REGISTER 0 * 00003500 ** 3 TCBFRS2 CHAR(8), /* SAVE AREA FOR FLOATING 00003510 ** POINT REGISTER 2 * 00003520 ** 3 TCBFRS4 CHAR(8), /* SAVE AREA FOR FLOATING 00003530 ** POINT REGISTER 4 * 00003540 ** 3 TCBFRS6 CHAR(8); /* SAVE AREA FOR FLOATING 00003550 ** POINT REGISTER 6 * 00003560 ** 00003570 ** /* TCB PROPER * 00003580 ** 00003590 ** DECLARE 00003600 ** 1 TCB BASED(TCBPTR), 00003610 ** 00003620 ** 2 TCBRBP PTR(31), /* PTR TO TOP RB ON RB CHAIN * 00003630 ** 2 TCBPIE PTR(31), /* ADDR OF PROGRAM INTERRUPT 00003640 ** ELEMENT (PIE) * 00003650 ** 2 TCBDEB PTR(31), /* ADDR OF THE DEB QUEUE * 00003660 ** 2 TCBTIO PTR(31), /* ADDR OF THE TASK I/O TABLE 00003670 ** (TIOT) * 00003680 ** 2 TCBCMP CHAR(4), /* TASK COMPLETION CODE * 00003690 ** 3 TCBCMPF CHAR(1), /* COMPLETION FLAGS * 00003700 ** 4 TCBCREQ BIT(1), /* - A DUMP HAS BEEN REQUESTED * 00003710 ** 4 TCBCSTEP BIT(1), /* - A STEP ABEND HAS BEEN 00003720 ** REQUESTED (MVT) * 00003730 ** 4 TCBCPP BIT(1), /* - SECOND ABEND LOAD OVERLAID 00003740 ** PP STORAGE (PCP/MFT) FOR 00003750 ** FIRST LOAD OVERLAY SEE 00003760 ** TCBFLGS * 00003770 ** 4 * BIT(1), /* RESERVED * 00003780 ** 4 TCBCDBL BIT(1), /* - A DOUBLE ABEND HAS 00003790 ** OCCURRED * 00003800 ** 4 TCBCWTO BIT(1), /* - DUMP MSG TO BE ISSUED TO 00003810 ** OPR * 00003820 ** 4 TCBCIND BIT(1), /* - SCHEDULER TO PRINT 00003830 ** INDICATIVE DUMP * 00003840 ** 4 TCBCMSG BIT(1), /* - ABEND MSG PROVIDED TO BE 00003850 ** PRINTED BY ABDUMP * 00003860 ** 3 TCBCMPC CHAR(3), /* SYSTEM (FIRST 12 BITS) AND 00003870 ** USER (SECOND 12) COMPLETION 00003880 ** CODES * 00003890 ** 2 TCBTRN PTR(31), /* ADDR OF CONTROL CORE TABLE * 00003900 ** 3 TCBABF CHAR(1), /* FLAG BYTE * 00003910 ** 4 TCBMOD91 BIT(1), /* - BOTH TESTRAN AND DECIMAL 00003920 ** SIMULATOR ON A MOD 91 * 00003930 ** 4 TCBNOCHK BIT(1), /* - SUPPRESS TAKING 00003940 ** CHECKPOINTS FOR THIS STEP 00003950 ** (MVT/MFT JOB STEP TCB) * 00003960 ** 4 TCBGRPH BIT(1), /* - GRAPHICS FOREGROUND JOB OR 00003970 ** GRAPHIC JOB PROCESSOR * 00003980 ** 4 * BIT(1), /* RESERVED * 00003990 ** 4 TCBTCPP BIT(1), /* - TCAM POST-PENDING (RORI) * 00004000 ** 4 TCBTCP BIT(1), /* - TEST TASK - USED BY TEST 00004010 ** SVC * 00004020 ** 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 00004030 ** CLEAN-UP BEFORE ABNORMAL 00004040 ** TERMINATION CAN BE INVOKED * 00004050 ** 4 * BIT(1), /* RESERVED * 00004060 ** 3 TCBTRNB PTR(24) BDY(BYTE), 00004070 ** /* ADDR OF CONTROL CORE TABLE * 00004080 ** 2 TCBMSS PTR(31), /* ADDR OF THE BOUNDARY BOX 00004090 ** (PCP/MFT) ADDR OF LAST SPQE 00004100 ** ON MSS QUEUE (MVT) * 00004110 ** 3 TCBNROC PTR(8), /* NONROLLOUTABLE COUNT FIELD 00004120 ** (MVT ONLY) ZERO MEANING 00004130 ** ROLLOUTABLE * 00004140 ** 3 TCBMSSB PTR(24) BDY(BYTE), 00004150 ** /* ADDR OF THE BOUNDARY BOX 00004160 ** (PCP/MFT) ADDR OF LAST SPQE 00004170 ** ON MSS QUEUE (MVT) * 00004180 ** 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY * 00004190 ** 3 TCBFLAG BIT(4), /* - PROTECTION KEY * 00004200 ** 3 TCBZERO BIT(4), /* - ZERO * 00004210 ** 2 TCBFLGS CHAR(5), /* FLAGS * 00004220 ** 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE * 00004230 ** 4 TCBFA BIT(1), /* - ABNORMAL TERMINATION IN 00004240 ** PROGRESS * 00004250 ** 4 TCBFE BIT(1), /* - NORMAL TERMINATION IN 00004260 ** PROGRESS * 00004270 ** 4 TCBFERA BIT(1), /* - ABEND INITIATED BY 00004280 ** RESIDENT ABTERM (PCP/MFT) 00004290 ** ENTER ABEND ERASE ROUTINE 00004300 ** WHEN IN CONTROL AGAIN (MVT) * 00004310 ** 4 TCBRECUR BIT(1), /* - RECURSION THRU ABEND 00004320 ** PERMITTED (PCP/MFT) ENTER 00004330 ** ABEND PURGE ROUTINE WHEN IN 00004340 ** CONTROL AGAIN (MVT) * 00004350 ** 4 TCBPDUMP BIT(1), /* - PREVENT DUMP INDICATOR 00004360 ** (MVT) * 00004370 ** 4 TCBFT BIT(1), /* - TOP TASK IN TREE BEING 00004380 ** ABTERMED (MVT) CLOSE 00004390 ** INITIATED BY ABEND (MFT) 00004400 ** DUMP PROCESSING INITIATED IN 00004410 ** ABEND (PCP) * 00004420 ** 4 TCBFS BIT(1), /* - ABTERM DUMP COMPLETED 00004430 ** (MVT) ABEND OVERLAID 00004440 ** PROBLEM PROGRAM STORAGE 00004450 ** (MFT) * 00004460 ** 4 TCBFX BIT(1), /* - PROHIBIT ASYNCHRONOUS EXIT 00004470 ** QUEUEING (MVT/MFT ONLY) * 00004480 ** 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE * 00004490 ** 4 TCBFOINP BIT(1), /* - ABEND OPERANDS SAVED IN 00004500 ** TCBCMP (MVT) ABEND 00004510 ** PROHIBITED FOR THIS SYSTEM 00004520 ** TASK (PCP/MFT) * 00004530 ** 4 TCBFSTI BIT(1), /* - SECOND JOB STEP INTERVAL 00004540 ** HAS EXPIRED (MVT INITIATOR 00004550 ** TCB) * 00004560 ** 4 TCBFRA BIT(1), /* - JOB STEP CAN CAUSE ROLLOUT 00004570 ** (MVT JOBSTEP TCB) * 00004580 ** 4 TCBFSMC BIT(1), /* - TASK HAS ISSUED SYSTEM 00004590 ** MUST COMPLETE AND SET ALL 00004600 ** OTHER TASKS IN THE SYSTEM 00004610 ** NONDISPATCHABLE * 00004620 ** 4 TCBFJMC BIT(1), /* - TASK HAS ISSUED STEP MUST 00004630 ** COMPLETE AND TURNED OFF ALL 00004640 ** OTHER TASKS IN THE STEP * 00004650 ** 4 TCBFDSOP BIT(1), /* - SYSABEND OPEN FOR JOBSTEP 00004660 ** (MVT) DUMP PROCESSING 00004670 ** INITIATED IN ABEND (PCP/MFT) * 00004680 ** 4 TCBFETXR BIT(1), /* - ETXR TO BE SCHEDULED * 00004690 ** 4 TCBFTS BIT(1), /* - MEMBER OF TIME-SLICING 00004700 ** GROUP (MVT/MFT) * 00004710 ** 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE * 00004720 ** 4 TCBFSM BIT(1), /* - ALL PSW'S IN SUPERVISOR 00004730 ** STATE (MVT) * 00004740 ** 4 TCBFRI BIT(1), /* - STEP HAS CAUSED ROLLOUTS 00004750 ** THAT ARE STILL IN EFFECT 00004760 ** (MVT JOBSTEP TCB) * 00004770 ** 4 TCBABTRM BIT(1), /* - ABTERM BIT TO PREVENT 00004780 ** MULTIPLE ABENDS (MVT) EXIT 00004790 ** EFFECTOR--SYSTEM ERROR 00004800 ** ROUTINES OPERATING FOR THIS 00004810 ** TASK (PCP/MFT) * 00004820 ** 4 TCBREC BIT(1), /* - VALID RECURSION BIT (MVT) * 00004830 ** 4 TCBRECDE BIT(4), /* - VALID RECURSION 00004840 ** CONFIGURATION BITS (MVT) * 00004850 ** 5 TCBFLREG BIT(1), /* - FLOATING POINT REGISTERS 00004860 ** EXIST (PCP/MFT) * 00004870 ** 5 TCBSCH BIT(1), /* - JOB SCHEDULER ROUTINES 00004880 ** IN PROCESS (PCP/MFT) * 00004890 ** 5 TCBPKCHG BIT(1), /* - XCTL IS CHANGING PROTECT 00004900 ** KEY IN PSW FROM ZERO 00004910 ** TO THAT USED BY PROBLEM 00004920 ** PROGRAM (PCP/MFT) * 00004930 ** 5 * BIT(1), /* - RESERVED (PCP/MFT) * 00004940 ** 3 TCBFLGS4 CHAR(1), /* NONDISPATCHABILITY FLAGS 00004950 ** (MVT) * 00004960 ** 4 TCBNDUMP BIT(1), /* - ABDUMP NON-DISP. INDICATOR * 00004970 ** 4 TCBSER BIT(1), /* - SER1 NON-DISP. INDICATOR * 00004980 ** 4 TCBRQENA BIT(1), /* - I/O RQE'S EXHAUSTED * 00004990 ** 4 * BIT(1), /* RESERVED * 00005000 ** 4 * BIT(1), /* RESERVED * 00005010 ** 4 TCBMPCVQ BIT(1), /* - VARY OR QUIESCE IN 00005020 ** MULTIPROCESSING SYSTEM * 00005030 ** 4 TCBMPCND BIT(1), /* - M65 MULTIPROCESSING 00005040 ** NON-DISP. INDICATOR FOR ALL 00005050 ** CPU'S * 00005060 ** 4 TCBONDSP BIT(1), /* - CURRENT TASK ABTERMED AND 00005070 ** NDSP WHILE DUMP DATA SET 00005080 ** BEING OPENED FOR ANOTHER TASK 00005090 ** IN SAME JOB STEP * 00005100 ** 3 TCBFLGS5 CHAR(1), /* MORE NONDISPATCHABILITY 00005110 ** FLAGS (MVT) * 00005120 ** 4 TCBFC BIT(1), /* - TASK TERMINATED * 00005130 ** 4 TCBABWF BIT(1), /* - ABNORMAL WAIT * 00005140 ** 4 TCBWFC BIT(1), /* - TASK IS WAITING FOR SPACE 00005150 ** REQUESTED BY ROLLOUT * 00005160 ** 4 TCBFRO BIT(1), /* - JOB STEP HAS BEEN ROLLED 00005170 ** OUT * 00005180 ** 4 TCBSYS BIT(1), /* - ANOTHER TASK IS IN SYSTEM 00005190 ** MUST COMPLETE STATUS * 00005200 ** 4 TCBSTP BIT(1), /* - ANOTHER TASK IN JS IS IN 00005210 ** STEP MUST COMPLETE STATUS * 00005220 ** 4 TCBFCD1 BIT(1), /* - INITIATOR WAITING FOR 00005230 ** REGION * 00005240 ** 4 TCBPNDSP BIT(1), /* - PRIMARY NONDISPATCHABILITY 00005250 ** FLAG * 00005260 ** 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (MVT) 00005270 ** ENQUEUE COUNT (PCP/MFT) * 00005280 ** 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY * 00005290 ** 2 TCBLLS PTR(31), /* ADDR OF LAST LLE IN LOAD 00005300 ** LIST (MVT) ADDR OF LAST RB 00005310 ** FOR PROGRAM LOADED VIA LOAD 00005320 ** (PCP/MFT) * 00005330 ** 2 TCBJLB PTR(31), /* ADDR OF JOBLIB DCB * 00005340 ** 2 TCBJPQ PTR(31), /* ADDR OF LAST CDE FOR JPA 00005350 ** CONTROL QUEUE (MVT) ADDR OF 00005360 ** FIRST TCB FOR JOBSTEP (MFT 00005370 ** WITH SUBTASKING) * 00005380 ** 3 TCBPURGE CHAR(1), /* PURGE FLAGS (MVT) * 00005390 ** 4 TCBJPQF BIT(1), /* - JPQ PURGE FLAG * 00005400 ** 4 * BIT(1), /* RESERVED * 00005410 ** 4 * BIT(1), /* RESERVED * 00005420 ** 4 * BIT(1), /* RESERVED * 00005430 ** 4 * BIT(1), /* RESERVED * 00005440 ** 4 * BIT(1), /* RESERVED * 00005450 ** 4 * BIT(1), /* RESERVED * 00005460 ** 4 * BIT(1), /* RESERVED * 00005470 ** 3 TCBJPQB PTR(24) BDY(BYTE), 00005480 ** /* ADDR OF LAST CDE FOR JPA 00005490 ** CONTROL QUEUE (MVT) ADDR OF 00005500 ** FIRST TCB FOR JOBSTEP (MFT 00005510 ** WITH SUBTASKING) * 00005520 ** 2 TCBGRS CHAR(64), /* GENERAL REGISTER SAVE AREA * 00005530 ** 3 TCBGRS0 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 0 * 00005540 ** 3 TCBGRS1 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 1 * 00005550 ** 3 TCBGRS2 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 2 * 00005560 ** 3 TCBGRS3 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 3 * 00005570 ** 3 TCBGRS4 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 4 * 00005580 ** 3 TCBGRS5 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 5 * 00005590 ** 3 TCBGRS6 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 6 * 00005600 ** 3 TCBGRS7 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 7 * 00005610 ** 3 TCBGRS8 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 8 * 00005620 ** 3 TCBGRS9 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 9 * 00005630 ** 3 TCBGRS10 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 10 * 00005640 ** 3 TCBGRS11 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 11 * 00005650 ** 3 TCBGRS12 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 12 * 00005660 ** 3 TCBGRS13 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 13 * 00005670 ** 3 TCBGRS14 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 14 * 00005680 ** 3 TCBGRS15 PTR(31) BDY(BYTE), /* SAVE AREA FOR REGISTER 15 * 00005690 ** 2 TCBFSA PTR(31), /* ADDR OF FIRST PROBLEM 00005700 ** PROGRAM SAVE AREA * 00005710 ** 3 TCBQEL PTR(8), /* ENQUEUE COUNT (MVT) TCB 00005720 ** IDENTIFIER FIELD (PCP/MFT) * 00005730 ** 3 TCBFSAB PTR(24) BDY(BYTE), 00005740 ** /* ADDR OF FIRST PROBLEM 00005750 ** PROGRAM SAVE AREA * 00005760 ** 2 TCBTCB PTR(31), /* ADDR OF NEXT LOWER PRIRTITY 00005770 ** TCB ON READY QUEUE (MVT/MFT) * 00005780 ** 2 TCBTME PTR(31), /* ADDRESS OF TIMER QUEUE 00005790 ** ELEMENT * 00005800 ** 2 TCBJSTCB PTR(31), /* ADDR OF PARTITION 00005810 ** INFORMATION BLOCK (MFT) ADDR 00005820 ** OF FIRST JOBSTEP TCB (MVT) 00005830 ** OR OF THIS TCB IF KEY ZERO * 00005840 ** 3 TCBPIBT CHAR(1), /* PARTITION TYPE * 00005850 ** 4 TCBPART BIT(2), /* - PARTITION FLAG BITS (MFT 00005860 ** ONLY) * 00005870 ** 4 TCBSIZE BIT(1), /* - LARGE PARTITION (1)--SMALL 00005880 ** PARTITION (0) * 00005890 ** 4 TCBSTOP BIT(1), /* - CPU TIMING STOPPED BY 00005900 ** FINCH UNTIL TRANSIENT 00005910 ** LOADED * 00005920 ** 4 * BIT(1), /* RESERVED * 00005930 ** 4 * BIT(1), /* RESERVED * 00005940 ** 4 TCBWRITE BIT(1), /* - WTR PART (USED BY ABEND) * 00005950 ** 4 TCBSCHED BIT(1), /* - SCHEDULER IN CONTROL - 00005960 ** USED BY ABEND - TURNED OFF 00005970 ** WHEN TIOT WRITTEN TO JOB 00005980 ** QUEUE * 00005990 ** 3 TCBJSTCA PTR(24) BDY(BYTE), 00006000 ** /* ADDR OF PARTITION 00006010 ** INFORMATION BLOCK (MFT) ADDR 00006020 ** OF FIRST JOBSTEP TCB (MVT) 00006030 ** OR OF THIS TCB IF KEY ZERO * 00006040 ** 2 TCBNTC PTR(31), /* ADDR OF NEXT SISTER TCB 00006050 ** (ZERO IF THIS IS LAST 00006060 ** SUBTASK) (MFT WITH 00006070 ** SUBTASKING AND MVT) * 00006080 ** 2 TCBOTC PTR(31), /* ADDR OF MOTHER TCB (MFT WITH 00006090 ** SUBTASKING AND MVT) * 00006100 ** 2 TCBLTC PTR(31), /* ADDR OF LAST DAUGHTER TCB ( 00006110 ** ZERO IF THIS IS IT )(MFT 00006120 ** WITH SUBTASKING AND MVT) * 00006130 ** 2 TCBIQE PTR(31), /* ADDR OF IQE FOR EXTR 00006140 ** SCHEDULING (MFT WITH 00006150 ** SUBTASKING AND MVT) * 00006160 ** 2 TCBECB PTR(31), /* ADDR OF ECB TO BE POSTED 00006170 ** UPON TERMINATION (MFT WITH 00006180 ** SUBTASKING AND MVT) * 00006190 ** 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS * 00006200 ** 3 TCBTSTSK BIT(1), /* - SWAPPED TS TASK * 00006210 ** 3 TCBSTPPR BIT(1), /* - TASK SHOULD BE MADE NDSP 00006220 ** VIA TCBSTPP WHEN IT IS NO 00006230 ** LONGER RUNNING A PRIVILEGED 00006240 ** PGM * 00006250 ** 3 TCBATT BIT(1), /* - TASK SHOULD NOT HAVE 00006260 ** ATTENTION EXITS SCHEDULED ON 00006270 ** IT BY EXIT EFFECTOR * 00006280 ** 3 TCBTIOTG BIT(1), /* - PURGE TGET/TPUT AFTER 00006290 ** ATTENTION * 00006300 ** 3 * BIT(1), /* RESERVED * 00006310 ** 3 * BIT(1), /* RESERVED * 00006320 ** 3 * BIT(1), /* RESERVED * 00006330 ** 3 * BIT(1), /* RESERVED * 00006340 ** 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 00006350 ** WHICH MUST BE ISSUED BEFORE 00006360 ** TASK IS MADE DISPATCHABLE - 00006370 ** FIELD NOT RESTRICTED TO TSO * 00006380 ** 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TS TASK * 00006390 ** 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TS 00006400 ** TASK * 00006410 ** 00006420 ** /* MVT OVERLAY * 00006430 ** 00006440 ** 2 TCBPQE PTR(31); /* POINTER TO DPQE MINUS 8 FOR 00006450 ** THE JOB STEP (MVT) * 00006460 ** 00006470 ** /* MFT OVERLAY * 00006480 ** 00006490 ** DECLARE 00006500 ** 1 TCBOVLY1 BASED(ADDR(TCBPQE)), 00006510 ** 00006520 ** 2 TCBFTLMP PTR(8), /* TASK LIMIT PRIORITY (MFT) * 00006530 ** 2 TCBFTFLG CHAR(3), /* ABEND FLAGS (MFT WITH 00006540 ** SUBTASKS) * 00006550 ** 3 TCBFTFL1 CHAR(1), /* ABEND FLAGS (MFT WITH 00006560 ** SUBTASKS) * 00006570 ** 4 * BIT(1), /* RESERVED * 00006580 ** 4 * BIT(1), /* RESERVED * 00006590 ** 4 * BIT(1), /* RESERVED * 00006600 ** 4 * BIT(1), /* RESERVED * 00006610 ** 4 * BIT(1), /* RESERVED * 00006620 ** 4 TCBFTTOP BIT(1), /* - TOP TASK IN TREE BEING 00006630 ** ABTERMED * 00006640 ** 4 TCBFTCOM BIT(1), /* - ABTERM DUMP SUCCESSFULLY 00006650 ** COMPLETED * 00006660 ** 4 TCBFTSYN BIT(1), /* - ASYNCHRONOUS EXITS MAY NOT 00006670 ** BE SCHEDULED * 00006680 ** 3 TCBFTFL2 CHAR(1), /* ABEND FLAGS (MFT WITH 00006690 ** SUBTASKS) * 00006700 ** 4 TCBFTCMP BIT(1), /* - ABEND MACRO OPERANDS SAVED 00006710 ** IN TCBCMP FIELD * 00006720 ** 4 * BIT(1), /* RESERVED * 00006730 ** 4 * BIT(1), /* RESERVED * 00006740 ** 4 * BIT(1), /* RESERVED * 00006750 ** 4 * BIT(1), /* RESERVED * 00006760 ** 4 TCBFTOPN BIT(1), /* - SYSABEND OPEN (JOBSTEP 00006770 ** TCB) * 00006780 ** 4 TCBFTETX BIT(1), /* - ETXR EXIT REQUESTED BY 00006790 ** ATTACHER * 00006800 ** 4 * BIT(1), /* RESERVED * 00006810 ** 3 TCBFTFL3 CHAR(1), /* ABEND FLAGS (MFT WITH 00006820 ** SUBTASKS) * 00006830 ** 4 * BIT(1), /* RESERVED * 00006840 ** 4 * BIT(1), /* RESERVED * 00006850 ** 4 * BIT(1), /* RESERVED * 00006860 ** 4 TCBFTISS BIT(1), /* - OPEN ISSUED FOR SYSABEND * 00006870 ** 4 * BIT(1), /* RESERVED * 00006880 ** 4 TCBFTDUM BIT(1), /* - NO ABTERM DUMPS MAY BE 00006890 ** PROVIDED IN THIS STEP * 00006900 ** 4 * BIT(2), /* RESERVED * 00006910 ** 00006920 ** /* END OF OVERLAYS * 00006930 ** 00006940 ** 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 00006950 ** THIS TASK (MVT) * 00006960 ** 2 TCBSTAB PTR(31), /* ADDR OF STAE CONTROL BLOCK * 00006970 ** 3 TCBNSTAE CHAR(1), /* STAE FLAGS * 00006980 ** 4 TCBSTABE BIT(1), /* - ABEND ENTERED BECAUSE OF 00006990 ** ERROR IN STAE PROC * 00007000 ** 4 TCBQUIES BIT(1), /* - STAE INVOKED PURGE I/O 00007010 ** ROUTINE WITH QUIESCE I/O 00007020 ** OPTION * 00007030 ** 4 TCBXCTL BIT(1), /* - CURRENT SCB HAS XCTL=YES 00007040 ** OPTION * 00007050 ** 4 TCBSCAT BIT(1), /* - SCB WAS CREATED BY A 00007060 ** PROGRAM THAT IS SCATTER 00007070 ** LOADED * 00007080 ** 4 TCBHALT BIT(1), /* - PURGE I/O ROUTINE DID NOT 00007090 ** SUCCESSFULLY QUIESCE I/O BUT 00007100 ** I/O WAS HALTED * 00007110 ** 4 TCBSUPER BIT(1), /* - PROGRAM USING STAE IS IN 00007120 ** SUPERVISOR MODE * 00007130 ** 4 TCBRETRY BIT(1), /* - STAE USER REQUESTED THAT A 00007140 ** RETRY ROUTINE BE SCHEDULED 00007150 ** BUT THAT THE RB CHAIN NOT BE 00007160 ** PURGED * 00007170 ** 4 TCBVALID BIT(1), /* - RETRY ROUTINE AND 00007180 ** PARAMETER LIST ADDRESSES ARE 00007190 ** VALID * 00007200 ** 3 TCBSTABB PTR(24) BDY(BYTE), 00007210 ** /* ADDR OF STAE CONTROL BLOCK * 00007220 ** 2 TCBTCT PTR(31), /* ADDR OF TCT (MFT WITH 00007230 ** SUBTASKING - OTHERWISE 0) * 00007240 ** 3 * CHAR(1), /* RESERVED * 00007250 ** 3 TCBTCTB PTR(24) BDY(BYTE), 00007260 ** /* ADDR OF TCT (MFT WITH 00007270 ** SUBTASKING - OTHERWISE 0) * 00007280 ** 2 TCBUSER PTR(31), /* FIELD AVAILABLE TO THE USER * 00007290 ** 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 00007300 ** FLAGS * 00007310 ** 3 TCBDARP BIT(1), /* - PRIMARY DAR RECURSION - - 00007320 ** DAR FAILURE WHILE WRITING 00007330 ** CORE IMAGE * 00007340 ** 3 TCBDARS BIT(1), /* - SECONDARY DAR RECURSION - 00007350 ** - DAR FAILURE WHILE 00007360 ** ATTEMPTING TO REINSTATE 00007370 ** FAILING REGION/PARTITION * 00007380 ** 3 TCBDARD BIT(1), /* - A DUMP HAS BEEN REQUESTED 00007390 ** FOR A WRITER OR SCHEDULER 00007400 ** ABEND AND THE USER HAS NOT 00007410 ** PROVIDED A SYSABEND DD CARD * 00007420 ** 3 TCBDARC BIT(1), /* - RECURSION PERMITTED IN 00007430 ** CLOSE - AFTER DAR PROCESSING 00007440 ** COMPLETED (PCP) * 00007450 ** 3 TCBDARO BIT(1), /* - SYSTEM ERROR TASK IS 00007460 ** FAILING. DAR DUMP SHOULD NOT 00007470 ** REQUEST ANY ERP PROCESSING * 00007480 ** 3 * BIT(1), /* RESERVED * 00007490 ** 3 * BIT(1), /* RESERVED * 00007500 ** 3 TCBEXSVC BIT(1), /* SVC DUMP IS EXECUTING FOR 00007510 ** THIS TASK * 00007520 ** 2 TCBSCNDY CHAR(3), /* SECONDARY NONDISPATCHABILITY 00007530 ** FLAGS - (IF ANY BIT IN THESE 00007540 ** BYTES IS ON, THEN SO IS THE 00007550 ** PRIMARY NDSP FLAG) * 00007560 ** 3 TCBNDSP1 CHAR(1), /* FIRST BYTE * 00007570 ** 4 TCBDARTN BIT(1), /* - TASK TEMPORARILY 00007580 ** NONDISPATCHABLE - (DAR) * 00007590 ** 4 TCBDARPN BIT(1), /* - TASK PERMANENTLY 00007600 ** NONDISPATCHABLE - (DAR) * 00007610 ** 4 TCBRSTND BIT(1), /* - TASK TEMPORARILY 00007620 ** NONDISPATCHABLE - (RMS/SER) * 00007630 ** 4 TCBRSPND BIT(1), /* - TASK PERMANENTLY 00007640 ** NONDISPATCHABLE - (RMS/SER) 00007650 ** (IF THIS FLAG IS ON THEN THE 00007660 ** PREVIOUS ONE MUST BE TOO) * 00007670 ** 4 * BIT(1), /* RESERVED * 00007680 ** 4 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 00007690 ** MUST BE DELAYED UNTIL TCAM 00007700 ** I/O APPENDAGE OR SVC ROUTINE 00007710 ** HAS COMPLETED EXECUTION 00007720 ** (TCAM IN MULTIPROCESSING 00007730 ** ENVIRONMENT) * 00007740 ** 4 * BIT(1), /* RESERVED * 00007750 ** 4 * BIT(1), /* RESERVED * 00007760 ** 3 TCBNDSP2 CHAR(1), /* SECOND BYTE * 00007770 ** 4 TCBABD BIT(1), /* - SET BY ABDUMP - (MFT WITH 00007780 ** SUBTASKING) * 00007790 ** 4 TCBSTPP BIT(1), /* - TASK NDSP BECAUSE STOPPED 00007800 ** BY SETTASK * 00007810 ** 4 TCBNDSVC BIT(1), /* - TASK NDSP BECAUSE SVC 00007820 ** DUMP IS EXECUTING FOR 00007830 ** ANOTHER TASK * 00007840 ** 4 TCBNDTS BIT(1), /* - TASK NDSP BECAUSE BEING 00007850 ** SWAPPED OUT * 00007860 ** 4 TCBIWAIT BIT(1), /* - TASK NDSP DUE TO INPUT 00007870 ** WAIT * 00007880 ** 4 TCBOWAIT BIT(1), /* - TASK NDSP DUE TO OUTPUT 00007890 ** WAIT * 00007900 ** 4 * BIT(1), /* RESERVED * 00007910 ** 4 TCBABE BIT(1), /* - ABEND ENTERED FOR THIS 00007920 ** TASK - WHILE SYSABEND DCB 00007930 ** OPEN FOR ANOTHER TASK (MFT 00007940 ** WITH SUBTASKING) * 00007950 ** 3 TCBNDSP3 CHAR(1), /* THIRD BYTE * 00007960 ** 4 TCBTERM BIT(1), /* TERMINATED (MFT WITH 00007970 ** SUBTASKING * 00007980 ** 4 TCBABTER BIT(1), /* - TO BE TERMINATED BY ABEND 00007990 ** - (MFT WITH SUBTASKING) * 00008000 ** 4 * BIT(1), /* RESERVED * 00008010 ** 4 * BIT(1), /* RESERVED * 00008020 ** 4 * BIT(1), /* RESERVED * 00008030 ** 4 * BIT(1), /* RESERVED * 00008040 ** 4 * BIT(1), /* RESERVED * 00008050 ** 4 * BIT(1), /* RESERVED * 00008060 ** 2 * FIXED(31), /* RESERVED * 00008070 ** 2 TCBJSCB PTR(31), /* ADDR OF JOB STEP CONTROL 00008080 ** BLOCK * 00008090 ** 3 * CHAR(1), /* RESERVED * 00008100 ** 3 TCBJSCBB PTR(24) BDY(BYTE); 00008110 ** /* ADDR OF JOB STEP CONTROL 00008120 ** BLOCK * 00008130 ** 00008140 ** /* END OF TCB * 00008150 ** DECLARE 00008160 ** 1 TJBX BASED(TJBXPTR), 00008170 ** 2 TJBXFST PTR(31), /* ADDR LOGON TCB WHICH IS 00008180 ** FIRST IN USER READY QUEUE * 00008190 ** 2 TJBXLAST PTR(31), /* ADDR LAST TCB IN USER READY 00008200 ** QUEUE * 00008210 ** 2 TJBXDSE PTR(31), /* ADDR OF DSE USED BY TSO'S 00008220 ** DYN ALLOC * 00008230 ** 2 TJBXSVRB PTR(31), /* ADDR FIRST SVRB PURGED FROM 00008240 ** TRANSIENT AREA QUEUE * 00008250 ** 2 TJBXRQE PTR(31), /* ADDR FIRST RQE PURGED FROM 00008260 ** ASYNCHRONOUS EXIT QUEUE A * 00008270 ** 2 TJBXIQE PTR(31), /* ADDR FIRST IQE PURGED FROM 00008280 ** ASYNCHRONOUS EXIT QUEUE J * 00008290 ** 2 TJBXTAXE FIXED(31), /* QUEUE OF TAXE'S USED TO 00008300 ** SCHEDULE ATTENTION EXITS * 00008310 ** 2 TJBXLECB FIXED(31), /* LOGON ECB POSTED BY RCT * 00008320 ** 2 TJBXPSWD CHAR(8), /* USERS LOGON PASSWORD-IF 00008330 ** BLANK-NOT REQUIRED * 00008340 ** 2 * FIXED(31), /* RESERVED * 00008350 ** 2 TJBXAIQE PTR(31), /* ADDR ATTN IQE CURRENTLY 00008360 ** BEING PROCESSED * 00008370 ** 2 TJBXQPL PTR(31), /* ADDR QUIECSE PARM LIST * 00008380 ** 2 TJBXNQPE FIXED(15), /* NUMBER ENTRIES IN QPL * 00008390 ** 2 TJBXNTCB FIXED(15), /* NUMBER TCBS ACTIVE IN USER 00008400 ** JOB STEP * 00008410 ** 2 TJBXLQPL FIXED(15), /* LENGTH QPL * 00008420 ** 2 TJBXHBFL CHAR(1), /* CUR VAL OF LAST HOLDBUF 00008430 ** LEVEL. USED BY STAX SVC 00008440 ** ROUTINE * 00008450 ** 2 * CHAR(1), /* RESERVED * 00008460 ** 2 TJBXACT FIXED(31), /* TTR OF ACT ON SYSJOBQE * 00008470 ** 2 TJBXAECB PTR(31), /* POINTER TO LOGON/LOGOFF ECB 00008480 ** UNTIL LOGON PROCESSING THEN 00008490 ** TO CSCB CANCEL ECB AFTER 00008500 ** CSCB IS CREATED * 00008510 ** 2 TJBXKEYA PTR(31); /* ADDRESS OF A STORAGE KEY SAVE 00008520 ** AREA USED BY RCT * 00008530 ** 00008540 * DCL DSEMPTR PTR(31); /* MEMBER NAME IN DSE */ 00008550 ** DECLARE 00008560 ** 1 DSE BASED(DSEPTR), 00008570 ** /* *************************************************************** * 00008580 ** 00008590 ** 00008600 ** /* IS USED TO MAINTAIN DATA SET INFORMATION, SUCH AS THE DDNAME-- * 00008610 ** /* ME RELATIONSHIP. IT IS A SERIES OF CHAINED ELEMENTS EACH ONE * 00008620 ** /* ABLE IN SIZE DEPENDENT ON THE INFORMATION PRESENT. * 00008630 ** 00008640 ** 00008650 ** /* *************************************************************** * 00008660 ** 2 DSEFORWD PTR(31), /* ADDRESS OF NEXT DSE BLK(ZERO 00008670 ** IN LAST DSE) * 00008680 ** 2 DSEBCKWD PTR(31), /* ADDRESS OF PREV. DSE BLK 00008690 ** (ZERO IN FIRST DSE) * 00008700 ** 2 DSEBLKSZ FIXED(15), /* TOTAL NO. OF BYTES IN THIS 00008710 ** DSE BLK INCLUDES THIS FIELD 00008720 ** AND TWO PRIOR FIELDS * 00008730 ** 2 DSESTAT CHAR(1), /* THE ALLOCATED STATUS OF 00008740 ** THE DATA SET * 00008750 ** 3 * BIT(1), /* RESERVED * 00008760 ** 3 * BIT(1), /* RESERVED * 00008770 ** 3 * BIT(1), /* RESERVED * 00008780 ** 3 * BIT(1), /* RESERVED * 00008790 ** 3 DSESHR BIT(1), /* SHR * 00008800 ** 3 DSENEW BIT(1), /* NEW * 00008810 ** 3 DSEMOD BIT(1), /* MOD * 00008820 ** 3 DSEOLD BIT(1), /* OLD * 00008830 ** 2 DSECNTRL CHAR(1), /* STATUS OF DATA SETS WHEN 00008840 ** BITS ARE ON AS FOLLOWS * 00008850 ** 3 DSEDYN BIT(1), /* DATA SET ALLOCATED 00008860 ** DYNAMICALLY * 00008870 ** 3 DSENUSED BIT(1), /* DATA SET NOT IN USE * 00008880 ** 3 DSEMEM BIT(1), /* MEMBER FIELD IS PRESENT IN 00008890 ** THIS DSE * 00008900 ** 3 DSEDTIOT BIT(1), /* TIOT ENTRY IS DYNAM * 00008910 ** 3 DSECON BIT(1), /* DATA SET CONCATENATED 00008920 ** DYNAMICALLY * 00008930 ** 3 * BIT(1), /* RESERVED * 00008940 ** 3 DSEPERM BIT(1), /* DATA SET IS PERMAMENTLY 00008950 ** ALLOCATED EQU * 00008960 ** 3 * BIT(1), /* RESERVED * 00008970 ** 2 DSEDDNAM CHAR(8), /* DDNAME AS IT APPEARS IN TIOT * 00008980 ** 2 DSETCBAD PTR(31), /* ADD. OF TCB FOR CP WHICH 00008990 ** SECURED DYNAMIC ALLOC. * 00009000 ** 2 DSETTRPW FIXED(31), /* RELATIVE TTR OF PASSWD FOR 00009010 ** THIS FIELD IS ZERO. * 00009020 ** 2 DSENDISP CHAR(1), /* NORMAL DISPOSITION IND. BY 00009030 ** BIT SETTINGS: EQU EQU EQU 00009040 ** EQU * 00009050 ** 3 * BIT(1), /* RESERVED * 00009060 ** 3 * BIT(1), /* RESERVED * 00009070 ** 3 * BIT(1), /* RESERVED * 00009080 ** 3 * BIT(1), /* RESERVED * 00009090 ** 3 DSEKEP BIT(1), /* KEEP * 00009100 ** 3 DSEDEL BIT(1), /* DELETE * 00009110 ** 3 DSECAT BIT(1), /* CATLG * 00009120 ** 3 DSEUCAT BIT(1), /* UNCATLG * 00009130 ** 2 DSEADISP CHAR(1), /* ABNORMAL DISPOSITION IS IND. 00009140 ** BY SETTING BITS IN THIS 00009150 ** FIELD THE SAME AS IN 00009160 ** DSENDISP * 00009170 ** 3 * BIT(1), /* RESERVED */ 00009180 ** 3 * BIT(1), /* RESERVED */ 00009190 ** 3 * BIT(1), /* RESERVED */ 00009200 ** 3 * BIT(1), /* RESERVED */ 00009210 ** 3 DSEAKEP BIT(1), /* KEEP */ 00009220 ** 3 DSEADEL BIT(1), /* DELETE */ 00009230 ** 3 DSEACAT BIT(1), /* CATALOG */ 00009240 ** 3 DSEAUCAT BIT(1), /* UNCATALOG */ 00009250 ** 2 DSEDSORG CHAR(1), /* ORGANIZATION IND. BY 00009260 ** FOLLOWING BITS: * 00009270 ** 3 DSEIS BIT(1), /* INDEXED SEQUENTIAL * 00009280 ** 3 DSEPS BIT(1), /* PHYSICAL SEQUENTIAL * 00009290 ** 3 DSEDA BIT(1), /* DIRECT ORGANIZATION EQU EQU 00009300 ** EQU * 00009310 ** 3 * BIT(1), /* RESERVED * 00009320 ** 3 * BIT(1), /* RESERVED * 00009330 ** 3 * BIT(1), /* RESERVED * 00009340 ** 3 DSEPO BIT(1), /* PARTITIONED ORGANIZATION * 00009350 ** 3 DSEU BIT(1), /* UNMOVABLE * 00009360 ** 2 DSEDSLNG PTR(8), /* LENGTH OF DATA SET NAME IN 00009370 ** BYTES (1-44) * 00009380 ** 2 DSEDSNAM CHAR(44), /* DATA SET NAME DSE DESCRIBES * 00009390 ** 1 DSEMEMBR CHAR(8) BASED(DSEMPTR); /* FIELD CAN ONLY BE PRESENT 00009400 ** WHEN DATA SET IS OF A 00009410 ** PARTITIONED ORGANIZATION. IT 00009420 ** IS THE MEMBER OF THE PDS 00009430 ** CURRENTLY ALLOCATEDAND IS 00009440 ** PRESENT WHEN BIT TWO OF 00009450 ** CONTROL BYTE IS SET * 00009460 ** 00009470 * DCL PARMPTR PTR(31) REG(3); /* ADDRESS OF DAWT */ 00009480 * /****************************************************************** 00009490 * /* * 00009500 * /* THE FOLLOWING DECLARATION DESCRIBES THE DYNAMIC ALLOCATION * 00009510 * /* WORK TABLE (DAWT). IT IS BUILT BY CONTROL, PASSED TO THE * 00009520 * /* ROUTINES CALLED, AND FREED NORMALLY BY DSE UPDATE OR ABNORMALLY* 00009530 * /* BY THE ROUTINE MAKING AN ERROR EXIT TO THE USER * 00009540 * /* * 00009550 * /****************************************************************** 00009560 * DECLARE 1 DAWT BASED (PARMPTR), 00009570 * 4 DAWTDSE, 00009580 * 8 DAWTXCTL, 00009590 * 12 XCTLAD PTR(31), /* PTR TO XCTL ENTRY POINT * 00009600 * 12 XCTLDCB FIXED(31), /* PTR TO DCB * 00009610 * 12 XCTLEP CHAR(8), /* CONTAINS THE ENTRY POINT NM* 00009620 * 8 PPARMP PTR(31), /* PTS TO SVC PARMAMETER LIST * 00009630 * 8 LNGH FIXED(15), /* CONTAINS THE SIZE OF DAWT * 00009640 * 8 * CHAR(1), /* RESERVED * 00009650 * 8 TIOTNO CHAR(1), /* ENTRY NO. OF TIOT ENTRY * 00009660 * 8 TIOTP PTR(31), /* POINTER TO SUBJECT TIOT NTY* 00009670 * 8 RTCODE FIXED(31), /* RETURN CODE TO USER * 00009680 * 4 DAWTQMPA CHAR(36), /* QUEUE MANAGER PARAMETER AREA 00009690 * 4 DAWTEIOB CHAR(84), /* ECB/IOB FOR Q-MNGR S20201* 00009700 * 4 DAWA1 CHAR(176), /* DAWT WORK AREA ONE * 00009710 * 4 DAWA2 CHAR(176), /* DAWT WORK AREA TWO * 00009720 * 4 DAWTVARY CHAR(48); /* USED LOCALLY BY EACH ROUTIN* 00009730 * /* * 00009740 * 00009750 * 00009760 * /**************************************************************/ 00009770 * /********************* DECLARE DAWTVARY ********************/ 00009780 * /**************************************************************/ 00009790 * 00009800 * DCL 1 * BASED (ADDR(DAWTVARY)), /* DEFINE DAWTVARY */ 00009810 * 4 DD1ADD PTR(31), /* ADDRESS OF DDNAME1 OR */ 00009820 * /* TCB ADDRESS IF BIT 3 OF */ 00009830 * /* VFLAGS IS SET */ 00009840 * 4 DD2ADD PTR(31), /* ADDRESS OF DDNAME2 */ 00009850 * 4 DAW1P PTR(31), /* WORK AREA OR JFCB ADDRESS*/ 00009860 * 4 DSNADD PTR(31), /* DSNAME, DSLENGTH BUFFER */ 00009870 * /* ADDRESS */ 00009880 * 4 ADDNAME1 PTR(31), /* ADDRESS OF DSE CONTAINING*/ 00009890 * /* DDNAME1 OR DSNAME */ 00009900 * 4 ADDNAME2 PTR(31), /* ADDRESS OF DSE CONTAINING*/ 00009910 * /* DDNAME2 */ 00009920 * 4 AFDSE PTR(31), /* ADDRESS OF FIRST DSE */ 00009930 * 4 ANDSE PTR(31), /* ADDRESS OF NEW DSE (FOR */ 00009940 * /* DATASET ONLY) */ 00009950 * 4 ADSNDSE PTR(31), /* ADDRESS OF NEXT DSE ON */ 00009960 * /* CHAIN (AFTER SEARCH) */ 00009970 * 4 * , /* NOT USED BY DSE UPDATE */ 00009980 * 4 * , /* NOT USED BY DSE UPDATE */ 00009990 * 4 * CHAR(4), /* VFLAGS AND CONCOUNT */ 00010000 * 8 VFLAGS, /* VFLAGS */ 00010010 * 12 DDNAME1 BIT(1), /* DDNAME1 FOUND */ 00010020 * 12 DDNAME2 BIT(1), /* DDNAME2 FOUND */ 00010030 * 12 DSNAM BIT(1), /* DSNAME FOUND */ 00010040 * 12 SERCHTCB BIT(1), /* SEARCH ON TCB */ 00010050 * 12 * BIT(4), /* NOT USED BITS */ 00010060 * 8 CONCOUNT CHAR(1), /* NUMBER OF DD'S TO BE */ 00010070 * /* CONCATENATED */ 00010080 * 8 * CHAR(2); /* NOT USED */ 00010090 * 00010100 * /**************************************************************/ 00010110 * /****** DECLARE DAWTVARY FOR THE DSECHAIN SUBROUTINE ******/ 00010120 * /**************************************************************/ 00010130 * 00010140 * DCL 1 * BASED (ADDR(DAWTVARY)), /* DAWTVARY FOR DSECHAIN */ 00010150 * 4 OLDDSE PTR(31), /* ADDRESS OF DSE TO CHANGE */ 00010160 * 4 NEWDSE PTR(31), /* ADDRESS OF DSE TO REPLACE*/ 00010170 * /* OLDDSE */ 00010180 * 4 * , /* NOT USED */ 00010190 * 4 ADDINIT PTR(31), /* ADDRESS OF FIRST DSE */ 00010200 * 4 LASTDSE PTR(31), /* ADDRESS OF LAST DSE */ 00010210 * 4 * CHAR(24), /* NOT USED */ 00010220 * 4 * , /* VFLAGS AND UNUSED */ 00010230 * 8 *, 00010240 * 12 * BIT(5), 00010250 * 12 ONEBLK BIT(1), /* ONLY ONE DSE IN CHAIN */ 00010260 * 12 DSEFRONT BIT(1), /* CHAIN NEW DSE IN FRONT */ 00010270 * 12 DSEBACK BIT(1); /* CHAIN NEW DSE IN BACK */ 00010280 * 00010290 * /**************************************************************/ 00010300 * /******* DEFINE DYNAMIC ALLOCATION PARAMETER LIST *******/ 00010310 * /**************************************************************/ 00010320 * 00010330 * DCL 1 * BASED(PPARMP), 00010340 * 4 PLNGH FIXED(15), /* SIZE OF PARAMETER LIST * 00010350 * 4 PCODE CHAR(1), /* MACRO CODE (1=DATASET) * 00010360 * 4 POPTIONS BIT(8), /* OPTION FLAGS * 00010370 * 7 ODUMMY BIT(1), /* DUMMY SPECIFIED*/ 00010380 * 7 * BIT(1), /* RESERVED */ 00010390 * 7 OTERM BIT(1), /* TERM SPECIFIED */ 00010400 * 7 ODSNAME BIT(1), /* DSNAME SPECIF. */ 00010410 * 7 * BIT(1), /* RESERVED */ 00010420 * 7 * BIT(1), /* RESERVED */ 00010430 * 7 * BIT(1), /* RESERVED */ 00010440 * 7 OEXCH BIT(1), /* INDICATES EXCHANGE */ 00010450 * /* OPTION FOR CONVERT */ 00010460 * 4 PDDNM1 CHAR(8), /* DDNAME1 * 00010470 * 4 * CHAR(1), /* RESERVED * 00010480 * 4 PDDNM2 CHAR(8), /* DDNAME2 * 00010490 * 4 * CHAR(1), /* RESERVED * 00010500 * 4 PDISP1 BIT(8), /* STATUS * 00010510 * 7 * BIT(1), /* RESERVED */ 00010520 * 7 * BIT(1), /* RESERVED */ 00010530 * 7 * BIT(1), /* RESERVED */ 00010540 * 7 * BIT(1), /* RESERVED */ 00010550 * 7 D1SHR BIT(1), /* SHR STATUS */ 00010560 * 7 D1NEW BIT(1), /* NEW STATUS */ 00010570 * 7 D1MOD BIT(1), /* MOD STATUS */ 00010580 * 7 D1OLD BIT(1), /* OLD STATUS */ 00010590 * 4 PDISP2 BIT(8), /* SECONDARY DISPOSITION * 00010600 * 7 * BIT(1), /* RESERVED */ 00010610 * 7 * BIT(1), /* RESERVED */ 00010620 * 7 * BIT(1), /* RESERVED */ 00010630 * 7 * BIT(1), /* RESERVED */ 00010640 * 7 D2KEEP BIT(1), /* KEEP DISP */ 00010650 * 7 D2DEL BIT(1), /* DELETE DISP */ 00010660 * 7 D2CAT BIT(1), /* CATALOG DISP */ 00010670 * 7 D2UNCAT BIT(1), /* UNCATALOC DISP */ 00010680 * 4 PDISP3 BIT(8), /* ALTERNATE DISPOSITION */ 00010690 * 7 * BIT(1), /* RESERVED */ 00010700 * 7 * BIT(1), /* RESERVED */ 00010710 * 7 * BIT(1), /* RESERVED */ 00010720 * 7 * BIT(1), /* RESERVED */ 00010730 * 7 D3KEEP BIT(1), /* KEEP DISP */ 00010740 * 7 D3DEL BIT(1), /* DELETE DISP */ 00010750 * 7 D3CAT BIT(1), /* CATALOC DISP */ 00010760 * 7 D3UNCAT BIT(1), /* UNCATALOG DISP */ 00010770 * 4 PMNM CHAR(8), /* MEMBERNAME * 00010780 * 4 PPRIME CHAR(3), /* PRIME SPACE * 00010790 * 4 PDSNP PTR(31), /* PTR TO DATA SET NAME * 00010800 * 4 PUNM CHAR(8), /* UNIT NAME * 00010810 * 4 PCTB BIT(8), /* SPACE PARAMETER FLAGS * 00010820 * 7 SUNITS BIT(2), /*11=CYL,10=TRK,01=AVGBL* 00010830 * 7 * BIT(1), /* RESERVED */ 00010840 * 7 SRLSE BIT(1), /* RLSE SPECIFIED */ 00010850 * 7 * BIT(1), /* RESERVED */ 00010860 * 7 * BIT(1), /* RESERVED */ 00010870 * 7 * BIT(1), /* RESERVED */ 00010880 * 7 * BIT(1), /* RESERVED */ 00010890 * 4 PSEC CHAR(3), /* SECONDARY SPACE * 00010900 * 4 PCLASS CHAR(1), /* SYSOUT CLASS * 00010910 * 4 PDIREC CHAR(3), /* DIRECTORY SPACE * 00010920 * 4 PFORM CHAR(4), /* SYSOUT FORM NUMBER * 00010930 * 4 PPGMNM CHAR(8), /* SYSOUT PROGRAMNAME * 00010940 * 4 PBLKSIZ FIXED(15), /* AVERAGE BLOCK LENGTH * 00010950 * 4 * CHAR(2), /* RESERVED * 00010960 * 4 PSERNO CHAR(6), /* SERIAL NUMBER * 00010970 * 4 * CHAR(1); /* RESERVED * 00010980 * DCL 1 PARMDSN BASED (PDSNP), /*DSNAME FIELD POINTED TO * 00010990 * 2 PDSLEN PTR(8), /* BY PDSNP IN CALLER'S LIST * 00011000 * 2 PDSNAME CHAR(44); 00011010 * DCL 1 * BASED(PPARMP), /* CONCAT PARAMETER LIST */ 00011020 * 4 * FIXED(15), 00011030 * 4 * CHAR(1), 00011040 * 4 * CHAR(1), 00011050 * 4 * CHAR(9), 00011060 * 8 PDDNAME CHAR(8), 00011070 * 8 * CHAR(1); 00011080 * DCL DSELSTPR PTR(31); /* ADDRESS OF DSE LIST */ 00011090 * 00011100 * /**************************************************************/ 00011110 * /******* DEFINE THE UPDATE DSE PARAMETER LIST *******/ 00011120 * /**************************************************************/ 00011130 * 00011140 * DCL 1 DSELIST BASED (DSELSTPR), /*DSE PARAMETER LIST */ 00011150 * 4 * CHAR(4), /* NOT USED */ 00011160 * 4 CONTROL, /* CONTROL BYTE */ 00011170 * 8 * BIT(5), /* BITS RESERVED */ 00011180 * 8 PERMALLC BIT(1), /* SET IF DATA SET IS */ 00011190 * /* PERMANENTLY ALLOCATED */ 00011200 * 8 * BIT(2), /* BITS RESERVED */ 00011210 * 4 TCBADD PTR(24), /* ADDRESS OF TCB FOR TASK */ 00011220 * /* WHICH SECURED ALLOCATION */ 00011230 * /* OF THE DATA SET */ 00011240 * 4 PASSWORD CHAR(8), /* PASSWORD, LEFT JUSTIFIED */ 00011250 * 4 PSWRDTTR CHAR(3), /* TTR OF PASSWORD IN */ 00011260 * /* PASSWORD DATA SET */ 00011270 * 4 DSLNGTH CHAR(1), /* LENGTH OF DATA SET NAME */ 00011280 * 4 DSNAME CHAR(44); /* DSNAME, LEFT JUSTIFIED */ 00011290 * DCL R15 REG(15); /* REG. 15 FOR RETURN CODE */ 00011300 * /* FROM SUBROUTINE */ 00011310 * DCL DSESERCH LABEL /* DSE SEARCH */ 00011320 * LOCAL INTERNAL; /* SUBROUTINE */ 00011330 * DCL DSECHAIN LABEL /* DSE CHAIN */ 00011340 * LOCAL INTERNAL; /* SUBROUTINE */ 00011350 * DCL R0 REG(0); /* REG 0 FOR GETMAIN AND */ 00011360 * /* FREEMAIN */ 00011370 * DCL R1 REG(1) PTR; /* REG 1 FOR FREEMAIN */ 00011380 * DCL R14 REG(14); /* FOR RETURN */ 00011390 * DCL R13 REG(13); /* SAVE RETURN CODE */ 00011400 * DCL DDNAME CHAR(8) BASED; /* FOR USING DDNAME */ 00011410 * DCL DSNLGTH CHAR(1) AUTO; /* SAVE LENGTH OF DSNAME */ 00011420 * DCL LISTPTR PTR(31) AUTO; /* ADDRESS OF OBTAIN PARAM */ 00011430 * /* LIST */ 00011440 * DCL 1 OBTNLIST BASED(LISTPTR), /* OBTAIN PARAMETER LIST */ 00011450 * 4 WORD1 CHAR(4), /* SEARCH CODE */ 00011460 * 4 WORD2 PTR(31), /* DSNAME ADDRESS */ 00011470 * 4 WORD3 PTR(31), /* VOLUME SERIAL NO. ADDRESS*/ 00011480 * 4 WORD4 PTR(31), /* WORK AREA ADDRESS */ 00011490 * 4 * CHAR(144); /* WORK AREA */ 00011500 * DCL 1 DSCB BASED(ADDR(WORD4)), /* DSCB DECLARATION */ 00011510 * 4 * CHAR(82), /* FILLER */ 00011520 * 4 DS1DSORG CHAR(1); /* DATA SET ORGANIZATION */ 00011530 * DCL 1 SVC98LST BASED(LISTPTR), /* DECLARE PARAM LIST FOR */ 00011540 * /* SVC 98 TO GET PASSWD TTR */ 00011550 * 4 NTRYCODE CHAR(1), /* FUNCTION CODE FOR SVC */ 00011560 * 4 BUFFERAD PTR(24), /* ADDRESS OF ONE WORD */ 00011570 * /* BUFFER IN WHICH TO PLACE */ 00011580 * /* PASSWORD TTR */ 00011590 * 4 DSLEN PTR(8), /* DSNAME LENGTH */ 00011600 * 4 DSNADDR PTR(24), /* DSNAME ADDRESS */ 00011610 * 4 PASSWDAD PTR(31), /* PASSWORD ADDRESS */ 00011620 * 4 TTRBUFF FIXED(31); /* BUFFER FOR TTR */ 00011630 * DCL DUMMYDSE CHAR(256) BASED; /* DUMMY DSE MAPPING FOR*/ 00011640 * /* CLEARING A DSE */ 00011650 * DCL TIOTADD PTR(31) AUTO; /* SAVE ADDRESS OF TIOT */ 00011660 * /* ENTRY */ 00011670 * DCL CONCTSZ FIXED(15) AUTO; /* SIZE OF CONCAT PARM LST*/ 00011680 * 00011690 * /*********************************************************/ 00011700 * /****** DECLARE PARAMETERS TO PASS BETWEEN DSE UPDATE LOADS ***/ 00011710 * /*********************************************************/ 00011720 * 00011730 * DCL 1 PASSPARM BASED(ADDR(DAWA2)), /* USE SIOT READ AREA TO */ 00011740 * /* PASS PARAMETERS */ 00011750 * 4 SVDSEPTR, /* DSE ADDRESS */ 00011760 * 4 SVRTCODE, /* FOR 504 RETURN CODE OR 0 */ 00011770 * 4 SVTJBXPR, /* TO ADDRESS 1ST DSE ADDR. */ 00011780 * 4 SVALTPTR; /* ADDRESS OF NEW DSE */ 00011790 * 00011800 * DCL 1 TCT BASED(TCBTCT), /* DUMMY TCT TO TEST IF SMF */ 00011810 * 4 * CHAR(12), /* IS ACTIVE */ 00011820 * 4 TCTIOTBL PTR(31); /* ADDRESS OF TCTIOT IF SMF */ 00011830 * /* IS ACTIVE, OTHERWISE 0 */ 00011840 * DCL I FIXED(31) AUTO; /* NUMBER OF DD'S CONCAT'D */ 00011850 * DCL J FIXED(31) AUTO; /* NUMBER OF DD'S CONCAT'D */ 00011860 * DCL SAVER14 FIXED(31) AUTO; /* SAVE REG 14 */ 00011870 * RESTRICT (2,3,5); 00011880 * PARMPTR = R1; /* SAVE ADDRESS OF DAWT */ 00011890 LR @3,@1 0048 00011900 * DSEPTR = SVDSEPTR; /* DSE ADDRESS */ 00011910 L @2,328(0,@3) 0049 00011920 * TJBXPTR = SVTJBXPR; /* GET TJBX ADDRESS */ 00011930 L @D,336(0,@3) 0050 00011940 * IF PCODE = '03'X THEN /* PERFERM CONCAT PROCESSING*/ 00011950 L @4,16(0,@3) 0051 00011960 CLI 2(@4),X'03' 0051 00011970 * GOTO CONCTDSE; /* IF CODE =03 */ 00011980 BC 08,CONCTDSE 0052 00011990 * UNALLDSE: 00012000 * 00012010 * /** SET UP DAWTVARY TO SEARCH FOR DSE TO UNALLOCATE ***/ 00012020 * 00012030 * DD1ADD = ADDR(PDDNM1); /* ADDRESS OF DDNAME TO */ 00012040 UNALLDSE L @4,16(0,@3) 0053 00012050 LA @F,4(0,@4) 0053 00012060 ST @F,504(0,@3) 0053 00012070 * /* UNALLOCATE */ 00012080 * DD2ADD = 0; /* NO DDNAME2 */ 00012090 SR @F,@F 0054 00012100 ST @F,508(0,@3) 0054 00012110 * VFLAGS = 0; /* CLEAR INDICATOR BITS */ 00012120 MVC 548(1,@3),@D1 0055 00012130 * CALL DSESERCH; /* SEARCH FOR DSE TO */ 00012140 BAL @E,DSESERCH 0056 00012150 * /* UNALLOCATE */ 00012160 * IF R15 ª= 0 THEN /* IF DDNAME NOT FOUND */ 00012170 LTR @F,@F 0057 00012180 BC 08,@9FF 0057 00012190 * DO; 00012200 * SVRTCODE = 1284; /* THEN SET RETURN CODE */ 00012210 LA @F,1284 0059 00012220 ST @F,332(0,@3) 0059 00012230 * GOTO FREEDAWT; /* AND EXIT */ 00012240 BC 15,FREEDAWT 0060 00012250 * END; 00012260 * R1 = ADDNAME1+10; /* CLEAR ALL BUT 1ST TEN */ 00012270 @9FF LA @1,10 0062 00012280 A @1,520(0,@3) 0062 00012290 * /* BYTES OF DSE BEING */ 00012300 * R15 = ADDNAME1->DSEBLKSZ; /* UNALLOCATED */ 00012310 L @4,520(0,@3) 0063 00012320 LH @F,8(0,@4) 0063 00012330 * R15 = R15-11; /* NUMBER OF BYTES TO CLEAR */ 00012340 SH @F,@D2 0064 00012350 * /* MINUS 1 FOR EXECUTE */ 00012360 * GENERATE; /* CLEAR DSE */ 00012370 EX @F,XOR CLEAR DSE 00012380 DS 0H 00012390 * ADDNAME1->DSENUSED = '1'B;/* SET DSE NOT IN USE */ 00012400 OI 11(@4),B'01010000' 0066 00012410 * ADDNAME1->DSEDTIOT = '1'B; /* INDICATE DSE IS DYNAM */ 00012420 * ADDNAME1->DSEDDNAM = /* PLACE DDNAME INTO */ 00012430 * PDDNM1; /* DSE */ 00012440 L @8,16(0,@3) 0068 00012450 MVC 12(8,@4),4(@8) 0068 00012460 * ADDNAME1->DSEDSLNG = 8; /* LENGTH OF NAME NULLFILE*/ 00012470 LA @F,8 0069 00012480 STC @F,31(0,@4) 0069 00012490 * ADDNAME1->DSEDSNAM(1:8) = 'NULLFILE'; 00012500 MVC 32(8,@4),@C3 0070 00012510 * /* INDICATE UNALLOCATED DSE */ 00012520 * /* AS NULLFILE */ 00012530 * 00012540 * /***** RECHAIN UNALLOCATED DSE AT END OF CHAIN *****/ 00012550 * 00012560 * OLDDSE = ADDNAME1; /* REMOVE IT FROM PRESENT */ 00012570 MVC 504(4,@3),520(@3) 0071 00012580 * /* POSITION ON CHAIN */ 00012590 * NEWDSE = ADDNAME1; /* DSE ADDRESS TO CHAIN IN */ 00012600 MVC 508(4,@3),520(@3) 0072 00012610 * VFLAGS = '00'X; /* CLEAR INDICATOR BITS */ 00012620 MVI 548(@3),X'00' 0073 00012630 * CALL DSECHAIN; /* CHAIN DSE */ 00012640 BAL @E,DSECHAIN 0074 00012650 * GOTO LEAVE; /* EXIT TO SMF OR CALLER */ 00012660 BC 15,LEAVE 0075 00012670 * 00012680 * /**** ENTRY IS FROM DYNAMIC CONCATENATION ROUTINE *****/ 00012690 * 00012700 * CONCTDSE: 00012710 * CONCTSZ = PLNGH-4-9; /* OFFSET TO LAST DDNAME */ 00012720 CONCTDSE LH @F,@D3 0076 00012730 SH @F,@D4 0076 00012740 L @4,16(0,@3) 0076 00012750 AH @F,0(0,@4) 0076 00012760 STH @F,CONCTSZ 0076 00012770 * /* IN PARAM LIST */ 00012780 * J = (PLNGH-4)/9; /* NO. DD'S TO CONCATENATE */ 00012790 LH @E,@D5 0077 00012800 AH @E,0(0,@4) 0077 00012810 SRDA @E,32 0077 00012820 LA @0,9 0077 00012830 DR @E,@0 0077 00012840 ST @F,J 0077 00012850 * ADSNDSE = 0; /* START AT BEGIN OF CHAIN */ 00012860 SR @F,@F 0078 00012870 ST @F,536(0,@3) 0078 00012880 * DO CONCTSZ = CONCTSZ TO 0 BY -9; 00012890 LH @F,CONCTSZ 0079 00012900 BC 15,@DO9FD 0079 00012910 * DD1ADD = ADDR(PDDNAME)+CONCTSZ; /* ADDRESS OF */ 00012920 @DO9FE LH @F,CONCTSZ 0080 00012930 L @4,16(0,@3) 0080 00012940 LA @0,4(0,@4) 0080 00012950 AR @F,@0 0080 00012960 ST @F,504(0,@3) 0080 00012970 * /* DDNAME ON WHICH TO SEARCH*/ 00012980 * DD2ADD = 0; /* DO NOT SRCH FOR DDNAME2 */ 00012990 SR @F,@F 0081 00013000 ST @F,508(0,@3) 0081 00013010 * VFLAGS = 0; /* CLEAR INDICATOR BITS */ 00013020 MVC 548(1,@3),@D1 0082 00013030 * CALL DSESERCH; /* SEARCH FOR DSE */ 00013040 BAL @E,DSESERCH 0083 00013050 * IF R15 ª= 0 THEN /* IF DDNAME NOT FOUND */ 00013060 LTR @F,@F 0084 00013070 BC 08,@9FA 0084 00013080 * DO; 00013090 * SVRTCODE = 1284; /* THEN SET RETURN CODE */ 00013100 LA @F,1284 0086 00013110 ST @F,332(0,@3) 0086 00013120 * GOTO FREEDAWT; /* AND EXIT */ 00013130 BC 15,FREEDAWT 0087 00013140 * END; 00013150 * OLDDSE = ADDNAME1; /* REMOVE OLD DSE FROM DSE */ 00013160 @9FA MVC 504(4,@3),520(@3) 0089 00013170 * NEWDSE = OLDDSE; /* CHAIN AND CHAIN IT IN */ 00013180 MVC 508(4,@3),504(@3) 0090 00013190 * VFLAGS = '00'X; /* CLEAR INDICATOR BITS */ 00013200 MVI 548(@3),X'00' 0091 00013210 * DSEFRONT = '1'B; /* FRONT */ 00013220 OI 548(@3),B'00000010' 0092 00013230 * CALL DSECHAIN; /* RECHAIN DSE IN FRONT */ 00013240 BAL @E,DSECHAIN 0093 00013250 * NEWDSE->DSECON = '1'B; /* INDICATE DYNAMICALLY */ 00013260 L @4,508(0,@3) 0094 00013270 OI 11(@4),B'00001000' 0094 00013280 * END; 00013290 * 00013300 * /***** THESE STATEMENTS WILL PROPAGATE THE PROPER *****/ 00013310 * /***** DDNAME THROUGH THE CONCATENATED GROUP *****/ 00013320 * 00013330 * DO I = 1 TO J; 00013340 LH @F,CONCTSZ 0095 00013350 SH @F,@D6 0095 00013360 @DO9FD STH @F,CONCTSZ 0095 00013370 C @F,@D1 0095 00013380 BC 10,@DO9FE 0095 00013390 LA @F,1 0096 00013400 BC 15,@DO9F8 0096 00013410 * NEWDSE->DSEDDNAM = PDDNAME; /* DDNAME INTO DSE */ 00013420 @DO9F9 L @4,16(0,@3) 0097 00013430 L @8,508(0,@3) 0097 00013440 MVC 12(8,@8),4(@4) 0097 00013450 * NEWDSE=NEWDSE->DSEFORWD; /* ADDRESS OF NEXT DSE */ 00013460 MVC 508(4,@3),0(@8) 0098 00013470 * END; 00013480 * LEAVE: 00013490 * IF TCBTCT ª= 0 & /* IF SMF IS */ 00013500 * TCTIOTBLª= 0 THEN /* IN THE SYSTEM */ 00013510 L @F,I 0099 00013520 AH @F,@D7 0099 00013530 @DO9F8 ST @F,I 0099 00013540 C @F,J 0099 00013550 BC 12,@DO9F9 0099 00013560 LEAVE SR @F,@F 0100 00013570 L @4,CVTPTR 0100 00013580 L @4,0(0,@4) CVTMAP 0100 00013590 L @4,4(0,@4) TCBPTR 0100 00013600 C @F,164(0,@4) 0100 00013610 BC 08,@9F5 0100 00013620 L @8,164(0,@4) TCBOVLY1 0100 00013630 C @F,12(0,@8) 0100 00013640 * GOTO SMF; /* GO TO IT */ 00013650 BC 07,SMF 0101 00013660 * 00013670 * /****** SMF IS NOT IN THE SYSTEM, *****/ 00013680 * /****** SET RETURN CODE & FREE DAWT *****/ 00013690 * 00013700 * IF RTCODE ª= 0 THEN /* IF THERE IS A RETURN CODE*/ 00013710 @9F4 EQU * 0102 00013720 @9F5 SR @F,@F 0102 00013730 C @F,28(0,@3) 0102 00013740 BC 08,@9F3 0102 00013750 * SVRTCODE=RTCODE; /* IN THE DAWT, USE IT */ 00013760 MVC 332(4,@3),28(@3) 0103 00013770 * 00013780 * /****** FREE THE DAWT AND EXIT ************/ 00013790 * 00013800 * FREEDAWT: 00013810 * R0 = LNGH; /* LENGTH OF DAWT TO FREE */ 00013820 @9F3 EQU * 0104 00013830 FREEDAWT LH @0,20(0,@3) 0104 00013840 * R1 = PARMPTR; /* ADDRESS OF DAWT TO FREE */ 00013850 LR @1,@3 0105 00013860 * R13 = SVRTCODE; /* SAVE RETURN CODE FOR EXIT*/ 00013870 L @D,332(0,@3) 0106 00013880 * GENERATE; /* FREE DAWT */ 00013890 FREEMAIN R,LV=(0),A=(1) FREE DAWT 00013900 ******* FREE AUTOMATIC STORAGE ********* 00013910 BAL @E,@EL01 FREE AUTOMATIC STORAGE 00013920 LR @F,@D RETURN CODE TO REGISTER 15 00013930 SVC 3 EXIT 00013940 DS 0H 00013950 * SMF: 00013960 * XCTLEP(5) = '8'; /* SMF ENTRY POINT NAME */ 00013970 SMF MVI 12(@3),C'8' 0108 00013980 * GENERATE; /* FREE AUTOMATIC STORAGE */ 00013990 BAL @E,@EL01 FREE AUTOMATIC STORAGE 00014000 DS 0H 00014010 * 00014020 * /****** TRANSFER CONTROL TO SMF ROUTINE *************/ 00014030 * 00014040 * R1 = PARMPTR; /* ADDRESS OF DAWT IN R1 */ 00014050 LR @1,@3 0110 00014060 * R15 = R1; /* ADDRESS OF XCTL PARMS IN */ 00014070 LR @F,@1 0111 00014080 * /* REGISTER 15 */ 00014090 * GENERATE; /* XCTL TO SMF */ 00014100 XCTL SF=(E,(15)) XCTL TO SMF 00014110 DS 0H 00014120 * 00014130 * 00014140 * /******************************************************/ 00014150 * /************ DSESERCH SUBROUTINE ******************/ 00014160 * /******************************************************/ 00014170 * 00014180 * DSESERCH: 00014190 * PROC 00014200 * OPTIONS(NOSAVEAREA,DONTSAVE); 00014210 @EL01 LR @1,@C 0113 00014220 L @0,@SIZ001 0113 00014230 FREEMAIN R,LV=(0),A=(1) 0113 00014240 BCR 15,@E 0113 00014250 * RESTRICT (2,3,5); 00014260 * DCL DSEADDR PTR(31) AUTO; /* SAVE FOR FIRST DSE ADDRES*/ 00014270 * SAVER14 = R14; /* SAVE FOR RETURN */ 00014280 DSESERCH ST @E,SAVER14 0116 00014290 * DSEADDR = DSEPTR; /* SAVE 1ST DSE ADDRESS */ 00014300 ST @2,DSEADDR 0117 00014310 * GOTO FIRST; /* BYPASS DSE ADDRESS UPDATE*/ 00014320 BC 15,FIRST 0118 00014330 * /* UPON ENTRY */ 00014340 * GETPTR: 00014350 * IF DSEFORWD = 0 THEN /* UPDATE DSE ADDR IF */ 00014360 GETPTR SR @F,@F 0119 00014370 C @F,0(0,@2) 0119 00014380 * GOTO ENDOFDSE; /* THERE IS ANOTHER IN CHAIN*/ 00014390 BC 08,ENDOFDSE 0120 00014400 * DSEPTR = DSEFORWD; /* ADDRESS OF NEXT DSE */ 00014410 L @2,0(0,@2) 0121 00014420 * FIRST: 00014430 * IF DD1ADD = 0 THEN /* IF NO ADDRESS FOR */ 00014440 FIRST SR @F,@F 0122 00014450 C @F,504(0,@3) 0122 00014460 * GOTO CHECKDD2; /* DDNAME1,CHECK FOR DDNAME2*/ 00014470 BC 08,CHECKDD2 0123 00014480 * IF DD1ADD->DDNAME ª= DSEDDNAM THEN /* IF THIS IS NOT */ 00014490 L @1,504(0,@3) 0124 00014500 CLC 0(8,@1),12(@2) 0124 00014510 * GOTO CHECKDD2; /* CORRECT DSE, CHK DDNAME2 */ 00014520 BC 07,CHECKDD2 0125 00014530 * 00014540 * /***** THIS IS THE CORRECT DSE FOR DDNAME1, PLACE DSE *****/ 00014550 * /***** ADDRESS IN DAWTVARY FOR THE CALLER *****/ 00014560 * 00014570 * ADDNAME1 = DSEPTR; /* DSE ADDRESS TO DAWTVARY */ 00014580 ST @2,520(0,@3) 0126 00014590 * DD1ADD = 0; /* CLEAR DDNAME1 ADDRESS */ 00014600 SR @F,@F 0127 00014610 ST @F,504(0,@3) 0127 00014620 * DDNAME1 = '1'B; /* SET DDNAME1 FOUND */ 00014630 OI 548(@3),B'10000000' 0128 00014640 * CHECKDD2: 00014650 * IF DD2ADD = 0 THEN /* IF NO ADDRESS FOR */ 00014660 CHECKDD2 SR @F,@F 0129 00014670 C @F,508(0,@3) 0129 00014680 * GOTO GETPTR; /* DDNAME2, CHECK NEXT DSE */ 00014690 BC 08,GETPTR 0130 00014700 * IF DD2ADD->DDNAME ª= DSEDDNAM THEN /* IF THIS IS NOT */ 00014710 L @1,508(0,@3) 0131 00014720 CLC 0(8,@1),12(@2) 0131 00014730 * GOTO GETPTR; /* CORRECT DSE, CHECK NEXT */ 00014740 BC 07,GETPTR 0132 00014750 * ADDNAME2 = DSEPTR; /* DSE ADDRESS TO DAWTVARY */ 00014760 ST @2,524(0,@3) 0133 00014770 * DD2ADD = 0; /* CLEAR DDNAME2 ADDRESS */ 00014780 SR @F,@F 0134 00014790 ST @F,508(0,@3) 0134 00014800 * DDNAME2 = '1'B; /* SET DDNAME2 FOUND */ 00014810 OI 548(@3),B'01000000' 0135 00014820 * GOTO GETPTR; /* GET NEXT DSE ADDRESS */ 00014830 BC 15,GETPTR 0136 00014840 * ENDOFDSE: 00014850 * R14 = SAVER14; /* R14 FOR RETURN */ 00014860 ENDOFDSE L @E,SAVER14 0137 00014870 * DSEPTR = DSEADDR; /* RESTORE 1SD DSE ADDRESS */ 00014880 L @2,DSEADDR 0138 00014890 * IF DDNAME1 = '1'B THEN /* IF DDNAME1 FOUND */ 00014900 TM 548(@3),B'10000000' 0139 00014910 * GOTO RETURNOK; /* RETURN NORMALLY */ 00014920 BC 01,RETURNOK 0140 00014930 * R15 = 4; /* FUNCTION REQUESTED NOT */ 00014940 LA @F,4 0141 00014950 * /* PERFORMED */ 00014960 * RETURN; /* RETURN TO CALLER */ 00014970 BC 15,@EL02 0142 00014980 * RETURNOK: 00014990 * R15 = 0; /* NORMAL RETURN CODE */ 00015000 RETURNOK SR @F,@F 0143 00015010 * RETURN; /* RETURN TO CALLER */ 00015020 * END DSESERCH; 00015030 @EL02 BCR 15,@E 0145 00015040 * /******************************************************/ 00015050 * /************ DSECHAIN SUBROUTINE ******************/ 00015060 * /******************************************************/ 00015070 * 00015080 * 00015090 * DSECHAIN: PROC 00015100 * OPTIONS(NOSAVEAREA,DONTSAVE); 00015110 DSECHAIN EQU * 0146 00015120 * RESTRICT (2,3,5); 00015130 * DCL FOREPTR PTR(31) REG(5); /* DSE FORWARD PTR */ 00015140 * /* TO CHECK */ 00015150 * ADDINIT = ADDR(TJBXDSE); /* ADDRESS OF 1ST DSE PTR */ 00015160 LA @F,8(0,@D) 0149 00015170 ST @F,516(0,@3) 0149 00015180 * 00015190 * /***** REMOVE THE OLD DSE FROM THE DSECHAIN *********/ 00015200 * 00015210 * IF OLDDSE->DSEBCKWDª=0 THEN /* IF THIS IS NOT THE */ 00015220 SR @F,@F 0150 00015230 L @1,504(0,@3) 0150 00015240 C @F,4(0,@1) 0150 00015250 BC 08,@9F2 0150 00015260 * OLDDSE->DSEBCKWD->DSEFORWD = /* 1ST DSE IN CHAIN, */ 00015270 * OLDDSE->DSEFORWD; /* PUT ITS FORWARD CHAIN */ 00015280 L @4,4(0,@1) DSE 0151 00015290 MVC 0(4,@4),0(@1) 0151 00015300 BC 15,@9F1 0152 00015310 * /* ADDRESS IN PREVIOUS DSE */ 00015320 * ELSE TJBXDSE = OLDDSE->DSEFORWD; /* THE OLD DSE WAS */ 00015330 @9F2 MVC 8(4,@D),0(@1) 0152 00015340 * /* THE 1ST IN THE CHAIN, */ 00015350 * /* PLACE ITS FORWARD CHAIN */ 00015360 * /* ADDRESS INTO THE POINTER */ 00015370 * /* TO THE 1ST DSE IN CHAIN */ 00015380 * IF OLDDSE->DSEFORWD = 0 THEN /* IF OLD DSE IS NOT */ 00015390 @9F1 SR @F,@F 0153 00015400 C @F,0(0,@1) 0153 00015410 * GOTO NOFORWD; /* LAST ON CHAIN, */ 00015420 BC 08,NOFORWD 0154 00015430 * OLDDSE->DSEFORWD->DSEBCKWD = /* PLACE ITS BACKWARD */ 00015440 * OLDDSE->DSEBCKWD; /* CHAIN ADDRESS INTO THE */ 00015450 L @4,0(0,@1) DSE 0155 00015460 MVC 4(4,@4),4(@1) 0155 00015470 * /* NEXT DSE IN THE CHAIN */ 00015480 * NOFORWD: 00015490 * IF DSEFRONT ª= '1'B THEN /* IF NEW DSE IS NOT TO BE */ 00015500 NOFORWD TM 548(@3),B'00000010' 0156 00015510 * GOTO FINDLAST; /* CHAINED IN FRONT, LOOK */ 00015520 BC 12,FINDLAST 0157 00015530 * /* FOR LAST DSE IN CHAIN */ 00015540 * 00015550 * /*** NEW DSE IS TO BE CHAINED IN FRONT OF DSE CHAIN ***/ 00015560 * 00015570 * NEWDSE->DSEFORWD = TJBXDSE; /* PLACE ADDRESS OF 1ST */ 00015580 L @1,508(0,@3) 0158 00015590 MVC 0(4,@1),8(@D) 0158 00015600 * /* DSE CURRENTLY ON CHAIN */ 00015610 * /* INTO FORWARD PTR OF NEW */ 00015620 * /* DSE TO BE ADDED */ 00015630 * NEWDSE->DSEBCKWD = 0; /* ZERO BACKWARD PTR OF NEW */ 00015640 SR @F,@F 0159 00015650 ST @F,4(0,@1) 0159 00015660 * /* DSE BECAUSE IT'S 1ST IN */ 00015670 * /* DSE CHAIN */ 00015680 * TJBXDSE = NEWDSE; /* INDICATE NEW DSE IS 1ST */ 00015690 MVC 8(4,@D),508(@3) 0160 00015700 * /* ON CHAIN */ 00015710 * IF NEWDSE->DSEFORWD=0 THEN /* IF NEW DSE IS NOT THE*/ 00015720 SR @F,@F 0161 00015730 C @F,0(0,@1) 0161 00015740 * RETURN; /* ONLY ONE IN THE CHAIN, */ 00015750 BC 08,@EL03 0162 00015760 * /* PLACE ITS ADDRESS IN THE */ 00015770 * /* BACKWARD POINTER POSITION*/ 00015780 * /* OF THE NEXT DSE IN THE */ 00015790 * /* CHAIN */ 00015800 * NEWDSE->DSEFORWD->DSEBCKWD = /* PLACE ADDRESS OF NEW */ 00015810 * NEWDSE; /* DSE INTO BACK PTR OF */ 00015820 @9F0 L @4,0(0,@1) DSE 0163 00015830 MVC 4(4,@4),508(@3) 0163 00015840 * /* NEXT DSE */ 00015850 * RETURN; /* RETURN TO CALLER */ 00015860 BC 15,@EL03 0164 00015870 * FINDLAST: 00015880 * IF TJBXDSE = 0 THEN /* IF THE NEW DSE IS THE */ 00015890 FINDLAST SR @F,@F 0165 00015900 C @F,8(0,@D) 0165 00015910 BC 07,@9EF 0165 00015920 * DO; /* ONLY ONE IN THE CHAIN, */ 00015930 * TJBXDSE=NEWDSE; /* PUT ITS ADDRESS M4819*/ 00015940 MVC 8(4,@D),508(@3) 0167 00015950 * GOTO CHAINLST; /* IN THE M4819*/ 00015960 BC 15,CHAINLST 0168 00015970 * END; /* TJBX M4819*/ 00015980 * FOREPTR = TJBXDSE; /* ADDRESS OF 1ST DSE */ 00015990 @9EF L @5,8(0,@D) 0170 00016000 * ISITLAST: 00016010 * IF FOREPTR->DSEFORWD=0 THEN /* SEARCH FOR LAST DSE */ 00016020 ISITLAST SR @F,@F 0171 00016030 C @F,0(0,@5) 0171 00016040 * GOTO LASTFND; /* ON THE CHAIN */ 00016050 BC 08,LASTFND 0172 00016060 * FOREPTR = FOREPTR->DSEFORWD; /* NOT LAST DSE ON CHAIN,*/ 00016070 L @5,0(0,@5) 0173 00016080 * GOTO ISITLAST; /* CHECK NEXT DSE FOR LAST */ 00016090 BC 15,ISITLAST 0174 00016100 * LASTFND: 00016110 * LASTDSE = FOREPTR; /* THE LAST DSE IS FOUND, */ 00016120 LASTFND ST @5,520(0,@3) 0175 00016130 * /* PLACE ITS ADDRESS IN */ 00016140 * /* DAWTVARY */ 00016150 * FOREPTR->DSEFORWD = NEWDSE; /* ADDRESS OF NEW DSE INTO*/ 00016160 MVC 0(4,@5),508(@3) 0176 00016170 * /* FORMER LAST DSE ON CHAIN */ 00016180 * NEWDSE->DSEBCKWD = FOREPTR; /* ADDRESS OF FORMER LAST */ 00016190 L @1,508(0,@3) 0177 00016200 ST @5,4(0,@1) 0177 00016210 * /* DSE TO BACKWARD POINTER */ 00016220 * /* IN NEW DSE */ 00016230 * CHAINLST: 00016240 * NEWDSE->DSEFORWD = 0; /* CLEAR FORWARD POINTER IN */ 00016250 CHAINLST SR @F,@F 0178 00016260 L @1,508(0,@3) 0178 00016270 ST @F,0(0,@1) 0178 00016280 * /* NEW DSE BECAUSE IT IS THE*/ 00016290 * /* LAST ONE ON THE CHAIN */ 00016300 * RETURN; /* RETURN TO CALLER */ 00016310 BC 15,@EL03 0179 00016320 * GENERATE; /* CLEAR AREA */ 00016330 XOR XC 0(1,1),0(1) CLEAR AREA 00016340 DS 0H 00016350 * END DSECHAIN; 00016360 @EL03 BCR 15,@E 0181 00016370 * END 00016380 * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. 00016390 * /* %INCLUDE SYSLIB (CVT ) 00016400 * /* %INCLUDE SYSLIB (IKJTCB ) 00016410 * /* %INCLUDE SYSLIB (IKJTJBX ) 00016420 * /* %INCLUDE SYSLIB (IKJDSE ) 00016430 * ; 00016440 @DATA1 EQU * 0182 00016450 @0 EQU 00 EQUATES FOR REGISTERS 0-15 00016460 @1 EQU 01 00016470 @2 EQU 02 00016480 @3 EQU 03 00016490 @4 EQU 04 00016500 @5 EQU 05 00016510 @6 EQU 06 00016520 @7 EQU 07 00016530 @8 EQU 08 00016540 @9 EQU 09 00016550 @A EQU 10 00016560 @B EQU 11 00016570 @C EQU 12 00016580 @D EQU 13 00016590 @E EQU 14 00016600 @F EQU 15 00016610 @D1 DC F'0' 00016620 @D2 DC H'11' 00016630 @D3 DC H'-9' 00016640 @D4 DC H'4' 00016650 @D5 DC H'-4' 00016660 @D6 DC H'9' 00016670 @D7 DC H'1' 00016680 DS 0F 00016690 @SIZ001 DC AL1(&SPN) 00016700 DC AL3(@DATEND-@DATD) 00016710 DS 0F 00016720 @C3 DC C'NULLFILE' 00016730 DS 0D 00016740 @DATA EQU * 00016750 PLIST EQU 00000000 FULLWORD INTEGER 00016760 CVTPTR EQU 00000016 FULLWORD POINTER 00016770 DSEPTR EQU 00000002 FULLWORD POINTER REGISTER 00016780 TJBXPTR EQU 00000013 FULLWORD POINTER REGISTER 00016790 CVTMAP EQU 00000000 252 BYTE(S) ON WORD 00016800 CVTTCBP EQU CVTMAP+00000000 FULLWORD POINTER 00016810 CVT0EF00 EQU CVTMAP+00000004 FULLWORD POINTER 00016820 CVTLINK EQU CVTMAP+00000008 FULLWORD POINTER 00016830 CVTJOB EQU CVTMAP+00000012 FULLWORD POINTER 00016840 CVTBUF EQU CVTMAP+00000016 FULLWORD POINTER 00016850 CVTXAPG EQU CVTMAP+00000020 FULLWORD POINTER 00016860 CVT0VL00 EQU CVTMAP+00000024 FULLWORD POINTER 00016870 CVTPCNVT EQU CVTMAP+00000028 FULLWORD POINTER 00016880 CVTPRLTV EQU CVTMAP+00000032 FULLWORD POINTER 00016890 CVTILK1 EQU CVTMAP+00000036 FULLWORD POINTER 00016900 CVTILK2 EQU CVTMAP+00000040 FULLWORD POINTER 00016910 CVTXTLER EQU CVTMAP+00000044 FULLWORD POINTER 00016920 CVTSYSAD EQU CVTMAP+00000048 FULLWORD POINTER 00016930 CVTBTERM EQU CVTMAP+00000052 FULLWORD POINTER 00016940 CVTDATE EQU CVTMAP+00000056 4 BYTE(S) 00016950 CVTMSLT EQU CVTMAP+00000060 FULLWORD POINTER 00016960 CVTZDTAB EQU CVTMAP+00000064 FULLWORD POINTER 00016970 CVTXITP EQU CVTMAP+00000068 FULLWORD POINTER 00016980 CVTDAR EQU CVTMAP+00000072 FULLWORD POINTER 00016990 CVT0FN00 EQU CVTMAP+00000076 FULLWORD POINTER 00017000 CVTEXIT EQU CVTMAP+00000080 2 BYTE(S) 00017010 CVTBRET EQU CVTMAP+00000082 2 BYTE(S) 00017020 CVTSVDCB EQU CVTMAP+00000084 FULLWORD POINTER 00017030 CVTTPC EQU CVTMAP+00000088 FULLWORD POINTER 00017040 CVTPBLDL EQU CVTMAP+00000092 FULLWORD POINTER 00017050 CVTSJQ EQU CVTMAP+00000096 FULLWORD POINTER 00017060 CVTCUCB EQU CVTMAP+00000100 FULLWORD POINTER 00017070 CVTQTE00 EQU CVTMAP+00000104 FULLWORD POINTER 00017080 CVTQTD00 EQU CVTMAP+00000108 FULLWORD POINTER 00017090 CVTSTB EQU CVTMAP+00000112 FULLWORD POINTER 00017100 CVTDCB EQU CVTMAP+00000116 1 BYTE(S) 00017110 A00000 EQU CVTMAP+00000116 1 BIT(S) 00017120 CVT1SSS EQU CVTMAP+00000116 1 BIT(S) 00017130 CVT2SPS EQU CVTMAP+00000116 1 BIT(S) 00017140 CVT4MS1 EQU CVTMAP+00000116 1 BIT(S) 00017150 A00001 EQU CVTMAP+00000116 1 BIT(S) 00017160 CVT4MPS EQU CVTMAP+00000116 1 BIT(S) 00017170 A00002 EQU CVTMAP+00000116 1 BIT(S) 00017180 A00003 EQU CVTMAP+00000116 1 BIT(S) 00017190 CVTDCBA EQU CVTMAP+00000117 3 BYTE POINTER ON WORD+1 00017200 CVTIOQET EQU CVTMAP+00000120 FULLWORD POINTER 00017210 CVTIXAVL EQU CVTMAP+00000124 FULLWORD POINTER 00017220 CVTNUCB EQU CVTMAP+00000128 FULLWORD POINTER 00017230 CVTFBOSV EQU CVTMAP+00000132 FULLWORD POINTER 00017240 CVT0DS EQU CVTMAP+00000136 FULLWORD POINTER 00017250 CVTILCH EQU CVTMAP+00000140 FULLWORD POINTER 00017260 CVTIERLC EQU CVTMAP+00000144 FULLWORD POINTER 00017270 CVTMSER EQU CVTMAP+00000148 FULLWORD POINTER 00017280 CVT0PT01 EQU CVTMAP+00000152 FULLWORD POINTER 00017290 CVTTRMTB EQU CVTMAP+00000156 FULLWORD POINTER 00017300 CVTHEAD EQU CVTMAP+00000160 FULLWORD POINTER 00017310 CVTMZ00 EQU CVTMAP+00000164 FULLWORD POINTER 00017320 CVT1EF00 EQU CVTMAP+00000168 FULLWORD POINTER 00017330 CVTQOCR EQU CVTMAP+00000172 FULLWORD POINTER 00017340 CVTQMWR EQU CVTMAP+00000176 FULLWORD POINTER 00017350 CVTSNCTR EQU CVTMAP+00000180 HALFWORD INTEGER 00017360 CVTOPTA EQU CVTMAP+00000182 1 BYTE(S) 00017370 CVTCCH EQU CVTMAP+00000182 1 BIT(S) 00017380 CVTAPR EQU CVTMAP+00000182 1 BIT(S) 00017390 CVTDDR EQU CVTMAP+00000182 1 BIT(S) 00017400 CVTNIP EQU CVTMAP+00000182 1 BIT(S) 00017410 CVTATTCH EQU CVTMAP+00000182 1 BIT(S) 00017420 CVTHIAR EQU CVTMAP+00000182 1 BIT(S) 00017430 CVTASCII EQU CVTMAP+00000182 1 BIT(S) 00017440 A00004 EQU CVTMAP+00000182 1 BIT(S) 00017450 CVTOPTB EQU CVTMAP+00000183 1 BYTE(S) 00017460 CVTPROT EQU CVTMAP+00000183 1 BIT(S) 00017470 A00005 EQU CVTMAP+00000183 1 BIT(S) 00017480 CVTTOD EQU CVTMAP+00000183 1 BIT(S) 00017490 A00006 EQU CVTMAP+00000183 5 BIT(S) 00017500 CVTQCDSR EQU CVTMAP+00000184 FULLWORD POINTER 00017510 CVTQLPAQ EQU CVTMAP+00000188 FULLWORD POINTER 00017520 CVTMPCVT EQU CVTMAP+00000192 FULLWORD POINTER 00017530 CVTSMCA EQU CVTMAP+00000196 FULLWORD POINTER 00017540 CVTABEND EQU CVTMAP+00000200 FULLWORD POINTER 00017550 CVTUSER EQU CVTMAP+00000204 FULLWORD POINTER 00017560 A00007 EQU CVTMAP+00000208 FULLWORD POINTER 00017570 CVTQABST EQU CVTMAP+00000212 2 BYTE(S) 00017580 CVTLNKSC EQU CVTMAP+00000214 2 BYTE(S) 00017590 CVTTSCE EQU CVTMAP+00000216 FULLWORD POINTER 00017600 CVTPATCH EQU CVTMAP+00000220 FULLWORD POINTER 00017610 CVTRMS EQU CVTMAP+00000224 FULLWORD POINTER 00017620 CVTTSCVT EQU CVTMAP+00000228 FULLWORD POINTER 00017630 CVTTSFLG EQU CVTMAP+00000228 1 BYTE(S) 00017640 CVTTSRDY EQU CVTMAP+00000228 1 BIT(S) 00017650 A00008 EQU CVTMAP+00000228 7 BIT(S) 00017660 CVTTSCVB EQU CVTMAP+00000229 3 BYTE POINTER ON WORD+1 00017670 CVT0SCR1 EQU CVTMAP+00000232 FULLWORD POINTER 00017680 A00009 EQU CVTMAP+00000236 FULLWORD POINTER 00017690 CVTAQAVT EQU CVTMAP+00000240 FULLWORD POINTER 00017700 CVTTCMFG EQU CVTMAP+00000240 1 BYTE(S) 00017710 CVTTCRDY EQU CVTMAP+00000240 1 BIT(S) 00017720 A00010 EQU CVTMAP+00000240 7 BIT(S) 00017730 CVTAQAVB EQU CVTMAP+00000241 3 BYTE POINTER ON WORD+1 00017740 CVTTATA EQU CVTMAP+00000244 FULLWORD POINTER 00017750 CVTTSKS EQU CVTMAP+00000244 1 BYTE POINTER 00017760 CVTTAT EQU CVTMAP+00000245 3 BYTE POINTER ON WORD+1 00017770 CVTSYST EQU CVTMAP+00000248 1 BYTE POINTER 00017780 A00011 EQU CVTMAP+00000249 3 BYTE(S) 00017790 A00012 EQU 00000184 8 BYTE(S) ON WORD 00017800 CVTCRTTR EQU A00012+00000000 3 BYTE(S) 00017810 CVTSTUSA EQU A00012+00000003 1 BYTE(S) 00017820 A00013 EQU A00012+00000003 1 BIT(S) 00017830 A00014 EQU A00012+00000003 1 BIT(S) 00017840 A00015 EQU A00012+00000003 1 BIT(S) 00017850 A00016 EQU A00012+00000003 1 BIT(S) 00017860 CVTCHPTR EQU A00012+00000003 1 BIT(S) 00017870 CVTSTEPR EQU A00012+00000003 1 BIT(S) 00017880 CVTDATA EQU A00012+00000003 1 BIT(S) 00017890 A00017 EQU A00012+00000003 1 BIT(S) 00017900 A00018 EQU A00012+00000004 2 BYTE(S) 00017910 A00019 EQU A00012+00000006 2 BYTE(S) 00017920 CVTFIX EQU 00000256 256 BYTE(S) ON WORD 00017930 A00020 EQU CVTFIX+00000000 248 BYTE(S) 00017940 A00021 EQU CVTFIX+00000248 2 BYTE(S) 00017950 CVTMDL EQU CVTFIX+00000250 2 BYTE(S) 00017960 CVTRELNO EQU CVTFIX+00000252 4 BYTE(S) 00017970 TCBPTR EQU 00000004 FULLWORD POINTER 00017980 TCBFIX EQU 00000032 32 BYTE(S) ON WORD 00017990 TCBFRS EQU TCBFIX+00000000 32 BYTE(S) 00018000 TCBFRS0 EQU TCBFIX+00000000 8 BYTE(S) 00018010 TCBFRS2 EQU TCBFIX+00000008 8 BYTE(S) 00018020 TCBFRS4 EQU TCBFIX+00000016 8 BYTE(S) 00018030 TCBFRS6 EQU TCBFIX+00000024 8 BYTE(S) 00018040 TCB EQU 00000000 156 BYTE(S) ON WORD 00018050 TCBRBP EQU TCB+00000000 FULLWORD POINTER 00018060 TCBPIE EQU TCB+00000004 FULLWORD POINTER 00018070 TCBDEB EQU TCB+00000008 FULLWORD POINTER 00018080 TCBTIO EQU TCB+00000012 FULLWORD POINTER 00018090 TCBCMP EQU TCB+00000016 4 BYTE(S) 00018100 TCBCMPF EQU TCB+00000016 1 BYTE(S) 00018110 TCBCREQ EQU TCB+00000016 1 BIT(S) 00018120 TCBCSTEP EQU TCB+00000016 1 BIT(S) 00018130 TCBCPP EQU TCB+00000016 1 BIT(S) 00018140 A00022 EQU TCB+00000016 1 BIT(S) 00018150 TCBCDBL EQU TCB+00000016 1 BIT(S) 00018160 TCBCWTO EQU TCB+00000016 1 BIT(S) 00018170 TCBCIND EQU TCB+00000016 1 BIT(S) 00018180 TCBCMSG EQU TCB+00000016 1 BIT(S) 00018190 TCBCMPC EQU TCB+00000017 3 BYTE(S) 00018200 TCBTRN EQU TCB+00000020 FULLWORD POINTER 00018210 TCBABF EQU TCB+00000020 1 BYTE(S) 00018220 TCBMOD91 EQU TCB+00000020 1 BIT(S) 00018230 TCBNOCHK EQU TCB+00000020 1 BIT(S) 00018240 TCBGRPH EQU TCB+00000020 1 BIT(S) 00018250 A00023 EQU TCB+00000020 1 BIT(S) 00018260 TCBTCPP EQU TCB+00000020 1 BIT(S) 00018270 TCBTCP EQU TCB+00000020 1 BIT(S) 00018280 TCBOLTEP EQU TCB+00000020 1 BIT(S) 00018290 A00024 EQU TCB+00000020 1 BIT(S) 00018300 TCBTRNB EQU TCB+00000021 3 BYTE POINTER 00018310 TCBMSS EQU TCB+00000024 FULLWORD POINTER 00018320 TCBNROC EQU TCB+00000024 1 BYTE POINTER 00018330 TCBMSSB EQU TCB+00000025 3 BYTE POINTER 00018340 TCBPKF EQU TCB+00000028 1 BYTE(S) 00018350 TCBFLAG EQU TCB+00000028 4 BIT(S) 00018360 TCBZERO EQU TCB+00000028 4 BIT(S) 00018370 TCBFLGS EQU TCB+00000029 5 BYTE(S) 00018380 TCBFLGS1 EQU TCB+00000029 1 BYTE(S) 00018390 TCBFA EQU TCB+00000029 1 BIT(S) 00018400 TCBFE EQU TCB+00000029 1 BIT(S) 00018410 TCBFERA EQU TCB+00000029 1 BIT(S) 00018420 TCBRECUR EQU TCB+00000029 1 BIT(S) 00018430 TCBPDUMP EQU TCB+00000029 1 BIT(S) 00018440 TCBFT EQU TCB+00000029 1 BIT(S) 00018450 TCBFS EQU TCB+00000029 1 BIT(S) 00018460 TCBFX EQU TCB+00000029 1 BIT(S) 00018470 TCBFLGS2 EQU TCB+00000030 1 BYTE(S) 00018480 TCBFOINP EQU TCB+00000030 1 BIT(S) 00018490 TCBFSTI EQU TCB+00000030 1 BIT(S) 00018500 TCBFRA EQU TCB+00000030 1 BIT(S) 00018510 TCBFSMC EQU TCB+00000030 1 BIT(S) 00018520 TCBFJMC EQU TCB+00000030 1 BIT(S) 00018530 TCBFDSOP EQU TCB+00000030 1 BIT(S) 00018540 TCBFETXR EQU TCB+00000030 1 BIT(S) 00018550 TCBFTS EQU TCB+00000030 1 BIT(S) 00018560 TCBFLGS3 EQU TCB+00000031 1 BYTE(S) 00018570 TCBFSM EQU TCB+00000031 1 BIT(S) 00018580 TCBFRI EQU TCB+00000031 1 BIT(S) 00018590 TCBABTRM EQU TCB+00000031 1 BIT(S) 00018600 TCBREC EQU TCB+00000031 1 BIT(S) 00018610 TCBRECDE EQU TCB+00000031 4 BIT(S) 00018620 TCBFLREG EQU TCB+00000031 1 BIT(S) 00018630 TCBSCH EQU TCB+00000031 1 BIT(S) 00018640 TCBPKCHG EQU TCB+00000031 1 BIT(S) 00018650 A00025 EQU TCB+00000031 1 BIT(S) 00018660 TCBFLGS4 EQU TCB+00000032 1 BYTE(S) 00018670 TCBNDUMP EQU TCB+00000032 1 BIT(S) 00018680 TCBSER EQU TCB+00000032 1 BIT(S) 00018690 TCBRQENA EQU TCB+00000032 1 BIT(S) 00018700 A00026 EQU TCB+00000032 1 BIT(S) 00018710 A00027 EQU TCB+00000032 1 BIT(S) 00018720 TCBMPCVQ EQU TCB+00000032 1 BIT(S) 00018730 TCBMPCND EQU TCB+00000032 1 BIT(S) 00018740 TCBONDSP EQU TCB+00000032 1 BIT(S) 00018750 TCBFLGS5 EQU TCB+00000033 1 BYTE(S) 00018760 TCBFC EQU TCB+00000033 1 BIT(S) 00018770 TCBABWF EQU TCB+00000033 1 BIT(S) 00018780 TCBWFC EQU TCB+00000033 1 BIT(S) 00018790 TCBFRO EQU TCB+00000033 1 BIT(S) 00018800 TCBSYS EQU TCB+00000033 1 BIT(S) 00018810 TCBSTP EQU TCB+00000033 1 BIT(S) 00018820 TCBFCD1 EQU TCB+00000033 1 BIT(S) 00018830 TCBPNDSP EQU TCB+00000033 1 BIT(S) 00018840 TCBLMP EQU TCB+00000034 1 BYTE POINTER 00018850 TCBDSP EQU TCB+00000035 1 BYTE POINTER 00018860 TCBLLS EQU TCB+00000036 FULLWORD POINTER 00018870 TCBJLB EQU TCB+00000040 FULLWORD POINTER 00018880 TCBJPQ EQU TCB+00000044 FULLWORD POINTER 00018890 TCBPURGE EQU TCB+00000044 1 BYTE(S) 00018900 TCBJPQF EQU TCB+00000044 1 BIT(S) 00018910 A00028 EQU TCB+00000044 1 BIT(S) 00018920 A00029 EQU TCB+00000044 1 BIT(S) 00018930 A00030 EQU TCB+00000044 1 BIT(S) 00018940 A00031 EQU TCB+00000044 1 BIT(S) 00018950 A00032 EQU TCB+00000044 1 BIT(S) 00018960 A00033 EQU TCB+00000044 1 BIT(S) 00018970 A00034 EQU TCB+00000044 1 BIT(S) 00018980 TCBJPQB EQU TCB+00000045 3 BYTE POINTER 00018990 TCBGRS EQU TCB+00000048 64 BYTE(S) 00019000 TCBGRS0 EQU TCB+00000048 4 BYTE POINTER 00019010 TCBGRS1 EQU TCB+00000052 4 BYTE POINTER 00019020 TCBGRS2 EQU TCB+00000056 4 BYTE POINTER 00019030 TCBGRS3 EQU TCB+00000060 4 BYTE POINTER 00019040 TCBGRS4 EQU TCB+00000064 4 BYTE POINTER 00019050 TCBGRS5 EQU TCB+00000068 4 BYTE POINTER 00019060 TCBGRS6 EQU TCB+00000072 4 BYTE POINTER 00019070 TCBGRS7 EQU TCB+00000076 4 BYTE POINTER 00019080 TCBGRS8 EQU TCB+00000080 4 BYTE POINTER 00019090 TCBGRS9 EQU TCB+00000084 4 BYTE POINTER 00019100 TCBGRS10 EQU TCB+00000088 4 BYTE POINTER 00019110 TCBGRS11 EQU TCB+00000092 4 BYTE POINTER 00019120 TCBGRS12 EQU TCB+00000096 4 BYTE POINTER 00019130 TCBGRS13 EQU TCB+00000100 4 BYTE POINTER 00019140 TCBGRS14 EQU TCB+00000104 4 BYTE POINTER 00019150 TCBGRS15 EQU TCB+00000108 4 BYTE POINTER 00019160 TCBFSA EQU TCB+00000112 FULLWORD POINTER 00019170 TCBQEL EQU TCB+00000112 1 BYTE POINTER 00019180 TCBFSAB EQU TCB+00000113 3 BYTE POINTER 00019190 TCBTCB EQU TCB+00000116 FULLWORD POINTER 00019200 TCBTME EQU TCB+00000120 FULLWORD POINTER 00019210 TCBJSTCB EQU TCB+00000124 FULLWORD POINTER 00019220 TCBPIBT EQU TCB+00000124 1 BYTE(S) 00019230 TCBPART EQU TCB+00000124 2 BIT(S) 00019240 TCBSIZE EQU TCB+00000124 1 BIT(S) 00019250 TCBSTOP EQU TCB+00000124 1 BIT(S) 00019260 A00035 EQU TCB+00000124 1 BIT(S) 00019270 A00036 EQU TCB+00000124 1 BIT(S) 00019280 TCBWRITE EQU TCB+00000124 1 BIT(S) 00019290 TCBSCHED EQU TCB+00000124 1 BIT(S) 00019300 TCBJSTCA EQU TCB+00000125 3 BYTE POINTER 00019310 TCBNTC EQU TCB+00000128 FULLWORD POINTER 00019320 TCBOTC EQU TCB+00000132 FULLWORD POINTER 00019330 TCBLTC EQU TCB+00000136 FULLWORD POINTER 00019340 TCBIQE EQU TCB+00000140 FULLWORD POINTER 00019350 TCBECB EQU TCB+00000144 FULLWORD POINTER 00019360 TCBTSFLG EQU TCB+00000148 8 BIT(S) 00019370 TCBTSTSK EQU TCB+00000148 1 BIT(S) 00019380 TCBSTPPR EQU TCB+00000148 1 BIT(S) 00019390 TCBATT EQU TCB+00000148 1 BIT(S) 00019400 TCBTIOTG EQU TCB+00000148 1 BIT(S) 00019410 A00037 EQU TCB+00000148 1 BIT(S) 00019420 A00038 EQU TCB+00000148 1 BIT(S) 00019430 A00039 EQU TCB+00000148 1 BIT(S) 00019440 A00040 EQU TCB+00000148 1 BIT(S) 00019450 TCBSTPCT EQU TCB+00000149 1 BYTE POINTER 00019460 TCBTSLP EQU TCB+00000150 1 BYTE POINTER 00019470 TCBTSDP EQU TCB+00000151 1 BYTE(S) 00019480 TCBPQE EQU TCB+00000152 FULLWORD POINTER 00019490 TCBOVLY1 EQU 00000152 32 BYTE(S) ON WORD 00019500 TCBFTLMP EQU TCBOVLY1+00000000 1 BYTE POINTER 00019510 TCBFTFLG EQU TCBOVLY1+00000001 3 BYTE(S) 00019520 TCBFTFL1 EQU TCBOVLY1+00000001 1 BYTE(S) 00019530 A00041 EQU TCBOVLY1+00000001 1 BIT(S) 00019540 A00042 EQU TCBOVLY1+00000001 1 BIT(S) 00019550 A00043 EQU TCBOVLY1+00000001 1 BIT(S) 00019560 A00044 EQU TCBOVLY1+00000001 1 BIT(S) 00019570 A00045 EQU TCBOVLY1+00000001 1 BIT(S) 00019580 TCBFTTOP EQU TCBOVLY1+00000001 1 BIT(S) 00019590 TCBFTCOM EQU TCBOVLY1+00000001 1 BIT(S) 00019600 TCBFTSYN EQU TCBOVLY1+00000001 1 BIT(S) 00019610 TCBFTFL2 EQU TCBOVLY1+00000002 1 BYTE(S) 00019620 TCBFTCMP EQU TCBOVLY1+00000002 1 BIT(S) 00019630 A00046 EQU TCBOVLY1+00000002 1 BIT(S) 00019640 A00047 EQU TCBOVLY1+00000002 1 BIT(S) 00019650 A00048 EQU TCBOVLY1+00000002 1 BIT(S) 00019660 A00049 EQU TCBOVLY1+00000002 1 BIT(S) 00019670 TCBFTOPN EQU TCBOVLY1+00000002 1 BIT(S) 00019680 TCBFTETX EQU TCBOVLY1+00000002 1 BIT(S) 00019690 A00050 EQU TCBOVLY1+00000002 1 BIT(S) 00019700 TCBFTFL3 EQU TCBOVLY1+00000003 1 BYTE(S) 00019710 A00051 EQU TCBOVLY1+00000003 1 BIT(S) 00019720 A00052 EQU TCBOVLY1+00000003 1 BIT(S) 00019730 A00053 EQU TCBOVLY1+00000003 1 BIT(S) 00019740 TCBFTISS EQU TCBOVLY1+00000003 1 BIT(S) 00019750 A00054 EQU TCBOVLY1+00000003 1 BIT(S) 00019760 TCBFTDUM EQU TCBOVLY1+00000003 1 BIT(S) 00019770 A00055 EQU TCBOVLY1+00000003 2 BIT(S) 00019780 TCBAQE EQU TCBOVLY1+00000004 FULLWORD POINTER 00019790 TCBSTAB EQU TCBOVLY1+00000008 FULLWORD POINTER 00019800 TCBNSTAE EQU TCBOVLY1+00000008 1 BYTE(S) 00019810 TCBSTABE EQU TCBOVLY1+00000008 1 BIT(S) 00019820 TCBQUIES EQU TCBOVLY1+00000008 1 BIT(S) 00019830 TCBXCTL EQU TCBOVLY1+00000008 1 BIT(S) 00019840 TCBSCAT EQU TCBOVLY1+00000008 1 BIT(S) 00019850 TCBHALT EQU TCBOVLY1+00000008 1 BIT(S) 00019860 TCBSUPER EQU TCBOVLY1+00000008 1 BIT(S) 00019870 TCBRETRY EQU TCBOVLY1+00000008 1 BIT(S) 00019880 TCBVALID EQU TCBOVLY1+00000008 1 BIT(S) 00019890 TCBSTABB EQU TCBOVLY1+00000009 3 BYTE POINTER 00019900 TCBTCT EQU TCBOVLY1+00000012 FULLWORD POINTER 00019910 A00056 EQU TCBOVLY1+00000012 1 BYTE(S) 00019920 TCBTCTB EQU TCBOVLY1+00000013 3 BYTE POINTER 00019930 TCBUSER EQU TCBOVLY1+00000016 FULLWORD POINTER 00019940 TCBDAR EQU TCBOVLY1+00000020 1 BYTE(S) 00019950 TCBDARP EQU TCBOVLY1+00000020 1 BIT(S) 00019960 TCBDARS EQU TCBOVLY1+00000020 1 BIT(S) 00019970 TCBDARD EQU TCBOVLY1+00000020 1 BIT(S) 00019980 TCBDARC EQU TCBOVLY1+00000020 1 BIT(S) 00019990 TCBDARO EQU TCBOVLY1+00000020 1 BIT(S) 00020000 A00057 EQU TCBOVLY1+00000020 1 BIT(S) 00020010 A00058 EQU TCBOVLY1+00000020 1 BIT(S) 00020020 TCBEXSVC EQU TCBOVLY1+00000020 1 BIT(S) 00020030 TCBSCNDY EQU TCBOVLY1+00000021 3 BYTE(S) 00020040 TCBNDSP1 EQU TCBOVLY1+00000021 1 BYTE(S) 00020050 TCBDARTN EQU TCBOVLY1+00000021 1 BIT(S) 00020060 TCBDARPN EQU TCBOVLY1+00000021 1 BIT(S) 00020070 TCBRSTND EQU TCBOVLY1+00000021 1 BIT(S) 00020080 TCBRSPND EQU TCBOVLY1+00000021 1 BIT(S) 00020090 A00059 EQU TCBOVLY1+00000021 1 BIT(S) 00020100 TCBTPSP EQU TCBOVLY1+00000021 1 BIT(S) 00020110 A00060 EQU TCBOVLY1+00000021 1 BIT(S) 00020120 A00061 EQU TCBOVLY1+00000021 1 BIT(S) 00020130 TCBNDSP2 EQU TCBOVLY1+00000022 1 BYTE(S) 00020140 TCBABD EQU TCBOVLY1+00000022 1 BIT(S) 00020150 TCBSTPP EQU TCBOVLY1+00000022 1 BIT(S) 00020160 TCBNDSVC EQU TCBOVLY1+00000022 1 BIT(S) 00020170 TCBNDTS EQU TCBOVLY1+00000022 1 BIT(S) 00020180 TCBIWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00020190 TCBOWAIT EQU TCBOVLY1+00000022 1 BIT(S) 00020200 A00062 EQU TCBOVLY1+00000022 1 BIT(S) 00020210 TCBABE EQU TCBOVLY1+00000022 1 BIT(S) 00020220 TCBNDSP3 EQU TCBOVLY1+00000023 1 BYTE(S) 00020230 TCBTERM EQU TCBOVLY1+00000023 1 BIT(S) 00020240 TCBABTER EQU TCBOVLY1+00000023 1 BIT(S) 00020250 A00063 EQU TCBOVLY1+00000023 1 BIT(S) 00020260 A00064 EQU TCBOVLY1+00000023 1 BIT(S) 00020270 A00065 EQU TCBOVLY1+00000023 1 BIT(S) 00020280 A00066 EQU TCBOVLY1+00000023 1 BIT(S) 00020290 A00067 EQU TCBOVLY1+00000023 1 BIT(S) 00020300 A00068 EQU TCBOVLY1+00000023 1 BIT(S) 00020310 A00069 EQU TCBOVLY1+00000024 FULLWORD INTEGER 00020320 TCBJSCB EQU TCBOVLY1+00000028 FULLWORD POINTER 00020330 A00070 EQU TCBOVLY1+00000028 1 BYTE(S) 00020340 TCBJSCBB EQU TCBOVLY1+00000029 3 BYTE POINTER 00020350 TJBX EQU 00000000 72 BYTE(S) ON WORD 00020360 TJBXFST EQU TJBX+00000000 FULLWORD POINTER 00020370 TJBXLAST EQU TJBX+00000004 FULLWORD POINTER 00020380 TJBXDSE EQU TJBX+00000008 FULLWORD POINTER 00020390 TJBXSVRB EQU TJBX+00000012 FULLWORD POINTER 00020400 TJBXRQE EQU TJBX+00000016 FULLWORD POINTER 00020410 TJBXIQE EQU TJBX+00000020 FULLWORD POINTER 00020420 TJBXTAXE EQU TJBX+00000024 FULLWORD INTEGER 00020430 TJBXLECB EQU TJBX+00000028 FULLWORD INTEGER 00020440 TJBXPSWD EQU TJBX+00000032 8 BYTE(S) 00020450 A00071 EQU TJBX+00000040 FULLWORD INTEGER 00020460 TJBXAIQE EQU TJBX+00000044 FULLWORD POINTER 00020470 TJBXQPL EQU TJBX+00000048 FULLWORD POINTER 00020480 TJBXNQPE EQU TJBX+00000052 HALFWORD INTEGER 00020490 TJBXNTCB EQU TJBX+00000054 HALFWORD INTEGER 00020500 TJBXLQPL EQU TJBX+00000056 HALFWORD INTEGER 00020510 TJBXHBFL EQU TJBX+00000058 1 BYTE(S) 00020520 A00072 EQU TJBX+00000059 1 BYTE(S) 00020530 TJBXACT EQU TJBX+00000060 FULLWORD INTEGER 00020540 TJBXAECB EQU TJBX+00000064 FULLWORD POINTER 00020550 TJBXKEYA EQU TJBX+00000068 FULLWORD POINTER 00020560 DSE EQU 00000000 76 BYTE(S) ON WORD 00020570 DSEFORWD EQU DSE+00000000 FULLWORD POINTER 00020580 DSEBCKWD EQU DSE+00000004 FULLWORD POINTER 00020590 DSEBLKSZ EQU DSE+00000008 HALFWORD INTEGER 00020600 DSESTAT EQU DSE+00000010 1 BYTE(S) 00020610 A00073 EQU DSE+00000010 1 BIT(S) 00020620 A00074 EQU DSE+00000010 1 BIT(S) 00020630 A00075 EQU DSE+00000010 1 BIT(S) 00020640 A00076 EQU DSE+00000010 1 BIT(S) 00020650 DSESHR EQU DSE+00000010 1 BIT(S) 00020660 DSENEW EQU DSE+00000010 1 BIT(S) 00020670 DSEMOD EQU DSE+00000010 1 BIT(S) 00020680 DSEOLD EQU DSE+00000010 1 BIT(S) 00020690 DSECNTRL EQU DSE+00000011 1 BYTE(S) 00020700 DSEDYN EQU DSE+00000011 1 BIT(S) 00020710 DSENUSED EQU DSE+00000011 1 BIT(S) 00020720 DSEMEM EQU DSE+00000011 1 BIT(S) 00020730 DSEDTIOT EQU DSE+00000011 1 BIT(S) 00020740 DSECON EQU DSE+00000011 1 BIT(S) 00020750 A00077 EQU DSE+00000011 1 BIT(S) 00020760 DSEPERM EQU DSE+00000011 1 BIT(S) 00020770 A00078 EQU DSE+00000011 1 BIT(S) 00020780 DSEDDNAM EQU DSE+00000012 8 BYTE(S) 00020790 DSETCBAD EQU DSE+00000020 FULLWORD POINTER 00020800 DSETTRPW EQU DSE+00000024 FULLWORD INTEGER 00020810 DSENDISP EQU DSE+00000028 1 BYTE(S) 00020820 A00079 EQU DSE+00000028 1 BIT(S) 00020830 A00080 EQU DSE+00000028 1 BIT(S) 00020840 A00081 EQU DSE+00000028 1 BIT(S) 00020850 A00082 EQU DSE+00000028 1 BIT(S) 00020860 DSEKEP EQU DSE+00000028 1 BIT(S) 00020870 DSEDEL EQU DSE+00000028 1 BIT(S) 00020880 DSECAT EQU DSE+00000028 1 BIT(S) 00020890 DSEUCAT EQU DSE+00000028 1 BIT(S) 00020900 DSEADISP EQU DSE+00000029 1 BYTE(S) 00020910 A00083 EQU DSE+00000029 1 BIT(S) 00020920 A00084 EQU DSE+00000029 1 BIT(S) 00020930 A00085 EQU DSE+00000029 1 BIT(S) 00020940 A00086 EQU DSE+00000029 1 BIT(S) 00020950 DSEAKEP EQU DSE+00000029 1 BIT(S) 00020960 DSEADEL EQU DSE+00000029 1 BIT(S) 00020970 DSEACAT EQU DSE+00000029 1 BIT(S) 00020980 DSEAUCAT EQU DSE+00000029 1 BIT(S) 00020990 DSEDSORG EQU DSE+00000030 1 BYTE(S) 00021000 DSEIS EQU DSE+00000030 1 BIT(S) 00021010 DSEPS EQU DSE+00000030 1 BIT(S) 00021020 DSEDA EQU DSE+00000030 1 BIT(S) 00021030 A00087 EQU DSE+00000030 1 BIT(S) 00021040 A00088 EQU DSE+00000030 1 BIT(S) 00021050 A00089 EQU DSE+00000030 1 BIT(S) 00021060 DSEPO EQU DSE+00000030 1 BIT(S) 00021070 DSEU EQU DSE+00000030 1 BIT(S) 00021080 DSEDSLNG EQU DSE+00000031 1 BYTE POINTER 00021090 DSEDSNAM EQU DSE+00000032 44 BYTE(S) 00021100 DSEMEMBR EQU 00000000 8 BYTE(S) 00021110 PARMPTR EQU 00000003 FULLWORD POINTER REGISTER 00021120 DAWT EQU 00000000 552 BYTE(S) ON WORD 00021130 DAWTDSE EQU DAWT+00000000 32 BYTE(S) ON WORD 00021140 DAWTXCTL EQU DAWT+00000000 16 BYTE(S) ON WORD 00021150 XCTLAD EQU DAWT+00000000 FULLWORD POINTER 00021160 XCTLDCB EQU DAWT+00000004 FULLWORD INTEGER 00021170 XCTLEP EQU DAWT+00000008 8 BYTE(S) 00021180 PPARMP EQU DAWT+00000016 FULLWORD POINTER 00021190 LNGH EQU DAWT+00000020 HALFWORD INTEGER 00021200 A00090 EQU DAWT+00000022 1 BYTE(S) 00021210 TIOTNO EQU DAWT+00000023 1 BYTE(S) 00021220 TIOTP EQU DAWT+00000024 FULLWORD POINTER 00021230 RTCODE EQU DAWT+00000028 FULLWORD INTEGER 00021240 DAWTQMPA EQU DAWT+00000032 36 BYTE(S) 00021250 DAWTEIOB EQU DAWT+00000068 84 BYTE(S) 00021260 DAWA1 EQU DAWT+00000152 176 BYTE(S) 00021270 DAWA2 EQU DAWT+00000328 176 BYTE(S) 00021280 DAWTVARY EQU DAWT+00000504 48 BYTE(S) 00021290 A00091 EQU 00000504 48 BYTE(S) ON WORD 00021300 DD1ADD EQU A00091+00000000 FULLWORD POINTER 00021310 DD2ADD EQU A00091+00000004 FULLWORD POINTER 00021320 DAW1P EQU A00091+00000008 FULLWORD POINTER 00021330 DSNADD EQU A00091+00000012 FULLWORD POINTER 00021340 ADDNAME1 EQU A00091+00000016 FULLWORD POINTER 00021350 ADDNAME2 EQU A00091+00000020 FULLWORD POINTER 00021360 AFDSE EQU A00091+00000024 FULLWORD POINTER 00021370 ANDSE EQU A00091+00000028 FULLWORD POINTER 00021380 ADSNDSE EQU A00091+00000032 FULLWORD POINTER 00021390 A00092 EQU A00091+00000036 FULLWORD INTEGER 00021400 A00093 EQU A00091+00000040 FULLWORD INTEGER 00021410 A00094 EQU A00091+00000044 4 BYTE(S) 00021420 VFLAGS EQU A00091+00000044 1 BYTE(S) 00021430 DDNAME1 EQU A00091+00000044 1 BIT(S) 00021440 DDNAME2 EQU A00091+00000044 1 BIT(S) 00021450 DSNAM EQU A00091+00000044 1 BIT(S) 00021460 SERCHTCB EQU A00091+00000044 1 BIT(S) 00021470 A00095 EQU A00091+00000044 4 BIT(S) 00021480 CONCOUNT EQU A00091+00000045 1 BYTE(S) 00021490 A00096 EQU A00091+00000046 2 BYTE(S) 00021500 A00097 EQU 00000504 45 BYTE(S) ON WORD 00021510 OLDDSE EQU A00097+00000000 FULLWORD POINTER 00021520 NEWDSE EQU A00097+00000004 FULLWORD POINTER 00021530 A00098 EQU A00097+00000008 FULLWORD INTEGER 00021540 ADDINIT EQU A00097+00000012 FULLWORD POINTER 00021550 LASTDSE EQU A00097+00000016 FULLWORD POINTER 00021560 A00099 EQU A00097+00000020 24 BYTE(S) 00021570 A00100 EQU A00097+00000044 1 BYTE(S) ON WORD 00021580 A00101 EQU A00097+00000044 1 BYTE(S) ON WORD 00021590 A00102 EQU A00097+00000044 5 BIT(S) 00021600 ONEBLK EQU A00097+00000044 1 BIT(S) 00021610 DSEFRONT EQU A00097+00000044 1 BIT(S) 00021620 DSEBACK EQU A00097+00000044 1 BIT(S) 00021630 A00103 EQU 00000000 79 BYTE(S) ON WORD 00021640 PLNGH EQU A00103+00000000 HALFWORD INTEGER 00021650 PCODE EQU A00103+00000002 1 BYTE(S) 00021660 POPTIONS EQU A00103+00000003 8 BIT(S) 00021670 ODUMMY EQU A00103+00000003 1 BIT(S) 00021680 A00104 EQU A00103+00000003 1 BIT(S) 00021690 OTERM EQU A00103+00000003 1 BIT(S) 00021700 ODSNAME EQU A00103+00000003 1 BIT(S) 00021710 A00105 EQU A00103+00000003 1 BIT(S) 00021720 A00106 EQU A00103+00000003 1 BIT(S) 00021730 A00107 EQU A00103+00000003 1 BIT(S) 00021740 OEXCH EQU A00103+00000003 1 BIT(S) 00021750 PDDNM1 EQU A00103+00000004 8 BYTE(S) 00021760 A00108 EQU A00103+00000012 1 BYTE(S) 00021770 PDDNM2 EQU A00103+00000013 8 BYTE(S) 00021780 A00109 EQU A00103+00000021 1 BYTE(S) 00021790 PDISP1 EQU A00103+00000022 8 BIT(S) 00021800 A00110 EQU A00103+00000022 1 BIT(S) 00021810 A00111 EQU A00103+00000022 1 BIT(S) 00021820 A00112 EQU A00103+000000