cdc:nos2.source:opl.opl871:deck:gettasv
Deck GETTASV
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.gettasv +++| IDENT GETTASV,FWA 00002 M00S00002.gettasv +++| ABS 00003 M00S00003.gettasv +++| SST 00004 M00S00004.gettasv +++| ENTRY GETTASV 00005 M00S00005.gettasv +++| ENTRY RFL= 00006 M00S00006.gettasv +++| SYSCOM B1 00007 M00S00007.gettasv +++| TITLE GETTASV - GET VSNS FOR TAPE ALTERNATE STORAGE. 00008 M00S00008.gettasv +++|*COMMENT GETTASV - GET TAPE ALTERNATE STORAGE VSN(S). 00009 M00S00009.gettasv +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1993. 00010 M00S00010.gettasv +++| GETTASV SPACE 4,10 00011 M00S00011.gettasv +++|*** GETTASV - GET TAPE ALTERNATE STORAGE VSN(S). 00012 M00S00012.gettasv +++|* 00013 M00S00013.gettasv +++|* R. E. DUNBAR. 93/10/11. 00014 M00S00014.gettasv +++| SPACE 4,10 00015 M00S00015.gettasv +++|*** *GETTASV* IS A UTILITY TO SELECT ONE OR TWO SYSTEM VSNS FOR 00016 M00S00016.gettasv +++|* USE AS TAPE ALTERNATE STORAGE (*TAS*) ARCHIVE VOLUMES IN A 00017 M00S00017.gettasv +++|* TAPE MANAGEMENT SYSTEM (*TMS*) ENVIRONMENT. 00018 M00S00018.gettasv +++| SPACE 4,20 00019 M00S00019.gettasv +++|*** COMMAND FORMAT. 00020 M00S00020.gettasv +++|* 00021 M00S00021.gettasv +++|* 00022 M00S00022.gettasv +++|* GETTASV(P1,P2,...,PN) 00023 M00S00023.gettasv +++|* 00024 M00S00024.gettasv +++|* 00025 M00S00025.gettasv +++|* *PN* MAY BE ONE OF THE FOLLOWING - 00026 M00S00026.gettasv +++|* 00027 M00S00027.gettasv +++|* PARAMETER DESCRIPTION 00028 M00S00028.gettasv +++|* --------- ----------- 00029 M00S00029.gettasv +++|* 00030 M00S00030.gettasv +++|* SS=FILE LOCAL FILE NAME OF THE *TFSP* MACHINE- 00031 M00S00031.gettasv +++|* READABLE AUDIT FILE. FILE MUST BE IN THE 00032 M00S00032.gettasv +++|* FORMAT CREATED BY THE *TFSP* *MREADVS* 00033 M00S00033.gettasv +++|* DIRECTIVE. THE DEFAULT LFN IS *MREADVS*. 00034 M00S00034.gettasv +++|* 00035 M00S00035.gettasv +++|* P=PREFIX TWO-CHARACTER ALPHANUMERIC PREFIX FOR THE 00036 M00S00036.gettasv +++|* ARCHIVE VSNS. DEFAULT IS *AA*. 00037 M00S00037.gettasv +++|* 00038 M00S00038.gettasv +++|* N=VSNS NUMBER OF VOLUMES. THE DEFAULT IS *1*. 00039 M00S00039.gettasv +++|* 00040 M00S00040.gettasv +++|* N=1 ONE VOLUME IS SELECTED, WITH A VSN 00041 M00S00041.gettasv +++|* IN THE RANGE XX0000-XX4095, WHERE 00042 M00S00042.gettasv +++|* *XX* IS THE PREFIX SPECIFIED BY THE 00043 M00S00043.gettasv +++|* *P* PARAMETER. 00044 M00S00044.gettasv +++|* 00045 M00S00045.gettasv +++|* N=2 TWO VOLUMES ARE SELECTED, THE FIRST 00046 M00S00046.gettasv +++|* VSN IN THE RANGE XX0000-XX4095, AND 00047 M00S00047.gettasv +++|* A SECOND IN THE RANGE XX5000-XX9095. 00048 M00S00048.gettasv +++|* *XX* IS THE PREFIX SPECIFIED BY THE 00049 M00S00049.gettasv +++|* *P* PARAMETER. THE NUMERIC PORTION 00050 M00S00050.gettasv +++|* OF THE SECONDARY VSN IS EXACTLY 5000 00051 M00S00051.gettasv +++|* HIGHER THAN THAT OF THE PRIMARY VSN. 00052 M00S00052.gettasv +++|* 00053 M00S00053.gettasv +++|* D=DENSITY DUMP TAPE DENSITY. DEFAULT IS *GE*. 00054 M00S00054.gettasv +++|* 00055 M00S00055.gettasv +++|* D=HD/PE/GE, SELECT 9-TRACK MAGNETIC TAPE. 00056 M00S00056.gettasv +++|* D=CE, SELECT CARTRIDGE TAPE. 00057 M00S00057.gettasv +++|* D=AE, SELECT ACS CARTRIDGE TAPE. 00058 M00S00058.gettasv +++|* 00059 M00S00059.gettasv +++|* F=FORMAT DUMP TAPE FORMAT. DEFAULT IS *I*. 00060 M00S00060.gettasv +++|* 00061 M00S00061.gettasv +++|* F=I - INTERNAL FORMAT. 00062 M00S00062.gettasv +++|* F=LI - LONG BLOCK INTERNAL FORMAT. 00063 M00S00063.gettasv +++|* 00064 M00S00064.gettasv +++|* T=LFN1 DESTAGE TAPE LFN. THE DEFAULT IS *TAPE*. 00065 M00S00065.gettasv +++|* THE LOCAL FILE NAME FOR THE PRIMARY TAPE 00066 M00S00066.gettasv +++|* TO RECEIVE THE DESTAGED PERMANENT FILES. 00067 M00S00067.gettasv +++|* 00068 M00S00068.gettasv +++|* VF=LFN2 VERIFY TAPE LFN. THE DEFAULT IS *PFVER*. 00069 M00S00069.gettasv +++|* THE LOCAL FILE NAME FOR THE SECONDARY 00070 M00S00070.gettasv +++|* TAPE TO RECEIVE BACKUP COPIES OF THE 00071 M00S00071.gettasv +++|* DESTAGED PERMANENT FILES. 00072 M00S00072.gettasv +++|* 00073 M00S00073.gettasv +++|* C=ALTCMD ALTERNATE COMMAND. DEFAULT IS *SETTASV*. 00074 M00S00074.gettasv +++|* THE COMMAND NAME TO BE USED IN AN *EXCST* 00075 M00S00075.gettasv +++|* CALL TO PASS THE TAPE DENSITY, FORMAT AND 00076 M00S00076.gettasv +++|* SELECTED VSN(S) ON FOR FURTHER PROCESSING. 00077 M00S00077.gettasv +++|* *ALTCMD* MUST BE A PROGRAM OR PROCEDURE ON 00078 M00S00078.gettasv +++|* THE SYSTEM LIBRARY OR AVAILABLE TO THE JOB 00079 M00S00079.gettasv +++|* AS A LOCAL FILE OR IN A GLOBAL LIBRARY. IT 00080 M00S00080.gettasv +++|* IS EXECUTED VIA *EXCST* AS FOLLOWS. 00081 M00S00081.gettasv +++|* 00082 M00S00082.gettasv +++|* ALTCMD(DENSITY,FORMAT,VSN1,,LFN1) 00083 M00S00083.gettasv +++|* 00084 M00S00084.gettasv +++|* OR 00085 M00S00085.gettasv +++|* 00086 M00S00086.gettasv +++|* ALTCMD(DENSITY,FORMAT,VSN1,VSN2,LFN1,LFN2) 00087 M00S00087.gettasv +++|* 00088 M00S00088.gettasv +++|* THE PROGRAM OR PROCEDURE CALLED MUST BE 00089 M00S00089.gettasv +++|* ABLE TO ACCEPT SIX POSITIONAL PARAMETERS 00090 M00S00090.gettasv +++|* AS SHOWN IN THE ORDER SHOWN. 00091 M00S00091.gettasv +++| TITLE DAYFILE MESSAGES. 00092 M00S00092.gettasv +++| SPACE 4,20 00093 M00S00093.gettasv +++|*** DAYFILE MESSAGES. 00094 M00S00094.gettasv +++|* 00095 M00S00095.gettasv +++|* * ALTERNATE COMMAND INCORRECT.* - THE ALTERNATE COMMAND 00096 M00S00096.gettasv +++|* SPECIFIED WITH THE *C* PARAMETER DOES NOT MEET THE 00097 M00S00097.gettasv +++|* REQUIREMENTS FOR A *NOS* COMMAND NAME. IT MUST BE 00098 M00S00098.gettasv +++|* SEVEN OR FEWER ALPHANUMERIC CHARACTERS. 00099 M00S00099.gettasv +++|* 00100 M00S00100.gettasv +++|* * AUDIT FILE IS EMPTY OR MISPOSITIONED.* - END OF 00101 M00S00101.gettasv +++|* FILE OR END OF RECORD WAS DETECTED ON THE FIRST READ 00102 M00S00102.gettasv +++|* OF THE *TFSP* MACHINE-READABLE AUDIT FILE. 00103 M00S00103.gettasv +++|* 00104 M00S00104.gettasv +++|* * AUDIT FILE IS WRONG VERSION OR MISPOSITIONED.* - THE AUDIT 00105 M00S00105.gettasv +++|* FILE FILE VERSION NUMBER DOES NOT MATCH THE VERSION 00106 M00S00106.gettasv +++|* NUMBER *GETTASV* IS PREPARED TO PROCESS. 00107 M00S00107.gettasv +++|* 00108 M00S00108.gettasv +++|* * GETTASV ABORTED.* - *GETTASV* HAS DETECTED AN ERROR OR 00109 M00S00109.gettasv +++|* THE USER HAS INITIATED AN ABORT. 00110 M00S00110.gettasv +++|* 00111 M00S00111.gettasv +++|* * GETTASV ARGUMENT ERROR.* - AN INCORRECT ARGUMENT WAS 00112 M00S00112.gettasv +++|* DETECTED ON THE *GETTASV* COMMAND. THE ARGUMENT WAS 00113 M00S00113.gettasv +++|* EITHER TOO LARGE OR NOT AN ACCEPTABLE *NOS* FORMAT. 00114 M00S00114.gettasv +++|* 00115 M00S00115.gettasv +++|* * GETTASV COMPLETE.* - NORMAL COMPLETION. THE REQUESTED 00116 M00S00116.gettasv +++|* VOLUMES HAVE BEEN SELECTED. 00117 M00S00117.gettasv +++|* 00118 M00S00118.gettasv +++|* * NO PRIMARY OR SECONDARY VSNS AVAILABLE.* - *GETTASV* 00119 M00S00119.gettasv +++|* FOUND NEITHER PRIMARY NOR SECONDARY VSNS AVAILABLE 00120 M00S00120.gettasv +++|* WITH THE PREFIX SPECIFIED. 00121 M00S00121.gettasv +++|* 00122 M00S00122.gettasv +++|* * PRIMARY LFN INCORRECT.* - THE PRIMARY DESTAGE TAPE LFN 00123 M00S00123.gettasv +++|* SPECIFIED WITH THE *T* PARAMETER DOES NOT MEET THE 00124 M00S00124.gettasv +++|* REQUIREMENTS FOR A *NOS* LOCAL FILE NAME. IT MUST 00125 M00S00125.gettasv +++|* BE SEVEN OR FEWER ALPHANUMERIC CHARACTERS. 00126 M00S00126.gettasv +++|* 00127 M00S00127.gettasv +++|* * PRIMARY VSN NOT AVAILABLE.* - *GETTASV* COULD NOT FIND AN 00128 M00S00128.gettasv +++|* AVAILABLE PRIMARY VSN WITH THE PREFIX SPECIFIED. 00129 M00S00129.gettasv +++|* 00130 M00S00130.gettasv +++|* * PRIMARY/SECONDARY VSN SET NOT AVAILABLE.* - *GETTASV* FOUND 00131 M00S00131.gettasv +++|* AVAILABLE PRIMARY AND SECONDARY VSNS WITH THE PREFIX 00132 M00S00132.gettasv +++|* SPECIFIED, BUT NO MATCHING PAIR. 00133 M00S00133.gettasv +++|* 00134 M00S00134.gettasv +++|* * SECONDARY LFN INCORRECT.* - THE SECONDARY DESTAGE TAPE LFN 00135 M00S00135.gettasv +++|* SPECIFIED WITH THE *VF* PARAMETER DOES NOT MEET THE 00136 M00S00136.gettasv +++|* REQUIREMENTS FOR A *NOS* LOCAL FILE NAME. IT MUST 00137 M00S00137.gettasv +++|* BE SEVEN OR FEWER ALPHANUMERIC CHARACTERS. 00138 M00S00138.gettasv +++|* 00139 M00S00139.gettasv +++|* * SECONDARY VSN NOT AVAILABLE.* - *GETTASV* COULD NOT FIND AN 00140 M00S00140.gettasv +++|* AVAILABLE SECONDARY VSN WITH THE PREFIX SPECIFIED. 00141 M00S00141.gettasv +++|* 00142 M00S00142.gettasv +++|* * TAPE DENSITY NOT RECOGNIZED.* - THE VALUE SPECIFIED FOR THE 00143 M00S00143.gettasv +++|* *D* PARAMETER DOES NOT MATCH ANY KNOWN TAPE DENSITY. 00144 M00S00144.gettasv +++|* 00145 M00S00145.gettasv +++|* * TAPE FORMAT NOT RECOGNIZED.* - THE VALUE SPECIFIIED FOR 00146 M00S00146.gettasv +++|* THE *F* PARAMETER IS NOT ONE OF THE TAPE FORMATS 00147 M00S00147.gettasv +++|* ALLOWED FOR TAPE ALTERNATE STORAGE PURPOSES. 00148 M00S00148.gettasv +++|* 00149 M00S00149.gettasv +++|* * VSN PREFIX INCORRECT.* - THE VALUE SPECIFIED ON THE *P* 00150 M00S00150.gettasv +++|* PARAMETER IS NOT TWO ALPHANUMERIC CHARACTERS. 00151 M00S00151.gettasv +++| TITLE COMMON DECKS. 00152 M00S00152.gettasv +++| SPACE 4,10 00153 M00S00153.gettasv +++|* COMMON DECKS. 00154 M00S00154.gettasv +++| 00155 M00S00155.gettasv +++| 00156 M00S00156.gettasv +++|*CALL COMCCMD 00157 M00S00157.gettasv +++|*CALL COMCMAC 00158 M00S00158.gettasv +++| 00159 M00S00159.gettasv +++|* BUFFER SIZE DEFINITIONS. 00160 M00S00160.gettasv +++| 00161 M00S00161.gettasv +++| OBUFL EQU 1001B OUTPUT FILE BUFFER LENGTH 00162 M00S00162.gettasv +++| ABUFL EQU 1001B AUDIT FILE BUFFER LENGTH 00163 M00S00163.gettasv +++| ARECL EQU 24 AUDIT FILE RECORD LENGTH 00164 M00S00164.gettasv +++| TITLE TABLES. 00165 M00S00165.gettasv +++| FWA SPACE 4,10 00166 M00S00166.gettasv +++| ORG 110B 00167 M00S00167.gettasv +++| FWA EQU * PROGRAM ORIGIN 00168 M00S00168.gettasv +++| TITLE COMMAND ARGUMENT VARIABLES. 00169 M00S00169.gettasv +++|* COMMAND ARGUMENT VARIABLES. 00170 M00S00170.gettasv +++| ARGS SPACE 4,10 00171 M00S00171.gettasv +++| ACMD DATA C*SETTASV* ALTERNATE COMMAND PARAMETER 00172 M00S00172.gettasv +++| DENS DATA C*GE* DENSITY PARAMETER 00173 M00S00173.gettasv +++| ERFL CON 0 ERROR FLAG IF NONZERO 00174 M00S00174.gettasv +++| FRMT DATA C*I* TAPE FORMAT PARAMETER 00175 M00S00175.gettasv +++| LFN1 DATA C*TAPE* PRIMARY DESTAGE TAPE LFN 00176 M00S00176.gettasv +++| LFN2 DATA C*PFVER* SECONDARY DESTAGE TAPE LFN 00177 M00S00177.gettasv +++| MAXV VFD 12/0,24/4L4095,24/0 HIGHEST ALLOWABLE PRIMARY VSN 00178 M00S00178.gettasv +++| NVSN DATA C*1* NUMBER OF VSNS PARAMETER 00179 M00S00179.gettasv +++| PRFX DATA C*AA* PREFIX PARAMETER 00180 M00S00180.gettasv +++| TTYP DATA C*MTNT* *TMS* TAPE TYPE 00181 M00S00181.gettasv +++| VSEC CON 0 SECONDARY VSN FOUND IF NON-ZERO 00182 M00S00182.gettasv +++| TITLE ERROR MESSAGES. 00183 M00S00183.gettasv +++|* ERROR MESSAGES. 00184 M00S00184.gettasv +++| SPACE 4,10 00185 M00S00185.gettasv +++| ERAE DATA C* AUDIT FILE IS EMPTY OR MISPOSITIONED.* 00186 M00S00186.gettasv +++| ERAV DATA C* AUDIT FILE IS WRONG VERSION OR MISPOSITIONED.* 00187 M00S00187.gettasv +++| ERVE DATA C* NO PRIMARY OR SECONDARY VSNS AVAILABLE.* 00188 M00S00188.gettasv +++| ERVF DATA C* SECONDARY LFN INCORRECT.* 00189 M00S00189.gettasv +++| ERVM DATA C* PRIMARY/SECONDARY VSN SET NOT AVAILABLE.* 00190 M00S00190.gettasv +++| ERVP DATA C* PRIMARY VSN NOT AVAILABLE.* 00191 M00S00191.gettasv +++| ERVS DATA C* SECONDARY VSN NOT AVAILABLE.* 00192 M00S00192.gettasv +++| TITLE MAIN PROGRAM. 00193 M00S00193.gettasv +++| GETTASV SPACE 4,15 00194 M00S00194.gettasv +++|** GETTASV - MAIN PROGRAM. 00195 M00S00195.gettasv +++|* 00196 M00S00196.gettasv +++|* CALLS CAP, PRS, SNM. 00197 M00S00197.gettasv +++|* 00198 M00S00198.gettasv +++|* MACROS MESSAGE, READ, READC. 00199 M00S00199.gettasv +++| 00200 M00S00200.gettasv +++| 00201 M00S00201.gettasv +++| GETTASV BSS 0 ENTRY 00202 M00S00202.gettasv +++| RJ PRS PRESET 00203 M00S00203.gettasv +++| READ SS,R READ FIRST AUDIT RECORD 00204 M00S00204.gettasv +++| READC SS,AREC,ARECL 00205 M00S00205.gettasv +++| SX5 ERAE * AUDIT FILE IS EMPTY OR MISPOSITIONED.* 00206 M00S00206.gettasv +++| NZ X1,ABT IF EOR/EOF/EOI ON FIRST READ 00207 M00S00207.gettasv +++| SA1 AREC 00208 M00S00208.gettasv +++| MX6 -6 00209 M00S00209.gettasv +++| LX1 6 00210 M00S00210.gettasv +++| BX6 -X6*X1 00211 M00S00211.gettasv +++| SX6 X6-1R2 CHECK FOR CORRECT AUDIT FILE VERSION 00212 M00S00212.gettasv +++| ZR X6,GET2 IF CORRECT VERSION 00213 M00S00213.gettasv +++| SX5 ERAV * AUDIT FILE IS WRONG VERSION OR MISPOS..* 00214 M00S00214.gettasv +++| EQ ABT ABORT JOB 00215 M00S00215.gettasv +++| 00216 M00S00216.gettasv +++|* READ AN AUDIT RECORD. 00217 M00S00217.gettasv +++| 00218 M00S00218.gettasv +++| GET1 READC SS,AREC,ARECL READ AUDIT RECORD 00219 M00S00219.gettasv +++| NZ X1,GET6 IF EOR/EOF/EOI 00220 M00S00220.gettasv +++| 00221 M00S00221.gettasv +++|* CHECK FOR A USER NAME ASSOCIATED WITH THIS VSN. 00222 M00S00222.gettasv +++| 00223 M00S00223.gettasv +++| GET2 SA1 AREC 00224 M00S00224.gettasv +++| MX0 -12 00225 M00S00225.gettasv +++| SA2 A1+1 00226 M00S00226.gettasv +++| BX6 -X0*X1 00227 M00S00227.gettasv +++| BX2 X0*X2 00228 M00S00228.gettasv +++| BX6 X2+X6 00229 M00S00229.gettasv +++| SA3 =10H 00230 M00S00230.gettasv +++| BX6 X3-X6 00231 M00S00231.gettasv +++| NZ X6,GET1 IF ASSIGNED TO A USER 00232 M00S00232.gettasv +++| 00233 M00S00233.gettasv +++|* CHECK FOR AVAILABLE, ON-SITE, CENTER-OWNED SYSTEM VSN. 00234 M00S00234.gettasv +++| 00235 M00S00235.gettasv +++| SA1 AREC+18 00236 M00S00236.gettasv +++| SA2 =6LVAILON 00237 M00S00237.gettasv +++| BX6 X1-X2 00238 M00S00238.gettasv +++| AX6 24 00239 M00S00239.gettasv +++| NZ X6,GET1 IF NOT AVAILABLE OR OFF SITE 00240 M00S00240.gettasv +++| SX6 X1-3RCEN 00241 M00S00241.gettasv +++| NZ X6,GET1 IF NOT CENTER-OWNED TAPE 00242 M00S00242.gettasv +++| SA1 AREC+22 00243 M00S00243.gettasv +++| LX1 -6 00244 M00S00244.gettasv +++| SX6 X1-3RYES 00245 M00S00245.gettasv +++| NZ X6,GET1 IF NOT SYSTEM TAPE 00246 M00S00246.gettasv +++| 00247 M00S00247.gettasv +++|* CHECK FOR NON-RESERVED TAPE. 00248 M00S00248.gettasv +++| 00249 M00S00249.gettasv +++| SA2 =1LN 00250 M00S00250.gettasv +++| MX0 6 00251 M00S00251.gettasv +++| LX1 24 00252 M00S00252.gettasv +++| BX2 X1-X2 00253 M00S00253.gettasv +++| BX6 X0*X2 00254 M00S00254.gettasv +++| NZ X6,GET1 IF TAPE IS RESERVED 00255 M00S00255.gettasv +++| 00256 M00S00256.gettasv +++|* CHECK FOR CORRECT TAPE TYPE (AT, CT, MTNT). 00257 M00S00257.gettasv +++| 00258 M00S00258.gettasv +++| LX1 -18 00259 M00S00259.gettasv +++| MX0 -6 00260 M00S00260.gettasv +++| BX2 -X0*X1 00261 M00S00261.gettasv +++| SA1 A1+1 00262 M00S00262.gettasv +++| MX0 18 00263 M00S00263.gettasv +++| BX1 X0*X1 00264 M00S00264.gettasv +++| BX1 X1+X2 00265 M00S00265.gettasv +++| LX1 54 00266 M00S00266.gettasv +++| SA2 TTYP 00267 M00S00267.gettasv +++| BX6 X1-X2 00268 M00S00268.gettasv +++| NZ X6,GET1 IF NOT CORRECT TAPE TYPE 00269 M00S00269.gettasv +++| 00270 M00S00270.gettasv +++|* CHECK THAT *VSN* AND *PRN* MATCH. 00271 M00S00271.gettasv +++| 00272 M00S00272.gettasv +++| SA1 AREC+15 00273 M00S00273.gettasv +++| MX0 -6*5 00274 M00S00274.gettasv +++| BX6 -X0*X1 UPPER 5 OF *VSN* 00275 M00S00275.gettasv +++| SA1 A1+1 00276 M00S00276.gettasv +++| MX0 6 00277 M00S00277.gettasv +++| BX7 X0*X1 LOWER 1 OF *VSN* 00278 M00S00278.gettasv +++| BX1 X1-X7 REMOVE UPPER CHARACTER 00279 M00S00279.gettasv +++| BX6 X6+X7 MERGE UPPER 5 AND LOWER 1 OF *VSN* 00280 M00S00280.gettasv +++| MX0 6*7 00281 M00S00281.gettasv +++| LX6 6*5 LEFT JUSTIFY *VSN* 00282 M00S00282.gettasv +++| BX5 X0*X1 ISOLATE *PRN* 00283 M00S00283.gettasv +++| LX5 6 LEFT JUSTIFY *PRN* 00284 M00S00284.gettasv +++| BX7 X5-X6 00285 M00S00285.gettasv +++| NZ X7,GET1 IF *VSN* AND *PRN* DO NOT AGREE 00286 M00S00286.gettasv +++| 00287 M00S00287.gettasv +++|* (X5) = (X6) = VSN. 00288 M00S00288.gettasv +++| 00289 M00S00289.gettasv +++| SA2 PRFX 00290 M00S00290.gettasv +++| BX7 X2-X6 00291 M00S00291.gettasv +++| AX7 48 00292 M00S00292.gettasv +++| NZ X7,GET1 IF PREFIX DOES NOT MATCH 00293 M00S00293.gettasv +++| SA2 GETA PATTERN FOR PRIMARY VSN 00294 M00S00294.gettasv +++| SB2 6 MUST BE 6 CHARACTERS 00295 M00S00295.gettasv +++| RJ CAP CHECK FOR ALLOWED PATTERN 00296 M00S00296.gettasv +++| BX5 X6 RESTORE VSN 00297 M00S00297.gettasv +++| NZ X1,GET3 IF WRONG PATTERN FOR PRIMARY VSN 00298 M00S00298.gettasv +++| SA1 MAXV 00299 M00S00299.gettasv +++| LX6 6*6 00300 M00S00300.gettasv +++| IX1 X1-X6 00301 M00S00301.gettasv +++| NG X1,GET1 IF NUMERIC PORTION EXCEEDS 4095 00302 M00S00302.gettasv +++| SB5 GETC POINT TO COMMAND TO BE EXECUTED 00303 M00S00303.gettasv +++| SA1 NVSN 00304 M00S00304.gettasv +++| ZR X1,GET5 IF ONLY ONE VSN NEEDED 00305 M00S00305.gettasv +++| SA1 TVSN 00306 M00S00306.gettasv +++| SX7 X1+1 INCREMENT VSN COUNT 00307 M00S00307.gettasv +++| SA6 TVSN+X7 SAVE VSN IN TABLE 00308 M00S00308.gettasv +++| SA7 A1 00309 M00S00309.gettasv +++| MX6 0 SET TABLE TERMINATE 00310 M00S00310.gettasv +++| SA6 A6+B1 00311 M00S00311.gettasv +++| EQ GET1 PROCESS NEXT AUDIT RECORD 00312 M00S00312.gettasv +++| 00313 M00S00313.gettasv +++| GET3 SA2 GETB PATTERN FOR SECONDARY VSN 00314 M00S00314.gettasv +++| SB2 6 MUST BE 6 CHARACTERS 00315 M00S00315.gettasv +++| RJ CAP CHECK FOR ALLOWED PATTERN 00316 M00S00316.gettasv +++| NZ X1,GET1 IF WRONG PATTERN FOR SECONDARY VSN 00317 M00S00317.gettasv +++| SA1 NVSN 00318 M00S00318.gettasv +++| SX5 ERVP * PRIMARY VSN NOT AVAILABLE.* 00319 M00S00319.gettasv +++| ZR X1,ABT IF PRIMARY VSN NEEDED AND NOT FOUND 00320 M00S00320.gettasv +++| LX6 6*6 RIGHT JUSTIFY SECONDARY VSN 00321 M00S00321.gettasv +++| SX0 5 00322 M00S00322.gettasv +++| LX0 18 00323 M00S00323.gettasv +++| IX0 X6-X0 PRIMARY VSN TO LOOK FOR 00324 M00S00324.gettasv +++| SA2 MAXV 00325 M00S00325.gettasv +++| IX2 X2-X0 00326 M00S00326.gettasv +++| NG X2,GET1 IF NUMERIC PORTION EXCEEDS 9095 00327 M00S00327.gettasv +++| SA6 VSEC FLAG QUALIFYING SECONDARY VSN FOUND 00328 M00S00328.gettasv +++| SA1 TVSN 00329 M00S00329.gettasv +++| ZR X1,ABT IF NO ENTRIES IN VSN TABLE 00330 M00S00330.gettasv +++| GET4 SA1 A1+B1 00331 M00S00331.gettasv +++| ZR X1,GET1 IF NO MORE ENTRIES 00332 M00S00332.gettasv +++| BX7 X0-X1 00333 M00S00333.gettasv +++| NZ X7,GET4 IF NO MATCH 00334 M00S00334.gettasv +++| 00335 M00S00335.gettasv +++|* (X1) = PRIMARY VSN, (X6) = SECONDARY VSN. 00336 M00S00336.gettasv +++| 00337 M00S00337.gettasv +++| SB2 4*6 00338 M00S00338.gettasv +++| LX5 X1,B2 SAVE AND LEFT JUSTIFY PRIMARY VSN 00339 M00S00339.gettasv +++| LX1 X6,B2 LEFT JUSTIFY SECONDARY VSN 00340 M00S00340.gettasv +++| SB2 1R# 00341 M00S00341.gettasv +++| SB5 GETD 00342 M00S00342.gettasv +++| RJ SNM SET SECONDARY VSN INTO COMMAND 00343 M00S00343.gettasv +++| SA1 LFN2 00344 M00S00344.gettasv +++| SB2 1R> 00345 M00S00345.gettasv +++| RJ SNM SET SECONDARY LFN INTO COMMAND 00346 M00S00346.gettasv +++| 00347 M00S00347.gettasv +++|* (X5) = PRIMARY VSN. 00348 M00S00348.gettasv +++| 00349 M00S00349.gettasv +++| GET5 SB2 1R+ 00350 M00S00350.gettasv +++| BX1 X5 00351 M00S00351.gettasv +++| RJ SNM SET PRIMARY VSN INTO COMMAND 00352 M00S00352.gettasv +++| SA1 LFN1 00353 M00S00353.gettasv +++| SB2 1R< 00354 M00S00354.gettasv +++| RJ SNM SET PRIMARY LFN INTO COMMAND 00355 M00S00355.gettasv +++| SA1 FRMT 00356 M00S00356.gettasv +++| SB2 1R& 00357 M00S00357.gettasv +++| RJ SNM SET TAPE FORMAT INTO COMMAND 00358 M00S00358.gettasv +++| SA1 DENS 00359 M00S00359.gettasv +++| SB2 1R/ 00360 M00S00360.gettasv +++| RJ SNM SET TAPE DENSITY INTO COMMAND 00361 M00S00361.gettasv +++| SA1 ACMD 00362 M00S00362.gettasv +++| SB2 1R- 00363 M00S00363.gettasv +++| RJ SNM SET COMMAND NAME INTO COMMAND 00364 M00S00364.gettasv +++| MESSAGE GETE,3,R * GETTASV COMPLETE.* 00365 M00S00365.gettasv +++| EXCST B5 EXECUTE CONTROL STATEMENT 00366 M00S00366.gettasv +++| ENDRUN 00367 M00S00367.gettasv +++| 00368 M00S00368.gettasv +++|* AUDIT FILE IS EXHAUSTED AND NO SELECTION HAS BEEN MADE. 00369 M00S00369.gettasv +++|* DETERMINE WHY AND ABORT WITH APPROPRIATE ERROR MESSAGE. 00370 M00S00370.gettasv +++| 00371 M00S00371.gettasv +++| GET6 SA1 NVSN 00372 M00S00372.gettasv +++| SX5 ERVP * PRIMARY VSN NOT AVAILABLE.* 00373 M00S00373.gettasv +++| ZR X1,ABT IF NO PRIMARY VSN FOUND 00374 M00S00374.gettasv +++| SA1 TVSN 00375 M00S00375.gettasv +++| SX5 ERVE * NO PRIMARY OR SECONDARY VSNS AVAILABLE.* 00376 M00S00376.gettasv +++| ZR X1,ABT IF NEITHER TYPE OF VSN FOUND 00377 M00S00377.gettasv +++| SA1 VSEC 00378 M00S00378.gettasv +++| SX5 ERVS * SECONDARY VSN NOT AVAILABLE.* 00379 M00S00379.gettasv +++| ZR X1,ABT IF NO SECONDARY VSN FOUND 00380 M00S00380.gettasv +++| SX5 ERVM * PRIMARY/SECONDARY VSN SET NOT AVAILABLE* 00381 M00S00381.gettasv +++| EQ ABT 00382 M00S00382.gettasv +++| 00383 M00S00383.gettasv +++| 00384 M00S00384.gettasv +++| GETA VFD 18/442333B,42/0 PRIMARY VSN PATTERN 00385 M00S00385.gettasv +++| GETB VFD 18/443333B,42/0 SECONDARY VSN PATTERN 00386 M00S00386.gettasv +++| GETC DATA C*-------(////,&&,++++++,,<<<<<<<)* 00387 M00S00387.gettasv +++| GETD DATA C*-------(////,&&,++++++,######,<<<<<<<,>>>>>>>)* 00388 M00S00388.gettasv +++| GETE DATA C* GETTASV COMPLETE.* 00389 M00S00389.gettasv +++| TITLE SUBROUTINES. 00390 M00S00390.gettasv +++| ABT SPACE 4,10 00391 M00S00391.gettasv +++|** ABT - ABORT PROCESSING. 00392 M00S00392.gettasv +++|* 00393 M00S00393.gettasv +++|* ENTRY (X5) = ADDRESS OF ERROR MESSAGE. 00394 M00S00394.gettasv +++|* 00395 M00S00395.gettasv +++|* EXIT ALL FILES RETURNED. 00396 M00S00396.gettasv +++|* ERROR MESSAGES ISSUED. 00397 M00S00397.gettasv +++|* *GETTASV* ABORTED. 00398 M00S00398.gettasv +++|* 00399 M00S00399.gettasv +++|* MACROS ABORT, MESSAGE, WRITEC, WRITER. 00400 M00S00400.gettasv +++| 00401 M00S00401.gettasv +++| 00402 M00S00402.gettasv +++| ABT BSS 0 ENTRY 00403 M00S00403.gettasv +++| MESSAGE X5,,R ISSUE ERROR MESSAGE 00404 M00S00404.gettasv +++| WRITEC O,X5 00405 M00S00405.gettasv +++| 00406 M00S00406.gettasv +++|* ENTER HERE FROM PRESET IF ERRORS DETECTED. 00407 M00S00407.gettasv +++| 00408 M00S00408.gettasv +++| ABT1 WRITER OUTPUT,R 00409 M00S00409.gettasv +++| MESSAGE ABTA,,R * GETTASV ABORTED.* 00410 M00S00410.gettasv +++| ABORT ABORT 00411 M00S00411.gettasv +++| 00412 M00S00412.gettasv +++| 00413 M00S00413.gettasv +++| ABTA DATA C* GETTASV ABORTED.* 00414 M00S00414.gettasv +++| CAP SPACE 4,30 00415 M00S00415.gettasv +++|** CAP - CHECK FOR ALLOWABLE PATTERNS. 00416 M00S00416.gettasv +++|* 00417 M00S00417.gettasv +++|* CHECK PARAMETERS FOR ALLOWABLE CHARACTER PATTERNS. 00418 M00S00418.gettasv +++|* 00419 M00S00419.gettasv +++|* ENTRY (X5) = PARAMETER, LEFT JUSTIFIED ZERO FILLED. 00420 M00S00420.gettasv +++|* (X2) = PATTERN, LEFT JUSTIFIED ZERO FILLED. PATTERN 00421 M00S00421.gettasv +++|* CONSISTS OF ONE OCTAL DIGIT FOR EACH CHARACTER 00422 M00S00422.gettasv +++|* POSITION OF THE PARAMETER. EACH OCTAL DIGIT 00423 M00S00423.gettasv +++|* INDICATES THE CHARACTERS THAT ARE VALID FOR 00424 M00S00424.gettasv +++|* THAT CHARACTER POSITION, AS FOLLOWS. 00425 M00S00425.gettasv +++|* 00426 M00S00426.gettasv +++|* 0 - ANY CHARACTER. 00427 M00S00427.gettasv +++|* 1 - CHARACTERS A THROUGH Z. 00428 M00S00428.gettasv +++|* 2 - DIGITS 0 THROUGH 4. 00429 M00S00429.gettasv +++|* 3 - DIGITS 0 THROUGH 9. 00430 M00S00430.gettasv +++|* 4 - CHARACTERS A THROUGH Z, DIGITS 0 THROUGH 9. 00431 M00S00431.gettasv +++|* 5 - NO CHARACTER IS VALID. 00432 M00S00432.gettasv +++|* 00433 M00S00433.gettasv +++|* (B2) = MINIMUM NUMBER OF 6-BIT CHARACTERS. 00434 M00S00434.gettasv +++|* 00435 M00S00435.gettasv +++|* EXIT (X1) = 0 IF PARAMETER MATCHES PATTERN. 00436 M00S00436.gettasv +++|* (X1) .NE. 0 IF PARAMETER DOES NOT MATCH PATTERN. 00437 M00S00437.gettasv +++|* 00438 M00S00438.gettasv +++|* USES X - 1, 2, 4, 5. 00439 M00S00439.gettasv +++|* A - 1. 00440 M00S00440.gettasv +++|* B - 2, 3, 4. 00441 M00S00441.gettasv +++| 00442 M00S00442.gettasv +++| 00443 M00S00443.gettasv +++| CAP3 SX1 B2+ CHECK MINIMUM CHARACTER COUNT 00444 M00S00444.gettasv +++| 00445 M00S00445.gettasv +++| 00446 M00S00446.gettasv +++| CAP SUBR ENTRY/EXIT 00447 M00S00447.gettasv +++| CAP1 LX5 6 00448 M00S00448.gettasv +++| MX1 -6 00449 M00S00449.gettasv +++| BX1 -X1*X5 00450 M00S00450.gettasv +++| BX5 X5-X1 00451 M00S00451.gettasv +++| ZR X1,CAP3 IF ALL CHARACTERS CHECKED 00452 M00S00452.gettasv +++| SB4 X1 00453 M00S00453.gettasv +++| LX2 3 00454 M00S00454.gettasv +++| SX1 X2 INDEX TO PATTERNS 00455 M00S00455.gettasv +++| ZR X1,CAP2 IF NO RESTRICTION ON THIS CHARACTER 00456 M00S00456.gettasv +++| BX2 X2-X1 00457 M00S00457.gettasv +++| LX1 2 PATTERN INDEX * 4 00458 M00S00458.gettasv +++| SB3 X1 00459 M00S00459.gettasv +++| LX1 1 PATTERN INDEX * 8 00460 M00S00460.gettasv +++| SB3 B3+X1 PATTERN INDEX * 12 00461 M00S00461.gettasv +++| SA1 CAPA 00462 M00S00462.gettasv +++| MX4 -6 00463 M00S00463.gettasv +++| LX1 X1,B3 00464 M00S00464.gettasv +++| BX4 -X4*X1 00465 M00S00465.gettasv +++| SB3 X4 00466 M00S00466.gettasv +++| GT B4,B3,CAPX IF CHARACTER OUT OF RANGE 00467 M00S00467.gettasv +++| MX4 -6 00468 M00S00468.gettasv +++| LX1 -6 00469 M00S00469.gettasv +++| BX4 -X4*X1 00470 M00S00470.gettasv +++| SB3 X4 00471 M00S00471.gettasv +++| LT B4,B3,CAPX IF CHARACTER OUT OF RANGE 00472 M00S00472.gettasv +++| CAP2 ZR B2,CAP1 IF MINIMUM SIZE REACHED 00473 M00S00473.gettasv +++| SB2 B2-1 00474 M00S00474.gettasv +++| EQ CAP1 CONTINUE WITH NEXT CHARACTER 00475 M00S00475.gettasv +++| 00476 M00S00476.gettasv +++| 00477 M00S00477.gettasv +++| CAPA VFD 12/2LAZ,12/2L04,12/2L09,12/2LA9,12/2L10 00478 M00S00478.gettasv +++| TITLE COMMON DECKS. 00479 M00S00479.gettasv +++| SPACE 4,10 00480 M00S00480.gettasv +++|* COMMON DECKS. 00481 M00S00481.gettasv +++| 00482 M00S00482.gettasv +++| 00483 M00S00483.gettasv +++|*CALL COMCCIO 00484 M00S00484.gettasv +++|*CALL COMCCPM 00485 M00S00485.gettasv +++|*CALL COMCRDC 00486 M00S00486.gettasv +++|*CALL COMCRDW 00487 M00S00487.gettasv +++|*CALL COMCSNM 00488 M00S00488.gettasv +++|*CALL COMCSYS 00489 M00S00489.gettasv +++|*CALL COMCWTC 00490 M00S00490.gettasv +++|*CALL COMCWTW 00491 M00S00491.gettasv +++| TITLE FILE ENVIRONMENT TABLES. 00492 M00S00492.gettasv +++| FETS SPACE 4,10 00493 M00S00493.gettasv +++|* FETS. 00494 M00S00494.gettasv +++| 00495 M00S00495.gettasv +++| 00496 M00S00496.gettasv +++| O BSS 0 OUTPUT FILE 00497 M00S00497.gettasv +++| OUTPUT FILEB OBUF,OBUFL 00498 M00S00498.gettasv +++| SS BSS 0 AUDIT FILE 00499 M00S00499.gettasv +++| MREADVS FILEB ABUF,ABUFL 00500 M00S00500.gettasv +++| SPACE 4,10 00501 M00S00501.gettasv +++|* BUFFERS AND LARGE TABLES. 00502 M00S00502.gettasv +++| 00503 M00S00503.gettasv +++| TVSN CON 0 TVSN TABLE - FIRST WORD IS COUNT 00504 M00S00504.gettasv +++| AREC EQU TVSN+4098 AUDIT FILE RECORD BUFFER 00505 M00S00505.gettasv +++| ABUF EQU AREC+ARECL AUDIT FILE BUFFER 00506 M00S00506.gettasv +++| OBUF EQU ABUF+ABUFL OUTPUT FILE BUFFER 00507 M00S00507.gettasv +++| 00508 M00S00508.gettasv +++| RFL= EQU OBUF+OBUFL SET INITIAL FIELD LENGTH 00509 M00S00509.gettasv +++| TITLE PRS - PRESET ROUTINES. 00510 M00S00510.gettasv +++| ORG TVSN+1 00511 M00S00511.gettasv +++| PRS SPACE 4,20 00512 M00S00512.gettasv +++|** PRS - PRESET PROGRAM. 00513 M00S00513.gettasv +++|* 00514 M00S00514.gettasv +++|* CALLS ARG, CAP. 00515 M00S00515.gettasv +++|* 00516 M00S00516.gettasv +++|* MACROS MESSAGE. 00517 M00S00517.gettasv +++| 00518 M00S00518.gettasv +++| 00519 M00S00519.gettasv +++| PRS SUBR ENTRY/EXIT 00520 M00S00520.gettasv +++| SB1 1 00521 M00S00521.gettasv +++| 00522 M00S00522.gettasv +++|* CRACK PARAMETERS FROM COMMAND. 00523 M00S00523.gettasv +++| 00524 M00S00524.gettasv +++| SA1 ACTR GET NUMBER OF ARGUMENTS 00525 M00S00525.gettasv +++| SB4 X1+ 00526 M00S00526.gettasv +++| SA4 ARGR GET FIRST ARGUMENT 00527 M00S00527.gettasv +++| SB5 TCAT COMMAND ARGUMENT TABLE ADDRESS 00528 M00S00528.gettasv +++| RJ ARG PROCESS ARGUMENTS 00529 M00S00529.gettasv +++| SX5 PRSA * GETTASV ARGUMENT ERROR.* 00530 M00S00530.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0) 00531 M00S00531.gettasv +++| 00532 M00S00532.gettasv +++|* CHECK ALTERNATE COMMAND PARAMETER. 00533 M00S00533.gettasv +++| 00534 M00S00534.gettasv +++| SA5 ACMD 00535 M00S00535.gettasv +++| SA2 PRSC 00536 M00S00536.gettasv +++| SB2 1 MUST BE AT LEAST 1 CHARACTER 00537 M00S00537.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN 00538 M00S00538.gettasv +++| SX5 PRSD * ALTERNATE COMMAND INCORRECT.* 00539 M00S00539.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0) 00540 M00S00540.gettasv +++| 00541 M00S00541.gettasv +++|* CHECK PRIMARY LFN PARAMETER. 00542 M00S00542.gettasv +++| 00543 M00S00543.gettasv +++| SA5 LFN1 00544 M00S00544.gettasv +++| SA2 PRSC 00545 M00S00545.gettasv +++| SB2 1 MUST BE AT LEAST 1 CHARACTER 00546 M00S00546.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN 00547 M00S00547.gettasv +++| SX5 PRSI * PRIMARY LFN INCORRECT.* 00548 M00S00548.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0) 00549 M00S00549.gettasv +++| 00550 M00S00550.gettasv +++|* CHECK SECONDARY LFN PARAMETER. 00551 M00S00551.gettasv +++| 00552 M00S00552.gettasv +++| SA5 LFN2 00553 M00S00553.gettasv +++| SA2 PRSC 00554 M00S00554.gettasv +++| SB2 1 MUST BE AT LEAST 1 CHARACTER 00555 M00S00555.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN 00556 M00S00556.gettasv +++| SX5 ERVF * SECONDARY LFN INCORRECT.* 00557 M00S00557.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0) 00558 M00S00558.gettasv +++| 00559 M00S00559.gettasv +++|* CHECK PREFIX PARAMETER. 00560 M00S00560.gettasv +++| 00561 M00S00561.gettasv +++| SA5 PRFX 00562 M00S00562.gettasv +++| SA2 PRSB 00563 M00S00563.gettasv +++| SB2 2 PREFIX MUST BE 2 CHARACTERS 00564 M00S00564.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN 00565 M00S00565.gettasv +++| SX5 PRSH * VSN PREFIX INCORRECT.* 00566 M00S00566.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0) 00567 M00S00567.gettasv +++| SA1 PRFX COMBINE PREFIX WITH MAXIMUM DIGIT VALUE 00568 M00S00568.gettasv +++| SA2 MAXV 00569 M00S00569.gettasv +++| BX6 X1+X2 00570 M00S00570.gettasv +++| SA6 A2+ 00571 M00S00571.gettasv +++| 00572 M00S00572.gettasv +++|* CHECK DENSITY PARAMETER. 00573 M00S00573.gettasv +++| 00574 M00S00574.gettasv +++| MX0 30 00575 M00S00575.gettasv +++| SA1 DENS 00576 M00S00576.gettasv +++| SA2 TDEN 00577 M00S00577.gettasv +++| PRS1 BX6 X1-X2 00578 M00S00578.gettasv +++| SA2 A2+1 00579 M00S00579.gettasv +++| BX7 X0*X6 00580 M00S00580.gettasv +++| ZR X7,PRS2 IF CORRECT DENSITY 00581 M00S00581.gettasv +++| NZ X2,PRS1 IF MORE DENSITIES TO CHECK 00582 M00S00582.gettasv +++| SX1 B1+ FORCE ERROR INDICATION 00583 M00S00583.gettasv +++| SX5 PRSE * TAPE DENSITY NOT RECOGNIZED.* 00584 M00S00584.gettasv +++| RJ IME ISSUE MESSAGE FOR ERROR 00585 M00S00585.gettasv +++| 00586 M00S00586.gettasv +++| PRS2 LX6 30 00587 M00S00587.gettasv +++| SA6 TTYP SAVE *TMS* TAPE TYPE 00588 M00S00588.gettasv +++| 00589 M00S00589.gettasv +++|* CHECK TAPE FORMAT PARAMETER. 00590 M00S00590.gettasv +++| 00591 M00S00591.gettasv +++| SA1 FRMT VALIDATE TAPE FORMAT 00592 M00S00592.gettasv +++| SA2 TATF 00593 M00S00593.gettasv +++| PRS3 BX6 X1-X2 00594 M00S00594.gettasv +++| SA2 A2+1 00595 M00S00595.gettasv +++| BX7 X0*X6 00596 M00S00596.gettasv +++| ZR X7,PRS4 IF CORRECT FORMAT 00597 M00S00597.gettasv +++| NZ X2,PRS3 IF MORE FORMATS TO CHECK 00598 M00S00598.gettasv +++| SX1 B1+ FORCE ERROR INDICATION 00599 M00S00599.gettasv +++| SX5 PRSF * TAPE FORMAT NOT RECOGNIZED.* 00600 M00S00600.gettasv +++| RJ IME ISSUE MESSAGE FOR ERROR 00601 M00S00601.gettasv +++| 00602 M00S00602.gettasv +++|* CHECK AND CONVERT NUMBER OF VSNS PARAMETER. 00603 M00S00603.gettasv +++| 00604 M00S00604.gettasv +++| PRS4 SA1 NVSN 00605 M00S00605.gettasv +++| SX2 1R1 00606 M00S00606.gettasv +++| LX1 6 00607 M00S00607.gettasv +++| IX6 X1-X2 00608 M00S00608.gettasv +++| SX1 X6-1 00609 M00S00609.gettasv +++| SA6 NVSN STORE CONVERTED *NV* PARAMETER 00610 M00S00610.gettasv +++| ZR X6,PRS5 IF NV=1 00611 M00S00611.gettasv +++| SX5 PRSG * NUMBER OF VOLUMES MUST BE 1 OR 2.* 00612 M00S00612.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0) 00613 M00S00613.gettasv +++| 00614 M00S00614.gettasv +++|* SEE IF ANY PARAMETER ERRORS OCCURRED. 00615 M00S00615.gettasv +++| 00616 M00S00616.gettasv +++| PRS5 SA1 ERFL 00617 M00S00617.gettasv +++| ZR X1,PRSX IF NO ERRORS 00618 M00S00618.gettasv +++| EQ ABT1 ABORT 00619 M00S00619.gettasv +++| 00620 M00S00620.gettasv +++| 00621 M00S00621.gettasv +++| PRSA DATA C* GETTASV ARGUMENT ERROR.* 00622 M00S00622.gettasv +++| PRSB VFD 6/44B,24/55555555B,30/0 PREFIX VALIDATION MASK 00623 M00S00623.gettasv +++| PRSC VFD 21/4444444B,9/555B,30/0 COMMAND/LFN VALIDATION MASK 00624 M00S00624.gettasv +++| 00625 M00S00625.gettasv +++|* PRESET ERROR MESSAGES. 00626 M00S00626.gettasv +++| 00627 M00S00627.gettasv +++| PRSD DATA C* ALTERNATE COMMAND INCORRECT.* 00628 M00S00628.gettasv +++| PRSE DATA C* TAPE DENSITY NOT RECOGNIZED.* 00629 M00S00629.gettasv +++| PRSF DATA C* TAPE FORMAT NOT RECOGNIZED.* 00630 M00S00630.gettasv +++| PRSG DATA C* NUMBER OF VOLUMES MUST BE 1 OR 2.* 00631 M00S00631.gettasv +++| PRSH DATA C* VSN PREFIX INCORRECT.* 00632 M00S00632.gettasv +++| PRSI DATA C* PRIMARY LFN INCORRECT.* 00633 M00S00633.gettasv +++| TCAT SPACE 4,10 00634 M00S00634.gettasv +++|* COMMAND ARGUMENT TABLE. 00635 M00S00635.gettasv +++| 00636 M00S00636.gettasv +++| TCAT BSS 0 COMMAND ARGUMENT TABLE 00637 M00S00637.gettasv +++| SS ARG SS,SS AUDIT FILE NAME 00638 M00S00638.gettasv +++| P ARG PRFX,PRFX PREFIX CHARACTERS 00639 M00S00639.gettasv +++| N ARG NVSN,NVSN NUMBER OF VSNS 00640 M00S00640.gettasv +++| D ARG DENS,DENS TAPE DENSITY 00641 M00S00641.gettasv +++| F ARG FRMT,FRMT TAPE FORMAT 00642 M00S00642.gettasv +++| T ARG LFN1,LFN1 PRIMARY TAPE LFN 00643 M00S00643.gettasv +++| VF ARG LFN2,LFN2 SECONDARY TAPE LFN 00644 M00S00644.gettasv +++| C ARG ACMD,ACMD ALTERNATE COMMAND 00645 M00S00645.gettasv +++| CON 0 ARGUMENT LIST TERMINATOR 00646 M00S00646.gettasv +++| TDEN SPACE 4,15 00647 M00S00647.gettasv +++|** TDEN - TABLE OF TAPE DENSITIES. 00648 M00S00648.gettasv +++|*
| Line S00649 Modification History | |
|---|---|
M01 (Removed by) | getta1 |
Seq # *Modification Id* Act ----------------------------+ 00649 M01S00649.getta1 ---|* *TDEN* CONTAINS THE TAPE DENSITIS RECOGNIZED BY *GETTASV*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | getta1 |
Seq # *Modification Id* Act ----------------------------+ 00650 M01S00001.getta1 +++|* *TDEN* CONTAINS THE TAPE DENSITIES RECOGNIZED BY *GETTASV* 00651 M00S00650.gettasv +++|* AND THE CORRESPONDING *TMS* TAPE TYPES. 00652 M00S00651.gettasv +++|* 00653 M00S00652.gettasv +++|*T 30/ DEN, 30/ TTYP
Figure
00654 M00S00653.gettasv +++|* 00655 M00S00654.gettasv +++|* DEN THE DISPLAY CODE SYMBOL FOR THE DENSITY. 00656 M00S00655.gettasv +++|* TTYP THE DISPLAY CODE SYMBOL FOR THE *TMS* TAPE TYPE. 00657 M00S00656.gettasv +++| 00658 M00S00657.gettasv +++| 00659 M00S00658.gettasv +++| TDEN BSS 0 TABLE OF TAPE DENSITIES VS DEVICE TYPES 00660 M00S00659.gettasv +++| VFD 30/2LLO,30/4LMTNT 00661 M00S00660.gettasv +++| VFD 30/2LHI,30/4LMTNT 00662 M00S00661.gettasv +++| VFD 30/2LHY,30/4LMTNT 00663 M00S00662.gettasv +++| VFD 30/2LHD,30/4LMTNT 00664 M00S00663.gettasv +++| VFD 30/2LPE,30/4LMTNT 00665 M00S00664.gettasv +++| VFD 30/2LGE,30/4LMTNT
| Line S00665 Modification History | |
|---|---|
M01 (Removed by) | getta1 |
Seq # *Modification Id* Act ----------------------------+ 00666 M01S00665.getta1 ---| VFD 30/2LCE,30/2LCT 00667 M01S00666.getta1 ---| VFD 30/2LAE,30/2LAT
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | getta1 |
Seq # *Modification Id* Act ----------------------------+ 00668 M01S00002.getta1 +++| VFD 30/2LCE,30/4LCT 00669 M01S00003.getta1 +++| VFD 30/2LAE,30/4LAT 00670 M00S00667.gettasv +++| VFD 30/3L200,30/4LMTNT 00671 M00S00668.gettasv +++| VFD 30/3L556,30/4LMTNT 00672 M00S00669.gettasv +++| VFD 30/3L800,30/4LMTNT 00673 M00S00670.gettasv +++| VFD 30/4L1600,30/4LMTNT 00674 M00S00671.gettasv +++| VFD 30/4L6250,30/4LMTNT 00675 M00S00672.gettasv +++| CON 0 00676 M00S00673.gettasv +++| TATF SPACE 4,15 00677 M00S00674.gettasv +++|** TATF - TABLE OF ALLOWABLE TAPE FORMATS. 00678 M00S00675.gettasv +++|* 00679 M00S00676.gettasv +++|* *TATF* CONTAINS THE TAPE FORMATS ALLOWED BY *GETTASV*. 00680 M00S00677.gettasv +++|* 00681 M00S00678.gettasv +++|*T 30/ FMT, 30/ 0
Figure
00682 M00S00679.gettasv +++|* 00683 M00S00680.gettasv +++|* FMT THE DISPLAY CODE TAPE FORMAT. 00684 M00S00681.gettasv +++| 00685 M00S00682.gettasv +++| 00686 M00S00683.gettasv +++| TATF BSS 0 TABLE OF ALLOWABLE TAPE FORMATS 00687 M00S00684.gettasv +++| VFD 30/1LI,30/0 00688 M00S00685.gettasv +++| VFD 30/2LLI,30/0 00689 M00S00686.gettasv +++| CON 0 00690 M00S00687.gettasv +++| SPACE 4,10 00691 M00S00688.gettasv +++|* PRESET SUBROUTINES. 00692 M00S00689.gettasv +++| IME SPACE 4,10 00693 M00S00690.gettasv +++|** IME - ISSUE MESSAGE IF ERROR. 00694 M00S00691.gettasv +++|* 00695 M00S00692.gettasv +++|* ENTRY (X1) = ERROR INDICATOR (NONZERO = ERROR). 00696 M00S00693.gettasv +++|* (X5) = ADDRESS OF ERROR MESSAGE. 00697 M00S00694.gettasv +++|* 00698 M00S00695.gettasv +++|* 00699 M00S00696.gettasv +++|* EXIT ERROR MESSAGE ISSUED IF (X1) NONZERO. 00700 M00S00697.gettasv +++|* ERROR FLAG SET IF (X1) NONZERO. 00701 M00S00698.gettasv +++|* 00702 M00S00699.gettasv +++|* MACROS MESSAGE, WRITEC. 00703 M00S00700.gettasv +++| 00704 M00S00701.gettasv +++| 00705 M00S00702.gettasv +++| IME SUBR ENTRY/EXIT 00706 M00S00703.gettasv +++| ZR X1,IMEX IF NO ERROR INDICATED 00707 M00S00704.gettasv +++| BX6 X1 SET ERROR FLAG 00708 M00S00705.gettasv +++| SA6 ERFL 00709 M00S00706.gettasv +++| MESSAGE X5,,R ISSUE ERROR MESSAGE 00710 M00S00707.gettasv +++| WRITEC O,X5 00711 M00S00708.gettasv +++| EQ IMEX RETURN 00712 M00S00709.gettasv +++| SPACE 4,10 00713 M00S00710.gettasv +++|* PRESET COMMON DECKS. 00714 M00S00711.gettasv +++| 00715 M00S00712.gettasv +++| 00716 M00S00713.gettasv +++|*CALL COMCARG 00717 M00S00714.gettasv +++| SPACE 4,10 00718 M00S00715.gettasv +++|* OVERFLOW CHECK. 00719 M00S00716.gettasv +++| 00720 M00S00717.gettasv +++| 00721 M00S00718.gettasv +++| ERRPL *-OBUF PRESET OVERFLOWS INTO OUTPUT BUFFER 00722 M00S00719.gettasv +++| SPACE 4 00723 M00S00720.gettasv +++| END
cdc/nos2.source/opl.opl871/deck/gettasv.txt · Last modified: (external edit)