{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BACKMASS860)}}
====== BACKMASS860 ======
(George Source)
**Macros used:** [[george:macro:BACKREAD|BACKREAD]], [[george:macro:BC|BC]], [[george:macro:BMSTATS|BMSTATS]], [[george:macro:BS|BS]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CLEARFILE|CLEARFILE]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CREATEB|CREATEB]], [[george:macro:DELETE|DELETE]], [[george:macro:DOWN|DOWN]], [[george:macro:FPUT|FPUT]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FULLBPAS|FULLBPAS]], [[george:macro:FWAIT|FWAIT]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:GETDIR|GETDIR]], [[george:macro:HUNT2|HUNT2]], [[george:macro:JBC|JBC]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:MBC|MBC]], [[george:macro:MBS|MBS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:NEWDIR|NEWDIR]], [[george:macro:OPEN|OPEN]], [[george:macro:OPEND|OPEND]], [[george:macro:OPENMAS|OPENMAS]], [[george:macro:PAIR|PAIR]], [[george:macro:READ|READ]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETMODE|SETMODE]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SKIP|SKIP]], [[george:macro:STEP|STEP]], [[george:macro:STEPREWRITE|STEPREWRITE]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPFCB|TOPFCB]], [[george:macro:TOPFCB2|TOPFCB2]], [[george:macro:TRACEIF|TRACEIF]], [[george:macro:UP|UP]]
22FL ... SEG BACKMASS,84,TONY MAY,BMAP
22^= SEGENTRY K1BACKMASS,Z1BACKMASS
23DW [
23YG # THE FINAL STAGE OF BACKMAP
24D6 [ ENTERED FROM BMAPTWO (ACROSS), EXITS UP TO ROUTINE WHICH CALLED BA
24XQ [ WARNING :- THIS SEGMENT WILL N_T WORK IF ANY FILENAME IN THE
25CB [ OLS TABLES ENDS WITH ZERO FOR THE LAST 4 CHARS
25X2 #SKI BMK-7<1$1
26BL (
26W= SDATUM +26297
27*W MINUTES +24*60
27TG THREEC +300
28*6 )
28CP ...#UNS FNSAD
28G# ...(
28JX ...NLINKMARK
28MG ... LINK BACKMARK,1
28Q5 ...)
28SQ NWORK +4
29#B 12HWORKFILE
29S2 1,1,4HC1
2=?L NMAS 12HMASTER
2=R= NDOC 10
2?=W NSYS 12HSYSTEM
2?QG 12HDOCUMENT
2#=6 1,1,4HB1
2#PQ NLOC 1,0.2,0
2*9B NMAN 12HMANAGER
2*P2 OLS4 12HJUGGERNAUT
2B8L #DEF T4=0?-OLS4
2BN= #REP 6
2C7W +1
2CMG NMAC 12HMACROS
2D76 OLS3
2DLQ 12HDICTIONARY
2F6B 0
2FL2 12HLEXICON
2G5L #DEF T3=0?-OLS3
2GK= OLS2
2H4W 12HEMSJOBS
2HJG 12HLOGANAL
2HPN ... 12HWLISTJDF
2HWW ... 12HWSLISTJDF
2J46 #DEF T2=0?-OLS2
2JHQ #REP 6
2K3B +1
2KH2 NDI 12HDUMPER
2L2L OLS1
2LG= 12HINCJOB
2L^W 12HPROCESSOR
2MFG #DEF T1=0?-OLS1
2M^6 #REP 6
2NDQ +1
2NYB OLS
2PD2 12HPARAMINDEX
2PXL 0
2QC= 12HPARAMINDEXG4
2QWW 0
2RBG 12HLOGPROG
2RW6 NS 12HSERIAL [LABELLED FOR USE ELSEWHERE
2S*Q 0
2STB 12HINCINDEX
2T*2 0
2TSL NLLF 12HLISTLOSTFILE [LABELLED FOR USE ELSEWHERE
2W#= +0
2WRW 12HHLSFILE
2X?G 12HHLSFILE1
2XR6 12HBACKLIST
2Y=Q 12HJOBSTARTER
2YQB 12HHLSEMERGENCY
2YXJ ... 12HHLSJOBSTART
2^4Q ... 12HHLSRESERVE
2^=2 12HJOBLIST
2^PL 0
329= 12HOUTPUT
32NW 0
338G 12HDOCUMENT
33N6 0
347Q 12HPROPERTY
34MB 0
34P^ ... FSHCODE AORB
34SJ ...(
34X7 ... 12HIDFB
34^Q ... 0
354* ...)
3572 NIDF 12HIDF [LABELLED FOR USE ELSEWHERE
35LL 0
366= #DEF T=0?-OLS
36KW #REP 12
375G +1
37K6 TABTERM
384Q +T2
38JB +T1
3942 +T
39HL +T4
3=3= +T3
3=GW #REP 2
3?2G +0
3?G6 TABTNAM
3?^Q +OLS2
3#FB +OLS1
3#^2 +OLS
3*DL +OLS4
3*Y= +OLS3
3BCW #REP 2
3BXG +0
3CC6 TABDIR
3CWQ +NMAC
3DBB +NDI
3DW2 +NSYS
3F*L +NMAN
3FT= +NMAS
3G#W #REP 2
3GM? ... +0
3G^N ...NLLJ 12HLISTLOSTJOB
3H#6
3HRQ XLINK
3J?B PAIR BMXEMS,1
3JR2
3K=L [
3KM6 OPEN
3L3L SBX 7 FX1
3LD6 OPEND XBR,6
3LND ADX 7 FX1
3LYQ EXIT 7 0
3M96 [
3MNQ
3N8B Z1BACKMASS [ENTRY POINT
3NN2 [
3P7L SEGENTRY K91BACKMASS [FOR NEWDUMP MEND MACRO
3PM= LDX 0 GINCTSN
3Q6W BZE 0 NREST
3QLG DOWN RESTEND,1
3R66 NREST
3RKQ DOWN INCCHECK,1 [CROSS-CHECK INCINDEX & :DUMPER
3S5B [
3SK2 SEGENTRY K92BACKMASS [FOR NEWDUMP MEND MACRO
3T4L SETNCORE 10,2,FILE,FABSNB
3TJ= ADN 1 NWORK
3W3W ADN 2 A1
3WHG MOVE 1 4
3X36 SETMODE 6,GENERAL,QUERY
3XGQ CALL 7 OPEN
3Y2B ... TESTRPN2 OK,WORKENDX
3YG2 NEXTNAME
3Y^L STEP
3^F= BZE 3 WORKEND
3^YW LDX 0 EDESCRIBE(3)
42DG BNZ 0 NEXTNAME [J IF NOT NAME RECORD
42Y6 LDX 0 ESAVECOUNT-A1(3)
43CQ BZE 0 NOTSAVE
43XB GEOERR 1,SAVED !
44C2 NOTSAVE
44WL TRACEIF K6BACKMASS,199,299,ELOC1-A1(3),WORKFILE
45B= TRACEIF K6BACKMASS,199,299,ELOC2-A1(3)
45TW TRACEIF K6BACKMASS,199,299,ELOC3-A1(3)
46*G LDEX 7 ECOPS-A1(3)
46T6 LDX 6 ENUSEN(3)
47#Q JBC NOINDEX,3,BNINDEX
47SB ADN 6 1
48#2 NOINDEX
48RL LDX 0 EAUTOCOUNTN(3)
49?= BZE 0 NOFREEZE
49QW STEPREWRITE
4==G BS 3,BNERASE [SET ERASE BIT
4=Q6 TRACEIF K6BACKMASS,199,299,ELOC1-A1(3),ERASE !
4?9Q BRN NEXTNAME
4?PB NOFREEZE
4#92 TRACEIF K6BACKMASS,199,299,ELOC1-A1(3),DELETE !
4#NL BZE 7 NOBLOCKS
4*8= READ
4*MW MHUNTW 1,FILE,FRB
4B7G NAME 1,BSTB,FULLB
4BM6 FULLBPAS 1,2 [RECHAIN FULLB IN FILE CHAIN (SUING X
4C6Q NOBLOCKS
4CLB LDX 3 6
4D62 ADN 7 1(3)
4DKL BZE 3 NDELOOP
4F5= SKIP ,0(3)
4FJW NDELOOP
4G4G DELETE
4GJ6 BCT 7 NDELOOP
4H3Q BRN NEXTNAME
4HHB WORKEND
4J32 CLOSETOP
4JGL BRN SDOC
4K2= WORKENDX
4KFW MHUNT 2,FILE,FABSNB
4K^G LDN 0 10
4LF6 STO 0 A1(2)
4LYQ ADN 1 NSYS
4MDB ADN 2 A1+1
4MY2 MOVE 1 3
4NCL SBN 1 NSYS-NWORK-1
4NX= ADN 2 3
4PBW MOVE 1 6
4PWG CREATEB 2
4QB6 ADN 1 NWORK+1
4QTQ ADN 2 CEUSE1
4R*B MOVE 1 3
4RT2 NEWDIR XBR [CREATE :WORKFILE
4S#L #SKI K6BACKMASS>199-199
4SS= TESTRPN2 OK,XBR
4T?W SETNCORE 10,2,FILE,FABSNB
4TRG SDOC
4W?6 # :SYSTEM.DOCUMENT
4WQQ [ EMPTY IT
4X=B MHUNT 2,FILE,FABSNB
4XQ2 ADN 1 NDOC
4Y9L ADN 2 A1
4YP= MOVE 1 10
4^8W SETMODE 6,GENERAL,EMPTY,QUERY
4^NG CALL 7 OPEN
5286 TESTREP2 OK,QDOC
52MQ TESTRPN2 NOFILE,XBR
537B SETMODE 6,GENERAL,CREATE
53M2 CALL 7 OPEN
546L QDOC
54L= CLOSETOP
555W
55KG
5?F2 DOWN SYSPROP,1
5?YL
5#D= [ :SYSTEM.IDF
5#XW CALL 3 NBLK
5*CG +NIDF
5KP6 DOWN SETIDF,1
5L8Q
5LNB [ :SYSTEM.PARAMINDEX
5M82 DOWN NEWINST,1
5MML [ SET BITS IN DIRECTORY ENTRIES TO ALWAYS DUMP AND NEVER OFFLINE
5N7= [ AND TO BE UPDATED IN CAREFULLY
5NLW LDN 5 5 [NO. OF DIRS TO BE OPENED
5P6G OD
5PL6 SMO 5
5Q5Q ADX 1 TABDIR-1(1) [X1 -> NEXT DIRECTORY NA ME
5QKB MHUNTW 2,FILE,FABSNB
5R52 LDN 0 4
5RJL STO 0 A1(2)
5S4= ADN 2 A1+1
5SHW MOVE 1 3
5T3G OD1
5TH6 ... SETMODE 6,CLEAN,QUERY
5W2Q CALL 7 OPEN
5WGB TESTRPN2 OK,XBR
5X22 SMO 5
5XFL LDX 4 TABTERM-1(1) [X4 IS NO OF TERM FILES UNDER THIS DI
5X^= OLB
5YDW SBN 4 3
5YYG MHUNTW 3,FILE,FLOCNB
5^D6 SMO 5
5^XQ ADX 1 TABTNAM-1(1)
62CB ADX 1 4
62X2 LDX 7 2(1)
63BL BNZ 7 NOSP [NO SPECIAL AFLTER THIS NAME
63W= SBN 4 1
64*W SBN 1 1
64TG NOSP
65*6 LDN 2 A1(3)
65SQ MOVE 1 3
66#B SMO FX1
66S2 LDN 1 NLOC
67?L ADN 2 3
67R= MOVE 1 3
68=W GETDIR 1
68QG TESTRPN2 OK,NOF
69=6 MHUNTW 2,FILE,ENT
69PQ MBS 2,BEONLINE,BEALLINCS
6=9B BNZ 7 NOSP1
6=P2 MBS 2,BECOOR,BECARE
6?8L BC 2,BEMT [MAY BE SET BY M70318
6?N= NOSP1
6#7W NAME 2,FILE,FWB
6#MG REWRITE
6*76 MFREE FILE,FWB
6*LQ NOF
6B6B BNZ 4 OLB
6BB7 ... TOPFCB 2
6BDQ ... MBS 2,BFALLINCS,BFDIRUPDATE
6BL2 CLOSETOP
6C5L BCT 5 OD
6CK= MFREE FILE,FLOCNB
6D4W [
6DJG SEGENTRY K93BACKMASS [FOR ALWAYSDUMP MEND MACRO
6F46 BRN NOMACS
6F8* ... GETACT BSA,AUTOMAP
6F9Q ... LDX 3 BPTR(2)
6F?7 ... LINKSET 3,NLINKMARK(1)
6F#J ... LDX 2 3
6F*^ ... FPUT
6FNM ... SEGENTRY K94BACKMASS
6G3B NOMACS
6GH2 MFREE FILE,FABSNB
6H^W GETACT CPAT
6JFG LDX 2 BPTR(2)
6J^6 FWAIT #54
6KDQ LINKSET BPTR(2),XLINK(1)
6KYB NOLOST
6LXL CLEARFILE [ENSURE ALL UPDATES COMPLETE
6MC= OPENMAS XBR,GENERAL
6MWW LDN 1 BTHREE
6NBG LDN 2 ADMASTDIR
6NW6 BACKREAD ,BSBS,,1
6P*Q MHUNTW 1,BSTB,BREAD
6PJ2 ... JBC NOPRDONBIT,1,BEPARTRES
6PQ= ... BS ,BFPRDONE
6PYG ...NOPRDONBIT
6Q6Q ... MBC 1,BEBMUWB,BEBMO,BEBM,BEPARTRES
6Q*2 LDN 0 G3FSMARK
6QSL SLL 0 12
6R#= ORN 0 G3FSVERSION
6RRW STO 0 EVERSION(1)
6S?G LDCT 0 #200
6SR6 ERS 0 EREC(1)
6T=Q LDN 4 EREC(1)
6TQB LDN 5 GSBS/2+EREC(1)
6W=2 MOVE 4 GSBS/2 [MOVE 1ST 1/2 TO 2ND
6WPL CHAIN 1,2
6X9= BACKWRIT FREE,BSBS
6XNW TOPFCB2 2
6Y8G LDX 0 FGMTBS(2)
6YN6 #SKI BMK-7<1$1
6^7Q (
6^MB BNZ 0 NOTNOW
7272 LDX 4 EDATE
72LL SBX 4 SDATUM(1)
736= MPY 4 MINUTES(1)
73KW LDX 7 CLEANCT
745G DVS 6 THREEC(1)
74K6 ADX 5 7
754Q LDX 0 5
75JB STO 0 FLASTJAM(2)
7642 BRN NOW
76HL NOTNOW
773= )
77GW ADN 0 GMTINT
782G NOW
78G6 STO 0 FGMTBS(2)
78^Q STO 0 GMTNOW
79FB MBS 2,BFALTB,BFALTR
79^2 HUNT2 2,FILE,FMAPP
7=DL LDN 0 3
7=Y= ORS 0 FBCOMM(2) [PREVENT 'GEOERR ALTERED'
7?CW CLOSETOP
7?K4 ... LDN 0 10
7?Q= ... BMSTATS 0
7?XG UP
7#C6 NBLK [SETS UP FABSNB FOR NEXT FILE
7#WQ MHUNTW 2,FILE,FABSNB
7*BB SMO A1(2)
7*W2 ADN 2 A1-6
7B*L ADX 1 0(3)
7BT= MOVE 1 3
7C#W EXIT 3 1
7CSG XBR
7D#6 GEOERR 1,BACKMASS
7DRQ [
7F?B MENDAREA BMAPGAP,K99BACKMASS
7FR2 #END
^^^^ ...47644631000300000000