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