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