{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS HL)}}
====== MACROS HL ======
(George Source)
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