{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS COMPRO)}}
====== COMPS COMPRO ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|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