{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS IAN)}}
====== MACROS IAN ======
(George Source)
22#C ...[??? IDLEPERF SECT DEVT FGN 2 DOC
22LS ...#MAC IDLEPERF [- A.P.HOLDEN
22^= [ THIS MACRO CAUSES PERFCHAP TO OUTPUT THE
23DW [ EXEC IDLE TIME AS 'DEVICE TYPE 999'
23KW ...#STR %A,ON
23QW ...(
23XW ...#STR OFF,%A
244W ...#EXI
249W ...#UNS APC51
24BW ...(
24HW ...#MEN PERFCHAP
25#W ...#TRA APC3
25FW ... BRN APC8
25LW ...#END
25RW ...#ALT APC51=0
25YW ...#EXI
265W ...)
26=W ...#EXI
26CW ...)
26JW ...#UNS APC51
26PW ...#EXI
26WW ...#MEN PERFCHAP
27MW ...#TRA APC3
27SW ... LDN 4 999
27^W ...#END
286W ...#ALT APC51=1
28?W ...#NOR
28#R ...[??? PERFSTORE SECT DEVT FGN 2 DOC
28*N ...#MAC PERFSTORE [- A.P.HOLDEN
28BK ... FSDESC
28CG ... FSFILE 3,6,PERF STORE,721053
28DC ... FSFILE 4,6,PERF SWAP,721053,SWAP
28F# ... ENDESC
28G9 ... FSLOAD SAME
28H6 ...#NOR
28J3 ...[??? DPON SECT DEVT FGN 2 DOC
28JY ...#MAC DPON [- A.P.HOLDEN
28KW ...[ THIS MACRO TURNS ON BUILT IN DATAPASS
28QW ...#UNS APPSW
28XW ...#EXI
294W ...#MEN VCLASTWO
299W ...#TRA K86VCLASTWO
29BW ... BICE ZP,ZPERFORM,0,PERFPASS,1
29HW ...#END
29NW ...#ALT APPSW=1
29TW ...#NOR
29^8 ...[??? DPOFF SECT DEVT FGN 2 DOC
2=4G ...#MAC DPOFF [- A.P.HOLDEN
2=7W ...[ THIS MACRO TURNS OFF BUILT IN DATAPASS
2=#W ...#MEN VCLASTWO
2=FW ...#TRA K86VCLASTWO
2=LW ... BICE ??,??,0,VCLASTWO,1
2=RW ...#END
2=YW ...#ALT APPSW=0
2?5W ...#NOR
2?=W ...[
2?K? ...[??? DPASS SECT DEVT FGN 3 DOC
2?XN ...#MAC DPASS [- A.P.HOLDEN
2#=6 ...[ THIS MACRO WILL COMPILE DATAPASS
2#PQ ...[ IT WILL TAKE IT'S SOURCE FROM FILESTORE IF POSSIBLE -
2*9B ...[ OTHERWISE IT WILL USE SUB-FILE DATAPASS ON MT DPTAPE.
2*P2 ...[ FILESTORE SOURCE SHOULD BE IN FILE :GEO.DATAPASS
2*W8 ...#STR NOLIS,%I
2B3B ...(
2B8L ...#ALT ADPLIST=1?
2BN= ...#LIS 0
2C7W ...#OPT AWENDY=0
2CMG ...#LIS AWENDY
2CX# ...)
2D76 ...#STR %A
2DLQ ...#SKI
2F6B ...(
2F8# ...#UNS ADPNOFN
2F== ...#SKI
2F#8 ...(
2FB6 ... DPON
2FD4 ...#LIS ADPLIST
2FG2 ...#EXI
2FHY ...)
2FL2 ... DPASS 2,,,,,,,,NOLIS
2G5L ...#EXI
2GK= ...)
2H4W ...#SKI %A>63-63
2HJG ...(
2J46 ...! %A SHOULD BE LESS THAN 64
2JHQ ...#EXI
2K3B ...)
2KH2 ...#OPT ADP%A=1
2L2L ...#STR %B
2LG= ...(
2L^W ... DPASS %B,%C,%D,%E,%F,%G,%H,,NOLIS
2MFG ...#EXI
2M^6 ...)
2NDQ ...#UNS ADPSIB
2NYB ...#SKI
2PD2 ...(
2PXL ...#LIS 0
2QC= ...#FRL
2QWW ...#INT
2RBG ...#ORD
2RW6 ...ZCOM 40HIF EXI(:DATAPASS.DATAPASS ),(AL 0
2S*Q ... 40H,1)ELSE(IF EXI(:GEO.DATAPASS),(AL 0,2)EL
2STB ... 12HSE(AL 0,0))
2T*2 ...ZCA +60:1,+0,+91,+ZCOM
2TSL ...X0 +0
2W#= ...NTRY STO 0 X0
2WRW ... LDN 0 79?
2X?G ... BZE 0 NOG
2XR6 ... PERI 0 ZCA
2Y=Q ...NOG STO 0 19?+0
2YQB ... LDX 0 X0
2^=2 ... EXIT 0 0
2^PL ...#EXT
329= ...#JUM NTRY
32NW ...#OPT ADPSIB=19?+0]
338G ...#FRL
33N6 ...#LIS AWENDY
347Q ...)
34#Y ...#ALT ADPKEY=4*82?+81?+81?+80?*80?
34G6 ...#SKI ADPKEY
34MB ...#KEY OFF
3572 ...#SKI ADPSIB
35LL ...(
366= ...#SKI ADPSIB-1<1$1
36KW ...(
36R4 ...#UNS ADP13
36Y? ...#GEO RV :DATAPASS.PMCORE
375G ...#REL CR3
37K6 ...#OFR CR3,RESFILE
384Q ...#GEO AS *CR3,:DATAPASS.DATAPASS
38JB ...#USE CR3
3942 ...#UNS ADP13
39HL ...(
3=3= ...#GEO AS *CR3,:DATAPASS.PMCORE
3=GW ...#USE CR3
3?2G ...)
3?G6 ...#REL CR3
3?^Q ...)
3#FB ...#SKI ADPSIB-2<1$1
3#^2 ...(
3*DL ...#REL CR3
3*Y= ...#OFR CR3,DATAPASS
3BCW ...#GEO AS *CR3,:GEO.DATAPASS
3BXG ...#USE CR3
3CC6 ...#REL CR3
3CWQ ...)
3DBB ...)
3DW2 ...#SKI ADPSIB<1$1
3F*L ...(
3FT= ...#REL MT0
3G#W ...#OFR MT0,DPTAPE
3GSG ...#POS MT0,DATAPASS
3H#6 ...#USE MT0
3HRQ ...#REL MT0
3J?B ...)
3J*# ...#OPT ADP13=0
3JC= ...#OPT ADPNOFN=0
3JF8 ...#SKI ADPKEY-3<1$1
3JH6 ...#KEY ON,C
3JK4 ...#SKI ADPKEY-5<1$1
3JM2 ...#KEY ON,D
3JNY ...#SKI ADPKEY-1<1$1
3JR2 ...#KEY ON
3K=L ...#UNS ADPNOFN
3KQ= ...#SKI
3L9W ... DPFIN
3LPG ...#LIS ADPLIST
3M96 ...#NOR
3MNQ ...[
3N8B ...[
3^RM ...[??? PERFLIM SECT DEVT FGN 2 DOC
4264 ...#MAC PERFLIM [- A.P.HOLDEN
42DG ...[ THIS MACRO LIMITS THE MAX. SIZE OF :SYSTEM.PERFORMANCE
42Y6 ...#ALT APCSZ=%A
43CQ ...#MEN PERFCHAP
43XB ...#TRA APC14
44C2 ... LDN 0 %A
44WL ...#END
45B= ...#NOR
45TW ...[??? CMEPERF SECT DIAG FGN 22
46*G ...#MAC CMEPERF
46T6 ...[ THIS MACRO IS THE SAME AS IDLEPERF BUT GIVES EXTRA
47#Q ...[DATA FOR CME. IT ISSUES IDLEPERF.
47SB ...#STR %A,ON
48#2 ...(
48RL ...#STR OFF,%A
49?= ...#EXI
49QW ...#UNS CME01
4==G ...(
4=Q6 ...#MEN PERFCHAP
4?9Q ...#TRA APC9
4?PB ... BRN APC10
4#92 ...#END
4#NL ...#ALT CME01=0
4#YD ...#STR NOIDE,%B
4*8= ...#EXI
4*D4 ... IDLEPERF OFF
4*MW ...)
4B7G ...#EXI
4BM6 ...)
4C6Q ...#UNS CME01
4CLB ...#EXI
4D62 ...#MEN PERFCHAP
4DKL ...#TRA APC9
4F5= ... NULL
4FJW ...#END
4G4G ...#ALT CME01=1
4GJ6 ... IDLEPERF
4H3Q ...#NOR
^^^^ ...074101640022