(George Source)
Macros used: BITDEFS
22FL ...[ COMMAND PROCESSOR : CENT 22^= [ 236D ...#DEF BIWRFL=1 [SKIP IDENTIFIER FOR DS8224 23?L ... [WRITE-FAIL ENHANCEMENT 23DW #OPT APL=0 23YG #OPT AJOBUSE=0 [INTERCHANGING JOB NAME AND USER NAME 24D6 #OPT FONINTP=4 [SECONDS BETWEEN SPRING CLEAN WAKING 24XQ [UP CERTAIN ACTIVITIES 25CB #DEF EMSHLSLEN=JSOURCE3-A1 25X2 #OPT ASYNTAX=0 26BL #OPT IDMKT7=0 26W= #OPT ICOMER=IDMKT7 27*W #OPT ICANWEN=IDMKT7 27TG #OPT JBCOUNT=1 28*6 #OPT K0SETPRAMA=0 28SQ #OPT CJOBRING=0 29#B #OPT ASTATUS=0 29S2 #DEF GOBJECT=#10 [OBJECT REPORT STYLE BIT FOR LOGANALY 2=?L #DEF BRKBIT=#10000000 [BREAKIN INDICATOR USED BY CONNECT AN 2=R= [SIMULATED BREAKIN BY COMMAND PROCESS 2?=W #OPT COMLEVMAX=25 [MAXIMUM C.P. LEVEL ALLOWED 2?QG #OPT AMAXREC=200 [MAX NO. OF RECORDS PERMITTED IN CONM 2#=6 #OPT AWATE=30 [WAITING TIME AT SIMULATED ENDJOB(MIN 2#PQ #OPT CPMK7=0 2*9B #OPT CPDATA=A1+2 2*P2 #DEF ATREEWDS=0 [NO OF WDS USED FOR PTRS IN TREE BLK 2B8L #OPT COMPROMK7=1 [USE MK7 COMMAND PROCESSOR CODE 2BN= #OPT AMKSIXIF=1 2C7W #OPT K0IFEXPAN=K0ALLGEO 2CMG #OPT K6IFEXPAN=K6ALLGEO 2D76 [ K0IFXCODES IS OPTIONALLY DEFINED IN THE SUBFILE 2DLQ [ IFNUMS203 IS LISTED AT LEVEL K0IFEXPAN 2F6B [ 2FL2 [ TRACING FOR ALL IF SEGMENTS USES IDENTIFIER K6IFEXPAN 2G5L [ 2GK= [ K0ERROR AND K6ERROR ARE OPTIONALLY DEFINED BELOW 2H4W [ 2HJG #OPT K0BJE=0 2J46 #OPT K0BLANKET=K0BJE 2JHQ #OPT K0ENGAGE=K0BJE 2K3B #OPT K0REPORT=K0BJE 2KH2 #OPT K0CHARGESC=K0BJE 2L2L #OPT K0PROCONTA=K0BJE 2LG= #OPT K0PROCONTB=K0BJE 2L^W #OPT K0PROCONTX=K0BJE 2MFG #OPT K0RUNPROG=K0BJE 2M^6 #OPT K0CAPCA=K0BJE 2NDQ #OPT K0PCACA=K0BJE 2NYB #OPT K0GIVE=K0BJE 2PD2 #OPT K0OUTMILL=K0BJE 2PXL #OPT K0PERFAIL=K0BJE 2QC= #OPT K0LOGIN=K0BJE 2QWW #OPT K0LOGOUT=K0BJE 2RBG #OPT K0NEXTJOB=K0BJE 2RW6 #OPT K0JOB=K0BJE 2S*Q #OPT K0JOBTWO=K0BJE 2STB #OPT K0JOBTHREE=K0BJE 2T*2 #OPT K0CONNECT=K0BJE 2TSL #OPT K0DISCNECT=K0BJE 2W#= #OPT K0ABANDON=K0BJE 2WRW #OPT K0TIME=K0BJE 2X?G #OPT K0JOBTIME=K0BJE 2XR6 #OPT K0CORE=K0BJE 2Y=Q #OPT K0DATECON=K0BJE 2YQB #OPT K0TIMECON=K0BJE 2^=2 # 2^PL # 329= #OPT K0ADDJOB=0 32NW #OPT K0ALAS=0 338G #OPT K0ALASB=0 33N6 #OPT K0ANALYSEA=0 347Q #OPT K0ANALYSE=0 34MB #OPT K0CLEAN=0 3572 #OPT K0COMPRO=0 35LL #OPT K0COMPROB=0 366= #OPT K0CONTINUE=0 36KW #OPT K0ERROR=0 375G #OPT K0FULSTART=0 37K6 #OPT K0GOTO=0 384Q #OPT K0SETUPARA=0 38JB #OPT K0HUNTBLOK=0 3942 #OPT K0JOBLOCK=0 39HL #OPT K0LOCALNAM=0 3=3= #OPT K0PARAM=0 3=GW #OPT K0PARAMA=0 3?2G #OPT K0PROGISH=0 3?G6 #OPT K0QUIT=0 3?^Q #OPT K0REDON=0 3#FB #OPT K0PROSTART=0 3#^2 #OPT K0NEWPASSW=0 3*DL #OPT K0SETPARAM=0 3*Y= #OPT K0SETPAMK2=0 3BCW #OPT K0PSPLIT=0 3BXG #OPT K0WHATPERA=0 3CC6 #OPT K0WHATPER=0 3CWQ #OPT K0VERBCLAS=0 3DBB #OPT K0MACRALAS=0 3DW2 #DEF K6ADDJOB=K6ALLGEO>K6COMMAND>K6INGEO 3F*L #OPT K6ALAS=K6ALLGEO>K6COMMAND>K6INGEO 3FT= #OPT K6ALASB=K6ALLGEO>K6COMMAND>K6INGEO 3G#W #OPT K6CHARGESC=K6OBJPROG>K6ALLGEO>K6GREATGEO 3GSG #OPT K6CLEAN=K6ALLGEO>K6COMMAND>K6INGEO 3H#6 #OPT K6COMPRO=K6ALLGEO>K6COMMAND>K6INGEO 3HRQ #OPT K6COMPROB=K6ALLGEO>K6COMMAND>K6INGEO 3J?B #OPT K6CONTINUE=K6ALLGEO>K6COMMAND>K6INGEO 3JR2 #OPT K6CORE=K6ALLGEO>K6COMMAND>K6INGEO>K6OBJPROG 3K=L #OPT K6ERROR=K6ALLGEO>K6COMMAND>K6INGEO 3KQ= #OPT K6GOTO=K6ALLGEO>K6COMMAND>K6INGEO 3L9W #OPT K6JOB=K6ALLGEO>K6COMMAND>K6INGEO>K6OBJPROG 3LPG #OPT K6JOBTWO=K6ALLGEO>K6COMMAND>K6INGEO>K6OBJPROG 3M96 #OPT K6JOBTHREE=K6JOB 3MNQ #OPT K6SETUPARA=K6ALLGEO 3N8B #OPT K6HUNTBLOK=K6ALLGEO>K6KERNEL 3NN2 #OPT K6JOBLOCK=K6ALLGEO>K6KERNEL 3P7L #OPT K6LOCALNAM=K6ALLGEO>K6COMMAND>K6INGEO 3PM= #OPT K6LOGIN=K6ALLGEO>K6COMMAND>K6INGEO>K6OBJPROG 3Q6W #OPT K6LOGOUT=K6ALLGEO>K6COMMAND>K6INGEO>K6OBJPROG 3QLG #OPT K6HLSEMS=K6ALLGEO>K6INGEO 3R66 #OPT K6NEXTJOB=K6ALLGEO>K6COMMAND>K6INGEO 3RKQ #OPT K6PARAM=K6ALLGEO>K6COMMAND>K6INGEO 3S5B #OPT K6PARAMA=K6ALLGEO>K6COMMAND>K6INGEO 3SK2 #OPT K6PROGISH=K6ALLGEO>K6COMMAND>K6INGEO 3T4L #OPT K6QUIT=K6ALLGEO>K6COMMAND>K6INGEO 3TJ= #OPT K6REDON=K6ALLGEO>K6COMMAND>K6INGEO 3W3W #OPT K6ANALYSE=K6PARAM 3WHG #OPT K6BLANKET=K6EMS>K6INGEO>K6ALLGEO>K6GREATGEO 3X36 #OPT K6ENGAGE=K6EMS>K6INGEO>K6ALLGEO>K6GREATGEO 3XGQ #OPT K6COREJAM=K6ALLGEO+487 3Y2B #OPT K6PROCONT=K6OBJPROG>K6ALLGEO>K6GREATGEO 3YG2 #OPT K6PROCONTX=K6OBJPROG>K6ALLGEO>K6GREATGEO 3Y^L #OPT K6RUNPROG=K6ALLGEO 3^F= #OPT K6CAPCA=K6ALLGEO 3^YW #OPT K6PCACA=K6ALLGEO 42DG #OPT K6PSPLIT=K6ALLGEO 42Y6 #OPT K6TIMECON=K6ALLGEO>K6GREATGEO 43CQ #OPT K6DATECON=K6ALLGEO>K6GREATGEO 43XB #OPT K6OUTMILL=K6OBJPROG>K6ALLGEO>K6GREATGEO 44C2 #OPT K6CONNECT=K6ALLGEO>K6COMMAND 44WL #OPT K6DISCNECT=K6ALLGEO>K6COMMAND 45B= #OPT K6ABANDON=K6ALLGEO>K6COMMAND 46*G #OPT K6PROSTART=K6OBJPROG>K6ALLGEO>K6GREATGEO 46T6 #OPT K6REPORT=K6ALLGEO>K6COMMAND 47#Q #OPT K6SETPARAM=K6ALLGEO>K6COMMAND 47SB #OPT K6NEWPASSW=K6ALLGEO>K6COMMAND 48#2 #OPT K6TIME=K6ALLGEO>K6COMMAND>K6INGEO>K6OBJPROG 48RL #OPT K6JOBTIME=K6ALLGEO>K6COMMAND 49?= #OPT K6VERBCLAS=K6ALLGEO>K6COMMAND>K6INGEO 49QW #OPT K6MACRALAS=K6ALLGEO>K6COMMAND>K6INGEO 4==G #OPT K6GIVE=K6OBJPROG>K6ALLGEO>K6GREATGEO 4=Q6 #DEF AVELINE=8 4?9Q #DEF ALB=APARANUM+1-A1 4?PB #DEF APB=APARAFIR-A1 4#92 [ MULTI PARAMETER BLOCKS 4#NL #DEF APTNECHA=A1 4*8= #DEF APTBEPAR=APTNECHA+1 4*MW #DEF ADNOPARAL=APTBEPAR+1 4B7G #DEF BICESIZE=HLINK+5 [ NO OF WORDS IN BICE MACRO EXPANSION 4BM6 #DEF CPBCPLEV=ADNOPARAL+1 4C6Q #DEF CPBPROGLEV=CPBCPLEV+1 4C=M ... BITDEFS CPBPROGLEV,9,CPBPLDSKIL1,CPBPLDSKIL2,CPBPLDSKIL3 4CBJ ...[ BITS 9,10, AND 11 OF CPBPROGLEV RESERVED FOR DATASKIL, 4CGF ...[ BUT MAY BE MOVED IF NECESSARY. (21.10.77) 4CLB #DEF CPBFSD=CPBPROGLEV+1 4D62 #DEF ANALEV=CPBFSD+1 4DKL #DEF APARANUM=ANALEV+1 4F5= #DEF CMFMSK=APARANUM+1 4FCM ...#DEF CMXMSK=CMFMSK+1 4FQ4 ...#DEF CPBSTART=CMXMSK+1 4G4G #DEF CPBSTOP=CPBSTART+1 4GJ6 #DEF APARAFIR=CPBSTOP+1 4H3Q [ LINE BUFFER BLOCKS 4HHB #DEF CLBPTNECHA=A1 4J32 #DEF ANUMCHA=CLBPTNECHA+1 4JGL #DEF CLBFIR=ANUMCHA+7 4K2= [ UNI PARAMETER BLOCKS 4KFW #DEF JPARNUM=A1 4K^G #DEF ANUM=JPARNUM+1 4LF6 #DEF APARA=ANUM+1 4LYQ [ JOB BLOCKS 4MDB #DEF AJBRING=A1 4MY2 #DEF JOBNUM=AJBRING+2 4NCL #DEF JMISC=JOBNUM+1 4NX= #DEF CUBS=JMISC+1 4PBW #DEF ASTJOB=CUBS+1-A1 [LENGTH OF SHORT JOBLOCK 4PWG #DEF JNAME=CUBS+1 4QB6 #DEF JUSER=JNAME+3 4QTQ #DEF JURGE=JUSER+3 4R*B #DEF JMESS=JURGE+1 4RT2 #DEF JCPI=JMESS+1 4S#L #DEF ATIMEJ=JCPI+1 4SS= #DEF HTIMEJ=ATIMEJ+2 4T?W #DEF JSIZE=HTIMEJ+2 4TRG #DEF JPRIV=JSIZE+1 4W?6 #DEF AMBS=JPRIV+1 4WQQ #DEF GUBS=AMBS+1 4X=B #DEF APROGTIME=GUBS+1 4XQ2 #DEF ATIMES=APROGTIME+2 4Y9L #DEF HTIMES=ATIMES+1 4YP= #DEF HCLOCKTIME=HTIMES+1 4^8W #DEF JCSIZE=HCLOCKTIME+2 4^NG #DEF JCFWT=JCSIZE+1 5286 #DEF JCTNR=JCSIZE+1 52MQ #DEF JCTLR=JCTNR+1 537B #DEF JSLOT=JCTLR+1 53M2 #DEF JCLASS=JSLOT+1 546L #DEF AEXCO=JCLASS+1 5=FQ #DEF HMSLOT=AEXCO+1 5=LY ...#SKI JWPHASE4<1$1 5=S6 ...( 5=^B #SKI G4 5?F2 ( 5?YL #DEF HRTIMES=HMSLOT+1 5#D= #DEF EXTJOBPROG=HRTIMES+1-A1 5#XW ) 5*CG #SKI G3 5*X6 #DEF EXTJOBPROG=HMSLOT+1-A1 5*Y9 ...) 5*^# ...#SKI JWPHASE4 5B2C ...( 5B3G ...#DEF JNEEDSPTR=HMSLOT+1 5B3M ...#UNS ECS 5B3S ...( 5B3^ ...#DEF ACOREP=JNEEDSPTR+1 5B46 ...#DEF AMILLP=ACOREP+1 5B4? ...) 5B4K ...#SKI G4 5B5N ...( 5B5X ...#UNS ECS 5B62 ...( 5B66 ...#DEF HRTIMES=AMILLP+1 5B68 ...#DEF JQUOTA850=JNEEDSPTR+2 5B6= ...) 5B6* ...#UNS ECS 5B6J ...#SKI 5B6M ...( 5B6R ...#DEF HRTIMES=JNEEDSPTR+1 5B76 ...#DEF JQUOTA860=JNEEDSPTR+4 5B7F ...) 5B7W ...#DEF JQUOTA=HRTIMES+1 5B8^ ...#DEF EXTJOBPROG=JQUOTA+1-A1 5B=4 ...) 5B?7 ...#SKI G3 5B?# ...( 5B?F ...#UNS ECS 5B?L ...#DEF EXTJOBPROG=AMILLP+1-A1 5B?R ...#UNS ECS 5B?Y ...#SKI 5B#= ...#DEF EXTJOBPROG=JNEEDSPTR+1-A1 5B** ...) 5BBQ ) 5BWB #DEF EXTJOB=EXTJOBPROG 5C3J ...#SKI JWPHASE4 5C8Q ...#DEF JBPERIS=EXTJOB+A1 5CB2 [ POST-MORTEM MNEMONICS 5CTL #DEF FULLPM=0 [FULL POST-MORTEM 5D*= #DEF BRIEFPM=1 [SHORT POST-MORTEM 5DSW [ 5F#G [ DEFINITION OF CONTEXT NAMES FOR THE BCONTEXT MACRO 5FS6 [ 5G?Q #DEF ECVSYSISS=0 5GRB #DEF ECVBREAKIN=9 5H?2 #DEF ECVNOTBREAK=10 5HQL #DEF ECVPROGRAM=11 5J== #DEF ECVFULSTART=12 5JPW #DEF ECVTENSTART=13 5K9G #DEF ECVCORE=14 5KP6 #DEF ECVNOCORE=15 5L8Q #DEF ECVREMOTE=16 5LNB #DEF ECVREADER=18 5M82 #DEF ECVOPERATOR=19 5MML #DEF ECVMOP=20 5N7= #DEF ECVOFFLINE=21 5NLW #DEF ECVNOUSER=22 5P6G #DEF ECVUSER=23 5PL6 [ 5Q5Q [ DEFINITION OF BITS IN WORDS CONTEXT,JOBEVENTS,EXT+8,EXT+9,EXT+11 OF 5QKB [ THE CPAT BLOCK 5R52 BITDEFS CONTEXT,0,CXTSYSIS,,,,,,CXTCONTEXTA,CXTCONTEXTB,CXTCONTE- 5RJL XTC,CXTBREAKIN,CXTNOTBREAK,CXTPROGRAM,CXTFULSTART,CXTTENSTART,CXTCORE,C- 5S4= XTNOCORE,CXTREMOTE,CXTATTACH,CXTREADER,CXTOPERATOR,CXTMOP,CXTOFFLINE,CX- 5SHW TNOUSER,CXTUSER 5T3G BITDEFS JOBEVENTS,0,BRBRKIN,BRSTOPJOB,BRNOTED,BRINHIBIT,BRMOPOFF- 5TH6 ...,BRCONNECT,BRABAND,BRMONFUL,BRMOPINOP,,,,,,,,,,,,BRREADFAIL,BRUNLOAD,BR- 5W2Q ...FINISH,BRSTOPFIN 5W68 ... BITDEFS JOBEVENTS,9,BRIDENTFR 5W74 ... BITDEFS JOBEVENTS,17,BRWRITEFAIL 5W7Y ... BITDEFS JOBEVENTS,18,BRMOPOFFLIM,BRSJNOTIFY 5W*6 ...#DEF ABBITS=#02600015 5WGB BITDEFS EXT+11,0,EXSYSJOB,EXINTCOM,EXMULT,EXINTIN,EXFINACT,EXCAN- 5X22 ISS,EXOPCOM,EXATTACH,EXGEDIT,EXLIMBO,EXJOBCOM,EXCDCIN,EXWEFIND,EXNOUSIN- 5XFL ,EXWENFIN,EXREADY,EXQUIET 5X^= BITDEFS EXT+8,0,EXCOMERR 5YDW ... BITDEFS EXT+9,0,EXFILTYP,EXFILIO,,,,,,,,,,,,,,,,,EXDUMPFAIL,EXDU- 5YYG ...MPER,EXUSAB,EXABTEMP,EXOLREQ,EXCOMAN 5^8# ... BITDEFS EXT+9,12,EXBIAWAY 5^D6 ... BITDEFS EXT+9,2,EXJTEX,EXNONSTOP,EXFULLY,EXLONGW,EXBURTONS 5^XQ ...[ N.B. BITS 6 +8 OF EXT+9 RESERVED FOR BURTONS. 62CB ... BITDEFS EXT+9,7,EXBEINGAB,EXBURTONS1 62JJ ... BITDEFS EXT+9,9,EXDSKIL1,EXDSKIL2,EXDSKIL3 62PQ ...[ BITS 9,10,AND 11 OF EXT+9 RESERVED FOR DATASKIL. 62X2 ...[ DEFINITION OF CONTEXT NAMES FOR THE FORBID MACRO. 63BL ...# 63W= ...#DEF CTXCONTEXTA=#400000 [B 06 - INSTALLATION CONTEXT A 64*W ...#DEF CTXCONTEXTB=#200000 [B 07 - INSTALLATION CONTEXT B 64TG ...#DEF CTXCONTEXTC=#100000 [B 08 - INSTALLATION CONTEXT C 65*6 ...#DEF CTXBREAKIN=#40000 [B 09 - BREAKIN CONTEXT 65SQ ...#DEF CTXNOTBREAK=#20000 [B 10 - NOT BREAKIN CONTEXT 66#B ...#DEF CTXPROGRAM=#10000 [B 11 - PROGRAM ISSUED CONTEXT 66S2 ...#DEF CTXFULSTART=#4000 [B 12 - FULLY STARTED CONTEXT 67?L ...#DEF CTXTENSTART=#2000 [B 13 - TENTATIVELY STARTED CONTEXT 67R= ...#DEF CTXCORE=#1000 [B 14 - CORE IMAGE CONTEXT 68=W ...#DEF CTXNOCORE=#400 [B 15 - NO CORE IMAGE CONTEXT 68QG ...#DEF CTXREMOTE=#200 [B 16 - REMOTE CLUSTER CONTEXT 69=6 ...#DEF CTXATTACH=#100 [B 17 - ATTACHED CONTEXT 69PQ ...#DEF CTXREADER=#40 [B 18 - READER CONTEXT 6=9B ...#DEF CTXOPERATOR=#20 [B 19 - OPERATOR CONTEXT 6=P2 ...#DEF CTXMOP=#10 [B 20 - MOP CONTEXT 6?8L ...#DEF CTXOFFLINE=4 [B 21 - OFF-LINE CONTEXT 6?N= ...#DEF CTXNOUSER=2 [B 22 - NO USER CONTEXT 6#7W ...#DEF CTXUSER=1 [B 23 - USER CONTEXT 6#MG ...#DEF CTX=0 [- -- - NULL 6*76 ...# 6*LQ ...#DEF CTXACTIVOP=#20000000 6B6B ...#DEF CTXPASSIVOP=#10000000 ^^^^ ...54362614003300000000