Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{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]] <code - BACKMASS860.txt>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 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In