Seq # *Modification Id* Act
----------------------------+
01895 M02S01049.286l859 ---|*T,AEPB+2 60/ CHECKSUM VALUE
Figure
AEPB+2
0 29 CHECKSUM VALUE 30 59 CHECKSUM VALUE
01896 M02S01050.286l859 ---|*T,AEPB+3 24/ MASK,24/ ERROR CLASS,12/ ERROR CODE
Figure
AEPB+3
0 11 12 29 ERROR CODE ERROR CLASS 30 35 36 59 ERROR CLASS MASK
01897 M02S01051.286l859 ---|*T,AEPB+4 60/ PENDING INTERRUPTS
Figure
AEPB+4
0 29 PENDING INTERRUPTS 30 59 PENDING INTERRUPTS
Line S01052 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
01898 M03S01052.286l859 ---|*T,AEPB+5 60/ PENDING RA+1 REQUEST
Figure
AEPB+5
0 29 PENDING RA+1 REQUEST 30 59 PENDING RA+1 REQUEST
Line S00046 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
01899 M03S00046.286l859 ---|*T,AEPB+5 60/ PENDING SYSTEM REQUEST
Figure
AEPB+5
0 29 PENDING SYSTEM REQUEST 30 59 PENDING SYSTEM REQUEST
Line S01053 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
01900 M02S01053.286l859 ---|*T,AEPB+6 60/ INTERRUPTED TERMINAL I/O
Figure
AEPB+6
0 29 INTERRUPTED TERMINAL I 30 59 INTERRUPTED TERMINAL I
01901 M02S01054.286l859 ---|*T,AEPB+7 48/,12/ ERROR FLAG
01902 M02S01055.286l859 ---|*T,AEPB+8 60/
01903 M02S01056.286l859 ---|*T,AEPB+9 60/ EXCHANGE PACKAGE (WORD 1)
Figure
AEPB+9
0 29 EXCHANGE PACKAGE (WORD 1) 30 59 EXCHANGE PACKAGE (WORD 1)
01904 M02S01057.286l859 ---|*T, * 60/
01905 M02S01058.286l859 ---|*T,AEPB+24 60/ EXCHANGE PACKAGE (WORD 16)
Figure
AEPB+24
0 29 EXCHANGE PACKAGE (WORD 16) 30 59 EXCHANGE PACKAGE (WORD 16)
01906 M02S01059.286l859 ---|*
01907 M02S01060.286l859 ---|* LENGTH = LENGTH OF REPRIEVE PARAMETER BLOCK.
01908 M02S01061.286l859 ---|* FUNC = REPRIEVE FUNCTION CODE.
01909 M02S01062.286l859 ---|* C = COMPLETION BIT.
01910 M02S01063.286l859 ---|
01911 M02S01064.286l859 ---| AEPB VFD 36/0,12/AEPBL,12/0
01912 M02S01065.286l859 ---| VFD 30/0,30/EXP
01913 M02S01066.286l859 ---| BSSZ 7
01914 M02S01067.286l859 ---| BSSZ 16 EXCHANGE PACKAGE
01915 M02S01068.286l859 ---|
01916 M02S01069.286l859 ---| AEPBL EQU *-AEPB LENGTH OF REPRIEVE PARAMETER BLOCK
Line S00104 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
01917 M02S00104.286l859 ---| ABTA BSSZ 1 ABORT IN-PROCESS FLAG
01918 M02S00105.286l859 ---| ABTB RPVBLK ABT3 REPRIEVE BLOCK
Line S00452 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
01919 M01S00452.286l859 +++| SA7 A1+B1 SET *IN* = *FIRST*
01920 M01S00453.286l859 +++| SA7 A7+B1 SET *OUT* = *FIRST*
01921 M01S00454.286l859 +++| LABEL AST REQUEST TAPE ASSIGNMENT
01922 M01S00455.286l859 +++| EQ AATX RETURN
01923 M00S01070.pfdump +++| ALF SPACE 4,20
01924 M00S01071.pfdump +++|** ALF - ATTACH LOCK FILE.
01925 M00S01072.pfdump +++|*
01926 M00S01073.pfdump +++|* ENTRY (B6) = LOCK FILE INDEX.
Line S00047 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01927 M01S00047.v23l617 +++|* (B4) = 0, IF *MSS* FILE BEING ATTACHED.
Line S00048 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
01928 M02S00048.242l642 ---|* (B4) = 8, IF *MAS* FILE BEING ATTACHED.
Line S00012 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01929 M01S00012.242l642 +++|* (B4) = 8, IF *MSE* FILE BEING ATTACHED.
01930 M00S01074.pfdump +++|* (CMSK) = CONTROL MASK HAVING BIT SET FOR EACH
01931 M00S01075.pfdump +++|* SUBFAMILY STILL NEEDING LOCK.
Line S01076 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01932 M01S01076.v23l617 ---|* (GPAR+2) = ORIGINAL (42/ USER NUMBER,18/ USER INDEX).
Line S00049 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01933 M01S00049.v23l617 +++|* (GPAR+2) = ORIGINAL (42/ USER NAME,18/ USER INDEX).
01934 M00S01077.pfdump +++|* *LFAT* = FWA OF LOCK FILE FET ARGUMENT TABLE.
01935 M00S01078.pfdump +++|* *LOCK* = FWA OF LOCK FILE FET.
01936 M00S01079.pfdump +++|* PERMANENT FILE PARAMETERS SET FOR FAMILY DESIRED.
01937 M00S01080.pfdump +++|*
01938 M00S01081.pfdump +++|* EXIT (B6) = LOCK FILE INDEX.
01939 M00S01082.pfdump +++|* (CMSK) = CONTROL MASK UPDATED.
01940 M00S01083.pfdump +++|* (LMSK) = LOCK MASK UPDATED.
01941 M00S01084.pfdump +++|* LOCK FILE ATTACHED, IF AVAILABLE.
01942 M00S01085.pfdump +++|*
01943 M00S01086.pfdump +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
01944 M00S01087.pfdump +++|* A - 1, 2, 3, 6, 7.
Line S01088 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01945 M01S01088.v23l617 ---|* B - 6.
01946 M00S01089.pfdump +++|*
01947 M00S01090.pfdump +++|* MACROS ATTACH, CATLIST, SETFET, SETPFP.
01948 M00S01091.pfdump +++|
01949 M00S01092.pfdump +++|
01950 M00S01093.pfdump +++| ALF SUBR ENTRY/EXIT
Line S01094 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01951 M01S01094.v23l617 ---| SX6 B6 SAVE LOCK FILE INDEX
01952 M01S01095.v23l617 ---| SA6 ALFA
01953 M00S01096.pfdump +++| MX0 42
01954 M00S01097.pfdump +++| SA1 LFAT+B6 ADJUST FET ARGUMENTS
01955 M00S01098.pfdump +++| SA2 LOCK FILE NAME
01956 M00S01099.pfdump +++| BX6 X0*X1
Line S00001 Modification History
M01 (Added by) pfdum1
Seq # *Modification Id* Act
----------------------------+
01957 M01S00001.pfdum1 +++| SA6 A2+8
01958 M00S01100.pfdump +++| BX3 -X0*X2
01959 M00S01101.pfdump +++| BX6 X3+X6
01960 M00S01102.pfdump +++| SA6 A2
Line S01103 Modification History
M01 (Removed by) pfdum17
Seq # *Modification Id* Act
----------------------------+
01961 M01S01103.pfdum17 ---| SA3 LOCK+1 FIRST
Line S00001 Modification History
M01 (Added by) pfdum17
M02 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01962 M02S00001.v23l617 ---| SA3 LOCK+FTIN SET IN POINTER
Line S01104 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01963 M01S01104.v23l617 ---| BX6 -X0*X1
01964 M01S01105.v23l617 ---| BX2 X0*X3
01965 M01S01106.v23l617 ---| BX6 X2+X6
01966 M01S01107.v23l617 ---| SA6 A3
Line S00050 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01967 M01S00050.v23l617 +++| BX6 -X0*X1
01968 M01S00051.v23l617 +++| SA6 LOCK+FTIN SET *IN* POINTER
01969 M00S01108.pfdump +++|
01970 M00S01109.pfdump +++|* ATTEMPT TO ATTACH DESIRED LOCK FILE.
01971 M00S01110.pfdump +++|
01972 M00S01111.pfdump +++| SX6 UIPR SET SUBFAMILY USER INDEX
01973 M00S01112.pfdump +++| SA6 SPAR
Line S01113 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01974 M01S01113.v23l617 ---| SX7 SBUI+B6
Line S00052 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01975 M01S00052.v23l617 +++| SX7 B6-B4 GET SUBFAMILY INDEX
01976 M01S00053.v23l617 +++| SX7 X7+SBUI SUBFAMILY USER INDEX
01977 M00S01114.pfdump +++| SA7 SPAR+2
01978 M00S01115.pfdump +++| SETPFP SPAR
01979 M00S01116.pfdump +++| SETFET LOCK,ERP=E SET USER ERROR PROCESSING
Line S01117 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
01980 M01S01117.ns21000 ---| ATTACH LOCK,,,,R,,,,IE
Line S00008 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
01981 M01S00008.ns21000 +++| CATLIST LOCK,,,,,,,IE GET PFC ENTRY
01982 M01S00009.ns21000 +++| ATTACH LOCK,,,,RU,,,,IE
01983 M00S01118.pfdump +++|
01984 M00S01119.pfdump +++|* CHECK ATTACH ERROR CODE.
01985 M00S01120.pfdump +++|
01986 M00S01121.pfdump +++| SA1 X2
Line S01122 Modification History
M01 (Removed by) pfdum1
Seq # *Modification Id* Act
----------------------------+
01987 M01S01122.pfdum1 ---| MX2 42
01988 M01S01123.pfdum1 ---| BX6 X2*X1
Line S00002 Modification History
M01 (Added by) pfdum1
M02 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
01989 M02S00002.ns21000 ---| BX6 X0*X1
01990 M00S01124.pfdump +++| MX0 -8
01991 M00S01125.pfdump +++| LX1 7-17
01992 M00S01126.pfdump +++| BX4 -X0*X1 ERROR CODE
Line S01127 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
01993 M01S01127.ns21000 ---| SA6 LOCK+8 SET FILE NAME IN FET
Line S01128 Modification History
M01 (Removed by) ns2005
M02 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
01994 M02S01128.ns21000 ---| CATLIST LOCK GET PFC ENTRY
Line S00001 Modification History
M01 (Added by) ns2005
M02 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
01995 M02S00001.ns21000 ---| CATLIST LOCK,,,,,,,IE GET PFC ENTRY
Line S01129 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01996 M01S01129.v23l617 ---| SA3 ALFA RESTORE LOCK INDEX
01997 M01S01130.v23l617 ---| SB6 X3+
01998 M00S01131.pfdump +++| ZR X4,ALF1 IF NO ERROR ON *ATTACH*
01999 M00S01132.pfdump +++| SX3 X4-/ERRMSG/FNF
02000 M00S01133.pfdump +++| NZ X3,ALFX IF FILE FOUND BUT UNAVAILABLE
02001 M00S01134.pfdump +++|
02002 M00S01135.pfdump +++|* INDICATE LOCK FILE OBTAINED.
02003 M00S01136.pfdump +++|
02004 M00S01137.pfdump +++| ALF1 SA1 LMSK SET LOCK MASK BIT
02005 M00S01138.pfdump +++| SX2 B1
02006 M00S01139.pfdump +++| LX2 B6,X2
02007 M00S01140.pfdump +++| BX6 X1+X2
02008 M00S01141.pfdump +++| SA6 A1
Line S00054 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
02009 M01S00054.v23l617 +++| AX2 B4
02010 M00S01142.pfdump +++| SA1 CMSK CLEAR CONTROL MASK BIT
02011 M00S01143.pfdump +++| BX6 X1-X2
02012 M00S01144.pfdump +++| SA6 A1
02013 M00S01145.pfdump +++| EQ ALFX RETURN
Line S01146 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
02014 M01S01146.v23l617 ---|
02015 M01S01147.v23l617 ---| ALFA BSSZ 1 LOCK FILE INDEX SAVE AREA
Line S01148 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02016 M01S01148.253l688 ---| BEL SPACE 4,15
02017 M01S01149.253l688 ---|** BEL - BUILD ERRLOG MESSAGE.
02018 M01S01150.253l688 ---|*
02019 M01S01151.253l688 ---|* ENTRY (X5) = DAYFILE MESSAGE ADDRESS.
02020 M01S01152.253l688 ---|* (MPDN) = DEVICE NUMBER.
Line S01153 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02021 M02S01153.253l688 ---|* (MPEQ) = EQUIPMENT NUMBER.
Line S00130 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02022 M02S00130.253l688 ---|* (MPEQ) = EST ORDINAL.
Line S01154 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02023 M01S01154.253l688 ---|*
02024 M01S01155.253l688 ---|* EXIT (X5) = ERRLOG MESSAGE ADDRESS.
02025 M01S01156.253l688 ---|*
02026 M01S01157.253l688 ---|* USES X - ALL.
02027 M01S01158.253l688 ---|* A - 1, 2, 3, 6.
02028 M01S01159.253l688 ---|* B - 2, 3, 4.
02029 M01S01160.253l688 ---|*
02030 M01S01161.253l688 ---|* CALLS COD.
02031 M01S01162.253l688 ---|
02032 M01S01163.253l688 ---|
02033 M01S01164.253l688 ---| BEL SUBR ENTRY/EXIT
02034 M01S01165.253l688 ---|
Line S01166 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02035 M02S01166.253l688 ---|* SETUP ERRLOG MESSAGE PREFIX.
Line S00131 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02036 M02S00131.253l688 ---|* SET UP ERRLOG MESSAGE PREFIX.
Line S01167 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02037 M01S01167.253l688 ---|
Line S01168 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02038 M02S01168.253l688 ---| SA1 MPEQ SET EQUIPMENT NUMBER
02039 M02S01169.253l688 ---| SX1 X1+100B INSURE LEADING ZERO
Line S00132 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02040 M02S00132.253l688 ---| SA1 MPEQ SET EST ORDINAL
02041 M02S00133.253l688 ---| SX1 X1+1000B ENSURE LEADING ZEROES
Line S01170 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02042 M01S01170.253l688 ---| RJ COD CONVERT OCTAL TO DISPLAY CODE
02043 M01S01171.253l688 ---| SA1 BELA
Line S01172 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02044 M02S01172.253l688 ---| MX0 -12
Line S00134 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02045 M02S00134.253l688 ---| MX0 -18
Line S01173 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02046 M01S01173.253l688 ---| BX6 -X0*X6
Line S01174 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02047 M02S01174.253l688 ---| LX0 47-11
02048 M02S01175.253l688 ---| LX6 47-11
Line S00135 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02049 M02S00135.253l688 ---| LX0 47-17
02050 M02S00136.253l688 ---| LX6 47-17
Line S01176 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02051 M01S01176.253l688 ---| BX1 X0*X1
02052 M01S01177.253l688 ---| BX6 X1+X6
02053 M01S01178.253l688 ---| SA6 A1+
02054 M01S01179.253l688 ---| SA1 MPDN SET DEVICE NUMBER
02055 M01S01180.253l688 ---| SX1 X1+100B INSURE LEADING ZERO
02056 M01S01181.253l688 ---| RJ COD CONVERT OCTAL TO DISPLAY CODE
02057 M01S01182.253l688 ---| SA1 BELA
02058 M01S01183.253l688 ---| MX0 -12
02059 M01S01184.253l688 ---| BX6 -X0*X6
Line S01185 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02060 M02S01185.253l688 ---| LX0 17-11
02061 M02S01186.253l688 ---| LX6 17-11
Line S01187 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02062 M01S01187.253l688 ---| BX1 X0*X1
02063 M01S01188.253l688 ---| BX6 X1+X6
02064 M01S01189.253l688 ---| SA6 A1
02065 M01S01190.253l688 ---|
02066 M01S01191.253l688 ---|* MOVE DAYFILE MESSAGE DESCRIPTIVE STRING TO ERRLOG MESSAGE.
02067 M01S01192.253l688 ---|
02068 M01S01193.253l688 ---| SB2 B0 INITIALIZE WORD INDEX
02069 M01S01194.253l688 ---| SB4 10D
02070 M01S01195.253l688 ---| BEL1 SB3 B0 INITIALIZE CHARACTER INDEX
02071 M01S01196.253l688 ---| SA2 =1L, SET SEARCH CHARACTER
02072 M01S01197.253l688 ---| MX0 6 SET SEARCH MASK
02073 M01S01198.253l688 ---| SA3 BELB+B2 GET ERRLOG MESSAGE WORD
02074 M01S01199.253l688 ---| SA1 X5+B2 GET DAYFILE MESSAGE WORD
02075 M01S01200.253l688 ---| BX6 X3
02076 M01S01201.253l688 ---| BEL2 BX4 X0*X1 GET DAYFILE MESSAGE CHARACTER
02077 M01S01202.253l688 ---| BX7 X2-X4
02078 M01S01203.253l688 ---| ZR X7,BEL3 IF SEARCH CHARACTER FOUND
02079 M01S01204.253l688 ---| BX6 -X0*X6 INSERT DAYFILE CHARACTER
02080 M01S01205.253l688 ---| BX6 X4+X6
02081 M01S01206.253l688 ---| LX0 -6 SETUP FOR NEXT CHARACTER
02082 M01S01207.253l688 ---| LX2 -6
02083 M01S01208.253l688 ---| SB3 B3+B1 INCREMENT CHARACTER INDEX
02084 M01S01209.253l688 ---| LT B3,B4,BEL2 IF MORE CHARACTERS
02085 M01S01210.253l688 ---| SA6 A3 SAVE NEW ERRLOG MESSAGE WORD
02086 M01S01211.253l688 ---| SB2 B2+B1 INCREMENT WORD INDEX
02087 M01S01212.253l688 ---| SX1 B2-7
02088 M01S01213.253l688 ---| NG X1,BEL1 IF MORE WORDS
02089 M01S01214.253l688 ---| EQ BEL4 ADD LINE TERMINATOR
02090 M01S01215.253l688 ---|
02091 M01S01216.253l688 ---|* TERMINATE DESCRIPTIVE STRING WITH A PERIOD.
02092 M01S01217.253l688 ---|
02093 M01S01218.253l688 ---| BEL3 SX2 B3
02094 M01S01219.253l688 ---| LX2 2
02095 M01S01220.253l688 ---| SX3 B3
02096 M01S01221.253l688 ---| LX3 1
02097 M01S01222.253l688 ---| IX2 X2+X3
02098 M01S01223.253l688 ---| SB4 60D
02099 M01S01224.253l688 ---| SB3 X2 6*CHARACTER INDEX (0-9)
02100 M01S01225.253l688 ---| SB3 B4-B3
02101 M01S01226.253l688 ---| SA2 =1L. REPLACE COMMA WITH PERIOD
02102 M01S01227.253l688 ---| LX2 B3,X2
02103 M01S01228.253l688 ---| BX6 -X0*X6
02104 M01S01229.253l688 ---| BX6 X2+X6
02105 M01S01230.253l688 ---|
Line S01231 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02106 M02S01231.253l688 ---|* SUPPLY ERRLOG MESSAGE LINE TERMINATOR.
Line S00137 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02107 M02S00137.253l688 ---|* INSERT COMMA AFTER DEVICE NUMBER, ADD END OF LINE.
Line S01232 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02108 M01S01232.253l688 ---|
02109 M01S01233.253l688 ---| SB2 -B3 CONSTRUCT MASK TO ZERO FILL WORD
02110 M01S01234.253l688 ---| MX0 1
02111 M01S01235.253l688 ---| SB3 59+6+B2
02112 M01S01236.253l688 ---| AX0 B3
02113 M01S01237.253l688 ---| BX6 X0*X6
02114 M01S01238.253l688 ---| SA6 A3+ SAVE LAST ERRLOG MESSAGE WORD
02115 M01S01239.253l688 ---| BEL4 BX6 X6-X6
02116 M01S01240.253l688 ---| SA6 A3+B1 ADD LINE TERMINATOR
Line S00138 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02117 M02S00138.253l688 ---| SX6 1R,&1R INSERT COMMA AFTER DEVICE NUMBER
02118 M02S00139.253l688 ---| SA3 BELA+1
02119 M02S00140.253l688 ---| LX6 54
02120 M02S00141.253l688 ---| BX6 X3-X6
02121 M02S00142.253l688 ---| SA6 A3+
Line S01241 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02122 M01S01241.253l688 ---| SX5 BELA SET ERRLOG MESSAGE ADDRESS
02123 M01S01242.253l688 ---| EQ BELX RETURN
02124 M01S01243.253l688 ---|
Line S01244 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02125 M02S01244.253l688 ---| BELA DATA 10HEQXX,DNXX, ERRLOG MESSAGE BUILD AREA
Line S00143 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02126 M02S00143.253l688 ---| BELA DATA 10HEQXXX,DNXX ERRLOG MESSAGE PREFIX
Line S01245 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02127 M01S01245.253l688 ---| BELB BSSZ 8
02128 M01S01246.253l688 ---| CAC SPACE 4,15
02129 M01S01247.253l688 ---|** CAC - CLEAR PF ACTIVITY COUNT.
02130 M01S01248.253l688 ---|*
02131 M01S01249.253l688 ---|* ENTRY (ACFL) = 1 IF ACTIVITY COUNT SET.
02132 M01S01250.253l688 ---|* = 0 IF ACTIVITY COUNT ALREADY CLEAR.
Line S01251 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02133 M02S01251.253l688 ---|* (MAEQ) = MASTER EQUIPMENT NUMBER.
Line S00144 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02134 M02S00144.253l688 ---|* (MAEQ) = MASTER DEVICE EST ORDINAL.
Line S01252 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02135 M01S01252.253l688 ---|*
02136 M01S01253.253l688 ---|* EXIT (ACFL) = 0.
02137 M01S01254.253l688 ---|* PFU CALLED TO CLEAR PF ACTIVITY COUNT IF NOT ALREADY
02138 M01S01255.253l688 ---|* CLEAR.
02139 M01S01256.253l688 ---|*
02140 M01S01257.253l688 ---|* USES X - 1, 3, 6.
02141 M01S01258.253l688 ---|* A - 1, 3, 6.
02142 M01S01259.253l688 ---|*
02143 M01S01260.253l688 ---|* MACROS CALLPFU, MESSAGE, MOVE.
02144 M01S01261.253l688 ---|
02145 M01S01262.253l688 ---|
02146 M01S01263.253l688 ---| CAC SUBR ENTRY/EXIT
02147 M01S01264.253l688 ---| SA1 ACFL CHECK ACTIVITY COUNT FLAG
02148 M01S01265.253l688 ---| SX6 ACFL SET ACTIVITY COUNT FLAG ADDRESS
02149 M01S01266.253l688 ---| ZR X1,CACX IF ACTIVITY COUNT ALREADY CLEAR
Line S01267 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02150 M02S01267.253l688 ---| SA1 MAEQ SET MASTER EQUIPMENT NUMBER
Line S00145 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02151 M02S00145.253l688 ---| SA1 MAEQ SET MASTER DEVICE EST ORDINAL
Line S01268 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02152 M01S01268.253l688 ---| LX1 -12
02153 M01S01269.253l688 ---| BX6 X1+X6 MERGE WITH FET ADDRESS
02154 M01S01270.253l688 ---| SA6 ACFT+FTPM
02155 M01S01271.253l688 ---| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS
02156 M01S01272.253l688 ---| MOVE 4,MSGF,X3 *CLEARING PF ACTIVITY COUNT.*
02157 M01S01273.253l688 ---| MESSAGE MSGF,2,R
02158 M01S01274.253l688 ---| CALLPFU ACFT,CTDA,R DECREMENT PF ACTIVITY COUNT
02159 M01S01275.253l688 ---| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS
02160 M01S01276.253l688 ---| MOVE 4,MSGL,X3 CLEAR MESSAGE
02161 M01S01277.253l688 ---| MESSAGE (=C**),2,R
02162 M01S01278.253l688 ---| EQ CACX RETURN
Line S00016 Modification History
M01 (Added by) ns2083
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02163 M02S00016.253l688 ---| CAF SPACE 4,20
02164 M02S00017.253l688 ---|** CAF - CLEAR ALTERNATE STORAGE TEMPORARY ERROR FLAG.
02165 M02S00018.253l688 ---|*
02166 M02S00019.253l688 ---|* ENTRY (B3) = FWA OF CATALOG ENTRY.
02167 M02S00020.253l688 ---|* (CRTK) = TRACK FROM WHICH CATALOG ENTRY WAS READ.
02168 M02S00021.253l688 ---|* (CRSC) = SECTOR WITHIN TRACK FROM WHICH CATALOG ENTRY
02169 M02S00022.253l688 ---|* WAS READ.
02170 M02S00023.253l688 ---|* (CRCO) = ORDINAL (RELATIVE INDEX WITHIN SECTOR)
02171 M02S00024.253l688 ---|* FROM WHICH CATALOG ENTRY WAS READ.
02172 M02S00025.253l688 ---|* (SGDN) = DEVICE NUMBER.
02173 M02S00026.253l688 ---|* (SGFM) = FAMILY NAME.
02174 M02S00027.253l688 ---|* CATALOG TRACK INTERLOCKED.
02175 M02S00028.253l688 ---|*
02176 M02S00029.253l688 ---|* EXIT ALTERNATE STORAGE TEMPORARY ERROR FLAG CLEARED.
02177 M02S00030.253l688 ---|* CATALOG TRACK INTERLOCK CLEARED DURING EXECUTION
02178 M02S00031.253l688 ---|* OF THIS ROUTINE IS RESET UPON EXIT.
02179 M02S00032.253l688 ---|*
02180 M02S00033.253l688 ---|* USES X - 0, 1, 2, 4, 6.
02181 M02S00034.253l688 ---|* A - 1, 2, 6.
02182 M02S00035.253l688 ---|*
02183 M02S00036.253l688 ---|* MACROS CLEARAF, PCINT.
02184 M02S00037.253l688 ---|
02185 M02S00038.253l688 ---|
02186 M02S00039.253l688 ---| CAF SUBR ENTRY/EXIT
02187 M02S00040.253l688 ---| PCINT CATS,CTCC CLEAR CATALOG TRACK INTERLOCK
02188 M02S00041.253l688 ---|
02189 M02S00042.253l688 ---|* INITIALIZE *CLEARAF* FET.
02190 M02S00043.253l688 ---|
02191 M02S00044.253l688 ---| SA1 B3+FCFN+FCUI* GET FILE NAME AND USER INDEX
02192 M02S00045.253l688 ---| MX0 42
02193 M02S00046.253l688 ---| SA2 SRFT+CFSN SET FILE NAME
02194 M02S00047.253l688 ---| BX6 X0*X1
02195 M02S00048.253l688 ---| BX2 -X0*X2
02196 M02S00049.253l688 ---| BX6 X6+X2
02197 M02S00050.253l688 ---| SA6 A2
02198 M02S00051.253l688 ---|
02199 M02S00052.253l688 ---|* INITIALIZE *CLEARAF* SPECIAL REQUEST BLOCK.
02200 M02S00053.253l688 ---|
02201 M02S00054.253l688 ---| SA2 SGFM SET FAMILY NAME
02202 M02S00055.253l688 ---| BX6 -X0*X1 SET USER INDEX
02203 M02S00056.253l688 ---| BX6 X2+X6
02204 M02S00057.253l688 ---| SA6 SRBK+SFFM+SFUI*
02205 M02S00058.253l688 ---| MX0 -36
02206 M02S00059.253l688 ---| SA1 B3+FCCD SET CREATION DATE/TIME
02207 M02S00060.253l688 ---| BX6 -X0*X1
02208 M02S00061.253l688 ---| SA6 SRBK+SFCD
02209 M02S00062.253l688 ---| SA1 B3+FCAA+FCAT* SET ALTERNATE STORAGE ADDRESS
02210 M02S00063.253l688 ---| BX6 X1
02211 M02S00064.253l688 ---| SA6 SRBK+SFAS
02212 M02S00065.253l688 ---| SA1 CRCO SET *PF-ID*
02213 M02S00066.253l688 ---| SA2 SGDN
02214 M02S00067.253l688 ---| LX1 7-1
02215 M02S00068.253l688 ---| BX6 X1+X2
02216 M02S00069.253l688 ---| SA1 CRTK
02217 M02S00070.253l688 ---| LX6 19-7
02218 M02S00071.253l688 ---| BX6 X6+X1
02219 M02S00072.253l688 ---| SA2 CRSC
02220 M02S00073.253l688 ---| LX6 31-19
02221 M02S00074.253l688 ---| BX6 X6+X2
02222 M02S00075.253l688 ---| SA6 SRBK+SFID
02223 M02S00076.253l688 ---|
02224 M02S00077.253l688 ---|* ISSUE CLEAR ALTERNATE STORAGE FLAG REQUEST.
02225 M02S00078.253l688 ---|
02226 M02S00079.253l688 ---| SX4 AFTMP
02227 M02S00080.253l688 ---| CLEARAF SRFT,,,,,,,X4
02228 M02S00081.253l688 ---| PCINT CATS,CTSC RESET CATALOG TRACK INTERLOCK
02229 M02S00082.253l688 ---| EQ CAFX RETURN
Line S01279 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02230 M01S01279.253l688 ---| CDS SPACE 4,20
02231 M01S01280.253l688 ---|** CDS - CHECK DEVICE STATUS.
02232 M01S01281.253l688 ---|*
02233 M01S01282.253l688 ---|* ENTRY (X0) = 42/,18/CATALOG ADDRESS.
02234 M01S01283.253l688 ---|* (X1) = DIRECT ACCESS FILE RESIDENCY DEVICE.
02235 M01S01284.253l688 ---|*
02236 M01S01285.253l688 ---|* EXIT (X6) = 0 IF DEVICE FOUND.
02237 M01S01286.253l688 ---|* = NON-ZERO IF DEVICE NOT FOUND.
Line S01287 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02238 M02S01287.253l688 ---|* (X7) = EQUIPMENT NUMBER.
Line S00146 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02239 M02S00146.253l688 ---|* (X7) = EST ORDINAL.
Line S01288 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02240 M01S01288.253l688 ---|* MESSAGE ISSUED IF RESIDENCY DEVICE NOT FOUND.
02241 M01S01289.253l688 ---|*
02242 M01S01290.253l688 ---|* USES X - 2, 3, 6, 7.
02243 M01S01291.253l688 ---|* A - 2, 6, 7.
02244 M01S01292.253l688 ---|* B - 2, 3.
02245 M01S01293.253l688 ---|*
02246 M01S01294.253l688 ---|* CALLS SEM.
02247 M01S01295.253l688 ---|*
02248 M01S01296.253l688 ---|* MACROS EDITS.
02249 M01S01297.253l688 ---|
02250 M01S01298.253l688 ---|
02251 M01S01299.253l688 ---|* SET DIRECT ACCESS FILE EQUIPMENT.
02252 M01S01300.253l688 ---|
02253 M01S01301.253l688 ---| CDS2 LX2 -6 SET DIRECT ACCESS FILE EQUIPMENT
Line S00147 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02254 M02S00147.253l688 ---| MX7 -9
Line S01302 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02255 M01S01302.253l688 ---| BX7 -X7*X2
02256 M01S01303.253l688 ---|
02257 M01S01304.253l688 ---| CDS SUBR ENTRY/EXIT
02258 M01S01305.253l688 ---| SB2 MSTT SET MASS STORAGE TABLE ADDRESS
02259 M01S01306.253l688 ---| MX7 -6
02260 M01S01307.253l688 ---| SB3 B1+B1
02261 M01S01308.253l688 ---| CDS1 SA2 B2 GET MASS STORAGE TABLE ENTRY
02262 M01S01309.253l688 ---| BX3 -X7*X2 COMPARE DEVICE NUMBERS
02263 M01S01310.253l688 ---| IX6 X1-X3
02264 M01S01311.253l688 ---| SB2 B2+B3 INCREMENT MASS STORAGE TABLE ADDRESS
02265 M01S01312.253l688 ---| ZR X6,CDS2 IF CORRECT DEVICE
02266 M01S01313.253l688 ---| NZ X2,CDS1 IF NOT END OF MASS STORAGE TABLE
02267 M01S01314.253l688 ---| SA2 X0 SET FILE NAME
02268 M01S01315.253l688 ---| BX6 X1 SET DEVICE NUMBER
02269 M01S01316.253l688 ---| MX3 42
02270 M01S01317.253l688 ---| BX7 X3*X2
02271 M01S01318.253l688 ---| SA6 MPDN
02272 M01S01319.253l688 ---| SA7 MPFN
02273 M01S01320.253l688 ---| BX6 -X3*X2 SET USER INDEX
02274 M01S01321.253l688 ---| SA6 MPUI
02275 M01S01322.253l688 ---| BX7 X0 SAVE (X0)
02276 M01S01323.253l688 ---| SA7 CDSA
02277 M01S01324.253l688 ---| EDITS MSMD,MES11 BUILD MISSING DEVICE MESSAGE
02278 M01S01325.253l688 ---| RJ SEM SEND ERROR MESSAGE
02279 M01S01326.253l688 ---| SA2 CDSA RESTORE (X0)
02280 M01S01327.253l688 ---| BX0 X2
02281 M01S01328.253l688 ---| SX6 B1 SET DEVICE NOT FOUND STATUS
02282 M01S01329.253l688 ---| EQ CDSX RETURN
02283 M01S01330.253l688 ---|
02284 M01S01331.253l688 ---| CDSA BSSZ 1 (X0) SAVE AREA
02285 M01S01332.253l688 ---| CFS SPACE 4,25
Line S00106 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02286 M02S00106.286l859 ---| CFS SPACE 4,20
Line S01333 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02287 M01S01333.286l859 ---|** CFS - CHECK FILE STATUS.
Line S00456 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02288 M01S00456.286l859 +++| APR SPACE 4,10
02289 M01S00457.286l859 +++|** APR - ABORT PROCESSOR.
02290 M00S01334.pfdump +++|*
Line S01335 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02291 M01S01335.286l859 ---|* ENTRY (DBUFH) = FILE CONTROL WORD.
Line S00458 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02292 M01S00458.286l859 +++|* EXIT SCRATCH FILES RETURNED.
02293 M01S00459.286l859 +++|* OUTPUT FILES FLUSHED.
02294 M01S00460.286l859 +++|* INTERLOCKS RELEASED.
Line S01336 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02295 M01S01336.253l688 ---|* (CBRI) = CATALOG BUFFER RANDOM INDEX FOR AFFECTED
02296 M01S01337.253l688 ---|* CATALOG ENTRY.
Line S01338 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
02297 M01S01338.ns21000 ---|* (LMSK) = LOCK FILE MASK.
02298 M00S01339.pfdump +++|*
Line S01340 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02299 M01S01340.253l688 ---|* EXIT (X2) = 0, IF TOTAL FILE TO BE DUMPED.
02300 M01S01341.253l688 ---|* = 1, IF PFC/PERMITS ONLY TO BE DUMPED.
02301 M01S01342.253l688 ---|* = 2, IF FILE NOT TO BE DUMPED.
Line S00107 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02302 M02S00107.286l859 ---|* EXIT (X2) = 0, IF FILE TO BE DUMPED.
02303 M02S00108.286l859 ---|* = 1, IF FILE NOT TO BE DUMPED.
Line S01343 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02304 M01S01343.286l859 ---|* UTILITY CONTROL DATE/TIME UPDATED FOR CATALOG ENTRY,
02305 M01S01344.286l859 ---|* IF DIRECT ACCESS FILE FOUND BUSY.
Line S00461 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02306 M01S00461.286l859 +++|* CALLS CAC, CID, FAF, RLF, RMF.
Line S01345 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02307 M01S01345.253l688 ---|* DEVICE ERROR IDLE SET, IF UTILITY CONTROL DATE/TIME
02308 M01S01346.253l688 ---|* UPDATE VERIFICATION ERROR OCCURS.
Line S00013 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02309 M02S00013.253l688 ---|* DEVICE ERROR IDLE SET, IF WRITE ERROR ON CATALOG
02310 M02S00014.253l688 ---|* FILE AND DATA ON THE FILE HAS BEEN CORRUPTED.
Line S01347 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02311 M01S01347.253l688 ---|* ALTERNATE STORAGE OBSOLETE FLAG CLEARED IN THE CATALOG
02312 M01S01348.253l688 ---|* ENTRY, IF DIRECT ACCESS FILE FOUND BUSY AND ITS
02313 M01S01349.253l688 ---|* ALTERNATE STORAGE ADDRESS SET.
02314 M00S01350.pfdump +++|*
Line S01351 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02315 M01S01351.253l688 ---|* USES X - 0, 1, 2, 3, 5, 6, 7.
02316 M01S01352.253l688 ---|* A - 1, 2, 3, 6, 7.
Line S00109 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02317 M02S00109.286l859 ---|* USES X - 0, 1, 2, 6, 7.
02318 M02S00110.286l859 ---|* A - 1, 2, 6, 7.
02319 M02S00111.286l859 ---|* B - 2, 3, 4.
Line S00462 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02320 M01S00462.286l859 +++|* MACROS MESSAGE, RETURN, SETPFP.
02321 M01S00463.286l859 +++|
02322 M01S00464.286l859 +++|
02323 M01S00465.286l859 +++| APR SUBR ENTRY/EXIT
02324 M01S00466.286l859 +++| RETURN CATC
02325 M01S00467.286l859 +++| RETURN REQS
02326 M01S00468.286l859 +++| RETURN RESS
02327 M01S00469.286l859 +++| RETURN TC
02328 M01S00470.286l859 +++| RETURN PFMREQ
02329 M01S00471.286l859 +++| RJ RLF RELEASE LOCK FILES
02330 M01S00472.286l859 +++| RJ RMF RETURN MASTER DEVICE FILES
02331 M01S00473.286l859 +++| RJ CAC CLEAR PERMANENT FILE ACTIVITY COUNT
02332 M01S00474.286l859 +++| RJ CID CHECK INCOMPLETE FILE DUMP
02333 M01S00475.286l859 +++| ARCHIVE WRITEF WRITE EOF ON ARCHIVE/VERIFY FILES
02334 M01S00476.286l859 +++| RJ FAF FLUSH ARCHIVE/VERIFY FILES
02335 M01S00477.286l859 +++| SETPFP GPAR RESTORE PERMANENT FILE PARAMETERS
02336 M01S00478.286l859 +++| EQ APRX RETURN
02337 M01S00479.286l859 +++| CCR SPACE 4,15
02338 M01S00480.286l859 +++|** CCR - CHECK CATALOG RESCAN FILE.
02339 M00S01353.pfdump +++|*
Line S01354 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02340 M01S01354.253l688 ---|* CALLS SEI, SEM.
Line S00112 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02341 M02S00112.286l859 ---|* CALLS SEM, UCE.
Line S00481 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02342 M01S00481.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS.
02343 M01S00482.286l859 +++|* (CTIN) = CURRENT CATALOG TRACK INDEX.
02344 M01S00483.286l859 +++|* (RESE - RESE+1) = CURRENT RESCAN ENTRY.
02345 M00S01355.pfdump +++|*
Line S01356 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02346 M01S01356.253l688 ---|* MACROS CALLPFU, EDITS.
Line S00113 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02347 M02S00113.286l859 ---|* MACROS EDITS.
Line S00484 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02348 M01S00484.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS.
02349 M01S00485.286l859 +++|* (X6) .LT. 0 IF END OF RESCAN FILE.
02350 M01S00486.286l859 +++|* (X6) = 0 IF FILE TO BE SKIPPED.
02351 M01S00487.286l859 +++|* (X6) .GT. 0 IF FILE TO BE PROCESSED.
02352 M01S00488.286l859 +++|*
02353 M01S00489.286l859 +++|* USES X - 1, 2, 3, 4, 6.
02354 M01S00490.286l859 +++|* A - 1, 2, 3, 4.
02355 M00S01357.pfdump +++|
02356 M00S01358.pfdump +++|
Line S01359 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02357 M01S01359.286l859 ---| CFS SUBR ENTRY/EXIT
Line S00491 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02358 M01S00491.286l859 +++| CCR SUBR ENTRY/EXIT
02359 M01S00492.286l859 +++| CCR1 SA1 RESE
02360 M01S00493.286l859 +++| SA2 CTIN
02361 M01S00494.286l859 +++| SA3 RESE+1
02362 M01S00495.286l859 +++| SA4 A0+FCFN
02363 M01S00496.286l859 +++| SX6 B0+ SET TO SKIP FILE
02364 M01S00497.286l859 +++| IX1 X1-X2
02365 M01S00498.286l859 +++| BX3 X3-X4
02366 M01S00499.286l859 +++| NG X1,CCR2 IF CURRENT ENTRY PAST STAGE REQUEST
02367 M01S00500.286l859 +++| NZ X1,CCRX IF STAGE REQUEST PAST CURRENT ENTRY
02368 M01S00501.286l859 +++| NZ X3,CCRX IF NOT SAME FILE NAME AND USER INDEX
02369 M01S00502.286l859 +++| SX6 1 SET PROCESS FILE
02370 M01S00503.286l859 +++| EQ CCRX RETURN
02371 M00S01360.pfdump +++|
Line S01361 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02372 M01S01361.286l859 ---|* CHECK FOR BUSY FILE.
Line S00504 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02373 M01S00504.286l859 +++| CCR2 READW RESS,RESE,2 READ NEXT STAGE REQUEST
02374 M01S00505.286l859 +++| ZR X1,CCR1 IF NOT END OF RESCAN FILE
02375 M01S00506.286l859 +++| SX6 -1 SET TERMINATE RESCAN
02376 M01S00507.286l859 +++| EQ CCRX RETURN
02377 M01S00508.286l859 +++| CDT SPACE 4,15
02378 M01S00509.286l859 +++|** CDT - COPY FILE DATA FROM ALTERNATE STORAGE TAPE.
02379 M01S00510.286l859 +++|*
02380 M01S00511.286l859 +++|* ENTRY ALTERNATE STORAGE TAPE POSITIONED AT FIRST BLOCK
02381 M01S00512.286l859 +++|* AFTER CATALOG ENTRY.
02382 M01S00513.286l859 +++|*
02383 M01S00514.286l859 +++|* EXIT FILE DATA COPIED FROM ALTERNATE STORGE TAPE TO ARCHIVE
02384 M01S00515.286l859 +++|* FILE(S).
02385 M01S00516.286l859 +++|*
02386 M01S00517.286l859 +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
02387 M01S00518.286l859 +++|* A - 1, 2, 4, 5, 6, 7.
02388 M01S00519.286l859 +++|* B - 2, 3.
02389 M01S00520.286l859 +++|*
02390 M01S00521.286l859 +++|* CALLS RCW, SFE, WDT.
02391 M01S00522.286l859 +++|*
02392 M01S00523.286l859 +++|* MACROS ARCHIVE, CWREAD.
02393 M00S01362.pfdump +++|
Line S01363 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02394 M01S01363.286l859 ---| SA1 DBUFH
02395 M01S01364.286l859 ---| MX0 12
02396 M01S01365.286l859 ---| BX2 X0*X1
02397 M01S01366.286l859 ---| ZR X2,CFSX IF NO ERROR CONDITION AND FILE NOT BUSY
02398 M00S01367.pfdump +++|
Line S01368 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02399 M01S01368.286l859 ---|* SET UP MESSAGE.
Line S00524 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02400 M01S00524.286l859 +++| CDT SUBR ENTRY/EXIT
02401 M00S01369.pfdump +++|
Line S01370 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02402 M01S01370.286l859 ---| SA2 CATH+FCFN+FCUI* GET FILE NAME AND USER INDEX
Line S01371 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02403 M02S01371.286l859 ---| BX6 X2 SAVE FOR POSSIBLE UTILITY CONTROL UPDATE
Line S01372 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02404 M01S01372.286l859 ---| MX0 42
Line S01373 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02405 M02S01373.286l859 ---| SA6 UULV
Line S01374 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02406 M01S01374.286l859 ---| BX6 X0*X2
02407 M01S01375.286l859 ---| BX7 -X0*X2
02408 M01S01376.286l859 ---| SA6 MPFN
02409 M01S01377.286l859 ---| SA7 MPUI
02410 M01S01378.286l859 ---| SA1 CPAR+/COMSPFS/CPDN GET AND SAVE DEVICE NUMBER
Line S01379 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02411 M02S01379.286l859 ---| SA2 MAEQ GET AND SAVE EQUIPMENT NUMBER
Line S00148 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02412 M02S00148.286l859 ---| SA2 MAEQ GET AND SAVE EST ORDINAL
Line S00525 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02413 M01S00525.286l859 +++| SX6 B0+
02414 M01S00526.286l859 +++| SA6 CDTA INITIALIZE BUFFER WORD COUNT
02415 M01S00527.286l859 +++|
02416 M01S00528.286l859 +++|* SKIP PERMITS BLOCKS.
02417 M01S00529.286l859 +++|
02418 M01S00530.286l859 +++| CDT1 RJ RCW READ BLOCK CONTROL WORD
02419 M01S00531.286l859 +++| NZ X7,CDT5 IF ERROR
02420 M01S00532.286l859 +++| NZ X1,CDT5 IF EOR, EOF, OR EOI ON ARCHIVE FILE
02421 M01S00533.286l859 +++| SX1 X3-3
02422 M01S00534.286l859 +++| ZR X1,CDT3 IF DATA BLOCK
02423 M01S00535.286l859 +++| SX1 X3-2
02424 M01S00536.286l859 +++| NZ X1,CDT5 IF NOT PERMITS BLOCK
02425 M01S00537.286l859 +++| CWREAD AST,DBUFH,X6 READ BLOCK
02426 M01S00538.286l859 +++| NZ X7,CDT5 IF ERROR
02427 M01S00539.286l859 +++| NZ X1,CDT5 IF EOR, EOF, OR EOI
Line S00001 Modification History
M01 (Added by) pfdum28
Seq # *Modification Id* Act
----------------------------+
02428 M01S00001.pfdum28 +++| EQ CDT1 READ BLOCK CONTROL WORD
Line S00540 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02429 M01S00540.286l859 +++|
02430 M01S00541.286l859 +++|* READ NEXT DATA BLOCK CONTROL WORD.
02431 M01S00542.286l859 +++|
02432 M01S00543.286l859 +++| CDT2 RJ RCW READ BLOCK CONTROL WORD
02433 M01S00544.286l859 +++| NZ X7,CDT5 IF ERROR
02434 M01S00545.286l859 +++| NG X1,CDT5 IF EOF OR EOI ON ARCHIVE FILE
02435 M01S00546.286l859 +++| NZ X1,CDT6 IF EOR ON ARCHIVE FILE
02436 M01S00547.286l859 +++| SX1 X3-3
02437 M01S00548.286l859 +++| NZ X1,CDT5 IF NOT DATA BLOCK
02438 M01S00549.286l859 +++|
02439 M01S00550.286l859 +++|* COPY DATA BLOCK TO ARCHIVE FILES.
02440 M01S00551.286l859 +++|
02441 M01S00552.286l859 +++| CDT3 SA1 CDTA
02442 M01S00553.286l859 +++| SA5 WREM
02443 M01S00554.286l859 +++| LX4 9
02444 M01S00555.286l859 +++| SX7 X4
02445 M01S00556.286l859 +++| SA7 CDTB SAVE BLOCK SUB-TYPE
02446 M01S00557.286l859 +++| IX7 X1+X6 BUFFER WORD COUNT INCLUDING NEW DATA BLOCK
02447 M01S00558.286l859 +++| SX5 X5-1 DATA SPACE REMAINING IN 1000B WORD SEGMENT
02448 M01S00559.286l859 +++| IX2 X5-X7
02449 M01S00560.286l859 +++| PL X2,CDT4 IF SUFFICIENT ROOM IN SEGMENT FOR DATA
02450 M01S00561.286l859 +++| IX3 X5-X1 SET WORD COUNT TO FILL SEGMENT
02451 M01S00562.286l859 +++| IX6 X6-X3
02452 M01S00563.286l859 +++| SA6 CDTC SAVE WORDS REMAINING IN NEW BLOCK
02453 M01S00564.286l859 +++| CWREAD AST,DBUFH+X1,X3 READ DATA
02454 M01S00565.286l859 +++| SA4 CDTB
02455 M01S00566.286l859 +++| NZ X7,CDT5 IF ERROR
02456 M01S00567.286l859 +++| NZ X1,CDT5 IF EOR, EOF, OR EOI ON ARCHIVE FILE
02457 M01S00568.286l859 +++| SX7 4000B
02458 M01S00569.286l859 +++| SB2 DBUFH SET DATA ADDRESS
02459 M01S00570.286l859 +++| SX6 DCWC+X5 SET DATA BLOCK TYPE AND LENGTH
02460 M01S00571.286l859 +++| SB3 X5+ SET WORD COUNT
02461 M01S00572.286l859 +++| BX4 X7*X4 PRESERVE SYSTEM SECTOR FLAG
02462 M01S00573.286l859 +++| BX6 X6+X4 MERGE SYSTEM SECTOR STATUS
02463 M01S00574.286l859 +++| SA6 CONTH SET CONTROL WORD
02464 M01S00575.286l859 +++| RJ WDT WRITE DATA
02465 M01S00576.286l859 +++| SA2 CDTC
02466 M01S00577.286l859 +++| SX1 B0+ SET OFFSET FOR READ
02467 M01S00578.286l859 +++| SX6 X2+ SET WORD COUNT TO READ
02468 M01S00579.286l859 +++| SX7 X2+ SET WORD COUNT IN BUFFER
02469 M01S00580.286l859 +++| CDT4 SA7 CDTA UPDATE WORDS IN WORKING BUFFER
02470 M01S00581.286l859 +++| CWREAD AST,DBUFH+X1,X6 READ DATA
02471 M01S00582.286l859 +++| SA4 CDTB
02472 M01S00583.286l859 +++| NZ X7,CDT5 IF ERROR
02473 M01S00584.286l859 +++| NZ X1,CDT5 IF EOR, EOF, OR EOI ON ARCHIVE FILE
02474 M01S00585.286l859 +++| ZR X4,CDT2 IF NOT SYSTEM SECTOR, EOR OR EOF BLOCK
02475 M01S00586.286l859 +++| SA1 CDTA
02476 M01S00587.286l859 +++| SB2 DBUFH SET DATA ADDRESS
02477 M01S00588.286l859 +++| SX6 DCWC+X1
02478 M01S00589.286l859 +++| BX6 X6+X4 SET DATA BLOCK SUB-TYPE
02479 M01S00590.286l859 +++| SB3 X1 SET WORD COUNT
02480 M01S00591.286l859 +++| SA6 CONTH SET CONTROL WORD
02481 M01S00592.286l859 +++| RJ WDT WRITE DATA
02482 M01S00593.286l859 +++| SX7 B0+
02483 M01S00594.286l859 +++| SA7 CDTA SET NO DATA IN BUFFER
02484 M01S00595.286l859 +++| EQ CDT2 READ NEXT BLOCK CONTROL WORD
02485 M01S00596.286l859 +++|
02486 M01S00597.286l859 +++|* PROCESS ERROR IN ALTERNATE STORAGE FILE.
02487 M01S00598.286l859 +++|
02488 M01S00599.286l859 +++| CDT5 SA1 FLST
02489 M01S00600.286l859 +++| SX6 2
02490 M01S00601.286l859 +++| BX6 X1+X6 SET DATA ERROR IN FILE STATUS
02491 M01S00602.286l859 +++| SA6 A1
02492 M01S00603.286l859 +++| SA1 CATH+FCUI
02493 M01S00604.286l859 +++| SB2 ERTR * READ ERROR ON ALTERNATE STORAGE ...*
02494 M01S00605.286l859 +++| RJ SFE SEND ERROR MESSAGE
02495 M01S00606.286l859 +++|
02496 M01S00607.286l859 +++|* FLUSH DATA IN WORKING BUFFER AND COMPLETE FILE DUMP.
02497 M01S00608.286l859 +++|
02498 M01S00609.286l859 +++| CDT6 SA1 CDTA
02499 M01S00610.286l859 +++| ZR X1,CDT7 IF NO DATA IN WORKING BUFFER
02500 M01S00611.286l859 +++| SB2 DBUFH SET DATA ADDRESS
02501 M01S00612.286l859 +++| SB3 X1+ SET WORD COUNT
02502 M01S00613.286l859 +++| SX6 DCWC+X1 SET BLOCK TYPE
02503 M01S00614.286l859 +++| SA6 CONTH SET CONTROL WORD
02504 M01S00615.286l859 +++| RJ WDT WRITE DATA
02505 M01S00616.286l859 +++| CDT7 SA1 FLST
02506 M01S00617.286l859 +++| LX1 59-1
02507 M01S00618.286l859 +++| PL X1,CDT8 IF NO ERROR IN FILE DATA
02508 M01S00619.286l859 +++| SA1 LGCW GET ERROR CONTROL WORD
02509 M00S01380.pfdump +++| BX6 X1
Line S00620 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02510 M01S00620.286l859 +++| SB3 B0 CLEAR DATA WORD COUNT
02511 M01S00621.286l859 +++| SA6 CONTH
02512 M01S00622.286l859 +++| SB2 CONTH SET BUFFER ADDRESS
02513 M01S00623.286l859 +++| RJ WDT WRITE ERROR CONTROL WORD
02514 M01S00624.286l859 +++| CDT8 ARCHIVE WRITER WRITE EOR ON ARCHIVE FILE
02515 M01S00625.286l859 +++| SX6 BFAC
02516 M01S00626.286l859 +++| SA6 WREM RESET BLOCK STATUS FOR NEXT FILE
02517 M01S00627.286l859 +++| EQ CDTX RETURN
02518 M01S00628.286l859 +++|
02519 M01S00629.286l859 +++|
02520 M01S00630.286l859 +++| CDTA CON 0 WORDS IN *DBUFH*
02521 M01S00631.286l859 +++| CDTB CON 0 DATA CONTROL WORD SUB-TYPE
02522 M01S00632.286l859 +++| CDTC CON 0 WORDS REMAINING IN DATA BLOCK
02523 M01S00633.286l859 +++| CFD SPACE 4,15
02524 M01S00634.286l859 +++|** CFD - COMPLETE FILE DUMP.
02525 M01S00635.286l859 +++|*
02526 M01S00636.286l859 +++|* ENTRY CATALOG ENTRY, PERMITS AND FILE DATA WRITTEN TO
02527 M01S00637.286l859 +++|* ARCHIVE FILE.
02528 M01S00638.286l859 +++|*
02529 M01S00639.286l859 +++|* EXIT FILE INFORMATION WRITTEN TO OUTPUT AND SUMMARY FILES.
02530 M01S00640.286l859 +++|* *PFM* REQUEST FORMATTED IF FILE TO BE PURGED OR
02531 M01S00641.286l859 +++|* ALTERNATE STORAGE POINTERS TO BE UPDATED.
02532 M01S00642.286l859 +++|*
02533 M01S00643.286l859 +++|* USES X - 1, 2, 3, 6, 7.
02534 M01S00644.286l859 +++|* A - 0, 1, 2, 3, 6.
02535 M01S00645.286l859 +++|* B - 2.
02536 M01S00646.286l859 +++|*
02537 M01S00647.286l859 +++|* CALLS CFP, UCE, WPR.
02538 M01S00648.286l859 +++|
02539 M01S00649.286l859 +++|
02540 M01S00650.286l859 +++| CFD SUBR ENTRY/EXIT
02541 M01S00651.286l859 +++| SX6 B0+ CLEAR INCOMPLETE FILE FLAG
02542 M01S00652.286l859 +++| SA6 IFST
02543 M01S00653.286l859 +++| SA0 CATH SET CATALOG ADDRESS
02544 M01S00654.286l859 +++| RJ CFP COUNT FILE PROCESSED
02545 M01S00655.286l859 +++| SA1 FLST
02546 M01S00656.286l859 +++| MX6 -3
02547 M01S00657.286l859 +++| BX1 -X6*X1
02548 M01S00658.286l859 +++| NZ X1,CFDX IF PFC ONLY DUMP OR ERROR IN FILE
02549 M01S00659.286l859 +++| SA1 CPAR+/COMSPFS/CPOP
02550 M01S00660.286l859 +++| SA2 CPAR+/COMSPFS/CPDT
02551 M01S00661.286l859 +++| SX7 B0
02552 M01S00662.286l859 +++| LX1 59-53
02553 M01S00663.286l859 +++| NG X1,CFD2 IF PURGE FILES AFTER DUMP
02554 M01S00664.286l859 +++| ZR X2,CFDX IF NOT DESTAGE DUMP
02555 M01S00665.286l859 +++| SB2 CTSL SET *TFLOK* FLAG FUNCTION
02556 M01S00666.286l859 +++| RJ UCE UPDATE CATALOG ENTRY
02557 M01S00667.286l859 +++| SA3 FLOK
02558 M01S00668.286l859 +++| NG X3,CFD1 IF ARCHIVE TO OPTICAL DISK
02559 M01S00669.286l859 +++| SA2 CATH+FCTV GET TAPE ALTERNATE STORAGE INFORMATION
02560 M01S00670.286l859 +++| SX7 B1+
02561 M01S00671.286l859 +++| LX7 42-0
02562 M01S00672.286l859 +++| BX7 X2+X7 MERGE *SETASA* TAPE ALTERNATE STORAGE FLAG
02563 M01S00673.286l859 +++| EQ CFD2 WRITE *PFM* REQUEST
02564 M01S00674.286l859 +++|
02565 M01S00675.286l859 +++| CFD1 SA2 CATH+FCAA GET OPTICAL ALTERNATE STORAGE INFORMATION
02566 M00S01381.pfdump +++| BX7 X2
Line S01382 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02567 M01S01382.286l859 ---| SA6 MPDN
02568 M01S01383.286l859 ---| SA7 MPEQ
02569 M01S01384.286l859 ---| SA1 DBUFH CHECK FOR TYPE OF ERROR
02570 M01S01385.286l859 ---| LX1 59-50 CHECK FOR BAD SYSTEM SECTOR
02571 M01S01386.286l859 ---| NG X1,CFS4 IF BAD SYSTEM SECTOR
02572 M01S01387.286l859 ---| LX1 1
02573 M01S01388.286l859 ---| NG X1,CFS3 IF ZERO LENGTH DIRECT ACCESS FILE
Line S00676 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02574 M01S00676.286l859 +++| SA2 CATH+FCOA GET OPTICAL DISK ADDRESS
02575 M01S00677.286l859 +++| MX3 24
02576 M01S00678.286l859 +++| BX6 X3*X2
02577 M01S00679.286l859 +++| SA6 PFRS+2 SET ADDRESS IN *PFM* REQUEST PARAMETERS
02578 M01S00680.286l859 +++| CFD2 RJ WPR WRITE *PFM* REQUEST PARAMETERS
02579 M01S00681.286l859 +++| EQ CFDX RETURN
02580 M01S00682.286l859 +++| CID SPACE 4,25
02581 M01S00683.286l859 +++|** CID - CHECK INCOMPLETE FILE DUMP.
02582 M01S00684.286l859 +++|*
02583 M01S00685.286l859 +++|* ENTRY (IFST) = 0 IF NO INCOMPLETE FILE DUMP.
02584 M01S00686.286l859 +++|* (IFST) = 1 IF INCOMPLETE FILE DUMP AND PFC DUMPED.
02585 M01S00687.286l859 +++|* (IFST) = 2 IF INCOMPLETE FILE DUMP AND PERMITS DUMPED.
02586 M01S00688.286l859 +++|* CATALOG ENTRY IN *CATH* IF INCOMPLETE FILE DUMP.
02587 M01S00689.286l859 +++|* (FLST) = FILE STATUS WORD IF INCOMPLETE FILE DUMP.
02588 M01S00690.286l859 +++|*
02589 M01S00691.286l859 +++|* EXIT EOR WRITTEN ON ARCHIVE AND VERIFY FILES.
02590 M01S00692.286l859 +++|* CATALOG DATA OUTPUT AND FILE COUNTS UPDATED FOR FILE
02591 M01S00693.286l859 +++|* BEING DUMPED.
02592 M01S00694.286l859 +++|* ARCHIVE FILE ERROR FLAGS SET IF PERMITS DUMP AND/OR
02593 M01S00695.286l859 +++|* DATA DUMP INCOMPLETE.
02594 M01S00696.286l859 +++|*
02595 M01S00697.286l859 +++|* USES X - 1, 6.
02596 M01S00698.286l859 +++|* A - 0, 1, 6.
02597 M01S00699.286l859 +++|*
02598 M01S00700.286l859 +++|* CALLS CFP.
02599 M01S00701.286l859 +++|*
02600 M01S00702.286l859 +++|* MACROS WRITER.
02601 M00S01389.pfdump +++|
Line S01390 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02602 M01S01390.286l859 ---|* BUSY MESSAGE.
02603 M00S01391.pfdump +++|
Line S01392 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
02604 M01S01392.ns22000 ---| EDITS MSFN,MES15 BUILD *DAF BUSY* MESSAGE
Line S00149 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02605 M02S00149.286l859 ---| EDITS MSFN,MES15 BUILD *DAPF BUSY* MESSAGE
Line S01393 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02606 M01S01393.286l859 ---| RJ SEM SEND ERROR MESSAGE
Line S00703 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02607 M01S00703.286l859 +++| CID SUBR ENTRY/EXIT
02608 M01S00704.286l859 +++| SA1 IFST
02609 M01S00705.286l859 +++| ZR X1,CIDX IF NO INCOMPLETE FILE DUMP
02610 M01S00706.286l859 +++| ARCHIVE WRITER WRITE EOR ON ARCHIVE/VERIFY FILES
02611 M01S00707.286l859 +++| SA1 IFST
02612 M01S00708.286l859 +++| SX6 X1-2
02613 M01S00709.286l859 +++| ZR X6,CID1 IF PERMITS DUMP COMPLETE
02614 M01S00710.286l859 +++| SA1 CATH+FCRI
02615 M01S00711.286l859 +++| MX6 24
02616 M01S00712.286l859 +++| BX6 X6*X1
02617 M01S00713.286l859 +++| ZR X6,CID1 IF NO PERMITS
02618 M01S00714.286l859 +++| SX6 4 SET PERMITS LOST FLAG
02619 M01S00715.286l859 +++| CID1 SA1 FLST
02620 M01S00716.286l859 +++| LX1 59-0
02621 M01S00717.286l859 +++| NG X1,CID2 IF *PFC ONLY* FILE
02622 M01S00718.286l859 +++| SX6 X6+2 SET DATA ERROR FLAG
02623 M01S00719.286l859 +++| CID2 LX1 1
02624 M01S00720.286l859 +++| BX6 X1+X6 MERGE ERROR FLAGS
02625 M01S00721.286l859 +++| SA6 FLST UPDATE FILE STATUS
02626 M01S00722.286l859 +++| SA0 CATH SET CATALOG ENTRY ADDRESS
02627 M01S00723.286l859 +++| RJ CFP COUNT FILE PROCESSED
02628 M01S00724.286l859 +++| EQ CIDX RETURN
02629 M01S00725.286l859 +++| CSI SPACE 4,10
02630 M01S00726.286l859 +++|** CSI - CHECK SPECIAL USER INDEX.
02631 M01S00727.286l859 +++|*
02632 M01S00728.286l859 +++|* ENTRY (A0) = CATALOG ADDRESS.
02633 M01S00729.286l859 +++|*
02634 M01S00730.286l859 +++|* EXIT (A0) = CATALOG ADDRESS.
02635 M01S00731.286l859 +++|* (X6) .NE. 0 IF FILE TO BE DUMPED.
02636 M01S00732.286l859 +++|* (X6) = 0 IF FILE NOT TO BE DUMPED.
02637 M01S00733.286l859 +++|*
02638 M01S00734.286l859 +++|* USES X - 1, 2, 3, 6, 7.
02639 M01S00735.286l859 +++|* A - 1, 2, 3.
02640 M00S01394.pfdump +++|
Line S01395 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02641 M01S01395.286l859 ---|* UPDATE UTILITY CONTROL DATE/TIME.
02642 M00S01396.pfdump +++|
Line S01397 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
02643 M01S01397.ns21000 ---| SA1 LMSK
02644 M01S01398.ns21000 ---| NZ X1,CFS2 IF PROCESSING LOCK FILE
Line S01399 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02645 M01S01399.253l688 ---| SA1 CATH+FCCD GET CREATION DATE/TIME
02646 M01S01400.253l688 ---| MX0 -36
02647 M01S01401.253l688 ---| BX6 -X0*X1
02648 M01S01402.253l688 ---| SA6 UULV+1
02649 M01S01403.253l688 ---| SA1 CBRI GET CATALOG BUFFER RANDOM INDEX
02650 M01S01404.253l688 ---| BX2 X1
02651 M01S01405.253l688 ---| AX1 2-0
02652 M01S01406.253l688 ---| SA3 X1+CSCW GET *CIO* TRAILER CONTROL WORD
02653 M01S01407.253l688 ---| BX3 -X0*X3 ISOLATE EQUIPMENT/TRACK/SECTOR
02654 M01S01408.253l688 ---| LX1 17-15 DETERMINE CATALOG ENTRY ORDINAL
02655 M01S01409.253l688 ---| IX1 X2-X1
02656 M01S01410.253l688 ---| LX1 37-1 MERGE ORDINAL/EQUIPMENT/TRACK/SECTOR
02657 M01S01411.253l688 ---| BX6 X1+X3
02658 M01S01412.253l688 ---| SA6 UULV+2
02659 M01S01413.253l688 ---| CALLPFU UUCW,CTUU,R UPDATE UTILITY CONTROL DATE/TIME
02660 M01S01414.253l688 ---| SA1 UUCW
Line S01415 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02661 M02S01415.253l688 ---| LX1 59-12
02662 M02S01416.253l688 ---| PL X1,CFS1 IF NO CATALOG TRACK READ/WRITE ERRORS
Line S00001 Modification History
M01 (Added by) ns2209
M02 (Removed by) 242l642
M03 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02663 M03S00001.253l688 ---| MX0 -12
Line S00015 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02664 M02S00015.253l688 ---| MX0 -12
02665 M02S00016.253l688 ---| LX1 -12
02666 M02S00017.253l688 ---| BX1 -X0*X1 ERROR CODE
02667 M02S00018.253l688 ---| ZR X1,CFS2 IF NO ERROR
02668 M02S00019.253l688 ---| SX1 X1-2
02669 M02S00020.253l688 ---| ZR X1,CFS1 IF CATALOG ENTRY VERIFY ERROR
Line S00002 Modification History
M01 (Added by) ns2209
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02670 M02S00002.253l688 ---| BX6 -X0*X3 SECTOR
02671 M02S00003.253l688 ---| AX3 12
02672 M02S00004.253l688 ---| BX7 -X0*X3 TRACK
02673 M02S00005.253l688 ---| SA7 MPTK
02674 M02S00006.253l688 ---| SA6 MPSC
Line S01417 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02675 M01S01417.253l688 ---| EDITS MSFN,MES18 BUILD *RD/WT ERROR ON UCDT UPDATE* MSG
02676 M01S01418.253l688 ---| SX6 B1+ SET ERRLOG FLAG
02677 M01S01419.253l688 ---| SA6 ELFG
02678 M01S01420.253l688 ---| RJ SEM SEND ERROR MESSAGE
Line S00021 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02679 M02S00021.253l688 ---| SA1 UUCW
02680 M02S00022.253l688 ---| LX1 59-13
02681 M02S00023.253l688 ---| PL X1,CFS2 IF NOT WRITE ERROR WITH DATA TRANSFERRED
Line S01421 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02682 M01S01421.253l688 ---| RJ SEI SET ERROR IDLE
02683 M01S01422.253l688 ---| EQ CFS2 CHECK FOR ALTERNATE STORAGE
02684 M01S01423.253l688 ---|
Line S01424 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02685 M02S01424.253l688 ---| CFS1 LX1 59-13-59+12
02686 M02S01425.253l688 ---| PL X1,CFS2 IF NO CATALOG ENTRY VERIFY ERRORS
02687 M02S01426.253l688 ---| EDITS MSFN,MES19 BUILD *VERIFY ERROR ON UCDT UPDATE* MSG
Line S00024 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02688 M02S00024.253l688 ---| CFS1 EDITS MSFN,MES19 BUILD *VERIFY ERROR ON UDCT UPDATE* MSG
Line S01427 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02689 M01S01427.253l688 ---| SX6 B1+ SET ERRLOG FLAG
02690 M01S01428.253l688 ---| SA6 ELFG
02691 M01S01429.253l688 ---| RJ SEM SEND ERROR MESSAGE
Line S01430 Modification History
M01 (Removed by) ns2209
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02692 M02S01430.253l688 ---| SA1 MAEQ
Line S01431 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02693 M01S01431.253l688 ---|
02694 M01S01432.253l688 ---|* CHECK FOR ALTERNATE STORAGE.
02695 M01S01433.253l688 ---|
02696 M01S01434.253l688 ---| CFS2 SA1 CATH+FCAA+FCAF* GET ALTERNATE STORAGE ADDRESS/FLAGS
02697 M01S01435.253l688 ---| MX0 -36
02698 M01S01436.253l688 ---| BX2 -X0*X1
Line S01437 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02699 M02S01437.253l688 ---| ZR X2,CFS5 IF ALTERNATE STORAGE ADDRESS NOT SET
Line S00150 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02700 M02S00150.253l688 ---| ZR X2,CFS6 IF ALTERNATE STORAGE ADDRESS NOT SET
Line S01438 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02701 M01S01438.253l688 ---|
02702 M01S01439.253l688 ---|* DUMP PFC/PERMITS TO PRESERVE ALTERNATE STORAGE INFORMATION.
02703 M01S01440.253l688 ---|
Line S01441 Modification History
M01 (Removed by) pfdum3
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02704 M02S01441.253l688 ---| SX1 B1 CLEAR ALTERNATE STORAGE OBSOLETE FLAG
02705 M02S01442.253l688 ---| LX1 48-0
02706 M02S01443.253l688 ---| BX6 X1-X2
Line S00001 Modification History
M01 (Added by) pfdum3
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02707 M02S00001.253l688 ---| MX0 -48 CLEAR ALTERNATE STORAGE FLAGS
02708 M02S00002.253l688 ---| BX6 -X0*X1
Line S01444 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02709 M01S01444.253l688 ---| SA6 A1
02710 M01S01445.253l688 ---| SX2 1 SET *DUMP PFC/PERMITS ONLY* FLAG
02711 M01S01446.253l688 ---| EQ CFSX RETURN
Line S00114 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02712 M02S00114.286l859 ---| SB2 CTUU SET UPDATE UTILITY CONTROL DATE FUNCTION
02713 M02S00115.286l859 ---| SB3 MES18 * RD/WT ERROR ON UCDT UPDATE*
02714 M02S00116.286l859 ---| SB4 MES19 * VERIFY ERROR ON UCDT UPDATE*
02715 M02S00117.286l859 ---| RJ UCE UPDATE CATALOG ENTRY
02716 M02S00118.286l859 ---| EQ CFS6 COUNT FILE NOT DUMPED
Line S00736 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02717 M01S00736.286l859 +++| CSI2 SX6 B0+ SET NO FILE DUMP
02718 M00S01447.pfdump +++|
Line S01448 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02719 M01S01448.286l859 ---|* ZERO LENGTH MESSAGE.
Line S00737 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02720 M01S00737.286l859 +++| CSI SUBR ENTRY/EXIT
02721 M01S00738.286l859 +++| SA1 CPAR+/COMSPFS/CPOP
02722 M01S00739.286l859 +++| SA2 CPAR+/COMSPFS/CPDT
02723 M01S00740.286l859 +++| SA3 A0+FCUI
02724 M01S00741.286l859 +++| SX6 B1 SET TO DUMP FILE
02725 M01S00742.286l859 +++| LX1 59-53
02726 M01S00743.286l859 +++| SX7 X3-IFUI
02727 M01S00744.286l859 +++| SX3 X3+ USER INDEX
02728 M01S00745.286l859 +++| ZR X3,CSI2 IF CATALOG HOLE
02729 M01S00746.286l859 +++| ZR X7,CSI2 IF INDIRECT ACCESS DATA FLAW
02730 M01S00747.286l859 +++| ZR X2,CSI1 IF NOT DESTAGE DUMP
02731 M01S00748.286l859 +++| SX2 X3-SYUI
02732 M01S00749.286l859 +++| ZR X2,CSI2 IF SYSTEM USER INDEX
02733 M01S00750.286l859 +++| SX1 377770B
02734 M01S00751.286l859 +++| SX2 SBUI
02735 M01S00752.286l859 +++| BX1 X1*X3
02736 M01S00753.286l859 +++| BX1 X1-X2
02737 M01S00754.286l859 +++| NZ X2,CSIX IF NOT SUBFAMILY USER INDEX
02738 M01S00755.286l859 +++| EQ CSI2 SET NO FILE DUMP
02739 M00S01449.pfdump +++|
Line S01450 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02740 M01S01450.286l859 ---| CFS3 EDITS MSFN,MES16 BUILD *ZERO LENGTH* MESSAGE
Line S01451 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02741 M02S01451.286l859 ---| SX6 B1+ SET ERRLOG FLAG
02742 M02S01452.286l859 ---| SA6 ELFG
02743 M02S01453.286l859 ---| RJ SEM SEND ERROR MESSAGE
02744 M02S01454.286l859 ---| RJ SEI SET ERROR IDLE
02745 M02S01455.286l859 ---| EQ CFS5 SET *NO DUMP* FLAG
Line S00151 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02746 M02S00151.286l859 ---| EQ CFS5 SEND ERROR MESSAGE
Line S00756 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02747 M01S00756.286l859 +++| CSI1 PL X1,CSIX IF PURGE OPTION NOT SELECTED
02748 M01S00757.286l859 +++| SA1 /COMSPFS/FISP
02749 M01S00758.286l859 +++| SX2 X3-PGUI
02750 M01S00759.286l859 +++| NZ X1,CSIX IF USER INDEX SELECTIONS PRESENT
02751 M01S00760.286l859 +++| NG X2,CSIX IF FILE TO BE DUMPED
02752 M01S00761.286l859 +++| EQ CSI2 SET NO FILE DUMP
02753 M01S00762.286l859 +++| CSP SPACE 4,20
02754 M01S00763.286l859 +++|** CSP - CHECK SELECTION PARAMETERS.
02755 M01S00764.286l859 +++|*
02756 M01S00765.286l859 +++|* ENTRY (A0) = ADDRESS OF CATALOG ENTRY.
02757 M01S00766.286l859 +++|* (CPAR) = CRACKED PARAMETER ARRAY.
02758 M01S00767.286l859 +++|*
02759 M01S00768.286l859 +++|* EXIT (A0) = ADDRESS OF CATALOG ENTRY.
02760 M01S00769.286l859 +++|* (X6) = 0 IF FILE NOT TO BE DUMPED.
02761 M01S00770.286l859 +++|* (X6) = 1 IF TOTAL FILE TO BE DUMPED.
02762 M01S00771.286l859 +++|* (X6) = 2 IF ONLY PFC AND PERMITS TO BE DUMPED.
02763 M01S00772.286l859 +++|* (X6) = 3 IF STAGE FILE FROM ALTERNATE STORAGE.
02764 M01S00773.286l859 +++|* (X6) = 4 IF FILE TO BE COPIED FROM ALTERNATE STORAGE
02765 M01S00774.286l859 +++|* TAPE.
02766 M01S00775.286l859 +++|*
02767 M01S00776.286l859 +++|* USES X - 1, 2, 4, 6, 7.
02768 M01S00777.286l859 +++|* A - 1, 2, 3, 6.
02769 M01S00778.286l859 +++|* B - 2, 3, 4.
02770 M01S00779.286l859 +++|*
02771 M01S00780.286l859 +++|* CALLS CBR, CFE, CSC, SFE, SFL.
02772 M00S01456.pfdump +++|
Line S01457 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02773 M01S01457.286l859 ---|* BAD SYSTEM SECTOR MESSAGE.
02774 M00S01458.pfdump +++|
Line S01459 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02775 M01S01459.286l859 ---| CFS4 EDITS MSFN,MES17 BUILD *BAD SYSTEM SECTOR* MESSAGE
Line S01460 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02776 M02S01460.286l859 ---| SX6 B1+ SET ERRLOG FLAG
Line S00152 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2209
M03 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02777 M03S00152.286l859 ---| CFS5 SX6 B1+ SET ERRLOG FLAG
Line S00007 Modification History
M01 (Added by) ns2209
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02778 M02S00007.286l859 ---| CFS5 SA1 DBUFH SET TRACK NUMBER
02779 M02S00008.286l859 ---| MX0 -12
02780 M02S00009.286l859 ---| LX1 -36
02781 M02S00010.286l859 ---| BX6 -X0*X1
02782 M02S00011.286l859 ---| SA6 MPTK
02783 M02S00012.286l859 ---| BX7 X7-X7 SET SECTOR ZERO
02784 M02S00013.286l859 ---| SA7 MPSC
02785 M02S00014.286l859 ---| SX6 B1+ SET ERRLOG FLAG
Line S01461 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02786 M01S01461.286l859 ---| SA6 ELFG
02787 M01S01462.286l859 ---| RJ SEM SEND ERROR MESSAGE
Line S01463 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02788 M02S01463.286l859 ---| RJ SEI SET ERROR IDLE
Line S01464 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02789 M02S01464.286l859 ---| CFS5 SX2 2 SET *NO DUMP* FLAG
Line S00153 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02790 M02S00153.286l859 ---| CFS6 SA2 SKNU ADVANCE FILES NOT DUMPED
02791 M02S00154.286l859 ---| SX6 B1
02792 M02S00155.286l859 ---| IX6 X6+X2
02793 M02S00156.286l859 ---| SA6 A2
Line S00157 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02794 M03S00157.286l859 ---| SX2 B1+B1 SET *NO DUMP* FLAG
Line S00119 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02795 M02S00119.286l859 ---| SX2 B1 SET *NO DUMP* FLAG
Line S01465 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02796 M01S01465.286l859 ---| EQ CFSX RETURN
Line S01466 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02797 M02S01466.286l859 ---| CRC SPACE 4,20
Line S00120 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02798 M02S00120.286l859 ---| CRC SPACE 4,30
Line S01467 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02799 M01S01467.286l859 ---|** CRC - CHECK RESCAN CONTINUANCE.
02800 M01S01468.286l859 ---|*
02801 M01S01469.286l859 ---|* ENTRY (NFSR) = NUMBER OF FILE STAGINGS REQUESTED.
02802 M01S01470.286l859 ---|* (NNAR) = NUMBER OF *NOT ACTIVE* RESPONSES.
02803 M01S01471.286l859 ---|* (NNPR) = NUMBER OF NON-PRODUCTIVE RESCANS.
Line S01472 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02804 M02S01472.286l859 ---|* (SGCW) = STAGING REQUEST CONTROL WORD.
Line S01473 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02805 M01S01473.286l859 ---|* (/COMSPFS/KIN) = *K-DISPLAY* KEYBOARD INPUT.
Line S00001 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02806 M02S00001.286l859 ---|* CATALOG TRACK INTERLOCK SET.
Line S01474 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02807 M01S01474.286l859 ---|*
02808 M01S01475.286l859 ---|* EXIT (X6) = POSITIVE, IF RESCAN TO CONTINUE.
02809 M01S01476.286l859 ---|* = NEGATIVE, IF RESCAN TO BE TERMINNATED.
02810 M01S01477.286l859 ---|* (SCAN) = 0, IF RESCAN TERMINATED.
02811 M01S01478.286l859 ---|* (NFSR) = 0, IF RESCAN TERMINATED.
02812 M01S01479.286l859 ---|* (NNAR) = 0, IF RESCAN TERMINATED.
02813 M01S01480.286l859 ---|* (NNPR) = NUMBER OF NON-PRODUCTIVE RESCANS UPDATED.
02814 M01S01481.286l859 ---|* = 0, IF RESCAN TERMINATED.
02815 M01S01482.286l859 ---|* (/COMSPFS/KIN) = *K-DISPLAY* KEYBOARD INPUT CLEARED.
Line S00002 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02816 M02S00002.286l859 ---|* CATALOG TRACK INTERLOCK IS RESET UPON EXIT IF
02817 M02S00003.286l859 ---|* CLEARED DURING EXECUTION OF THIS ROUTINE.
Line S01483 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02818 M01S01483.286l859 ---|*
02819 M01S01484.286l859 ---|* USES X - 0, 1, 2, 5, 6.
02820 M01S01485.286l859 ---|* A - 1, 2, 5, 6.
02821 M01S01486.286l859 ---|* B - 2, 3.
02822 M01S01487.286l859 ---|*
Line S01488 Modification History
M01 (Removed by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02823 M02S01488.286l859 ---|* CALLS SEM, /COMSPFS/KIP.
Line S00004 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02824 M02S00004.286l859 ---|* CALLS /COMSPFS/KIP, SEM.
Line S01489 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02825 M01S01489.286l859 ---|*
Line S01490 Modification History
M01 (Removed by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02826 M02S01490.286l859 ---|* MACROS EDITS, MOVE, READ, READW, RECALL, REWIND, WRITEF.
Line S00005 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02827 M02S00005.286l859 ---|* MACROS EDITS, MOVE, PCINT, READ, READW, RECALL, REWIND,
02828 M02S00006.286l859 ---|* WRITEF.
Line S00781 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02829 M01S00781.286l859 +++| CSP SUBR ENTRY/EXIT
02830 M00S01491.pfdump +++|
Line S00782 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02831 M01S00782.286l859 +++|* CHECK TRUE DEVICE RESIDENCE CRITERION.
02832 M01S00783.286l859 +++|* DISK RESIDENCY IS CHECKED BECAUSE OLDER SYSTEM LEVELS DID
02833 M01S00784.286l859 +++|* NOT CLEAR THE DEVICE NUMBER IN THE PFC ENTRY WHEN DISK SPACE
02834 M01S00785.286l859 +++|* WAS RELEASED.
02835 M00S01492.pfdump +++|
Line S01493 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02836 M01S01493.286l859 ---| CRC SUBR ENTRY/EXIT
Line S00786 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02837 M01S00786.286l859 +++| SA1 CPAR+/COMSPFS/CPTD
02838 M01S00787.286l859 +++| SX6 B0+ SET NO FILE DUMP
02839 M01S00788.286l859 +++| SA6 FLCF CLEAR *FILE LENGTH CORRECT* FLAG
02840 M01S00789.286l859 +++| ZR X1,CSP1 IF NO TRUE DEVICE SELECTION
02841 M01S00790.286l859 +++| SA2 A0+FCDN
02842 M01S00791.286l859 +++| SA3 CPAR+/COMSPFS/CPDN
02843 M01S00792.286l859 +++| SA4 A0+FCBT
02844 M01S00793.286l859 +++| MX7 -6
02845 M01S00794.286l859 +++| LX2 -36
02846 M01S00795.286l859 +++| BX3 X1-X3
02847 M01S00796.286l859 +++| LX4 59-23
02848 M01S00797.286l859 +++| ZR X3,CSP1 IF TRUE DEVICE IS MASTER DEVICE
02849 M01S00798.286l859 +++| BX2 -X7*X2 RESIDENCY DEVICE
02850 M01S00799.286l859 +++| PL X4,CSPX IF FILE NOT DISK RESIDENT
02851 M01S00800.286l859 +++| BX2 X1-X2
02852 M01S00801.286l859 +++| NZ X2,CSPX IF FILE DOES NOT RESIDE ON TRUE DEVICE
02853 M00S01494.pfdump +++|
Line S01495 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02854 M01S01495.286l859 ---|* CHECK RESPONSE FROM LAST STAGING REQUEST.
Line S00802 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02855 M01S00802.286l859 +++|* GET FILE LENGTH IF REQUIRED AND CHECK SELECTION CRITERIA.
02856 M01S00803.286l859 +++|* FILES SPECIFIED IN TABLE *TSFF* WILL BE DUMPED ON AN
02857 M01S00804.286l859 +++|* INCREMENTAL DUMP EVEN IF THE SPECIFIED DATE/TIME CRITERION
02858 M01S00805.286l859 +++|* IS NOT MET BECAUSE THEY MAY HAVE BEEN MODIFIED WHILE IN
02859 M01S00806.286l859 +++|* FAST ATTACH MODE.
02860 M00S01496.pfdump +++|
Line S01497 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02861 M01S01497.253l688 ---| RECALL SGCW WAIT UNTIL PFU CATCHES UP
Line S00121 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02862 M02S00121.286l859 ---| RECALL SRFT WAIT FOR *PFM* COMPLETION
Line S01498 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02863 M01S01498.286l859 ---| SA1 X2
Line S01499 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02864 M02S01499.286l859 ---| MX0 -12
02865 M02S01500.286l859 ---| LX1 11-23
02866 M02S01501.286l859 ---| BX1 -X0*X1
Line S00122 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02867 M02S00122.286l859 ---| SX1 X1
02868 M02S00123.286l859 ---| AX1 10
Line S01502 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02869 M01S01502.286l859 ---| ZR X1,CRC1 IF LAST STAGING REQUEST ACCEPTED
Line S00807 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02870 M01S00807.286l859 +++| CSP1 SA1 FLSF
02871 M01S00808.286l859 +++| ZR X1,CSP2 IF FILE LENGTH NOT REQUIRED FOR SELECTION
02872 M01S00809.286l859 +++| RJ SFL SET FILE LENGTH
02873 M01S00810.286l859 +++| ZR X6,CSPX IF DEVICE NOT FOUND ERROR
02874 M01S00811.286l859 +++| CSP2 SB4 A0 SET CATALOG ENTRY ADDRESS
02875 M01S00812.286l859 +++| RJ CSC CHECK SELECTION CRITERIA
02876 M01S00813.286l859 +++| NZ X6,CSP4 IF FILE SELECTED
02877 M01S00814.286l859 +++| ZR X7,CSPX IF NON-SELECTION NOT DUE TO DATE/TIME
02878 M01S00815.286l859 +++| SA1 INCD
02879 M01S00816.286l859 +++| ZR X1,CSPX IF NOT INCREMENTAL DUMP
02880 M01S00817.286l859 +++| SA2 TSFF-1
02881 M01S00818.286l859 +++| SA1 A0+FCUI
02882 M01S00819.286l859 +++| CSP3 SA2 A2+1 GET FAST ATTACH FILE NAME AND USER INDEX
02883 M01S00820.286l859 +++| ZR X2,CSPX IF END OF ENTRIES
02884 M01S00821.286l859 +++| BX3 X1-X2
02885 M01S00822.286l859 +++| NZ X3,CSP3 IF NO MATCH
02886 M00S01503.pfdump +++|
Line S01504 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02887 M01S01504.286l859 ---|* DETERMINE IF LIMIT OF NON-PRODUCTIVE RESCANS EXCEEDED.
Line S00823 Modification History
M01 (Added by) 286l859
Seq # *Modification Id* Act
----------------------------+
02888 M01S00823.286l859 +++|* CHECK FILE BACKUP REQUIREMENTS.
02889 M00S01505.pfdump +++|
Line S01506 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02890 M01S01506.286l859 ---| SA1 NNAR INCREMENT NUMBER *NOT ACTIVE* RESPONSES
Line S01507 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02891 M02S01507.286l859 ---| SX1 X1+1
Line S00124 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02892 M02S00124.286l859 ---| SX1 X1+B1
Line S01508 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02893 M01S01508.286l859 ---| SA2 NFSR
02894 M01S01509.286l859 ---| IX1 X2-X1
02895 M01S01510.286l859 ---| NZ X1,CRC1 IF LAST RESCAN PRODUCTIVE
02896 M01S01511.286l859 ---| SA1 NNPR UPDATE NUMBER NON-PRODUCTIVE RESCANS
Line S01512 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02897 M02S01512.286l859 ---| SX6 X1+1
Line S00125 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02898 M02S00125.286l859 ---| SX6 X1+B1
Line S01513 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02899 M01S01513.286l859 ---| SA6 A1
02900 M01S01514.286l859 ---| SX6 X6-LNPR
02901 M01S01515.286l859 ---| NG X6,CRC2 IF NON-PRODUCTIVE LIMIT NOT EXCEEDED
02902 M01S01516.286l859 ---|
02903 M01S01517.286l859 ---|* FORCE *K-DISPLAY* RESPONSE.
02904 M01S01518.286l859 ---|
02905 M01S01519.286l859 ---| SA5 IDSA+/COMSPFS/ADM2 DISPLAY RESCAN MESSAGE
02906 M01S01520.286l859 ---| MOVE 4,MSGT,X5
Line S01521 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02907 M02S01521.286l859 ---| SA5 IDSA+/COMSPFS/ADE1 DISPLAY *GO* OPTION
02908 M02S01522.286l859 ---| MOVE 4,MSGU,X5
02909 M02S01523.286l859 ---| SA5 IDSA+/COMSPFS/ADE2 DISPLAY *SKIP* OPTION
02910 M02S01524.286l859 ---| MOVE 4,MSGV,X5
Line S00032 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02911 M02S00032.286l859 ---| SX6 RESC
02912 M02S00033.286l859 ---| RJ SRS SELECT RIGHT SCREEN
Line S00007 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02913 M02S00007.286l859 ---| PCINT CATS,CTCC CLEAR CATALOG TRACK INTERLOCK
Line S01525 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02914 M01S01525.286l859 ---| SB2 CRC5 *K.SKIP.* PROCESSOR ADDRESS
02915 M01S01526.286l859 ---| SB3 CRC4 *K.GO.* PROCESSOR ADDRESS
02916 M01S01527.286l859 ---| EQ /COMSPFS/KIP PROCESS KEYBOARD RESPONSE
02917 M01S01528.286l859 ---|
02918 M01S01529.286l859 ---|* CHECK FOR *K-DISPLAY* KEYBOARD INPUT.
02919 M01S01530.286l859 ---|
02920 M01S01531.286l859 ---| CRC1 BX6 X6-X6 RESET NUMBER OF NON-PRODUCTIVE RESCANS
02921 M01S01532.286l859 ---| SA6 NNPR
02922 M01S01533.286l859 ---| CRC2 SA1 /COMSPFS/KIN
02923 M01S01534.286l859 ---| NZ X1,CRC3 IF ANY INPUT
02924 M01S01535.286l859 ---| BX6 X6-X6 SET CONTINUE RESCAN FLAG
02925 M01S01536.286l859 ---| EQ CRCX RETURN
02926 M01S01537.286l859 ---|
02927 M01S01538.286l859 ---|* PROCESS KEYBOARD INPUT.
02928 M01S01539.286l859 ---|
Line S01540 Modification History
M01 (Removed by) pfdum11
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02929 M02S01540.286l859 ---| CRC3 SX2 2LGO
Line S00001 Modification History
M01 (Added by) pfdum11
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02930 M02S00001.286l859 ---| CRC3 SX2 2RGO
02931 M02S00002.286l859 ---| LX2 48
Line S01541 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02932 M01S01541.286l859 ---| MX0 12
02933 M01S01542.286l859 ---| BX1 X0*X1
02934 M01S01543.286l859 ---| IX2 X1-X2
Line S01544 Modification History
M01 (Removed by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02935 M02S01544.286l859 ---| NZ X2,CRC5 IF NOT *GO*
Line S00008 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02936 M02S00008.286l859 ---| ZR X2,CRC4.1 IF *GO*
02937 M02S00009.286l859 ---| EQ CRC5.1 PROCESS *SKIP*
Line S01545 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02938 M01S01545.286l859 ---|
02939 M01S01546.286l859 ---|* PROCESS *K.GO.*
02940 M01S01547.286l859 ---|
Line S01548 Modification History
M01 (Removed by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02941 M02S01548.286l859 ---| CRC4 BX6 X6-X6 SET CONTINUE RESCAN FLAG
Line S00010 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02942 M02S00010.286l859 ---| CRC4 PCINT CATS,CTSC RESET CATALOG TRACK INTERLOCK
02943 M02S00011.286l859 ---| CRC4.1 BX6 X6-X6 SET CONTINUE RESCAN FLAG
Line S01549 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02944 M01S01549.286l859 ---| SA6 NNPR CLEAR NUMBER OF NON-PRODUCTIVE RESCANS
02945 M01S01550.286l859 ---| SA6 /COMSPFS/KIN CLEAR KEYBOARD INPUT
02946 M01S01551.286l859 ---| EQ CRCX RETURN
02947 M01S01552.286l859 ---|
02948 M01S01553.286l859 ---|* PROCESS *K.SKIP.*
02949 M01S01554.286l859 ---|
Line S01555 Modification History
M01 (Removed by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02950 M02S01555.286l859 ---| CRC5 BX6 X6-X6 CLEAR KEYBOARD INPUT
Line S00012 Modification History
M01 (Added by) pfdum14
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02951 M02S00012.286l859 ---| CRC5 PCINT CATS,CTSC RESET CATALOG TRACK INTERLOCK
02952 M02S00013.286l859 ---| CRC5.1 BX6 X6-X6 CLEAR KEYBOARD INPUT
Line S01556 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02953 M01S01556.286l859 ---| SA6 /COMSPFS/KIN
02954 M01S01557.286l859 ---| SA5 IDSA+/COMSPFS/ADM2 CLEAR RESCAN MESSAGE
02955 M01S01558.286l859 ---| MOVE 4,MSGW,X5
Line S01559 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02956 M02S01559.286l859 ---| SA5 IDSA+/COMSPFS/ADE1
02957 M02S01560.286l859 ---| MOVE 4,MSGW,X5
02958 M02S01561.286l859 ---| SA5 IDSA+/COMSPFS/ADE2
Line S00034 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02959 M02S00034.286l859 ---| SA5 IDSA+/COMSPFS/ADER CLEAR HELP MESSAGE
Line S01562 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02960 M01S01562.286l859 ---| MOVE 4,MSGW,X5
02961 M01S01563.286l859 ---|
02962 M01S01564.286l859 ---|* ISSUE *RESCAN KILLED* MESSAGE FOR EACH AFFECTED FILE.
02963 M01S01565.286l859 ---|
02964 M01S01566.286l859 ---| WRITEF REQS FLUSH STAGING REQUEST BUFFER
02965 M01S01567.286l859 ---| REWIND X2
02966 M01S01568.286l859 ---| READ X2
Line S01569 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02967 M02S01569.286l859 ---| CRC6 READW REQS,REQW,RSEL GET STAGE REQUEST ENTRY
Line S00126 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02968 M02S00126.286l859 ---| CRC6 READW REQS,RESE,2 READ STAGE REQUEST ENTRY
Line S01570 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02969 M01S01570.286l859 ---| ZR X1,CRC7 IF READ COMPLETE
02970 M01S01571.286l859 ---| SX1 X1+3
02971 M01S01572.286l859 ---| NZ X1,CRC8 IF ENTRIES EXHAUSTED
02972 M01S01573.286l859 ---| SX1 MSGAB *PFDUMP - READ ERROR ON REQS - ABORT.*
Line S01574 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02973 M02S01574.286l859 ---| EQ AEP ABORT
Line S00127 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02974 M02S00127.286l859 ---| EQ ABT ABORT
Line S01575 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02975 M01S01575.286l859 ---|
Line S01576 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02976 M02S01576.286l859 ---| CRC7 SA1 REQW SET FILE NAME
Line S00128 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02977 M02S00128.286l859 ---| CRC7 SA1 RESE+1 SET FILE NAME
Line S01577 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02978 M01S01577.286l859 ---| MX0 42
02979 M01S01578.286l859 ---| BX6 X0*X1
02980 M01S01579.286l859 ---| SA6 MPFN
02981 M01S01580.286l859 ---| BX6 -X0*X1 SET USER INDEX
02982 M01S01581.286l859 ---| SA6 MPUI
02983 M01S01582.286l859 ---| EDITS MSFN,MES21 *PFDUMP - MSS STAGED FILE RESCAN KILLED..*
02984 M01S01583.286l859 ---| RJ SEM SEND ERROR MESSAGE
02985 M01S01584.286l859 ---| EQ CRC6 GET NEXT ENTRY
02986 M01S01585.286l859 ---|
02987 M01S01586.286l859 ---|* TERMINATE RESCAN.
02988 M01S01587.286l859 ---|
02989 M01S01588.286l859 ---| CRC8 BX6 X6-X6
02990 M01S01589.286l859 ---| SA6 SCAN CLEAR RESCAN FLAG
02991 M01S01590.286l859 ---| SA6 NFSR CLEAR NUMBER FILE STAGINGS REQUESTED
02992 M01S01591.286l859 ---| SA6 NNAR CLEAR NUMBER *NOT ACTIVE* RESPONSES
02993 M01S01592.286l859 ---| SA6 NNPR CLEAR NUMBER NON-PRODUCTIVE RESCANS
02994 M01S01593.286l859 ---| SA5 IDSA+/COMSPFS/ADM1 CLEAN UP *K* DISPLAY MESSAGES
02995 M01S01594.286l859 ---| MOVE 4,MSGW,X5
02996 M01S01595.286l859 ---| SA5 IDSA+/COMSPFS/ADM2
02997 M01S01596.286l859 ---| MOVE 4,MSGW,X5
Line S01597 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
02998 M02S01597.286l859 ---| SA5 IDSA+/COMSPFS/ADE1
02999 M02S01598.286l859 ---| MOVE 4,MSGW,X5
03000 M02S01599.286l859 ---| SA5 IDSA+/COMSPFS/ADE2
Line S00035 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03001 M02S00035.286l859 ---| SA5 IDSA+/COMSPFS/ADER
Line S01600 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03002 M01S01600.286l859 ---| MOVE 4,MSGW,X5
03003 M01S01601.286l859 ---| SX6 -1 SET RESCAN TERMINATION FLAG
03004 M01S01602.286l859 ---| EQ CRCX RETURN
Line S01603 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03005 M02S01603.286l859 ---| CSP SPACE 4,20
Line S00129 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03006 M02S00129.286l859 ---| CSP SPACE 4,30
Line S01604 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03007 M01S01604.286l859 ---|** CSP - CHECK SELECTION PARAMETERS.
03008 M01S01605.286l859 ---|*
03009 M01S01606.286l859 ---|* ENTRY (B3) = ADDRESS OF CATALOG ENTRY.
03010 M01S01607.286l859 ---|* (SCAN) = 0, IF NORMAL SCAN.
03011 M01S01608.286l859 ---|* = 1, IF RESCAN.
03012 M01S01609.286l859 ---|* = 4, IF RESCAN SCREEN EXHAUSTED.
Line S01610 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03013 M02S01610.286l859 ---|* (RESW - RESW+3) = RESCAN FILE SCREEN ENTRY.
Line S00130 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03014 M02S00130.286l859 ---|* (RESE - RESE+1) = RESCAN STAGE REQUEST ENTRY.
Line S01611 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03015 M01S01611.286l859 ---|* (FSNM) = NON-MASTER DEVICE FILE SELECTION PARAMETER.
03016 M01S01612.286l859 ---|* (CPAR) = CRACKED PARAMETER ARRAY.
Line S01613 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03017 M02S01613.286l859 ---|* (LMSK) = LOCK FILE MASK.
Line S00010 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03018 M02S00010.286l859 ---|* (LFDP) = LOCK FILE DUMP PASS FLAG.
Line S01614 Modification History
M01 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03019 M01S01614.286l859 ---|*
03020 M01S01615.286l859 ---|* EXIT (X6) = 0, IF FILE NOT TO BE DUMPED.
03021 M01S01616.286l859 ---|* = 1, IF TOTAL FILE TO BE DUMPED.
03022 M01S01617.286l859 ---|* = 2, IF ONLY PFC AND PERMITS TO BE DUMPED.
03023 M01S01618.286l859 ---|* = 3, IF FILE STAGING REQUIRED.
Line S01619 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03024 M02S01619.286l859 ---|* = 4, IF RESCAN SCREEN EXHAUSTED.
03025 M02S01620.286l859 ---|* (SCAN) = 4, IF RESCAN SCREEN EXHAUSTED.
03026 M02S01621.286l859 ---|* (RESW - RESW+3) = RESCAN FILE SCREEN ENTRY UPDATED.
03027 M02S01622.286l859 ---|* ABORTS DUMP, IF READ ERROR ON RESCAN SCREEN FILE.
03028 M02S01623.286l859 ---|* CONTENTS OF B2, B3 AND B5 RESTORED TO ENTRY STATE.
Line S00131 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq # *Modification Id* Act
----------------------------+
03029 M02S00131.286l859 ---|* = 4, IF END OF RESCAN STAGE REQUESTS.