Seq # *Modification Id* Act
----------------------------+
06989 M00S06070.dmrec +++| SA6 SKEY SET KEY
06990 M00S06071.dmrec +++| SX6 B0
06991 M00S06072.dmrec +++| SA6 YYBUF
06992 M00S06073.dmrec +++| STORE DIRR,MKL=10
06993 M00S06074.dmrec +++| RMGET DIRR,XXBUF,0,,SKEY
06994 M00S06075.dmrec +++| RJ FER CHECK FIT ERROR
06995 M00S06076.dmrec +++| NZ X1,GFV20 IF ERROR
06996 M00S06077.dmrec +++|
06997 M00S06078.dmrec +++|* CHECK THIS RECORD FOR TARGET DUMP.
06998 M00S06079.dmrec +++|
06999 M00S06080.dmrec +++| GFV6 SA2 XXBUF+1
07000 M00S06081.dmrec +++| AX2 18
07001 M00S06082.dmrec +++| EDATE X2
07002 M00S06083.dmrec +++| SA3 UDATE
07003 M00S06084.dmrec +++| IX5 X3-X6
07004 M00S06085.dmrec +++| NG X5,GFV10 IF NOT CANDIDATE (AFTER TARGET DATE)
07005 M00S06086.dmrec +++| SA2 XXBUF+1
07006 M00S06087.dmrec +++| MX0 42
07007 M00S06088.dmrec +++| BX2 -X0*X2
07008 M00S06089.dmrec +++| ETIME X2
07009 M00S06090.dmrec +++| SA3 UTIME
07010 M00S06091.dmrec +++| IX5 X3-X6
07011 M00S06092.dmrec +++| NG X5,GFV10 IF NOT CANDIDATE (AFTER TARGET TIME)
07012 M00S06093.dmrec +++| SX2 77B
07013 M00S06094.dmrec +++| SA1 XXBUF+2 GET FORMAT
07014 M00S06095.dmrec +++| BX1 X2*X1
07015 M00S06096.dmrec +++| SA3 TDFN
07016 M00S06097.dmrec +++| AX3 12
07017 M00S06098.dmrec +++| BX5 X3*X2
07018 M00S06099.dmrec +++| ZR X5,GFV8 IF NO FORMAT SPECIFIED
07019 M00S06100.dmrec +++| SX5 X5-1RR
07020 M00S06101.dmrec +++| NZ X5,GFV7 IF NOT RECORD FORMAT - MUST BE BLOCK
07021 M00S06102.dmrec +++| ZR X1,GFV9 IF BLOCK FORMAT IN THIS DIRECTORY ENTRY
07022 M00S06103.dmrec +++| EQ GFV8 CONTINUE
07023 M00S06104.dmrec +++|
07024 M00S06105.dmrec +++| GFV7 NZ X1,GFV9 IF NOT BLOCK FORMAT
07025 M00S06106.dmrec +++| GFV8 MOVE 6,XXBUF,YYBUF
07026 M00S06107.dmrec +++| GFV9 GETN DIRR,XXBUF,,SKEY
07027 M00S06108.dmrec +++| SA2 XXPFN
07028 M00S06109.dmrec +++| SA3 XXBUF
07029 M00S06110.dmrec +++| SA1 =3RBBB
07030 M00S06111.dmrec +++| BX2 X1+X2
07031 M00S06112.dmrec +++| BX3 X3-X2
07032 M00S06113.dmrec +++| ZR X3,GFV6 IF MORE KEY ENTRIES
07033 M00S06114.dmrec +++|
07034 M00S06115.dmrec +++|* DONE - CHECK RECORD.
07035 M00S06116.dmrec +++|
07036 M00S06117.dmrec +++| GFV10 SA2 YYBUF
07037 M00S06118.dmrec +++| NZ X2,GFV15 IF RECORD FOUND
07038 M00S06119.dmrec +++| EQ GFV20 ERROR
07039 M00S06120.dmrec +++|
07040 M00S06121.dmrec +++|* CHECK CORRECT VSN IN DIRECTORY FILE.
07041 M00S06122.dmrec +++|
07042 M00S06123.dmrec +++| GFV11 GETN DIRR,YYBUF,,SKEY
07043 M00S06124.dmrec +++| EQ GFV13 CONTINUE
07044 M00S06125.dmrec +++|
07045 M00S06126.dmrec +++| GFV12 STORE DIRR,MKL=10
07046 M00S06127.dmrec +++| SA3 XXPFN
07047 M00S06128.dmrec +++| SX2 3RBBB SPECIFY DUMP RECORD
07048 M00S06129.dmrec +++| BX6 X3+X2
07049 M00S06130.dmrec +++| SA6 TEMPO
07050 M00S06131.dmrec +++| RMGET DIRR,YYBUF,0,,TEMPO
07051 M00S06132.dmrec +++| GFV13 FETCH DIRR,ES,X2
07052 M00S06133.dmrec +++| ZR X2,GFV14 IF NO ERRORS
07053 M00S06134.dmrec +++| SX2 X2-100B
07054 M00S06135.dmrec +++| ZR X2,GFV20 IF EOF - NO ENTRY
07055 M00S06136.dmrec +++| SX3 X2+100B-445B
07056 M00S06137.dmrec +++| ZR X3,GFV20 IF RECORD NOT FOUND
07057 M00S06138.dmrec +++| EQ GFV19 ERROR
07058 M00S06139.dmrec +++|
07059 M00S06140.dmrec +++| GFV14 SA3 YYBUF+2
07060 M00S06141.dmrec +++| MX0 36
07061 M00S06142.dmrec +++| BX4 X0*X3
07062 M00S06143.dmrec +++| SA2 TVSN
07063 M00S06144.dmrec +++| BX6 X2-X4
07064 M00S06145.dmrec +++| NZ X6,GFV11 IF NOT CORRECT VSN - SEARCH NEXT RECORD
07065 M00S06146.dmrec +++|
07066 M00S06147.dmrec +++| GFV15 STORE DIRR,MKL=20
07067 M00S06148.dmrec +++| SA3 YYBUF+2
07068 M00S06149.dmrec +++| MX0 36
07069 M00S06150.dmrec +++| BX3 X0*X3
07070 M00S06151.dmrec +++|
07071 M00S06152.dmrec +++|* BUILD LIST OF VSN-S IN THIS REQUEST.
07072 M00S06153.dmrec +++|
07073 M00S06154.dmrec +++| SX6 TVSN
07074 M00S06155.dmrec +++| SA6 IVSN
07075 M00S06156.dmrec +++| SX6 B0
07076 M00S06157.dmrec +++| SA6 FVSN
07077 M00S06158.dmrec +++| SA6 NFLS
07078 M00S06159.dmrec +++| GFV16 BX6 X3
07079 M00S06160.dmrec +++| LX6 36
07080 M00S06161.dmrec +++| SA1 FILLER
07081 M00S06162.dmrec +++| BX6 X6+X1
07082 M00S06163.dmrec +++| SA6 EVSN SET KEY
07083 M00S06164.dmrec +++| RMGET DIRR,XXBUF,0,,EVSN GET VSN RECORD
07084 M00S06165.dmrec +++| RJ FER CHECK FIT ERROR
07085 M00S06166.dmrec +++| NZ X1,GFV19 IF ERROR
| Line S06167 Modification History |
M01 (Removed by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07086 M01S06167.dmrec6 ---| MX0 36
07087 M00S06168.dmrec ---| SA5 NFLS READ UP TOTAL NUMBER OF EOF-S
07088 M00S06169.dmrec ---| SA1 XXBUF+3 NUMBER OF EOF-S ON THIS TAPE
07089 M00S06170.dmrec ---| IX7 X1+X5
07090 M00S06171.dmrec ---| SA7 A5 UPDATE TOTAL WITH THIS VSN
07091 M00S06172.dmrec ---| SA3 IVSN GET INDEX
07092 M00S06173.dmrec ---| SB3 TVSN+TVSNL
07093 M00S06174.dmrec ---| SB2 X3
07094 M00S06175.dmrec ---| EQ B3,B2,GFV21 IF NO ROOM IN *TVSN*
| Line S00001 Modification History |
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07095 M01S00001.dmrec6 +++| MX0 36
07096 M00S06176.dmrec +++| SA2 XXBUF
07097 M00S06177.dmrec +++| LX2 24
07098 M00S06178.dmrec +++| BX6 X0*X2
| Line S06179 Modification History |
M01 (Removed by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07099 M01S06179.dmrec6 ---| SA6 X3
| Line S00002 Modification History |
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07100 M01S00002.dmrec6 +++| SA6 X3+
07101 M00S06180.dmrec +++| SA2 FVSN
07102 M00S06181.dmrec +++| NZ X2,GFV17 IF FIRST VSN ALREADY ENCOUNTERED
07103 M00S06182.dmrec +++| SA3 YYBUF+4 FILE ORDINAL
07104 M00S06183.dmrec +++| IX4 X7-X3
07105 M00S06184.dmrec +++| NG X4,GFV17 IF NOT ON THIS TAPE
| Line S06185 Modification History |
M01 (Removed by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07106 M01S06185.dmrec6 ---| SX2 XXBUF+6 GET FILE DUMP
| Line S00003 Modification History |
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07107 M01S00003.dmrec6 +++| SA2 XXBUF+5
07108 M00S06186.dmrec +++| MX0 -3
07109 M00S06187.dmrec +++| BX2 -X0*X2
07110 M00S06188.dmrec +++| ZR X2,GFV22 IF NOT FIRST REEL
07111 M00S06189.dmrec +++| SA4 IVSN
07112 M00S06190.dmrec +++| BX7 X4
07113 M01S00004.dmrec6 +++| IX6 X3-X5 FILE ORDINAL - OLD TOTAL
07114 M00S06191.dmrec +++| SA7 FVSN ADDRESS OF FIRST VSN
| Line S06192 Modification History |
M01 (Removed by) | dmrec6 |
Seq # *Modification Id* Act
----------------------------+
07115 M01S06192.dmrec6 ---| IX6 X3-X5 FILE ORDINAL - OLD TOTAL
07116 M00S06193.dmrec ---| SA6 HOLD SKIP COUNT
07117 M00S06194.dmrec ---| GFV17 SA2 IVSN
07118 M00S06195.dmrec ---| SX6 X2+B1
07119 M00S06196.dmrec ---| SA6 A2 INCREMENT IVSN
07120 M00S06197.dmrec ---| SA3 XXBUF+2
07121 M00S06198.dmrec ---| NZ X3,GFV16 IF ANOTHER TAPE
07122 M00S06199.dmrec ---| SA2 IVSN
07123 M00S06200.dmrec ---| SX6 B0
07124 M00S06201.dmrec ---| SA6 X2 END *TVSN* LIST
07125 M00S06202.dmrec ---| SA2 FVSN
07126 M00S06203.dmrec ---| ZR X2,GFV21 IF NO VSN FOUND - ERROR
07127 M00S06204.dmrec ---| BX7 X2
07128 M00S06205.dmrec ---| SA7 IVSN START HERE
07129 M00S06206.dmrec ---| SX1 B0
07130 M00S06207.dmrec ---| EQ GFVX RETURN
07131 M00S06208.dmrec ---|
07132 M00S06209.dmrec ---| GFV18 ERROR GFVE,,,GFVX,,E VSN AND DATE/TIME CANNOT CO-EXIST
07133 M00S06210.dmrec ---|
07134 M00S06211.dmrec ---| GFV19 ERROR GFVB,,,GFVX,,E CRM ERROR IN ZZDBDIR (GET)
07135 M00S06212.dmrec ---|
07136 M00S06213.dmrec ---| GFV20 ERROR GFVC,,,GFVX,,E NO RECORD FOUND FOR GIVEN VSN
07137 M00S06214.dmrec ---|
07138 M00S06215.dmrec ---| GFV21 ERROR GFVD,,,GFVX,,E ERROR IN RETRIEVING VSN
07139 M00S06216.dmrec ---|
07140 M00S06217.dmrec ---| GFV22 ERROR GFVF,,,GFVX,,E VSN REQUESTED NOT FIRST REEL
07141 M00S06218.dmrec ---|
07142 M00S06219.dmrec ---| GFVB DATA 20H0 *****
07143 M00S06220.dmrec ---| DATA C*CRM ERROR IN ZZDBDIR (GET).*
07144 M00S06221.dmrec ---| GFVBL EQU *-GFVB
07145 M00S06222.dmrec ---|
07146 M00S06223.dmrec ---| GFVC DATA 20H0 *****
07147 M00S06224.dmrec ---| DATA C*NO RECORD FOUND FOR GIVEN VSN - DATE/TIME.*
07148 M00S06225.dmrec ---| GFVCL EQU *-GFVC
07149 M00S06226.dmrec ---|
07150 M00S06227.dmrec ---| GFVD DATA 20H0 *****
07151 M00S06228.dmrec ---| DATA C*ERROR IN RETRIEVING VSN.*
07152 M00S06229.dmrec ---| GFVDL EQU *-GFVD
07153 M00S06230.dmrec ---|
07154 M00S06231.dmrec ---| GFVE DATA 20H0 *****
07155 M00S06232.dmrec ---| DATA C*VSN AND DATE/TIME CANNOT CO-EXIST ON LOAD DIRECTIVE.*
07156 M00S06233.dmrec ---| GFVEL EQU *-GFVE
07157 M00S06234.dmrec ---|
07158 M00S06235.dmrec ---| GFVF DATA 20H0 *****
07159 M00S06236.dmrec ---| DATA C*VSN REQUESTED NOT FIRST REEL.*
07160 M00S06237.dmrec ---| GFVFL EQU *-GFVF
07161 M00S06238.dmrec ---| GNR SPACE 4,25
07162 M00S06239.dmrec ---|** GNR - GET NEXT RECORD.
07163 M00S06240.dmrec ---|*
07164 M00S06241.dmrec ---|* *GNR* RETRIEVES THE NEXT RECORD FROM AN *AFTER IMAGE*
07165 M00S06242.dmrec ---|* LOG FILE.
07166 M00S06243.dmrec ---|*
07167 M00S06244.dmrec ---|* ENTRY (HOLD) = 0 FOR INITIAL CALL ONLY.
07168 M00S06245.dmrec ---|* (X4) = FET ADDRESS.
07169 M00S06246.dmrec ---|*
07170 M00S06247.dmrec ---|*
07171 M00S06248.dmrec ---|* EXIT (HOLD) = FWA OF NEXT RECORD.
07172 M00S06249.dmrec ---|* (HOLD1) = LWA+1 OF DATA BLOCK READ.
07173 M00S06250.dmrec ---|* (X1) = 0 - IF RECORD RETRIEVED.
07174 M00S06251.dmrec ---|* NEGITIVE - IF EOF REACHED (PHYSICAL EOF),
07175 M00S06252.dmrec ---|* OR ONE WORD TRAILER (ZZDBLNNEND).
07176 M00S06253.dmrec ---|* POSITIVE - IF ERROR.
07177 M00S06254.dmrec ---|* (X5) = RECORD LENGTH.
07178 M00S06255.dmrec ---|* (X4) = ADDRESS OF RECORD.
07179 M00S06256.dmrec ---|*
07180 M00S06257.dmrec ---|* USES X - 0, 1, 2, 3, 4, 5, 6.
| Line S06258 Modification History |
M01 (Removed by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07181 M01S06258.ns2611 ---|* A - 1, 2, 3, 4, 5, 6.
07182 M01S06259.ns2611 ---|* B - NONE.
| Line S00004 Modification History |
M01 (Added by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07183 M01S00004.ns2611 +++|* A - 2, 3, 5, 6.
07184 M01S00005.ns2611 +++|* B - 6, 7.
07185 M00S06260.dmrec +++|*
| Line S06261 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07186 M01S06261.dmrec4 ---|* MACROS ERROR, READ, READW.
| Line S00123 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07187 M01S00123.dmrec4 +++|* MACROS ERROR, READEI, READW.
07188 M00S06262.dmrec +++|
07189 M00S06263.dmrec +++|
07190 M00S06264.dmrec +++| GNR SUBR ENTRY/EXIT
07191 M00S06265.dmrec +++| BX6 X4
07192 M00S06266.dmrec +++| SA3 HOLD
07193 M01S00124.dmrec4 +++| BX2 X4
07194 M00S06267.dmrec +++| SA6 HOLD2 SAVE FET ADDRESS
| Line S06268 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07195 M01S06268.dmrec4 ---| NZ X3,GNR4 IF NOT FIRST TRIP
| Line S00125 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07196 M01S00125.dmrec4 +++| NZ X3,GNR1 IF NOT FIRST TRIP
07197 M00S06269.dmrec +++| SX6 WBUF
07198 M00S06270.dmrec +++| SA6 HOLD1
07199 M00S06271.dmrec +++| SA6 A3
| Line S06272 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07200 M01S06272.dmrec4 ---| READ X4,R
07201 M01S06273.dmrec4 ---| SA4 HOLD2
07202 M01S06274.dmrec4 ---| READW X4,WBUF,WBUFL
07203 M01S06275.dmrec4 ---| SA4 HOLD2
07204 M01S06276.dmrec4 ---| ZR X1,GNR8 IF NO HEADER
07205 M01S06277.dmrec4 ---| NG X1,GNR8 IF NO HEADER
| Line S00126 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07206 M01S00126.dmrec4 +++| READEI X2 INITIAL READ
07207 M01S00127.dmrec4 +++| READW X2,WBUF,TAHDL READ FILE HEADER WORD
07208 M01S00128.dmrec4 +++| NZ X1,GNR8 IF NO HEADER
07209 M00S06278.dmrec +++|
| Line S06279 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07210 M01S06279.dmrec4 ---|* EOR ENCOUNTERED.
07211 M01S06280.dmrec4 ---|
07212 M01S06281.dmrec4 ---| SA3 WBUF+3 GET MAXIMUM BUFFER LENGTH
07213 M01S06282.dmrec4 ---| MX0 36
07214 M01S06283.dmrec4 ---| BX6 -X0*X3
07215 M01S06284.dmrec4 ---| SX2 WBUFL
07216 M01S06285.dmrec4 ---| IX6 X6-X2
07217 M01S06286.dmrec4 ---| NG X6,GNR5 IF BUFFER BIG ENOUGH
07218 M01S06287.dmrec4 ---| EQ GNR7 ERROR
| Line S00129 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07219 M01S00129.dmrec4 +++| GNR0 SX4 WBUF
07220 M01S00130.dmrec4 +++| BX1 X1-X1
07221 M01S00131.dmrec4 +++| EQ GNRX RETURN
07222 M00S06288.dmrec +++|
| Line S06289 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07223 M01S06289.dmrec4 ---|* READ NEXT BLOCK.
07224 M01S06290.dmrec4 ---|
07225 M01S06291.dmrec4 ---| GNR1 READ X4,R
07226 M01S06292.dmrec4 ---| SA4 HOLD2
07227 M01S06293.dmrec4 ---| READW X4,WBUF,WBUFL
07228 M01S06294.dmrec4 ---| SA4 HOLD2
07229 M01S06295.dmrec4 ---| ZR X1,GNR7 IF RECORD TOO LARGE
07230 M01S06296.dmrec4 ---| PL X1,GNR3 IF EOR
07231 M01S06297.dmrec4 ---| GNR2 MX1 1
| Line S00132 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07232 M01S00132.dmrec4 +++|* READ NEXT RECORD.
07233 M01S00133.dmrec4 +++|
07234 M01S00134.dmrec4 +++| GNR1 READW X2,WBUF,TARHL READ RECORD HEADER WORD
| Line S00135 Modification History |
M01 (Added by) | dmrec4 |
M02 (Removed by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07235 M02S00135.ns2611 ---| SX4 WBUF
| Line S00006 Modification History |
M01 (Added by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07236 M01S00006.ns2611 +++| GNR2 SX4 WBUF
| Line S00136 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07237 M01S00136.dmrec4 +++| PL X1,GNR3 IF TRANSFER COMPLETED
07238 M00S06298.dmrec +++| EQ GNRX RETURN EOF
07239 M00S06299.dmrec +++|
07240 M00S06300.dmrec +++| GNR3 SX6 WBUF
07241 M00S06301.dmrec +++| SA6 HOLD ADDRESS OF NEXT RECORD
| Line S06302 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07242 M01S06302.dmrec4 ---| BX6 X1
07243 M01S06303.dmrec4 ---| SA6 HOLD1 LWA+1 OF DATA BLOCK
07244 M00S06304.dmrec ---| MX0 -18
07245 M00S06305.dmrec ---| SX3 3REND
07246 M00S06306.dmrec ---| SA5 WBUF CHECK FIRST WORD
07247 M00S06307.dmrec ---| BX5 X5-X3
07248 M00S06308.dmrec ---| BX5 -X0*X5
07249 M01S06309.dmrec4 ---| ZR X5,GNR2 IF TRAILER RECORD FOUND
07250 M01S06310.dmrec4 ---| GNR4 SA2 HOLD
07251 M01S06311.dmrec4 ---| SA1 HOLD1
07252 M01S06312.dmrec4 ---| IX3 X2-X1
07253 M01S06313.dmrec4 ---| PL X3,GNR1 IF NO MORE RECORDS IN THIS BLOCK
| Line S00137 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07254 M01S00137.dmrec4 +++| NZ X5,GNR4 IF TRAILER RECORD NOT FOUND
07255 M01S00138.dmrec4 +++| MX1 1 SET *EOR*
07256 M01S00139.dmrec4 +++| EQ GNRX RETURN
| Line S00140 Modification History |
M01 (Added by) | dmrec4 |
M02 (Removed by) | dmrec23 |
Seq # *Modification Id* Act
----------------------------+
07257 M02S00140.dmrec23 ---| GNR4 SA2 HOLD
| Line S00001 Modification History |
M01 (Added by) | dmrec23 |
Seq # *Modification Id* Act
----------------------------+
07258 M01S00001.dmrec23 +++|
07259 M01S00002.dmrec23 +++| GNR4 SA3 HOLD
07260 M01S00003.dmrec23 +++| SA5 X3+
| Line S06314 Modification History |
M01 (Removed by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07261 M01S06314.ns2611 ---| MX0 60
| Line S06315 Modification History |
M01 (Removed by) | dmrec23 |
M02 (Removed by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07262 M02S06315.ns2611 ---| SA5 X2
| Line S06316 Modification History |
M01 (Removed by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07263 M01S06316.ns2611 ---| BX3 X0-X5
07264 M01S06317.ns2611 ---| ZR X3,GNR1 IF SINGLE WORD OF ALL 7-S
| Line S00004 Modification History |
M01 (Added by) | dmrec23 |
M02 (Removed by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07265 M02S00004.ns2611 ---| SA2 HOLD
| Line S00007 Modification History |
M01 (Added by) | ns2611 |
Seq # *Modification Id* Act
----------------------------+
07266 M01S00007.ns2611 +++| NZ X5,GNR4.2 IF NOT WORD OF ALL 1-S
07267 M01S00008.ns2611 +++| PL X5,GNR4.2 IF NOT WORD OF ALL 1-S
07268 M01S00009.ns2611 +++| SB7 WBUF+TARHL-1
07269 M01S00010.ns2611 +++| SB6 WBUF
07270 M01S00011.ns2611 +++| GNR4.1 SA2 B6+B1 MOVE HEADER WORDS UP ONE WORD
07271 M01S00012.ns2611 +++| BX6 X2
07272 M01S00013.ns2611 +++| SA6 B6
07273 M01S00014.ns2611 +++| SB6 B6+B1
07274 M01S00015.ns2611 +++| LT B6,B7,GNR4.1 IF NOT ALL WORDS MOVED
07275 M01S00016.ns2611 +++| SA2 HOLD2
07276 M01S00017.ns2611 +++| READW X2,B7,B1 READ LAST WORD OF HEADER
07277 M01S00018.ns2611 +++| EQ GNR2 CHECK STATUS
07278 M01S00019.ns2611 +++|
07279 M01S00020.ns2611 +++| GNR4.2 SA2 HOLD
07280 M00S06318.dmrec +++| MX0 -XLTYN
07281 M00S06319.dmrec +++| BX5 -X0*X5 GET FUNCTION
07282 M00S06320.dmrec +++| ZR X5,GNR6 IF *COMMIT* STAMP
07283 M00S06321.dmrec +++| SX3 X5-XLQD
| Line S06322 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
07284 M01S06322.ns2023 ---| ZR X3,GNR6 IF *QRF* DOWN STAMP
| Line S00140 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
07285 M01S00140.ns2023 +++| ZR X3,GNR6 IF *BRF* DOWN STAMP
07286 M00S06323.dmrec +++| SX3 X5-TRDF
07287 M00S06324.dmrec +++| ZR X3,GNR6 IF *DBFREE* STAMP
07288 M00S06325.dmrec +++| SX3 X5-DMCC
07289 M00S06326.dmrec +++| ZR X3,GNR6 IF *CEASE* STAMP
07290 M00S06327.dmrec +++| SA5 X2+XLRSW
07291 M00S06328.dmrec +++| MX0 -XLRSN
07292 M00S06329.dmrec +++| LX5 XLRSN-1-XLRSS GET RECORD LENGTH
07293 M00S06330.dmrec +++| BX3 -X0*X5 RECORD LENGTH
07294 M00S06331.dmrec +++| MX0 -XLKSN
07295 M00S06332.dmrec +++| LX5 XLKSN-1-XLKSS-XLRSN+XLRSS+1
07296 M00S06333.dmrec +++| BX5 -X0*X5
| Line S06334 Modification History |
M01 (Removed by) | dmrec23 |
Seq # *Modification Id* Act
----------------------------+
07297 M01S06334.dmrec23 ---| IX3 X5+X3 KL + RL IN CHARACTERS
| Line S00005 Modification History |
M01 (Added by) | dmrec23 |
Seq # *Modification Id* Act
----------------------------+
07298 M01S00005.dmrec23 +++| SX0 10 ASSUME ONE WORD
07299 M01S00006.dmrec23 +++| LX6 X5
07300 M01S00007.dmrec23 +++| IX4 X6/X0
07301 M01S00008.dmrec23 +++| SX0 10
07302 M01S00009.dmrec23 +++| IX4 X4*X0
07303 M01S00010.dmrec23 +++| IX5 X4-X5
07304 M01S00011.dmrec23 +++| ZR X5,GNR5 IF KL IS A MULTIPLE OF 10
07305 M01S00012.dmrec23 +++| IX4 X4+X0 ROUND KL UP TO THE NEXT MULTIPLE OF 10
07306 M01S00013.dmrec23 +++| GNR5 IX3 X4+X3 KL + RL CHARACTERS
07307 M00S06335.dmrec +++| SX4 9
07308 M00S06336.dmrec +++| IX3 X3+X4 ADD 9 TO CHARACTER COUNT
07309 M00S06337.dmrec +++| SX5 10
07310 M00S06338.dmrec +++| IX4 X3/X5 WORDS
| Line S00141 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07311 M01S00141.dmrec4 +++| SB7 X4
07312 M00S06339.dmrec +++| SX3 TARHL
07313 M00S06340.dmrec +++| IX5 X3+X4 ADD HEADER
07314 M00S06341.dmrec +++| SX4 X2 RECORD ADDRESS
07315 M00S06342.dmrec +++| IX6 X5+X2
| Line S06343 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07316 M01S06343.dmrec4 ---| SA6 A2 ADDRESS OF NEXT RECORD
07317 M01S06344.dmrec4 ---| GNR5 SX1 B0
| Line S00142 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07318 M01S00142.dmrec4 +++| SB6 WBUF+TARHL
07319 M01S00143.dmrec4 +++| SA6 HOLD1
07320 M01S00144.dmrec4 +++| SA2 HOLD2
07321 M01S00145.dmrec4 +++| READW X2,B6,B7
07322 M01S00146.dmrec4 +++| SX4 WBUF
07323 M00S06345.dmrec +++| EQ GNRX RETURN WITH RECORD
07324 M00S06346.dmrec +++|
07325 M00S06347.dmrec +++| GNR6 SX6 X2+TARHL
07326 M00S06348.dmrec +++| SA6 A2 FWA OF NEXT RECORD
07327 M00S06349.dmrec +++| SX3 TARHL
| Line S06350 Modification History |
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07328 M01S06350.dmrec4 ---| SX4 X2
07329 M01S06351.dmrec4 ---| EQ GNR5 RETURN
| Line S00147 Modification History |
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act
----------------------------+
07330 M01S00147.dmrec4 +++| SX4 WBUF
07331 M01S00148.dmrec4 +++| BX1 X1-X1
07332 M01S00149.dmrec4 +++| EQ GNRX RETURN
07333 M00S06352.dmrec +++|
| Line S06353 Modification History |
M01 (Removed by) | dmrec23 |
Seq # *Modification Id* Act
----------------------------+
07334 M01S06353.dmrec23 ---| GNR7 ERROR GNRA,,,GNRX,,E BLOCK BUFFER TOO SMALL
07335 M01S06354.dmrec23 ---|
| Line S06355 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
07336 M01S06355.ns2023 ---| GNR8 SX1 X4-LRF
| Line S00141 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
07337 M01S00141.ns2023 +++| GNR8 SX1 X4-ARF
07338 M00S06356.dmrec +++| NZ X1,GNR9 IF TAPE FILE
07339 M00S06357.dmrec +++| ERROR GNRB,,,GNRX,,E ARF FILE HEADER ERROR
07340 M00S06358.dmrec +++|
07341 M00S06359.dmrec +++| GNR9 ERROR GNRC,,,GNRX,,E ARF DUMP TAPE HEADER ERROR
07342 M00S06360.dmrec +++|
07343 M00S06361.dmrec +++| GNRA DATA 20H0 *****
07344 M00S06362.dmrec +++| DATA C*BLOCK BUFFER TOO SMALL.*
07345 M00S06363.dmrec +++| GNRAL EQU *-GNRA
07346 M00S06364.dmrec +++|
07347 M00S06365.dmrec +++| GNRB DATA 20H0 *****
07348 M00S06366.dmrec +++| DATA C*ARF FILE HEADER ERROR.*
07349 M00S06367.dmrec +++| GNRBL EQU *-GNRB
07350 M00S06368.dmrec +++|
07351 M00S06369.dmrec +++| GNRC DATA 20H0 *****
07352 M00S06370.dmrec +++| DATA C*ARF DUMP TAPE HEADER ERROR.*
07353 M00S06371.dmrec +++| GNRCL EQU *-GNRC
07354 M00S06372.dmrec +++| GNW SPACE 4,15
07355 M00S06373.dmrec +++|** GNW - GET NEXT WORD.
07356 M00S06374.dmrec +++|*
07357 M00S06375.dmrec +++|* GET NEXT WORD FROM THE KEY AREA.
07358 M00S06376.dmrec +++|*
07359 M00S06377.dmrec +++|* ENTRY (LWAK) = LWA OF KEY AREA.
07360 M00S06378.dmrec +++|* (KEYW) = CURRENT KEY WORD ADDRESS.
07361 M00S06379.dmrec +++|*
07362 M00S06380.dmrec +++|* EXIT (X1) = 1, IF END OF KEY AREA.
07363 M00S06381.dmrec +++|* (X6) = NEXT WORD CONTENTS.
07364 M00S06382.dmrec +++|* (KEYW) = UPDATED ADDRESS.
07365 M00S06383.dmrec +++|*
07366 M00S06384.dmrec +++|* USES X - 1, 2, 6, 7.
07367 M00S06385.dmrec +++|* A - 1, 2, 7.
07368 M00S06386.dmrec +++|* B - NONE.
07369 M00S06387.dmrec +++|
07370 M00S06388.dmrec +++|
07371 M00S06389.dmrec +++| GNW1 SX1 B1 END OF KEY AREA
07372 M00S06390.dmrec +++|
07373 M00S06391.dmrec +++| GNW SUBR ENTRY/EXIT
07374 M00S06392.dmrec +++| SA1 KEYW CURRENT KEY WORD ADDRESS
07375 M00S06393.dmrec +++| SX1 X1+B1 INCREMENT ADDRESS
07376 M00S06394.dmrec +++| SA2 LWAK LWA OF KEY AREA
07377 M00S06395.dmrec +++| IX2 X1-X2
07378 M00S06396.dmrec +++| ZR X2,GNW1 IF OUT OF KEY AREA
07379 M00S06397.dmrec +++| SA1 X1 NEXT WORD
07380 M00S06398.dmrec +++| BX6 X1
07381 M00S06399.dmrec +++| SX7 A1
07382 M00S06400.dmrec +++| SA7 KEYW SAVE NEXT ADDRESS
07383 M00S06401.dmrec +++| MX1 0
07384 M00S06402.dmrec +++| EQ GNWX RETURN
07385 M00S06403.dmrec +++| GPL SPACE 4,25
07386 M00S06404.dmrec +++|** GPL - GENERATE PARTIAL LISTING.
07387 M00S06405.dmrec +++|*
07388 M00S06406.dmrec +++|* THIS ROUTINE GENERATES PARTIAL LISTING OF THE BACKUP
07389 M00S06407.dmrec +++|* DIRECTORY. ENTRIES FOR THE FILES SPECIFIED IN THE
07390 M00S06408.dmrec +++|* PARAMETER LIST ARE LISTED. IF DATE AND TIME ARE SPECIFIED
07391 M00S06409.dmrec +++|* ONLY ENTRIES BEFORE THIS DATE/TIME ARE LISTED.
07392 M00S06410.dmrec +++|*
07393 M00S06411.dmrec +++|* ENTRY (LFNC) = NUMBER OF FILES TO BE LISTED.
07394 M00S06412.dmrec +++|* (LSTC) = 0, IF NO DATE/TIME.
07395 M00S06413.dmrec +++|* 1, IF DATE/TIME.
07396 M00S06414.dmrec +++|* (DATE) = YY/MM/DD.
07397 M00S06415.dmrec +++|* (TIME) = HH.MM.SS.
07398 M00S06416.dmrec +++|* (TDFN) = FWA OF SELECTED FILES TABLE.
07399 M00S06417.dmrec +++|*
07400 M00S06418.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
07401 M00S06419.dmrec +++|* LISTING GENERATED.
07402 M00S06420.dmrec +++|* INFORMATIVE MESSAGE IF SELECTED FILE NOT IN DIRECTORY.
07403 M00S06421.dmrec +++|*
07404 M00S06422.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7.
07405 M00S06423.dmrec +++|* A - 1, 2, 6, 7.
07406 M00S06424.dmrec +++|* B - NONE.
07407 M00S06425.dmrec +++|*
07408 M00S06426.dmrec +++|* CALLS FER, LDE, LFH, LPH, RDE, SFN.
07409 M00S06427.dmrec +++|*
07410 M00S06428.dmrec +++|* MACROS ERROR, GETN, REWINDM, RMGET, START, STORE.
07411 M00S06429.dmrec +++|
07412 M00S06430.dmrec +++|
07413 M00S06431.dmrec +++| GPL SUBR ENTRY/EXIT
07414 M00S06432.dmrec +++| SX6 B0 SET LISTING HEADER
07415 M00S06433.dmrec +++| RJ LPH LIST PAGE HEADER
07416 M00S06434.dmrec +++| SX6 -2
07417 M00S06435.dmrec +++| SA6 LFNP CURRENT FILE NAME POINTER
07418 M00S06436.dmrec +++| SA2 LFNC
07419 M00S06437.dmrec +++| NZ X2,GPL4 IF SELECTED FILES
07420 M00S06438.dmrec +++| REWINDM DIRR
07421 M00S06439.dmrec +++| GETN DIRR,WSAB,,TKY1 DIRECTORY HEADER
07422 M00S06440.dmrec +++| GPL1 RJ RDE READ DIRECTORY ENTRY
07423 M00S06441.dmrec +++| ZR X6,GPL2 IF ENTRY QUALIFIES
07424 M00S06442.dmrec +++| SX3 X6-1
07425 M00S06443.dmrec +++| ZR X3,GPL3 IF NEW FILE
07426 M00S06444.dmrec +++| MX1 0
07427 M00S06445.dmrec +++| SX2 X6-3
07428 M00S06446.dmrec +++| ZR X2,GPLX IF END OF FILE, RETURN
07429 M00S06447.dmrec +++| NG X2,GPLX IF VSN ENTRY, RETURN
07430 M00S06448.dmrec +++| EQ GPL1 ENTRY DOES NOT QUALIFY
07431 M00S06449.dmrec +++|
07432 M00S06450.dmrec +++| GPL2 RJ LDE LIST ENTRY
07433 M00S06451.dmrec +++| EQ GPL1 READ NEXT ENTRY
07434 M00S06452.dmrec +++|
07435 M00S06453.dmrec +++| GPL3 SA2 CKY2 KEY RETURNED
07436 M00S06454.dmrec +++| SX1 B1
07437 M00S06455.dmrec +++| NZ X2,GPL9 IF INCORRECT POSITION
07438 M00S06456.dmrec +++| RJ LFH LIST FILE HEADER
07439 M00S06457.dmrec +++| SA1 CKY1
07440 M00S06458.dmrec +++| BX6 X1
07441 M00S06459.dmrec +++| SA6 TKY1 SAVE CURRENT KEY
07442 M00S06460.dmrec +++| EQ GPL1 READ NEXT ENTRY
07443 M00S06461.dmrec +++|
07444 M00S06462.dmrec +++| GPL4 SA1 LFNP CURRENT FILE NAME POINTER
07445 M00S06463.dmrec +++| SX6 X1+2 INCREMENT
07446 M00S06464.dmrec +++| SA6 A1 REPLACE POINTER
07447 M00S06465.dmrec +++| SA1 LFNC NUMBER OF FILES
07448 M00S06466.dmrec +++| LX1 1 MULTIPLY BY 2
07449 M00S06467.dmrec +++| IX2 X6-X1
07450 M00S06468.dmrec +++| MX1 0
07451 M00S06469.dmrec +++| ZR X2,GPLX IF END OF *TDFN* TABLE
07452 M00S06470.dmrec +++| SA1 TDFN+X6 LFN FROM *TDFN* TABLE
07453 M00S06471.dmrec +++| SX2 3RAAA FILE HEADER INDICATOR
07454 M00S06472.dmrec +++| BX6 X1+X2
07455 M00S06473.dmrec +++| SA6 TKY1 SAVE KEY
07456 M00S06474.dmrec +++| MX7 0
07457 M00S06475.dmrec +++| SA7 TKY2 REST OF KEY
07458 M00S06476.dmrec +++| RMGET DIRR,WSAB,0,,TKY1 GET FILE HEADER
07459 M00S06477.dmrec +++| RJ FER FIT ERROR STATUS
07460 M00S06478.dmrec +++| ZR X1,GPL5 IF LFN EXISTS
07461 M00S06479.dmrec +++| SX1 X1-1
07462 M00S06480.dmrec +++| ZR X1,GPL8 IF LFN NOT FOUND
07463 M00S06481.dmrec +++| EQ GPL10 CRM ERROR ENCOUNTERED
07464 M00S06482.dmrec +++|
07465 M00S06483.dmrec +++| GPL5 RJ LFH LIST FILE HEADER
07466 M00S06484.dmrec +++| GPL6 RJ RDE READ DIRECTORY ENTRY
07467 M00S06485.dmrec +++| ZR X6,GPL7 IF ENTRY QUALIFIES
07468 M00S06486.dmrec +++| SX3 X6-4
07469 M00S06487.dmrec +++| ZR X3,GPL6 IF ENTRY DOES NOT QUALIFY
07470 M00S06488.dmrec +++| EQ GPL4 NEXT FILE
07471 M00S06489.dmrec +++|
07472 M00S06490.dmrec +++| GPL7 RJ LDE LIST ENTRY
07473 M00S06491.dmrec +++| EQ GPL6 NEXT ENTRY
07474 M00S06492.dmrec +++|
07475 M00S06493.dmrec +++| GPL8 SA1 TKY1
07476 M00S06494.dmrec +++| MX0 42
07477 M00S06495.dmrec +++| BX1 X0*X1 CLEAR HEADER INDICATOR
07478 M00S06496.dmrec +++| RJ SFN SPACE FILL NAME
07479 M00S06497.dmrec +++| SA6 HOLD5
07480 M00S06498.dmrec +++|
07481 M00S06499.dmrec +++| ERROR EFDB,HOLD5,,GPL4 FILE NOT FOUND
07482 M00S06500.dmrec +++|
07483 M00S06501.dmrec +++| GPL9 ERROR GPLA,,,GPLX,,E POSITION INCORRECT
07484 M00S06502.dmrec +++|
07485 M00S06503.dmrec +++| GPL10 ERROR EITB,,,GPLX,,E CRM ERROR ENCOUNTERED
07486 M00S06504.dmrec +++|
07487 M00S06505.dmrec +++|
07488 M00S06506.dmrec +++| GPLA DATA 20H0 *****
07489 M00S06507.dmrec +++| DATA C*INCORRECT POSITION IN THE DIRECTORY.*
07490 M00S06508.dmrec +++| GPLAL EQU *-GPLA
07491 M00S06509.dmrec +++|
07492 M00S06510.dmrec +++| GPR SPACE 4,25
07493 M00S06511.dmrec +++|** GPR - GET PARAMETER.
07494 M00S06512.dmrec +++|*
07495 M00S06513.dmrec +++|* *GPR* GETS ONE PARAMETER FROM A STRING BUFFER.
07496 M00S06514.dmrec +++|* *,*, *=* AND * * ACT AS DELIMITERS. A *.* ACTS AS THE
07497 M00S06515.dmrec +++|* END OF THE BUFFER.
07498 M00S06516.dmrec +++|*
07499 M00S06517.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER.
07500 M00S06518.dmrec +++|* (X2) = NEXT WORD IN BUFFER.
07501 M00S06519.dmrec +++|* (B7) = LWA+1 OF BUFFER.
07502 M00S06520.dmrec +++|*
07503 M00S06521.dmrec +++|* EXIT (X5) = PARAMETER (BITS 59-17).
07504 M00S06522.dmrec +++|* DELIMITER (EXCLUDING *,*) (BITS 5-0).
07505 M00S06523.dmrec +++|* (A2) = NEXT ADRESS IN BUFFER.
07506 M00S06524.dmrec +++|* (X2) = NEXT WORD IN BUFFER.
07507 M00S06525.dmrec +++|* (B2) = 0 IF NO ERRORS.
07508 M00S06526.dmrec +++|* (B2) = 1 IF ERRORS.
07509 M00S06527.dmrec +++|* (B2) = NEGATIVE IF END OF BUFFER REACHED.
07510 M00S06528.dmrec +++|* (B3) = NUMBER OF CHARACTERS IN PARAMETER.
07511 M00S06529.dmrec +++|*
07512 M00S06530.dmrec +++|* USES X - 1, 2, 3, 4, 5.
07513 M00S06531.dmrec +++|* A - 2, 4.
07514 M00S06532.dmrec +++|* B - 2, 3, 4, 6.
07515 M00S06533.dmrec +++|
07516 M00S06534.dmrec +++|
07517 M00S06535.dmrec +++| GPR SUBR ENTRY/EXIT
07518 M00S06536.dmrec +++| MX5 0
07519 M00S06537.dmrec +++| SB3 B0
07520 M00S06538.dmrec +++| BX4 X5
07521 M00S06539.dmrec +++| SB2 60
07522 M00S06540.dmrec +++| SB4 18
07523 M00S06541.dmrec +++| GPR1 SB6 A2
07524 M00S06542.dmrec +++| GE B6,B7,GPR5 IF END OF BUFFER REACHED
07525 M00S06543.dmrec +++| SX3 X2-1R.
07526 M00S06544.dmrec +++| ZR X3,GPR5 IF *.* DELIMITER - END OF BUFFER
07527 M00S06545.dmrec +++| SX3 X2-1R,
07528 M00S06546.dmrec +++| ZR X3,GPR3 IF DELIMITER (*,*)
07529 M00S06547.dmrec +++| SX3 X2-1R/
07530 M00S06548.dmrec +++| ZR X3,GPR2 IF DELIMITER (*/*)
07531 M00S06549.dmrec +++| SX3 X2-1R=
07532 M00S06550.dmrec +++| ZR X3,GPR2 IF DELIMITER (*=*)
07533 M00S06551.dmrec +++| SX3 X2-1R
07534 M00S06552.dmrec +++| ZR X3,GPR3 IF DELIMITER (* *)
07535 M00S06553.dmrec +++|
07536 M00S06554.dmrec +++|* CHECK FOR LEGAL CHARACTERS.
07537 M00S06555.dmrec +++|
07538 M00S06556.dmrec +++| ZR X2,GPR6 IF CHARACTER = *00*
07539 M00S06557.dmrec +++| SX3 X2-1R+
07540 M00S06558.dmrec +++| PL X3,GPR6 IF NOT ALPHA/NUMERIC
07541 M00S06559.dmrec +++| LX5 6
07542 M00S06560.dmrec +++| BX5 X5+X2 STORE CHARACTER
07543 M00S06561.dmrec +++| SB3 B3+B1
07544 M00S06562.dmrec +++| SB2 B2-6 DECREASE SHIFT COUNT
07545 M00S06563.dmrec +++| LT B2,B4,GPR6 IF DIRECTIVE TOO LONG
07546 M00S06564.dmrec +++| SA2 A2+B1 ADVANCE
07547 M00S06565.dmrec +++| EQ GPR1 LOOP FOR NEXT CHARACTER
07548 M00S06566.dmrec +++|
07549 M00S06567.dmrec +++| GPR2 SA4 A2+B1
07550 M00S06568.dmrec +++| SX3 X4-1R,
07551 M00S06569.dmrec +++| BX4 X2 SAVE DELIMITER
07552 M00S06570.dmrec +++| NZ X3,GPR3 IF NOT ( , )
07553 M00S06571.dmrec +++| SA2 A2+B1
07554 M00S06572.dmrec +++| GPR3 MX1 0 SET NO ERRORS
07555 M00S06573.dmrec +++| GPR4 LX5 B2 SHIFT
07556 M00S06574.dmrec +++| BX5 X5+X4 STORE *=* AND */* DELIMITERS
07557 M00S06575.dmrec +++| SA2 A2+B1 ADVANCE BUFFER
07558 M00S06576.dmrec +++| SB2 X1
07559 M00S06577.dmrec +++| EQ GPRX RETURN
07560 M00S06578.dmrec +++|
07561 M00S06579.dmrec +++| GPR5 SX1 -1 SET END OF BUFFER
07562 M00S06580.dmrec +++| EQ GPR4 RETURN
07563 M00S06581.dmrec +++|
07564 M00S06582.dmrec +++| GPR6 SB2 B1 SET ERRORS
07565 M00S06583.dmrec +++| EQ GPRX RETURN
| Line S00050 Modification History |
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act
----------------------------+
07566 M01S00050.ns2056 +++| GRM SPACE 4,10
07567 M01S00051.ns2056 +++|** GRM - GET *RMKDEF* CARDS FROM THE XXJ.
07568 M01S00052.ns2056 +++|*
07569 M01S00053.ns2056 +++|* *GRM* - READS THE *XXJ* FILE SEARCHING FOR *RMKDEF* CARDS
07570 M01S00054.ns2056 +++|* THAT MATCH THE DIRECTIVE FILE NAME. THE *ZZZZZDR* FILE
07571 M01S00055.ns2056 +++|* IS CREATED TO HOLD THE *RMKDEF* CARDS.
07572 M01S00056.ns2056 +++|*
07573 M01S00057.ns2056 +++|* EXTRY -(XXPFN) - PERMANENT FILE NAME FROM DIRECTIVE.
07574 M01S00058.ns2056 +++|* (XXJ) - FILE ATTACHED.
07575 M01S00059.ns2056 +++|*
07576 M01S00060.ns2056 +++|* EXIT (XXXXXDR) - FILE CREATED WITH *RMKDEF* CARDS.
07577 M01S00061.ns2056 +++|* (X1) = 0, IF NO ERRORS.
07578 M01S00062.ns2056 +++|*
07579 M01S00063.ns2056 +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
07580 M01S00064.ns2056 +++|* A - 2, 3, 5, 6.
07581 M01S00065.ns2056 +++|* B - 2, 5, 7.
07582 M01S00066.ns2056 +++|*
07583 M01S00067.ns2056 +++|* CALLS PAC, UPC.
07584 M01S00068.ns2056 +++|*
07585 M01S00069.ns2056 +++|* MACROS ERROR, READ, READC, REWIND, WRITEC, WRITER.
07586 M01S00070.ns2056 +++|
07587 M01S00071.ns2056 +++|
07588 M01S00072.ns2056 +++| GRM SUBR ENTRY/EXIT
07589 M01S00073.ns2056 +++| REWIND XXJ,R
07590 M01S00074.ns2056 +++| READ XXJ SET READ FUNCTION
07591 M01S00075.ns2056 +++| GRM1 READC XXJ,GXJA,8
| Line S00076 Modification History |
M01 (Added by) | ns2056 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07592 M02S00076.v23l617 ---| NZ X1,GRM7 IF *CRM* CARD NOT FOUND
| Line S00029 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07593 M01S00029.v23l617 +++| NZ X1,GRM7 IF *CRM* STATEMENT NOT FOUND
| Line S00077 Modification History |
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act
----------------------------+
07594 M01S00077.ns2056 +++| SA5 GXJA
07595 M01S00078.ns2056 +++| SX3 3RCRM SEARCH FOR *CRM* CARD
07596 M01S00079.ns2056 +++| MX0 18
07597 M01S00080.ns2056 +++| LX3 59-17
07598 M01S00081.ns2056 +++| BX3 X3-X5
07599 M01S00082.ns2056 +++| BX3 X0*X3
07600 M01S00083.ns2056 +++| ZR X3,GRM2 IF *CRM* CARD
07601 M01S00084.ns2056 +++| EQ GRM1 LOOP
07602 M01S00085.ns2056 +++|
07603 M01S00086.ns2056 +++|* PROCESS *CRM* CARD.
07604 M01S00087.ns2056 +++|
07605 M01S00088.ns2056 +++| GRM2 SB7 GXJP
07606 M01S00089.ns2056 +++| RJ UPC UNPACK CARD
07607 M01S00090.ns2056 +++| MX0 42
07608 M01S00091.ns2056 +++| SA2 B7+1 FILE NAME FROM *CRM* CARD
07609 M01S00092.ns2056 +++| BX2 X0*X2
07610 M01S00093.ns2056 +++| SA3 XXPFN FILE NAME FROM DIRECTIVE
07611 M01S00094.ns2056 +++| BX3 X0*X3
07612 M01S00095.ns2056 +++| IX4 X2-X3
07613 M01S00096.ns2056 +++| NZ X4,GRM1 IF FILE NAME DOES NOT MATCH
07614 M01S00097.ns2056 +++|
07615 M01S00098.ns2056 +++|* SEARCH FOR *RMKDEF*.
07616 M01S00099.ns2056 +++|
07617 M01S00100.ns2056 +++| GRM3 READC XXJ,GXJA,8
07618 M01S00101.ns2056 +++| ZR X1,GRM5 IF BUFFER TRANSFER COMPLETE
07619 M01S00102.ns2056 +++| SA2 GRMA *RMKDEF* FLAG
07620 M01S00103.ns2056 +++| ZR X2,GRM7 IF NO *RMKDEF'S* ENCOUNTERED
07621 M01S00104.ns2056 +++| GRM4 WRITER ZZZZZDR,R
07622 M01S00105.ns2056 +++| REWIND ZZZZZDR,R
07623 M01S00106.ns2056 +++| MX1 0
07624 M01S00107.ns2056 +++| EQ GRMX RETURN
07625 M01S00108.ns2056 +++|
07626 M01S00109.ns2056 +++| GRM5 SA2 GRMB CHECK FOR *RMKDEF*
07627 M01S00110.ns2056 +++| SA5 GXJA
07628 M01S00111.ns2056 +++| MX0 36
07629 M01S00112.ns2056 +++| BX3 X2-X5
07630 M01S00113.ns2056 +++| BX3 X0*X3
07631 M01S00114.ns2056 +++| NZ X3,GRM6 IF NO *RMKDEF* CARD
07632 M01S00115.ns2056 +++| SB7 GXJP
07633 M01S00116.ns2056 +++| RJ UPC UNPACK CONTROL CARD
07634 M01S00117.ns2056 +++| SA2 B7+1 FILE NAME FROM *RMKDEF* CARD
07635 M01S00118.ns2056 +++| MX0 42
07636 M01S00119.ns2056 +++| BX2 X0*X2
07637 M01S00120.ns2056 +++| SA3 XXPFN
07638 M01S00121.ns2056 +++| BX3 X0*X3
07639 M01S00122.ns2056 +++| IX4 X2-X3
07640 M01S00123.ns2056 +++| NZ X4,GRM7 IF FILE NAMES DO NOT MATCH
07641 M01S00124.ns2056 +++| SA3 GRMD
07642 M01S00125.ns2056 +++| BX6 X3
07643 M01S00126.ns2056 +++| SA6 A2 REPLACE FILE NAME WITH *FET* NAME
07644 M01S00127.ns2056 +++| SA3 GRMB
07645 M01S00128.ns2056 +++| BX6 X3
07646 M01S00129.ns2056 +++| SA6 B7
07647 M01S00130.ns2056 +++| SB5 B7+
07648 M01S00131.ns2056 +++| RJ PAC PACK CONTROL CARD
07649 M01S00132.ns2056 +++| MX6 0
07650 M01S00133.ns2056 +++| SB2 B2+B1
07651 M01S00134.ns2056 +++| SA6 GXJP+B2
07652 M01S00135.ns2056 +++|
07653 M01S00136.ns2056 +++|* PROCESS *RMKDEF* CARDS
07654 M01S00137.ns2056 +++|
07655 M01S00138.ns2056 +++| WRITEC ZZZZZDR,GXJP
07656 M01S00139.ns2056 +++| SX6 1
07657 M01S00140.ns2056 +++| SA6 GRMA SET *RMKDEF* FLAG
07658 M01S00141.ns2056 +++| EQ GRM3 PROCESS NEXT CARD
07659 M01S00142.ns2056 +++|
07660 M01S00143.ns2056 +++| GRM6 SA2 GRMA
07661 M01S00144.ns2056 +++| ZR X2,GRM3 IF *RMKDEF* NOT FOUND YET
07662 M01S00145.ns2056 +++| EQ GRM4 END OF PROCESSING
07663 M01S00146.ns2056 +++|
07664 M01S00147.ns2056 +++| GRM7 ERROR GRMC,,,GRMX,,E ERROR IN BUILDING *RMKDEF* FILE
07665 M01S00148.ns2056 +++|
07666 M01S00149.ns2056 +++| GRMA CON 0 *RMKDEF* FLAG
07667 M01S00150.ns2056 +++| GRMB DATA C*RMKDEF*
07668 M01S00151.ns2056 +++| GRMC DATA 20H0 *****
07669 M01S00152.ns2056 +++| DATA C*ERROR IN BUILDING RMKDEF FILE.*
07670 M01S00153.ns2056 +++| GRMCL EQU *-GRMC
07671 M01S00154.ns2056 +++| GRMD DATA C*ZZZDATA*
07672 M00S06584.dmrec +++| GXJ SPACE 4,25
07673 M00S06585.dmrec +++|** GXJ - GET *XXJ* FILE (XX=DATA BASE).
07674 M00S06586.dmrec +++|*
07675 M00S06587.dmrec +++|* *GXJ* GETS THE *XXJ* FILE (XX=DATA BASE) FROM *TAF*-S
07676 M00S06588.dmrec +++|* USER INDEX AND PROCESSES USER (OR ACCOUNT) AND *CRM* CARDS
07677 M00S06589.dmrec +++|* (FOR MAXIMUM RECORD LENGTH AND MAXIMUM KEY LENGTH ONLY).
07678 M00S06590.dmrec +++|* A PREVIOUSLY OPENED *XXJ* FILE IS RETURNED.
07679 M00S06591.dmrec +++|* THE OPENED *XXJ* FILE IS REWOUND AFTER PROCESSING.
07680 M00S06592.dmrec +++|*
07681 M00S06593.dmrec +++|* ENTRY (X5) = DATA BASE NAME (12/XX,48/0).
07682 M00S06594.dmrec +++|*
07683 M00S06595.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
07684 M00S06596.dmrec +++|* (X1) = 1, IF ERRORS ENCOUNTERED.
07685 M00S06597.dmrec +++|* (XXMRL) = MAXIMUM RECORD LENGTH IN DATA BASE.
07686 M00S06598.dmrec +++|* (XXMKL) = MAXIMUM KEY LENGTH.
07687 M00S06599.dmrec +++|* (XXUSER) = CURRENT USER NAME.
07688 M00S06600.dmrec +++|* (XXPW) = CURRENT PASSWORD.
07689 M00S06601.dmrec +++|* (XXFAM) = CURRENT FAMILY.
07690 M00S06602.dmrec +++|*
07691 M00S06603.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
07692 M00S06604.dmrec +++|* A - 1, 2, 3, 5, 6, 7.
07693 M00S06605.dmrec +++|* B - 6, 7.
07694 M00S06606.dmrec +++|*
07695 M00S06607.dmrec +++|* CALLS ALC, CER, CMM, DXB, UPC.
07696 M00S06608.dmrec +++|*
| Line S06609 Modification History |
M01 (Removed by) | ns2431 |
Seq # *Modification Id* Act
----------------------------+
07697 M01S06609.ns2431 ---|* MACROS ERROR, GET, READ, READC, RETURN, REWIND, WRITEW.
| Line S00001 Modification History |
M01 (Added by) | ns2431 |
Seq # *Modification Id* Act
----------------------------+
07698 M01S00001.ns2431 +++|* MACROS ERROR, GET, GETPFP, READ, READC, RETURN, REWIND,
07699 M01S00002.ns2431 +++|* SETPFP, WRITEW.
07700 M00S06610.dmrec +++|
07701 M00S06611.dmrec +++|
07702 M00S06612.dmrec +++| GXJ SUBR ENTRY/EXIT
07703 M00S06613.dmrec +++| BX0 X5 SAVE DATA BASE NAME
07704 M00S06614.dmrec +++| RETURN XXJ,R RETURN PREVIOUS XXJ FILE
07705 M00S06615.dmrec +++| GXJ1 SX1 1RJ
07706 M00S06616.dmrec +++| SX6 B1
07707 M00S06617.dmrec +++| LX1 -18
07708 M00S06618.dmrec +++| IX5 X0+X1 XXJ (WHERE XX=DATA BASE NAME)
07709 M00S06619.dmrec +++| BX7 X5+X6
07710 M00S06620.dmrec +++| SA7 XXJ XXJ NAME IN FET
07711 M00S06621.dmrec +++| LX6 44 ERROR PROCESSING BIT
07712 M00S06622.dmrec +++| SA1 A7+B1
07713 M00S06623.dmrec +++| BX6 X6+X1
07714 M00S06624.dmrec +++| SA6 A1
07715 M01S00003.ns2431 +++| GETPFP GXJA SAVE CURRENT FAMILY NAME
07716 M01S00004.ns2431 +++| SETPFP GXJV CHANGE TO FAMILY WHERE XXJ FILE RESIDES
07717 M00S06625.dmrec +++| SA3 =0L"USNM"
07718 M00S06626.dmrec +++| GET XXJ,,A3 GET XXJ FILE FROM *TAF-S* USER INDEX
07719 M01S00005.ns2431 +++| SX2 10B *SETPFP* FLAG BIT
07720 M01S00006.ns2431 +++| SA1 GXJA
07721 M01S00007.ns2431 +++| BX7 X2+X1
07722 M01S00008.ns2431 +++| SA7 A1
07723 M01S00009.ns2431 +++| SETPFP GXJA RESET TO CURRENT FAMILY
07724 M00S06627.dmrec +++| SA5 XXJ
07725 M00S06628.dmrec +++| SX2 XXJ
07726 M00S06629.dmrec +++| RJ CER CHECK ERROR
07727 M00S06630.dmrec +++| NZ X1,GXJ7 IF ERROR FOUND
| Line S06631 Modification History |
M01 (Removed by) | dmrec11 |
Seq # *Modification Id* Act
----------------------------+
07728 M01S06631.dmrec11 ---| SX1 1R
07729 M01S06632.dmrec11 ---| MX3 42
07730 M01S06633.dmrec11 ---| BX5 X3*X5
07731 M01S06634.dmrec11 ---| LX1 36
07732 M01S06635.dmrec11 ---| BX0 X1+X5
| Line S00002 Modification History |
M01 (Added by) | dmrec11 |
Seq # *Modification Id* Act
----------------------------+
07733 M01S00002.dmrec11 +++| MX0 42
07734 M01S00003.dmrec11 +++| BX5 X0*X5
07735 M00S06636.dmrec +++|
07736 M00S06637.dmrec +++|* PROCESS XXJ HEADER.
07737 M00S06638.dmrec +++|
07738 M00S06639.dmrec +++| REWIND XXJ,R
07739 M00S06640.dmrec +++| READ XXJ
| Line S06641 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07740 M01S06641.v23l617 ---| READC XXJ,GXJA,8 READ FIRST CARD ON XXJ FILE
| Line S00030 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07741 M01S00030.v23l617 +++| READC XXJ,GXJA,8 READ FIRST STATEMENT ON XXJ FILE
07742 M00S06642.dmrec +++| SA1 GXJA
| Line S06643 Modification History |
M01 (Removed by) | dmrec11 |
Seq # *Modification Id* Act
----------------------------+
07743 M01S06643.dmrec11 ---| BX7 X1-X5
07744 M01S06644.dmrec11 ---| BX6 X1-X0
07745 M01S06645.dmrec11 ---| ZR X7,GXJ2 IF HEADER WORD ON XXJ FILE MATCHES
07746 M01S06646.dmrec11 ---| NZ X6,GXJ8 IF NO HEADER WORD ON XXJ FILE
| Line S00004 Modification History |
M01 (Added by) | dmrec11 |
Seq # *Modification Id* Act
----------------------------+
07747 M01S00004.dmrec11 +++| RJ ZFN ZERO FILL NAME
07748 M01S00005.dmrec11 +++| BX7 X1-X5
07749 M01S00006.dmrec11 +++| NZ X7,GXJ8 IF HEADER ON *XXJ* FILE DOES NOT MATCH
07750 M00S06647.dmrec +++|
07751 M00S06648.dmrec +++|* PROCESS *ACCOUNT* OR *USER* CARD.
07752 M00S06649.dmrec +++|
| Line S06650 Modification History |
M01 (Removed by) | dmrec11 |
Seq # *Modification Id* Act
----------------------------+
07753 M01S06650.dmrec11 ---| GXJ2 READC XXJ,GXJA,8 READ SECOND CARD ON XXJ FILE
| Line S00007 Modification History |
M01 (Added by) | dmrec11 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07754 M02S00007.v23l617 ---| READC XXJ,GXJA,8 READ SECOND CARD ON XXJ FILE
| Line S00031 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07755 M01S00031.v23l617 +++| READC XXJ,GXJA,8 READ SECOND STATEMENT ON XXJ FILE
07756 M00S06651.dmrec +++| SB7 GXJP FWA TO UNPACK CARD
07757 M00S06652.dmrec +++| SA5 GXJA FIRST WORD TO UNPACK
07758 M00S06653.dmrec +++| RJ UPC UNPACK CONTROL CARD
07759 M00S06654.dmrec +++| NZ X6,GXJ9 IF ERROR ON UNPACK
07760 M00S06655.dmrec +++| MX3 42
07761 M00S06656.dmrec +++| SA1 B7
07762 M00S06657.dmrec +++| BX1 X3*X1 CHECK FOR ACCOUNT NUMBER
| Line S06658 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07763 M01S06658.v23l617 ---| SA3 B7+B1 USER NUMBER
| Line S00032 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07764 M01S00032.v23l617 +++| SA3 B7+B1 USER NAME
07765 M00S06659.dmrec +++| SA2 GXJB
07766 M00S06660.dmrec +++| SA5 GXJC USER CARD
07767 M00S06661.dmrec +++| BX2 X1-X2
07768 M00S06662.dmrec +++| BX5 X1-X5
| Line S06663 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07769 M01S06663.v23l617 ---| ZR X2,GXJ3 IF ACCOUNT CARD FOUND
07770 M01S06664.v23l617 ---| NZ X5,GXJ10 IF NO USER CARD FOUND
| Line S00033 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07771 M01S00033.v23l617 +++| ZR X2,GXJ3 IF ACCOUNT STATEMENT FOUND
07772 M01S00034.v23l617 +++| NZ X5,GXJ10 IF NO USER STATEMENT FOUND
07773 M00S06665.dmrec +++| GXJ3 BX6 X3
| Line S06666 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07774 M01S06666.v23l617 ---| SA6 XXUSER STORE USER NUMBER
| Line S00035 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07775 M01S00035.v23l617 +++| SA6 XXUSER STORE USER NAME
07776 M00S06667.dmrec +++| SA3 A3+B1 PASSWORD
07777 M00S06668.dmrec +++| BX7 X3
07778 M00S06669.dmrec +++| SA7 XXPW STORE PASSWORD
07779 M00S06670.dmrec +++| SA3 A3+B1 POSSIBLE FAMILY
07780 M00S06671.dmrec +++| BX7 X3
07781 M00S06672.dmrec +++| SA7 XXFAM STORE FAMILY
07782 M00S06673.dmrec +++|
07783 M00S06674.dmrec +++|* PROCESS *BRF* CARD.
07784 M00S06675.dmrec +++|
07785 M00S06676.dmrec +++| READC XXJ,GXJA,8 READ POSSIBLE *BRF* CARD
07786 M00S06677.dmrec +++| NZ X1,GXJ20 IF NO *BRF* CARD
07787 M00S06678.dmrec +++| SB7 GXJP FWA TO UNPACK
07788 M00S06679.dmrec +++| SA5 GXJA FIRST WORD TO UNPACK
| Line S06680 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07789 M01S06680.v23l617 ---| RJ UPC UNPACK CARD IMAGE
| Line S00036 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07790 M01S00036.v23l617 +++| RJ UPC UNPACK STATEMENT IMAGE
07791 M00S06681.dmrec +++| NZ X6,GXJ20 IF ERROR IN UNPACKING CARD
07792 M00S06682.dmrec +++| SA5 GXJA FIRST PARAMETER UNPACKED
07793 M00S06683.dmrec +++| MX0 18 MASK FOR 3 CHARACTERS
07794 M00S06684.dmrec +++| SX3 3RBRF CHARACTER STRING *BRF*
07795 M00S06685.dmrec +++| LX3 59-17 POSITION *BRF*
07796 M00S06686.dmrec +++| BX3 X3-X5 COMPARE WITH THE INPUT CARD
07797 M00S06687.dmrec +++| BX3 X0*X3 ONLY 3 CHARACTERS
| Line S06688 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07798 M01S06688.v23l617 ---| NZ X3,GXJ20 IF NO *BRF* CARD FOUND
| Line S00037 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07799 M01S00037.v23l617 +++| NZ X3,GXJ20 IF NO *BRF* STATEMENT FOUND
07800 M00S06689.dmrec +++| SX1 2R00 SET NUMBER OF *BRF-S* TO ZERO
07801 M00S06690.dmrec +++| LX1 59-11 POSITION DIGITS
07802 M00S06691.dmrec +++| ZR B6,GXJ3.1 IF NO PARAMETER - ASSUME 0
07803 M00S06692.dmrec +++| SA1 GXJP+1 NUMBER FROM *BRF* CARD
07804 M00S06693.dmrec +++| GXJ3.1 SB7 B0+ SET OCTAL BASE FOR CONVERSION
07805 M00S06694.dmrec +++| MX0 48 MASK FOR PARAMETER
07806 M00S06695.dmrec +++| BX5 X0*X1 REMOVE TERMINATOR
07807 M00S06696.dmrec +++| RJ DXB CONVERT TO BINARY
07808 M00S06697.dmrec +++| NZ X4,GXJ21 IF ERROR IN CONVERSION
07809 M00S06698.dmrec +++| SX3 BMAX
07810 M00S06699.dmrec +++| IX5 X3-X6
07811 M00S06700.dmrec +++| NG X5,GXJ21 IF VALUE TOO LARGE
07812 M00S06701.dmrec +++| SA6 XXBRF SAVE NUMBER OF *BRF-S*
07813 M00S06702.dmrec +++|
07814 M00S06703.dmrec +++|* SKIP ALL CARDS EXCEPT *CRM* CARDS.
07815 M00S06704.dmrec +++|
07816 M00S06705.dmrec +++| SX6 B1
07817 M00S06706.dmrec +++| SA6 GXJD SET FLAG FOR NO CRM CARD
07818 M00S06707.dmrec +++| GXJ4 READC XXJ,GXJA,8 READ NEXT CARD
07819 M00S06708.dmrec +++| NZ X1,GXJ6 IF ALL STATEMENTS ON XXJ READ
07820 M00S06709.dmrec +++| SA5 GXJA CHECK FOR CRM CARD
07821 M00S06710.dmrec +++| MX0 18
07822 M00S06711.dmrec +++| SX3 3RCRM
07823 M00S06712.dmrec +++| LX3 59-17
07824 M00S06713.dmrec +++| BX3 X3-X5
07825 M00S06714.dmrec +++| BX3 X0*X3
07826 M00S06715.dmrec +++| NZ X3,GXJ4 IF NOT CRM CARD
07827 M00S06716.dmrec +++|
| Line S06717 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07828 M01S06717.v23l617 ---|* PROCESS *CRM* CARD FOR FILENAME AND RECORD LENGTH.
| Line S00038 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07829 M01S00038.v23l617 +++|* PROCESS *CRM* STATEMENT FOR FILENAME AND RECORD LENGTH.
07830 M00S06718.dmrec +++|
07831 M00S06719.dmrec +++| SX6 B0
07832 M00S06720.dmrec +++| SA6 GXJD CLEAR FLAG FOR NO CRM CARD
07833 M00S06721.dmrec +++| SB7 GXJP FWA TO UNPACK CARD
07834 M00S06722.dmrec +++| RJ UPC UNPACK CARD
07835 M00S06723.dmrec +++| NZ X6,GXJ11 IF ERROR IN ARGUMENTS
07836 M00S06724.dmrec +++| SA1 XXJ
07837 M00S06725.dmrec +++| LE B6,B1,GXJ12 IF NO FILE NAME
07838 M00S06726.dmrec +++| SA2 B7+B1 FILE NAME FROM CRM CARD
07839 M00S06727.dmrec +++| MX6 12 MASK FOR DATA BASE
07840 M00S06728.dmrec +++| BX1 X6*X1 DATA BASE
07841 M00S06729.dmrec +++| BX3 X6*X2 DATA BASE OF FILE
07842 M00S06730.dmrec +++| IX3 X3-X1
| Line S06731 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07843 M01S06731.v23l617 ---| NZ X3,GXJ13 IF ILLEGAL DATA BASE
| Line S00039 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07844 M01S00039.v23l617 +++| NZ X3,GXJ13 IF INCORRECT DATA BASE
07845 M00S06732.dmrec +++|
| Line S00001 Modification History |
M01 (Added by) | ns2263 |
Seq # *Modification Id* Act
----------------------------+
07846 M01S00001.ns2263 +++|* CHECK FOR RECOVERABLE FILE.
07847 M01S00002.ns2263 +++|
07848 M01S00003.ns2263 +++| SB7 B6-10
07849 M01S00004.ns2263 +++| LT B7,GXJ4 IF RECOVERABLE PARAMETER NOT SPECIFIED
07850 M01S00005.ns2263 +++| SA5 A2+8 RECOVERABLE PARAMETER
07851 M01S00006.ns2263 +++| ZR X5,GXJ4 IF NOT SPECIFIED, NON-RECOVERABLE
07852 M01S00007.ns2263 +++| SX3 1RN
07853 M01S00008.ns2263 +++| MX0 6
07854 M01S00009.ns2263 +++| LX3 59-5
07855 M01S00010.ns2263 +++| BX5 X0*X5
07856 M01S00011.ns2263 +++| IX3 X3-X5
07857 M01S00012.ns2263 +++| ZR X3,GXJ4 IF NOT RECOVERABLE
07858 M01S00013.ns2263 +++| SX3 1RR
07859 M01S00014.ns2263 +++| LX3 59-5
07860 M01S00015.ns2263 +++| IX3 X3-X5
07861 M01S00016.ns2263 +++| NZ X3,GXJ22 IF INCORRECT PARAMETER
07862 M01S00017.ns2263 +++| SB7 GXJP RESET B7 FOR ENTRY TO *DXB*
07863 M01S00018.ns2263 +++|
07864 M00S06733.dmrec +++|* PROCESS MAXIMUM RECORD LENGTH.
07865 M00S06734.dmrec +++|
07866 M00S06735.dmrec +++| SB6 B6-7
07867 M00S06736.dmrec +++| LT B6,GXJ14 IF NO MAXIMUM RECORD LENGTH SPECIFIED
07868 M00S06737.dmrec +++| SA5 A2+5 MAXIMUM RECORD LENGTH
07869 M00S06738.dmrec +++| RJ DXB DISPLAY CODE TO BINARY
| Line S06739 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07870 M01S06739.v23l617 ---| NZ X4,GXJ15 IF ILLEGAL LENGTH
| Line S00040 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07871 M01S00040.v23l617 +++| NZ X4,GXJ15 IF INCORRECT LENGTH
07872 M00S06740.dmrec +++| ZR X6,GXJ15 IF ZERO RECORD LENGTH
07873 M00S06741.dmrec +++| SA5 XXMRL GET PREVIOUS MAXIMUM RECORD LENGTH
07874 M00S06742.dmrec +++| IX5 X5-X6
07875 M00S06743.dmrec +++| PL X5,GXJ5 IF NOT GREATER THAN MAXIMUM LENGTH
07876 M00S06744.dmrec +++| SA6 A5 STORE NEW MAXIMUM LENGTH
07877 M00S06745.dmrec +++| GXJ5 SB6 B6-B1
07878 M00S06746.dmrec +++| LT B6,GXJ16 IF NO KEY LENGTH SPECIFIED
07879 M00S06747.dmrec +++| SA5 A2+6 MAX KEY LENGTH
07880 M00S06748.dmrec +++| RJ DXB DISPLAY TO BINARY
| Line S06749 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07881 M01S06749.v23l617 ---| NZ X4,GXJ17 IF ILLEGAL LENGTH
| Line S00041 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07882 M01S00041.v23l617 +++| NZ X4,GXJ17 IF INCORRECT LENGTH
07883 M00S06750.dmrec +++| ZR X6,GXJ17 IF ZERO KEY LENGTH
07884 M00S06751.dmrec +++| SA5 XXMKL GET PREVIOUS LENGTH
07885 M00S06752.dmrec +++| IX5 X5-X6
07886 M00S06753.dmrec +++| PL X5,GXJ4 IF PREVIOUS GREATER THAN CURRENT
07887 M00S06754.dmrec +++| SA6 A5+ NEW MAX
07888 M00S06755.dmrec +++| EQ GXJ4 PROCESS NEXT CARD
07889 M00S06756.dmrec +++|
07890 M00S06757.dmrec +++|* *XXJ* FILE PROCESSED.
07891 M00S06758.dmrec +++|
07892 M00S06759.dmrec +++| GXJ6 REWIND XXJ,R REWIND *XXJ* FILE
07893 M00S06760.dmrec +++| SA2 GXJD FLAG FOR NO CRM CARD
| Line S06761 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07894 M01S06761.v23l617 ---| NZ X2,GXJ18 IF NO CRM CARD FOUND
07895 M01S06762.v23l617 ---| USERNUM GXJA GET USER NUMBER
07896 M01S06763.v23l617 ---| SA1 XXUSER USER NUMBER FROM XXJ FILE
07897 M01S06764.v23l617 ---| SA2 GXJA USER NUMBER FROM USER CARD
| Line S00042 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07898 M01S00042.v23l617 +++| NZ X2,GXJ18 IF NO CRM STATEMENT FOUND
07899 M01S00043.v23l617 +++| USERNUM GXJA GET USER NAME
07900 M01S00044.v23l617 +++| SA1 XXUSER USER NAME FROM XXJ FILE
07901 M01S00045.v23l617 +++| SA2 GXJA USER NAME FROM USER CARD
07902 M00S06765.dmrec +++| BX1 X1-X2
| Line S06766 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07903 M01S06766.v23l617 ---| ZR X1,GXJX IF USER NUMBER MATCHES
| Line S00046 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07904 M01S00046.v23l617 +++| ZR X1,GXJX IF USER NAME MATCHES
07905 M00S06767.dmrec +++| MESSAGE GXJRH,,R
07906 M00S06768.dmrec +++| EQ GXJ19 EXIT
07907 M00S06769.dmrec +++|
07908 M00S06770.dmrec +++|
07909 M00S06771.dmrec +++|* ERROR EXITS.
07910 M00S06772.dmrec +++|
07911 M00S06773.dmrec +++| GXJ7 ERROR GXJE,XXJ,,GXJX,,E *XXJ FILE NOT FOUND*
07912 M00S06774.dmrec +++|
07913 M00S06775.dmrec +++| GXJ8 ERROR GXJF,XXJ,,GXJX,,E *MISSING HEADER WORD ON XXJ*
07914 M00S06776.dmrec +++|
07915 M00S06777.dmrec +++| GXJ9 ERROR GXJG,,GXJA,GXJX,,E *ERROR IN ACCOUNT/USER CARD*
07916 M00S06778.dmrec +++|
| Line S06779 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07917 M01S06779.v23l617 ---| GXJ10 ERROR GXJH,XXJ,,GXJX,,E *NO ACCOUNT/USER CARD IN XXJ*
| Line S00047 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07918 M01S00047.v23l617 +++| GXJ10 ERROR GXJH,XXJ,,GXJX,,E *NO ACCOUNT/USER STATEMENT IN XXJ*
07919 M00S06780.dmrec +++|
| Line S06781 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07920 M01S06781.v23l617 ---| GXJ11 ERROR GXJI,,GXJA,GXJX,,E *ERROR IN CRM CARD ARGUMENTS*
| Line S00048 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07921 M01S00048.v23l617 +++| GXJ11 ERROR GXJI,,GXJA,GXJX,,E *ERROR IN CRM STATEMENT ARGUMENTS*
07922 M00S06782.dmrec +++|
07923 M00S06783.dmrec +++| GXJ12 ERROR GXJJ,,GXJA,GXJX,,E *NO FILE NAME SPECIFIED ON CRM*
07924 M00S06784.dmrec +++|
07925 M00S06785.dmrec +++| GXJ13 ERROR GXJK,XXJ,,GXJX,,E *DATA BASE NAME IN CRM FILE NAME*
07926 M00S06786.dmrec +++|
07927 M00S06787.dmrec +++| GXJ14 ERROR GXJL,,GXJA,GXJX,,E *NO MRL SPECIFIED*
07928 M00S06788.dmrec +++|
07929 M00S06789.dmrec +++| GXJ15 ERROR GXJM,,GXJA,GXJX,,E *MRL PARAMETER NOT ON CRM CARD*
07930 M00S06790.dmrec +++|
07931 M00S06791.dmrec +++| GXJ16 ERROR GXJN,,GXJA,GXJX,,E *NO KEY LENGTH SPECIFIED ON CRM*
07932 M00S06792.dmrec +++|
07933 M00S06793.dmrec +++| GXJ17 ERROR GXJO,,GXJA,GXJX,,E *KL PARAMETER NOT ON CRM CARD*
07934 M00S06794.dmrec +++|
| Line S06795 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07935 M01S06795.v23l617 ---| GXJ18 ERROR GXJQ,XXJ,,GXJX,,E *NO CRM CARD FOUND IN XXJ FILE*
| Line S00049 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07936 M01S00049.v23l617 +++| GXJ18 ERROR GXJQ,XXJ,,GXJX,,E *NO CRM STATEMENT FOUND IN FILE*
07937 M00S06796.dmrec +++|
| Line S00019 Modification History |
M01 (Added by) | ns2263 |
Seq # *Modification Id* Act
----------------------------+
07938 M01S00019.ns2263 +++| GXJ19 ERROR GXJR,,,DMR6,,E *USER NOT VALIDATED FOR ACCESS*
07939 M01S00020.ns2263 +++|
| Line S06797 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07940 M01S06797.v23l617 ---| GXJ20 ERROR GXJS,XXJ,,GXJX,,E *NO BRF CARD FOUND IN XXJ FILE.*
| Line S00050 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07941 M01S00050.v23l617 +++| GXJ20 ERROR GXJS,XXJ,,GXJX,,E *NO BRF STATEMENT FOUND IN FILE.*
07942 M00S06798.dmrec +++|
07943 M00S06799.dmrec +++| GXJ21 ERROR GXJT,,GXJA,GXJX,,E *ERROR IN BRF PARAMETER IN XXJ*
07944 M00S06800.dmrec +++|
| Line S00021 Modification History |
M01 (Added by) | ns2263 |
Seq # *Modification Id* Act
----------------------------+
07945 M01S00021.ns2263 +++| GXJ22 ERROR GXJU,,GXJA,GXJX,,E *RECOVERABLE PARAMETER INCORRECT*
07946 M00S06801.dmrec +++|
| Line S06802 Modification History |
M01 (Removed by) | ns2263 |
Seq # *Modification Id* Act
----------------------------+
07947 M01S06802.ns2263 ---| GXJ19 ERROR GXJR,,,DMR6,,E *USER NOT VALIDATED FOR ACCESS*
07948 M01S06803.ns2263 ---|
07949 M00S06804.dmrec ---|* ERROR MESSAGES.
07950 M00S06805.dmrec ---|
07951 M00S06806.dmrec ---| GXJE DATA 20H0 *****
07952 M00S06807.dmrec ---| DATA C*XXJ FILE NOT FOUND.*
07953 M00S06808.dmrec ---| GXJEL EQU *-GXJE
07954 M00S06809.dmrec ---| GXJF DATA 20H0 *****
07955 M00S06810.dmrec ---| DATA C*MISSING HEADER WORD ON XXJ FILE.*
07956 M00S06811.dmrec ---| GXJFL EQU *-GXJF
07957 M00S06812.dmrec ---| GXJG DATA 20H0 *****
| Line S06813 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07958 M01S06813.v23l617 ---| DATA C*ERROR IN ACCOUNT/USER CARD ARGUMENT.*
| Line S00051 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07959 M01S00051.v23l617 +++| DATA C*ERROR IN USER STATEMENT ARGUMENT.*
07960 M00S06814.dmrec +++| GXJGL EQU *-GXJG
07961 M00S06815.dmrec +++| GXJH DATA 20H0 *****
| Line S06816 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07962 M01S06816.v23l617 ---| DATA C*NO ACCOUNT/USER CARD IN XXJ FILE.*
| Line S00052 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07963 M01S00052.v23l617 +++| DATA C*NO USER STATEMENT IN XXJ FILE.*
07964 M00S06817.dmrec +++| GXJHL EQU *-GXJH
07965 M00S06818.dmrec +++| GXJI DATA 20H0 *****
| Line S06819 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07966 M01S06819.v23l617 ---| DATA C*ERROR IN CRM CARD ARGUMENTS.*
| Line S00053 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07967 M01S00053.v23l617 +++| DATA C*ERROR IN CRM STATEMENT ARGUMENTS.*
07968 M00S06820.dmrec +++| GXJIL EQU *-GXJI
07969 M00S06821.dmrec +++| GXJJ DATA 20H0 *****
07970 M00S06822.dmrec +++| DATA C*NO FILE NAME SPECIFIED ON CRM CARD.*
07971 M00S06823.dmrec +++| GXJJL EQU *-GXJJ
07972 M00S06824.dmrec +++| GXJK DATA 20H0 *****
07973 M00S06825.dmrec +++| DATA C*DATA BASE NAME IN CRM FILE NAME DOES NOT MATCH XXJ.*
07974 M00S06826.dmrec +++| GXJKL EQU *-GXJK
07975 M00S06827.dmrec +++| GXJL DATA 20H0 *****
07976 M00S06828.dmrec +++| DATA C*NO MAXIMUM RECORD LENGTH SPECIFIED ON CRM CARD.*
07977 M00S06829.dmrec +++| GXJLL EQU *-GXJL
07978 M00S06830.dmrec +++| GXJM DATA 20H0 *****
| Line S06831 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07979 M01S06831.v23l617 ---| DATA C*MRL PARAMETER ON CRM CARD NOT SPECIFIED PROPERLY.*
| Line S00054 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07980 M01S00054.v23l617 +++| DATA C*MRL PARAMETER ON CRM STATEMENT NOT SPECIFIED PROPERLY
07981 M01S00055.v23l617 +++|,.*
07982 M00S06832.dmrec +++| GXJML EQU *-GXJM
07983 M00S06833.dmrec +++| GXJN DATA 20H0 *****
07984 M00S06834.dmrec +++| DATA C*NO KEY LENGTH SPECIFIED ON CRM CARD.*
07985 M00S06835.dmrec +++| GXJNL EQU *-GXJN
07986 M00S06836.dmrec +++| GXJO DATA 20H0 *****
| Line S06837 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07987 M01S06837.v23l617 ---| DATA C*KL PARAMETER ON CRM CARD NOT SPECIFIED PROPERLY.*
| Line S00056 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07988 M01S00056.v23l617 +++| DATA C*KL PARAMETER ON CRM STATEMENT NOT SPECIFIED PROPERLY.
07989 M01S00057.v23l617 +++|,*
07990 M00S06838.dmrec +++| GXJOL EQU *-GXJO
07991 M00S06839.dmrec +++| GXJQ DATA 20H0 *****
| Line S06840 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07992 M01S06840.v23l617 ---| DATA C*NO CRM CARD FOUND IN XXJ FILE.*
| Line S00058 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
07993 M01S00058.v23l617 +++| DATA C*NO CRM STATEMENT FOUND IN XXJ FILE.*
07994 M00S06841.dmrec +++| GXJQL EQU *-GXJQ
07995 M00S06842.dmrec +++|
07996 M00S06843.dmrec +++| GXJR DATA 20H0 *****
07997 M00S06844.dmrec +++| GXJRH DATA C*USER NOT VALIDATED FOR ACCESS.*
07998 M00S06845.dmrec +++| GXJRL EQU *-GXJR
07999 M00S06846.dmrec +++|
08000 M00S06847.dmrec +++| GXJS DATA 20H *****
| Line S06848 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
08001 M01S06848.v23l617 ---| DATA C*NO BRF CARD FOUND IN XXJ FILE.*
| Line S00059 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
08002 M01S00059.v23l617 +++| DATA C*NO BRF STATEMENT FOUND IN XXJ FILE.*
08003 M00S06849.dmrec +++| GXJSL EQU *-GXJS
08004 M00S06850.dmrec +++|
08005 M00S06851.dmrec +++| GXJT DATA 20H *****
08006 M00S06852.dmrec +++| DATA C*ERROR IN BRF PARAMETER IN XXJ FILE.*
08007 M00S06853.dmrec +++| GXJTL EQU *-GXJT
08008 M00S06854.dmrec +++|
| Line S00022 Modification History |
M01 (Added by) | ns2263 |
Seq # *Modification Id* Act
----------------------------+
08009 M01S00022.ns2263 +++| GXJU DATA 20H *****
08010 M01S00023.ns2263 +++| DATA C* RECOVERABLE FILE PARAMETER MUST BE -R- OR -N-.*
08011 M01S00024.ns2263 +++| GXJUL EQU *-GXJU
08012 M01S00025.ns2263 +++|
08013 M00S06855.dmrec +++|* MISCELLANEOUS FIELDS.
08014 M00S06856.dmrec +++|
08015 M00S06857.dmrec +++| GXJA BSS 8 WORKING BUFFER
08016 M00S06858.dmrec +++| GXJB DATA 0LACCOUNT
08017 M00S06859.dmrec +++| GXJC DATA 0LUSER
08018 M00S06860.dmrec +++| GXJD BSSZ 1 FLAG FOR NO CRM CARD
08019 M00S06861.dmrec +++| GXJP BSS 15 STORAGE FOR UNPACKING CARD
| Line S00010 Modification History |
M01 (Added by) | ns2431 |
Seq # *Modification Id* Act
----------------------------+
08020 M01S00010.ns2431 +++|
08021 M01S00011.ns2431 +++|* PARAMETER BLOCK FOR *SETPFP*.
08022 M01S00012.ns2431 +++|
08023 M01S00013.ns2431 +++| GXJV VFD 42/0L"FMLY",14/,4/10B FAMILY WHERE XXJ FILE RESIDES
08024 M01S00014.ns2431 +++| BSS 2
08025 M00S06862.dmrec +++| IFV SPACE 4,10
08026 M00S06863.dmrec +++|** IFV - INITIALIZE FILES AND VARIABLES.
08027 M00S06864.dmrec +++|*
08028 M00S06865.dmrec +++|* ENTRY (B5) = NUMBER OF ENTRIES IN *TDFN* TABLE.
08029 M00S06866.dmrec +++|*
08030 M00S06867.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
08031 M00S06868.dmrec +++|* (LFNC) = 0, ALL FILES WILL BE PROCESSED.
08032 M00S06869.dmrec +++|* N, SELECTIVE FILES WILL BE PROCESSED.
08033 M00S06870.dmrec +++|* BACKUP DIRECTORY AND *XXJ* ARE ATTACHED.
08034 M00S06871.dmrec +++|*
08035 M00S06872.dmrec +++|* USES X - 0, 1, 2, 5, 6, 7.
08036 M00S06873.dmrec +++|* A - 1, 2, 6, 7.
08037 M00S06874.dmrec +++|* B - 2, 3, 4, 5.
08038 M00S06875.dmrec +++|*
08039 M00S06876.dmrec +++|* CALLS ACF, GXJ.
08040 M00S06877.dmrec +++|*
08041 M00S06878.dmrec +++|* MACROS ERROR, OPENM.
08042 M00S06879.dmrec +++|
08043 M00S06880.dmrec +++|
08044 M00S06881.dmrec +++| IFV SUBR ENTRY/EXIT
08045 M00S06882.dmrec +++| SB2 B0
08046 M00S06883.dmrec +++| SB3 B0 INITIAL INDEX INTO *TDFN* TABLE
08047 M00S06884.dmrec +++| SB4 B5-2 NUMBER OF ENTRIES IN *TDFN* TABLE
08048 M00S06885.dmrec +++| SX1 B1
08049 M00S06886.dmrec +++| NG B4,IFV4 IF NO PARAMETERS
08050 M00S06887.dmrec +++| MX0 12
08051 M00S06888.dmrec +++| IFV1 SA2 TDFN+B3 ENTRY FROM *TDFN* TABLE
08052 M00S06889.dmrec +++| BX5 X0*X2 EXTRACT DATA BASE NAME
08053 M00S06890.dmrec +++| BX6 X2-X5
08054 M00S06891.dmrec +++| NZ X6,IFV2 IF NOT DATA BASE NAME
08055 M00S06892.dmrec +++| SB2 B1 SET DATA BASE NAME FLAG
08056 M00S06893.dmrec +++| IFV2 SB3 B3+2 INCREMENT INDEX
08057 M00S06894.dmrec +++| NE B3,B5,IFV1 IF MORE ENTRIES
08058 M00S06895.dmrec +++| EQ B2,IFV3 IF NO DATA BASE NAME
08059 M00S06896.dmrec +++| SB4 2
08060 M00S06897.dmrec +++| SB5 B5-2 ADJUST TO ZERO FOR ALL FILES
08061 M00S06898.dmrec +++| NE B3,B4,IFV5 IF DATA BASE NAME NOT THE ONLY PARAMETER
08062 M00S06899.dmrec +++| IFV3 SX6 B5 NUMBER OF ENTRIES
08063 M00S06900.dmrec +++| AX6 1 ENTRIES ARE TWO WORDS LONG
08064 M00S06901.dmrec +++| SA6 LFNC SAVE NUMBER OF FILES
08065 M00S06902.dmrec +++| SA1 TDFN
08066 M00S06903.dmrec +++| BX5 X0*X1 GET DATA BASE NAME
08067 M00S06904.dmrec +++| BX6 X1
08068 M00S06905.dmrec +++| SA6 XXPFN SAVE FOR ATTACH OF BACKUP DIRECTORY
08069 M00S06906.dmrec +++| SA2 HDR1+6 LISTING HEADER
08070 M00S06907.dmrec +++| LX2 59-17
08071 M00S06908.dmrec +++| BX7 -X0*X2
08072 M00S06909.dmrec +++| BX7 X5+X7 INSERT DATA BASE NAME
08073 M00S06910.dmrec +++| LX7 17-59
08074 M00S06911.dmrec +++| SA7 A2
08075 M00S06912.dmrec +++| RJ GXJ VERIFY DATA BASE IDENTIFIER - GET XXJ FILE
08076 M00S06913.dmrec +++| NZ X1,IFVX IF DATA BASE DOES NOT EXIST
08077 M00S06914.dmrec +++| RJ ACF ATTACH BACKUP DIRECTORY
08078 M00S06915.dmrec +++| MX1 0
08079 M00S06916.dmrec +++| EQ IFVX RETURN
08080 M00S06917.dmrec +++|
08081 M00S06918.dmrec +++| IFV4 ERROR IFVA,,,IFVX,,E DATA BASE NAME OR LFN MISSING
08082 M00S06919.dmrec +++|
08083 M00S06920.dmrec +++| IFV5 ERROR IFVB,,,IFVX,,E DATA BASE AND FILES SPECIFIED
08084 M00S06921.dmrec +++|
08085 M00S06922.dmrec +++| IFVA DATA 20H0 *****
08086 M00S06923.dmrec +++| DATA C*DATA BASE NAME OR FILE NAME MISSING.*
08087 M00S06924.dmrec +++| IFVAL EQU *-IFVA
08088 M00S06925.dmrec +++|
08089 M00S06926.dmrec +++| IFVB DATA 20H0 *****
08090 M00S06927.dmrec +++| DATA C*DATA BASE NAME AND FILE NAME(S) BOTH SPECIFIED.*
08091 M00S06928.dmrec +++| IFVBL EQU *-IFVB
08092 M00S06929.dmrec +++| IGN SPACE 4,30
08093 M00S06930.dmrec +++|** IGN - IGNORE AFTER IMAGE LOG ENTRIES.
08094 M00S06931.dmrec +++|*
| Line S06932 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
08095 M01S06932.v23l617 ---|* *IGN* CRACKS THE *IGNORE* DIRECTIVE CARD AND THROUGH
| Line S00060 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
08096 M01S00060.v23l617 +++|* *IGN* CRACKS THE *IGNORE* DIRECTIVE STATEMENT AND THROUGH
08097 M00S06933.dmrec +++|* *SPR* BUILDS A TABLE OF TASK NAMES AND SEQUENCE NUMBERS
08098 M00S06934.dmrec +++|* THAT ARE TO BE IGNORED ON AN UPDATE OR RECOVER. THE
08099 M00S06935.dmrec +++|* TABLE *TTIG* CONTAINS ENTRIES FOR BOTH *TN* AND *TS*.
08100 M00S06936.dmrec +++|*
08101 M00S06937.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER.
08102 M00S06938.dmrec +++|* (X2) = NEXT WORD IN BUFFER.
08103 M00S06939.dmrec +++|* (X6) = OPERATION FLAG.
08104 M00S06940.dmrec +++|* (TYPFLG) = 0 - IF EXIT TO RECOVER PROCESSOR.
08105 M00S06941.dmrec +++|* NE. 0 - IF EXIT TO UPDATE PROCESSOR.
08106 M00S06942.dmrec +++|* (SDATE) = SAVED DATE.
08107 M00S06943.dmrec +++|* (STIME) = SAVED TIME.
08108 M00S06944.dmrec +++|* (SDATE1) = SAVED DATE1
08109 M00S06945.dmrec +++|* (STIME1) = SAVED TIME1.
08110 M00S06946.dmrec +++|* (SVSN) = SAVED VSN.
08111 M00S06947.dmrec +++|* (STDFN) = SAVED PFN.
08112 M00S06948.dmrec +++|*
08113 M00S06949.dmrec +++|* EXIT EXIT TO SPECIFIED PROCESSOR.
08114 M00S06950.dmrec +++|* (DATE) = RESTORED DATE.
08115 M00S06951.dmrec +++|* (TIME) = RESTORED TIME.
08116 M00S06952.dmrec +++|* (DATE1) = RESTORED DATE1.
08117 M00S06953.dmrec +++|* (TIME1) = RESTORED TIME1.
08118 M00S06954.dmrec +++|* (TVSN) = RESTORED VSN.
08119 M00S06955.dmrec +++|* (TDFN) = RESTORED PFN.
08120 M00S06956.dmrec +++|*
08121 M00S06957.dmrec +++|* USES A - 2, 6.
08122 M00S06958.dmrec +++|* X - 2, 4, 6.
08123 M00S06959.dmrec +++|* B - NONE.
08124 M00S06960.dmrec +++|
08125 M00S06961.dmrec +++|
08126 M00S06962.dmrec +++| IGN BSS 0 ENTRY
08127 M00S06963.dmrec +++| RJ SPR SET PARAMETERS
08128 M00S06964.dmrec +++| SX4 3RGI*
08129 M00S06965.dmrec +++| RJ CND CHECK NEXT DIRECTIVE
08130 M00S06966.dmrec +++| ZR X1,IGN1 IF DONE - ACCUMULATE TIT ENTRIES
08131 M00S06967.dmrec +++| SA2 SDATE
08132 M00S06968.dmrec +++| BX6 X2
08133 M00S06969.dmrec +++| SA6 DATE RESTORE DATE
08134 M00S06970.dmrec +++| SA2 STIME
08135 M00S06971.dmrec +++| BX6 X2
08136 M00S06972.dmrec +++| SA6 TIME RESTORE TIME
08137 M00S06973.dmrec +++| SA2 SDATE1
08138 M00S06974.dmrec +++| BX6 X2
08139 M00S06975.dmrec +++| SA6 DATE1 RESTORE DATE1
08140 M00S06976.dmrec +++| SA2 STIME1
08141 M00S06977.dmrec +++| BX6 X2
08142 M00S06978.dmrec +++| SA6 TIME1 RESTORE TIME1
08143 M00S06979.dmrec +++| SA2 SVSN
08144 M00S06980.dmrec +++| BX6 X2
08145 M00S06981.dmrec +++| SA6 TVSN RESTORE VSN
08146 M00S06982.dmrec +++| SA2 STDFN
08147 M00S06983.dmrec +++| BX6 X2
08148 M00S06984.dmrec +++| SA6 TDFN RESTORE PFN
08149 M00S06985.dmrec +++| EQ UPD2 EXIT TO UPDATE
08150 M00S06986.dmrec +++|
08151 M00S06987.dmrec +++| IGN1 CLOSEM DFIT,U
08152 M00S06988.dmrec +++| RJ RAF RETURN ALL FILES
08153 M00S06989.dmrec +++| EQ DMR3 RETURN
| Line S06990 Modification History |
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act
----------------------------+
08154 M01S06990.ns2056 ---| IRP SPACE 4,20
08155 M01S06991.ns2056 ---|** IRP - INSERT *RMKDEF* PARAMETERS.
08156 M01S06992.ns2056 ---|*
08157 M01S06993.ns2056 ---|* THIS ROUTINE INSERTS A PARAMETER INTO A PRE-DEFINED
08158 M01S06994.ns2056 ---|* *RMKDEF* CARD FOR THE RECONSTRUCTION OF THE INDEX FILE.
08159 M01S06995.ns2056 ---|*
08160 M01S06996.ns2056 ---|* ENTRY (X5) = NUMBER TO INSERT (OCTAL)
08161 M01S06997.ns2056 ---|* (B5) = INDEX INTO *RMK*.
08162 M01S06998.ns2056 ---|* (X0) = 54 BIT MASK.
08163 M01S06999.ns2056 ---|* (X3) = PARAMETER MASK.
08164 M01S07000.ns2056 ---|*
08165 M01S07001.ns2056 ---|* EXIT PARAMETER INSERTED.
08166 M01S07002.ns2056 ---|*
08167 M01S07003.ns2056 ---|* USES X - 0, 1, 6.
08168 M01S07004.ns2056 ---|* A - 6.
08169 M01S07005.ns2056 ---|* B - 2.
08170 M01S07006.ns2056 ---|*
08171 M01S07007.ns2056 ---|* CALLS CDD.
08172 M01S07008.ns2056 ---|
08173 M01S07009.ns2056 ---|
08174 M01S07010.ns2056 ---| IRP SUBR ENTRY/EXIT
08175 M01S07011.ns2056 ---| BX1 -X3*X5 MASK PARAMETER
08176 M01S07012.ns2056 ---| RJ CDD CONVERT TO DISPLAY CODE
08177 M01S07013.ns2056 ---| MX0 1
08178 M01S07014.ns2056 ---| SB2 B2-B1
08179 M01S07015.ns2056 ---| AX0 B2
08180 M01S07016.ns2056 ---| BX6 X0*X4
08181 M01S07017.ns2056 ---| SA6 BIFC +B5 INSERT
08182 M01S07018.ns2056 ---| EQ IRPX RETURN
08183 M00S07019.dmrec ---| PPS SPACE 4,20
08184 M00S07020.dmrec ---|** LBL - LOAD BLOCK.
08185 M00S07021.dmrec ---|*
08186 M00S07022.dmrec ---|* COPY THE SPECIFIED TAPE FILE TO THE FILE GIVEN.
08187 M00S07023.dmrec ---|* THE TAPE FILE MUST BE ASSIGNED, OPENED AND POSITIONED
08188 M00S07024.dmrec ---|* CORRECTLY.
08189 M00S07025.dmrec ---|*
08190 M00S07026.dmrec ---|* ENTRY TAPE (TP) IS OPENED AND POSITIONED.
08191 M00S07027.dmrec ---|* (X4) = FET ADDRESS OF RECIPIENT FILE.
08192 M00S07028.dmrec ---|*
08193 M00S07029.dmrec ---|* EXIT (X1) = 0 IF NO ERRORS.
08194 M00S07030.dmrec ---|*
08195 M00S07031.dmrec ---|* USES X - 1, 4, 6.
08196 M00S07032.dmrec ---|* A - 1, 4, 6.
08197 M00S07033.dmrec ---|* B - NONE.
08198 M00S07034.dmrec ---|*
08199 M00S07035.dmrec ---|* CALLS DER.
08200 M00S07036.dmrec ---|*
08201 M00S07037.dmrec ---|* MACROS ERROR, READ, READW, RECALL, WRITEF, WRITER,
08202 M00S07038.dmrec ---|* WRITEW.
08203 M00S07039.dmrec ---|
08204 M00S07040.dmrec ---|
08205 M00S07041.dmrec ---| LBL SUBR ENTRY/EXIT
08206 M00S07042.dmrec ---| BX6 X4
08207 M00S07043.dmrec ---| SA6 HOLD SAVE FET ADDRESS
08208 M00S07044.dmrec ---| RECALL X4
08209 M00S07045.dmrec ---| RECALL TP
08210 M00S07046.dmrec ---| LBL1 READ TP,R
08211 M00S07047.dmrec ---| LBL2 READW TP,WBUF,WBUFL
08212 M00S07048.dmrec ---| BX6 X1
08213 M00S07049.dmrec ---| SA6 HOLD1 SAVE STATUS
08214 M00S07050.dmrec ---| RJ DER DETECT END OF TAPE
08215 M00S07051.dmrec ---| NG X1,LBL1 IF END OF TAPE
08216 M00S07052.dmrec ---| NZ X1,LBLX IF ERROR
08217 M00S07053.dmrec ---| SA1 HOLD1 GET STATUS
08218 M00S07054.dmrec ---| SX6 X1-WBUF-1
08219 M00S07055.dmrec ---| NZ X6,LBL3 IF NOT ONE WORD RECORD
08220 M00S07056.dmrec ---| SX6 3REND
08221 M00S07057.dmrec ---| SA4 XXPFN
08222 M00S07058.dmrec ---| BX6 X6+X4
08223 M00S07059.dmrec ---| SA4 WBUF
08224 M00S07060.dmrec ---| BX6 X4-X6
08225 M00S07061.dmrec ---| ZR X6,LBL5 IF TRAILER RECORD FOUND
08226 M00S07062.dmrec ---| LBL3 ZR X1,LBL4 IF NO EOR/EOF
08227 M00S07063.dmrec ---| NG X1,LBL6 IF EOF/EOI - NO TRAILER RECORD FOUND
08228 M00S07064.dmrec ---|
08229 M00S07065.dmrec ---|* EOR ENCOUNTERED.
08230 M00S07066.dmrec ---|
08231 M00S07067.dmrec ---| SA4 HOLD RESTORE FET ADDRESS
08232 M00S07068.dmrec ---| WRITEW X4,WBUF,X1-WBUF
08233 M00S07069.dmrec ---| SA4 HOLD
08234 M00S07070.dmrec ---| WRITER X4,R
08235 M00S07071.dmrec ---| EQ LBL1 GET NEXT RECORD
08236 M00S07072.dmrec ---|
08237 M00S07073.dmrec ---| LBL4 SA4 HOLD
08238 M00S07074.dmrec ---| WRITEW X4,WBUF,WBUFL
08239 M00S07075.dmrec ---| EQ LBL2 GET NEXT BLOCK
08240 M00S07076.dmrec ---|
08241 M00S07077.dmrec ---| LBL5 SA4 HOLD
08242 M00S07078.dmrec ---| WRITEF X4,R
08243 M00S07079.dmrec ---| SX1 B0
08244 M00S07080.dmrec ---| EQ LBLX EXIT NORMAL
08245 M00S07081.dmrec ---|
08246 M00S07082.dmrec ---| LBL6 ERROR LBLA,,,LBLX,,E LBL - CIO ERROR
08247 M00S07083.dmrec ---|
08248 M00S07084.dmrec ---| LBLA DATA 20H0 *****
08249 M00S07085.dmrec ---| DATA C*LBL - CIO ERROR.*
08250 M00S07086.dmrec ---| LBLAL EQU *-LBLA
08251 M00S07087.dmrec ---| LDE SPACE 4,15
08252 M00S07088.dmrec ---|** LDE - LIST DIRECTORY ENTRY.
08253 M00S07089.dmrec ---|*
08254 M00S07090.dmrec ---|* ENTRY (PLIN) = LINE BUFFER.
08255 M00S07091.dmrec ---|* (PLINL) = LINE LENGTH.
08256 M00S07092.dmrec ---|* (JOBORG) = 0, IF INTERACTIVE ORIGIN.
08257 M00S07093.dmrec ---|*
08258 M00S07094.dmrec ---|* EXIT LINE LISTED, LINE COUNT ADJUSTED.
08259 M00S07095.dmrec ---|*
08260 M00S07096.dmrec ---|* USES X - 1, 2, 6.
08261 M00S07097.dmrec ---|* A - 1, 6.
08262 M00S07098.dmrec ---|* B - NONE.
08263 M00S07099.dmrec ---|*
08264 M00S07100.dmrec ---|* CALLS ALC, LPH.
08265 M00S07101.dmrec ---|*
08266 M00S07102.dmrec ---|* MACROS WRITEC, WRITER.
08267 M00S07103.dmrec ---|
08268 M00S07104.dmrec ---|
08269 M00S07105.dmrec ---| LDE SUBR ENTRY/EXIT
08270 M00S07106.dmrec ---| SA1 HDRC HEADER CONTROL
08271 M00S07107.dmrec ---| ZR X1,LDE1 IF FILE ENTRY HEADER PRINTED
08272 M00S07108.dmrec ---| MX6 0
08273 M00S07109.dmrec ---| SA6 HDRC
08274 M00S07110.dmrec ---| SX6 4 SET FILE ENTRY HEADER
08275 M00S07111.dmrec ---| RJ LPH LIST PAGE HEADER
08276 M00S07112.dmrec ---| LDE1 SA1 JOBORG JOB ORIGIN
08277 M00S07113.dmrec ---| SX2 PLIN FWA OF LINE BUFFER
08278 M00S07114.dmrec ---| NZ X1,LDE2 IF NOT INTERACTIVE ORIGIN
08279 M00S07115.dmrec ---| SX2 X2+1 SKIP CARRIAGE CONTROL WORD
08280 M00S07116.dmrec ---| LDE2 WRITEC O,X2 PRINT LINE
08281 M00S07117.dmrec ---| WRITER O
08282 M00S07118.dmrec ---| SX2 B1
08283 M00S07119.dmrec ---| RJ ALC ADVANCE LINE COUNT
08284 M00S07120.dmrec ---| EQ LDEX RETURN
08285 M00S07121.dmrec ---| LDH SPACE 4,20
08286 M00S07122.dmrec ---|** LDH - LIST DIRECTORY HEADER.
08287 M00S07123.dmrec ---|*
08288 M00S07124.dmrec ---|* THIS ROUTINE PRINTS SEVERAL LISTING HEADERS AND
08289 M00S07125.dmrec ---|* BACKUP DIRECTORY HEADER.
08290 M00S07126.dmrec ---|*
08291 M00S07127.dmrec ---|* ENTRY (A0) = FWA OF BACKUP DIRECTORY FIT.
08292 M00S07128.dmrec ---|* (X6) = 0, IF ALL PAGE HEADINGS REQUIRED.
08293 M00S07129.dmrec ---|* 1, IF ONLY DIRECTORY HEADER REQUIRED.
08294 M00S07130.dmrec ---|*
08295 M00S07131.dmrec ---|* EXIT HEADERS PRINTED, LINE COUNT ADJUSTED.
08296 M00S07132.dmrec ---|*
08297 M00S07133.dmrec ---|* USES X - 0, 1, 2, 5, 6, 7.
08298 M00S07134.dmrec ---|* A - 1, 5, 6, 7.
08299 M00S07135.dmrec ---|* B - NONE.
08300 M00S07136.dmrec ---|*
08301 M00S07137.dmrec ---|* CALLS ALC, BFL, CDD, LDE, LPH.
08302 M00S07138.dmrec ---|*
08303 M00S07139.dmrec ---|* MACROS EDATE, ETIME, GETN, REWINDM.
08304 M00S07140.dmrec ---|
08305 M00S07141.dmrec ---|
08306 M00S07142.dmrec ---| LDH SUBR ENTRY/EXIT
08307 M00S07143.dmrec ---| NZ X6,LDH1 IF DIRECTORY HEADER ONLY
08308 M00S07144.dmrec ---| SX6 B0 SET LISTING HEADER
08309 M00S07145.dmrec ---| RJ LPH LIST PAGE HEADER
08310 M00S07146.dmrec ---| LDH1 SX6 B1 SET DIRECTORY HEADER - FIRST LINE
08311 M00S07147.dmrec ---| RJ LPH LIST PAGE HEADER
08312 M00S07148.dmrec ---| SX6 B1+B1 SET DIRECTORY HEADER - SECOND LINE
08313 M00S07149.dmrec ---| RJ LPH LIST PAGE HEADER
08314 M00S07150.dmrec ---|
08315 M00S07151.dmrec ---| REWINDM A0
08316 M00S07152.dmrec ---| GETN A0,WSAB READ DIRECTORY HEADER
08317 M00S07153.dmrec ---| RJ BFL BLANK FILL LINE
08318 M00S07154.dmrec ---| SA5 WSAB+2 PACKED DATE/TIME
08319 M00S07155.dmrec ---| ETIME X5
08320 M00S07156.dmrec ---| SA6 PLIN+2 UNPACKED TIME
08321 M00S07157.dmrec ---| AX5 18
08322 M00S07158.dmrec ---| EDATE X5
08323 M00S07159.dmrec ---| SA6 PLIN+1 UNPACKED DATE
| Line S07160 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08324 M01S07160.ns2023 ---| SA5 WSAB+3 *QRF* UNUSABLE WORD
| Line S00142 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08325 M01S00142.ns2023 +++| SA5 WSAB+3 *BRF* UNUSABLE WORD
08326 M00S07161.dmrec +++| MX0 -24
| Line S07162 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08327 M01S07162.ns2023 ---| BX1 -X0*X5 *QRF* DOWN COUNT
| Line S00143 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08328 M01S00143.ns2023 +++| BX1 -X0*X5 *BRF* DOWN COUNT
08329 M00S07163.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE
08330 M00S07164.dmrec +++| LX6 53-11
08331 M00S07165.dmrec +++| SA6 PLIN+5
08332 M00S07166.dmrec +++| MX0 36
| Line S07167 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08333 M01S07167.ns2023 ---| BX5 X0*X5 PACKED DATE/TIME OF *QRF* DOWN
| Line S00144 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08334 M01S00144.ns2023 +++| BX5 X0*X5 PACKED DATE/TIME OF *BRF* DOWN
08335 M00S07168.dmrec +++| ZR X5,LDH2 IF NO DATE/TIME
08336 M00S07169.dmrec +++| LX5 36
08337 M00S07170.dmrec +++| ETIME X5 UNPACK TIME
08338 M00S07171.dmrec +++| SA6 PLIN+4
08339 M00S07172.dmrec +++| AX5 18
08340 M00S07173.dmrec +++| EDATE X5 UNPACK DATE
08341 M00S07174.dmrec +++| SA6 PLIN+3
08342 M00S07175.dmrec +++| LDH2 SA1 WSAB+4 PREALLOCATION PERCENTAGE
08343 M00S07176.dmrec +++| MX0 -18
08344 M00S07177.dmrec +++| BX1 -X0*X1
08345 M00S07178.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE
08346 M00S07179.dmrec +++| LX6 6
08347 M00S07180.dmrec +++| MX0 30
08348 M00S07181.dmrec +++| SA1 PLIN+5
08349 M00S07182.dmrec +++| BX7 X0*X1
08350 M00S07183.dmrec +++| BX6 -X0*X6
08351 M00S07184.dmrec +++| BX6 X6+X7
08352 M00S07185.dmrec +++| SA6 PLIN+5
08353 M00S07186.dmrec +++| SA1 WSAB+5 NUMBER OF BACKUP COPIES TO RETAIN
08354 M00S07187.dmrec +++| RJ CDD CONVERT BINARY TO DISPLAY
08355 M00S07188.dmrec +++| LX6 35-11
08356 M00S07189.dmrec +++| SA6 PLIN+6
| Line S07190 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08357 M01S07190.ns2023 ---| SA1 WSAB+4 FIRST *LRF* VSN
| Line S00145 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08358 M01S00145.ns2023 +++| SA1 WSAB+4 FIRST *ARF* VSN
08359 M00S07191.dmrec +++| MX0 36
08360 M00S07192.dmrec +++| BX1 X0*X1
08361 M00S07193.dmrec +++| ZR X1,LDH3 IF NO VSN
08362 M00S07194.dmrec +++| RJ SFN SET FILE NAME
08363 M00S07195.dmrec +++| SA6 PLIN+7
08364 M00S07196.dmrec +++| LDH3 MX7 0
08365 M00S07197.dmrec +++| SA7 PLIN+8
08366 M00S07198.dmrec +++| RJ LDE LIST ENTRY
08367 M00S07199.dmrec +++| SX2 B1
08368 M00S07200.dmrec +++| RJ ALC ADVANCE LINE COUNT
08369 M00S07201.dmrec +++| EQ LDHX RETURN
08370 M00S07202.dmrec +++| LFH SPACE 4,15
08371 M00S07203.dmrec +++|** LFH - LIST FILE HEADER.
08372 M00S07204.dmrec +++|*
08373 M00S07205.dmrec +++|* ENTRY (WSAB) = FILE HEADER ENTRY.
08374 M00S07206.dmrec +++|*
08375 M00S07207.dmrec +++|* EXIT FILE HEADER AND HEADER ENTRY LISTED.
08376 M00S07208.dmrec +++|*
08377 M00S07209.dmrec +++|* USES X - 0, 1, 2, 6.
08378 M00S07210.dmrec +++|* A - 1, 6.
08379 M00S07211.dmrec +++|* B - NONE.
08380 M00S07212.dmrec +++|*
08381 M00S07213.dmrec +++|* CALLS ALC, BFL, CDD, LDE, LPH, SFN.
08382 M00S07214.dmrec +++|
08383 M00S07215.dmrec +++|
08384 M00S07216.dmrec +++| LFH SUBR ENTRY/EXIT
08385 M00S07217.dmrec +++| SA1 HDRC HEADER CONTROL
08386 M00S07218.dmrec +++| ZR X1,LFH1 IF NOT SET
08387 M00S07219.dmrec +++| MX6 0
08388 M00S07220.dmrec +++| SA6 HDRC CLEAR IT
08389 M00S07221.dmrec +++| LFH1 SX6 3 SET FILE HEADER
08390 M00S07222.dmrec +++| RJ LPH LIST PAGE HEADER
08391 M00S07223.dmrec +++| RJ BFL BLANK FILL LINE
08392 M00S07224.dmrec +++| SA1 WSAB FILE NAME
08393 M00S07225.dmrec +++| MX0 42
08394 M00S07226.dmrec +++| BX1 X0*X1
08395 M00S07227.dmrec +++| RJ SFN SPACE FILL NAME
08396 M00S07228.dmrec +++| LX6 42
08397 M00S07229.dmrec +++| SA6 PLIN+2
08398 M00S07230.dmrec +++| SA1 WSAB+4 PREALLOCATION PERCENTAGE
08399 M00S07231.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE
08400 M00S07232.dmrec +++| LX6 12
08401 M00S07233.dmrec +++| SA6 PLIN+3
08402 M00S07234.dmrec +++| SA1 WSAB+5 NUMBER OF BACKUP COPIES
08403 M00S07235.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE
08404 M00S07236.dmrec +++| LX6 42
08405 M00S07237.dmrec +++| SA6 PLIN+5
08406 M00S07238.dmrec +++| MX6 0
08407 M00S07239.dmrec +++| SA6 PLIN+6
08408 M00S07240.dmrec +++| RJ LDE LIST ENTRY
08409 M00S07241.dmrec +++| SX6 B1
08410 M00S07242.dmrec +++| SA6 HDRC SET FILE ENTRY HEADER CONTROL
08411 M00S07243.dmrec +++| SX2 B1
08412 M00S07244.dmrec +++| RJ ALC ADVANCE LINE COUNT
08413 M00S07245.dmrec +++| EQ LFHX RETURN
08414 M00S07246.dmrec +++| LKC SPACE 4,20
08415 M00S07247.dmrec +++|** LKC - LIST KEY CONTENTS.
08416 M00S07248.dmrec +++|*
08417 M00S07249.dmrec +++|* LISTS CONTENTS OF THE KEY AREA IN THE *AFTER IMAGE*
08418 M00S07250.dmrec +++|* LOG RECORD IN CHARACTER AND OCTAL REPRESENTATION.
08419 M00S07251.dmrec +++|*
08420 M00S07252.dmrec +++|* ENTRY (X7) = KEY LENGTH IN CHARACTERS.
08421 M00S07253.dmrec +++|* (B6) = FWA OF *AFTER IMAGE* LOG RECORD.
08422 M00S07254.dmrec +++|* (JOBORG) = 0, IF INTERACTIVE ORIGIN.
08423 M00S07255.dmrec +++|*
08424 M00S07256.dmrec +++|* EXIT KEY CONTENTS LISTED.
08425 M00S07257.dmrec +++|*
08426 M00S07258.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
08427 M00S07259.dmrec +++|* A - 0, 1, 2, 3, 4, 6, 7.
08428 M00S07260.dmrec +++|* B - 2, 3.
08429 M00S07261.dmrec +++|*
08430 M00S07262.dmrec +++|* CALLS ALC, CTW, FML, GNW, TKL, WBL.
08431 M00S07263.dmrec +++|*
08432 M00S07264.dmrec +++|* MACROS WRITEC.
08433 M00S07265.dmrec +++|
08434 M00S07266.dmrec +++|
08435 M00S07267.dmrec +++| LKC SUBR ENTRY/EXIT
08436 M00S07268.dmrec +++| RJ CTW CONVERT TO WORDS
08437 M00S07269.dmrec +++| SX7 B6+XLKAW-1 FWA-1 OF THE KEY AREA
08438 M00S07270.dmrec +++| SA7 KEYW INITIAL KEY WORD
08439 M00S07271.dmrec +++| IX6 X7+X1
08440 M00S07272.dmrec +++| SX6 X6+B1 LWA OF THE KEY AREA
08441 M00S07273.dmrec +++| SA6 LWAK
08442 M00S07274.dmrec +++| SA0 B0 CLEAR ENTRY POSITION
08443 M00S07275.dmrec +++| BX6 X6-X6
08444 M00S07276.dmrec +++| SA6 WDCT CLEAR WORD COUNT
08445 M00S07277.dmrec +++| SA6 WCBL CLEAR BEGINNING OF LINE COUNT
08446 M00S07278.dmrec +++| LKC1 RJ GNW GET WORD FROM KEY AREA
08447 M00S07279.dmrec +++| NZ X1,LKC8 IF OUT OF KEY AREA
08448 M00S07280.dmrec +++| SA6 DTOL+A0 STORE IN LINE WORD BUFFER
08449 M00S07281.dmrec +++| SX2 B1
08450 M00S07282.dmrec +++| SA1 WDCT
08451 M00S07283.dmrec +++| IX6 X1+X2 ADVANCE WORD COUNT
08452 M00S07284.dmrec +++| SA6 A1
08453 M00S07285.dmrec +++| SA0 A0+B1 ADVANCE POSITION COUNT
08454 M00S07286.dmrec +++| SA1 JOBORG
08455 M00S07287.dmrec +++| SA2 X1+WPLT
08456 M00S07288.dmrec +++| SB2 X2
08457 M00S07289.dmrec +++| SX1 A0-B2
08458 M00S07290.dmrec +++| NZ X1,LKC1 IF NOT FULL LINE
08459 M00S07291.dmrec +++| SA4 WPLT TERMINAL WORD COUNT
08460 M00S07292.dmrec +++| SB3 X4
08461 M00S07293.dmrec +++| SA1 DTOL WORD 1
08462 M00S07294.dmrec +++| SA2 A1+B1
08463 M00S07295.dmrec +++| SA3 A2+1
08464 M00S07296.dmrec +++| SA4 A3+B1 WORD 4
08465 M00S07297.dmrec +++| BX6 X1-X2 X6 = DIFF(1-2)
08466 M00S07298.dmrec +++| EQ B2,B3,LKC2 IF TERMINAL
08467 M00S07299.dmrec +++| BX7 X1-X3
08468 M00S07300.dmrec +++| BX6 X6+X7 X6 = DIFF(1-2-3)
08469 M00S07301.dmrec +++| BX7 X1-X4
08470 M00S07302.dmrec +++| BX6 X6+X7 X6 = DIFF(1-2-3-4)
08471 M00S07303.dmrec +++| LKC2 NZ X6,LKC3 IF NOT ALL SAME ON LINE
08472 M00S07304.dmrec +++| PL X6,LKC7 IF ALL SAME ON LINE
08473 M00S07305.dmrec +++| LKC3 SA1 RPCT
08474 M00S07306.dmrec +++| NZ X1,LKC6 IF LINES BEING SKIPPED
08475 M00S07307.dmrec +++| LKC4 RJ FML FORMAT LIST LINE(S)
08476 M00S07308.dmrec +++| SA0 B0 CLEAR POSITION COUNT
08477 M00S07309.dmrec +++| EQ LKC1 GET NEXT WORD
08478 M00S07310.dmrec +++|
08479 M00S07311.dmrec +++| LKC5 BX7 X3 USE OLD REPEAT COUNT
08480 M00S07312.dmrec +++| SA7 A3+
08481 M00S07313.dmrec +++| LKC6 BX7 X7-X7
08482 M00S07314.dmrec +++| SA2 RPCT
08483 M00S07315.dmrec +++| SA7 A2 ZERO SUPPRESSING COUNT
08484 M00S07316.dmrec +++| AX2 1
08485 M00S07317.dmrec +++| ZR X2,LKC4 IF ONE LINE ONLY
08486 M00S07318.dmrec +++| WRITEC O,MALR WRITE LINES REPEATED
08487 M00S07319.dmrec +++| SX2 B1
08488 M00S07320.dmrec +++| RJ ALC ADVANCE LINE COUNT
08489 M00S07321.dmrec +++| EQ LKC4 CONTINUE
08490 M00S07322.dmrec +++|
08491 M00S07323.dmrec +++| LKC7 SA4 EQTW PREVIOUS IDENTITY LINE
08492 M00S07324.dmrec +++| SA3 RPCT SKIP COUNT
08493 M00S07325.dmrec +++| BX6 X1
08494 M00S07326.dmrec +++| BX1 X1-X4
08495 M00S07327.dmrec +++| SA6 A4 STORE NEW IDENTITY
08496 M00S07328.dmrec +++| SX7 X3+B1 ADVANCE SKIP COUNT
08497 M00S07329.dmrec +++| SA7 A3
08498 M00S07330.dmrec +++| ZR X3,LKC4 IF NO SUPPRESSION RUNNING
08499 M00S07331.dmrec +++| NZ X1,LKC5 IF PREVIOUS SUPPRESSION NOT CONTINUED
08500 M00S07332.dmrec +++| NG X1,LKC5 IF PREVIOUS SUPPRESSION NOT CONTINUED
08501 M00S07333.dmrec +++| SA2 WDCT
08502 M00S07334.dmrec +++| BX7 X2
08503 M00S07335.dmrec +++| SA0 B0 RESET WORD COUNT
08504 M00S07336.dmrec +++| SA7 WCBL
08505 M00S07337.dmrec +++| EQ LKC1 GET NEXT WORD
08506 M00S07338.dmrec +++|
08507 M00S07339.dmrec +++| LKC8 RJ TKL TERMINATE KEY LIST
08508 M00S07340.dmrec +++| RJ WBL WRITE BLANK LINE
08509 M00S07341.dmrec +++| EQ LKCX CONTINUE
08510 M00S07342.dmrec +++| LOD SPACE 4,25
08511 M00S07343.dmrec +++|** LOD - LOAD DATA BASE FILES.
08512 M00S07344.dmrec +++|*
08513 M00S07345.dmrec +++|* LOAD DATA, INDEX OR LOG FILES AS REQUESTED ON LOAD
08514 M00S07346.dmrec +++|* DIRECTIVE CARD. DATA AND INDEX FILES ARE LOADED IN
08515 M00S07347.dmrec +++|* THE SAME FORMAT (BLOCK/RECORD).
08516 M00S07348.dmrec +++|*
08517 M00S07349.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER.
08518 M00S07350.dmrec +++|* (X2) = NEXT WORD IN BUFFER.
08519 M00S07351.dmrec +++|* (X6) = OPERATION FLAG (VALIDATE PARAMETERS).
08520 M00S07352.dmrec +++|*
08521 M00S07353.dmrec +++|* EXIT ALL REQUESTED FILES LOADED IN SPECIFIED FORMAT.
08522 M00S07354.dmrec +++|* EXIT TO UPD1, IF PART OF A FILE RECOVERY.
| Line S07355 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08523 M01S07355.ns2023 ---|* TO UPD2, IF PART OF A QRF FILE RECOVERY.
| Line S00146 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08524 M01S00146.ns2023 +++|* TO UPD2, IF PART OF A *BRF* FILE RECOVERY.
08525 M00S07356.dmrec +++|* OTHERWISE, TO DMR3.
08526 M00S07357.dmrec +++|*
08527 M00S07358.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
08528 M00S07359.dmrec +++|* A - 1, 2, 3, 5, 6.
08529 M00S07360.dmrec +++|* B - 5, 7.
08530 M00S07361.dmrec +++|*
08531 M00S07362.dmrec +++|* CALLS ACF, GFV, GXJ, LBL, LTF, RDF, RXJ, SPR.
08532 M00S07363.dmrec +++|*
08533 M00S07364.dmrec +++|* MACROS CLOSEM, ERROR, RETURN.
08534 M00S07365.dmrec +++|
08535 M00S07366.dmrec +++|
08536 M00S07367.dmrec +++| LOD BSS 0 ENTRY
08537 M00S07368.dmrec +++| RJ SPR GET PARAMETERS
08538 M00S07369.dmrec +++| SB5 B5-2
08539 M00S07370.dmrec +++| NE B5,B0,LOD9 IF MORE THEN ONE FILE
08540 M00S07371.dmrec +++| LOD1 SA2 TDFN
08541 M00S07372.dmrec +++| MX0 42
08542 M00S07373.dmrec +++| BX6 X0*X2
08543 M00S07374.dmrec +++| SA6 XXPFN SAVE FILE NAME
08544 M00S07375.dmrec +++| MX0 12
08545 M00S07376.dmrec +++| BX5 X0*X6 MASK DATA BASE NAME
08546 M00S07377.dmrec +++| RJ GXJ GET *XXJ* FILE
08547 M00S07378.dmrec +++| NZ X1,LOD8 IF ERROR
08548 M00S07379.dmrec +++| SA5 XXPFN
08549 M00S07380.dmrec +++| RJ RXJ READ *XXJ* FILE
08550 M00S07381.dmrec +++| ZR X1,LOD2 IF FILE FOUND
08551 M00S07382.dmrec +++| PL X1,LOD8 IF ERROR
08552 M00S07383.dmrec +++| ZR X2,LOD8 IF NOT LAST
08553 M00S07384.dmrec +++| LOD2 RJ CWM CHECK WRITE MODE
08554 M00S07385.dmrec +++| NZ X1,LOD8 IF ERROR
08555 M00S07386.dmrec +++| RJ ACF ATTACH *ZZDBDIR* FILE
08556 M00S07387.dmrec +++| RJ GFV GET FIRST VSN
08557 M00S07388.dmrec +++| NZ X1,LOD8 IF ERRORS
08558 M00S07389.dmrec +++| CLOSEM DIRR,U
08559 M00S07390.dmrec +++| BX6 X6-X6
08560 M00S07391.dmrec +++| MX5 0 READ MODE
08561 M00S07392.dmrec +++| SA6 TPMODE SAVE MODE
08562 M00S07393.dmrec +++| SB7 TP
08563 M00S07394.dmrec +++| RJ RTF REQUEST TAPE FILE
08564 M00S07395.dmrec +++| NZ X1,LOD8 IF ERRORS
08565 M00S07396.dmrec +++| REWIND TP,R
08566 M00S07397.dmrec +++| SA5 HOLD SKIP COUNT
08567 M00S07398.dmrec +++| ZR X5,LOD3 IF SKIP COUNT ZERO
08568 M00S07399.dmrec +++| SKIPFF TP,X5,R
| Line S07400 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
08569 M01S07400.dmrec15 ---| LOD3 SX6 B0
| Line S00013 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
08570 M01S00013.dmrec15 +++| LOD3 SX6 PTWR WRITE MODE
08571 M00S07401.dmrec +++| SA6 XXMODE FORCE WRITE ATTACH MODE
08572 M00S07402.dmrec +++| RJ ADF ATTACH DATA FILE
08573 M00S07403.dmrec +++| NZ X1,LOD8 IF ERROR IN ATTACH
08574 M00S07404.dmrec +++| LOD4 READ TP,R READ HEADER
08575 M00S07405.dmrec +++| RJ DER DETECT END OF REEL
08576 M00S07406.dmrec +++| NG X1,LOD4 IF END OF TAPE
08577 M00S07407.dmrec +++| NZ X1,LOD8 IF ERROR
08578 M00S07408.dmrec +++| SA5 YYBUF FILE NAME FROM DIRECTORY RECORD
08579 M00S07409.dmrec +++| MX0 42
08580 M00S07410.dmrec +++| BX5 X0*X5
08581 M00S07411.dmrec +++| SA2 TBUF FILE NAME FROM DUMP TAPE
08582 M00S07412.dmrec +++| BX2 X2-X5
| Line S07413 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
08583 M01S07413.dmrec15 ---| SX5 B1
| Line S00014 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
08584 M01S00014.dmrec15 +++| MX5 -3
08585 M00S07414.dmrec +++| NZ X2,LOD10 IF ERROR - FILE NAME MISMATCH
08586 M00S07415.dmrec +++| SA2 YYBUF+2 GET FORMAT
| Line S07416 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
08587 M01S07416.dmrec15 ---| BX2 X5*X2
| Line S00015 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
08588 M01S00015.dmrec15 +++| BX2 -X5*X2
08589 M00S07417.dmrec +++| SA3 TBUF+1
08590 M00S07418.dmrec +++| BX5 X3-X2
08591 M00S07419.dmrec +++| NZ X5,LOD10 IF FORMAT MISMATCH
08592 M00S07420.dmrec +++| ZR X3,LOD5 IF BLOCK FORMAT
08593 M00S07421.dmrec +++|
08594 M00S07422.dmrec +++|* LOAD RECORD FORMAT.
08595 M00S07423.dmrec +++|
08596 M00S07424.dmrec +++| RJ LRD LOAD RECORD FORMAT
08597 M00S07425.dmrec +++| NZ X1,LOD8 IF ERROR
08598 M00S07426.dmrec +++| SA3 XXIXN
08599 M00S07427.dmrec +++| ZR X3,LOD6 IF NO INDEX FILE TO LOAD
08600 M00S07428.dmrec +++| RJ BIF BUILD INDEX FILE
08601 M00S07429.dmrec +++| NZ X1,LOD8 IF ERROR IN BIF
08602 M00S07430.dmrec +++| EQ LOD7 CONTINUE
08603 M00S07431.dmrec +++|
08604 M00S07432.dmrec +++| LOD5 SA1 TP+B1
08605 M00S07433.dmrec +++| SX6 X1
08606 M00S07434.dmrec +++| SA6 A1+B1 RESET FET POINTERS
08607 M00S07435.dmrec +++| SA6 A6+B1
08608 M00S07436.dmrec +++| SX4 DF FET ADDRESS
08609 M00S07437.dmrec +++| RJ LBL LOAD BLOCK
08610 M00S07438.dmrec +++| NZ X1,LOD8 IF ERROR
08611 M00S07439.dmrec +++| SA5 YYBUF+3 GET INDEX FN
08612 M00S07440.dmrec +++| ZR X5,LOD6 IF NO INDEX FILE
08613 M00S07441.dmrec +++| LOD5.1 READ TP,R READ EOF
08614 M00S07442.dmrec +++| RJ DER DETECT END OF REEL
08615 M00S07443.dmrec +++| NG X1,LOD5.1 IF END OF REEL
08616 M00S07444.dmrec +++| NZ X1,LOD8 IF ERROR
08617 M00S07445.dmrec +++| LOD5.2 READ TP,R
08618 M00S07446.dmrec +++| READW TP,WBUF,WBUFL READ INDEX FILE HEADER
08619 M00S07447.dmrec +++| RJ DER DETECT END OF REEL
08620 M00S07448.dmrec +++| NG X1,LOD5.2 IF END OF REEL
08621 M00S07449.dmrec +++| NZ X1,LOD8 IF ERROR
08622 M00S07450.dmrec +++| SA5 YYBUF+3 INDEX FN FROM DIRECTORY RECORD
08623 M00S07451.dmrec +++| MX0 42
08624 M00S07452.dmrec +++| BX6 X0*X5
08625 M00S07453.dmrec +++| SA6 XXPFN SAVE PFN FOR *LBL*
08626 M00S07454.dmrec +++| SA2 WBUF INDEX FN FROM DUMP TAPE
08627 M00S07455.dmrec +++| BX2 X2-X6
08628 M00S07456.dmrec +++| NZ X2,LOD10 IF ERROR - FN MISMATCH
08629 M00S07457.dmrec +++| SA1 TP+B1 RESET FET POINTERS
08630 M00S07458.dmrec +++| SX6 X1
08631 M00S07459.dmrec +++| SA6 A1+B1
08632 M00S07460.dmrec +++| SA6 A6+B1
08633 M00S07461.dmrec +++| SX4 IF
08634 M00S07462.dmrec +++| SA3 TBUF+1
08635 M00S07463.dmrec +++| ZR X3,LOD5.3 IF BLOCK FORMAT
08636 M00S07464.dmrec +++|
08637 M00S07465.dmrec +++|* LOAD INDEX FILE IN RECORD FORMAT.
08638 M00S07466.dmrec +++|
08639 M00S07467.dmrec +++| RJ LRD LOAD INDEX FILE IN RECORD FORMAT
08640 M00S07468.dmrec +++| NZ X1,LOD8 IF ERROR IN LOADING INDEX FILE
08641 M00S07469.dmrec +++| EQ LOD6 CLOSE DATA FILE
08642 M00S07470.dmrec +++|
08643 M00S07471.dmrec +++|* LOAD INDEX FILE IN BLOCK FORMAT.
08644 M00S07472.dmrec +++|
08645 M00S07473.dmrec +++| LOD5.3 RJ LBL LOAD INDEX FILE IN BLOCK FORMAT
08646 M00S07474.dmrec +++| NZ X1,LOD8 IF ERROR
08647 M00S07475.dmrec +++| LOD6 CLOSEM DFIT,U
08648 M00S07476.dmrec +++| LOD7 RJ RAF RETURN ALL FILES
| Line S07477 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08649 M01S07477.ns2023 ---| SA2 QRFFLG
| Line S00147 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
08650 M01S00147.ns2023 +++| SA2 BRFFLG