MACRO 00001000
BGCOM &SECT 00002000
PUSH PRINT 00002100
AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
PRINT OFF,NOGEN 00002300
.ACC01 ANOP 00002400
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
BGCOM DSECT 00004000
AGO .CONT 00005000
.CSECT ANOP 00006000
ENTRY BGCOM 00007000
BGCOM DS 0D BACKGROUND COMM. REGION 00008000
USING BGCOM,0 00009000
.CONT ANOP 00010000
JOBDATE DC C'00/00/00' . 00 JOB DATE 00011000
PPBEG DC S(0) . 08 SUPERVISOR END 00012000
EOSSP DC S(0) . 10 END OF STORAGE PROTECTION 00013000
DC 11X'00' . 12 USER SCRATCH AREA 00014000
UPSI DC X'00' . 23 UPSI BYTE 00015000
COMNAME DC CL8'CMS/DOS' . 24 JOB NAME 00016000
PPEND DC A(0) . 32 HIGHEST STORAGE ADDRESS OF PARTITION 00017000
HIPHAS DC A(0) . 36 END ADDRESS OF LAST PHASE LOADED 00018000
HIPROG DC A(0) . 40 END ADDRESS OF LONGEST PHASE LOADED 00019000
LABLEN DC H'0' . 44 LENGTH OF PROBLEM PROGRAM LABEL AREA 00020000
PIK DC X'0010' . 46 PROGRAM INTERRUPT KEY 00021000
EOCADR DC A(0) . 48 END OF VIRTUAL STORAGE ADDRESS 00022000
CONFIG DC B'11101000' . 52 MACHINE CONFIGURATION BYTE 00023000
LTACT DC B'00010000' . 53 SYSTEM CONFIGURATION BYTE 00024000
SOB1 DC B'11000100' . 54 STANDARD LANGUAGE TRANSLATOR OPTIONS 00025000
SOB2 DC B'11011010' . 55 STANDARD SUPERVISOR OPTIONS 00026000
JCSW1 DC B'10010000' . 56 JOB CONTROL BYTE 00027000
JCSW2 DC B'00000000' . 57 LINKAGE CONTROL BYTE 00028000
JCSW3 DC B'11000100' . 58 NON-STD LANGUAGE TRANSLATOR OPTIONS 00029000
JCSW4 DC B'10000000' . 59 JOB DURATION INDICATOR BYTE 00030000
DALC DC H'0' . 60 DISK ADDRESS OF VOLUME LABEL 00031000
FOCLPT DC S(0) . 62 ADDRESS OF FOCL 00032000
AIF ('&SECT' EQ 'CSECT').B1 00033000
PUBPT DC S(0) . 64 ADDRESS OF PUB 00034000
AGO .B2 00035000
.B1 ANOP 00036000
PUBPT DC S(PUBTAB) . 64 ADDRESS OF PUB 00037000
.B2 ANOP 00038000
FAVPT DC S(0) . 66 ADDRESS OF FAVP 00039000
JIBPT DC S(0) . 68 ADDRESS OF JIB 00040000
TEBPT DC S(0) . 70 ADDRESS OF TEB 00041000
AIF ('&SECT' EQ 'CSECT').B3 00042000
FICLPT DC S(0) . 72 ADDRESS OF FICL 00043000
NICLPT DC S(0) . 74 ADDRESS OF NICL 00044000
LUBPT DC S(0) . 76 ADDRESS OF LUB 00045000
AGO .B4 00046000
.B3 ANOP 00047000
FICLPT DC S(FICL) . 72 ADDRESS OF FICL 00048000
NICLPT DC S(NICL) . 74 ADDRESS OF NICL 00049000
LUBPT DC S(LUBTAB) . 76 ADDRESS OF LUB 00050000
.B4 ANOP 00051000
SYSLINE DC AL1(56) . 78 SYSLST LINE COUNT 00052000
SYSDATE DS 0CL9 . 79 SYSTEM DATE 00053000
MMDD DC XL4'00' MMDD OR DDMM 00054000
YYDDD DC XL5'00' YYDDD PORTION OF DATE 00055000
LIOCSCOM DC 2X'00' 88 LIOCS COMMUNICATION BYTES 00056000
AIF ('&SECT' EQ 'CSECT').B5 00057000
PIBPT DC S(0) . 90 ADDRESS OF PIB 00058000
AGO .B6 00059000
.B5 ANOP 00060000
PIBPT DC S(PIBTAB) . 90 ADDRESS OF PIB 00061000
.B6 ANOP 00062000
CHKPTID DC H'0' . 92 LAST CHECKPOINT NUMBER 00063000
JOBZON DC S(0) . 94 JOB ZONE IN MINUTES 00064000
DIBPT DC S(0) . 96 BACKGROUND DIB POINTER 00065000
DC H'0' . 98 RESERVED 00066000
AIF ('&SECT' EQ 'CSECT').B7 00067000
PCPTR DC S(0) . 100 PC OPTION TABLE 00068000
AGO .B8 00069000
.B7 ANOP 00070000
PCPTR DC S(PCTAB) . 100 PC OPTION TABLE 00071000
.B8 ANOP 00072000
ITPTR DC S(0) . 102 IT OPTION TABLE 00073000
OCPT DC S(0) . 104 OC OPTION TABLE 00074000
PWTIMS DC X'0000' . 106 KEY OF PROGRAM WITH IT SUPPORT 00075000
DC H'0' . 108 RESERVED 00076000
LTK DC S(0) . 110 LOGICAL TRANSIENT KEY 00077000
SYSPAR DC F'0' . 112 ADDRESS OF SYSPARM 00078000
JAPART DC F'0' . 116 ADDRESS OF JOB ACCOUNTING TABLE 00079000
TODCOM DC A(0) . 120 ADDR OF TOD COMMUNICATIONS AREA 00080000
AIF ('&SECT' EQ 'CSECT').B9 00081000
PIB2PTR DC S(0) . 124 ADDRESS OF PIB EXTENSION 00082000
AGO .B10 00083000
.B9 ANOP 00084000
PIB2PTR DC S(PIB2TAB) . 124 ADDRESS OF PIB EXTENSION 00085000
.B10 ANOP 00086000
PDTABB DC S(0) . 126 ADDR OF MICR DTF TABLE 00087000
IJLQTTAD DC A(0) . 128 ADDR OF QTAM VECTOR TABLE 00088000
AIF ('&SECT' EQ 'CSECT').B11 00089000
BGCOMPT DC S(0) . 132 ADDRESS OF BACKGROUND COMREG 00090000
AGO .B12 00091000
.B11 ANOP 00092000
BGCOMPT DC S(BGCOM) . 132 ADDRESS OF BACKGROUND COMREG 00093000
.B12 ANOP 00094000
OPTNBYTE DC X'00' . 134 OPTION INDICATOR BYTE 00095000
RMSROPEN DC B'00000000' . 135 SYSTEM CONFIG BYTE 2 00096000
COMEX DC A(0) . 136 PTR. TO SYSCOM OPTION TABLE 00097000
STDOPT DC B'01000000' . 140 STANDARD JOB CONTROL OPTION BYTE 00098000
TEMOPT DC B'01000000' . 141 TMPORARY JOB CONTROL OPTION BYTE 00099000
DISKCONF DC X'00' . 142 DISK CONFIGURATION BYTE 00100000
PROCNAM DC CL8' ' . 143 PROCEDURE NAME 00101000
PSWTCH DC X'0' . 151 INTERFACE BYTE FOR CATAL. PROC. 00102000
POVNAM DC CL7' ' . 152 SAVE AREA FOR STATEMENT NAME 00103000
INSIZE DC X'0' . 159 81 BYTE SYSIN INDICATOR 00104000
AIF ('&SECT' NE 'CSECT').END 00105000
DROP 0 00106000
.END ANOP 00107000
EJECT 00108000
POP PRINT 00108100
MEND 00109000