12 22FL #LIS K0LOGANAL>K0ALLGEO 15 22_= #SEG LOGANAL3 [K.KOSKUBA 9 23DW XYZ 8HLOGANAL 4 23YG # 21 24D6 # THIS SEG. IS ENTERED BY THE MACRO LOGANAL. THE LOGANALYSI 21 24XQ # PROGRAM IS LOADED(:SYSTEM.LOGPROG). IT CALLS THE SYS. MAC 18 25CB # LOGANAL. THIS RUNS THE LOGANALYSIS PROGRAM. 4 25X2 # 21 26BL # THE ISSUCOM USES THE ADATA/CREADL BLOCK ES ITS DATA,THIS CONTAINS 21 26W= # THE NO. OF CHARS IN THE DATA, THE MACRO NAME FOLLOWED BY THE PARAM 20 27*W # WHICH IS THE MONITOR FILE SELECTION MASK, GIVEB_N AS AN OCTAL 21 27TG # NO.THIS IS FOUND FOM THE ADATA/AREPORT BL. &CONVERTED TO A SUITABL 4 28*6 # 11 28SQ SEGENTRY K1LOGANAL,XK1LOG 13 28_Y ... FSHENTRY K2LOGANAL,XK2LOG,,XK2LOG 13 2976 ... FSHENTRY K3LOGANAL,XK3LOG,,XK3LOG 8 29FH ...XZZ 20 8 29RY ... +0 13 2=6* ... 20HLOAD :SYSTEM.LOGPROG 4 2=DQ ...# 8 2=R7 ...XLIST 30 8 2?5J ... +0 15 2?C_ ... 32HLISTFILE :%Z.%Y( 1/B1B0),*LP 4 2?QB ...# 8 2#4R ...XISSUE 32 8 2#C8 ... +0 12 2#PK ... 32HLOGANAL # , 4 2*42 ...# 9 2*BC ...MONCAT #12002 4 2*NS ...# 14 2B39 ...XLFAIL 26H:SYSTEM.LOGPROG IS CORRUPT 4 2B*L ...# 7 2BN3 ...#OPT ANAL=#1100 4 2C2D ...# 5 2C#T ...XK1LOG 13 2CM= ...[ FIRST GET FGN OF MONITORING FILE 7 2C_M ... NGN 6 1 21 2D#4 ... SFCB 6,3 [SETS X3 POINTING TO FCB OF MON FILE 4 2DLF ...[ 15 2DYW ...[ CONVERT FGN TO CHARS AND STORE IN AWORK2 9 2F?? ... LDN 1 AWORK1(2) 10 2FKN ... XCBINDEX 4,1,FGEN(3) 8 2FY5 ... LDX 1 FX1 4 2G=G ...[ 18 2GK= CLOSE -1 [CLOSE MONITORING FILE 18 2H4W LDX 5 AMFMSK(2) [CLEAR MONITORING FILE 8 2HJG MASKSTOZ ,2 9 2J46 STO 5 AWORK1(2) 10 2JHQ LDX 4 CONTEXT(2) 17 2K3B ANDN 4 8 [TEST MOP CONSOLE BIT 9 2KH2 BZE 4 NOTMOP 17 2L2L LDN 4 2 [MOPOUT REPORT STYLE 20 2LG= STO 4 AMXMSK(2) [STORE MASK INTO MULTIPLEXOR MASK 6 2LHS ...#UNS CMXMSK 4 2LKB ...( 10 2LLY ... SEGENTRY K70LOGANAL 20 2LNG ... BRN XK71 [MENDED TO NULL IF REPORTNEST ON 10 2LQ4 ... MHUNTW 3,CPB,CALAS 9 2LRL ... STO 4 CMXMSK(3) 4 2LT8 ...XK71 10 2LWQ ... SEGENTRY K71LOGANAL 4 2LY# ...) 5 2L_W NOTMOP 12 2MFG # THE PROGRAM IS LOADED 11 2M_6 SETNCORE 7,2,ADATA,CREADL 9 2NDQ LDN 4 XZZ(1) 8 2NYB LDN 5 A1(2) 7 2PD2 MOVE 4 7 8 2PXL FJOCA 3,FX2 7 2QC= NGN 1 1 9 2QWW STO 1 ATIMEJ(3) 4 2RBG # 19 2RW6 # THE LOGANALYSIS PROGRAM IS GIVEN SYSTEM STARTED PRIVILEGE 4 2S*Q # 9 2STB SPRIVON JSSTART,3 6 2SX# ...#UNS ECS 4 2S_= ...( 8 2T38 ... LDN 0 62 16 2T56 ... DEX 0 ACOREP(3) [SET HIGH CORE PRI 9 2T74 ... LDX 0 ISISSMP 16 2T92 ... STO 0 AMILLP(3) [...AND MILL PRI 4 2T=Y ...) 5 2T?9 ...#UNS ICT 4 2T?G ...( 21 2T?R ... LDN 7 0 [GIVE ACT PRI OF ZERO TO ALLOW DEFAU 3 2T#4 ... 15 2T#* ... APJOBSET JOBNUM(3),7 [SET ACT PRI 4 2T#L ...) 9 2T*2 # AND THEN LOADED 7 2TSL LDN 7 1 8 2W#= ISSUCOM XERR 11 2WRW SETNCORE 10,2,ADATA,CREADL 9 2X?G LDN 4 XISSUE(1) 8 2XR6 LDN 5 A1(2) 8 2Y=Q MOVE 4 10 11 2YQB MHUNT 3,ADATA,AREPORT 8 2_=2 LDX 5 A1(3) 7 2_PL LDN 6 8 7 329= XL1 LDN 4 0 7 32NW SLL 45 3 7 338G BCHX 2 / 9 33N6 DCH 4 A1+4(2) 8 347Q BCT 6 XL1 9 34MB LDX 1 A1+1(3) 17 3572 BZE 1 XL2 [IF ZERO NO RETAIN 9 35LL LDN 4 A1+2(3) 9 366= LDN 5 A1+5(2) 17 36KW MOVE 4 0(1) [X1= AMOUNT TO MOVE 4 375G XL2 10 37K6 MFREE ADATA,AREPORT 9 37L7 ... FSHCODE B,XNOTA1 4 37M8 ...( 20 37N9 ...# WE CAN'T DO A FRIGMONF ON 'B' WITH THE SHARED FILESTORE SYSTEM 16 37P= ...# SO WE MUST GO TO 'A' TO OPEN THE WORKFILE!!!! 4 37Q? ...# 11 37R# ... SETNCORE 0,3,FSH,FSHTERM 15 37S* ... TRANSBEG FSHLOGNALID,LOGANAL,2,,,ACOMMUNE1 18 37TB ... FSHMOVE END [RING THE NEW WORKFILE 21 37WC ... FILEMOVE 0,-1 [& PUT IT TO THE BOTTOM OF THE STACK 4 37XD ...# 5 37YF ...XNOTA1 4 37_G ...) 9 382H ... FSHSKIP B,XNOTB1 4 383J ...( 19 384Q FRIGMONF [OPEN : FOR ERROR MESSAGES 4 388M ...# 5 38#J ...XNOTB1 4 38DF ...) 17 38JB LOBSFILE [FOR ONLINE BS COUNT 18 3942 MHUNT 3,FILE,FABSNB [GET WORKFILE'S FABSNB 10 39HL NAMETOP 3,ANAL,FABSNB 19 3=3= LDX 5 AWORK1(2) [RESET MONITORING FILE MASK 9 3=GW STO 5 AMFMSK(2) 7 3?2G LDN 7 0 6 3?8Q #SKI JSKI08 17 3?C2 ISSUCOM XERR [NU 'SPECIAL'-S71320 7 3?K= ...#SKI JSKI08<1$1 8 3?RG ISSUCOML XERR 16 3?_Q XER1 CALL 7 XCLEAN [TIDY UP FILES 10 3#FB XER2 LDX 4 CONTEXT(2) 8 3#_2 ANDN 4 #1000 6 3*68 ...#UNS FTS1 6 3*?B ... DICTJL 8 3*DL BZE 4 XER3 16 3*Y= DOWN PROSTART,11 [DELETE PROGRAM 5 3BCW XER3 UP 11 3BPL ...XERR SETNCORE 10,2,ADATA,CREADL 9 3C3B ... LDN 4 XLIST(1) 8 3C*6 ... LDN 5 A1(2) 8 3CLW ... MOVE 4 10 8 3CYL ... SMO FX2 9 3D=B ... LDX 4 AWORK2 18 3DJ6 ... STO 4 CPDATA+4(2) [STORE FGN IN COMMAND 15 3DW2 ISSUCOM XER4 [LF MONFILE 8 3F*L XER4 BZE 7 XER1 10 3FT= SETNCORE 7,2,CPB,CUNI 9 3G#W LDX 7 MONCAT(1) 8 3GSG ADN 2 A1 9 3H#6 ADN 1 XLFAIL 7 3HRQ MOVE 1 7 8 3J?B LDN 6 26 10 3JR2 OUTMON 6,A1,7,CPB,CUNI 9 3K=L MFREE CPB,CUNI 8 3KQ= BRN XER2 20 3L9W XCLEAN [ERASE WORKFILE & CLOSE ALL FILES 8 3LPG MASKSTOZ ,2 8 3M96 SBX 7 FX1 19 3MNQ MHUNT 3,ANAL,FABSNB [FIND THE ABSOLUTE NAME BLOCK 19 3N8B CHAIN 3,2 [FOR THE WORKFILE,RENAME AND 10 3NN2 NAMETOP 3,FILE,FABSNB 9 3NP? ... FSHCODE B,XNOTA2 4 3NQJ ...( 19 3NRT ...# AS FOR FRIGMONF ABOVE, WE CANNOT DO AN ERASEWORK ON THE 9 3NT6 ...# 'B' MACHINE!!!! 4 3NWC ...# 18 3NXN ... TRANSBEG FSHLOGNALID,LOGANAL,3,FILE,FABSNB,ACOMMUNE1 4 3NY_ ...# 5 3P2= ...XNOTA2 4 3P3H ...) 9 3P4S ... FSHSKIP B,XNOTB2 4 3P65 ...( 7 3P7L ERASEWORK 4 3P?H ...# 5 3PCD ...XNOTB2 4 3PH* ...) 19 3PM= FILECOUNT 5 [GET NU MBER OF FILES OPEN 12 3Q6W XCL1 BZE 5 XCL2 [THEN 14 3QLG SBN 5 1 [CLOSE 13 3R66 CLOSE [EACH 13 3RKQ BRN XCL1 [FILE 8 3S5B XCL2 ADX 7 FX1 7 3SK2 EXIT 7 0 8 3T4L MENDAREA 45 9 3T5# ... FSHCODE A,XNOTB3 4 3T62 ...( 4 3T6N ...# 19 3T7B ...# THIS IS THE CODE FOR THE OPERATIONS THAT CANNOT BE CARRIED 10 3T84 ...# OUT ON THE 'B' MACHINE 4 3T8Q ...# 5 3T9D ...XK2LOG 4 3T=6 ...# 21 3T=S ... FRIGMONF ,1 [CREATE A WORKFILE AT THE TOP LEVEL 20 3T?G ... FSHMOVE START [AND PREPARE IT FOR MOVING TO 'B' 4 3T#8 ...# 4 3T#W ...XFIN 16 3T*J ... TRANSFIN [GO BACK TO 'B' 4 3TB= ...# 4 3TBY ...# 5 3TCL ...XK3LOG 21 3TD# ... ERASEWORK [ERASE WORKFILE DESCRIBED IN /FABSNB 8 3TF2 ... BRN XFIN 4 3TFN ...# 5 3TGB ...XNOTB3 4 3TH4 ...) 4 3TJ= #END 8 ____ ...20104226000600000000