{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS SAR9)}}
====== COMPS SAR9 ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]], [[george:macro:PERMACT|PERMACT]], [[george:macro:PROPERTY|PROPERTY]], [[george:macro:SEMAPHORE|SEMAPHORE]]
22FL #
22^= # N.J.ROBINSON
23DW #
23YG # ALL THE IDENTIFIER FOR AN ACTLF ARE CURRENTLY DEFINED
24D6 # IN COMPS JH-CURRENTLY OWNED BY ROGER TERRY
24XQ #
24^N ... PERMACT SJ
253L ... PERMACT OUT
255J ...#SKI ARV
257G ... PERMACT RET
257P ... PERMACT ELOG [ERROR LOGGING ACTIVITY
257^ ...#OPT ANIP = 0
258D ...#DEF ALPS14LEN = 131
258X ...#OPT JICNIP=0
259D ...#OPT GSJACT=0
25?B ...#OPT GOUTACT=0
25*# ...#OPT GRETACT=0
25CB #OPT K0LISTFILE=0
25X2 #OPT K0STOPLIST=0
2648 ...#OPT AWLSZ=1
269B ...#OPT ASTRTJL=1
26BL #OPT K0WHATLIST=0
26W= #OPT ALLTRACE=0 [TRACE SETTING FOR SPEC STAT
27*W #OPT EXCLUDELF=1
27TG # THESE IDENTIFIERS CONTROL THE MARK 7 INTERFACES WITH
28*6 # USEROPEN
28SQ # PERIPHERAL HANDLER
29#B # INDEXED SYSTEM.OUTPUT
29S2 # RESPECTIVELY
2=?L #DEF ALFUSER=1
2=R= #DEF ALFPER=1
2?=W #OPT IXO=IX
2?QG #SKI EXCLUDELF
2#=6 (
2#PQ #
2*9B #INC LISTMOP2
2*P2 #INC LISTFILE7
2B8L #INC LISTPARS7
2BN= #INC LISTFREE7
2C7W #INC LISTPROC7
2CMG #INC LISTOPEN7
2D76 #INC LISTNEXT7
2DLQ #INC LISTHEAD7
2F6B #INC LISTLOOP7
2FL2 #INC LISTINIT7
2G5L #INC LISTEND7
2GK= #INC LISTPREP7
2H4W #INC LISTFIND7
2HJG #INC LISTSEAR7
2J46 ...#INC LISTNIP
2KH2 #
2L2L #
2LG= )
2L^W #OPT K0UTILITY=0
2MFG #OPT K0MONITOR=0
2M^6 [
2NDQ [
2NYB ...[ GOUT/INFOLIST
2PD2 [
2PXL #DEF GNUM=A1 [CURRENT LINE NUMBER
2QC= #DEF GLNO=GNUM+1 [NUMBER OF RECORDS FOR OUTPUT
2QWW #DEF GCATBITS=GLNO+1 [CATEGORY MASK FOR MONFILE(BILA)
2RBG #DEF GQUAL=GCATBITS+1 [SUPPLEMENTARY INFORMATION WORD
2RHN ... BITDEFS GQUAL,15,BLFLTPMK6,BLFLALLC,BLFLNORM,BLFLBASIC,BLFLUNBUFF
2RNW ... BITDEFS GQUAL,20,BLFLMONFILE,BLFLNUMBER,BLFLSPECIAL
2RW6 #DEF GPREM=GQUAL+1
2S*Q #DEF GLEN=GPREM+1
2STB #DEF GNEXT=GLEN+1 [NO ADDED TO GREST FOR RESTART LINE
2T*2 #DEF GREST=GNEXT+1
2TSL [
2W#= ...[ GOUT/INFO
2WRW [
2X?G #DEF GOUTKEY1=A1+1
2XR6 #DEF GOUTKEY2=GOUTKEY1+1
2Y=Q #DEF GMODE=GOUTKEY2+1
2Y?Y ... BITDEFS GMODE,0,BLFONLINE,BLFIMPLEM,BLFSETUP,BLFPROPREC
2Y*6 ... BITDEFS GMODE,4,BLFPARTIMP,BLFNAV,BLFSETNAV,BLFPAGER
2YB# ... BITDEFS GMODE,8,BLFALLR,BLFBINARY,BLFEBCDIC,BLFCORRUPT
2YCG ... BITDEFS GMODE,12,BLFRESTED,BLFMULTI,BLFLOST,BLFSETLOST
2YDN ... BITDEFS GMODE,16,BLFISPER,BLFCLOSE,BLFSETCLOS,BLFPFREE
2YFW ... BITDEFS GMODE,20,BLFNLASTEL,BLFMONFILE,BLFNUMBER,BLFSPECIAL
2YH4 ... BITDEFS GMODE-A1,0,BLFRONLINE,BLFRIMPLEM,BLFRSETUP,BLFRPROPREC
2YJ= ... BITDEFS GMODE-A1,4,BLFRPARTIMP,BLFRNAV,BLFRSETNAV,BLFRPAGER
2YKD ... BITDEFS GMODE-A1,8,BLFRALLR,BLFRBINARY,BLFREBCDIC,BLFRCORRUPT
2YLL ... BITDEFS GMODE-A1,12,BLFRRESTED,BLFRMULTI,BLFRLOST,BLFRSETLOST
2YMS ... BITDEFS GMODE-A1,16,BLFRISPER,BLFRCLOSE,BLFRSETCLOS,BLFRPFREE
2YP2 ... BITDEFS GMODE-A1,20,BLFRNLASTEL,BLFRMONFILE,BLFRNUMBER,BLFRSPECIAL
2YQB #DEF GFLI=GMODE+1
2YTG ... BITDEFS GFLI,0,BLFFRTOER,BLFFRCTEXT
2YYL ... BITDEFS GFLI-A1,0,BLFRFRTOER,BLFRFRCTEXT
2^3Q ... FIELDDEF FLFFRNUM,21,GFLI,23
2^6W ... FIELDDEF FLFRFRNUM,21,GFLI-A1,23
2^=2 #DEF GNLI=GFLI+1
2^#9 ... BITDEFS GNLI,1,BLFTOCTEXT,BLFTO
2^BD ... BITDEFS GNLI-A1,1,BLFRTOCTEXT,BLFRTO
2^DM ... FIELDDEF FLFLINUM,21,GNLI,23
2^GW ... FIELDDEF FLFTONUM,21,GNLI,23
2^K5 ... FIELDDEF FLFRLINUM,21,GNLI-A1,23
2^M# ... FIELDDEF FLFRTONUM,21,GNLI-A1,23
2^PL #DEF GOUTYPE=GNLI+1
2^P^ ... BITDEFS GFTY,13,BLFWLCLOSE
2^Q# ... BITDEFS GFTY,14,BLFWLSIZE
2^QP ... BITDEFS GFTY,15,BLFREST2
2^RT ... BITDEFS GFTY,16,BLFTPMK6
2^W4 ... BITDEFS GFTY,17,BLFSETALLC,BLFSETNORM,BLFSETBAS
2^Y? ... BITDEFS GFTY,21,BLFALLC,BLFNORM,BLFBASIC
2^YL ... BITDEFS GFTY-A1,13,BLFRWLCLOSE
2^Y^ ... BITDEFS GFTY-A1,14,BLFRWLSIZE
2^^B ... BITDEFS GFTY-A1,15,BLFRREST2
322G ... BITDEFS GFTY-A1,16,BLFRTPMK6
324P ... BITDEFS GFTY-A1,17,BLFRSETALLC,BLFRSETNORM,BLFRSETBAS
326Y ... BITDEFS GFTY-A1,21,BLFRALLC,BLFRNORM,BLFRBASIC
329= #DEF GFTY=GOUTYPE+1
32NW #DEF GWAKECOUNT=GFTY+1
338G #DEF GMULTID=GWAKECOUNT+1
33N6 #DEF GSOURCE1=GMULTID+1
347Q #DEF GSOURCE2=GSOURCE1+1
34MB #DEF GJOBS=GSOURCE2+1
3572 #DEF GOPTY=GJOBS+1
35LL #DEF GUSER=GOPTY+1
366= #DEF GJOBN=GUSER+3
36KW #DEF GSUSE=GJOBN+3
375G #DEF GMFMSK=GSUSE+1
37K6 #DEF GCOUNT=GMFMSK+1
384Q #DEF GHEAD=GCOUNT+1
387* ... BITDEFS 0,0,BLFSEARCH,BLFSSEARCH,BLFCSEARCH
389Y ... FIELDDEF FLFSTRLEN,21,0,23
38#H ...[
38C6 ...[ ACTLF
38FP ...[
38JB #DEF ALFTN=ALFTRANS [THESE SHORT
3942 #DEF ALFWD=ALFWORDS [IDENTIFIERS ARE
39HL #DEF ALFLG=ALFLAG [FOR POSTMORTEM
3=3= #DEF GSWORK1=A5 [THESE
3=GW #DEF GSWORK2=GSWORK1+1 [IDENTIFIERS ACCESS
3?2G #DEF GSWORK3=GSWORK2+1 [THE LISTFILE
3?G6 #DEF GSWORK4=GSWORK3+1 [SHEDULER'S
3?^Q #DEF GSWORK5=GSWORK4+1 [WORK-SPACE
3#FB # THERE FOLLOWS A LIST OF BIT POSITIONS GOVERNING ACCESS
3#^2 # TO ALFLAG IN THE ACTLF
3*DL #DEF ALFBITA=23
3*Y= #DEF ALFBITB=22
3BCW #DEF ALFBITC=21
3BXG #DEF ALFBITD=20
3CC6 #DEF ALFBITE=19
3CWQ #DEF ALFBITF=18
3DBB #DEF ALFBITG=17
3DW2 #DEF ALFBITH=16
3F*L #DEF ALFBITI=15
3FT= #DEF ALFBITJ=14
3G#W #DEF ALFBITK=13
3GSG #DEF ALFBITL=12
3H#6 #DEF ALFBITM=11
3HHY ... BITDEFS ALFLAG,11,BLFFREADERR
3HRQ #DEF ALFBITN=10
3J?B #DEF ALFBITO=9
3JR2 #DEF ALFBITP=8
3K=L #DEF ALFBITQ=7
3KQ= #DEF ALFBITR=6
3L9W #DEF ALFBITS=5
3LPG #DEF ALFBITT=4
3M96 #DEF ALFBITU=3
3MNQ #DEF ALFBITV=2
3N8B #DEF ALFBITW=1
3NN2 #DEF ALFBITX=0
3P7L # NEXT IDENTIFIERS FOR THE GOUT/GPROPNOS BLOCK
3PM= #DEF GPROPNUM=A1
3Q6W # NEXT IDENTIFIERS FOR THE GOUT/GABSNB BLOCK
3QLG #DEF GAKEY=HDREC+10
3R66 #DEF GAFREEZE=HDREC+11
3R*Y ...#DEF GASIZE=GAFREEZE+1
3RKQ [
3S5B [ ACTLF IN LISTLOOP
3SK2 [
3T4L #DEF GZLENGTH=A5
3X36 #DEF GZPOINT=GZLENGTH+1
3XGQ #DEF GZDUMP=GZPOINT+1
3Y2B #DEF GZTRANS=GZDUMP+1
3YG2 #DEF GZDATA=GZTRANS+1
3Y^L [
3^3T ...[ ADATA / HEADING
3^64 ...[
3^8? ...#DEF HEADREC = A1
3^=G ...#DEF HEADCNT = HEADREC + 1
3^#P ...#DEF HEADPFCC = HEADCNT + 1
3^BY ...#DEF HEADDATA = HEADPFCC + 1
3^F= #OPT K6MONITOR=0
3^YW #OPT K6UTILITY=0
42DG #OPT K6LISTFILE=K6ALLGEO>K6GREATGEO>K6COMMAND
42Y6 #OPT K6LISTLOOP=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE
43CQ #OPT K6LISTPARS=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE
43XB #OPT K6CONSIN=K6ALLGEO>K6GREATGEO>K6MONITOR
44C2 #OPT K6CONSOUT=K6ALLGEO>K6GREATGEO>K6MONITOR
44WL #OPT K6PERCON=K6ALLGEO>K6GREATGEO>K6UTILITY
456D ...#OPT K6PERFAIL=K6OBJPROG>K6PERCON>K6ALLGEO>K6GREATGEO
45B= #OPT K6CHNUMCON=K6ALLGEO>K6GREATGEO>K6UTILITY
45TW #OPT K6STOPLIST=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE
46*G #OPT K6STOPLISB=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE
46T6 #OPT K6WHATLIST=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE
47#Q #
47SB #
48#2 #
48RL [ SUNDRY PROPERTY SYSTEM THINGS --- JANET WASTELL
49?= #
49QW #OPT APROPSYS=G3MARK>4-4
4==G #INC PROPERTY
4=Q6 #INC ATTRIBUT
4?9Q #INC WHATPROP
4?PB #INC SYSPROP7
4#92 #OPT K6PROPSYS=K6ALLGEO>K6COMMAND
4#NL #OPT K6PROPERTY=K6PROPSYS>K6ALLGEO>K6COMMAND
4*8= #OPT K6WHATPROPS=K6PROPSYS>K6ALLGEO>K6COMMAND
4*MW #OPT K0PROPSYS=0
4B7G #OPT K0WHATPROPS=0
4BM6 #OPT K0PROPERTY=0
4C6Q #DEF APROPNO=FRH+1
4CLB #DEF ATTCOUNT=APROPNO+1
4D62 #DEF APROPNAME=ATTCOUNT+1
4DKL #DEF APROPGROUP=APROPNAME+3
4F5= #DEF APROPATT=APROPGROUP+1
4FJW #OPT ALHEAD=0
4G4G #DEF ATTRIBUTE=#73
4H3Q #
4H5N ...#UNS HWATIDY
4H7L ...(
4H9J ... BITDEFS APANDV,0,IDFPROPLOCK,IDFPROPWAIT
4H?G ... SEMAPHORE IDFANDPROP,IDFPROPLOCK,IDFPROPWAIT,ASEMWAIT,LONG
4H*D ...)
4HCB ...#UNS HWATIDY
4HF# ...#SKI
4HHB #DEF IDFANDPROP=0 [SEMAPHORE BIT USED BY P AND V
4J32 #OPT ATTMAX=5 [MAXIMUM NO. OF PROPERTY ATTRIBUTIONS
4JGL [ FORMAT OF APERI/APROPNOS BLOCK
4K2= #DEF CPROPNO=A1+1
4KFW #DEF BPROPCNT=CPROPNO+1
4K^G #DEF CHPERM=BPROPCNT+1
4LF6 #DEF ADPERM=CHPERM+1
4LYQ #DEF CHTEMP=ADPERM+1
4MDB #DEF ADTEMP=CHTEMP+1
4MY2 #DEF BPROPS=ADTEMP+1
4N=C ...#UNS HWLSLCH
4NJS ...#SKI
4NX= (
4PBW # BLOCKS USED BY STOPLIST
4PWG [ FORMAT OF GOUT/COMP BLOCK
4QB6 #DEF GCBLENGTH=6 [LENGTH OF BASIC GOUT/COMP BLOCK IN
4QTQ #DEF GCSOURCE1=A1
4R*B #DEF GCSOURCE2=GCSOURCE1+1
4RT2 #DEF GCSOURCE3=GCSOURCE2+1
4S#L #DEF GCPER=GCSOURCE3+1 [PERIPHERAL TYPE
4SS= #DEF GCFORM=GCPER+1 [FORMAT MARKER & STORE FOR PROP NO
4T?W #DEF GCPROP=GCFORM+1 [LENGTH OF PROPERTY BLOCK IF ANY
4TRG #DEF GCUSER=GCPROP+1 [USER NAME
4W?6 #DEF GCJOBN=GCUSER+3
4WQQ #DEF GCFILEL=GCJOBN+3 [LENGTH OF FILENAME IN CHARS
4X=B #DEF GCFILE=GCFILEL+1 [FILENAME
4XQ2 [ FORMAT OF APERI APRORS BLOCK
4Y9L #DEF APRNO=A1+1
4YP= #DEF APRNOSIG=APRNO+1
4^8W #DEF APRNAME=APRNOSIG+1
4^NG )
4^PR ...[
4^R4 ...[ FORMAT OF GOUT/GLINES BLOCK
4^S* ...[
4^TL ...#DEF GTOTLIN = A1
4^WX ...#DEF GUSELIN = GTOTLIN +1
4^Y8 ...#DEF GNEXTL = GUSELIN +1
4^^F ...#DEF GFIRSTL = GNEXTL +1
522Q ...#DEF GCHARS = 0
5243 ...#DEF GPFCC = GCHARS +1
525# ...#DEF GLINE = GPFCC +1
526K ...[
5286 ...#DEF ALFUIJPC=1
52=* ...[
52#J ...[ FORMAT OF GOUT/GESIZE BLOCK
52BR ...[
52F2 ...#DEF GESZ = A1
52H9 ...#DEF GESM = GESZ+1
52KD ...[
52MQ ...[IDENTIFIER SETTINGS FOR PHASE 2 TRAIN PRINTER CODE
537B ...#DEF ATPPHASET=0
53M2 ...#DEF HATP=0
546L ...#DEF ATPOLTRP2=0
54L= ...#DEF ATPOLTR=0
555W ...#DEF ATPPHASE2=1
55KG ...#OPT K0REPERT=3
5656 ...#DEF AERRSIM=0
56JQ ... BITDEFS GMODE,8,BLFXTRASTOP
574B ... BITDEFS GMODE,12,BLFXTRAGR
57J2 ... BITDEFS GMODE,9,BLFXTRASHIF,BLFXTRANOPA,BLFXTRANOBC
583L ... FIELDDEF FLFXTRAPICT,3,GMODE,11
58H= ...# N.B. ABOVE 3 BITS MUST BE ADJACENT & IN SAME ORDER AS IN CPATUWORD.
592W ...# P.S. THE DREADED BIT 11 IS NOT USED IN ONLINE LISTFILES.
59GG ...#ALT IWIDTH = ACTLFLEN+GREMOTELEN+A1 [85
5=26 ...#OPT K0LIST=0
5=FQ ...[
5=^B ...[ IDENTIFIER USED TO EXTEND THE LENGTH OF CPT ACTIVITY
5?F2 ...[ WHEN OUTPUTTING A LISTING TO A MOP TERMINAL
5?YL ...[
5#D= ...#DEF ALFMOPLEN=18
^^^^ ...16161664002800000000