MACRO 00001000 SYSCOM &SECT 00002000 PUSH PRINT 00002100 AIF ('&SYSPARM' NE 'SUP').ACC01 00002200 PRINT OFF,NOGEN 00002300 .ACC01 ANOP 00002400 AIF ('&SECT' EQ 'CSECT').CSECT 00003000 SYSCOM DSECT 00004000 AGO .CONT 00005000 .CSECT ANOP 00006000 ENTRY SYSCOM 00007000 SYSCOM DS 0D 00008000 .CONT ANOP 00009000 IJBERBLC DC A(0) . ADDRESS OF ERROR BLOCK 00010000 IJBAREX DC A(0) . EXIT ADDRESS FOR ATTENTION 00011000 IJBERR19 DC H'0' . CANCEL EXIT FOR ATTENTION 00012000 IJBERR24 DC H'0' . CANCEL EXIT FOR ATTENTION 00013000 IJBPUBRS DC F'0' . SYSRES PUB ADDRESS 00014000 IJBFETCH DC A(0) . ADDRESS OF FETCH ROUTINE 00015000 IJBINTRT DC A(0) . ADDRESS OF I/O INTERRUPT ROUTINE 00016000 IJBEXTRT DC A(0) . ADDRESS OF EXTERNAL INTERRUPT ROUTI 00017000 IJBLTA DC A(0) . POINTER TO LOGICAL TRANSIENT AREA 00018000 IJBPPBEG DC A(0) . POINTER TO PROBLEM PROGRAM AREA 00019000 IJBFLPTR EQU * . FREE LIST POINTER 00020000 IJBCHANQ DC F'0' . POINTER TO CHANNEL QUEUE 00021000 IJBQSIZE DC H'0' . NUMBER OF CHANNEL QUEUE ENTRIES 00022000 IJBQLNG DC H'0' . LENGTH OF ONE ERROR QUEUE ENTRY 00023000 IJBNPART DC H'1' . NUMBER OF PARTITIONS 00024000 DC H'0' . NOT USED 00025000 IJBRSAVE DC A(0) . POINTER TO CHANNEL BUCKETS 00026000 IJBCONSP DC A(0) . ADDRESS OF CRT TABLE 00027000 IJBSAB DC A(0) . ADDRESS OF SAB TABLE 00028000 IJBCHNTB DC A(0) . ADDRESS OF CHANNEL CONTROL TABLE 00029000 IJBFLG01 DC X'00' . FLAGS AND SWITCHES 125 RMS 00030000 IJBFLG02 DC X'00' . SWITCH BYTE 00031000 IJBFLG03 DC X'00' . FLAGS AND SWITCHES 00032000 IJBFLG04 DC X'00' . FLAGS AND SWITCHES 00033000 IJBSTID DC H'0' . SYSTEM TASK SELECTION CONTR. FIELD 00034000 IJBSELCT EQU *-1 . SYSTEM TASK SELECT BYTE 00035000 IJBEXIT DC H'0' . POINTER TO TASK SELECTION 00036000 IJBPDADR DC A(0) . POINTER TO PDAREA 00037000 IJBTHPTR EQU *-1 . TRACKHOLD FLPTR 00038000 IJBTKHLD DC F'0' . ADDRESS OF TRACK HOLD TABLE 00039000 IJBTIMER DC A(0) . ADDR OF TIMER REQUEST TABLE 00040000 AIF ('&SECT' EQ 'CSECT').S1 00041000 IJBABTAB DC A(0) . ADDRESS OF AB OPTION TABLE 00042000 AGO .S2 00043000 .S1 ANOP 00044000 IJBABTAB DC A(ABTAB) . ADDRESS OF AB OPTION TABLE 00045000 .S2 ANOP 00046000 IJBLIK DC H'0' . KEY OF TASK OWNING THE LTA 00047000 IJBTIK DC X'0010' . TASK INTERRUPT KEY 00048000 IJBPWR DC A(0) . POINTER TO POWER TABLE 00049000 IJBTCAVT DC A(0) . SPACE FOR VTAM ADDRESS 00050000 IJBRFTAB DC A(0) . POINTER TO RF TABLE 00051000 IJBEUECB DC A(0) . PNTR TO EU & ECB TABLE 00052000 IJBOLTEP DC A(0) . ADDRESS OF OLTEP BUCKET 00053000 IJBRASLN DC A(0) . POINTER TO RAS LINKAGE AREA 00054000 IJBTRTAB DC A(0) . ADRESS OF ASCII TABLE 00055000 AIF ('&SECT' EQ 'CSECT').S3 00056000 IJBPBOWN DC A(0) . ADDRESS OF PUB OWNERSHIP TABLE 00057000 AGO .S4 00058000 .S3 ANOP 00059000 IJBPBOWN DC A(PUBOWNER) . ADDRESS OF PUB OWNERSHIP TABLE 00060000 .S4 ANOP 00061000 IJBJATAB DC A(0) . ADDR OF JOB ACCOUNTING COMM.AREA 00062000 IJBPMGR DC A(0) . BASE ADDRESS OF PMGR ROUTINES 00063000 AIF ('&SECT' EQ 'CSECT').S3A 00064000 IJBCCWT DC A(0) . ADDRESS OF CCW TRANS WORK 00065000 AGO .S4A 00066000 .S3A ANOP 00067000 IJBCCWT DC A(EXCPW) . ADDRESS OF CCW TRANS WORK 00068000 .S4A ANOP 00069000 IJBSAVSD DC A(0) . PNTR TO SDAID COMM. AREA 00070000 IJBLNSTB DC A(0) . ADDRESS OF LINE MODE TABLE 00071000 IJBAMCOM DC A(0) . ADDR OF VSAM COMM. REG. 00072000 IJBAPTA DC A(0) . ADDRESS OF PTA 00073000 IJBSBLK0 DC A(0) . PTR TO FIRST SYSTEM TASK BLOCK 00074000 IJBSBLKX DC F'0' . PTR TO CURRENT SYSTEM TASK 00075000 IJBSYSPT DC X'00' . FOR ALIGNMENT 00076000 IJBRASPT DC AL1(0) PTR TO RAS TASK BLOCK 00077000 IJBPMRPT DC AL1(0) . PTR FOR PMGR TASK BLOCL 00078000 IJBSUPPT DC AL1(0) . PTR TO SPVR TASK BLOCK 00079000 IJBCRTPT DC AL1(0) . PTR TO CRT TASK BLOCK 00080000 IJBERPPT DC AL1(0) . PTR TO ERP TASK BLOCK 00081000 DC 10X'00' . RES. FOR FUTURE SYSTEM TASKS 00082000 DC F'0' . UNUSED 00083000 IJBMVCAD DC A(0) . PTR TO MVCFLD 00084000 DC F'0' . NOT USED 00085000 DC H'0' . NOT USED 00086000 DC H'0' . NOT USED 00087000 IJBMFCER DS 11X'00' . REPOSIT. INFO MFCM AND MFCU ERP 00088000 IJBNERQ DC AL1(0) . NUMBER OF ERROR QUEUE ENTRIES 00089000 AIF ('&SECT' EQ 'CSECT').S5 00090000 IJBPUBLN DC S(0) . LENGTH OF PUB TABLE 00091000 AGO .S6 00092000 .S5 ANOP 00093000 IJBPUBLN DC S(PUBEND-PUBTAB+1) LENGTH OF PUB TABLE 00094000 .S6 ANOP 00095000 IJBAPNO DC H'1' . NUMBER OF ACTIVE PARTITIONS 00096000 IJBSEGT DC A(0) . ADDRESS OF SEGMENT TABLE 00097000 IJBPFT DC A(0) . ADDRESS OF PAGE FRAME TABLE 00098000 IJBPFTX DC A(0) . PTR.TO PAGE FRAME TABLE EXTENSION 00099000 AIF ('&SECT' EQ 'CSECT').S7 00100000 IJBBOX DC A(0) . POINTER TO BOUNDARY BOX 00101000 AGO .S8 00102000 .S7 ANOP 00103000 IJBBOX DC A(BBOX) . POINTER TO BOUNDARY BOX 00104000 .S8 ANOP 00105000 IJBDPDTB DC A(0) . PTR.TO DPD TABLE 00106000 DC F'0' . NOT USED 00107000 IJBVIRAD DC A(0) . ADDRESS OF VIRTAD ROUTINE 00108000 IJBEOR DC F'0' . END OF REAL STORAGE 00109000 AIF ('&SECT' EQ 'CSECT').S9 00110000 IJBFTTAB DC A(0) . ADDRESS OF THE FETCH TABLE 00111000 AGO .S10 00112000 .S9 ANOP 00113000 IJBFTTAB DC A(FCHTAB) . ADDRESS OF THE FETCH TABLE 00114000 .S10 ANOP 00115000 IJBSVA DC A(0) . ADDRESS OF THE SVA START 00116000 IJBSVIS DC A(0) . ADDRESS OF SVA GETVIS AREA 00117000 ARPSL DC A(0) - RESERVED FOR FUTURE USE 00118000 ARPSR DC A(0) - RESERVED FOR FUTURE USE 00119000 IJBDLAB DC A(SYS$CODE) - PTR TO SYSTEM CODE NAME 00120000 SYS$CODE DC CL13'CMS/VSAM' - SYSTEM CODE NAME 00121000 EJECT 00122000 POP PRINT 00122100 MEND 00123000