MACROS HL
(George Source)
- MACROS HL.txt
22FL ...[??? UNSAVE SECT CENT FGN 5 DOC 22^= # 23DW # UNSAVE MACRO 23YG # RESTORES A JOB HELD IN A FILE WITH LOCAL NAME EQUAL TO THAT 24D6 # OF THE JOB NAME A USER NAME THE SAME AS THE OWNER OF THE 24XQ # JOB AND A LANGUAGE CODE OF B1B1 254Y ...# THE FIRST PARAMETER IS A WORD CONTAINING THE JOB NUMBER 25=6 ...# 25C# ...# FOR SHARED FILESTORE, THERE IS A SECOND PARAMETER INDICATING 25JG ...# WHERE THE JOB IS TO BE UNSAVED (IE 'A' OR 'B' MACHINE) 25PN ...# 25X2 # 26BL #MAC UNSAVE 26C3 ... FSHCODE AORB 26CD ...( 26CT ...#STR %B 26D= ...( 26DM ...#ACC %B 26F4 ...( 26FF ...#STR A,%B 26FW ...( 26G? ...#STR B,%B 26GN ...! PARAMETER B IS NOT RECOGNISED 26H5 ...#STR B,%B 26HG ...#STR 26HX ... LDN 0 1 26J# ...) 26JP ...#STR A,%B 26K6 ...#STR 26KH ... LDN 0 0 26KY ... SMO FX2 26L* ... STO 0 ACOMMUNE2 26LQ ...) 26M7 ...#ACC %B 26MJ ...#SKI 26M^ ...( 26NB ... SMO FX2 26NR ... STO %B ACOMMUNE2 26P8 ...) 26PK ...) 26Q2 ...#STR %B 26QC ...#STR 26QS ...( 26R9 ... NGN 0 1 26RL ... SMO FX2 26S3 ... STO 0 ACOMMUNE2 26SD ...) 26ST ...) 26W= LDX 0 %A 27*W SMO FX2 27TG STO 0 ACOMMUNE1 28*6 DOWN UNSAVE,1 28SQ #NOR 294J ...[??? READHUNT SECT CENT FGN 5 DOC 29#B # 29S2 # READHUNT MACRO 2=?L # READS A RECORD,FINDS THE READ BLOCK AND BRANCHES IF END OF 2=R= # FILE 2?=W #MAC READHUNT 2?QG STEP %B 2#=6 BZE 3 %A 2#PQ #NOR 2#^J ...[??? CHANBLOK SECT CENT FGN 5 DOC 2*9B # 2*P2 # 2B8L # CHAMBLOK MACRO 2BN= # WILL RENAME THE FILE/FRB BLOCK,MOVE THE RECORDS UP OVER 2C7W # THE RECORD RED TAPE AND REDUCE THE LOGICAL LENGTH OF THE 2CMG # BLOCK 2D76 #MAC CHANBLOK 2DLQ LDEX 4 FRH(3) 2F6B SBN 4 3 [LENGTH OF BLOCK 2FL2 LDX 5 FRH+2(3) [TYPE OF BLOCK 2G5L #STR %A 2GK= ... GETCORE 4,1,,%A,%B 2H4W #STR %A 2HJG #SKI 2J46 ... GETCORE 4,1 [GET BLOCK AND 2JHQ FINDCORE 3 [STORE ITS TYPE 2K3B STO 5 ATYPE(3) 2KH2 STEPAGAIN 2L2L LDN 4 FRH+3(3) 2LG= MHUNTX 2,5 2L^W LDN 5 A1(2) 2MFG SMO ALOGLEN(2) 2M^6 MOVE 4 0 2NDQ CHAINACT 2 2NYB #NOR 2^^D ...[??? CHJOBLOC SECT CENT FGN 5 DOC 329= # 32NW # CHJOBLOCK MACRO 338G # SEARCHES DOWN JOB QUEUE AND CHAINS JOB BLOCK IN JOB 33N6 # NUMBER ORDER.FINALLY UPDATES FIRST BLOCK IN QUEUE 347Q # 34MB #MAC CHJOBLOCK 3572 LDX 1 %A 35LL LDN 2 BJOBQ 366= MCHJOBLOCK1 36KW LDX 2 FPTR(2) 375G TXU 2 CXJO 37K6 BCC MCHJOBLOCK2 384Q LDX 0 JOBNUM(2) 38JB TXL 0 JOBNUM(1) [J WHILE JOB 3942 BCS MCHJOBLOCK1 [NUMBER GREATER THAN QUEUE 39HL #SKIP K6CHJOB>5-5 3=3= ( 3=GW TXU 0 JOBNUM(1) 3?2G BCS MCHJOBLOCK2 3?G6 GEOERR 0,CHJOBLOK 3?^Q ) 3#FB MCHJOBLOCK2 3#^2 LDX 2 BPTR(2) 3*DL CHAIN 1,2 3*Y= #NOR 3B84 ...[??? DISCONNE SECT CENT FGN 5 DOC 3BCW #SKI ILIMBO 3BXG ( 3CC6 # 3CWQ # THIS MACRO CAUSES A JOB TO ASSUME TRUE LIMBO CONDITION 3DBB # 3DW2 #MAC DISCONNECT 3F*L DOWN LOGOUT,8 3FT= #NOR 3G2D ...) 3G7L ...[??? LIMBO SECT CENT FGN 5 DOC 3G#W # 3GJN ...#SKI ILIMBO 3GNK ...( 3GSG # THIS MACRO TESTS TO SEE IF AN ACTIVITY IS IN LIMBO 3H#6 # 3HRQ #MAC LIMBO 3J?B #STR %A 3JR2 ( 3K=L LDBIT 9,%A 3KQ= MODD ANDX %A EXT+11,%B,FX2 3L9W ) 3LPG #STR %A 3M96 #SKI 3MNQ ( 3N8B LDBIT 9,0 3NN2 MODD ANDX 0 EXT+11,%B,FX2 3P7L ) 3PM= #NOR 3P^M ...) 3Q#4 ...[??? RESTBLOK SECT CENT FGN 5 DOC 3QLG # 3R66 # RESTBLOK MACRO 3RKQ # 3S5B #MAC RESTBLOK 3SK2 DOWN RESTBLOK,1 3T4L #NOR 3T#D ...[??? RESTRBLO SECT CENT FGN 5 DOC 3TJ= # 3W3W # RESTRBLOK MACRO 3WHG # 3X36 #MAC RESTRBLOK 3XGQ DOWN RESTBLOK,2 3Y2B #NOR 3Y=8 ...[??? RESTCHN SECT CENT FGN 5 DOC 3YG2 # 3Y^L # RESTCHN MACRO 3^F= # RESTORES BLOCKS UNTIL NON BLOCK RECORD OR END OF FILE 3^YW # REACHED 42DG # 42Y6 #MAC RESTCHN 43CQ DOWN RESTBLOK,3 43XB #NOR 4=^Y ...[??? CHEKPASW SECT CENT FGN 5 DOC 4?9Q #MAC CHEKPASWRD 4?PB DOWN ADDJOB,3 4#92 BRN %A 4#NL BRN %B 4*8= #NOR 4*D4 ...[??? SETPARAM SECT CENT FGN 5 DOC 4*MW # 4B7G # SETPARAM MACRO.USED BY THE COMMAND PROCESSOR WHEN DEALING WITH 4BM6 # SETPARAM EXPRESSIONS 4C6Q # 4CLB #MAC SETPARAM 4D62 DOWN SETPARAM,2 4DKL BRN %A 4F5= #NOR 4F*4 ...[??? HLSOFF SECT CENT FGN 5 DOC 4FJW # MACROS TO SWITCH THE HLS ON OR OFF 4G4G # 4G9N ...#SKI JWPHASE4<1$1 4GBW ...( 4GJ6 #MAC HLSOFF 4H3Q RESON HLSBIT 4HHB #NOR 4J32 ...) 4KJN ...#SKI JWPHASE4 4KL5 ...( 4KMG ...#MAC HLSOFF 4KNX ... HLSCONTROL OFF 4KQ# ...#NOR 4KQC ...) 4KQG ...[??? HLSON SECT CENT FGN 5 DOC 4KQK ...# 4KQN ...#SKI JWPHASE4<1$1 4KQR ...( 4KQW ...#MAC HLSON 4KQ^ ... RESOFF HLSBIT 4KR4 ...#NOR 4KR7 ...) 4KR= ...#SKI JWPHASE4 4KR* ...( 4KRP ...#MAC HLSON 4KT6 ... HLSCONTROL MFS,BFS 4KWH ...#NOR 4KXG ...) 4KYF ...[??? MASKSTOZ SECT CENT FGN 5 DOC 4K^G # MACRO TO BE USED BY BLOGNAL AND LOGANAL TO ENSURE AMFMSK IS ALWAYS 4LF6 # ZERO WHEN THE MONITORING FILE IS CLOSED.THE PROBLEM IS ALL TIED UP 4LYQ # WITH CLEANUP AND TRACING LEVELS.MUST BE ISSUED BEFORE INTERNALLY 4MDB # ISSUING ANY COMMANDS AND,BY LOGANAL,AT THE END,IN CASE A FULLTRACE 4MY2 # HAS BEEN OBEYED DURING THE MACRO 4NCL # 4NX= # %A(OPTIONAL) IS A MODIFIER POINTING TO CALAS BLOCK 4PBW # %B(OPTIONAL) IS A MODIFIER POINTING TO ACTIVITY BLOCK(MUST BE CPAT 4PWG # 4QB6 #MAC MASKSTOZ 4QTQ #STR %B 4R*B #SKI 4RT2 ( 4S#L SMO FX2 4SS= STOZ AMFMSK 4T?W ) 4TRG #STR %B 4W?6 STOZ AMFMSK(%B) 4WQQ #STR %A 4X=B #SKI 4XQ2 ( 4Y9L MHUNTW 1,CPB,CALAS 4YP= STOZ CMFMSK(1) 4^8W LDX 1 FX1 4^NG ) 5286 #STR %A 52MQ STOZ CMFMSK(%A) 537B #NOR 53M2 ...[???NIP SECTION CENT FGN 546L ...#MAC NIP 54L= ...#STR %A,ON 555W ...( 55KG ...#STR %A,OFF 5656 ...( 56JQ ...! PARAMETER MUST BE ON OR OFF 574B ...#EXI 57J2 ...) 583L ... LPS OFF 58H= ...#EXI 5=FQ ...) 5=^B ... LPS ON 5#XW ...#NOR 5*CG ...#MAC LPS 5*X6 ...#STR %A,ON 5BBQ ...( 5BWB ...#STR %A,OFF 5CB2 ...( 5CTL ...! PARAMETER MUST BE ON OR OFF 5D*= ...#EXI 5DSW ...) 5F#G ...#MEN EMSENTER 5FS6 ...#TRA K53EMSENTER 5G?Q ... BRN K52EMSENTER 5GRB ...#END 5H?2 ...#MEN ACCESS 5HQL ...#TRA K51ACCESS 5J== ... 0 5JPW ...#END 5K9G ...#EXI 5KP6 ...) 5L8Q ...#MEN EMSENTER 5LNB ...#TRA K53EMSENTER 5M82 ... BRN K51EMSENTER 5MML ...#END 5N7= ...#MEN ACCESS 5NLW ...#TRA K51ACCESS 5P6G ... 6 5PL6 ...#END 5Q5Q ...#NOR ^^^^ ...70221300001500000000