Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:dmrec.004
Deck DMREC Part 004
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1753)
- Deck DMREC Part 2 (Line 3308)
- Deck DMREC Part 3 (Line 5077)
- Deck DMREC Part 4 (Line 6930)
- Deck DMREC Part 5 (Line 8588)
- Deck DMREC Part 6 (Line 10535)
- Deck DMREC Part 7 (Line 12352)
Source
Seq # *Modification Id* Act ----------------------------+ 06930 M00S06011.dmrec +++| GFV SPACE 4,30 06931 M00S06012.dmrec +++|** GFV - GET FIRST VSN. 06932 M00S06013.dmrec +++|* 06933 M00S06014.dmrec +++|* RETRIEVE FROM BACK-UP DIRECTORY FILE THE DATA BASE 06934 M00S06015.dmrec +++|* DUMP RECORD SPECIFIED BY THE DATE/TIME OR VSN ON 06935 M00S06016.dmrec +++|* THE DIRECTIVE. THIS RECORD CONTAINS THE TARGET VSN 06936 M00S06017.dmrec +++|* NAME (FIRST OF MULTI REEL). 06937 M00S06018.dmrec +++|* 06938 M00S06019.dmrec +++|* ENTRY (DATE) = TARGET DATE. 06939 M00S06020.dmrec +++|* 0 USE TODAYS DATE. 06940 M00S06021.dmrec +++|* (TIME) = TARGET TIME. 06941 M00S06022.dmrec +++|* 0 USE 23,59,59. 06942 M00S06023.dmrec +++|* (TVSN) = VSN OF FIRST TAPE OF DIRECTIVE. 06943 M00S06024.dmrec +++|* 06944 M00S06025.dmrec +++|* EXIT (X1) = 0 IF NO ERRORS. 06945 M00S06026.dmrec +++|* (IVSN) = ADDRESS OF FIRST VSN. 06946 M00S06027.dmrec +++|* (HOLD) = SKIP COUNT. 06947 M00S06028.dmrec +++|* *TVSN* BUILT. 06948 M00S06029.dmrec +++|* 06949 M00S06030.dmrec +++|* USES X - ALL. 06950 M00S06031.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 06951 M00S06032.dmrec +++|* B - 2, 3. 06952 M00S06033.dmrec +++|* 06953 M00S06034.dmrec +++|* CALLS FER, RDT. 06954 M00S06035.dmrec +++|* 06955 M00S06036.dmrec +++|* MACROS DATE, EDATE, ERROR, ETIME, FETCH, GETN, 06956 M00S06037.dmrec +++|* MOVE, RMGET, STORE. 06957 M00S06038.dmrec +++| 06958 M00S06039.dmrec +++| 06959 M00S06040.dmrec +++| GFV SUBR ENTRY/EXIT 06960 M00S06041.dmrec +++| SA3 TVSN 06961 M00S06042.dmrec +++| ZR X3,GFV1 IF NO VSN 06962 M00S06043.dmrec +++| SA1 DATE 06963 M00S06044.dmrec +++| NZ X1,GFV18 IF DATE GIVEN 06964 M00S06045.dmrec +++| SA1 TIME 06965 M00S06046.dmrec +++| ZR X1,GFV12 IF NO TIME. 06966 M00S06047.dmrec +++| EQ GFV18 ERROR 06967 M00S06048.dmrec +++| 06968 M00S06049.dmrec +++| GFV1 SA2 DATE 06969 M00S06050.dmrec +++| ZR X2,GFV2 IF DATE NOT GIVEN 06970 M00S06051.dmrec +++| SX1 B0 SET DATE CONVERSION 06971 M00S06052.dmrec +++| RJ RDT REFORMAT DATE/TIME 06972 M00S06053.dmrec +++| SA6 UDATE UNPACKED DATE (GIVEN) 06973 M00S06054.dmrec +++| EQ GFV3 CONTINUE 06974 M00S06055.dmrec +++| 06975 M00S06056.dmrec +++| GFV2 DATE UDATE 06976 M00S06057.dmrec +++| GFV3 SA2 TIME 06977 M00S06058.dmrec +++| ZR X2,GFV4 IF TIME NOT GIVEN 06978 M00S06059.dmrec +++| SX1 B1 SET TIME REFORMAT 06979 M00S06060.dmrec +++| RJ RDT REFORMAT DATE/TIME 06980 M00S06061.dmrec +++| SA6 UTIME UNPACKED TIME (GIVEN) 06981 M00S06062.dmrec +++| EQ GFV5 CONTINUE 06982 M00S06063.dmrec +++| 06983 M00S06064.dmrec +++| GFV4 SA2 MTIME MIDNIGHT TIME 06984 M00S06065.dmrec +++| BX6 X2 06985 M00S06066.dmrec +++| SA6 UTIME 06986 M00S06067.dmrec +++| GFV5 SA2 XXPFN 06987 M00S06068.dmrec +++| SA1 =3RBBB SET DUMP RECORD TYPE 06988 M00S06069.dmrec +++| BX6 X2+X1 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
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S06309 Modification History | |
|---|---|
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2431 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2431 |
Seq # *Modification Id* Act ----------------------------+ 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
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/dmrec.004.txt · Last modified: by 127.0.0.1